� ><STModFix$Dir>.!RunImage
� By C.Declerck

(� q% &100,errblk% &100
2
<� t 4:$t="TASK"
F*ș "Wimp_Initialise",200,!t,"STModFix"
P
Z
�menus
d�install
n
x8� � ș "Wimp_ReportError",�errblk(�,�$),1,"STModFix"
�
��
�" ș "Wimp_Poll",0,q% � action%
� Ȏ action% �
�  � 6: �mouse(q%)
�  � 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

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

6�

@�

J

T� �decodemenu(q%)

^Ȏ !q% �

h � 0: ș "Wimp_CloseDown":�

r�

|�

�

�� �message(q%)

�Ȏ q%!16 �

� � 0: ș "Wimp_CloseDown":�

�! � 3: �fixmod(�string(q%+44))

��

��

�

�� �fixmod(file$)

�� f

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

�f=�(file$)

��#f=471
�#f,�("x")
�#f
�
&
0� �install
:� sx%,sy%,sm%,px%,py%
Dsprite$="!STModFix"
Ntext$="STModFix"
X+� sprite% (�(sprite$)+1),text% �(text$)
b$sprite%="S"+sprite$
l$text%=text$
v4ș "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%
�q%!20=&1700210B
�q%!24=text%
�q%!28=sprite%
�q%!32=�(text$)
�"ș "Wimp_CreateIcon",,q% � !q%
��
�
�� �menus
� iconmenu% 28+1*24
$iconmenu%="STModFix"
iconmenu%?12=7
 iconmenu%?13=2
*iconmenu%?14=7
4iconmenu%?15=0
>"iconmenu%!16=�"STModFix"*16+12
Hiconmenu%!20=44
Riconmenu%!24=0
\iconmenu%!28=&80
ficonmenu%!32=-1
piconmenu%!36=&07000001
z$(iconmenu%+40)="Quit"
��
�
�� �string(a%)
�.� b$:b$="": ȕ ?a%<>0:b$+=�?a%:a%+=1:�:=b$
�
�� �errblk(err%,report$)
�5!errblk%=err%:$(errblk%+4)=report$+" at line "+Þ
�!errblk%?(4+�($(errblk%+4)))=0
�=errblk%
�
�

00000000  0d 00 0a 1f f4 20 3e 3c  53 54 4d 6f 64 46 69 78  |..... ><STModFix|
00000010  24 44 69 72 3e 2e 21 52  75 6e 49 6d 61 67 65 0d  |$Dir>.!RunImage.|
00000020  00 14 13 f4 20 42 79 20  43 2e 44 65 63 6c 65 72  |.... By C.Decler|
00000030  63 6b 0d 00 1e 04 0d 00  28 1a de 20 71 25 20 26  |ck......(.. q% &|
00000040  31 30 30 2c 65 72 72 62  6c 6b 25 20 26 31 30 30  |100,errblk% &100|
00000050  0d 00 32 04 0d 00 3c 13  de 20 74 20 34 3a 24 74  |..2...<.. t 4:$t|
00000060  3d 22 54 41 53 4b 22 0d  00 46 2a c8 99 20 22 57  |="TASK"..F*.. "W|
00000070  69 6d 70 5f 49 6e 69 74  69 61 6c 69 73 65 22 2c  |imp_Initialise",|
00000080  32 30 30 2c 21 74 2c 22  53 54 4d 6f 64 46 69 78  |200,!t,"STModFix|
00000090  22 0d 00 50 04 0d 00 5a  0a f2 6d 65 6e 75 73 0d  |"..P...Z..menus.|
000000a0  00 64 0c f2 69 6e 73 74  61 6c 6c 0d 00 6e 04 0d  |.d..install..n..|
000000b0  00 78 38 ee 20 85 20 c8  99 20 22 57 69 6d 70 5f  |.x8. . .. "Wimp_|
000000c0  52 65 70 6f 72 74 45 72  72 6f 72 22 2c a4 65 72  |ReportError",.er|
000000d0  72 62 6c 6b 28 9f 2c f6  24 29 2c 31 2c 22 53 54  |rblk(.,.$),1,"ST|
000000e0  4d 6f 64 46 69 78 22 0d  00 82 04 0d 00 8c 05 f5  |ModFix".........|
000000f0  0d 00 96 22 20 c8 99 20  22 57 69 6d 70 5f 50 6f  |..." .. "Wimp_Po|
00000100  6c 6c 22 2c 30 2c 71 25  20 b8 20 61 63 74 69 6f  |ll",0,q% . actio|
00000110  6e 25 0d 00 a0 11 20 c8  8e 20 61 63 74 69 6f 6e  |n%.... .. action|
00000120  25 20 ca 0d 00 aa 15 20  20 c9 20 36 3a 20 f2 6d  |% .....  . 6: .m|
00000130  6f 75 73 65 28 71 25 29  0d 00 b4 1a 20 20 c9 20  |ouse(q%)....  . |
00000140  39 3a 20 f2 64 65 63 6f  64 65 6d 65 6e 75 28 71  |9: .decodemenu(q|
00000150  25 29 0d 00 be 1b 20 20  c9 20 31 37 2c 31 38 3a  |%)....  . 17,18:|
00000160  20 f2 6d 65 73 73 61 67  65 28 71 25 29 0d 00 c8  | .message(q%)...|
00000170  06 20 cb 0d 00 d2 07 fd  20 a3 0d 00 dc 04 0d 00  |. ...... .......|
00000180  e6 10 dd 20 f2 6d 6f 75  73 65 28 71 25 29 0d 00  |... .mouse(q%)..|
00000190  f0 0c 6d 78 25 3d 71 25  21 30 0d 00 fa 0c 6d 79  |..mx%=q%!0....my|
000001a0  25 3d 71 25 21 34 0d 01  04 0c 6d 62 25 3d 71 25  |%=q%!4....mb%=q%|
000001b0  21 38 0d 01 0e 13 e7 20  71 25 21 31 32 3c 3e 2d  |!8..... q%!12<>-|
000001c0  32 20 8c 20 e1 0d 01 18  0c c8 8e 20 6d 62 25 20  |2 . ....... mb% |
000001d0  ca 0d 01 22 1b 20 c9 20  26 30 32 3a 20 6d 65 6e  |...". . &02: men|
000001e0  75 69 63 6f 6e 25 3d 71  25 21 31 36 0d 01 2c 41  |uicon%=q%!16..,A|
000001f0  20 20 c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |  .. "Wimp_Creat|
00000200  65 4d 65 6e 75 22 2c 2c  69 63 6f 6e 6d 65 6e 75  |eMenu",,iconmenu|
00000210  25 2c 6d 78 25 2d 69 63  6f 6e 6d 65 6e 75 25 21  |%,mx%-iconmenu%!|
00000220  31 36 2f 32 2d 32 34 2c  39 36 2b 34 34 0d 01 36  |16/2-24,96+44..6|
00000230  05 cb 0d 01 40 05 e1 0d  01 4a 04 0d 01 54 15 dd  |....@....J...T..|
00000240  20 f2 64 65 63 6f 64 65  6d 65 6e 75 28 71 25 29  | .decodemenu(q%)|
00000250  0d 01 5e 0c c8 8e 20 21  71 25 20 ca 0d 01 68 1f  |..^... !q% ...h.|
00000260  20 c9 20 30 3a 20 c8 99  20 22 57 69 6d 70 5f 43  | . 0: .. "Wimp_C|
00000270  6c 6f 73 65 44 6f 77 6e  22 3a e0 0d 01 72 05 cb  |loseDown":...r..|
00000280  0d 01 7c 05 e1 0d 01 86  04 0d 01 90 12 dd 20 f2  |..|........... .|
00000290  6d 65 73 73 61 67 65 28  71 25 29 0d 01 9a 0e c8  |message(q%).....|
000002a0  8e 20 71 25 21 31 36 20  ca 0d 01 a4 1f 20 c9 20  |. q%!16 ..... . |
000002b0  30 3a 20 c8 99 20 22 57  69 6d 70 5f 43 6c 6f 73  |0: .. "Wimp_Clos|
000002c0  65 44 6f 77 6e 22 3a e0  0d 01 ae 21 20 c9 20 33  |eDown":....! . 3|
000002d0  3a 20 f2 66 69 78 6d 6f  64 28 a4 73 74 72 69 6e  |: .fixmod(.strin|
000002e0  67 28 71 25 2b 34 34 29  29 0d 01 b8 05 cb 0d 01  |g(q%+44)).......|
000002f0  c2 05 e1 0d 01 cc 04 0d  01 d6 14 dd 20 f2 66 69  |............ .fi|
00000300  78 6d 6f 64 28 66 69 6c  65 24 29 0d 01 e0 07 ea  |xmod(file$).....|
00000310  20 66 0d 01 ea 37 71 25  21 31 32 3d 71 25 21 38  | f...7q%!12=q%!8|
00000320  3a 71 25 21 31 36 3d 34  3a c8 99 20 22 57 69 6d  |:q%!16=4:.. "Wim|
00000330  70 5f 53 65 6e 64 4d 65  73 73 61 67 65 22 2c 31  |p_SendMessage",1|
00000340  37 2c 71 25 2c 71 25 21  34 0d 01 f4 0e 66 3d ad  |7,q%,q%!4....f=.|
00000350  28 66 69 6c 65 24 29 0d  01 fe 0b cf 23 66 3d 34  |(file$).....#f=4|
00000360  37 31 0d 02 08 0e d5 23  66 2c 97 28 22 78 22 29  |71.....#f,.("x")|
00000370  0d 02 12 07 d9 23 66 0d  02 1c 05 e1 0d 02 26 04  |.....#f.......&.|
00000380  0d 02 30 0e dd 20 f2 69  6e 73 74 61 6c 6c 0d 02  |..0.. .install..|
00000390  3a 19 ea 20 73 78 25 2c  73 79 25 2c 73 6d 25 2c  |:.. sx%,sy%,sm%,|
000003a0  70 78 25 2c 70 79 25 0d  02 44 17 73 70 72 69 74  |px%,py%..D.sprit|
000003b0  65 24 3d 22 21 53 54 4d  6f 64 46 69 78 22 0d 02  |e$="!STModFix"..|
000003c0  4e 14 74 65 78 74 24 3d  22 53 54 4d 6f 64 46 69  |N.text$="STModFi|
000003d0  78 22 0d 02 58 2b de 20  73 70 72 69 74 65 25 20  |x"..X+. sprite% |
000003e0  28 a9 28 73 70 72 69 74  65 24 29 2b 31 29 2c 74  |(.(sprite$)+1),t|
000003f0  65 78 74 25 20 a9 28 74  65 78 74 24 29 0d 02 62  |ext% .(text$)..b|
00000400  18 24 73 70 72 69 74 65  25 3d 22 53 22 2b 73 70  |.$sprite%="S"+sp|
00000410  72 69 74 65 24 0d 02 6c  10 24 74 65 78 74 25 3d  |rite$..l.$text%=|
00000420  74 65 78 74 24 0d 02 76  34 c8 99 20 22 57 69 6d  |text$..v4.. "Wim|
00000430  70 5f 53 70 72 69 74 65  4f 70 22 2c 34 30 2c 2c  |p_SpriteOp",40,,|
00000440  73 70 72 69 74 65 24 20  b8 20 2c 2c 2c 73 78 25  |sprite$ . ,,,sx%|
00000450  2c 73 79 25 2c 2c 73 6d  25 0d 02 80 38 c8 99 20  |,sy%,,sm%...8.. |
00000460  22 4f 53 5f 52 65 61 64  4d 6f 64 65 56 61 72 69  |"OS_ReadModeVari|
00000470  61 62 6c 65 22 2c 73 6d  25 2c 34 20 b8 20 2c 2c  |able",sm%,4 . ,,|
00000480  70 78 25 3a 20 73 78 25  3d 73 78 25 3c 3c 70 78  |px%: sx%=sx%<<px|
00000490  25 0d 02 8a 38 c8 99 20  22 4f 53 5f 52 65 61 64  |%...8.. "OS_Read|
000004a0  4d 6f 64 65 56 61 72 69  61 62 6c 65 22 2c 73 6d  |ModeVariable",sm|
000004b0  25 2c 35 20 b8 20 2c 2c  70 79 25 3a 20 73 79 25  |%,5 . ,,py%: sy%|
000004c0  3d 73 79 25 3c 3c 70 79  25 0d 02 94 2b e7 20 a9  |=sy%<<py%...+. .|
000004d0  28 74 65 78 74 24 29 2a  31 36 3e 73 78 25 20 8c  |(text$)*16>sx% .|
000004e0  20 73 78 25 3d 28 a9 28  74 65 78 74 24 29 2d 34  | sx%=(.(text$)-4|
000004f0  29 2a 31 36 0d 02 9e 0a  21 71 25 3d 2d 31 0d 02  |)*16....!q%=-1..|
00000500  a8 2f 71 25 21 34 3d 30  3a 20 71 25 21 38 3d 2d  |./q%!4=0: q%!8=-|
00000510  36 34 3a 71 25 21 31 32  3d 71 25 21 34 2b 73 78  |64:q%!12=q%!4+sx|
00000520  25 3a 71 25 21 31 36 3d  32 2b 73 79 25 0d 02 b2  |%:q%!16=2+sy%...|
00000530  13 71 25 21 32 30 3d 26  31 37 30 30 32 31 30 42  |.q%!20=&1700210B|
00000540  0d 02 bc 0f 71 25 21 32  34 3d 74 65 78 74 25 0d  |....q%!24=text%.|
00000550  02 c6 11 71 25 21 32 38  3d 73 70 72 69 74 65 25  |...q%!28=sprite%|
00000560  0d 02 d0 12 71 25 21 33  32 3d a9 28 74 65 78 74  |....q%!32=.(text|
00000570  24 29 0d 02 da 22 c8 99  20 22 57 69 6d 70 5f 43  |$)...".. "Wimp_C|
00000580  72 65 61 74 65 49 63 6f  6e 22 2c 2c 71 25 20 b8  |reateIcon",,q% .|
00000590  20 21 71 25 0d 02 e4 05  e1 0d 02 ee 04 0d 02 f8  | !q%............|
000005a0  0c dd 20 f2 6d 65 6e 75  73 0d 03 02 17 de 20 69  |.. .menus..... i|
000005b0  63 6f 6e 6d 65 6e 75 25  20 32 38 2b 31 2a 32 34  |conmenu% 28+1*24|
000005c0  0d 03 0c 19 24 69 63 6f  6e 6d 65 6e 75 25 3d 22  |....$iconmenu%="|
000005d0  53 54 4d 6f 64 46 69 78  22 0d 03 16 12 69 63 6f  |STModFix"....ico|
000005e0  6e 6d 65 6e 75 25 3f 31  32 3d 37 0d 03 20 12 69  |nmenu%?12=7.. .i|
000005f0  63 6f 6e 6d 65 6e 75 25  3f 31 33 3d 32 0d 03 2a  |conmenu%?13=2..*|
00000600  12 69 63 6f 6e 6d 65 6e  75 25 3f 31 34 3d 37 0d  |.iconmenu%?14=7.|
00000610  03 34 12 69 63 6f 6e 6d  65 6e 75 25 3f 31 35 3d  |.4.iconmenu%?15=|
00000620  30 0d 03 3e 22 69 63 6f  6e 6d 65 6e 75 25 21 31  |0..>"iconmenu%!1|
00000630  36 3d a9 22 53 54 4d 6f  64 46 69 78 22 2a 31 36  |6=."STModFix"*16|
00000640  2b 31 32 0d 03 48 13 69  63 6f 6e 6d 65 6e 75 25  |+12..H.iconmenu%|
00000650  21 32 30 3d 34 34 0d 03  52 12 69 63 6f 6e 6d 65  |!20=44..R.iconme|
00000660  6e 75 25 21 32 34 3d 30  0d 03 5c 14 69 63 6f 6e  |nu%!24=0..\.icon|
00000670  6d 65 6e 75 25 21 32 38  3d 26 38 30 0d 03 66 13  |menu%!28=&80..f.|
00000680  69 63 6f 6e 6d 65 6e 75  25 21 33 32 3d 2d 31 0d  |iconmenu%!32=-1.|
00000690  03 70 1a 69 63 6f 6e 6d  65 6e 75 25 21 33 36 3d  |.p.iconmenu%!36=|
000006a0  26 30 37 30 30 30 30 30  31 0d 03 7a 1a 24 28 69  |&07000001..z.$(i|
000006b0  63 6f 6e 6d 65 6e 75 25  2b 34 30 29 3d 22 51 75  |conmenu%+40)="Qu|
000006c0  69 74 22 0d 03 84 05 e1  0d 03 8e 04 0d 03 98 11  |it".............|
000006d0  dd 20 a4 73 74 72 69 6e  67 28 61 25 29 0d 03 a2  |. .string(a%)...|
000006e0  2e ea 20 62 24 3a 62 24  3d 22 22 3a 20 c8 95 20  |.. b$:b$="": .. |
000006f0  3f 61 25 3c 3e 30 3a 62  24 2b 3d bd 3f 61 25 3a  |?a%<>0:b$+=.?a%:|
00000700  61 25 2b 3d 31 3a ce 3a  3d 62 24 0d 03 ac 04 0d  |a%+=1:.:=b$.....|
00000710  03 b6 1b dd 20 a4 65 72  72 62 6c 6b 28 65 72 72  |.... .errblk(err|
00000720  25 2c 72 65 70 6f 72 74  24 29 0d 03 c0 35 21 65  |%,report$)...5!e|
00000730  72 72 62 6c 6b 25 3d 65  72 72 25 3a 24 28 65 72  |rrblk%=err%:$(er|
00000740  72 62 6c 6b 25 2b 34 29  3d 72 65 70 6f 72 74 24  |rblk%+4)=report$|
00000750  2b 22 20 61 74 20 6c 69  6e 65 20 22 2b c3 9e 0d  |+" at line "+...|
00000760  03 ca 21 65 72 72 62 6c  6b 25 3f 28 34 2b a9 28  |..!errblk%?(4+.(|
00000770  24 28 65 72 72 62 6c 6b  25 2b 34 29 29 29 3d 30  |$(errblk%+4)))=0|
00000780  0d 03 d4 0c 3d 65 72 72  62 6c 6b 25 0d 03 de 04  |....=errblk%....|
00000790  0d ff                                             |..|
00000792