� > !RunImage
� (c) S.Bennett
� ptr% 20,q% &100
(� t 4:$t="TASK"
2direct=1
<1ș "Wimp_Initialise",200,!t,"Cyril the Snail"
F�templates
P
oldtime=�
Z�
d!ș "Wimp_Poll",0,q% � action%
nȎ action% �
x�  0    : �movewindow
��  1    : �redrawwindow(q%)
��  2    : �openwindow(q%)
�� 17,18 : �message(q%)
��
�� �
�
���message(q%)
�Ȏ q%!16 �
� � 0 : ș"Wimp_CloseDown" : �
��
��
�
���templates

� mainwindow% 1024

� windr% 1024

maxsize%=&400

"� mainwrk% maxsize%

,3ș "Wimp_OpenTemplate",,"<Snail$Dir>.Templates"

6Vș "Wimp_LoadTemplate",,mainwindow%+4,mainwrk%,mainwrk%+maxsize%,-1,"mainwindow",0

@�mainwindow%!28=-1

J3ș "Wimp_CreateWindow",,mainwindow%+4 � handle%

Twindr%=mainwindow%

^$(windr%+112)="snailr"

h-ș "Wimp_CreateWindow",,windr%+4 � handr%

r!mainwindow%=handle%

|!windr%=handr%

�ș "Wimp_CloseTemplate"

�%ș "Wimp_OpenWindow",,mainwindow%

��

�:

���closedown

�ș "Wimp_CloseDown"

��

��

�:

���redrawwindow(buffer%)

�#ș "Wimp_RedrawWindow",,buffer%

��

�:
��closewindow(buffer%)
"ș "Wimp_CloseWindow",,buffer%
�
&:
0��openwindow(buffer%)
:!ș "Wimp_OpenWindow",,buffer%
D�
N:
X��redraw
bsprite$ = "ptr_mouse"
l!icon%=handle%
v5icon%!4=0:icon%!8=-800:icon%!12=220:icon%!16=-600
�icon%!20=&4440009A
�$(icon%+24)=sprite$
�ș "Wimp_CreateIcon",,icon%
��
���movewindow
�
move=2
�
time=�
�� time-oldtime>6 �
�
�mouse
�Ȏ direct �
�	� 1 :
�� mainwindow%!12<!ptr% �
�@!mainwindow%=handr%:mainwindow%!4+=move:mainwindow%!12+=move
�
	� 2 :
� mainwindow%!4>!ptr% �
 A!mainwindow%=handle%:mainwindow%!4-=move:mainwindow%!12-=move
*�
4�
>
oldtime=�
Hmainwindow%!28=-2
R%ș "Wimp_OpenWindow",,mainwindow%
\�
f�
p��mouse
z!ș"Wimp_GetPointerInfo",,ptr%
�� !ptr%<mainwindow%!4 �
�2� direct=1 � ș"Wimp_CloseWindow",,mainwindow%
�direct=2
��
�� !ptr%>mainwindow%!12 �
�2� direct=2 � ș"Wimp_CloseWindow",,mainwindow%
�direct=1
��
��
�

00000000  0d 00 0a 11 f4 20 3e 20  21 52 75 6e 49 6d 61 67  |..... > !RunImag|
00000010  65 0d 00 14 13 f4 20 28  63 29 20 53 2e 42 65 6e  |e..... (c) S.Ben|
00000020  6e 65 74 74 0d 00 1e 15  de 20 70 74 72 25 20 32  |nett..... ptr% 2|
00000030  30 2c 71 25 20 26 31 30  30 0d 00 28 13 de 20 74  |0,q% &100..(.. t|
00000040  20 34 3a 24 74 3d 22 54  41 53 4b 22 0d 00 32 0c  | 4:$t="TASK"..2.|
00000050  64 69 72 65 63 74 3d 31  0d 00 3c 31 c8 99 20 22  |direct=1..<1.. "|
00000060  57 69 6d 70 5f 49 6e 69  74 69 61 6c 69 73 65 22  |Wimp_Initialise"|
00000070  2c 32 30 30 2c 21 74 2c  22 43 79 72 69 6c 20 74  |,200,!t,"Cyril t|
00000080  68 65 20 53 6e 61 69 6c  22 0d 00 46 0e f2 74 65  |he Snail"..F..te|
00000090  6d 70 6c 61 74 65 73 0d  00 50 0d 6f 6c 64 74 69  |mplates..P.oldti|
000000a0  6d 65 3d 91 0d 00 5a 05  f5 0d 00 64 21 c8 99 20  |me=...Z....d!.. |
000000b0  22 57 69 6d 70 5f 50 6f  6c 6c 22 2c 30 2c 71 25  |"Wimp_Poll",0,q%|
000000c0  20 b8 20 61 63 74 69 6f  6e 25 0d 00 6e 10 c8 8e  | . action%..n...|
000000d0  20 61 63 74 69 6f 6e 25  20 ca 0d 00 78 19 c9 20  | action% ...x.. |
000000e0  20 30 20 20 20 20 3a 20  f2 6d 6f 76 65 77 69 6e  | 0    : .movewin|
000000f0  64 6f 77 0d 00 82 1f c9  20 20 31 20 20 20 20 3a  |dow.....  1    :|
00000100  20 f2 72 65 64 72 61 77  77 69 6e 64 6f 77 28 71  | .redrawwindow(q|
00000110  25 29 0d 00 8c 1d c9 20  20 32 20 20 20 20 3a 20  |%).....  2    : |
00000120  f2 6f 70 65 6e 77 69 6e  64 6f 77 28 71 25 29 0d  |.openwindow(q%).|
00000130  00 96 1a c9 20 31 37 2c  31 38 20 3a 20 f2 6d 65  |.... 17,18 : .me|
00000140  73 73 61 67 65 28 71 25  29 0d 00 a0 05 cb 0d 00  |ssage(q%).......|
00000150  aa 07 fd 20 a3 0d 00 b4  04 0d 00 be 11 dd f2 6d  |... ...........m|
00000160  65 73 73 61 67 65 28 71  25 29 0d 00 c8 0e c8 8e  |essage(q%)......|
00000170  20 71 25 21 31 36 20 ca  0d 00 d2 20 c9 20 30 20  | q%!16 .... . 0 |
00000180  3a 20 c8 99 22 57 69 6d  70 5f 43 6c 6f 73 65 44  |: .."Wimp_CloseD|
00000190  6f 77 6e 22 20 3a 20 e0  0d 00 dc 05 cb 0d 00 e6  |own" : .........|
000001a0  05 e1 0d 00 f0 04 0d 00  fa 0f dd f2 74 65 6d 70  |............temp|
000001b0  6c 61 74 65 73 0d 01 04  16 de 20 6d 61 69 6e 77  |lates..... mainw|
000001c0  69 6e 64 6f 77 25 20 31  30 32 34 0d 01 0e 11 de  |indow% 1024.....|
000001d0  20 77 69 6e 64 72 25 20  31 30 32 34 0d 01 18 11  | windr% 1024....|
000001e0  6d 61 78 73 69 7a 65 25  3d 26 34 30 30 0d 01 22  |maxsize%=&400.."|
000001f0  17 de 20 6d 61 69 6e 77  72 6b 25 20 6d 61 78 73  |.. mainwrk% maxs|
00000200  69 7a 65 25 0d 01 2c 33  c8 99 20 22 57 69 6d 70  |ize%..,3.. "Wimp|
00000210  5f 4f 70 65 6e 54 65 6d  70 6c 61 74 65 22 2c 2c  |_OpenTemplate",,|
00000220  22 3c 53 6e 61 69 6c 24  44 69 72 3e 2e 54 65 6d  |"<Snail$Dir>.Tem|
00000230  70 6c 61 74 65 73 22 0d  01 36 56 c8 99 20 22 57  |plates"..6V.. "W|
00000240  69 6d 70 5f 4c 6f 61 64  54 65 6d 70 6c 61 74 65  |imp_LoadTemplate|
00000250  22 2c 2c 6d 61 69 6e 77  69 6e 64 6f 77 25 2b 34  |",,mainwindow%+4|
00000260  2c 6d 61 69 6e 77 72 6b  25 2c 6d 61 69 6e 77 72  |,mainwrk%,mainwr|
00000270  6b 25 2b 6d 61 78 73 69  7a 65 25 2c 2d 31 2c 22  |k%+maxsize%,-1,"|
00000280  6d 61 69 6e 77 69 6e 64  6f 77 22 2c 30 0d 01 40  |mainwindow",0..@|
00000290  16 f4 6d 61 69 6e 77 69  6e 64 6f 77 25 21 32 38  |..mainwindow%!28|
000002a0  3d 2d 31 0d 01 4a 33 c8  99 20 22 57 69 6d 70 5f  |=-1..J3.. "Wimp_|
000002b0  43 72 65 61 74 65 57 69  6e 64 6f 77 22 2c 2c 6d  |CreateWindow",,m|
000002c0  61 69 6e 77 69 6e 64 6f  77 25 2b 34 20 b8 20 68  |ainwindow%+4 . h|
000002d0  61 6e 64 6c 65 25 0d 01  54 16 77 69 6e 64 72 25  |andle%..T.windr%|
000002e0  3d 6d 61 69 6e 77 69 6e  64 6f 77 25 0d 01 5e 1a  |=mainwindow%..^.|
000002f0  24 28 77 69 6e 64 72 25  2b 31 31 32 29 3d 22 73  |$(windr%+112)="s|
00000300  6e 61 69 6c 72 22 0d 01  68 2d c8 99 20 22 57 69  |nailr"..h-.. "Wi|
00000310  6d 70 5f 43 72 65 61 74  65 57 69 6e 64 6f 77 22  |mp_CreateWindow"|
00000320  2c 2c 77 69 6e 64 72 25  2b 34 20 b8 20 68 61 6e  |,,windr%+4 . han|
00000330  64 72 25 0d 01 72 18 21  6d 61 69 6e 77 69 6e 64  |dr%..r.!mainwind|
00000340  6f 77 25 3d 68 61 6e 64  6c 65 25 0d 01 7c 12 21  |ow%=handle%..|.!|
00000350  77 69 6e 64 72 25 3d 68  61 6e 64 72 25 0d 01 86  |windr%=handr%...|
00000360  1b c8 99 20 22 57 69 6d  70 5f 43 6c 6f 73 65 54  |... "Wimp_CloseT|
00000370  65 6d 70 6c 61 74 65 22  0d 01 90 25 c8 99 20 22  |emplate"...%.. "|
00000380  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
00000390  2c 2c 6d 61 69 6e 77 69  6e 64 6f 77 25 0d 01 9a  |,,mainwindow%...|
000003a0  05 e1 0d 01 a4 05 3a 0d  01 ae 0f dd f2 63 6c 6f  |......:......clo|
000003b0  73 65 64 6f 77 6e 0d 01  b8 17 c8 99 20 22 57 69  |sedown...... "Wi|
000003c0  6d 70 5f 43 6c 6f 73 65  44 6f 77 6e 22 0d 01 c2  |mp_CloseDown"...|
000003d0  05 e0 0d 01 cc 05 e1 0d  01 d6 05 3a 0d 01 e0 1b  |...........:....|
000003e0  dd f2 72 65 64 72 61 77  77 69 6e 64 6f 77 28 62  |..redrawwindow(b|
000003f0  75 66 66 65 72 25 29 0d  01 ea 23 c8 99 20 22 57  |uffer%)...#.. "W|
00000400  69 6d 70 5f 52 65 64 72  61 77 57 69 6e 64 6f 77  |imp_RedrawWindow|
00000410  22 2c 2c 62 75 66 66 65  72 25 0d 01 f4 05 e1 0d  |",,buffer%......|
00000420  01 fe 05 3a 0d 02 08 1a  dd f2 63 6c 6f 73 65 77  |...:......closew|
00000430  69 6e 64 6f 77 28 62 75  66 66 65 72 25 29 0d 02  |indow(buffer%)..|
00000440  12 22 c8 99 20 22 57 69  6d 70 5f 43 6c 6f 73 65  |.".. "Wimp_Close|
00000450  57 69 6e 64 6f 77 22 2c  2c 62 75 66 66 65 72 25  |Window",,buffer%|
00000460  0d 02 1c 05 e1 0d 02 26  05 3a 0d 02 30 19 dd f2  |.......&.:..0...|
00000470  6f 70 65 6e 77 69 6e 64  6f 77 28 62 75 66 66 65  |openwindow(buffe|
00000480  72 25 29 0d 02 3a 21 c8  99 20 22 57 69 6d 70 5f  |r%)..:!.. "Wimp_|
00000490  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 62 75 66  |OpenWindow",,buf|
000004a0  66 65 72 25 0d 02 44 05  e1 0d 02 4e 05 3a 0d 02  |fer%..D....N.:..|
000004b0  58 0c dd f2 72 65 64 72  61 77 0d 02 62 19 73 70  |X...redraw..b.sp|
000004c0  72 69 74 65 24 20 3d 20  22 70 74 72 5f 6d 6f 75  |rite$ = "ptr_mou|
000004d0  73 65 22 0d 02 6c 12 21  69 63 6f 6e 25 3d 68 61  |se"..l.!icon%=ha|
000004e0  6e 64 6c 65 25 0d 02 76  35 69 63 6f 6e 25 21 34  |ndle%..v5icon%!4|
000004f0  3d 30 3a 69 63 6f 6e 25  21 38 3d 2d 38 30 30 3a  |=0:icon%!8=-800:|
00000500  69 63 6f 6e 25 21 31 32  3d 32 32 30 3a 69 63 6f  |icon%!12=220:ico|
00000510  6e 25 21 31 36 3d 2d 36  30 30 0d 02 80 16 69 63  |n%!16=-600....ic|
00000520  6f 6e 25 21 32 30 3d 26  34 34 34 30 30 30 39 41  |on%!20=&4440009A|
00000530  0d 02 8a 17 24 28 69 63  6f 6e 25 2b 32 34 29 3d  |....$(icon%+24)=|
00000540  73 70 72 69 74 65 24 0d  02 94 1f c8 99 20 22 57  |sprite$...... "W|
00000550  69 6d 70 5f 43 72 65 61  74 65 49 63 6f 6e 22 2c  |imp_CreateIcon",|
00000560  2c 69 63 6f 6e 25 0d 02  9e 05 e1 0d 02 a8 10 dd  |,icon%..........|
00000570  f2 6d 6f 76 65 77 69 6e  64 6f 77 0d 02 b2 0a 6d  |.movewindow....m|
00000580  6f 76 65 3d 32 0d 02 bc  0a 74 69 6d 65 3d 91 0d  |ove=2....time=..|
00000590  02 c6 16 e7 20 74 69 6d  65 2d 6f 6c 64 74 69 6d  |.... time-oldtim|
000005a0  65 3e 36 20 8c 0d 02 d0  0a f2 6d 6f 75 73 65 0d  |e>6 ......mouse.|
000005b0  02 da 0f c8 8e 20 64 69  72 65 63 74 20 ca 0d 02  |..... direct ...|
000005c0  e4 09 c9 20 31 20 3a 0d  02 ee 1c e7 20 6d 61 69  |... 1 :..... mai|
000005d0  6e 77 69 6e 64 6f 77 25  21 31 32 3c 21 70 74 72  |nwindow%!12<!ptr|
000005e0  25 20 8c 0d 02 f8 40 21  6d 61 69 6e 77 69 6e 64  |% ....@!mainwind|
000005f0  6f 77 25 3d 68 61 6e 64  72 25 3a 6d 61 69 6e 77  |ow%=handr%:mainw|
00000600  69 6e 64 6f 77 25 21 34  2b 3d 6d 6f 76 65 3a 6d  |indow%!4+=move:m|
00000610  61 69 6e 77 69 6e 64 6f  77 25 21 31 32 2b 3d 6d  |ainwindow%!12+=m|
00000620  6f 76 65 0d 03 02 05 cd  0d 03 0c 09 c9 20 32 20  |ove.......... 2 |
00000630  3a 0d 03 16 1b e7 20 6d  61 69 6e 77 69 6e 64 6f  |:..... mainwindo|
00000640  77 25 21 34 3e 21 70 74  72 25 20 8c 0d 03 20 41  |w%!4>!ptr% ... A|
00000650  21 6d 61 69 6e 77 69 6e  64 6f 77 25 3d 68 61 6e  |!mainwindow%=han|
00000660  64 6c 65 25 3a 6d 61 69  6e 77 69 6e 64 6f 77 25  |dle%:mainwindow%|
00000670  21 34 2d 3d 6d 6f 76 65  3a 6d 61 69 6e 77 69 6e  |!4-=move:mainwin|
00000680  64 6f 77 25 21 31 32 2d  3d 6d 6f 76 65 0d 03 2a  |dow%!12-=move..*|
00000690  05 cd 0d 03 34 05 cb 0d  03 3e 0d 6f 6c 64 74 69  |....4....>.oldti|
000006a0  6d 65 3d 91 0d 03 48 15  6d 61 69 6e 77 69 6e 64  |me=...H.mainwind|
000006b0  6f 77 25 21 32 38 3d 2d  32 0d 03 52 25 c8 99 20  |ow%!28=-2..R%.. |
000006c0  22 57 69 6d 70 5f 4f 70  65 6e 57 69 6e 64 6f 77  |"Wimp_OpenWindow|
000006d0  22 2c 2c 6d 61 69 6e 77  69 6e 64 6f 77 25 0d 03  |",,mainwindow%..|
000006e0  5c 05 cd 0d 03 66 05 e1  0d 03 70 0b dd f2 6d 6f  |\....f....p...mo|
000006f0  75 73 65 0d 03 7a 21 c8  99 22 57 69 6d 70 5f 47  |use..z!.."Wimp_G|
00000700  65 74 50 6f 69 6e 74 65  72 49 6e 66 6f 22 2c 2c  |etPointerInfo",,|
00000710  70 74 72 25 0d 03 84 1b  e7 20 21 70 74 72 25 3c  |ptr%..... !ptr%<|
00000720  6d 61 69 6e 77 69 6e 64  6f 77 25 21 34 20 8c 0d  |mainwindow%!4 ..|
00000730  03 8e 32 e7 20 64 69 72  65 63 74 3d 31 20 8c 20  |..2. direct=1 . |
00000740  c8 99 22 57 69 6d 70 5f  43 6c 6f 73 65 57 69 6e  |.."Wimp_CloseWin|
00000750  64 6f 77 22 2c 2c 6d 61  69 6e 77 69 6e 64 6f 77  |dow",,mainwindow|
00000760  25 0d 03 98 0c 64 69 72  65 63 74 3d 32 0d 03 a2  |%....direct=2...|
00000770  05 cd 0d 03 ac 1c e7 20  21 70 74 72 25 3e 6d 61  |....... !ptr%>ma|
00000780  69 6e 77 69 6e 64 6f 77  25 21 31 32 20 8c 0d 03  |inwindow%!12 ...|
00000790  b6 32 e7 20 64 69 72 65  63 74 3d 32 20 8c 20 c8  |.2. direct=2 . .|
000007a0  99 22 57 69 6d 70 5f 43  6c 6f 73 65 57 69 6e 64  |."Wimp_CloseWind|
000007b0  6f 77 22 2c 2c 6d 61 69  6e 77 69 6e 64 6f 77 25  |ow",,mainwindow%|
000007c0  0d 03 c0 0c 64 69 72 65  63 74 3d 31 0d 03 ca 05  |....direct=1....|
000007d0  cd 0d 03 d4 05 e1 0d ff                           |........|
000007d8