� ><TurboROMs$Dir>.!RunImage
-� TurboROMs version 1.10 29th August 1991
� by Dave Thomas 1991
(:
2C� window% 640,icon% 480,block% 256,menu% 240,errblk% 64,task% 4
<iconbar%=-2
F$task%="TASK"
P;ș "Wimp_Initialise",200,!task%,"Rom Speeder" � ,taskh%
Z	�init
d
� �error
n:
x�
�$ș "Wimp_Poll",,block% � reason%
�Ȏ reason% �
�� 1:�redraw
�$� 2:ș "Wimp_OpenWindow",,block%
�#� 3:� block%!0=info% menu%!28=0
�(       ș "Wimp_CloseWindow",,block%
�� 6:�mouse
�� 8:�key
�� 9:�handlemenu
�� 17,18:�message
��
�� �
�:

� �mouse

Ȏ block%!12 �

� iconbar%:

"Ȏ block%!16 �

,� iconhand%:

6Ȏ block%!8 �

@� 4:

J!block%=controller%

T$ș "Wimp_GetWindowState",,block%

^block%!28=-1

h ș "Wimp_OpenWindow",,block%

r� 2:�menu(0)

|�

��

�� controller%:

�Ȏ block%!8 �

�� 2:

��menu(1)

��

�Ȏ block%!16 �

�� 2:

�Ȏ block%!8 �

�!� 4,1:ș "OS_UpdateMEMC",0,64

��

�� 3:

�Ȏ block%!8 �
"� 4,1:ș "OS_UpdateMEMC",64,64
�
�
&�
0�
::
D� �menu(type%)
Nmousex%=block%!0
Xmousey%=block%!4
bȎ type% �
l� 0:
v9ș "Wimp_CreateMenu",,menu%,mousex%-menu%!16/2-24,184
�� 1:
�=ș "Wimp_CreateMenu",,menu%,mousex%-menu%!16/2-24,mousey%
��
��
�:
�� �handlemenu
�Ȏ block%!0 �
�� 0:!block%=info%
�+       ș "Wimp_GetWindowState",,block%
�       block%!28=-1
�'       ș "Wimp_OpenWindow",,block%
�       menu%!28=1
�� 1:ș "Wimp_CloseDown":�
�
�
:
 
� �redraw
**ș "Wimp_RedrawWindow",,block% � more%
4ȕ more%
>"ș "Wimp_BorderWindow",,block%
H*ș "Wimp_GetRectangle",,block% � more%
R�
\�
f:
p� �message
zȎ block%!16 �
�� 0:
�        ș "Wimp_CloseDown":�
��
��
�:
�� �error
�4!errblk%=�:$(errblk%+4)=�$+" at line "+�(�)+�(0)
�<ș "Wimp_ReportError",errblk%,3,"Rom Speeder" � errbuts%
�&� errbuts%=2 ș "Wimp_CloseDown":�
��
�:
�� �init
�!block%=-1
block%!4=0
block%!8=0
block%!12=68
$block%!16=68
.block%!20=&3002
8$(block%+24)="!TurboROMs"
B,ș "Wimp_CreateIcon",,block% � iconhand%
L'� ---------------------------------
V7ș "Wimp_OpenTemplate",,"<TurboROMs$Dir>.Templates"
`Bș "Wimp_LoadTemplate",,window%,icon%,icon%+228,-1,"infobox",0
j+ș "Wimp_CreateWindow",,window% � info%
tIș "Wimp_LoadTemplate",,window%,icon%+232,icon%+480,-1,"controller",0
~1ș "Wimp_CreateWindow",,window% � controller%
�ș "Wimp_CloseTemplate"
�'� ---------------------------------
�,�("Load <TurboROMs$Dir>.Menus "+�~menu%)
�menu%!32=info%
��
�

00000000  0d 00 0a 20 f4 20 3e 3c  54 75 72 62 6f 52 4f 4d  |... . ><TurboROM|
00000010  73 24 44 69 72 3e 2e 21  52 75 6e 49 6d 61 67 65  |s$Dir>.!RunImage|
00000020  0d 00 14 2d f4 20 54 75  72 62 6f 52 4f 4d 73 20  |...-. TurboROMs |
00000030  76 65 72 73 69 6f 6e 20  31 2e 31 30 20 32 39 74  |version 1.10 29t|
00000040  68 20 41 75 67 75 73 74  20 31 39 39 31 0d 00 1e  |h August 1991...|
00000050  19 f4 20 62 79 20 44 61  76 65 20 54 68 6f 6d 61  |.. by Dave Thoma|
00000060  73 20 31 39 39 31 0d 00  28 05 3a 0d 00 32 43 de  |s 1991..(.:..2C.|
00000070  20 77 69 6e 64 6f 77 25  20 36 34 30 2c 69 63 6f  | window% 640,ico|
00000080  6e 25 20 34 38 30 2c 62  6c 6f 63 6b 25 20 32 35  |n% 480,block% 25|
00000090  36 2c 6d 65 6e 75 25 20  32 34 30 2c 65 72 72 62  |6,menu% 240,errb|
000000a0  6c 6b 25 20 36 34 2c 74  61 73 6b 25 20 34 0d 00  |lk% 64,task% 4..|
000000b0  3c 0f 69 63 6f 6e 62 61  72 25 3d 2d 32 0d 00 46  |<.iconbar%=-2..F|
000000c0  11 24 74 61 73 6b 25 3d  22 54 41 53 4b 22 0d 00  |.$task%="TASK"..|
000000d0  50 3b c8 99 20 22 57 69  6d 70 5f 49 6e 69 74 69  |P;.. "Wimp_Initi|
000000e0  61 6c 69 73 65 22 2c 32  30 30 2c 21 74 61 73 6b  |alise",200,!task|
000000f0  25 2c 22 52 6f 6d 20 53  70 65 65 64 65 72 22 20  |%,"Rom Speeder" |
00000100  b8 20 2c 74 61 73 6b 68  25 0d 00 5a 09 f2 69 6e  |. ,taskh%..Z..in|
00000110  69 74 0d 00 64 0d ee 85  20 f2 65 72 72 6f 72 0d  |it..d... .error.|
00000120  00 6e 05 3a 0d 00 78 05  f5 0d 00 82 24 c8 99 20  |.n.:..x.....$.. |
00000130  22 57 69 6d 70 5f 50 6f  6c 6c 22 2c 2c 62 6c 6f  |"Wimp_Poll",,blo|
00000140  63 6b 25 20 b8 20 72 65  61 73 6f 6e 25 0d 00 8c  |ck% . reason%...|
00000150  10 c8 8e 20 72 65 61 73  6f 6e 25 20 ca 0d 00 96  |... reason% ....|
00000160  0f c9 20 31 3a f2 72 65  64 72 61 77 0d 00 a0 24  |.. 1:.redraw...$|
00000170  c9 20 32 3a c8 99 20 22  57 69 6d 70 5f 4f 70 65  |. 2:.. "Wimp_Ope|
00000180  6e 57 69 6e 64 6f 77 22  2c 2c 62 6c 6f 63 6b 25  |nWindow",,block%|
00000190  0d 00 aa 23 c9 20 33 3a  e7 20 62 6c 6f 63 6b 25  |...#. 3:. block%|
000001a0  21 30 3d 69 6e 66 6f 25  20 6d 65 6e 75 25 21 32  |!0=info% menu%!2|
000001b0  38 3d 30 0d 00 b4 28 20  20 20 20 20 20 20 c8 99  |8=0...(       ..|
000001c0  20 22 57 69 6d 70 5f 43  6c 6f 73 65 57 69 6e 64  | "Wimp_CloseWind|
000001d0  6f 77 22 2c 2c 62 6c 6f  63 6b 25 0d 00 be 0e c9  |ow",,block%.....|
000001e0  20 36 3a f2 6d 6f 75 73  65 0d 00 c8 0c c9 20 38  | 6:.mouse..... 8|
000001f0  3a f2 6b 65 79 0d 00 d2  13 c9 20 39 3a f2 68 61  |:.key..... 9:.ha|
00000200  6e 64 6c 65 6d 65 6e 75  0d 00 dc 14 c9 20 31 37  |ndlemenu..... 17|
00000210  2c 31 38 3a f2 6d 65 73  73 61 67 65 0d 00 e6 05  |,18:.message....|
00000220  cb 0d 00 f0 07 fd 20 a3  0d 00 fa 05 3a 0d 01 04  |...... .....:...|
00000230  0c dd 20 f2 6d 6f 75 73  65 0d 01 0e 12 c8 8e 20  |.. .mouse...... |
00000240  62 6c 6f 63 6b 25 21 31  32 20 ca 0d 01 18 0f c9  |block%!12 ......|
00000250  20 69 63 6f 6e 62 61 72  25 3a 0d 01 22 12 c8 8e  | iconbar%:.."...|
00000260  20 62 6c 6f 63 6b 25 21  31 36 20 ca 0d 01 2c 10  | block%!16 ...,.|
00000270  c9 20 69 63 6f 6e 68 61  6e 64 25 3a 0d 01 36 11  |. iconhand%:..6.|
00000280  c8 8e 20 62 6c 6f 63 6b  25 21 38 20 ca 0d 01 40  |.. block%!8 ...@|
00000290  08 c9 20 34 3a 0d 01 4a  17 21 62 6c 6f 63 6b 25  |.. 4:..J.!block%|
000002a0  3d 63 6f 6e 74 72 6f 6c  6c 65 72 25 0d 01 54 24  |=controller%..T$|
000002b0  c8 99 20 22 57 69 6d 70  5f 47 65 74 57 69 6e 64  |.. "Wimp_GetWind|
000002c0  6f 77 53 74 61 74 65 22  2c 2c 62 6c 6f 63 6b 25  |owState",,block%|
000002d0  0d 01 5e 10 62 6c 6f 63  6b 25 21 32 38 3d 2d 31  |..^.block%!28=-1|
000002e0  0d 01 68 20 c8 99 20 22  57 69 6d 70 5f 4f 70 65  |..h .. "Wimp_Ope|
000002f0  6e 57 69 6e 64 6f 77 22  2c 2c 62 6c 6f 63 6b 25  |nWindow",,block%|
00000300  0d 01 72 10 c9 20 32 3a  f2 6d 65 6e 75 28 30 29  |..r.. 2:.menu(0)|
00000310  0d 01 7c 05 cb 0d 01 86  05 cb 0d 01 90 12 c9 20  |..|............ |
00000320  63 6f 6e 74 72 6f 6c 6c  65 72 25 3a 0d 01 9a 11  |controller%:....|
00000330  c8 8e 20 62 6c 6f 63 6b  25 21 38 20 ca 0d 01 a4  |.. block%!8 ....|
00000340  08 c9 20 32 3a 0d 01 ae  0c f2 6d 65 6e 75 28 31  |.. 2:.....menu(1|
00000350  29 0d 01 b8 05 cb 0d 01  c2 12 c8 8e 20 62 6c 6f  |)........... blo|
00000360  63 6b 25 21 31 36 20 ca  0d 01 cc 08 c9 20 32 3a  |ck%!16 ...... 2:|
00000370  0d 01 d6 11 c8 8e 20 62  6c 6f 63 6b 25 21 38 20  |...... block%!8 |
00000380  ca 0d 01 e0 21 c9 20 34  2c 31 3a c8 99 20 22 4f  |....!. 4,1:.. "O|
00000390  53 5f 55 70 64 61 74 65  4d 45 4d 43 22 2c 30 2c  |S_UpdateMEMC",0,|
000003a0  36 34 0d 01 ea 05 cb 0d  01 f4 08 c9 20 33 3a 0d  |64.......... 3:.|
000003b0  01 fe 11 c8 8e 20 62 6c  6f 63 6b 25 21 38 20 ca  |..... block%!8 .|
000003c0  0d 02 08 22 c9 20 34 2c  31 3a c8 99 20 22 4f 53  |...". 4,1:.. "OS|
000003d0  5f 55 70 64 61 74 65 4d  45 4d 43 22 2c 36 34 2c  |_UpdateMEMC",64,|
000003e0  36 34 0d 02 12 05 cb 0d  02 1c 05 cb 0d 02 26 05  |64............&.|
000003f0  cb 0d 02 30 05 e1 0d 02  3a 05 3a 0d 02 44 12 dd  |...0....:.:..D..|
00000400  20 f2 6d 65 6e 75 28 74  79 70 65 25 29 0d 02 4e  | .menu(type%)..N|
00000410  14 6d 6f 75 73 65 78 25  3d 62 6c 6f 63 6b 25 21  |.mousex%=block%!|
00000420  30 0d 02 58 14 6d 6f 75  73 65 79 25 3d 62 6c 6f  |0..X.mousey%=blo|
00000430  63 6b 25 21 34 0d 02 62  0e c8 8e 20 74 79 70 65  |ck%!4..b... type|
00000440  25 20 ca 0d 02 6c 08 c9  20 30 3a 0d 02 76 39 c8  |% ...l.. 0:..v9.|
00000450  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |. "Wimp_CreateMe|
00000460  6e 75 22 2c 2c 6d 65 6e  75 25 2c 6d 6f 75 73 65  |nu",,menu%,mouse|
00000470  78 25 2d 6d 65 6e 75 25  21 31 36 2f 32 2d 32 34  |x%-menu%!16/2-24|
00000480  2c 31 38 34 0d 02 80 08  c9 20 31 3a 0d 02 8a 3d  |,184..... 1:...=|
00000490  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 4d  |.. "Wimp_CreateM|
000004a0  65 6e 75 22 2c 2c 6d 65  6e 75 25 2c 6d 6f 75 73  |enu",,menu%,mous|
000004b0  65 78 25 2d 6d 65 6e 75  25 21 31 36 2f 32 2d 32  |ex%-menu%!16/2-2|
000004c0  34 2c 6d 6f 75 73 65 79  25 0d 02 94 05 cb 0d 02  |4,mousey%.......|
000004d0  9e 05 e1 0d 02 a8 05 3a  0d 02 b2 11 dd 20 f2 68  |.......:..... .h|
000004e0  61 6e 64 6c 65 6d 65 6e  75 0d 02 bc 11 c8 8e 20  |andlemenu...... |
000004f0  62 6c 6f 63 6b 25 21 30  20 ca 0d 02 c6 15 c9 20  |block%!0 ...... |
00000500  30 3a 21 62 6c 6f 63 6b  25 3d 69 6e 66 6f 25 0d  |0:!block%=info%.|
00000510  02 d0 2b 20 20 20 20 20  20 20 c8 99 20 22 57 69  |..+       .. "Wi|
00000520  6d 70 5f 47 65 74 57 69  6e 64 6f 77 53 74 61 74  |mp_GetWindowStat|
00000530  65 22 2c 2c 62 6c 6f 63  6b 25 0d 02 da 17 20 20  |e",,block%....  |
00000540  20 20 20 20 20 62 6c 6f  63 6b 25 21 32 38 3d 2d  |     block%!28=-|
00000550  31 0d 02 e4 27 20 20 20  20 20 20 20 c8 99 20 22  |1...'       .. "|
00000560  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
00000570  2c 2c 62 6c 6f 63 6b 25  0d 02 ee 15 20 20 20 20  |,,block%....    |
00000580  20 20 20 6d 65 6e 75 25  21 32 38 3d 31 0d 02 f8  |   menu%!28=1...|
00000590  1d c9 20 31 3a c8 99 20  22 57 69 6d 70 5f 43 6c  |.. 1:.. "Wimp_Cl|
000005a0  6f 73 65 44 6f 77 6e 22  3a e0 0d 03 02 05 cb 0d  |oseDown":.......|
000005b0  03 0c 05 e1 0d 03 16 05  3a 0d 03 20 0d dd 20 f2  |........:.. .. .|
000005c0  72 65 64 72 61 77 0d 03  2a 2a c8 99 20 22 57 69  |redraw..**.. "Wi|
000005d0  6d 70 5f 52 65 64 72 61  77 57 69 6e 64 6f 77 22  |mp_RedrawWindow"|
000005e0  2c 2c 62 6c 6f 63 6b 25  20 b8 20 6d 6f 72 65 25  |,,block% . more%|
000005f0  0d 03 34 0c c8 95 20 6d  6f 72 65 25 0d 03 3e 22  |..4... more%..>"|
00000600  c8 99 20 22 57 69 6d 70  5f 42 6f 72 64 65 72 57  |.. "Wimp_BorderW|
00000610  69 6e 64 6f 77 22 2c 2c  62 6c 6f 63 6b 25 0d 03  |indow",,block%..|
00000620  48 2a c8 99 20 22 57 69  6d 70 5f 47 65 74 52 65  |H*.. "Wimp_GetRe|
00000630  63 74 61 6e 67 6c 65 22  2c 2c 62 6c 6f 63 6b 25  |ctangle",,block%|
00000640  20 b8 20 6d 6f 72 65 25  0d 03 52 05 ce 0d 03 5c  | . more%..R....\|
00000650  05 e1 0d 03 66 05 3a 0d  03 70 0e dd 20 f2 6d 65  |....f.:..p.. .me|
00000660  73 73 61 67 65 0d 03 7a  12 c8 8e 20 62 6c 6f 63  |ssage..z... bloc|
00000670  6b 25 21 31 36 20 ca 0d  03 84 08 c9 20 30 3a 0d  |k%!16 ...... 0:.|
00000680  03 8e 20 20 20 20 20 20  20 20 c8 99 20 22 57 69  |..        .. "Wi|
00000690  6d 70 5f 43 6c 6f 73 65  44 6f 77 6e 22 3a e0 0d  |mp_CloseDown":..|
000006a0  03 98 05 cb 0d 03 a2 05  e1 0d 03 ac 05 3a 0d 03  |.............:..|
000006b0  b6 0c dd 20 f2 65 72 72  6f 72 0d 03 c0 34 21 65  |... .error...4!e|
000006c0  72 72 62 6c 6b 25 3d 9f  3a 24 28 65 72 72 62 6c  |rrblk%=.:$(errbl|
000006d0  6b 25 2b 34 29 3d f6 24  2b 22 20 61 74 20 6c 69  |k%+4)=.$+" at li|
000006e0  6e 65 20 22 2b c3 28 9e  29 2b bd 28 30 29 0d 03  |ne "+.(.)+.(0)..|
000006f0  ca 3c c8 99 20 22 57 69  6d 70 5f 52 65 70 6f 72  |.<.. "Wimp_Repor|
00000700  74 45 72 72 6f 72 22 2c  65 72 72 62 6c 6b 25 2c  |tError",errblk%,|
00000710  33 2c 22 52 6f 6d 20 53  70 65 65 64 65 72 22 20  |3,"Rom Speeder" |
00000720  b8 20 65 72 72 62 75 74  73 25 0d 03 d4 26 e7 20  |. errbuts%...&. |
00000730  65 72 72 62 75 74 73 25  3d 32 20 c8 99 20 22 57  |errbuts%=2 .. "W|
00000740  69 6d 70 5f 43 6c 6f 73  65 44 6f 77 6e 22 3a e0  |imp_CloseDown":.|
00000750  0d 03 de 05 e1 0d 03 e8  05 3a 0d 03 f2 0b dd 20  |.........:..... |
00000760  f2 69 6e 69 74 0d 03 fc  0e 21 62 6c 6f 63 6b 25  |.init....!block%|
00000770  3d 2d 31 0d 04 06 0e 62  6c 6f 63 6b 25 21 34 3d  |=-1....block%!4=|
00000780  30 0d 04 10 0e 62 6c 6f  63 6b 25 21 38 3d 30 0d  |0....block%!8=0.|
00000790  04 1a 10 62 6c 6f 63 6b  25 21 31 32 3d 36 38 0d  |...block%!12=68.|
000007a0  04 24 10 62 6c 6f 63 6b  25 21 31 36 3d 36 38 0d  |.$.block%!16=68.|
000007b0  04 2e 13 62 6c 6f 63 6b  25 21 32 30 3d 26 33 30  |...block%!20=&30|
000007c0  30 32 0d 04 38 1d 24 28  62 6c 6f 63 6b 25 2b 32  |02..8.$(block%+2|
000007d0  34 29 3d 22 21 54 75 72  62 6f 52 4f 4d 73 22 0d  |4)="!TurboROMs".|
000007e0  04 42 2c c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |.B,.. "Wimp_Crea|
000007f0  74 65 49 63 6f 6e 22 2c  2c 62 6c 6f 63 6b 25 20  |teIcon",,block% |
00000800  b8 20 69 63 6f 6e 68 61  6e 64 25 0d 04 4c 27 f4  |. iconhand%..L'.|
00000810  20 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  | ---------------|
00000820  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000830  2d 2d 0d 04 56 37 c8 99  20 22 57 69 6d 70 5f 4f  |--..V7.. "Wimp_O|
00000840  70 65 6e 54 65 6d 70 6c  61 74 65 22 2c 2c 22 3c  |penTemplate",,"<|
00000850  54 75 72 62 6f 52 4f 4d  73 24 44 69 72 3e 2e 54  |TurboROMs$Dir>.T|
00000860  65 6d 70 6c 61 74 65 73  22 0d 04 60 42 c8 99 20  |emplates"..`B.. |
00000870  22 57 69 6d 70 5f 4c 6f  61 64 54 65 6d 70 6c 61  |"Wimp_LoadTempla|
00000880  74 65 22 2c 2c 77 69 6e  64 6f 77 25 2c 69 63 6f  |te",,window%,ico|
00000890  6e 25 2c 69 63 6f 6e 25  2b 32 32 38 2c 2d 31 2c  |n%,icon%+228,-1,|
000008a0  22 69 6e 66 6f 62 6f 78  22 2c 30 0d 04 6a 2b c8  |"infobox",0..j+.|
000008b0  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 57 69  |. "Wimp_CreateWi|
000008c0  6e 64 6f 77 22 2c 2c 77  69 6e 64 6f 77 25 20 b8  |ndow",,window% .|
000008d0  20 69 6e 66 6f 25 0d 04  74 49 c8 99 20 22 57 69  | info%..tI.. "Wi|
000008e0  6d 70 5f 4c 6f 61 64 54  65 6d 70 6c 61 74 65 22  |mp_LoadTemplate"|
000008f0  2c 2c 77 69 6e 64 6f 77  25 2c 69 63 6f 6e 25 2b  |,,window%,icon%+|
00000900  32 33 32 2c 69 63 6f 6e  25 2b 34 38 30 2c 2d 31  |232,icon%+480,-1|
00000910  2c 22 63 6f 6e 74 72 6f  6c 6c 65 72 22 2c 30 0d  |,"controller",0.|
00000920  04 7e 31 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |.~1.. "Wimp_Crea|
00000930  74 65 57 69 6e 64 6f 77  22 2c 2c 77 69 6e 64 6f  |teWindow",,windo|
00000940  77 25 20 b8 20 63 6f 6e  74 72 6f 6c 6c 65 72 25  |w% . controller%|
00000950  0d 04 88 1b c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |...... "Wimp_Clo|
00000960  73 65 54 65 6d 70 6c 61  74 65 22 0d 04 92 27 f4  |seTemplate"...'.|
00000970  20 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  | ---------------|
00000980  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000990  2d 2d 0d 04 9c 2c ff 28  22 4c 6f 61 64 20 3c 54  |--...,.("Load <T|
000009a0  75 72 62 6f 52 4f 4d 73  24 44 69 72 3e 2e 4d 65  |urboROMs$Dir>.Me|
000009b0  6e 75 73 20 22 2b c3 7e  6d 65 6e 75 25 29 0d 04  |nus "+.~menu%)..|
000009c0  a6 12 6d 65 6e 75 25 21  33 32 3d 69 6e 66 6f 25  |..menu%!32=info%|
000009d0  0d 04 b0 05 e1 0d ff                              |.......|
000009d7