� taskid%4:$taskid%="TASK"
Aș "Wimp_Initialise",200,!taskid%,"FREAKY" � version%,handle%

(� q% &300,buffer% &200
2
<
F� DiscNameArray% 30
P� NameArray% 60
ZDiscName$ = "xx"
d� � �:� " @ ";�:� X,Y:�
n
x
��do_your_stuff
��
�  ș "Wimp_Poll",0,q% � A%
�9  �receive(q%):� 17 is shut me up, 18 is shut all up.
�  �
�� �
�
�/��do_your_stuff:ȗ �:ȗ OX,OY,C:XV=0:YV=0:�
�
�� �receive(q%)
�#� (A%=17 � A%=18) � q%!16=0 � �
�ȗ X,Y,C
�� X>1278 � X<1 � XV=-XV

� Y>1022 � Y<1 � YV=-YV

XV=XV+X-OX-XV/1000

YV=YV+Y-OY-YV/1000-1

"X=X+XV/5:Y=Y+YV/5

,� Y<1 � OY>3 � � 7

6
OX=X:OY=Y

@ȗ � X,Y

J�

T
�

00000000  0d 00 0a 1e de 20 74 61  73 6b 69 64 25 34 3a 24  |..... taskid%4:$|
00000010  74 61 73 6b 69 64 25 3d  22 54 41 53 4b 22 0d 00  |taskid%="TASK"..|
00000020  14 41 c8 99 20 22 57 69  6d 70 5f 49 6e 69 74 69  |.A.. "Wimp_Initi|
00000030  61 6c 69 73 65 22 2c 32  30 30 2c 21 74 61 73 6b  |alise",200,!task|
00000040  69 64 25 2c 22 46 52 45  41 4b 59 22 20 b8 20 76  |id%,"FREAKY" . v|
00000050  65 72 73 69 6f 6e 25 2c  68 61 6e 64 6c 65 25 0d  |ersion%,handle%.|
00000060  00 1e 04 0d 00 28 1a de  20 71 25 20 26 33 30 30  |.....(.. q% &300|
00000070  2c 62 75 66 66 65 72 25  20 26 32 30 30 0d 00 32  |,buffer% &200..2|
00000080  04 0d 00 3c 04 0d 00 46  17 de 20 44 69 73 63 4e  |...<...F.. DiscN|
00000090  61 6d 65 41 72 72 61 79  25 20 33 30 0d 00 50 13  |ameArray% 30..P.|
000000a0  de 20 4e 61 6d 65 41 72  72 61 79 25 20 36 30 0d  |. NameArray% 60.|
000000b0  00 5a 14 44 69 73 63 4e  61 6d 65 24 20 3d 20 22  |.Z.DiscName$ = "|
000000c0  78 78 22 0d 00 64 1b ee  20 85 20 f6 3a f1 20 22  |xx"..d.. . .:. "|
000000d0  20 40 20 22 3b 9e 3a f1  20 58 2c 59 3a e0 0d 00  | @ ";.:. X,Y:...|
000000e0  6e 04 0d 00 78 04 0d 00  82 12 f2 64 6f 5f 79 6f  |n...x......do_yo|
000000f0  75 72 5f 73 74 75 66 66  0d 00 8c 05 f5 0d 00 96  |ur_stuff........|
00000100  1e 20 20 c8 99 20 22 57  69 6d 70 5f 50 6f 6c 6c  |.  .. "Wimp_Poll|
00000110  22 2c 30 2c 71 25 20 b8  20 41 25 0d 00 a0 39 20  |",0,q% . A%...9 |
00000120  20 f2 72 65 63 65 69 76  65 28 71 25 29 3a f4 20  | .receive(q%):. |
00000130  31 37 20 69 73 20 73 68  75 74 20 6d 65 20 75 70  |17 is shut me up|
00000140  2c 20 31 38 20 69 73 20  73 68 75 74 20 61 6c 6c  |, 18 is shut all|
00000150  20 75 70 2e 0d 00 aa 07  20 20 cb 0d 00 b4 07 fd  | up.....  ......|
00000160  20 a3 0d 00 be 04 0d 00  c8 2f dd f2 64 6f 5f 79  | ......../..do_y|
00000170  6f 75 72 5f 73 74 75 66  66 3a c8 97 20 ee 3a c8  |our_stuff:.. .:.|
00000180  97 20 4f 58 2c 4f 59 2c  43 3a 58 56 3d 30 3a 59  |. OX,OY,C:XV=0:Y|
00000190  56 3d 30 3a e1 0d 00 d2  04 0d 00 dc 12 dd 20 f2  |V=0:.......... .|
000001a0  72 65 63 65 69 76 65 28  71 25 29 0d 00 e6 23 e7  |receive(q%)...#.|
000001b0  20 28 41 25 3d 31 37 20  84 20 41 25 3d 31 38 29  | (A%=17 . A%=18)|
000001c0  20 80 20 71 25 21 31 36  3d 30 20 8c 20 e0 0d 00  | . q%!16=0 . ...|
000001d0  f0 0c c8 97 20 58 2c 59  2c 43 0d 00 fa 1b e7 20  |.... X,Y,C..... |
000001e0  58 3e 31 32 37 38 20 84  20 58 3c 31 20 8c 20 58  |X>1278 . X<1 . X|
000001f0  56 3d 2d 58 56 0d 01 04  1b e7 20 59 3e 31 30 32  |V=-XV..... Y>102|
00000200  32 20 84 20 59 3c 31 20  8c 20 59 56 3d 2d 59 56  |2 . Y<1 . YV=-YV|
00000210  0d 01 0e 16 58 56 3d 58  56 2b 58 2d 4f 58 2d 58  |....XV=XV+X-OX-X|
00000220  56 2f 31 30 30 30 0d 01  18 18 59 56 3d 59 56 2b  |V/1000....YV=YV+|
00000230  59 2d 4f 59 2d 59 56 2f  31 30 30 30 2d 31 0d 01  |Y-OY-YV/1000-1..|
00000240  22 15 58 3d 58 2b 58 56  2f 35 3a 59 3d 59 2b 59  |".X=X+XV/5:Y=Y+Y|
00000250  56 2f 35 0d 01 2c 16 e7  20 59 3c 31 20 80 20 4f  |V/5..,.. Y<1 . O|
00000260  59 3e 33 20 8c 20 ef 20  37 0d 01 36 0d 4f 58 3d  |Y>3 . . 7..6.OX=|
00000270  58 3a 4f 59 3d 59 0d 01  40 0c c8 97 20 b8 20 58  |X:OY=Y..@... . X|
00000280  2c 59 0d 01 4a 05 e1 0d  01 54 04 0d ff           |,Y..J....T...|
0000028d