� >!RunImage
� A creeky 'ole application

�setup
(<ș "Wimp_Initialise",200,!Task%,"Creeky Dirs" � ,THandle
2�
<$ș "Wimp_Poll",0,PBlck% � RCode%
FȎ RCode% �
P   � 17,18 : �receive
Z�
d� �
n�
x� �setup
�� Task% 4, PBlck% 256
�$Task%="TASK"
��("CHAN. 1 DoorMod")
��
�
� �finish
�&ș "Wimp_CloseDown",THandle,!Task%
��
�� �receive
�Ȏ PBlck%!16 �
�   � 0 : �finish:�
�   � 5 : �grab_it
��
��

:

� �grab_it

(� PBlck%!40<>&10000 � � 1,-15,4000,1

"�
�

00000000  0d 00 0a 10 f4 20 3e 21  52 75 6e 49 6d 61 67 65  |..... >!RunImage|
00000010  0d 00 14 1f f4 20 41 20  63 72 65 65 6b 79 20 27  |..... A creeky '|
00000020  6f 6c 65 20 61 70 70 6c  69 63 61 74 69 6f 6e 0d  |ole application.|
00000030  00 1e 0a f2 73 65 74 75  70 0d 00 28 3c c8 99 20  |....setup..(<.. |
00000040  22 57 69 6d 70 5f 49 6e  69 74 69 61 6c 69 73 65  |"Wimp_Initialise|
00000050  22 2c 32 30 30 2c 21 54  61 73 6b 25 2c 22 43 72  |",200,!Task%,"Cr|
00000060  65 65 6b 79 20 44 69 72  73 22 20 b8 20 2c 54 48  |eeky Dirs" . ,TH|
00000070  61 6e 64 6c 65 0d 00 32  05 f5 0d 00 3c 24 c8 99  |andle..2....<$..|
00000080  20 22 57 69 6d 70 5f 50  6f 6c 6c 22 2c 30 2c 50  | "Wimp_Poll",0,P|
00000090  42 6c 63 6b 25 20 b8 20  52 43 6f 64 65 25 0d 00  |Blck% . RCode%..|
000000a0  46 0f c8 8e 20 52 43 6f  64 65 25 20 ca 0d 00 50  |F... RCode% ...P|
000000b0  19 20 20 20 c9 20 31 37  2c 31 38 20 3a 20 f2 72  |.   . 17,18 : .r|
000000c0  65 63 65 69 76 65 0d 00  5a 05 cb 0d 00 64 07 fd  |eceive..Z....d..|
000000d0  20 a3 0d 00 6e 05 e0 0d  00 78 0c dd 20 f2 73 65  | ...n....x.. .se|
000000e0  74 75 70 0d 00 82 19 de  20 54 61 73 6b 25 20 34  |tup..... Task% 4|
000000f0  2c 20 50 42 6c 63 6b 25  20 32 35 36 0d 00 8c 11  |, PBlck% 256....|
00000100  24 54 61 73 6b 25 3d 22  54 41 53 4b 22 0d 00 96  |$Task%="TASK"...|
00000110  18 ff 28 22 43 48 41 4e  2e 20 31 20 44 6f 6f 72  |..("CHAN. 1 Door|
00000120  4d 6f 64 22 29 0d 00 a0  05 e1 0d 00 aa 0d dd 20  |Mod").......... |
00000130  f2 66 69 6e 69 73 68 0d  00 b4 26 c8 99 20 22 57  |.finish...&.. "W|
00000140  69 6d 70 5f 43 6c 6f 73  65 44 6f 77 6e 22 2c 54  |imp_CloseDown",T|
00000150  48 61 6e 64 6c 65 2c 21  54 61 73 6b 25 0d 00 be  |Handle,!Task%...|
00000160  05 e1 0d 00 c8 0e dd 20  f2 72 65 63 65 69 76 65  |....... .receive|
00000170  0d 00 d2 12 c8 8e 20 50  42 6c 63 6b 25 21 31 36  |...... PBlck%!16|
00000180  20 ca 0d 00 dc 16 20 20  20 c9 20 30 20 3a 20 f2  | .....   . 0 : .|
00000190  66 69 6e 69 73 68 3a e0  0d 00 e6 15 20 20 20 c9  |finish:.....   .|
000001a0  20 35 20 3a 20 f2 67 72  61 62 5f 69 74 0d 00 f0  | 5 : .grab_it...|
000001b0  05 cb 0d 00 fa 05 e1 0d  01 04 05 3a 0d 01 0e 0e  |...........:....|
000001c0  dd 20 f2 67 72 61 62 5f  69 74 0d 01 18 28 e7 20  |. .grab_it...(. |
000001d0  50 42 6c 63 6b 25 21 34  30 3c 3e 26 31 30 30 30  |PBlck%!40<>&1000|
000001e0  30 20 8c 20 d4 20 31 2c  2d 31 35 2c 34 30 30 30  |0 . . 1,-15,4000|
000001f0  2c 31 0d 01 22 05 e1 0d  ff                       |,1.."....|
000001f9