� > <TextType$Dir>.!RUNIMAGE
� q% &100, errblk% &100
� t 4:$t="TASK"
(*ș "Wimp_Initialise",200,!t,"TextType"
2
�menus
<�installbin
F8� � ș"Wimp_ReportError", �errblk(�,�$),1,"TextType"
P�
Z!ș "Wimp_Poll",0,q% � action%
dȎ action% �
n� 6:�mouse(q%)
x� 9:�decodemenu(q%)
�� 17,18 :�message(q%)
��
�� �
�
���mouse(q%)
�mx%=q%!0
�my%=q%!4
�mb%=q%!8
�� q%!12<>-2 � �
�Ȏ mb% �
�� &02 : menuicon%=q%!16
�@ ș "Wimp_CreateMenu",,iconmenu%,mx%-iconmenu%!16/2-24,96+44
��

�

��decodemenu(q%)

Ȏ !q% �

"� 0: ș "Wimp_CloseDown":�

,�

6�

@��message(q%)

JȎ q%!16 �

T� 0 : ș "Wimp_CloseDown":�

^"� 3 : �settype(�string(q%+44))

h�

r�

|��settype(file$)

�7q%!12=q%!8:q%!16=4:ș "Wimp_SendMessage",17,q%,q%!4

��("*Settype "+file$+" FFF")

��

�

���installbin

�� sx%,sy%,sm%,px%,py%

�sprite$="!TextType"

�text$="SetType"

�+� sprite% (�(sprite$)+1),text% �(text$)

�>$sprite%="S"+sprite$ :� Validation string to define sprite

�$text%=text$

�4ș "Wimp_SpriteOp",40,,sprite$ � ,,,sx%,sy%,,sm%

�9ș "OS_ReadModeVariable",sm%,4 � ,,px% : sx%=sx%<<px%
9ș "OS_ReadModeVariable",sm%,5 � ,,py% : sy%=sy%<<py%
*� �(text$) *16 > sx% � sx%=�(text$)*16

!q%=-1
&/q%!4=0:q%!8=-16:q%!12=q%!4+sx%:q%!16=20+sy%
0q%!20=&1700310B
:q%!24=text%
Dq%!28=sprite%
Nq%!32=�(text$)
X"ș "Wimp_CreateIcon",,q% � !q%
b�
l
v��menus
�� iconmenu% 28+1*24
�$iconmenu% = "TextType"
�iconmenu%?12=7
�iconmenu%?13 = 2
�iconmenu%?14=7
�iconmenu%?15=0
� iconmenu%!16 = �"Quit"*16+12
�iconmenu%!20=44
�iconmenu%!24=0
�iconmenu%!28=&80
�iconmenu%!32=-1
�iconmenu%!36=&07000001
�$(iconmenu%+40)="Quit"
�

ݤstring(a%)
 -� b$:b$="":ȕ ?a%<>0:b$+=�?a%:a%+=1:�:=b$
*
4ݤerrblk(err%,report$)
>6!errblk%=err%:$(errblk%+4)=report$ +" at line "+Þ
Herrblk%?(4+�$(errblk%+4))=0
R=errblk%
\
f
�

00000000  0d 00 0a 20 f4 20 3e 20  3c 54 65 78 74 54 79 70  |... . > <TextTyp|
00000010  65 24 44 69 72 3e 2e 21  52 55 4e 49 4d 41 47 45  |e$Dir>.!RUNIMAGE|
00000020  0d 00 14 1b de 20 71 25  20 26 31 30 30 2c 20 65  |..... q% &100, e|
00000030  72 72 62 6c 6b 25 20 26  31 30 30 0d 00 1e 13 de  |rrblk% &100.....|
00000040  20 74 20 34 3a 24 74 3d  22 54 41 53 4b 22 0d 00  | t 4:$t="TASK"..|
00000050  28 2a c8 99 20 22 57 69  6d 70 5f 49 6e 69 74 69  |(*.. "Wimp_Initi|
00000060  61 6c 69 73 65 22 2c 32  30 30 2c 21 74 2c 22 54  |alise",200,!t,"T|
00000070  65 78 74 54 79 70 65 22  0d 00 32 0a f2 6d 65 6e  |extType"..2..men|
00000080  75 73 0d 00 3c 0f f2 69  6e 73 74 61 6c 6c 62 69  |us..<..installbi|
00000090  6e 0d 00 46 38 ee 20 85  20 c8 99 22 57 69 6d 70  |n..F8. . .."Wimp|
000000a0  5f 52 65 70 6f 72 74 45  72 72 6f 72 22 2c 20 a4  |_ReportError", .|
000000b0  65 72 72 62 6c 6b 28 9f  2c f6 24 29 2c 31 2c 22  |errblk(.,.$),1,"|
000000c0  54 65 78 74 54 79 70 65  22 0d 00 50 05 f5 0d 00  |TextType"..P....|
000000d0  5a 21 c8 99 20 22 57 69  6d 70 5f 50 6f 6c 6c 22  |Z!.. "Wimp_Poll"|
000000e0  2c 30 2c 71 25 20 b8 20  61 63 74 69 6f 6e 25 0d  |,0,q% . action%.|
000000f0  00 64 10 c8 8e 20 61 63  74 69 6f 6e 25 20 ca 0d  |.d... action% ..|
00000100  00 6e 12 c9 20 36 3a f2  6d 6f 75 73 65 28 71 25  |.n.. 6:.mouse(q%|
00000110  29 0d 00 78 17 c9 20 39  3a f2 64 65 63 6f 64 65  |)..x.. 9:.decode|
00000120  6d 65 6e 75 28 71 25 29  0d 00 82 19 c9 20 31 37  |menu(q%)..... 17|
00000130  2c 31 38 20 3a f2 6d 65  73 73 61 67 65 28 71 25  |,18 :.message(q%|
00000140  29 0d 00 8c 05 cb 0d 00  96 07 fd 20 a3 0d 00 a0  |).......... ....|
00000150  04 0d 00 aa 0f dd f2 6d  6f 75 73 65 28 71 25 29  |.......mouse(q%)|
00000160  0d 00 b4 0c 6d 78 25 3d  71 25 21 30 0d 00 be 0c  |....mx%=q%!0....|
00000170  6d 79 25 3d 71 25 21 34  0d 00 c8 0c 6d 62 25 3d  |my%=q%!4....mb%=|
00000180  71 25 21 38 0d 00 d2 13  e7 20 71 25 21 31 32 3c  |q%!8..... q%!12<|
00000190  3e 2d 32 20 8c 20 e1 0d  00 dc 0c c8 8e 20 6d 62  |>-2 . ....... mb|
000001a0  25 20 ca 0d 00 e6 1b c9  20 26 30 32 20 3a 20 6d  |% ...... &02 : m|
000001b0  65 6e 75 69 63 6f 6e 25  3d 71 25 21 31 36 0d 00  |enuicon%=q%!16..|
000001c0  f0 40 20 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |.@ .. "Wimp_Crea|
000001d0  74 65 4d 65 6e 75 22 2c  2c 69 63 6f 6e 6d 65 6e  |teMenu",,iconmen|
000001e0  75 25 2c 6d 78 25 2d 69  63 6f 6e 6d 65 6e 75 25  |u%,mx%-iconmenu%|
000001f0  21 31 36 2f 32 2d 32 34  2c 39 36 2b 34 34 0d 00  |!16/2-24,96+44..|
00000200  fa 05 cb 0d 01 04 05 e1  0d 01 0e 14 dd f2 64 65  |..............de|
00000210  63 6f 64 65 6d 65 6e 75  28 71 25 29 0d 01 18 0c  |codemenu(q%)....|
00000220  c8 8e 20 21 71 25 20 ca  0d 01 22 1e c9 20 30 3a  |.. !q% ...".. 0:|
00000230  20 c8 99 20 22 57 69 6d  70 5f 43 6c 6f 73 65 44  | .. "Wimp_CloseD|
00000240  6f 77 6e 22 3a e0 0d 01  2c 05 cb 0d 01 36 05 e1  |own":...,....6..|
00000250  0d 01 40 11 dd f2 6d 65  73 73 61 67 65 28 71 25  |..@...message(q%|
00000260  29 0d 01 4a 0e c8 8e 20  71 25 21 31 36 20 ca 0d  |)..J... q%!16 ..|
00000270  01 54 1f c9 20 30 20 3a  20 c8 99 20 22 57 69 6d  |.T.. 0 : .. "Wim|
00000280  70 5f 43 6c 6f 73 65 44  6f 77 6e 22 3a e0 0d 01  |p_CloseDown":...|
00000290  5e 22 c9 20 33 20 3a 20  f2 73 65 74 74 79 70 65  |^". 3 : .settype|
000002a0  28 a4 73 74 72 69 6e 67  28 71 25 2b 34 34 29 29  |(.string(q%+44))|
000002b0  0d 01 68 05 cb 0d 01 72  05 e1 0d 01 7c 14 dd f2  |..h....r....|...|
000002c0  73 65 74 74 79 70 65 28  66 69 6c 65 24 29 0d 01  |settype(file$)..|
000002d0  86 37 71 25 21 31 32 3d  71 25 21 38 3a 71 25 21  |.7q%!12=q%!8:q%!|
000002e0  31 36 3d 34 3a c8 99 20  22 57 69 6d 70 5f 53 65  |16=4:.. "Wimp_Se|
000002f0  6e 64 4d 65 73 73 61 67  65 22 2c 31 37 2c 71 25  |ndMessage",17,q%|
00000300  2c 71 25 21 34 0d 01 90  1f ff 28 22 2a 53 65 74  |,q%!4.....("*Set|
00000310  74 79 70 65 20 22 2b 66  69 6c 65 24 2b 22 20 46  |type "+file$+" F|
00000320  46 46 22 29 0d 01 9a 05  e1 0d 01 a4 04 0d 01 ae  |FF")............|
00000330  10 dd f2 69 6e 73 74 61  6c 6c 62 69 6e 0d 01 b8  |...installbin...|
00000340  19 ea 20 73 78 25 2c 73  79 25 2c 73 6d 25 2c 70  |.. sx%,sy%,sm%,p|
00000350  78 25 2c 70 79 25 0d 01  c2 17 73 70 72 69 74 65  |x%,py%....sprite|
00000360  24 3d 22 21 54 65 78 74  54 79 70 65 22 0d 01 cc  |$="!TextType"...|
00000370  13 74 65 78 74 24 3d 22  53 65 74 54 79 70 65 22  |.text$="SetType"|
00000380  0d 01 d6 2b de 20 73 70  72 69 74 65 25 20 28 a9  |...+. sprite% (.|
00000390  28 73 70 72 69 74 65 24  29 2b 31 29 2c 74 65 78  |(sprite$)+1),tex|
000003a0  74 25 20 a9 28 74 65 78  74 24 29 0d 01 e0 3e 24  |t% .(text$)...>$|
000003b0  73 70 72 69 74 65 25 3d  22 53 22 2b 73 70 72 69  |sprite%="S"+spri|
000003c0  74 65 24 20 3a f4 20 56  61 6c 69 64 61 74 69 6f  |te$ :. Validatio|
000003d0  6e 20 73 74 72 69 6e 67  20 74 6f 20 64 65 66 69  |n string to defi|
000003e0  6e 65 20 73 70 72 69 74  65 0d 01 ea 10 24 74 65  |ne sprite....$te|
000003f0  78 74 25 3d 74 65 78 74  24 0d 01 f4 34 c8 99 20  |xt%=text$...4.. |
00000400  22 57 69 6d 70 5f 53 70  72 69 74 65 4f 70 22 2c  |"Wimp_SpriteOp",|
00000410  34 30 2c 2c 73 70 72 69  74 65 24 20 b8 20 2c 2c  |40,,sprite$ . ,,|
00000420  2c 73 78 25 2c 73 79 25  2c 2c 73 6d 25 0d 01 fe  |,sx%,sy%,,sm%...|
00000430  39 c8 99 20 22 4f 53 5f  52 65 61 64 4d 6f 64 65  |9.. "OS_ReadMode|
00000440  56 61 72 69 61 62 6c 65  22 2c 73 6d 25 2c 34 20  |Variable",sm%,4 |
00000450  b8 20 2c 2c 70 78 25 20  3a 20 73 78 25 3d 73 78  |. ,,px% : sx%=sx|
00000460  25 3c 3c 70 78 25 0d 02  08 39 c8 99 20 22 4f 53  |%<<px%...9.. "OS|
00000470  5f 52 65 61 64 4d 6f 64  65 56 61 72 69 61 62 6c  |_ReadModeVariabl|
00000480  65 22 2c 73 6d 25 2c 35  20 b8 20 2c 2c 70 79 25  |e",sm%,5 . ,,py%|
00000490  20 3a 20 73 79 25 3d 73  79 25 3c 3c 70 79 25 0d  | : sy%=sy%<<py%.|
000004a0  02 12 2a e7 20 a9 28 74  65 78 74 24 29 20 2a 31  |..*. .(text$) *1|
000004b0  36 20 3e 20 73 78 25 20  8c 20 73 78 25 3d a9 28  |6 > sx% . sx%=.(|
000004c0  74 65 78 74 24 29 2a 31  36 0d 02 1c 0a 21 71 25  |text$)*16....!q%|
000004d0  3d 2d 31 0d 02 26 2f 71  25 21 34 3d 30 3a 71 25  |=-1..&/q%!4=0:q%|
000004e0  21 38 3d 2d 31 36 3a 71  25 21 31 32 3d 71 25 21  |!8=-16:q%!12=q%!|
000004f0  34 2b 73 78 25 3a 71 25  21 31 36 3d 32 30 2b 73  |4+sx%:q%!16=20+s|
00000500  79 25 0d 02 30 13 71 25  21 32 30 3d 26 31 37 30  |y%..0.q%!20=&170|
00000510  30 33 31 30 42 0d 02 3a  0f 71 25 21 32 34 3d 74  |0310B..:.q%!24=t|
00000520  65 78 74 25 0d 02 44 11  71 25 21 32 38 3d 73 70  |ext%..D.q%!28=sp|
00000530  72 69 74 65 25 0d 02 4e  12 71 25 21 33 32 3d a9  |rite%..N.q%!32=.|
00000540  28 74 65 78 74 24 29 0d  02 58 22 c8 99 20 22 57  |(text$)..X".. "W|
00000550  69 6d 70 5f 43 72 65 61  74 65 49 63 6f 6e 22 2c  |imp_CreateIcon",|
00000560  2c 71 25 20 b8 20 21 71  25 0d 02 62 05 e1 0d 02  |,q% . !q%..b....|
00000570  6c 04 0d 02 76 0b dd f2  6d 65 6e 75 73 0d 02 80  |l...v...menus...|
00000580  17 de 20 69 63 6f 6e 6d  65 6e 75 25 20 32 38 2b  |.. iconmenu% 28+|
00000590  31 2a 32 34 0d 02 8a 1b  24 69 63 6f 6e 6d 65 6e  |1*24....$iconmen|
000005a0  75 25 20 3d 20 22 54 65  78 74 54 79 70 65 22 0d  |u% = "TextType".|
000005b0  02 94 12 69 63 6f 6e 6d  65 6e 75 25 3f 31 32 3d  |...iconmenu%?12=|
000005c0  37 0d 02 9e 14 69 63 6f  6e 6d 65 6e 75 25 3f 31  |7....iconmenu%?1|
000005d0  33 20 3d 20 32 0d 02 a8  12 69 63 6f 6e 6d 65 6e  |3 = 2....iconmen|
000005e0  75 25 3f 31 34 3d 37 0d  02 b2 12 69 63 6f 6e 6d  |u%?14=7....iconm|
000005f0  65 6e 75 25 3f 31 35 3d  30 0d 02 bc 20 69 63 6f  |enu%?15=0... ico|
00000600  6e 6d 65 6e 75 25 21 31  36 20 3d 20 a9 22 51 75  |nmenu%!16 = ."Qu|
00000610  69 74 22 2a 31 36 2b 31  32 0d 02 c6 13 69 63 6f  |it"*16+12....ico|
00000620  6e 6d 65 6e 75 25 21 32  30 3d 34 34 0d 02 d0 12  |nmenu%!20=44....|
00000630  69 63 6f 6e 6d 65 6e 75  25 21 32 34 3d 30 0d 02  |iconmenu%!24=0..|
00000640  da 14 69 63 6f 6e 6d 65  6e 75 25 21 32 38 3d 26  |..iconmenu%!28=&|
00000650  38 30 0d 02 e4 13 69 63  6f 6e 6d 65 6e 75 25 21  |80....iconmenu%!|
00000660  33 32 3d 2d 31 0d 02 ee  1a 69 63 6f 6e 6d 65 6e  |32=-1....iconmen|
00000670  75 25 21 33 36 3d 26 30  37 30 30 30 30 30 31 0d  |u%!36=&07000001.|
00000680  02 f8 1a 24 28 69 63 6f  6e 6d 65 6e 75 25 2b 34  |...$(iconmenu%+4|
00000690  30 29 3d 22 51 75 69 74  22 0d 03 02 05 e1 0d 03  |0)="Quit".......|
000006a0  0c 04 0d 03 16 10 dd a4  73 74 72 69 6e 67 28 61  |........string(a|
000006b0  25 29 0d 03 20 2d ea 20  62 24 3a 62 24 3d 22 22  |%).. -. b$:b$=""|
000006c0  3a c8 95 20 3f 61 25 3c  3e 30 3a 62 24 2b 3d bd  |:.. ?a%<>0:b$+=.|
000006d0  3f 61 25 3a 61 25 2b 3d  31 3a ce 3a 3d 62 24 0d  |?a%:a%+=1:.:=b$.|
000006e0  03 2a 04 0d 03 34 1a dd  a4 65 72 72 62 6c 6b 28  |.*...4...errblk(|
000006f0  65 72 72 25 2c 72 65 70  6f 72 74 24 29 0d 03 3e  |err%,report$)..>|
00000700  36 21 65 72 72 62 6c 6b  25 3d 65 72 72 25 3a 24  |6!errblk%=err%:$|
00000710  28 65 72 72 62 6c 6b 25  2b 34 29 3d 72 65 70 6f  |(errblk%+4)=repo|
00000720  72 74 24 20 2b 22 20 61  74 20 6c 69 6e 65 20 22  |rt$ +" at line "|
00000730  2b c3 9e 0d 03 48 1f 65  72 72 62 6c 6b 25 3f 28  |+....H.errblk%?(|
00000740  34 2b a9 24 28 65 72 72  62 6c 6b 25 2b 34 29 29  |4+.$(errblk%+4))|
00000750  3d 30 0d 03 52 0c 3d 65  72 72 62 6c 6b 25 0d 03  |=0..R.=errblk%..|
00000760  5c 04 0d 03 66 04 0d ff                           |\...f...|
00000768