� taskid%4:$taskid%="TASK"
@ș "Wimp_Initialise",200,!taskid%,"Test " � version%,handle%
Wimp    = (1<<18) + (3<<6)
(Poll%   = Wimp+7
2� q% &300,buffer% &200
<Jq%!4=handle%:!q%=20:q%!12=0:q%!16=&400C3:ș "Wimp_SendMessage",17,q%,0
F
P� DiscNameArray% 30
Z� NameArray% 60
dDiscName$ = "xx"
n
x� � �:� PROCstop
�
��
�ș Poll%,0,q% � A%
�Ȏ A% �
�� 17,18
��receive(q%)
��
�� �
�
�� �receive(q%)
�%� sz%,act%,length%,name$,t%,type$
�� � � �
�act% = q%!16


Ȏ act% �

  � 0:� A%=18 � �stop

  � &400C3

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

,  length%=�(5)+2

6  � death%=1 � length%

@   name$=name$+�(64+�(26))

J  �

T
  t%=�(3)

^
  Ȏ t% �

h    � 0:type$="Obey"

r    � 1:type$="Text"

|    � 2:type$="Basic"

�    � 3:type$="Data"

�  �

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

�,  E=�"<Obey$Dir>."+name$:� E<>0 � � #E:�

�  � ONERROR LOCAL OFF

�F  ș "XOS_CLI","Save <Obey$Dir>."+name$+" "+�~oldPAGE+" "+�~oldTOP

�8  ș "XOS_CLI","SetType <Obey$dir>."+name$+" "+type$

�/  ș "XOS_CLI","Access <Obey$Dir>.!Boot WR"

�  x=�"<Obey$dir>.!boot"

�
  �#x=�#x

�P  � #x,�10+"wimpslot -min 16k -max 16k"+�10+"BASIC -quit <Obey$Dir>."+ name$

�	  �#x

� �
�
�

&� �stop
0ș "Wimp_CloseDown"
:�
�

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 40 c8 99 20 22 57 69  6d 70 5f 49 6e 69 74 69  |.@.. "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 54 65 73  74 20 22 20 b8 20 76 65  |id%,"Test " . ve|
00000050  72 73 69 6f 6e 25 2c 68  61 6e 64 6c 65 25 0d 00  |rsion%,handle%..|
00000060  1e 1e 57 69 6d 70 20 20  20 20 3d 20 28 31 3c 3c  |..Wimp    = (1<<|
00000070  31 38 29 20 2b 20 28 33  3c 3c 36 29 0d 00 28 14  |18) + (3<<6)..(.|
00000080  50 6f 6c 6c 25 20 20 20  3d 20 57 69 6d 70 2b 37  |Poll%   = Wimp+7|
00000090  0d 00 32 1a de 20 71 25  20 26 33 30 30 2c 62 75  |..2.. q% &300,bu|
000000a0  66 66 65 72 25 20 26 32  30 30 0d 00 3c 4a 71 25  |ffer% &200..<Jq%|
000000b0  21 34 3d 68 61 6e 64 6c  65 25 3a 21 71 25 3d 32  |!4=handle%:!q%=2|
000000c0  30 3a 71 25 21 31 32 3d  30 3a 71 25 21 31 36 3d  |0:q%!12=0:q%!16=|
000000d0  26 34 30 30 43 33 3a c8  99 20 22 57 69 6d 70 5f  |&400C3:.. "Wimp_|
000000e0  53 65 6e 64 4d 65 73 73  61 67 65 22 2c 31 37 2c  |SendMessage",17,|
000000f0  71 25 2c 30 0d 00 46 04  0d 00 50 17 de 20 44 69  |q%,0..F...P.. Di|
00000100  73 63 4e 61 6d 65 41 72  72 61 79 25 20 33 30 0d  |scNameArray% 30.|
00000110  00 5a 13 de 20 4e 61 6d  65 41 72 72 61 79 25 20  |.Z.. NameArray% |
00000120  36 30 0d 00 64 14 44 69  73 63 4e 61 6d 65 24 20  |60..d.DiscName$ |
00000130  3d 20 22 78 78 22 0d 00  6e 04 0d 00 78 14 ee 20  |= "xx"..n...x.. |
00000140  85 20 87 3a f4 20 50 52  4f 43 73 74 6f 70 0d 00  |. .:. PROCstop..|
00000150  82 04 0d 00 8c 05 f5 0d  00 96 16 c8 99 20 50 6f  |............. Po|
00000160  6c 6c 25 2c 30 2c 71 25  20 b8 20 41 25 0d 00 a0  |ll%,0,q% . A%...|
00000170  0b c8 8e 20 41 25 20 ca  0d 00 aa 0b c9 20 31 37  |... A% ...... 17|
00000180  2c 31 38 0d 00 b4 10 f2  72 65 63 65 69 76 65 28  |,18.....receive(|
00000190  71 25 29 0d 00 be 05 cb  0d 00 c8 07 fd 20 a3 0d  |q%).......... ..|
000001a0  00 d2 04 0d 00 dc 12 dd  20 f2 72 65 63 65 69 76  |........ .receiv|
000001b0  65 28 71 25 29 0d 00 e6  25 ea 20 73 7a 25 2c 61  |e(q%)...%. sz%,a|
000001c0  63 74 25 2c 6c 65 6e 67  74 68 25 2c 6e 61 6d 65  |ct%,length%,name|
000001d0  24 2c 74 25 2c 74 79 70  65 24 0d 00 f0 0b ee 20  |$,t%,type$..... |
000001e0  85 20 ea 20 e1 0d 00 fa  10 61 63 74 25 20 3d 20  |. . .....act% = |
000001f0  71 25 21 31 36 0d 01 04  0d c8 8e 20 61 63 74 25  |q%!16...... act%|
00000200  20 ca 0d 01 0e 19 20 20  c9 20 30 3a e7 20 41 25  | .....  . 0:. A%|
00000210  3d 31 38 20 8c 20 f2 73  74 6f 70 0d 01 18 0e 20  |=18 . .stop.... |
00000220  20 c9 20 26 34 30 30 43  33 0d 01 22 22 20 e7 20  | . &400C3.."" . |
00000230  28 41 25 3d 31 37 29 20  80 20 28 71 25 21 34 3c  |(A%=17) . (q%!4<|
00000240  3e 68 61 6e 64 6c 65 25  29 20 8c 0d 01 2c 14 20  |>handle%) ...,. |
00000250  20 6c 65 6e 67 74 68 25  3d b3 28 35 29 2b 32 0d  | length%=.(5)+2.|
00000260  01 36 1a 20 20 e3 20 64  65 61 74 68 25 3d 31 20  |.6.  . death%=1 |
00000270  b8 20 6c 65 6e 67 74 68  25 0d 01 40 1e 20 20 20  |. length%..@.   |
00000280  6e 61 6d 65 24 3d 6e 61  6d 65 24 2b bd 28 36 34  |name$=name$+.(64|
00000290  2b b3 28 32 36 29 29 0d  01 4a 07 20 20 ed 0d 01  |+.(26))..J.  ...|
000002a0  54 0d 20 20 74 25 3d b3  28 33 29 0d 01 5e 0d 20  |T.  t%=.(3)..^. |
000002b0  20 c8 8e 20 74 25 20 ca  0d 01 68 18 20 20 20 20  | .. t% ...h.    |
000002c0  c9 20 30 3a 74 79 70 65  24 3d 22 4f 62 65 79 22  |. 0:type$="Obey"|
000002d0  0d 01 72 18 20 20 20 20  c9 20 31 3a 74 79 70 65  |..r.    . 1:type|
000002e0  24 3d 22 54 65 78 74 22  0d 01 7c 19 20 20 20 20  |$="Text"..|.    |
000002f0  c9 20 32 3a 74 79 70 65  24 3d 22 42 61 73 69 63  |. 2:type$="Basic|
00000300  22 0d 01 86 18 20 20 20  20 c9 20 33 3a 74 79 70  |"....    . 3:typ|
00000310  65 24 3d 22 44 61 74 61  22 0d 01 90 07 20 20 cb  |e$="Data"....  .|
00000320  0d 01 9a 39 20 20 c8 99  20 22 4f 53 5f 52 65 61  |...9  .. "OS_Rea|
00000330  64 56 61 72 56 61 6c 22  2c 22 4f 62 65 79 24 44  |dVarVal","Obey$D|
00000340  69 72 22 2c 4e 61 6d 65  41 72 72 61 79 25 2c 4e  |ir",NameArray%,N|
00000350  61 6d 65 41 72 72 61 79  25 0d 01 a4 2c 20 20 45  |ameArray%...,  E|
00000360  3d 8e 22 3c 4f 62 65 79  24 44 69 72 3e 2e 22 2b  |=."<Obey$Dir>."+|
00000370  6e 61 6d 65 24 3a e7 20  45 3c 3e 30 20 8c 20 d9  |name$:. E<>0 . .|
00000380  20 23 45 3a e1 0d 01 ae  19 20 20 f4 20 4f 4e 45  | #E:.....  . ONE|
00000390  52 52 4f 52 20 4c 4f 43  41 4c 20 4f 46 46 0d 01  |RROR LOCAL OFF..|
000003a0  b8 46 20 20 c8 99 20 22  58 4f 53 5f 43 4c 49 22  |.F  .. "XOS_CLI"|
000003b0  2c 22 53 61 76 65 20 3c  4f 62 65 79 24 44 69 72  |,"Save <Obey$Dir|
000003c0  3e 2e 22 2b 6e 61 6d 65  24 2b 22 20 22 2b c3 7e  |>."+name$+" "+.~|
000003d0  6f 6c 64 50 41 47 45 2b  22 20 22 2b c3 7e 6f 6c  |oldPAGE+" "+.~ol|
000003e0  64 54 4f 50 0d 01 c2 38  20 20 c8 99 20 22 58 4f  |dTOP...8  .. "XO|
000003f0  53 5f 43 4c 49 22 2c 22  53 65 74 54 79 70 65 20  |S_CLI","SetType |
00000400  3c 4f 62 65 79 24 64 69  72 3e 2e 22 2b 6e 61 6d  |<Obey$dir>."+nam|
00000410  65 24 2b 22 20 22 2b 74  79 70 65 24 0d 01 cc 2f  |e$+" "+type$.../|
00000420  20 20 c8 99 20 22 58 4f  53 5f 43 4c 49 22 2c 22  |  .. "XOS_CLI","|
00000430  41 63 63 65 73 73 20 3c  4f 62 65 79 24 44 69 72  |Access <Obey$Dir|
00000440  3e 2e 21 42 6f 6f 74 20  57 52 22 0d 01 d6 1b 20  |>.!Boot WR".... |
00000450  20 78 3d ad 22 3c 4f 62  65 79 24 64 69 72 3e 2e  | x=."<Obey$dir>.|
00000460  21 62 6f 6f 74 22 0d 01  e0 0d 20 20 cf 23 78 3d  |!boot"....  .#x=|
00000470  a2 23 78 0d 01 ea 50 20  20 d5 20 23 78 2c bd 31  |.#x...P  . #x,.1|
00000480  30 2b 22 77 69 6d 70 73  6c 6f 74 20 2d 6d 69 6e  |0+"wimpslot -min|
00000490  20 31 36 6b 20 2d 6d 61  78 20 31 36 6b 22 2b bd  | 16k -max 16k"+.|
000004a0  31 30 2b 22 42 41 53 49  43 20 2d 71 75 69 74 20  |10+"BASIC -quit |
000004b0  3c 4f 62 65 79 24 44 69  72 3e 2e 22 2b 20 6e 61  |<Obey$Dir>."+ na|
000004c0  6d 65 24 0d 01 f4 09 20  20 d9 23 78 0d 01 fe 06  |me$....  .#x....|
000004d0  20 cd 0d 02 08 05 cb 0d  02 12 05 e1 0d 02 1c 04  | ...............|
000004e0  0d 02 26 0b dd 20 f2 73  74 6f 70 0d 02 30 17 c8  |..&.. .stop..0..|
000004f0  99 20 22 57 69 6d 70 5f  43 6c 6f 73 65 44 6f 77  |. "Wimp_CloseDow|
00000500  6e 22 0d 02 3a 05 e1 0d  ff                       |n"..:....|
00000509