� ><SetModule$Dir>.!RunImage
� q% &100,errblk% &100

(2ș "Wimp_Initialise",200,&4B534154,"SetModule"
2
<
�menus
F�install
P
Z9� � ș "Wimp_ReportError",�errblk(�,�$),1,"SetModule"
d
n�
x" ș "Wimp_Poll",0,q% � action%
� Ȏ action% �
�  � 6: �mouse(q%)
�(  � 9: � !q%=0 ș "Wimp_CloseDown":�
�  � 17,18: �message(q%)
� �
�� �
�
�� �mouse(q%)
�mx%=q%!0
�my%=q%!4
�mb%=q%!8
�� q%!12<>-2 � �
�
� mb%=2 �

  menuicon%=q%!16

A  ș "Wimp_CreateMenu",,iconmenu%,mx%-iconmenu%!16/2-24,96+44

�

"�

,

6� �message(q%)

@Ȏ q%!16 �

J � 0: ș "Wimp_CloseDown":�

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

^�

h�

r

|� �settype(file$)

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

�� ("SetType "+file$+" CB6")

��

�

�� �install

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

�sprite$="!SetModule"

�text$="SetModule"

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

�$sprite%="S"+sprite$

�$text%=text$

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

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

!q%=-1
&/q%!4=0: q%!8=-64:q%!12=q%!4+sx%:q%!16=2+sy%
0q%!20=&1700210B
:q%!24=text%
Dq%!28=sprite%
Nq%!32=�(text$)
X"ș "Wimp_CreateIcon",,q% � !q%
b�
l
v� �menus
�� iconmenu% 28+1*24
�$iconmenu%="SetModule"
�iconmenu%?12=7
�iconmenu%?13=2
�iconmenu%?14=7
�iconmenu%?15=0
�#iconmenu%!16=�"SetModule"*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$)
>5!errblk%=err%:$(errblk%+4)=report$+" at line "+Þ
H!errblk%?(4+�($(errblk%+4)))=0
R=errblk%
\
�

00000000  0d 00 0a 20 f4 20 3e 3c  53 65 74 4d 6f 64 75 6c  |... . ><SetModul|
00000010  65 24 44 69 72 3e 2e 21  52 75 6e 49 6d 61 67 65  |e$Dir>.!RunImage|
00000020  0d 00 14 1a de 20 71 25  20 26 31 30 30 2c 65 72  |..... q% &100,er|
00000030  72 62 6c 6b 25 20 26 31  30 30 0d 00 1e 04 0d 00  |rblk% &100......|
00000040  28 32 c8 99 20 22 57 69  6d 70 5f 49 6e 69 74 69  |(2.. "Wimp_Initi|
00000050  61 6c 69 73 65 22 2c 32  30 30 2c 26 34 42 35 33  |alise",200,&4B53|
00000060  34 31 35 34 2c 22 53 65  74 4d 6f 64 75 6c 65 22  |4154,"SetModule"|
00000070  0d 00 32 04 0d 00 3c 0a  f2 6d 65 6e 75 73 0d 00  |..2...<..menus..|
00000080  46 0c f2 69 6e 73 74 61  6c 6c 0d 00 50 04 0d 00  |F..install..P...|
00000090  5a 39 ee 20 85 20 c8 99  20 22 57 69 6d 70 5f 52  |Z9. . .. "Wimp_R|
000000a0  65 70 6f 72 74 45 72 72  6f 72 22 2c a4 65 72 72  |eportError",.err|
000000b0  62 6c 6b 28 9f 2c f6 24  29 2c 31 2c 22 53 65 74  |blk(.,.$),1,"Set|
000000c0  4d 6f 64 75 6c 65 22 0d  00 64 04 0d 00 6e 05 f5  |Module"..d...n..|
000000d0  0d 00 78 22 20 c8 99 20  22 57 69 6d 70 5f 50 6f  |..x" .. "Wimp_Po|
000000e0  6c 6c 22 2c 30 2c 71 25  20 b8 20 61 63 74 69 6f  |ll",0,q% . actio|
000000f0  6e 25 0d 00 82 11 20 c8  8e 20 61 63 74 69 6f 6e  |n%.... .. action|
00000100  25 20 ca 0d 00 8c 15 20  20 c9 20 36 3a 20 f2 6d  |% .....  . 6: .m|
00000110  6f 75 73 65 28 71 25 29  0d 00 96 28 20 20 c9 20  |ouse(q%)...(  . |
00000120  39 3a 20 e7 20 21 71 25  3d 30 20 c8 99 20 22 57  |9: . !q%=0 .. "W|
00000130  69 6d 70 5f 43 6c 6f 73  65 44 6f 77 6e 22 3a e0  |imp_CloseDown":.|
00000140  0d 00 a0 1b 20 20 c9 20  31 37 2c 31 38 3a 20 f2  |....  . 17,18: .|
00000150  6d 65 73 73 61 67 65 28  71 25 29 0d 00 aa 06 20  |message(q%).... |
00000160  cb 0d 00 b4 07 fd 20 a3  0d 00 be 04 0d 00 c8 10  |...... .........|
00000170  dd 20 f2 6d 6f 75 73 65  28 71 25 29 0d 00 d2 0c  |. .mouse(q%)....|
00000180  6d 78 25 3d 71 25 21 30  0d 00 dc 0c 6d 79 25 3d  |mx%=q%!0....my%=|
00000190  71 25 21 34 0d 00 e6 0c  6d 62 25 3d 71 25 21 38  |q%!4....mb%=q%!8|
000001a0  0d 00 f0 13 e7 20 71 25  21 31 32 3c 3e 2d 32 20  |..... q%!12<>-2 |
000001b0  8c 20 e1 0d 00 fa 0d e7  20 6d 62 25 3d 32 20 8c  |. ...... mb%=2 .|
000001c0  0d 01 04 15 20 20 6d 65  6e 75 69 63 6f 6e 25 3d  |....  menuicon%=|
000001d0  71 25 21 31 36 0d 01 0e  41 20 20 c8 99 20 22 57  |q%!16...A  .. "W|
000001e0  69 6d 70 5f 43 72 65 61  74 65 4d 65 6e 75 22 2c  |imp_CreateMenu",|
000001f0  2c 69 63 6f 6e 6d 65 6e  75 25 2c 6d 78 25 2d 69  |,iconmenu%,mx%-i|
00000200  63 6f 6e 6d 65 6e 75 25  21 31 36 2f 32 2d 32 34  |conmenu%!16/2-24|
00000210  2c 39 36 2b 34 34 0d 01  18 05 cd 0d 01 22 05 e1  |,96+44......."..|
00000220  0d 01 2c 04 0d 01 36 12  dd 20 f2 6d 65 73 73 61  |..,...6.. .messa|
00000230  67 65 28 71 25 29 0d 01  40 0e c8 8e 20 71 25 21  |ge(q%)..@... q%!|
00000240  31 36 20 ca 0d 01 4a 1f  20 c9 20 30 3a 20 c8 99  |16 ...J. . 0: ..|
00000250  20 22 57 69 6d 70 5f 43  6c 6f 73 65 44 6f 77 6e  | "Wimp_CloseDown|
00000260  22 3a e0 0d 01 54 22 20  c9 20 33 3a 20 f2 73 65  |":...T" . 3: .se|
00000270  74 74 79 70 65 28 a4 73  74 72 69 6e 67 28 71 25  |ttype(.string(q%|
00000280  2b 34 34 29 29 0d 01 5e  05 cb 0d 01 68 05 e1 0d  |+44))..^....h...|
00000290  01 72 04 0d 01 7c 15 dd  20 f2 73 65 74 74 79 70  |.r...|.. .settyp|
000002a0  65 28 66 69 6c 65 24 29  0d 01 86 37 71 25 21 31  |e(file$)...7q%!1|
000002b0  32 3d 71 25 21 38 3a 71  25 21 31 36 3d 34 3a c8  |2=q%!8:q%!16=4:.|
000002c0  99 20 22 57 69 6d 70 5f  53 65 6e 64 4d 65 73 73  |. "Wimp_SendMess|
000002d0  61 67 65 22 2c 31 37 2c  71 25 2c 71 25 21 34 0d  |age",17,q%,q%!4.|
000002e0  01 90 1f ff 20 28 22 53  65 74 54 79 70 65 20 22  |.... ("SetType "|
000002f0  2b 66 69 6c 65 24 2b 22  20 43 42 36 22 29 0d 01  |+file$+" CB6")..|
00000300  9a 05 e1 0d 01 a4 04 0d  01 ae 0e dd 20 f2 69 6e  |............ .in|
00000310  73 74 61 6c 6c 0d 01 b8  19 ea 20 73 78 25 2c 73  |stall..... sx%,s|
00000320  79 25 2c 73 6d 25 2c 70  78 25 2c 70 79 25 0d 01  |y%,sm%,px%,py%..|
00000330  c2 18 73 70 72 69 74 65  24 3d 22 21 53 65 74 4d  |..sprite$="!SetM|
00000340  6f 64 75 6c 65 22 0d 01  cc 15 74 65 78 74 24 3d  |odule"....text$=|
00000350  22 53 65 74 4d 6f 64 75  6c 65 22 0d 01 d6 2b de  |"SetModule"...+.|
00000360  20 73 70 72 69 74 65 25  20 28 a9 28 73 70 72 69  | sprite% (.(spri|
00000370  74 65 24 29 2b 31 29 2c  74 65 78 74 25 20 a9 28  |te$)+1),text% .(|
00000380  74 65 78 74 24 29 0d 01  e0 18 24 73 70 72 69 74  |text$)....$sprit|
00000390  65 25 3d 22 53 22 2b 73  70 72 69 74 65 24 0d 01  |e%="S"+sprite$..|
000003a0  ea 10 24 74 65 78 74 25  3d 74 65 78 74 24 0d 01  |..$text%=text$..|
000003b0  f4 34 c8 99 20 22 57 69  6d 70 5f 53 70 72 69 74  |.4.. "Wimp_Sprit|
000003c0  65 4f 70 22 2c 34 30 2c  2c 73 70 72 69 74 65 24  |eOp",40,,sprite$|
000003d0  20 b8 20 2c 2c 2c 73 78  25 2c 73 79 25 2c 2c 73  | . ,,,sx%,sy%,,s|
000003e0  6d 25 0d 01 fe 38 c8 99  20 22 4f 53 5f 52 65 61  |m%...8.. "OS_Rea|
000003f0  64 4d 6f 64 65 56 61 72  69 61 62 6c 65 22 2c 73  |dModeVariable",s|
00000400  6d 25 2c 34 20 b8 20 2c  2c 70 78 25 3a 20 73 78  |m%,4 . ,,px%: sx|
00000410  25 3d 73 78 25 3c 3c 70  78 25 0d 02 08 38 c8 99  |%=sx%<<px%...8..|
00000420  20 22 4f 53 5f 52 65 61  64 4d 6f 64 65 56 61 72  | "OS_ReadModeVar|
00000430  69 61 62 6c 65 22 2c 73  6d 25 2c 35 20 b8 20 2c  |iable",sm%,5 . ,|
00000440  2c 70 79 25 3a 20 73 79  25 3d 73 79 25 3c 3c 70  |,py%: sy%=sy%<<p|
00000450  79 25 0d 02 12 2b e7 20  a9 28 74 65 78 74 24 29  |y%...+. .(text$)|
00000460  2a 31 36 3e 73 78 25 20  8c 20 73 78 25 3d 28 a9  |*16>sx% . sx%=(.|
00000470  28 74 65 78 74 24 29 2d  34 29 2a 31 36 0d 02 1c  |(text$)-4)*16...|
00000480  0a 21 71 25 3d 2d 31 0d  02 26 2f 71 25 21 34 3d  |.!q%=-1..&/q%!4=|
00000490  30 3a 20 71 25 21 38 3d  2d 36 34 3a 71 25 21 31  |0: q%!8=-64:q%!1|
000004a0  32 3d 71 25 21 34 2b 73  78 25 3a 71 25 21 31 36  |2=q%!4+sx%:q%!16|
000004b0  3d 32 2b 73 79 25 0d 02  30 13 71 25 21 32 30 3d  |=2+sy%..0.q%!20=|
000004c0  26 31 37 30 30 32 31 30  42 0d 02 3a 0f 71 25 21  |&1700210B..:.q%!|
000004d0  32 34 3d 74 65 78 74 25  0d 02 44 11 71 25 21 32  |24=text%..D.q%!2|
000004e0  38 3d 73 70 72 69 74 65  25 0d 02 4e 12 71 25 21  |8=sprite%..N.q%!|
000004f0  33 32 3d a9 28 74 65 78  74 24 29 0d 02 58 22 c8  |32=.(text$)..X".|
00000500  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 49 63  |. "Wimp_CreateIc|
00000510  6f 6e 22 2c 2c 71 25 20  b8 20 21 71 25 0d 02 62  |on",,q% . !q%..b|
00000520  05 e1 0d 02 6c 04 0d 02  76 0c dd 20 f2 6d 65 6e  |....l...v.. .men|
00000530  75 73 0d 02 80 17 de 20  69 63 6f 6e 6d 65 6e 75  |us..... iconmenu|
00000540  25 20 32 38 2b 31 2a 32  34 0d 02 8a 1a 24 69 63  |% 28+1*24....$ic|
00000550  6f 6e 6d 65 6e 75 25 3d  22 53 65 74 4d 6f 64 75  |onmenu%="SetModu|
00000560  6c 65 22 0d 02 94 12 69  63 6f 6e 6d 65 6e 75 25  |le"....iconmenu%|
00000570  3f 31 32 3d 37 0d 02 9e  12 69 63 6f 6e 6d 65 6e  |?12=7....iconmen|
00000580  75 25 3f 31 33 3d 32 0d  02 a8 12 69 63 6f 6e 6d  |u%?13=2....iconm|
00000590  65 6e 75 25 3f 31 34 3d  37 0d 02 b2 12 69 63 6f  |enu%?14=7....ico|
000005a0  6e 6d 65 6e 75 25 3f 31  35 3d 30 0d 02 bc 23 69  |nmenu%?15=0...#i|
000005b0  63 6f 6e 6d 65 6e 75 25  21 31 36 3d a9 22 53 65  |conmenu%!16=."Se|
000005c0  74 4d 6f 64 75 6c 65 22  2a 31 36 2b 31 32 0d 02  |tModule"*16+12..|
000005d0  c6 13 69 63 6f 6e 6d 65  6e 75 25 21 32 30 3d 34  |..iconmenu%!20=4|
000005e0  34 0d 02 d0 12 69 63 6f  6e 6d 65 6e 75 25 21 32  |4....iconmenu%!2|
000005f0  34 3d 30 0d 02 da 14 69  63 6f 6e 6d 65 6e 75 25  |4=0....iconmenu%|
00000600  21 32 38 3d 26 38 30 0d  02 e4 13 69 63 6f 6e 6d  |!28=&80....iconm|
00000610  65 6e 75 25 21 33 32 3d  2d 31 0d 02 ee 1a 69 63  |enu%!32=-1....ic|
00000620  6f 6e 6d 65 6e 75 25 21  33 36 3d 26 30 37 30 30  |onmenu%!36=&0700|
00000630  30 30 30 31 0d 02 f8 1a  24 28 69 63 6f 6e 6d 65  |0001....$(iconme|
00000640  6e 75 25 2b 34 30 29 3d  22 51 75 69 74 22 0d 03  |nu%+40)="Quit"..|
00000650  02 05 e1 0d 03 0c 04 0d  03 16 11 dd 20 a4 73 74  |............ .st|
00000660  72 69 6e 67 28 61 25 29  0d 03 20 2e ea 20 62 24  |ring(a%).. .. b$|
00000670  3a 62 24 3d 22 22 3a 20  c8 95 20 3f 61 25 3c 3e  |:b$="": .. ?a%<>|
00000680  30 3a 62 24 2b 3d bd 3f  61 25 3a 61 25 2b 3d 31  |0:b$+=.?a%:a%+=1|
00000690  3a ce 3a 3d 62 24 0d 03  2a 04 0d 03 34 1b dd 20  |:.:=b$..*...4.. |
000006a0  a4 65 72 72 62 6c 6b 28  65 72 72 25 2c 72 65 70  |.errblk(err%,rep|
000006b0  6f 72 74 24 29 0d 03 3e  35 21 65 72 72 62 6c 6b  |ort$)..>5!errblk|
000006c0  25 3d 65 72 72 25 3a 24  28 65 72 72 62 6c 6b 25  |%=err%:$(errblk%|
000006d0  2b 34 29 3d 72 65 70 6f  72 74 24 2b 22 20 61 74  |+4)=report$+" at|
000006e0  20 6c 69 6e 65 20 22 2b  c3 9e 0d 03 48 21 65 72  | line "+....H!er|
000006f0  72 62 6c 6b 25 3f 28 34  2b a9 28 24 28 65 72 72  |rblk%?(4+.($(err|
00000700  62 6c 6b 25 2b 34 29 29  29 3d 30 0d 03 52 0c 3d  |blk%+4)))=0..R.=|
00000710  65 72 72 62 6c 6b 25 0d  03 5c 04 0d ff           |errblk%..\...|
0000071d