Home » Archimedes archive » Acorn User » AU 1997-04 A.adf » Features1 » StarInfo/Wilson/!Toaster/!RunImage
StarInfo/Wilson/!Toaster/!RunImage
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn User » AU 1997-04 A.adf » Features1 |
| Filename: | StarInfo/Wilson/!Toaster/!RunImage |
| Read OK: | ✔ |
| File size: | 122E bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >!Toaster.!RunImage
20REM by Matthew Wilson
30REM (And it's not worth the copyright message!)
40REM 'Toaster Drive' emulator.
50
60REM If you want the full hardware option, please contact:
70REM Toaster Drives UK Ltd,
80REM ACON Drive,
90REM SIMPLETON.
100REM (Price: FALSE50+VAT+postage=FALSE21.57)
110
200ON ERROR ERROR EXT ERR,REPORT$+" at line "+STR$(ERL)
210
220SYS "Wimp_Initialise",200,&4B534154,"Toaster" TO ,wimp%
230
240DIM q% 256,icon% 256,temp% 256,menu% 256
250
260icon%!0=-2
270icon%!4=0
280icon%!8=-16
290icon%!12=7*16
300icon%!16=84
310icon%!20=(&17<<24) OR (6<<12) OR %100001011
320icon%!24=icon%+48
330icon%!28=icon%+96
340icon%!32=12
350$(icon%+48)="Toaster"
360$(icon%+96)="St_empty"
370SYS "Wimp_CreateIcon",,icon% TO ih%
380
390$(menu%+0)="Toaster"
400menu%?12=7
410menu%?13=2
420menu%?14=7
430menu%?15=0
440menu%!16=8*16
450menu%!20=44
460menu%!24=0
470menu%!28=%10000000
480menu%!32=-2
490menu%!36=(&07<<24) OR %100001
500$(menu%+40)="Quit"
510
520ON ERROR PROCfullerror
530
540empty%=0
550toasting%=1
560burning%=2
570poppedup%=3
580
590status%=empty%
600count%=0
610out$="127"
620quit%=FALSE
630REPEAT
640 IF status%=toasting% OR status%=burning% THEN
650 SYS "Wimp_PollIdle",,q%,count% TO R%
660 ELSE
670 SYS "Wimp_Poll",1,q% TO R%
680 ENDIF
690 CASE R% OF
700 WHEN 0 : PROCpopup
710 WHEN 6 : PROCclick
720 WHEN 7 : PROCenddrag
730 WHEN 9 : quit%=TRUE
740 WHEN 17,18 : PROCmessage
750 ENDCASE
760UNTIL quit%
770END
780
790:
800
810DEF PROCclick
820 CASE q%!8 OF
830 WHEN &4 :
840 CASE status% OF
850 WHEN 0 : PROCerror("Toaster empty",1)
860 WHEN 1,2 : PROCerror("This session of 'Toaster' is currently busy, or has an open dialog box. Do you want to start another session of 'Toaster' up?",3)
870 ENDCASE
880 ENDIF
890
900 WHEN &40 :
910 CASE status% OF
920 WHEN 3 : PROCdrag
930 ENDCASE
940
950 WHEN &2 : SYS "Wimp_CreateMenu",,menu%,q%!0-64,98+44
960 ENDCASE
970ENDPROC
980
990:
1000
1010DEF PROCdrag
1020 temp%!0=-2
1030 SYS "Wimp_GetWindowState",,temp%
1040 X%=temp%!4-temp%!20:Y%=temp%!16-temp%!24
1050 temp%!4=ih%
1060 SYS "Wimp_GetIconState",,temp%
1070 temp%!8+=X%:temp%!16+=X%
1080 temp%!12+=Y%+36:temp%!20+=Y%
1090 temp%!24=0:temp%!28=0
1100 temp%!32=&7FFFFFFF:temp%!36=&7FFFFFFF
1110 *FX 1,1
1120 SYS "DragASprite_Start",&01,1,"bread"+out$,temp%+8,temp%+24
1130ENDPROC
1140
1150:
1160
1170DEF PROCenddrag
1180 status%=empty%
1190 PROCicon("t_empty")
1200 SYS "Wimp_GetPointerInfo",,temp%
1210 q%!0=64
1220 q%!4=wimp%
1230 q%!8=0
1240 q%!12=0
1250 q%!16=1
1260 q%!20=temp%!12
1270 q%!24=temp%!16
1280 q%!28=temp%!0
1290 q%!32=temp%!4
1300 q%!36=0
1310 q%!40=out%
1320 $(q%+44)=type$
1330 IF temp%!12=-2 THEN
1340 SYS "Wimp_SendMessage",17,q%,-2,temp%!16
1350 ELSE
1360 SYS "Wimp_SendMessage",17,q%,temp%!12
1370 ENDIF
1380ENDPROC
1390
1400:
1410
1420DEF PROCerror(message$,flags%)
1430 SYS "Wimp_ReportError","0000"+message$,&18 OR flags%,"Toaster" TO ,reply%
1440ENDPROC
1450
1460:
1470
1480DEF PROCicon(icon$)
1490 $(icon%+96)="S"+icon$
1500 temp%!0=-1
1510 temp%!4=ih%
1520 temp%!8=0
1530 temp%!12=0
1540 SYS "Wimp_SetIconState",,temp%
1550ENDPROC
1560
1570:
1580
1590DEF PROCload
1600 IF status%=empty% THEN
1610 CASE q%!40 OF
1620 WHEN &125 :
1630 PROCerror("An external driver is needed to toast this crumpet. Please refer to the manual",2)
1640 WHEN &126 :
1650 PROCerror("This bread has not been toasted. Do you want to toast it now?",3)
1660 IF reply%=1 THEN status%=toasting%
1670 WHEN &127 :
1680 PROCerror("This toast is already toasted. Do you want to retoast it?",3)
1690 IF reply%=1 THEN status%=burning%
1700 OTHERWISE
1710 PROCerror("Sorry, Toaster cannot Toast this",1)
1720 ENDCASE
1730 IF status%<>empty% THEN
1740 PROCicon("t_down")
1750 SYS "OS_ReadMonotonicTime" TO count%
1760 count%+=500
1770 ENDIF
1780 ELSE
1790 PROCerror("This session of 'Toaster' is currently busy, or has an open dialog box. Do you want to start another session of 'Toaster' up?",3)
1800 ENDIF
1810ENDPROC
1820
1830:
1840
1850DEF PROCmessage
1860 CASE q%!16 OF
1870 WHEN 0 : quit%=TRUE
1880 WHEN 2 : PROCsave
1890 WHEN 3 : PROCload
1900 ENDCASE
1910ENDPROC
1920
1930:
1940
1950DEF PROCpopup
1960 CASE status% OF
1970 WHEN toasting% : out%=&127:out$="127":type$="Toast"
1980 WHEN burning% : out%=&128:out$="128":type$="Burned"
1990 ENDCASE
2000 PROCicon("t_up"+out$)
2010 VDU7
2020 status%=poppedup%
2030ENDPROC
2040
2050:
2060
2070DEF PROCsave
2080 SYS 256,q%+44 TO pathname$
2090 SYS "OS_File",11,pathname$,out%
2100ENDPROC
2110
2120:
2130
2140REM **************************************************************
2150
2160DEF PROCfullerror
2170 ON ERROR OFF
2180 LOCAL M%
2190 M%=MODE
2200 MODE 1
2210 VDU 19,0,24,&40,&40,&F0
2220 COLOUR 0,&40,&40,&F0
2230 PRINT TAB(0,0) REPORT$+" (";ERL;")"
2240 PRINT TAB(5,13) "This Toaster has performed an"
2250 PRINT TAB(6,14) "illegal operation."
2260 PRINT TAB(5,18) "ATTEMT TO COUNTINUE?"
2270 PRINT TAB(10,20) "Enter = OK, Escape = Cancel."
2280 PRINT TAB(30,25) "( OK )";
2290 REPEAT UNTIL INKEY-113 OR INKEY-74
2300 SYS "Wimp_SetMode",M%
2310 IF NOT INKEY-74 THEN END
2320ENDPROC
� >!Toaster.!RunImage
� by Matthew Wilson
1� (And it's not worth the copyright message!)
( � 'Toaster Drive' emulator.
2
<;� If you want the full hardware option, please contact:
F � Toaster Drives UK Ltd,
P� ACON Drive,
Z� SIMPLETON.
d%� (Price: �50+VAT+postage=�21.57)
n
�!� � � � �,�$+" at line "+�(�)
�
�9ș "Wimp_Initialise",200,&4B534154,"Toaster" � ,wimp%
�
�*� q% 256,icon% 256,temp% 256,menu% 256
�
icon%!0=-2
icon%!4=0
icon%!8=-16
"icon%!12=7*16
,icon%!16=84
6-icon%!20=(&17<<24) � (6<<12) � %100001011
@icon%!24=icon%+48
Jicon%!28=icon%+96
Ticon%!32=12
^$(icon%+48)="Toaster"
h$(icon%+96)="St_empty"
r%ș "Wimp_CreateIcon",,icon% � ih%
|
�$(menu%+0)="Toaster"
�menu%?12=7
�menu%?13=2
�menu%?14=7
�menu%?15=0
�menu%!16=8*16
�menu%!20=44
�menu%!24=0
�menu%!28=%10000000
�menu%!32=-2
� menu%!36=(&07<<24) � %100001
�$(menu%+40)="Quit"
�
� � �fullerror
empty%=0
&toasting%=1
0burning%=2
:poppedup%=3
D
Nstatus%=empty%
X count%=0
bout$="127"
l quit%=�
v�
�. � status%=toasting% � status%=burning% �
�* ș "Wimp_PollIdle",,q%,count% � R%
� �
� ș "Wimp_Poll",1,q% � R%
� �
�
Ȏ R% �
� � 0 : �popup
� � 6 : �click
� � 7 : �enddrag
� � 9 : quit%=�
� � 17,18 : �message
� �
� � quit%
�
:
* � �click
4 Ȏ q%!8 �
> � &4 :
H Ȏ status% �
R+ � 0 : �error("Toaster empty",1)
\� � 1,2 : �error("This session of 'Toaster' is currently busy, or has an open dialog box. Do you want to start another session of 'Toaster' up?",3)
f �
p �
z
� � &40 :
� Ȏ status% �
� � 3 : �drag
� �
�
�8 � &2 : ș "Wimp_CreateMenu",,menu%,q%!0-64,98+44
� �
��
�
�:
�
� � �drag
� temp%!0=-2
% ș "Wimp_GetWindowState",,temp%
. X%=temp%!4-temp%!20:Y%=temp%!16-temp%!24
temp%!4=ih%
$# ș "Wimp_GetIconState",,temp%
. temp%!8+=X%:temp%!16+=X%
8" temp%!12+=Y%+36:temp%!20+=Y%
B temp%!24=0:temp%!28=0
L+ temp%!32=&7FFFFFFF:temp%!36=&7FFFFFFF
V
*FX 1,1
`@ ș "DragASprite_Start",&01,1,"bread"+out$,temp%+8,temp%+24
j�
t
~:
�
�� �enddrag
� status%=empty%
� �icon("t_empty")
�% ș "Wimp_GetPointerInfo",,temp%
�
q%!0=64
� q%!4=wimp%
� q%!8=0
�
q%!12=0
�
q%!16=1
� q%!20=temp%!12
� q%!24=temp%!16
q%!28=temp%!0
q%!32=temp%!4
q%!36=0
q%!40=out%
( $(q%+44)=type$
2 � temp%!12=-2 �
</ ș "Wimp_SendMessage",17,q%,-2,temp%!16
F �
P, ș "Wimp_SendMessage",17,q%,temp%!12
Z �
d�
n
x:
�
� � �error(message$,flags%)
�L ș "Wimp_ReportError","0000"+message$,&18 � flags%,"Toaster" � ,reply%
��
�
�:
�
�� �icon(icon$)
� $(icon%+96)="S"+icon$
� temp%!0=-1
� temp%!4=ih%
� temp%!8=0
� temp%!12=0
# ș "Wimp_SetIconState",,temp%
�
":
,
6 � �load
@ � status%=empty% �
J Ȏ q%!40 �
T � &125 :
^f �error("An external driver is needed to toast this crumpet. Please refer to the manual",2)
h � &126 :
rU �error("This bread has not been toasted. Do you want to toast it now?",3)
|* � reply%=1 � status%=toasting%
� � &127 :
�Q �error("This toast is already toasted. Do you want to retoast it?",3)
�) � reply%=1 � status%=burning%
�
�6 �error("Sorry, Toaster cannot Toast this",1)
� �
� � status%<>empty% �
� �icon("t_down")
�, ș "OS_ReadMonotonicTime" � count%
� count%+=500
� �
� �
�� �error("This session of 'Toaster' is currently busy, or has an open dialog box. Do you want to start another session of 'Toaster' up?",3)
�
�
&:
0
:� �message
D Ȏ q%!16 �
N � 0 : quit%=�
X � 2 : �save
b � 3 : �load
l �
v�
�
�:
�
� � �popup
� Ȏ status% �
�8 � toasting% : out%=&127:out$="127":type$="Toast"
�9 � burning% : out%=&128:out$="128":type$="Burned"
� �
� �icon("t_up"+out$)
� �7
� status%=poppedup%
��
�
:
� �save
ș 256,q%+44 � pathname$
*$ ș "OS_File",11,pathname$,out%
4�
>
H:
R
\D� **************************************************************
f
p� �fullerror
z � � �
�
� M%
�
M%=�
� � 1
� � 19,0,24,&40,&40,&F0
� � 0,&40,&40,&F0
� � �0,0) �$+" (";�;")"
�. � �5,13) "This Toaster has performed an"
�# � �6,14) "illegal operation."
�% � �5,18) "ATTEMT TO COUNTINUE?"
�. � �10,20) "Enter = OK, Escape = Cancel."
� � �30,25) "( OK )";
� � � �-113 � �-74
� ș "Wimp_SetMode",M%
� � �-74 � �
�
� 00000000 0d 00 0a 19 f4 20 3e 21 54 6f 61 73 74 65 72 2e |..... >!Toaster.|
00000010 21 52 75 6e 49 6d 61 67 65 0d 00 14 17 f4 20 62 |!RunImage..... b|
00000020 79 20 4d 61 74 74 68 65 77 20 57 69 6c 73 6f 6e |y Matthew Wilson|
00000030 0d 00 1e 31 f4 20 28 41 6e 64 20 69 74 27 73 20 |...1. (And it's |
00000040 6e 6f 74 20 77 6f 72 74 68 20 74 68 65 20 63 6f |not worth the co|
00000050 70 79 72 69 67 68 74 20 6d 65 73 73 61 67 65 21 |pyright message!|
00000060 29 0d 00 28 1f f4 20 27 54 6f 61 73 74 65 72 20 |)..(.. 'Toaster |
00000070 44 72 69 76 65 27 20 65 6d 75 6c 61 74 6f 72 2e |Drive' emulator.|
00000080 0d 00 32 04 0d 00 3c 3b f4 20 49 66 20 79 6f 75 |..2...<;. If you|
00000090 20 77 61 6e 74 20 74 68 65 20 66 75 6c 6c 20 68 | want the full h|
000000a0 61 72 64 77 61 72 65 20 6f 70 74 69 6f 6e 2c 20 |ardware option, |
000000b0 70 6c 65 61 73 65 20 63 6f 6e 74 61 63 74 3a 0d |please contact:.|
000000c0 00 46 1e f4 20 20 20 54 6f 61 73 74 65 72 20 44 |.F.. Toaster D|
000000d0 72 69 76 65 73 20 55 4b 20 4c 74 64 2c 0d 00 50 |rives UK Ltd,..P|
000000e0 15 f4 20 20 20 20 20 41 43 4f 4e 20 44 72 69 76 |.. ACON Driv|
000000f0 65 2c 0d 00 5a 16 f4 20 20 20 20 20 20 20 53 49 |e,..Z.. SI|
00000100 4d 50 4c 45 54 4f 4e 2e 0d 00 64 25 f4 20 28 50 |MPLETON...d%. (P|
00000110 72 69 63 65 3a 20 a3 35 30 2b 56 41 54 2b 70 6f |rice: .50+VAT+po|
00000120 73 74 61 67 65 3d a3 32 31 2e 35 37 29 0d 00 6e |stage=.21.57)..n|
00000130 04 0d 00 c8 21 ee 20 85 20 85 20 a2 20 9f 2c f6 |....!. . . . .,.|
00000140 24 2b 22 20 61 74 20 6c 69 6e 65 20 22 2b c3 28 |$+" at line "+.(|
00000150 9e 29 0d 00 d2 04 0d 00 dc 39 c8 99 20 22 57 69 |.).......9.. "Wi|
00000160 6d 70 5f 49 6e 69 74 69 61 6c 69 73 65 22 2c 32 |mp_Initialise",2|
00000170 30 30 2c 26 34 42 35 33 34 31 35 34 2c 22 54 6f |00,&4B534154,"To|
00000180 61 73 74 65 72 22 20 b8 20 2c 77 69 6d 70 25 0d |aster" . ,wimp%.|
00000190 00 e6 04 0d 00 f0 2a de 20 71 25 20 32 35 36 2c |......*. q% 256,|
000001a0 69 63 6f 6e 25 20 32 35 36 2c 74 65 6d 70 25 20 |icon% 256,temp% |
000001b0 32 35 36 2c 6d 65 6e 75 25 20 32 35 36 0d 00 fa |256,menu% 256...|
000001c0 04 0d 01 04 0e 69 63 6f 6e 25 21 30 3d 2d 32 0d |.....icon%!0=-2.|
000001d0 01 0e 0d 69 63 6f 6e 25 21 34 3d 30 0d 01 18 0f |...icon%!4=0....|
000001e0 69 63 6f 6e 25 21 38 3d 2d 31 36 0d 01 22 11 69 |icon%!8=-16..".i|
000001f0 63 6f 6e 25 21 31 32 3d 37 2a 31 36 0d 01 2c 0f |con%!12=7*16..,.|
00000200 69 63 6f 6e 25 21 31 36 3d 38 34 0d 01 36 2d 69 |icon%!16=84..6-i|
00000210 63 6f 6e 25 21 32 30 3d 28 26 31 37 3c 3c 32 34 |con%!20=(&17<<24|
00000220 29 20 84 20 28 36 3c 3c 31 32 29 20 84 20 25 31 |) . (6<<12) . %1|
00000230 30 30 30 30 31 30 31 31 0d 01 40 15 69 63 6f 6e |00001011..@.icon|
00000240 25 21 32 34 3d 69 63 6f 6e 25 2b 34 38 0d 01 4a |%!24=icon%+48..J|
00000250 15 69 63 6f 6e 25 21 32 38 3d 69 63 6f 6e 25 2b |.icon%!28=icon%+|
00000260 39 36 0d 01 54 0f 69 63 6f 6e 25 21 33 32 3d 31 |96..T.icon%!32=1|
00000270 32 0d 01 5e 19 24 28 69 63 6f 6e 25 2b 34 38 29 |2..^.$(icon%+48)|
00000280 3d 22 54 6f 61 73 74 65 72 22 0d 01 68 1a 24 28 |="Toaster"..h.$(|
00000290 69 63 6f 6e 25 2b 39 36 29 3d 22 53 74 5f 65 6d |icon%+96)="St_em|
000002a0 70 74 79 22 0d 01 72 25 c8 99 20 22 57 69 6d 70 |pty"..r%.. "Wimp|
000002b0 5f 43 72 65 61 74 65 49 63 6f 6e 22 2c 2c 69 63 |_CreateIcon",,ic|
000002c0 6f 6e 25 20 b8 20 69 68 25 0d 01 7c 04 0d 01 86 |on% . ih%..|....|
000002d0 18 24 28 6d 65 6e 75 25 2b 30 29 3d 22 54 6f 61 |.$(menu%+0)="Toa|
000002e0 73 74 65 72 22 0d 01 90 0e 6d 65 6e 75 25 3f 31 |ster"....menu%?1|
000002f0 32 3d 37 0d 01 9a 0e 6d 65 6e 75 25 3f 31 33 3d |2=7....menu%?13=|
00000300 32 0d 01 a4 0e 6d 65 6e 75 25 3f 31 34 3d 37 0d |2....menu%?14=7.|
00000310 01 ae 0e 6d 65 6e 75 25 3f 31 35 3d 30 0d 01 b8 |...menu%?15=0...|
00000320 11 6d 65 6e 75 25 21 31 36 3d 38 2a 31 36 0d 01 |.menu%!16=8*16..|
00000330 c2 0f 6d 65 6e 75 25 21 32 30 3d 34 34 0d 01 cc |..menu%!20=44...|
00000340 0e 6d 65 6e 75 25 21 32 34 3d 30 0d 01 d6 16 6d |.menu%!24=0....m|
00000350 65 6e 75 25 21 32 38 3d 25 31 30 30 30 30 30 30 |enu%!28=%1000000|
00000360 30 0d 01 e0 0f 6d 65 6e 75 25 21 33 32 3d 2d 32 |0....menu%!32=-2|
00000370 0d 01 ea 20 6d 65 6e 75 25 21 33 36 3d 28 26 30 |... menu%!36=(&0|
00000380 37 3c 3c 32 34 29 20 84 20 25 31 30 30 30 30 31 |7<<24) . %100001|
00000390 0d 01 f4 16 24 28 6d 65 6e 75 25 2b 34 30 29 3d |....$(menu%+40)=|
000003a0 22 51 75 69 74 22 0d 01 fe 04 0d 02 08 12 ee 20 |"Quit"......... |
000003b0 85 20 f2 66 75 6c 6c 65 72 72 6f 72 0d 02 12 04 |. .fullerror....|
000003c0 0d 02 1c 0c 65 6d 70 74 79 25 3d 30 0d 02 26 0f |....empty%=0..&.|
000003d0 74 6f 61 73 74 69 6e 67 25 3d 31 0d 02 30 0e 62 |toasting%=1..0.b|
000003e0 75 72 6e 69 6e 67 25 3d 32 0d 02 3a 0f 70 6f 70 |urning%=2..:.pop|
000003f0 70 65 64 75 70 25 3d 33 0d 02 44 04 0d 02 4e 12 |pedup%=3..D...N.|
00000400 73 74 61 74 75 73 25 3d 65 6d 70 74 79 25 0d 02 |status%=empty%..|
00000410 58 0c 63 6f 75 6e 74 25 3d 30 0d 02 62 0e 6f 75 |X.count%=0..b.ou|
00000420 74 24 3d 22 31 32 37 22 0d 02 6c 0b 71 75 69 74 |t$="127"..l.quit|
00000430 25 3d a3 0d 02 76 05 f5 0d 02 80 2e 20 20 e7 20 |%=...v...... . |
00000440 73 74 61 74 75 73 25 3d 74 6f 61 73 74 69 6e 67 |status%=toasting|
00000450 25 20 84 20 73 74 61 74 75 73 25 3d 62 75 72 6e |% . status%=burn|
00000460 69 6e 67 25 20 8c 0d 02 8a 2a 20 20 20 20 c8 99 |ing% ....* ..|
00000470 20 22 57 69 6d 70 5f 50 6f 6c 6c 49 64 6c 65 22 | "Wimp_PollIdle"|
00000480 2c 2c 71 25 2c 63 6f 75 6e 74 25 20 b8 20 52 25 |,,q%,count% . R%|
00000490 0d 02 94 07 20 20 cc 0d 02 9e 20 20 20 20 20 c8 |.... .... .|
000004a0 99 20 22 57 69 6d 70 5f 50 6f 6c 6c 22 2c 31 2c |. "Wimp_Poll",1,|
000004b0 71 25 20 b8 20 52 25 0d 02 a8 07 20 20 cd 0d 02 |q% . R%.... ...|
000004c0 b2 0d 20 20 c8 8e 20 52 25 20 ca 0d 02 bc 14 20 |.. .. R% ..... |
000004d0 20 20 20 c9 20 30 20 3a 20 f2 70 6f 70 75 70 0d | . 0 : .popup.|
000004e0 02 c6 14 20 20 20 20 c9 20 36 20 3a 20 f2 63 6c |... . 6 : .cl|
000004f0 69 63 6b 0d 02 d0 16 20 20 20 20 c9 20 37 20 3a |ick.... . 7 :|
00000500 20 f2 65 6e 64 64 72 61 67 0d 02 da 15 20 20 20 | .enddrag.... |
00000510 20 c9 20 39 20 3a 20 71 75 69 74 25 3d b9 0d 02 | . 9 : quit%=...|
00000520 e4 1a 20 20 20 20 c9 20 31 37 2c 31 38 20 3a 20 |.. . 17,18 : |
00000530 f2 6d 65 73 73 61 67 65 0d 02 ee 07 20 20 cb 0d |.message.... ..|
00000540 02 f8 0b fd 20 71 75 69 74 25 0d 03 02 05 e0 0d |.... quit%......|
00000550 03 0c 04 0d 03 16 05 3a 0d 03 20 04 0d 03 2a 0c |.......:.. ...*.|
00000560 dd 20 f2 63 6c 69 63 6b 0d 03 34 0f 20 20 c8 8e |. .click..4. ..|
00000570 20 71 25 21 38 20 ca 0d 03 3e 0e 20 20 20 20 c9 | q%!8 ...>. .|
00000580 20 26 34 20 3a 0d 03 48 16 20 20 20 20 20 20 c8 | &4 :..H. .|
00000590 8e 20 73 74 61 74 75 73 25 20 ca 0d 03 52 2b 20 |. status% ...R+ |
000005a0 20 20 20 20 20 20 20 c9 20 30 20 3a 20 f2 65 72 | . 0 : .er|
000005b0 72 6f 72 28 22 54 6f 61 73 74 65 72 20 65 6d 70 |ror("Toaster emp|
000005c0 74 79 22 2c 31 29 0d 03 5c 9d 20 20 20 20 20 20 |ty",1)..\. |
000005d0 20 20 c9 20 31 2c 32 20 3a 20 f2 65 72 72 6f 72 | . 1,2 : .error|
000005e0 28 22 54 68 69 73 20 73 65 73 73 69 6f 6e 20 6f |("This session o|
000005f0 66 20 27 54 6f 61 73 74 65 72 27 20 69 73 20 63 |f 'Toaster' is c|
00000600 75 72 72 65 6e 74 6c 79 20 62 75 73 79 2c 20 6f |urrently busy, o|
00000610 72 20 68 61 73 20 61 6e 20 6f 70 65 6e 20 64 69 |r has an open di|
00000620 61 6c 6f 67 20 62 6f 78 2e 20 44 6f 20 79 6f 75 |alog box. Do you|
00000630 20 77 61 6e 74 20 74 6f 20 73 74 61 72 74 20 61 | want to start a|
00000640 6e 6f 74 68 65 72 20 73 65 73 73 69 6f 6e 20 6f |nother session o|
00000650 66 20 27 54 6f 61 73 74 65 72 27 20 75 70 3f 22 |f 'Toaster' up?"|
00000660 2c 33 29 0d 03 66 0b 20 20 20 20 20 20 cb 0d 03 |,3)..f. ...|
00000670 70 09 20 20 20 20 cd 0d 03 7a 04 0d 03 84 0f 20 |p. ...z..... |
00000680 20 20 20 c9 20 26 34 30 20 3a 0d 03 8e 16 20 20 | . &40 :.... |
00000690 20 20 20 20 c8 8e 20 73 74 61 74 75 73 25 20 ca | .. status% .|
000006a0 0d 03 98 17 20 20 20 20 20 20 20 20 c9 20 33 20 |.... . 3 |
000006b0 3a 20 f2 64 72 61 67 0d 03 a2 0b 20 20 20 20 20 |: .drag.... |
000006c0 20 cb 0d 03 ac 04 0d 03 b6 38 20 20 20 20 c9 20 | ........8 . |
000006d0 26 32 20 3a 20 c8 99 20 22 57 69 6d 70 5f 43 72 |&2 : .. "Wimp_Cr|
000006e0 65 61 74 65 4d 65 6e 75 22 2c 2c 6d 65 6e 75 25 |eateMenu",,menu%|
000006f0 2c 71 25 21 30 2d 36 34 2c 39 38 2b 34 34 0d 03 |,q%!0-64,98+44..|
00000700 c0 07 20 20 cb 0d 03 ca 05 e1 0d 03 d4 04 0d 03 |.. ............|
00000710 de 05 3a 0d 03 e8 04 0d 03 f2 0b dd 20 f2 64 72 |..:......... .dr|
00000720 61 67 0d 03 fc 10 20 20 74 65 6d 70 25 21 30 3d |ag.... temp%!0=|
00000730 2d 32 0d 04 06 25 20 20 c8 99 20 22 57 69 6d 70 |-2...% .. "Wimp|
00000740 5f 47 65 74 57 69 6e 64 6f 77 53 74 61 74 65 22 |_GetWindowState"|
00000750 2c 2c 74 65 6d 70 25 0d 04 10 2e 20 20 58 25 3d |,,temp%.... X%=|
00000760 74 65 6d 70 25 21 34 2d 74 65 6d 70 25 21 32 30 |temp%!4-temp%!20|
00000770 3a 59 25 3d 74 65 6d 70 25 21 31 36 2d 74 65 6d |:Y%=temp%!16-tem|
00000780 70 25 21 32 34 0d 04 1a 11 20 20 74 65 6d 70 25 |p%!24.... temp%|
00000790 21 34 3d 69 68 25 0d 04 24 23 20 20 c8 99 20 22 |!4=ih%..$# .. "|
000007a0 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 |Wimp_GetIconStat|
000007b0 65 22 2c 2c 74 65 6d 70 25 0d 04 2e 1e 20 20 74 |e",,temp%.... t|
000007c0 65 6d 70 25 21 38 2b 3d 58 25 3a 74 65 6d 70 25 |emp%!8+=X%:temp%|
000007d0 21 31 36 2b 3d 58 25 0d 04 38 22 20 20 74 65 6d |!16+=X%..8" tem|
000007e0 70 25 21 31 32 2b 3d 59 25 2b 33 36 3a 74 65 6d |p%!12+=Y%+36:tem|
000007f0 70 25 21 32 30 2b 3d 59 25 0d 04 42 1b 20 20 74 |p%!20+=Y%..B. t|
00000800 65 6d 70 25 21 32 34 3d 30 3a 74 65 6d 70 25 21 |emp%!24=0:temp%!|
00000810 32 38 3d 30 0d 04 4c 2b 20 20 74 65 6d 70 25 21 |28=0..L+ temp%!|
00000820 33 32 3d 26 37 46 46 46 46 46 46 46 3a 74 65 6d |32=&7FFFFFFF:tem|
00000830 70 25 21 33 36 3d 26 37 46 46 46 46 46 46 46 0d |p%!36=&7FFFFFFF.|
00000840 04 56 0d 20 20 2a 46 58 20 31 2c 31 0d 04 60 40 |.V. *FX 1,1..`@|
00000850 20 20 c8 99 20 22 44 72 61 67 41 53 70 72 69 74 | .. "DragASprit|
00000860 65 5f 53 74 61 72 74 22 2c 26 30 31 2c 31 2c 22 |e_Start",&01,1,"|
00000870 62 72 65 61 64 22 2b 6f 75 74 24 2c 74 65 6d 70 |bread"+out$,temp|
00000880 25 2b 38 2c 74 65 6d 70 25 2b 32 34 0d 04 6a 05 |%+8,temp%+24..j.|
00000890 e1 0d 04 74 04 0d 04 7e 05 3a 0d 04 88 04 0d 04 |...t...~.:......|
000008a0 92 0e dd 20 f2 65 6e 64 64 72 61 67 0d 04 9c 14 |... .enddrag....|
000008b0 20 20 73 74 61 74 75 73 25 3d 65 6d 70 74 79 25 | status%=empty%|
000008c0 0d 04 a6 16 20 20 f2 69 63 6f 6e 28 22 74 5f 65 |.... .icon("t_e|
000008d0 6d 70 74 79 22 29 0d 04 b0 25 20 20 c8 99 20 22 |mpty")...% .. "|
000008e0 57 69 6d 70 5f 47 65 74 50 6f 69 6e 74 65 72 49 |Wimp_GetPointerI|
000008f0 6e 66 6f 22 2c 2c 74 65 6d 70 25 0d 04 ba 0d 20 |nfo",,temp%.... |
00000900 20 71 25 21 30 3d 36 34 0d 04 c4 10 20 20 71 25 | q%!0=64.... q%|
00000910 21 34 3d 77 69 6d 70 25 0d 04 ce 0c 20 20 71 25 |!4=wimp%.... q%|
00000920 21 38 3d 30 0d 04 d8 0d 20 20 71 25 21 31 32 3d |!8=0.... q%!12=|
00000930 30 0d 04 e2 0d 20 20 71 25 21 31 36 3d 31 0d 04 |0.... q%!16=1..|
00000940 ec 14 20 20 71 25 21 32 30 3d 74 65 6d 70 25 21 |.. q%!20=temp%!|
00000950 31 32 0d 04 f6 14 20 20 71 25 21 32 34 3d 74 65 |12.... q%!24=te|
00000960 6d 70 25 21 31 36 0d 05 00 13 20 20 71 25 21 32 |mp%!16.... q%!2|
00000970 38 3d 74 65 6d 70 25 21 30 0d 05 0a 13 20 20 71 |8=temp%!0.... q|
00000980 25 21 33 32 3d 74 65 6d 70 25 21 34 0d 05 14 0d |%!32=temp%!4....|
00000990 20 20 71 25 21 33 36 3d 30 0d 05 1e 10 20 20 71 | q%!36=0.... q|
000009a0 25 21 34 30 3d 6f 75 74 25 0d 05 28 14 20 20 24 |%!40=out%..(. $|
000009b0 28 71 25 2b 34 34 29 3d 74 79 70 65 24 0d 05 32 |(q%+44)=type$..2|
000009c0 15 20 20 e7 20 74 65 6d 70 25 21 31 32 3d 2d 32 |. . temp%!12=-2|
000009d0 20 8c 0d 05 3c 2f 20 20 20 20 c8 99 20 22 57 69 | ...</ .. "Wi|
000009e0 6d 70 5f 53 65 6e 64 4d 65 73 73 61 67 65 22 2c |mp_SendMessage",|
000009f0 31 37 2c 71 25 2c 2d 32 2c 74 65 6d 70 25 21 31 |17,q%,-2,temp%!1|
00000a00 36 0d 05 46 07 20 20 cc 0d 05 50 2c 20 20 20 20 |6..F. ...P, |
00000a10 c8 99 20 22 57 69 6d 70 5f 53 65 6e 64 4d 65 73 |.. "Wimp_SendMes|
00000a20 73 61 67 65 22 2c 31 37 2c 71 25 2c 74 65 6d 70 |sage",17,q%,temp|
00000a30 25 21 31 32 0d 05 5a 07 20 20 cd 0d 05 64 05 e1 |%!12..Z. ...d..|
00000a40 0d 05 6e 04 0d 05 78 05 3a 0d 05 82 04 0d 05 8c |..n...x.:.......|
00000a50 1d dd 20 f2 65 72 72 6f 72 28 6d 65 73 73 61 67 |.. .error(messag|
00000a60 65 24 2c 66 6c 61 67 73 25 29 0d 05 96 4c 20 20 |e$,flags%)...L |
00000a70 c8 99 20 22 57 69 6d 70 5f 52 65 70 6f 72 74 45 |.. "Wimp_ReportE|
00000a80 72 72 6f 72 22 2c 22 30 30 30 30 22 2b 6d 65 73 |rror","0000"+mes|
00000a90 73 61 67 65 24 2c 26 31 38 20 84 20 66 6c 61 67 |sage$,&18 . flag|
00000aa0 73 25 2c 22 54 6f 61 73 74 65 72 22 20 b8 20 2c |s%,"Toaster" . ,|
00000ab0 72 65 70 6c 79 25 0d 05 a0 05 e1 0d 05 aa 04 0d |reply%..........|
00000ac0 05 b4 05 3a 0d 05 be 04 0d 05 c8 12 dd 20 f2 69 |...:......... .i|
00000ad0 63 6f 6e 28 69 63 6f 6e 24 29 0d 05 d2 1b 20 20 |con(icon$).... |
00000ae0 24 28 69 63 6f 6e 25 2b 39 36 29 3d 22 53 22 2b |$(icon%+96)="S"+|
00000af0 69 63 6f 6e 24 0d 05 dc 10 20 20 74 65 6d 70 25 |icon$.... temp%|
00000b00 21 30 3d 2d 31 0d 05 e6 11 20 20 74 65 6d 70 25 |!0=-1.... temp%|
00000b10 21 34 3d 69 68 25 0d 05 f0 0f 20 20 74 65 6d 70 |!4=ih%.... temp|
00000b20 25 21 38 3d 30 0d 05 fa 10 20 20 74 65 6d 70 25 |%!8=0.... temp%|
00000b30 21 31 32 3d 30 0d 06 04 23 20 20 c8 99 20 22 57 |!12=0...# .. "W|
00000b40 69 6d 70 5f 53 65 74 49 63 6f 6e 53 74 61 74 65 |imp_SetIconState|
00000b50 22 2c 2c 74 65 6d 70 25 0d 06 0e 05 e1 0d 06 18 |",,temp%........|
00000b60 04 0d 06 22 05 3a 0d 06 2c 04 0d 06 36 0b dd 20 |...".:..,...6.. |
00000b70 f2 6c 6f 61 64 0d 06 40 18 20 20 e7 20 73 74 61 |.load..@. . sta|
00000b80 74 75 73 25 3d 65 6d 70 74 79 25 20 8c 0d 06 4a |tus%=empty% ...J|
00000b90 12 20 20 20 20 c8 8e 20 71 25 21 34 30 20 ca 0d |. .. q%!40 ..|
00000ba0 06 54 12 20 20 20 20 20 20 c9 20 26 31 32 35 20 |.T. . &125 |
00000bb0 3a 0d 06 5e 66 20 20 20 20 20 20 20 20 f2 65 72 |:..^f .er|
00000bc0 72 6f 72 28 22 41 6e 20 65 78 74 65 72 6e 61 6c |ror("An external|
00000bd0 20 64 72 69 76 65 72 20 69 73 20 6e 65 65 64 65 | driver is neede|
00000be0 64 20 74 6f 20 74 6f 61 73 74 20 74 68 69 73 20 |d to toast this |
00000bf0 63 72 75 6d 70 65 74 2e 20 50 6c 65 61 73 65 20 |crumpet. Please |
00000c00 72 65 66 65 72 20 74 6f 20 74 68 65 20 6d 61 6e |refer to the man|
00000c10 75 61 6c 22 2c 32 29 0d 06 68 12 20 20 20 20 20 |ual",2)..h. |
00000c20 20 c9 20 26 31 32 36 20 3a 0d 06 72 55 20 20 20 | . &126 :..rU |
00000c30 20 20 20 20 20 f2 65 72 72 6f 72 28 22 54 68 69 | .error("Thi|
00000c40 73 20 62 72 65 61 64 20 68 61 73 20 6e 6f 74 20 |s bread has not |
00000c50 62 65 65 6e 20 74 6f 61 73 74 65 64 2e 20 44 6f |been toasted. Do|
00000c60 20 79 6f 75 20 77 61 6e 74 20 74 6f 20 74 6f 61 | you want to toa|
00000c70 73 74 20 69 74 20 6e 6f 77 3f 22 2c 33 29 0d 06 |st it now?",3)..|
00000c80 7c 2a 20 20 20 20 20 20 20 20 e7 20 72 65 70 6c ||* . repl|
00000c90 79 25 3d 31 20 8c 20 73 74 61 74 75 73 25 3d 74 |y%=1 . status%=t|
00000ca0 6f 61 73 74 69 6e 67 25 0d 06 86 12 20 20 20 20 |oasting%.... |
00000cb0 20 20 c9 20 26 31 32 37 20 3a 0d 06 90 51 20 20 | . &127 :...Q |
00000cc0 20 20 20 20 20 20 f2 65 72 72 6f 72 28 22 54 68 | .error("Th|
00000cd0 69 73 20 74 6f 61 73 74 20 69 73 20 61 6c 72 65 |is toast is alre|
00000ce0 61 64 79 20 74 6f 61 73 74 65 64 2e 20 44 6f 20 |ady toasted. Do |
00000cf0 79 6f 75 20 77 61 6e 74 20 74 6f 20 72 65 74 6f |you want to reto|
00000d00 61 73 74 20 69 74 3f 22 2c 33 29 0d 06 9a 29 20 |ast it?",3)...) |
00000d10 20 20 20 20 20 20 20 e7 20 72 65 70 6c 79 25 3d | . reply%=|
00000d20 31 20 8c 20 73 74 61 74 75 73 25 3d 62 75 72 6e |1 . status%=burn|
00000d30 69 6e 67 25 0d 06 a4 09 20 20 20 20 7f 0d 06 ae |ing%.... ....|
00000d40 36 20 20 20 20 20 20 f2 65 72 72 6f 72 28 22 53 |6 .error("S|
00000d50 6f 72 72 79 2c 20 54 6f 61 73 74 65 72 20 63 61 |orry, Toaster ca|
00000d60 6e 6e 6f 74 20 54 6f 61 73 74 20 74 68 69 73 22 |nnot Toast this"|
00000d70 2c 31 29 0d 06 b8 09 20 20 20 20 cb 0d 06 c2 1b |,1).... .....|
00000d80 20 20 20 20 e7 20 73 74 61 74 75 73 25 3c 3e 65 | . status%<>e|
00000d90 6d 70 74 79 25 20 8c 0d 06 cc 19 20 20 20 20 20 |mpty% ..... |
00000da0 20 f2 69 63 6f 6e 28 22 74 5f 64 6f 77 6e 22 29 | .icon("t_down")|
00000db0 0d 06 d6 2c 20 20 20 20 20 20 c8 99 20 22 4f 53 |..., .. "OS|
00000dc0 5f 52 65 61 64 4d 6f 6e 6f 74 6f 6e 69 63 54 69 |_ReadMonotonicTi|
00000dd0 6d 65 22 20 b8 20 63 6f 75 6e 74 25 0d 06 e0 15 |me" . count%....|
00000de0 20 20 20 20 20 20 63 6f 75 6e 74 25 2b 3d 35 30 | count%+=50|
00000df0 30 0d 06 ea 09 20 20 20 20 cd 0d 06 f4 07 20 20 |0.... ..... |
00000e00 cc 0d 06 fe 91 20 20 20 20 f2 65 72 72 6f 72 28 |..... .error(|
00000e10 22 54 68 69 73 20 73 65 73 73 69 6f 6e 20 6f 66 |"This session of|
00000e20 20 27 54 6f 61 73 74 65 72 27 20 69 73 20 63 75 | 'Toaster' is cu|
00000e30 72 72 65 6e 74 6c 79 20 62 75 73 79 2c 20 6f 72 |rrently busy, or|
00000e40 20 68 61 73 20 61 6e 20 6f 70 65 6e 20 64 69 61 | has an open dia|
00000e50 6c 6f 67 20 62 6f 78 2e 20 44 6f 20 79 6f 75 20 |log box. Do you |
00000e60 77 61 6e 74 20 74 6f 20 73 74 61 72 74 20 61 6e |want to start an|
00000e70 6f 74 68 65 72 20 73 65 73 73 69 6f 6e 20 6f 66 |other session of|
00000e80 20 27 54 6f 61 73 74 65 72 27 20 75 70 3f 22 2c | 'Toaster' up?",|
00000e90 33 29 0d 07 08 07 20 20 cd 0d 07 12 05 e1 0d 07 |3).... ........|
00000ea0 1c 04 0d 07 26 05 3a 0d 07 30 04 0d 07 3a 0e dd |....&.:..0...:..|
00000eb0 20 f2 6d 65 73 73 61 67 65 0d 07 44 10 20 20 c8 | .message..D. .|
00000ec0 8e 20 71 25 21 31 36 20 ca 0d 07 4e 15 20 20 20 |. q%!16 ...N. |
00000ed0 20 c9 20 30 20 3a 20 71 75 69 74 25 3d b9 0d 07 | . 0 : quit%=...|
00000ee0 58 13 20 20 20 20 c9 20 32 20 3a 20 f2 73 61 76 |X. . 2 : .sav|
00000ef0 65 0d 07 62 13 20 20 20 20 c9 20 33 20 3a 20 f2 |e..b. . 3 : .|
00000f00 6c 6f 61 64 0d 07 6c 07 20 20 cb 0d 07 76 05 e1 |load..l. ...v..|
00000f10 0d 07 80 04 0d 07 8a 05 3a 0d 07 94 04 0d 07 9e |........:.......|
00000f20 0c dd 20 f2 70 6f 70 75 70 0d 07 a8 12 20 20 c8 |.. .popup.... .|
00000f30 8e 20 73 74 61 74 75 73 25 20 ca 0d 07 b2 38 20 |. status% ....8 |
00000f40 20 20 20 c9 20 74 6f 61 73 74 69 6e 67 25 20 3a | . toasting% :|
00000f50 20 6f 75 74 25 3d 26 31 32 37 3a 6f 75 74 24 3d | out%=&127:out$=|
00000f60 22 31 32 37 22 3a 74 79 70 65 24 3d 22 54 6f 61 |"127":type$="Toa|
00000f70 73 74 22 0d 07 bc 39 20 20 20 20 c9 20 62 75 72 |st"...9 . bur|
00000f80 6e 69 6e 67 25 20 20 3a 20 6f 75 74 25 3d 26 31 |ning% : out%=&1|
00000f90 32 38 3a 6f 75 74 24 3d 22 31 32 38 22 3a 74 79 |28:out$="128":ty|
00000fa0 70 65 24 3d 22 42 75 72 6e 65 64 22 0d 07 c6 07 |pe$="Burned"....|
00000fb0 20 20 cb 0d 07 d0 18 20 20 f2 69 63 6f 6e 28 22 | ..... .icon("|
00000fc0 74 5f 75 70 22 2b 6f 75 74 24 29 0d 07 da 08 20 |t_up"+out$).... |
00000fd0 20 ef 37 0d 07 e4 17 20 20 73 74 61 74 75 73 25 | .7.... status%|
00000fe0 3d 70 6f 70 70 65 64 75 70 25 0d 07 ee 05 e1 0d |=poppedup%......|
00000ff0 07 f8 04 0d 08 02 05 3a 0d 08 0c 04 0d 08 16 0b |.......:........|
00001000 dd 20 f2 73 61 76 65 0d 08 20 1e 20 20 c8 99 20 |. .save.. . .. |
00001010 32 35 36 2c 71 25 2b 34 34 20 b8 20 70 61 74 68 |256,q%+44 . path|
00001020 6e 61 6d 65 24 0d 08 2a 24 20 20 c8 99 20 22 4f |name$..*$ .. "O|
00001030 53 5f 46 69 6c 65 22 2c 31 31 2c 70 61 74 68 6e |S_File",11,pathn|
00001040 61 6d 65 24 2c 6f 75 74 25 0d 08 34 05 e1 0d 08 |ame$,out%..4....|
00001050 3e 04 0d 08 48 05 3a 0d 08 52 04 0d 08 5c 44 f4 |>...H.:..R...\D.|
00001060 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ***************|
00001070 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00001090 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d |***************.|
000010a0 08 66 04 0d 08 70 10 dd 20 f2 66 75 6c 6c 65 72 |.f...p.. .fuller|
000010b0 72 6f 72 0d 08 7a 0b 20 20 ee 20 85 20 87 0d 08 |ror..z. . . ...|
000010c0 84 0a 20 20 ea 20 4d 25 0d 08 8e 0a 20 20 4d 25 |.. . M%.... M%|
000010d0 3d eb 0d 08 98 09 20 20 eb 20 31 0d 08 a2 1b 20 |=..... . 1.... |
000010e0 20 ef 20 31 39 2c 30 2c 32 34 2c 26 34 30 2c 26 | . 19,0,24,&40,&|
000010f0 34 30 2c 26 46 30 0d 08 ac 15 20 20 fb 20 30 2c |40,&F0.... . 0,|
00001100 26 34 30 2c 26 34 30 2c 26 46 30 0d 08 b6 1b 20 |&40,&40,&F0.... |
00001110 20 f1 20 8a 30 2c 30 29 20 f6 24 2b 22 20 28 22 | . .0,0) .$+" ("|
00001120 3b 9e 3b 22 29 22 0d 08 c0 2e 20 20 f1 20 8a 35 |;.;")".... . .5|
00001130 2c 31 33 29 20 22 54 68 69 73 20 54 6f 61 73 74 |,13) "This Toast|
00001140 65 72 20 68 61 73 20 70 65 72 66 6f 72 6d 65 64 |er has performed|
00001150 20 61 6e 22 0d 08 ca 23 20 20 f1 20 8a 36 2c 31 | an"...# . .6,1|
00001160 34 29 20 22 69 6c 6c 65 67 61 6c 20 6f 70 65 72 |4) "illegal oper|
00001170 61 74 69 6f 6e 2e 22 0d 08 d4 25 20 20 f1 20 8a |ation."...% . .|
00001180 35 2c 31 38 29 20 22 41 54 54 45 4d 54 20 54 4f |5,18) "ATTEMT TO|
00001190 20 43 4f 55 4e 54 49 4e 55 45 3f 22 0d 08 de 2e | COUNTINUE?"....|
000011a0 20 20 f1 20 8a 31 30 2c 32 30 29 20 22 45 6e 74 | . .10,20) "Ent|
000011b0 65 72 20 3d 20 4f 4b 2c 20 45 73 63 61 70 65 20 |er = OK, Escape |
000011c0 3d 20 43 61 6e 63 65 6c 2e 22 0d 08 e8 1b 20 20 |= Cancel.".... |
000011d0 f1 20 8a 33 30 2c 32 35 29 20 22 28 20 20 4f 4b |. .30,25) "( OK|
000011e0 20 20 29 22 3b 0d 08 f2 16 20 20 f5 20 fd 20 a6 | )";.... . . .|
000011f0 2d 31 31 33 20 84 20 a6 2d 37 34 0d 08 fc 1a 20 |-113 . .-74.... |
00001200 20 c8 99 20 22 57 69 6d 70 5f 53 65 74 4d 6f 64 | .. "Wimp_SetMod|
00001210 65 22 2c 4d 25 0d 09 06 12 20 20 e7 20 ac 20 a6 |e",M%.... . . .|
00001220 2d 37 34 20 8c 20 e0 0d 09 10 05 e1 0d ff |-74 . ........|
0000122e 
.