Home » Archimedes archive » Acorn User » AU 1996-05.adf » Regulars » StarInfo/Casula/!Boot/!RunImage
StarInfo/Casula/!Boot/!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 1996-05.adf » Regulars |
| Filename: | StarInfo/Casula/!Boot/!RunImage |
| Read OK: | ✔ |
| File size: | 2558 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >!Boot.!RunImage
20
30DIM ind% 512,block% 2048
40
50PROCStart
60
70ON ERROR PROCError
80
90quit%=FALSE
100ATTEMPTLOAD$=""
110
120REPEAT
130 SYS"Wimp_Poll",%110000110000,block% TO code%
140 CASE code% OF
150 WHEN 0:ATTEMPTLOAD$=""
160 WHEN 2:SYS"Wimp_OpenWindow",,block%
170 WHEN 3:quit%=TRUE:ATTEMPTLOAD$=""
180 WHEN 6
190 mx%=!block%:my%=block%!4:mb%=block%!8:icon%=block%!16
200 CASE icon% OF
210 WHEN 2:OSCLI"Filer_OpenDir <Boot$ToBeLoaded>"
220 WHEN 3:OSCLI"Filer_OpenDir <Boot$ToBeTasks>"
230 WHEN 4:PROCAttemptToLoad("Choices:Boot.PreDesktop")
240 WHEN 5:PROCAttemptToLoad("Choices:Boot.Desktop")
250 WHEN 6:OSCLI"Filer_OpenDir <Resources$Dir>"
260 WHEN 7:OSCLI"Filer_OpenDir Utils:"
270 WHEN 8:OSCLI"Filer_OpenDir Choices:Special"
280 WHEN 12:IF mb%=64 AND choice%<>0 THEN PROCSaveSprite
290 WHEN 13:PROCOpenBackdropMenu
300 WHEN 18:PROCDelete
310 WHEN 19:PROCStoreSetting:PROCSetBackdrop
320 WHEN 20:PROCSetBackdrop
330 ENDCASE
340 IF mb%=4 AND (icon%<=8 OR icon%>=19) THEN quit%=TRUE:PROCRiscOS3Bug(icon%)
350 WHEN 7:PROCEndDrag
360 WHEN 9:choice%=!block%:PROCSpriteChanged
370 WHEN 17,18
380 mess%=block%!16
390 CASE mess% OF
400 WHEN 0:quit%=TRUE:ATTEMPTLOAD$=""
410 WHEN 1:IF block%!4<>taskh% AND block%!40=&FF9 THEN PROCSaveFromTask
420 WHEN 2:IF block%!36<>-1 THEN PROCCopySprite
430 WHEN 3:IF block%!20=windowh% AND block%!40=&FF9 THEN PROCLoad(FNRead(block%+44))
440 WHEN 6:PROCRamTransfer
450 WHEN &502:PROCHelpRequest
460 ENDCASE
470 WHEN 19
480 IF block%!16=5 THEN
490 SYS"Wimp_StartTask","@RunType_FFF "+ATTEMPTLOAD$
500 ATTEMPTLOAD$=""
510 ENDIF
520 ENDCASE
530UNTIL quit% AND ATTEMPTLOAD$=""
540
550PROCBye
560
570END
580
590DEFPROCBye
600
610SYS"MessageTrans_CloseFile",messblock%
620SYS"XOS_Module",7,,messblock%
630IF menu%<>0 THEN SYS"XOS_Module",7,,menu%
640SYS"Wimp_CloseDown",taskh%,&4B534154
650
660ENDPROC
670
680DEFPROCError
690
700LOCAL click%
710
720!block%=ERR
730PROCWrite(block%+4,REPORT$+" ("+STR$ERL+")")
740
750SYS"Wimp_ReportError",block%,11,"BootEdit" TO ,click%
760
770IF click%=2 THEN
780 ON ERROR OFF
790 PROCBye
800 END
810ENDIF
820
830ENDPROC
840
850DEFPROCStart
860
870SYS"OS_Module",6,,,32 TO ,,messblock%
880$(messblock%+16)="Boot:Messages"
890SYS"MessageTrans_OpenFile",messblock%,messblock%+16,0
900
910SYS"Wimp_Initialise",200,&4B534154,"BootEdit" TO ,taskh%
920SYS"Wimp_OpenTemplate",,"Boot:Templates"
930$block%="window"
940SYS"Wimp_LoadTemplate",,block%+16,ind%,ind%+512,-1,block%,0
950SYS"Wimp_CreateWindow",,block%+16 TO windowh%
960block%!12=windowh%
970SYS"Wimp_CloseTemplate"
980SYS"Wimp_OpenWindow",,block%+12
990
1000SYS"XOS_SWINumberFromString",,"DragASprite_Start" TO ;DragSprite%
1010
1020DragSprite%=((DragSprite%AND1)=0)
1030
1040DIM sprites$(77)
1050
1060menu%=0
1070
1080PROCBackdropScan
1090
1100ENDPROC
1110
1120DEFPROCWrite(addr%,s$)
1130
1140$addr%=s$:addr%?LEN(s$)=0
1150
1160ENDPROC
1170
1180DEFFNRead(addr%)
1190
1200LOCAL s$
1210
1220WHILE (?addr%)>=32:s$+=CHR$(?addr%):addr%+=1:ENDWHILE
1230
1240=s$
1250
1260DEFPROCWriteSpriteName(t$)
1270
1280!block%=windowh%
1290block%!4=12
1300
1310SYS"Wimp_GetIconState",,block%
1320PROCWrite(block%!28,t$)
1330block%!8=0
1340block%!12=0
1350SYS"Wimp_SetIconState",,block%
1360
1370ENDPROC
1380
1390DEFPROCIconFlags(i%,c%,e%)
1400
1410!block%=windowh%
1420block%!4=i%
1430block%!8=e%
1440block%!12=c%
1450SYS"Wimp_SetIconState",,block%
1460
1470ENDPROC
1480
1490DEFPROCSpriteChanged
1500
1510PROCWriteSpriteName(sprites$(choice%))
1520IF choice%=0 THEN
1530 PROCIconFlags(14,1<<22,1<<22)
1540 PROCIconFlags(15,1<<22,1<<22)
1550 PROCIconFlags(16,1<<22,1<<22)
1560ELSE
1570 PROCIconFlags(14,1<<22,0)
1580 PROCIconFlags(15,1<<22,0)
1590 PROCIconFlags(16,1<<22,0)
1600ENDIF
1610
1620ENDPROC
1630
1640DEFPROCBackdropScan
1650
1660LOCAL bdsprite$,bdtype%
1670
1680bdfile%=OPENIN("Boot:BD")
1690IF bdfile%=0 THEN
1700 bdsprite$=""
1710 bdtype%=0
1720ELSE
1730 bdsprite$=GET$#bdfile%
1740 bdtype%=BGET#bdfile%
1750 CLOSE#bdfile%
1760ENDIF
1770
1780PROCScanFor(bdsprite$,bdtype%)
1790
1800ENDPROC
1810
1820DEFPROCScanFor(bdsprite$,bdtype%)
1830
1840LOCAL off%,f%,i%
1850
1860sprites$(0)="None"
1870
1880off%=0:spr%=1:choice%=0
1890
1900REPEAT
1910 SYS"OS_GBPB",10,"Choices:BackDrops",block%,1,off%,32,"*" TO ,,,,off%
1920 IF (off%<>-1) AND ((!block%)>>>8)=&FFFFF9 THEN
1930 sprites$(spr%)=FNRead(block%+20)
1940 IF sprites$(spr%)=bdsprite$ THEN choice%=spr%
1950 spr%+=1
1960 ENDIF
1970UNTIL off%=-1
1980
1990IF choice%=0 THEN
2000 bdtype%=0
2010 PROCIconFlags(14,3<<21,3<<21)
2020 PROCIconFlags(15,3<<21,1<<22)
2030 PROCIconFlags(16,3<<21,1<<22)
2040ELSE
2050 PROCIconFlags(14,3<<21,(bdtype%=1)AND(1<<21))
2060 PROCIconFlags(15,3<<21,(bdtype%=2)AND(1<<21))
2070 PROCIconFlags(16,3<<21,(bdtype%=3)AND(1<<21))
2080ENDIF
2090
2100PROCWriteSpriteName(sprites$(choice%))
2110
2120IF menu%<>0 THEN SYS"OS_Module",7,,menu%
2130
2140SYS"XOS_Module",6,,,28+24*spr% TO ,,menu%;f%
2150
2160IF f%AND1 THEN
2170 menu%=0
2180ELSE
2190 PROCWrite(menu%,"Backdrops")
2200 menu%?12=7:menu%?13=2
2210 menu%?14=7:menu%?15=0
2220 menu%!16=160:menu%!20=44
2230 menu%!24=0
2240 FOR i%=0 TO spr%-1
2250 !(menu%+28+i%*24)=((i%=spr%-1)AND128) OR ((i%=0)AND2)
2260 !(menu%+32+i%*24)=0
2270 !(menu%+36+i%*24)=&7009021
2280 PROCWrite(menu%+40+i%*24,sprites$(i%))
2290 NEXT i%
2300ENDIF
2310
2320ENDPROC
2330
2340DEFPROCLoad(file$)
2350
2360LOCAL leaf$,instr%
2370
2380block%!16=4
2390block%!12=block%!8
2400SYS"Wimp_SendMessage",17,block%,block%!4
2410
2420leaf$=file$
2430
2440REPEAT
2450 instr%=INSTR(leaf$,".")
2460 IF instr%>0 THEN
2470 leaf$=MID$(leaf$,instr%+1)
2480 ENDIF
2490UNTIL instr%=0
2500
2510OSCLI"Copy "+file$+" Choices:Backdrops."+leaf$+" ~A~C~DF~L~N~P~Q~RS~T~V"
2520
2530PROCScanFor(leaf$,FNGetType)
2540
2550ENDPROC
2560
2570DEFPROCDelete
2580
2590LOCAL yes%
2600
2610SYS"OS_Confirm" TO yes%
2620
2630IF yes%=ASC"y" THEN
2640 OSCLI"Delete Choices:Backdrops."+sprites$(choice%)
2650 PROCScanFor(sprites$((choice%+spr%-1)MODspr%),FNGetType)
2660ENDIF
2670
2680ENDPROC
2690
2700DEFPROCSetBackdrop
2710
2720LOCAL bdtype%,type$
2730
2740IF choice%<>0 THEN
2750
2760 bdtype%=FNGetType
2770
2780 CASE bdtype% OF
2790 WHEN 0,1:type$="-C"
2800 WHEN 2:type$="-S"
2810 WHEN 3:type$="-T"
2820 ENDCASE
2830
2840 OSCLI"Backdrop "+type$+" Choices:Backdrops."+sprites$(choice%)
2850ELSE
2860 OSCLI"PinBoard"
2870ENDIF
2880
2890ENDPROC
2900
2910DEFFNGetType
2920
2930LOCAL type%
2940
2950SYS"Wimp_WhichIcon",windowh%,block%,&210000,&210000
2960
2970IF !block%=-1 THEN type%=0 ELSE type%=(!block%)-13
2980
2990=type%
3000
3010DEFPROCStoreSetting
3020
3030LOCAL bdfile%
3040
3050bdfile%=OPENOUT("Boot:BD")
3060
3070BPUT#bdfile%,sprites$(choice%)
3080BPUT#bdfile%,FNGetType
3090
3100CLOSE#bdfile%
3110
3120ENDPROC
3130
3140DEFPROCSaveFromTask
3150
3160LOCAL leaf$
3170
3180leaf$=FNRead(block%+44)
3190PROCWrite(block%+44,"Choices:Backdrops."+leaf$)
3200
3210!block%=(66+LEN(leaf$))ANDNOT3
3220block%!16=2
3230block%!12=block%!8
3240SYS"Wimp_SendMessage",17,block%,block%!4
3250
3260ENDPROC
3270
3280DEFPROCCheckNotRunning
3290
3300LOCAL count%
3310
3320count%=0
3330
3340REPEAT
3350 SYS"TaskManager_EnumerateTasks",count%,block%,16 TO count%
3360 IF count%>=0 THEN
3370 IF FNRead(block%!4)="BootEdit" THEN ERROR 0,"BootEdit is already running"
3380 ENDIF
3390UNTIL count%<0
3400
3410ENDPROC
3420
3430DEFPROCSaveSprite
3440
3450LOCAL sx%,sy%,mx%,my%
3460
3470PROCWimp_GetScreenExtent(sx%,sy%)
3480
3490mx%=!block%:my%=block%!4
3500
3510ymax%=block%!20
3520
3530block%!4=5
3540block%!8=mx%-34
3550block%!12=my%-34
3560block%!16=mx%+34
3570block%!20=my%+34
3580block%!24=34
3590block%!28=34
3600block%!32=sx%-34
3610block%!36=sy%-34
3620
3630IF DragSprite% THEN
3640 SYS"DragASprite_Start",197,1,"file_FF9",block%+8,block%+24
3650ELSE
3660 SYS"Wimp_DragBox",,block%
3670ENDIF
3680
3690ENDPROC
3700
3710DEFPROCEndDrag
3720
3730LOCAL filesize%
3740
3750SYS"OS_File",17,"Choices:Backdrops."+sprites$(choice%) TO ,,,,filesize%
3760
3770SYS"Wimp_GetPointerInfo",,block%
3780
3790IF DragSprite% THEN SYS"DragASprite_Stop"
3800
3810IF block%!12=-2 AND block%!16=-1 THEN
3820 SYS"Wimp_StartTask","Filer_Run Choices:Backdrops."+sprites$(choice%)
3830ELSE
3840 block%!20=block%!12
3850 block%!24=block%!16
3860 block%!28=!block%
3870 block%!32=block%!4
3880 block%!36=filesize%
3890 block%!40=&FF9
3900 PROCWrite(block%+44,sprites$(choice%))
3910 !block%=(48+LEN(sprites$(choice%)))ANDNOT3
3920 block%!12=0
3930 block%!16=1
3940 SYS"Wimp_SendMessage",17,block%,block%!20,block%!24
3950ENDIF
3960
3970ENDPROC
3980
3990DEFPROCWimp_GetScreenExtent(RETURN sx%,RETURN sy%)
4000
4010LOCAL xeig%,yeig%,x%,y%
4020
4030SYS"OS_ReadModeVariable",-1,4 TO ,,xeig%
4040SYS"OS_ReadModeVariable",-1,5 TO ,,yeig%
4050SYS"OS_ReadModeVariable",-1,11 TO ,,x%
4060SYS"OS_ReadModeVariable",-1,12 TO ,,y%
4070
4080sx%=(x%+1)<<xeig%
4090sy%=(y%+1)<<yeig%
4100
4110ENDPROC
4120
4130DEFPROCCopySprite
4140
4150LOCAL file$
4160
4170file$=FNRead(block%+44)
4180
4190OSCLI"Copy Choices:Backdrops."+sprites$(choice%)+" "+file$+" ~A~C~DF~L~N~P~Q~RS~T~V"
4200
4210ENDPROC
4220
4230DEFPROCRamTransfer
4240
4250LOCAL buff%,size%,err%
4260
4270SYS"OS_File",17,"Choices:Backdrops."+sprites$(choice%) TO ,,,,size%
4280
4290IF block%!24>=size% THEN
4300 SYS"XOS_Module",6,,,size% TO ,,buff%;err%
4310 IF (err%AND1)=0 THEN
4320 SYS"OS_File",16,"Choices:Backdrops."+sprites$(choice%),buff%,0
4330 SYS"Wimp_TransferBlock",taskh%,buff%,block%!4,block%!20,size%
4340 block%!24=size%
4350 SYS"XOS_Module",7,,buff%
4360 ELSE
4370 block%!24=0
4380 ENDIF
4390ELSE
4400 block%!24=0
4410ENDIF
4420
4430block%!16=7
4440block%!12=block%!8
4450SYS"Wimp_SendMessage",17,block%,block%!4
4460
4470ENDPROC
4480
4490DEFPROCHelpRequest
4500
4510LOCAL help$,token$,flags%
4520
4530token$="I"+STR$(block%!36)
4540
4550SYS"XMessageTrans_Lookup",messblock%,token$,block%+20,235 TO ;flags%
4560IF (flags% AND 1)=0 THEN
4570 !block%=256
4580 block%!12=block%!8
4590 block%!16=&503
4600 SYS"Wimp_SendMessage",17,block%,block%!4
4610ENDIF
4620
4630ENDPROC
4640
4650DEFPROCOpenBackdropMenu
4660
4670LOCAL x%,y%
4680
4690!block%=windowh%
4700
4710SYS"Wimp_GetWindowState",,block%
4720x%=block%!4+block%!20
4730y%=block%!16+block%!24
4740block%!4=13
4750SYS"Wimp_GetIconState",,block%
4760SYS"Wimp_CreateMenu",,menu%,x%+block%!16,y%+block%!20-44
4770
4780ENDPROC
4790
4800DEFPROCAttemptToLoad(file$)
4810
4820ATTEMPTLOAD$=file$
4830
4840block%!20=windowh%
4850block%!24=0
4860block%!28=0
4870block%!32=0
4880block%!36=0
4890block%!40=&FFF
4900PROCWrite(block%+44,file$)
4910!block%=(48+LEN(file$))ANDNOT3
4920block%!12=0
4930block%!16=5
4940SYS"Wimp_SendMessage",18,block%,0
4950
4960ENDPROC
4970
4980DEFPROCRiscOS3Bug(icon%)
4990
5000!block%=windowh%
5010block%!4=icon%
5020block%!8=0
5030block%!12=1<<21
5040
5050SYS"Wimp_SetIconState",,block%
5060
5070ENDPROC
� >!Boot.!RunImage
� ind% 512,block% 2048
(
2
�Start
<
F� � �Error
P
Z quit%=�
dATTEMPTLOAD$=""
n
x�
�0 ș"Wimp_Poll",%110000110000,block% � code%
� Ȏ code% �
� � 0:ATTEMPTLOAD$=""
�' � 2:ș"Wimp_OpenWindow",,block%
�# � 3:quit%=�:ATTEMPTLOAD$=""
� � 6
�? mx%=!block%:my%=block%!4:mb%=block%!8:icon%=block%!16
� Ȏ icon% �
�2 � 2:�"Filer_OpenDir <Boot$ToBeLoaded>"
�1 � 3:�"Filer_OpenDir <Boot$ToBeTasks>"
�9 � 4:�AttemptToLoad("Choices:Boot.PreDesktop")
�6 � 5:�AttemptToLoad("Choices:Boot.Desktop")
�0 � 6:�"Filer_OpenDir <Resources$Dir>"
' � 7:�"Filer_OpenDir Utils:"
0 � 8:�"Filer_OpenDir Choices:Special"
4 � 12:� mb%=64 � choice%<>0 � �SaveSprite
"" � 13:�OpenBackdropMenu
, � 18:�Delete
6+ � 19:�StoreSetting:�SetBackdrop
@ � 20:�SetBackdrop
J �
TG � mb%=4 � (icon%<=8 � icon%>=19) � quit%=�:�RiscOS3Bug(icon%)
^ � 7:�EndDrag
h* � 9:choice%=!block%:�SpriteChanged
r � 17,18
| mess%=block%!16
� Ȏ mess% �
�' � 0:quit%=�:ATTEMPTLOAD$=""
�C � 1:� block%!4<>taskh% � block%!40=&FF9 � �SaveFromTask
�- � 2:� block%!36<>-1 � �CopySprite
�O � 3:� block%!20=windowh% � block%!40=&FF9 � �Load(�Read(block%+44))
� � 6:�RamTransfer
� � &502:�HelpRequest
� �
� � 19
� � block%!16=5 �
�; ș"Wimp_StartTask","@RunType_FFF "+ATTEMPTLOAD$
� ATTEMPTLOAD$=""
� �
�
� quit% � ATTEMPTLOAD$=""
&�Bye
0
:�
D
N ��Bye
X
b)ș"MessageTrans_CloseFile",messblock%
l ș"XOS_Module",7,,messblock%
v(� menu%<>0 � ș"XOS_Module",7,,menu%
�'ș"Wimp_CloseDown",taskh%,&4B534154
�
��
�
� ��Error
�
� � click%
�
�
!block%=�
�#�Write(block%+4,�$+" ("+Þ+")")
�
�7ș"Wimp_ReportError",block%,11,"BootEdit" � ,click%
�
� click%=2 �
� � �
�Bye
�
*�
4
>�
H
R ��Start
\
f'ș"OS_Module",6,,,32 � ,,messblock%
p$$(messblock%+16)="Boot:Messages"
z8ș"MessageTrans_OpenFile",messblock%,messblock%+16,0
�
�:ș"Wimp_Initialise",200,&4B534154,"BootEdit" � ,taskh%
�+ș"Wimp_OpenTemplate",,"Boot:Templates"
�$block%="window"
�>ș"Wimp_LoadTemplate",,block%+16,ind%,ind%+512,-1,block%,0
�/ș"Wimp_CreateWindow",,block%+16 � windowh%
�block%!12=windowh%
�ș"Wimp_CloseTemplate"
�"ș"Wimp_OpenWindow",,block%+12
�
�Cș"XOS_SWINumberFromString",,"DragASprite_Start" � ;DragSprite%
�
�#DragSprite%=((DragSprite%�1)=0)
� sprites$(77)
$ menu%=0
.
8�BackdropScan
B
L�
V
`��Write(addr%,s$)
j
t$addr%=s$:addr%?�(s$)=0
~
��
�
�ݤRead(addr%)
�
�� s$
�
�,ȕ (?addr%)>=32:s$+=�(?addr%):addr%+=1:�
�
�=s$
�
���WriteSpriteName(t$)
�
!block%=windowh%
block%!4=12
!ș"Wimp_GetIconState",,block%
(�Write(block%!28,t$)
2block%!8=0
<block%!12=0
F!ș"Wimp_SetIconState",,block%
P
Z�
d
n��IconFlags(i%,c%,e%)
x
�!block%=windowh%
�block%!4=i%
�block%!8=e%
�block%!12=c%
�!ș"Wimp_SetIconState",,block%
�
��
�
���SpriteChanged
�
�'�WriteSpriteName(sprites$(choice%))
�� choice%=0 �
� �IconFlags(14,1<<22,1<<22)
�IconFlags(15,1<<22,1<<22)
�IconFlags(16,1<<22,1<<22)
�
" �IconFlags(14,1<<22,0)
, �IconFlags(15,1<<22,0)
6 �IconFlags(16,1<<22,0)
@�
J
T�
^
h��BackdropScan
r
|� bdsprite$,bdtype%
�
�bdfile%=�("Boot:BD")
�� bdfile%=0 �
� bdsprite$=""
� bdtype%=0
��
� bdsprite$=�#bdfile%
� bdtype%=�#bdfile%
� �#bdfile%
��
�
� �ScanFor(bdsprite$,bdtype%)
�
�
��ScanFor(bdsprite$,bdtype%)
&
0� off%,f%,i%
:
Dsprites$(0)="None"
N
Xoff%=0:spr%=1:choice%=0
b
l�
vH ș"OS_GBPB",10,"Choices:BackDrops",block%,1,off%,32,"*" � ,,,,off%
�. � (off%<>-1) � ((!block%)>>>8)=&FFFFF9 �
�' sprites$(spr%)=�Read(block%+20)
�1 � sprites$(spr%)=bdsprite$ � choice%=spr%
� spr%+=1
� �
�
� off%=-1
�
�� choice%=0 �
� bdtype%=0
� �IconFlags(14,3<<21,3<<21)
� �IconFlags(15,3<<21,1<<22)
� �IconFlags(16,3<<21,1<<22)
��
. �IconFlags(14,3<<21,(bdtype%=1)�(1<<21))
. �IconFlags(15,3<<21,(bdtype%=2)�(1<<21))
. �IconFlags(16,3<<21,(bdtype%=3)�(1<<21))
�
*
4'�WriteSpriteName(sprites$(choice%))
>
H'� menu%<>0 � ș"OS_Module",7,,menu%
R
\.ș"XOS_Module",6,,,28+24*spr% � ,,menu%;f%
f
p � f%�1 �
z
menu%=0
��
� �Write(menu%,"Backdrops")
� menu%?12=7:menu%?13=2
� menu%?14=7:menu%?15=0
� menu%!16=160:menu%!20=44
� menu%!24=0
� � i%=0 � spr%-1
�8 !(menu%+28+i%*24)=((i%=spr%-1)�128) � ((i%=0)�2)
� !(menu%+32+i%*24)=0
�" !(menu%+36+i%*24)=&7009021
�+ �Write(menu%+40+i%*24,sprites$(i%))
�
� i%
��
�
$��Load(file$)
.
8� leaf$,instr%
B
Lblock%!16=4
Vblock%!12=block%!8
`+ș"Wimp_SendMessage",17,block%,block%!4
j
tleaf$=file$
~
��
� instr%=�leaf$,".")
� � instr%>0 �
� leaf$=�leaf$,instr%+1)
� �
�� instr%=0
�
�H�"Copy "+file$+" Choices:Backdrops."+leaf$+" ~A~C~DF~L~N~P~Q~RS~T~V"
�
� �ScanFor(leaf$,�GetType)
�
��
��Delete
� yes%
(
2ș"OS_Confirm" � yes%
<
F� yes%=�"y" �
P4 �"Delete Choices:Backdrops."+sprites$(choice%)
Z8 �ScanFor(sprites$((choice%+spr%-1)�spr%),�GetType)
d�
n
x�
�
���SetBackdrop
�
�� bdtype%,type$
�
�� choice%<>0 �
�
� bdtype%=�GetType
�
� Ȏ bdtype% �
� � 0,1:type$="-C"
� � 2:type$="-S"
� � 3:type$="-T"
�
@ �"Backdrop "+type$+" Choices:Backdrops."+sprites$(choice%)
"�
, �"PinBoard"
6�
@
J�
T
^
ݤGetType
h
r � type%
|
�6ș"Wimp_WhichIcon",windowh%,block%,&210000,&210000
�
�/� !block%=-1 � type%=0 � type%=(!block%)-13
�
�
=type%
�
���StoreSetting
�
�
� bdfile%
�
�bdfile%=�("Boot:BD")
�
� �#bdfile%,sprites$(choice%)
�#bdfile%,�GetType
�#bdfile%
&
0�
:
D��SaveFromTask
N
X � leaf$
b
lleaf$=�Read(block%+44)
v0�Write(block%+44,"Choices:Backdrops."+leaf$)
�
� !block%=(66+�(leaf$))��3
�block%!16=2
�block%!12=block%!8
�+ș"Wimp_SendMessage",17,block%,block%!4
�
��
�
���CheckNotRunning
�
� � count%
�
� count%=0
�
> ș"TaskManager_EnumerateTasks",count%,block%,16 � count%
� count%>=0 �
*H � �Read(block%!4)="BootEdit" � � 0,"BootEdit is already running"
4 �
>� count%<0
H
R�
\
f��SaveSprite
p
z� sx%,sy%,mx%,my%
�
�"�Wimp_GetScreenExtent(sx%,sy%)
�
� mx%=!block%:my%=block%!4
�
�ymax%=block%!20
�
�block%!4=5
�block%!8=mx%-34
�block%!12=my%-34
�block%!16=mx%+34
�block%!20=my%+34
�block%!24=34
block%!28=34
block%!32=sx%-34
block%!36=sy%-34
$
.� DragSprite% �
8? ș"DragASprite_Start",197,1,"file_FF9",block%+8,block%+24
B�
L ș"Wimp_DragBox",,block%
V�
`
j�
t
~
��EndDrag
�
�� filesize%
�
�Iș"OS_File",17,"Choices:Backdrops."+sprites$(choice%) � ,,,,filesize%
�
�#ș"Wimp_GetPointerInfo",,block%
�
�(� DragSprite% � ș"DragASprite_Stop"
�
�#� block%!12=-2 � block%!16=-1 �
�I ș"Wimp_StartTask","Filer_Run Choices:Backdrops."+sprites$(choice%)
��
block%!20=block%!12
block%!24=block%!16
block%!28=!block%
block%!32=block%!4
( block%!36=filesize%
2 block%!40=&FF9
<) �Write(block%+44,sprites$(choice%))
F* !block%=(48+�(sprites$(choice%)))��3
P block%!12=0
Z block%!16=1
d8 ș"Wimp_SendMessage",17,block%,block%!20,block%!24
n�
x
��
�
�'��Wimp_GetScreenExtent(� sx%,� sy%)
�
�� xeig%,yeig%,x%,y%
�
�*ș"OS_ReadModeVariable",-1,4 � ,,xeig%
�*ș"OS_ReadModeVariable",-1,5 � ,,yeig%
�(ș"OS_ReadModeVariable",-1,11 � ,,x%
�(ș"OS_ReadModeVariable",-1,12 � ,,y%
�
�sx%=(x%+1)<<xeig%
�sy%=(y%+1)<<yeig%
�
"��CopySprite
,
6 � file$
@
Jfile$=�Read(block%+44)
T
^T�"Copy Choices:Backdrops."+sprites$(choice%)+" "+file$+" ~A~C~DF~L~N~P~Q~RS~T~V"
h
r�
|
���RamTransfer
�
�� buff%,size%,err%
�
�Eș"OS_File",17,"Choices:Backdrops."+sprites$(choice%) � ,,,,size%
�
�� block%!24>=size% �
�- ș"XOS_Module",6,,,size% � ,,buff%;err%
� � (err%�1)=0 �
�E ș"OS_File",16,"Choices:Backdrops."+sprites$(choice%),buff%,0
�D ș"Wimp_TransferBlock",taskh%,buff%,block%!4,block%!20,size%
� block%!24=size%
� ș"XOS_Module",7,,buff%
�
block%!24=0
�
&�
0 block%!24=0
:�
D
Nblock%!16=7
Xblock%!12=block%!8
b+ș"Wimp_SendMessage",17,block%,block%!4
l
v�
�
���HelpRequest
�
�� help$,token$,flags%
�
�token$="I"+�(block%!36)
�
�Fș"XMessageTrans_Lookup",messblock%,token$,block%+20,235 � ;flags%
�� (flags% � 1)=0 �
� !block%=256
� block%!12=block%!8
� block%!16=&503
�- ș"Wimp_SendMessage",17,block%,block%!4
�
�
*��OpenBackdropMenu
4
> � x%,y%
H
R!block%=windowh%
\
f#ș"Wimp_GetWindowState",,block%
px%=block%!4+block%!20
zy%=block%!16+block%!24
�block%!4=13
�!ș"Wimp_GetIconState",,block%
�;ș"Wimp_CreateMenu",,menu%,x%+block%!16,y%+block%!20-44
�
��
�
���AttemptToLoad(file$)
�
�ATTEMPTLOAD$=file$
�
�block%!20=windowh%
�block%!24=0
�block%!28=0
block%!32=0
block%!36=0
block%!40=&FFF
$�Write(block%+44,file$)
. !block%=(48+�(file$))��3
8block%!12=0
Bblock%!16=5
L$ș"Wimp_SendMessage",18,block%,0
V
`�
j
t��RiscOS3Bug(icon%)
~
�!block%=windowh%
�block%!4=icon%
�block%!8=0
�block%!12=1<<21
�
�!ș"Wimp_SetIconState",,block%
�
��
� 00000000 0d 00 0a 16 f4 20 3e 21 42 6f 6f 74 2e 21 52 75 |..... >!Boot.!Ru|
00000010 6e 49 6d 61 67 65 0d 00 14 04 0d 00 1e 1a de 20 |nImage......... |
00000020 69 6e 64 25 20 35 31 32 2c 62 6c 6f 63 6b 25 20 |ind% 512,block% |
00000030 32 30 34 38 0d 00 28 04 0d 00 32 0a f2 53 74 61 |2048..(...2..Sta|
00000040 72 74 0d 00 3c 04 0d 00 46 0e ee 20 85 20 f2 45 |rt..<...F.. . .E|
00000050 72 72 6f 72 0d 00 50 04 0d 00 5a 0b 71 75 69 74 |rror..P...Z.quit|
00000060 25 3d a3 0d 00 64 13 41 54 54 45 4d 50 54 4c 4f |%=...d.ATTEMPTLO|
00000070 41 44 24 3d 22 22 0d 00 6e 04 0d 00 78 05 f5 0d |AD$=""..n...x...|
00000080 00 82 30 20 20 c8 99 22 57 69 6d 70 5f 50 6f 6c |..0 .."Wimp_Pol|
00000090 6c 22 2c 25 31 31 30 30 30 30 31 31 30 30 30 30 |l",%110000110000|
000000a0 2c 62 6c 6f 63 6b 25 20 b8 20 63 6f 64 65 25 0d |,block% . code%.|
000000b0 00 8c 10 20 20 c8 8e 20 63 6f 64 65 25 20 ca 0d |... .. code% ..|
000000c0 00 96 1b 20 20 20 20 c9 20 30 3a 41 54 54 45 4d |... . 0:ATTEM|
000000d0 50 54 4c 4f 41 44 24 3d 22 22 0d 00 a0 27 20 20 |PTLOAD$=""...' |
000000e0 20 20 c9 20 32 3a c8 99 22 57 69 6d 70 5f 4f 70 | . 2:.."Wimp_Op|
000000f0 65 6e 57 69 6e 64 6f 77 22 2c 2c 62 6c 6f 63 6b |enWindow",,block|
00000100 25 0d 00 aa 23 20 20 20 20 c9 20 33 3a 71 75 69 |%...# . 3:qui|
00000110 74 25 3d b9 3a 41 54 54 45 4d 50 54 4c 4f 41 44 |t%=.:ATTEMPTLOAD|
00000120 24 3d 22 22 0d 00 b4 0b 20 20 20 20 c9 20 36 0d |$="".... . 6.|
00000130 00 be 3f 20 20 20 20 20 20 6d 78 25 3d 21 62 6c |..? mx%=!bl|
00000140 6f 63 6b 25 3a 6d 79 25 3d 62 6c 6f 63 6b 25 21 |ock%:my%=block%!|
00000150 34 3a 6d 62 25 3d 62 6c 6f 63 6b 25 21 38 3a 69 |4:mb%=block%!8:i|
00000160 63 6f 6e 25 3d 62 6c 6f 63 6b 25 21 31 36 0d 00 |con%=block%!16..|
00000170 c8 14 20 20 20 20 20 20 c8 8e 20 69 63 6f 6e 25 |.. .. icon%|
00000180 20 ca 0d 00 d2 32 20 20 20 20 20 20 20 20 c9 20 | ....2 . |
00000190 32 3a ff 22 46 69 6c 65 72 5f 4f 70 65 6e 44 69 |2:."Filer_OpenDi|
000001a0 72 20 3c 42 6f 6f 74 24 54 6f 42 65 4c 6f 61 64 |r <Boot$ToBeLoad|
000001b0 65 64 3e 22 0d 00 dc 31 20 20 20 20 20 20 20 20 |ed>"...1 |
000001c0 c9 20 33 3a ff 22 46 69 6c 65 72 5f 4f 70 65 6e |. 3:."Filer_Open|
000001d0 44 69 72 20 3c 42 6f 6f 74 24 54 6f 42 65 54 61 |Dir <Boot$ToBeTa|
000001e0 73 6b 73 3e 22 0d 00 e6 39 20 20 20 20 20 20 20 |sks>"...9 |
000001f0 20 c9 20 34 3a f2 41 74 74 65 6d 70 74 54 6f 4c | . 4:.AttemptToL|
00000200 6f 61 64 28 22 43 68 6f 69 63 65 73 3a 42 6f 6f |oad("Choices:Boo|
00000210 74 2e 50 72 65 44 65 73 6b 74 6f 70 22 29 0d 00 |t.PreDesktop")..|
00000220 f0 36 20 20 20 20 20 20 20 20 c9 20 35 3a f2 41 |.6 . 5:.A|
00000230 74 74 65 6d 70 74 54 6f 4c 6f 61 64 28 22 43 68 |ttemptToLoad("Ch|
00000240 6f 69 63 65 73 3a 42 6f 6f 74 2e 44 65 73 6b 74 |oices:Boot.Deskt|
00000250 6f 70 22 29 0d 00 fa 30 20 20 20 20 20 20 20 20 |op")...0 |
00000260 c9 20 36 3a ff 22 46 69 6c 65 72 5f 4f 70 65 6e |. 6:."Filer_Open|
00000270 44 69 72 20 3c 52 65 73 6f 75 72 63 65 73 24 44 |Dir <Resources$D|
00000280 69 72 3e 22 0d 01 04 27 20 20 20 20 20 20 20 20 |ir>"...' |
00000290 c9 20 37 3a ff 22 46 69 6c 65 72 5f 4f 70 65 6e |. 7:."Filer_Open|
000002a0 44 69 72 20 55 74 69 6c 73 3a 22 0d 01 0e 30 20 |Dir Utils:"...0 |
000002b0 20 20 20 20 20 20 20 c9 20 38 3a ff 22 46 69 6c | . 8:."Fil|
000002c0 65 72 5f 4f 70 65 6e 44 69 72 20 43 68 6f 69 63 |er_OpenDir Choic|
000002d0 65 73 3a 53 70 65 63 69 61 6c 22 0d 01 18 34 20 |es:Special"...4 |
000002e0 20 20 20 20 20 20 20 c9 20 31 32 3a e7 20 6d 62 | . 12:. mb|
000002f0 25 3d 36 34 20 80 20 63 68 6f 69 63 65 25 3c 3e |%=64 . choice%<>|
00000300 30 20 8c 20 f2 53 61 76 65 53 70 72 69 74 65 0d |0 . .SaveSprite.|
00000310 01 22 22 20 20 20 20 20 20 20 20 c9 20 31 33 3a |."" . 13:|
00000320 f2 4f 70 65 6e 42 61 63 6b 64 72 6f 70 4d 65 6e |.OpenBackdropMen|
00000330 75 0d 01 2c 18 20 20 20 20 20 20 20 20 c9 20 31 |u..,. . 1|
00000340 38 3a f2 44 65 6c 65 74 65 0d 01 36 2b 20 20 20 |8:.Delete..6+ |
00000350 20 20 20 20 20 c9 20 31 39 3a f2 53 74 6f 72 65 | . 19:.Store|
00000360 53 65 74 74 69 6e 67 3a f2 53 65 74 42 61 63 6b |Setting:.SetBack|
00000370 64 72 6f 70 0d 01 40 1d 20 20 20 20 20 20 20 20 |drop..@. |
00000380 c9 20 32 30 3a f2 53 65 74 42 61 63 6b 64 72 6f |. 20:.SetBackdro|
00000390 70 0d 01 4a 0b 20 20 20 20 20 20 cb 0d 01 54 47 |p..J. ...TG|
000003a0 20 20 20 20 20 20 e7 20 6d 62 25 3d 34 20 80 20 | . mb%=4 . |
000003b0 28 69 63 6f 6e 25 3c 3d 38 20 84 20 69 63 6f 6e |(icon%<=8 . icon|
000003c0 25 3e 3d 31 39 29 20 8c 20 71 75 69 74 25 3d b9 |%>=19) . quit%=.|
000003d0 3a f2 52 69 73 63 4f 53 33 42 75 67 28 69 63 6f |:.RiscOS3Bug(ico|
000003e0 6e 25 29 0d 01 5e 14 20 20 20 20 c9 20 37 3a f2 |n%)..^. . 7:.|
000003f0 45 6e 64 44 72 61 67 0d 01 68 2a 20 20 20 20 c9 |EndDrag..h* .|
00000400 20 39 3a 63 68 6f 69 63 65 25 3d 21 62 6c 6f 63 | 9:choice%=!bloc|
00000410 6b 25 3a f2 53 70 72 69 74 65 43 68 61 6e 67 65 |k%:.SpriteChange|
00000420 64 0d 01 72 0f 20 20 20 20 c9 20 31 37 2c 31 38 |d..r. . 17,18|
00000430 0d 01 7c 19 20 20 20 20 20 20 6d 65 73 73 25 3d |..|. mess%=|
00000440 62 6c 6f 63 6b 25 21 31 36 0d 01 86 14 20 20 20 |block%!16.... |
00000450 20 20 20 c8 8e 20 6d 65 73 73 25 20 ca 0d 01 90 | .. mess% ....|
00000460 27 20 20 20 20 20 20 20 20 c9 20 30 3a 71 75 69 |' . 0:qui|
00000470 74 25 3d b9 3a 41 54 54 45 4d 50 54 4c 4f 41 44 |t%=.:ATTEMPTLOAD|
00000480 24 3d 22 22 0d 01 9a 43 20 20 20 20 20 20 20 20 |$=""...C |
00000490 c9 20 31 3a e7 20 62 6c 6f 63 6b 25 21 34 3c 3e |. 1:. block%!4<>|
000004a0 74 61 73 6b 68 25 20 80 20 62 6c 6f 63 6b 25 21 |taskh% . block%!|
000004b0 34 30 3d 26 46 46 39 20 8c 20 f2 53 61 76 65 46 |40=&FF9 . .SaveF|
000004c0 72 6f 6d 54 61 73 6b 0d 01 a4 2d 20 20 20 20 20 |romTask...- |
000004d0 20 20 20 c9 20 32 3a e7 20 62 6c 6f 63 6b 25 21 | . 2:. block%!|
000004e0 33 36 3c 3e 2d 31 20 8c 20 f2 43 6f 70 79 53 70 |36<>-1 . .CopySp|
000004f0 72 69 74 65 0d 01 ae 4f 20 20 20 20 20 20 20 20 |rite...O |
00000500 c9 20 33 3a e7 20 62 6c 6f 63 6b 25 21 32 30 3d |. 3:. block%!20=|
00000510 77 69 6e 64 6f 77 68 25 20 80 20 62 6c 6f 63 6b |windowh% . block|
00000520 25 21 34 30 3d 26 46 46 39 20 8c 20 f2 4c 6f 61 |%!40=&FF9 . .Loa|
00000530 64 28 a4 52 65 61 64 28 62 6c 6f 63 6b 25 2b 34 |d(.Read(block%+4|
00000540 34 29 29 0d 01 b8 1c 20 20 20 20 20 20 20 20 c9 |4)).... .|
00000550 20 36 3a f2 52 61 6d 54 72 61 6e 73 66 65 72 0d | 6:.RamTransfer.|
00000560 01 c2 1f 20 20 20 20 20 20 20 20 c9 20 26 35 30 |... . &50|
00000570 32 3a f2 48 65 6c 70 52 65 71 75 65 73 74 0d 01 |2:.HelpRequest..|
00000580 cc 0b 20 20 20 20 20 20 cb 0d 01 d6 0c 20 20 20 |.. ..... |
00000590 20 c9 20 31 39 0d 01 e0 19 20 20 20 20 20 20 e7 | . 19.... .|
000005a0 20 62 6c 6f 63 6b 25 21 31 36 3d 35 20 8c 0d 01 | block%!16=5 ...|
000005b0 ea 3b 20 20 20 20 20 20 20 20 c8 99 22 57 69 6d |.; .."Wim|
000005c0 70 5f 53 74 61 72 74 54 61 73 6b 22 2c 22 40 52 |p_StartTask","@R|
000005d0 75 6e 54 79 70 65 5f 46 46 46 20 22 2b 41 54 54 |unType_FFF "+ATT|
000005e0 45 4d 50 54 4c 4f 41 44 24 0d 01 f4 1b 20 20 20 |EMPTLOAD$.... |
000005f0 20 20 20 20 20 41 54 54 45 4d 50 54 4c 4f 41 44 | ATTEMPTLOAD|
00000600 24 3d 22 22 0d 01 fe 0b 20 20 20 20 20 20 cd 0d |$="".... ..|
00000610 02 08 07 20 20 cb 0d 02 12 1d fd 20 71 75 69 74 |... ...... quit|
00000620 25 20 80 20 41 54 54 45 4d 50 54 4c 4f 41 44 24 |% . ATTEMPTLOAD$|
00000630 3d 22 22 0d 02 1c 04 0d 02 26 08 f2 42 79 65 0d |=""......&..Bye.|
00000640 02 30 04 0d 02 3a 05 e0 0d 02 44 04 0d 02 4e 09 |.0...:....D...N.|
00000650 dd f2 42 79 65 0d 02 58 04 0d 02 62 29 c8 99 22 |..Bye..X...b).."|
00000660 4d 65 73 73 61 67 65 54 72 61 6e 73 5f 43 6c 6f |MessageTrans_Clo|
00000670 73 65 46 69 6c 65 22 2c 6d 65 73 73 62 6c 6f 63 |seFile",messbloc|
00000680 6b 25 0d 02 6c 20 c8 99 22 58 4f 53 5f 4d 6f 64 |k%..l .."XOS_Mod|
00000690 75 6c 65 22 2c 37 2c 2c 6d 65 73 73 62 6c 6f 63 |ule",7,,messbloc|
000006a0 6b 25 0d 02 76 28 e7 20 6d 65 6e 75 25 3c 3e 30 |k%..v(. menu%<>0|
000006b0 20 8c 20 c8 99 22 58 4f 53 5f 4d 6f 64 75 6c 65 | . .."XOS_Module|
000006c0 22 2c 37 2c 2c 6d 65 6e 75 25 0d 02 80 27 c8 99 |",7,,menu%...'..|
000006d0 22 57 69 6d 70 5f 43 6c 6f 73 65 44 6f 77 6e 22 |"Wimp_CloseDown"|
000006e0 2c 74 61 73 6b 68 25 2c 26 34 42 35 33 34 31 35 |,taskh%,&4B53415|
000006f0 34 0d 02 8a 04 0d 02 94 05 e1 0d 02 9e 04 0d 02 |4...............|
00000700 a8 0b dd f2 45 72 72 6f 72 0d 02 b2 04 0d 02 bc |....Error.......|
00000710 0c ea 20 63 6c 69 63 6b 25 0d 02 c6 04 0d 02 d0 |.. click%.......|
00000720 0d 21 62 6c 6f 63 6b 25 3d 9f 0d 02 da 23 f2 57 |.!block%=....#.W|
00000730 72 69 74 65 28 62 6c 6f 63 6b 25 2b 34 2c f6 24 |rite(block%+4,.$|
00000740 2b 22 20 28 22 2b c3 9e 2b 22 29 22 29 0d 02 e4 |+" ("+..+")")...|
00000750 04 0d 02 ee 37 c8 99 22 57 69 6d 70 5f 52 65 70 |....7.."Wimp_Rep|
00000760 6f 72 74 45 72 72 6f 72 22 2c 62 6c 6f 63 6b 25 |ortError",block%|
00000770 2c 31 31 2c 22 42 6f 6f 74 45 64 69 74 22 20 b8 |,11,"BootEdit" .|
00000780 20 2c 63 6c 69 63 6b 25 0d 02 f8 04 0d 03 02 10 | ,click%........|
00000790 e7 20 63 6c 69 63 6b 25 3d 32 20 8c 0d 03 0c 0b |. click%=2 .....|
000007a0 20 20 ee 20 85 20 87 0d 03 16 0a 20 20 f2 42 79 | . . ..... .By|
000007b0 65 0d 03 20 07 20 20 e0 0d 03 2a 05 cd 0d 03 34 |e.. . ...*....4|
000007c0 04 0d 03 3e 05 e1 0d 03 48 04 0d 03 52 0b dd f2 |...>....H...R...|
000007d0 53 74 61 72 74 0d 03 5c 04 0d 03 66 27 c8 99 22 |Start..\...f'.."|
000007e0 4f 53 5f 4d 6f 64 75 6c 65 22 2c 36 2c 2c 2c 33 |OS_Module",6,,,3|
000007f0 32 20 b8 20 2c 2c 6d 65 73 73 62 6c 6f 63 6b 25 |2 . ,,messblock%|
00000800 0d 03 70 24 24 28 6d 65 73 73 62 6c 6f 63 6b 25 |..p$$(messblock%|
00000810 2b 31 36 29 3d 22 42 6f 6f 74 3a 4d 65 73 73 61 |+16)="Boot:Messa|
00000820 67 65 73 22 0d 03 7a 38 c8 99 22 4d 65 73 73 61 |ges"..z8.."Messa|
00000830 67 65 54 72 61 6e 73 5f 4f 70 65 6e 46 69 6c 65 |geTrans_OpenFile|
00000840 22 2c 6d 65 73 73 62 6c 6f 63 6b 25 2c 6d 65 73 |",messblock%,mes|
00000850 73 62 6c 6f 63 6b 25 2b 31 36 2c 30 0d 03 84 04 |sblock%+16,0....|
00000860 0d 03 8e 3a c8 99 22 57 69 6d 70 5f 49 6e 69 74 |...:.."Wimp_Init|
00000870 69 61 6c 69 73 65 22 2c 32 30 30 2c 26 34 42 35 |ialise",200,&4B5|
00000880 33 34 31 35 34 2c 22 42 6f 6f 74 45 64 69 74 22 |34154,"BootEdit"|
00000890 20 b8 20 2c 74 61 73 6b 68 25 0d 03 98 2b c8 99 | . ,taskh%...+..|
000008a0 22 57 69 6d 70 5f 4f 70 65 6e 54 65 6d 70 6c 61 |"Wimp_OpenTempla|
000008b0 74 65 22 2c 2c 22 42 6f 6f 74 3a 54 65 6d 70 6c |te",,"Boot:Templ|
000008c0 61 74 65 73 22 0d 03 a2 14 24 62 6c 6f 63 6b 25 |ates"....$block%|
000008d0 3d 22 77 69 6e 64 6f 77 22 0d 03 ac 3e c8 99 22 |="window"...>.."|
000008e0 57 69 6d 70 5f 4c 6f 61 64 54 65 6d 70 6c 61 74 |Wimp_LoadTemplat|
000008f0 65 22 2c 2c 62 6c 6f 63 6b 25 2b 31 36 2c 69 6e |e",,block%+16,in|
00000900 64 25 2c 69 6e 64 25 2b 35 31 32 2c 2d 31 2c 62 |d%,ind%+512,-1,b|
00000910 6c 6f 63 6b 25 2c 30 0d 03 b6 2f c8 99 22 57 69 |lock%,0.../.."Wi|
00000920 6d 70 5f 43 72 65 61 74 65 57 69 6e 64 6f 77 22 |mp_CreateWindow"|
00000930 2c 2c 62 6c 6f 63 6b 25 2b 31 36 20 b8 20 77 69 |,,block%+16 . wi|
00000940 6e 64 6f 77 68 25 0d 03 c0 16 62 6c 6f 63 6b 25 |ndowh%....block%|
00000950 21 31 32 3d 77 69 6e 64 6f 77 68 25 0d 03 ca 1a |!12=windowh%....|
00000960 c8 99 22 57 69 6d 70 5f 43 6c 6f 73 65 54 65 6d |.."Wimp_CloseTem|
00000970 70 6c 61 74 65 22 0d 03 d4 22 c8 99 22 57 69 6d |plate"...".."Wim|
00000980 70 5f 4f 70 65 6e 57 69 6e 64 6f 77 22 2c 2c 62 |p_OpenWindow",,b|
00000990 6c 6f 63 6b 25 2b 31 32 0d 03 de 04 0d 03 e8 43 |lock%+12.......C|
000009a0 c8 99 22 58 4f 53 5f 53 57 49 4e 75 6d 62 65 72 |.."XOS_SWINumber|
000009b0 46 72 6f 6d 53 74 72 69 6e 67 22 2c 2c 22 44 72 |FromString",,"Dr|
000009c0 61 67 41 53 70 72 69 74 65 5f 53 74 61 72 74 22 |agASprite_Start"|
000009d0 20 b8 20 3b 44 72 61 67 53 70 72 69 74 65 25 0d | . ;DragSprite%.|
000009e0 03 f2 04 0d 03 fc 23 44 72 61 67 53 70 72 69 74 |......#DragSprit|
000009f0 65 25 3d 28 28 44 72 61 67 53 70 72 69 74 65 25 |e%=((DragSprite%|
00000a00 80 31 29 3d 30 29 0d 04 06 04 0d 04 10 12 de 20 |.1)=0)......... |
00000a10 73 70 72 69 74 65 73 24 28 37 37 29 0d 04 1a 04 |sprites$(77)....|
00000a20 0d 04 24 0b 6d 65 6e 75 25 3d 30 0d 04 2e 04 0d |..$.menu%=0.....|
00000a30 04 38 11 f2 42 61 63 6b 64 72 6f 70 53 63 61 6e |.8..BackdropScan|
00000a40 0d 04 42 04 0d 04 4c 05 e1 0d 04 56 04 0d 04 60 |..B...L....V...`|
00000a50 15 dd f2 57 72 69 74 65 28 61 64 64 72 25 2c 73 |...Write(addr%,s|
00000a60 24 29 0d 04 6a 04 0d 04 74 1b 24 61 64 64 72 25 |$)..j...t.$addr%|
00000a70 3d 73 24 3a 61 64 64 72 25 3f a9 28 73 24 29 3d |=s$:addr%?.(s$)=|
00000a80 30 0d 04 7e 04 0d 04 88 05 e1 0d 04 92 04 0d 04 |0..~............|
00000a90 9c 11 dd a4 52 65 61 64 28 61 64 64 72 25 29 0d |....Read(addr%).|
00000aa0 04 a6 04 0d 04 b0 08 ea 20 73 24 0d 04 ba 04 0d |........ s$.....|
00000ab0 04 c4 2c c8 95 20 28 3f 61 64 64 72 25 29 3e 3d |..,.. (?addr%)>=|
00000ac0 33 32 3a 73 24 2b 3d bd 28 3f 61 64 64 72 25 29 |32:s$+=.(?addr%)|
00000ad0 3a 61 64 64 72 25 2b 3d 31 3a ce 0d 04 ce 04 0d |:addr%+=1:......|
00000ae0 04 d8 07 3d 73 24 0d 04 e2 04 0d 04 ec 19 dd f2 |...=s$..........|
00000af0 57 72 69 74 65 53 70 72 69 74 65 4e 61 6d 65 28 |WriteSpriteName(|
00000b00 74 24 29 0d 04 f6 04 0d 05 00 14 21 62 6c 6f 63 |t$)........!bloc|
00000b10 6b 25 3d 77 69 6e 64 6f 77 68 25 0d 05 0a 0f 62 |k%=windowh%....b|
00000b20 6c 6f 63 6b 25 21 34 3d 31 32 0d 05 14 04 0d 05 |lock%!4=12......|
00000b30 1e 21 c8 99 22 57 69 6d 70 5f 47 65 74 49 63 6f |.!.."Wimp_GetIco|
00000b40 6e 53 74 61 74 65 22 2c 2c 62 6c 6f 63 6b 25 0d |nState",,block%.|
00000b50 05 28 18 f2 57 72 69 74 65 28 62 6c 6f 63 6b 25 |.(..Write(block%|
00000b60 21 32 38 2c 74 24 29 0d 05 32 0e 62 6c 6f 63 6b |!28,t$)..2.block|
00000b70 25 21 38 3d 30 0d 05 3c 0f 62 6c 6f 63 6b 25 21 |%!8=0..<.block%!|
00000b80 31 32 3d 30 0d 05 46 21 c8 99 22 57 69 6d 70 5f |12=0..F!.."Wimp_|
00000b90 53 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 62 |SetIconState",,b|
00000ba0 6c 6f 63 6b 25 0d 05 50 04 0d 05 5a 05 e1 0d 05 |lock%..P...Z....|
00000bb0 64 04 0d 05 6e 19 dd f2 49 63 6f 6e 46 6c 61 67 |d...n...IconFlag|
00000bc0 73 28 69 25 2c 63 25 2c 65 25 29 0d 05 78 04 0d |s(i%,c%,e%)..x..|
00000bd0 05 82 14 21 62 6c 6f 63 6b 25 3d 77 69 6e 64 6f |...!block%=windo|
00000be0 77 68 25 0d 05 8c 0f 62 6c 6f 63 6b 25 21 34 3d |wh%....block%!4=|
00000bf0 69 25 0d 05 96 0f 62 6c 6f 63 6b 25 21 38 3d 65 |i%....block%!8=e|
00000c00 25 0d 05 a0 10 62 6c 6f 63 6b 25 21 31 32 3d 63 |%....block%!12=c|
00000c10 25 0d 05 aa 21 c8 99 22 57 69 6d 70 5f 53 65 74 |%...!.."Wimp_Set|
00000c20 49 63 6f 6e 53 74 61 74 65 22 2c 2c 62 6c 6f 63 |IconState",,bloc|
00000c30 6b 25 0d 05 b4 04 0d 05 be 05 e1 0d 05 c8 04 0d |k%..............|
00000c40 05 d2 13 dd f2 53 70 72 69 74 65 43 68 61 6e 67 |.....SpriteChang|
00000c50 65 64 0d 05 dc 04 0d 05 e6 27 f2 57 72 69 74 65 |ed.......'.Write|
00000c60 53 70 72 69 74 65 4e 61 6d 65 28 73 70 72 69 74 |SpriteName(sprit|
00000c70 65 73 24 28 63 68 6f 69 63 65 25 29 29 0d 05 f0 |es$(choice%))...|
00000c80 11 e7 20 63 68 6f 69 63 65 25 3d 30 20 8c 0d 05 |.. choice%=0 ...|
00000c90 fa 20 20 20 f2 49 63 6f 6e 46 6c 61 67 73 28 31 |. .IconFlags(1|
00000ca0 34 2c 31 3c 3c 32 32 2c 31 3c 3c 32 32 29 0d 06 |4,1<<22,1<<22)..|
00000cb0 04 20 20 20 f2 49 63 6f 6e 46 6c 61 67 73 28 31 |. .IconFlags(1|
00000cc0 35 2c 31 3c 3c 32 32 2c 31 3c 3c 32 32 29 0d 06 |5,1<<22,1<<22)..|
00000cd0 0e 20 20 20 f2 49 63 6f 6e 46 6c 61 67 73 28 31 |. .IconFlags(1|
00000ce0 36 2c 31 3c 3c 32 32 2c 31 3c 3c 32 32 29 0d 06 |6,1<<22,1<<22)..|
00000cf0 18 05 cc 0d 06 22 1c 20 20 f2 49 63 6f 6e 46 6c |.....". .IconFl|
00000d00 61 67 73 28 31 34 2c 31 3c 3c 32 32 2c 30 29 0d |ags(14,1<<22,0).|
00000d10 06 2c 1c 20 20 f2 49 63 6f 6e 46 6c 61 67 73 28 |.,. .IconFlags(|
00000d20 31 35 2c 31 3c 3c 32 32 2c 30 29 0d 06 36 1c 20 |15,1<<22,0)..6. |
00000d30 20 f2 49 63 6f 6e 46 6c 61 67 73 28 31 36 2c 31 | .IconFlags(16,1|
00000d40 3c 3c 32 32 2c 30 29 0d 06 40 05 cd 0d 06 4a 04 |<<22,0)..@....J.|
00000d50 0d 06 54 05 e1 0d 06 5e 04 0d 06 68 12 dd f2 42 |..T....^...h...B|
00000d60 61 63 6b 64 72 6f 70 53 63 61 6e 0d 06 72 04 0d |ackdropScan..r..|
00000d70 06 7c 17 ea 20 62 64 73 70 72 69 74 65 24 2c 62 |.|.. bdsprite$,b|
00000d80 64 74 79 70 65 25 0d 06 86 04 0d 06 90 18 62 64 |dtype%........bd|
00000d90 66 69 6c 65 25 3d 8e 28 22 42 6f 6f 74 3a 42 44 |file%=.("Boot:BD|
00000da0 22 29 0d 06 9a 11 e7 20 62 64 66 69 6c 65 25 3d |")..... bdfile%=|
00000db0 30 20 8c 0d 06 a4 12 20 20 62 64 73 70 72 69 74 |0 ..... bdsprit|
00000dc0 65 24 3d 22 22 0d 06 ae 0f 20 20 62 64 74 79 70 |e$="".... bdtyp|
00000dd0 65 25 3d 30 0d 06 b8 05 cc 0d 06 c2 19 20 20 62 |e%=0......... b|
00000de0 64 73 70 72 69 74 65 24 3d be 23 62 64 66 69 6c |dsprite$=.#bdfil|
00000df0 65 25 0d 06 cc 17 20 20 62 64 74 79 70 65 25 3d |e%.... bdtype%=|
00000e00 9a 23 62 64 66 69 6c 65 25 0d 06 d6 0f 20 20 d9 |.#bdfile%.... .|
00000e10 23 62 64 66 69 6c 65 25 0d 06 e0 05 cd 0d 06 ea |#bdfile%........|
00000e20 04 0d 06 f4 1f f2 53 63 61 6e 46 6f 72 28 62 64 |......ScanFor(bd|
00000e30 73 70 72 69 74 65 24 2c 62 64 74 79 70 65 25 29 |sprite$,bdtype%)|
00000e40 0d 06 fe 04 0d 07 08 05 e1 0d 07 12 04 0d 07 1c |................|
00000e50 20 dd f2 53 63 61 6e 46 6f 72 28 62 64 73 70 72 | ..ScanFor(bdspr|
00000e60 69 74 65 24 2c 62 64 74 79 70 65 25 29 0d 07 26 |ite$,bdtype%)..&|
00000e70 04 0d 07 30 10 ea 20 6f 66 66 25 2c 66 25 2c 69 |...0.. off%,f%,i|
00000e80 25 0d 07 3a 04 0d 07 44 16 73 70 72 69 74 65 73 |%..:...D.sprites|
00000e90 24 28 30 29 3d 22 4e 6f 6e 65 22 0d 07 4e 04 0d |$(0)="None"..N..|
00000ea0 07 58 1b 6f 66 66 25 3d 30 3a 73 70 72 25 3d 31 |.X.off%=0:spr%=1|
00000eb0 3a 63 68 6f 69 63 65 25 3d 30 0d 07 62 04 0d 07 |:choice%=0..b...|
00000ec0 6c 05 f5 0d 07 76 48 20 20 c8 99 22 4f 53 5f 47 |l....vH .."OS_G|
00000ed0 42 50 42 22 2c 31 30 2c 22 43 68 6f 69 63 65 73 |BPB",10,"Choices|
00000ee0 3a 42 61 63 6b 44 72 6f 70 73 22 2c 62 6c 6f 63 |:BackDrops",bloc|
00000ef0 6b 25 2c 31 2c 6f 66 66 25 2c 33 32 2c 22 2a 22 |k%,1,off%,32,"*"|
00000f00 20 b8 20 2c 2c 2c 2c 6f 66 66 25 0d 07 80 2e 20 | . ,,,,off%.... |
00000f10 20 e7 20 28 6f 66 66 25 3c 3e 2d 31 29 20 80 20 | . (off%<>-1) . |
00000f20 28 28 21 62 6c 6f 63 6b 25 29 3e 3e 3e 38 29 3d |((!block%)>>>8)=|
00000f30 26 46 46 46 46 46 39 20 8c 0d 07 8a 27 20 20 20 |&FFFFF9 ....' |
00000f40 20 73 70 72 69 74 65 73 24 28 73 70 72 25 29 3d | sprites$(spr%)=|
00000f50 a4 52 65 61 64 28 62 6c 6f 63 6b 25 2b 32 30 29 |.Read(block%+20)|
00000f60 0d 07 94 31 20 20 20 20 e7 20 73 70 72 69 74 65 |...1 . sprite|
00000f70 73 24 28 73 70 72 25 29 3d 62 64 73 70 72 69 74 |s$(spr%)=bdsprit|
00000f80 65 24 20 8c 20 63 68 6f 69 63 65 25 3d 73 70 72 |e$ . choice%=spr|
00000f90 25 0d 07 9e 0f 20 20 20 20 73 70 72 25 2b 3d 31 |%.... spr%+=1|
00000fa0 0d 07 a8 07 20 20 cd 0d 07 b2 0d fd 20 6f 66 66 |.... ...... off|
00000fb0 25 3d 2d 31 0d 07 bc 04 0d 07 c6 11 e7 20 63 68 |%=-1......... ch|
00000fc0 6f 69 63 65 25 3d 30 20 8c 0d 07 d0 0f 20 20 62 |oice%=0 ..... b|
00000fd0 64 74 79 70 65 25 3d 30 0d 07 da 20 20 20 f2 49 |dtype%=0... .I|
00000fe0 63 6f 6e 46 6c 61 67 73 28 31 34 2c 33 3c 3c 32 |conFlags(14,3<<2|
00000ff0 31 2c 33 3c 3c 32 31 29 0d 07 e4 20 20 20 f2 49 |1,3<<21)... .I|
00001000 63 6f 6e 46 6c 61 67 73 28 31 35 2c 33 3c 3c 32 |conFlags(15,3<<2|
00001010 31 2c 31 3c 3c 32 32 29 0d 07 ee 20 20 20 f2 49 |1,1<<22)... .I|
00001020 63 6f 6e 46 6c 61 67 73 28 31 36 2c 33 3c 3c 32 |conFlags(16,3<<2|
00001030 31 2c 31 3c 3c 32 32 29 0d 07 f8 05 cc 0d 08 02 |1,1<<22)........|
00001040 2e 20 20 f2 49 63 6f 6e 46 6c 61 67 73 28 31 34 |. .IconFlags(14|
00001050 2c 33 3c 3c 32 31 2c 28 62 64 74 79 70 65 25 3d |,3<<21,(bdtype%=|
00001060 31 29 80 28 31 3c 3c 32 31 29 29 0d 08 0c 2e 20 |1).(1<<21)).... |
00001070 20 f2 49 63 6f 6e 46 6c 61 67 73 28 31 35 2c 33 | .IconFlags(15,3|
00001080 3c 3c 32 31 2c 28 62 64 74 79 70 65 25 3d 32 29 |<<21,(bdtype%=2)|
00001090 80 28 31 3c 3c 32 31 29 29 0d 08 16 2e 20 20 f2 |.(1<<21)).... .|
000010a0 49 63 6f 6e 46 6c 61 67 73 28 31 36 2c 33 3c 3c |IconFlags(16,3<<|
000010b0 32 31 2c 28 62 64 74 79 70 65 25 3d 33 29 80 28 |21,(bdtype%=3).(|
000010c0 31 3c 3c 32 31 29 29 0d 08 20 05 cd 0d 08 2a 04 |1<<21)).. ....*.|
000010d0 0d 08 34 27 f2 57 72 69 74 65 53 70 72 69 74 65 |..4'.WriteSprite|
000010e0 4e 61 6d 65 28 73 70 72 69 74 65 73 24 28 63 68 |Name(sprites$(ch|
000010f0 6f 69 63 65 25 29 29 0d 08 3e 04 0d 08 48 27 e7 |oice%))..>...H'.|
00001100 20 6d 65 6e 75 25 3c 3e 30 20 8c 20 c8 99 22 4f | menu%<>0 . .."O|
00001110 53 5f 4d 6f 64 75 6c 65 22 2c 37 2c 2c 6d 65 6e |S_Module",7,,men|
00001120 75 25 0d 08 52 04 0d 08 5c 2e c8 99 22 58 4f 53 |u%..R...\..."XOS|
00001130 5f 4d 6f 64 75 6c 65 22 2c 36 2c 2c 2c 32 38 2b |_Module",6,,,28+|
00001140 32 34 2a 73 70 72 25 20 b8 20 2c 2c 6d 65 6e 75 |24*spr% . ,,menu|
00001150 25 3b 66 25 0d 08 66 04 0d 08 70 0c e7 20 66 25 |%;f%..f...p.. f%|
00001160 80 31 20 8c 0d 08 7a 0d 20 20 6d 65 6e 75 25 3d |.1 ...z. menu%=|
00001170 30 0d 08 84 05 cc 0d 08 8e 1f 20 20 f2 57 72 69 |0......... .Wri|
00001180 74 65 28 6d 65 6e 75 25 2c 22 42 61 63 6b 64 72 |te(menu%,"Backdr|
00001190 6f 70 73 22 29 0d 08 98 1b 20 20 6d 65 6e 75 25 |ops").... menu%|
000011a0 3f 31 32 3d 37 3a 6d 65 6e 75 25 3f 31 33 3d 32 |?12=7:menu%?13=2|
000011b0 0d 08 a2 1b 20 20 6d 65 6e 75 25 3f 31 34 3d 37 |.... menu%?14=7|
000011c0 3a 6d 65 6e 75 25 3f 31 35 3d 30 0d 08 ac 1e 20 |:menu%?15=0.... |
000011d0 20 6d 65 6e 75 25 21 31 36 3d 31 36 30 3a 6d 65 | menu%!16=160:me|
000011e0 6e 75 25 21 32 30 3d 34 34 0d 08 b6 10 20 20 6d |nu%!20=44.... m|
000011f0 65 6e 75 25 21 32 34 3d 30 0d 08 c0 15 20 20 e3 |enu%!24=0.... .|
00001200 20 69 25 3d 30 20 b8 20 73 70 72 25 2d 31 0d 08 | i%=0 . spr%-1..|
00001210 ca 38 20 20 20 20 21 28 6d 65 6e 75 25 2b 32 38 |.8 !(menu%+28|
00001220 2b 69 25 2a 32 34 29 3d 28 28 69 25 3d 73 70 72 |+i%*24)=((i%=spr|
00001230 25 2d 31 29 80 31 32 38 29 20 84 20 28 28 69 25 |%-1).128) . ((i%|
00001240 3d 30 29 80 32 29 0d 08 d4 1b 20 20 20 20 21 28 |=0).2).... !(|
00001250 6d 65 6e 75 25 2b 33 32 2b 69 25 2a 32 34 29 3d |menu%+32+i%*24)=|
00001260 30 0d 08 de 22 20 20 20 20 21 28 6d 65 6e 75 25 |0..." !(menu%|
00001270 2b 33 36 2b 69 25 2a 32 34 29 3d 26 37 30 30 39 |+36+i%*24)=&7009|
00001280 30 32 31 0d 08 e8 2b 20 20 20 20 f2 57 72 69 74 |021...+ .Writ|
00001290 65 28 6d 65 6e 75 25 2b 34 30 2b 69 25 2a 32 34 |e(menu%+40+i%*24|
000012a0 2c 73 70 72 69 74 65 73 24 28 69 25 29 29 0d 08 |,sprites$(i%))..|
000012b0 f2 0a 20 20 ed 20 69 25 0d 08 fc 05 cd 0d 09 06 |.. . i%........|
000012c0 04 0d 09 10 05 e1 0d 09 1a 04 0d 09 24 11 dd f2 |............$...|
000012d0 4c 6f 61 64 28 66 69 6c 65 24 29 0d 09 2e 04 0d |Load(file$).....|
000012e0 09 38 12 ea 20 6c 65 61 66 24 2c 69 6e 73 74 72 |.8.. leaf$,instr|
000012f0 25 0d 09 42 04 0d 09 4c 0f 62 6c 6f 63 6b 25 21 |%..B...L.block%!|
00001300 31 36 3d 34 0d 09 56 16 62 6c 6f 63 6b 25 21 31 |16=4..V.block%!1|
00001310 32 3d 62 6c 6f 63 6b 25 21 38 0d 09 60 2b c8 99 |2=block%!8..`+..|
00001320 22 57 69 6d 70 5f 53 65 6e 64 4d 65 73 73 61 67 |"Wimp_SendMessag|
00001330 65 22 2c 31 37 2c 62 6c 6f 63 6b 25 2c 62 6c 6f |e",17,block%,blo|
00001340 63 6b 25 21 34 0d 09 6a 04 0d 09 74 0f 6c 65 61 |ck%!4..j...t.lea|
00001350 66 24 3d 66 69 6c 65 24 0d 09 7e 04 0d 09 88 05 |f$=file$..~.....|
00001360 f5 0d 09 92 18 20 20 69 6e 73 74 72 25 3d a7 6c |..... instr%=.l|
00001370 65 61 66 24 2c 22 2e 22 29 0d 09 9c 12 20 20 e7 |eaf$,".").... .|
00001380 20 69 6e 73 74 72 25 3e 30 20 8c 0d 09 a6 1e 20 | instr%>0 ..... |
00001390 20 20 20 6c 65 61 66 24 3d c1 6c 65 61 66 24 2c | leaf$=.leaf$,|
000013a0 69 6e 73 74 72 25 2b 31 29 0d 09 b0 07 20 20 cd |instr%+1).... .|
000013b0 0d 09 ba 0e fd 20 69 6e 73 74 72 25 3d 30 0d 09 |..... instr%=0..|
000013c0 c4 04 0d 09 ce 48 ff 22 43 6f 70 79 20 22 2b 66 |.....H."Copy "+f|
000013d0 69 6c 65 24 2b 22 20 43 68 6f 69 63 65 73 3a 42 |ile$+" Choices:B|
000013e0 61 63 6b 64 72 6f 70 73 2e 22 2b 6c 65 61 66 24 |ackdrops."+leaf$|
000013f0 2b 22 20 7e 41 7e 43 7e 44 46 7e 4c 7e 4e 7e 50 |+" ~A~C~DF~L~N~P|
00001400 7e 51 7e 52 53 7e 54 7e 56 22 0d 09 d8 04 0d 09 |~Q~RS~T~V"......|
00001410 e2 1c f2 53 63 61 6e 46 6f 72 28 6c 65 61 66 24 |...ScanFor(leaf$|
00001420 2c a4 47 65 74 54 79 70 65 29 0d 09 ec 04 0d 09 |,.GetType)......|
00001430 f6 05 e1 0d 0a 00 04 0d 0a 0a 0c dd f2 44 65 6c |.............Del|
00001440 65 74 65 0d 0a 14 04 0d 0a 1e 0a ea 20 79 65 73 |ete......... yes|
00001450 25 0d 0a 28 04 0d 0a 32 19 c8 99 22 4f 53 5f 43 |%..(...2..."OS_C|
00001460 6f 6e 66 69 72 6d 22 20 b8 20 79 65 73 25 0d 0a |onfirm" . yes%..|
00001470 3c 04 0d 0a 46 11 e7 20 79 65 73 25 3d 97 22 79 |<...F.. yes%=."y|
00001480 22 20 8c 0d 0a 50 34 20 20 ff 22 44 65 6c 65 74 |" ...P4 ."Delet|
00001490 65 20 43 68 6f 69 63 65 73 3a 42 61 63 6b 64 72 |e Choices:Backdr|
000014a0 6f 70 73 2e 22 2b 73 70 72 69 74 65 73 24 28 63 |ops."+sprites$(c|
000014b0 68 6f 69 63 65 25 29 0d 0a 5a 38 20 20 f2 53 63 |hoice%)..Z8 .Sc|
000014c0 61 6e 46 6f 72 28 73 70 72 69 74 65 73 24 28 28 |anFor(sprites$((|
000014d0 63 68 6f 69 63 65 25 2b 73 70 72 25 2d 31 29 83 |choice%+spr%-1).|
000014e0 73 70 72 25 29 2c a4 47 65 74 54 79 70 65 29 0d |spr%),.GetType).|
000014f0 0a 64 05 cd 0d 0a 6e 04 0d 0a 78 05 e1 0d 0a 82 |.d....n...x.....|
00001500 04 0d 0a 8c 11 dd f2 53 65 74 42 61 63 6b 64 72 |.......SetBackdr|
00001510 6f 70 0d 0a 96 04 0d 0a a0 13 ea 20 62 64 74 79 |op......... bdty|
00001520 70 65 25 2c 74 79 70 65 24 0d 0a aa 04 0d 0a b4 |pe%,type$.......|
00001530 12 e7 20 63 68 6f 69 63 65 25 3c 3e 30 20 8c 0d |.. choice%<>0 ..|
00001540 0a be 04 0d 0a c8 16 20 20 62 64 74 79 70 65 25 |....... bdtype%|
00001550 3d a4 47 65 74 54 79 70 65 0d 0a d2 04 0d 0a dc |=.GetType.......|
00001560 12 20 20 c8 8e 20 62 64 74 79 70 65 25 20 ca 0d |. .. bdtype% ..|
00001570 0a e6 18 20 20 20 20 c9 20 30 2c 31 3a 74 79 70 |... . 0,1:typ|
00001580 65 24 3d 22 2d 43 22 0d 0a f0 16 20 20 20 20 c9 |e$="-C".... .|
00001590 20 32 3a 74 79 70 65 24 3d 22 2d 53 22 0d 0a fa | 2:type$="-S"...|
000015a0 16 20 20 20 20 c9 20 33 3a 74 79 70 65 24 3d 22 |. . 3:type$="|
000015b0 2d 54 22 0d 0b 04 07 20 20 cb 0d 0b 0e 04 0d 0b |-T".... .......|
000015c0 18 40 20 20 ff 22 42 61 63 6b 64 72 6f 70 20 22 |.@ ."Backdrop "|
000015d0 2b 74 79 70 65 24 2b 22 20 43 68 6f 69 63 65 73 |+type$+" Choices|
000015e0 3a 42 61 63 6b 64 72 6f 70 73 2e 22 2b 73 70 72 |:Backdrops."+spr|
000015f0 69 74 65 73 24 28 63 68 6f 69 63 65 25 29 0d 0b |ites$(choice%)..|
00001600 22 05 cc 0d 0b 2c 11 20 20 ff 22 50 69 6e 42 6f |"....,. ."PinBo|
00001610 61 72 64 22 0d 0b 36 05 cd 0d 0b 40 04 0d 0b 4a |ard"..6....@...J|
00001620 05 e1 0d 0b 54 04 0d 0b 5e 0d dd a4 47 65 74 54 |....T...^...GetT|
00001630 79 70 65 0d 0b 68 04 0d 0b 72 0b ea 20 74 79 70 |ype..h...r.. typ|
00001640 65 25 0d 0b 7c 04 0d 0b 86 36 c8 99 22 57 69 6d |e%..|....6.."Wim|
00001650 70 5f 57 68 69 63 68 49 63 6f 6e 22 2c 77 69 6e |p_WhichIcon",win|
00001660 64 6f 77 68 25 2c 62 6c 6f 63 6b 25 2c 26 32 31 |dowh%,block%,&21|
00001670 30 30 30 30 2c 26 32 31 30 30 30 30 0d 0b 90 04 |0000,&210000....|
00001680 0d 0b 9a 2f e7 20 21 62 6c 6f 63 6b 25 3d 2d 31 |.../. !block%=-1|
00001690 20 8c 20 74 79 70 65 25 3d 30 20 8b 20 74 79 70 | . type%=0 . typ|
000016a0 65 25 3d 28 21 62 6c 6f 63 6b 25 29 2d 31 33 0d |e%=(!block%)-13.|
000016b0 0b a4 04 0d 0b ae 0a 3d 74 79 70 65 25 0d 0b b8 |.......=type%...|
000016c0 04 0d 0b c2 12 dd f2 53 74 6f 72 65 53 65 74 74 |.......StoreSett|
000016d0 69 6e 67 0d 0b cc 04 0d 0b d6 0d ea 20 62 64 66 |ing......... bdf|
000016e0 69 6c 65 25 0d 0b e0 04 0d 0b ea 18 62 64 66 69 |ile%........bdfi|
000016f0 6c 65 25 3d ae 28 22 42 6f 6f 74 3a 42 44 22 29 |le%=.("Boot:BD")|
00001700 0d 0b f4 04 0d 0b fe 1f d5 23 62 64 66 69 6c 65 |.........#bdfile|
00001710 25 2c 73 70 72 69 74 65 73 24 28 63 68 6f 69 63 |%,sprites$(choic|
00001720 65 25 29 0d 0c 08 16 d5 23 62 64 66 69 6c 65 25 |e%).....#bdfile%|
00001730 2c a4 47 65 74 54 79 70 65 0d 0c 12 04 0d 0c 1c |,.GetType.......|
00001740 0d d9 23 62 64 66 69 6c 65 25 0d 0c 26 04 0d 0c |..#bdfile%..&...|
00001750 30 05 e1 0d 0c 3a 04 0d 0c 44 12 dd f2 53 61 76 |0....:...D...Sav|
00001760 65 46 72 6f 6d 54 61 73 6b 0d 0c 4e 04 0d 0c 58 |eFromTask..N...X|
00001770 0b ea 20 6c 65 61 66 24 0d 0c 62 04 0d 0c 6c 1a |.. leaf$..b...l.|
00001780 6c 65 61 66 24 3d a4 52 65 61 64 28 62 6c 6f 63 |leaf$=.Read(bloc|
00001790 6b 25 2b 34 34 29 0d 0c 76 30 f2 57 72 69 74 65 |k%+44)..v0.Write|
000017a0 28 62 6c 6f 63 6b 25 2b 34 34 2c 22 43 68 6f 69 |(block%+44,"Choi|
000017b0 63 65 73 3a 42 61 63 6b 64 72 6f 70 73 2e 22 2b |ces:Backdrops."+|
000017c0 6c 65 61 66 24 29 0d 0c 80 04 0d 0c 8a 1c 21 62 |leaf$)........!b|
000017d0 6c 6f 63 6b 25 3d 28 36 36 2b a9 28 6c 65 61 66 |lock%=(66+.(leaf|
000017e0 24 29 29 80 ac 33 0d 0c 94 0f 62 6c 6f 63 6b 25 |$))..3....block%|
000017f0 21 31 36 3d 32 0d 0c 9e 16 62 6c 6f 63 6b 25 21 |!16=2....block%!|
00001800 31 32 3d 62 6c 6f 63 6b 25 21 38 0d 0c a8 2b c8 |12=block%!8...+.|
00001810 99 22 57 69 6d 70 5f 53 65 6e 64 4d 65 73 73 61 |."Wimp_SendMessa|
00001820 67 65 22 2c 31 37 2c 62 6c 6f 63 6b 25 2c 62 6c |ge",17,block%,bl|
00001830 6f 63 6b 25 21 34 0d 0c b2 04 0d 0c bc 05 e1 0d |ock%!4..........|
00001840 0c c6 04 0d 0c d0 15 dd f2 43 68 65 63 6b 4e 6f |.........CheckNo|
00001850 74 52 75 6e 6e 69 6e 67 0d 0c da 04 0d 0c e4 0c |tRunning........|
00001860 ea 20 63 6f 75 6e 74 25 0d 0c ee 04 0d 0c f8 0c |. count%........|
00001870 63 6f 75 6e 74 25 3d 30 0d 0d 02 04 0d 0d 0c 05 |count%=0........|
00001880 f5 0d 0d 16 3e 20 20 c8 99 22 54 61 73 6b 4d 61 |....> .."TaskMa|
00001890 6e 61 67 65 72 5f 45 6e 75 6d 65 72 61 74 65 54 |nager_EnumerateT|
000018a0 61 73 6b 73 22 2c 63 6f 75 6e 74 25 2c 62 6c 6f |asks",count%,blo|
000018b0 63 6b 25 2c 31 36 20 b8 20 63 6f 75 6e 74 25 0d |ck%,16 . count%.|
000018c0 0d 20 13 20 20 e7 20 63 6f 75 6e 74 25 3e 3d 30 |. . . count%>=0|
000018d0 20 8c 0d 0d 2a 48 20 20 20 20 e7 20 a4 52 65 61 | ...*H . .Rea|
000018e0 64 28 62 6c 6f 63 6b 25 21 34 29 3d 22 42 6f 6f |d(block%!4)="Boo|
000018f0 74 45 64 69 74 22 20 8c 20 85 20 30 2c 22 42 6f |tEdit" . . 0,"Bo|
00001900 6f 74 45 64 69 74 20 69 73 20 61 6c 72 65 61 64 |otEdit is alread|
00001910 79 20 72 75 6e 6e 69 6e 67 22 0d 0d 34 07 20 20 |y running"..4. |
00001920 cd 0d 0d 3e 0e fd 20 63 6f 75 6e 74 25 3c 30 0d |...>.. count%<0.|
00001930 0d 48 04 0d 0d 52 05 e1 0d 0d 5c 04 0d 0d 66 10 |.H...R....\...f.|
00001940 dd f2 53 61 76 65 53 70 72 69 74 65 0d 0d 70 04 |..SaveSprite..p.|
00001950 0d 0d 7a 15 ea 20 73 78 25 2c 73 79 25 2c 6d 78 |..z.. sx%,sy%,mx|
00001960 25 2c 6d 79 25 0d 0d 84 04 0d 0d 8e 22 f2 57 69 |%,my%.......".Wi|
00001970 6d 70 5f 47 65 74 53 63 72 65 65 6e 45 78 74 65 |mp_GetScreenExte|
00001980 6e 74 28 73 78 25 2c 73 79 25 29 0d 0d 98 04 0d |nt(sx%,sy%).....|
00001990 0d a2 1c 6d 78 25 3d 21 62 6c 6f 63 6b 25 3a 6d |...mx%=!block%:m|
000019a0 79 25 3d 62 6c 6f 63 6b 25 21 34 0d 0d ac 04 0d |y%=block%!4.....|
000019b0 0d b6 13 79 6d 61 78 25 3d 62 6c 6f 63 6b 25 21 |...ymax%=block%!|
000019c0 32 30 0d 0d c0 04 0d 0d ca 0e 62 6c 6f 63 6b 25 |20........block%|
000019d0 21 34 3d 35 0d 0d d4 13 62 6c 6f 63 6b 25 21 38 |!4=5....block%!8|
000019e0 3d 6d 78 25 2d 33 34 0d 0d de 14 62 6c 6f 63 6b |=mx%-34....block|
000019f0 25 21 31 32 3d 6d 79 25 2d 33 34 0d 0d e8 14 62 |%!12=my%-34....b|
00001a00 6c 6f 63 6b 25 21 31 36 3d 6d 78 25 2b 33 34 0d |lock%!16=mx%+34.|
00001a10 0d f2 14 62 6c 6f 63 6b 25 21 32 30 3d 6d 79 25 |...block%!20=my%|
00001a20 2b 33 34 0d 0d fc 10 62 6c 6f 63 6b 25 21 32 34 |+34....block%!24|
00001a30 3d 33 34 0d 0e 06 10 62 6c 6f 63 6b 25 21 32 38 |=34....block%!28|
00001a40 3d 33 34 0d 0e 10 14 62 6c 6f 63 6b 25 21 33 32 |=34....block%!32|
00001a50 3d 73 78 25 2d 33 34 0d 0e 1a 14 62 6c 6f 63 6b |=sx%-34....block|
00001a60 25 21 33 36 3d 73 79 25 2d 33 34 0d 0e 24 04 0d |%!36=sy%-34..$..|
00001a70 0e 2e 13 e7 20 44 72 61 67 53 70 72 69 74 65 25 |.... DragSprite%|
00001a80 20 8c 0d 0e 38 3f 20 20 c8 99 22 44 72 61 67 41 | ...8? .."DragA|
00001a90 53 70 72 69 74 65 5f 53 74 61 72 74 22 2c 31 39 |Sprite_Start",19|
00001aa0 37 2c 31 2c 22 66 69 6c 65 5f 46 46 39 22 2c 62 |7,1,"file_FF9",b|
00001ab0 6c 6f 63 6b 25 2b 38 2c 62 6c 6f 63 6b 25 2b 32 |lock%+8,block%+2|
00001ac0 34 0d 0e 42 05 cc 0d 0e 4c 1e 20 20 c8 99 22 57 |4..B....L. .."W|
00001ad0 69 6d 70 5f 44 72 61 67 42 6f 78 22 2c 2c 62 6c |imp_DragBox",,bl|
00001ae0 6f 63 6b 25 0d 0e 56 05 cd 0d 0e 60 04 0d 0e 6a |ock%..V....`...j|
00001af0 05 e1 0d 0e 74 04 0d 0e 7e 0d dd f2 45 6e 64 44 |....t...~...EndD|
00001b00 72 61 67 0d 0e 88 04 0d 0e 92 0f ea 20 66 69 6c |rag......... fil|
00001b10 65 73 69 7a 65 25 0d 0e 9c 04 0d 0e a6 49 c8 99 |esize%.......I..|
00001b20 22 4f 53 5f 46 69 6c 65 22 2c 31 37 2c 22 43 68 |"OS_File",17,"Ch|
00001b30 6f 69 63 65 73 3a 42 61 63 6b 64 72 6f 70 73 2e |oices:Backdrops.|
00001b40 22 2b 73 70 72 69 74 65 73 24 28 63 68 6f 69 63 |"+sprites$(choic|
00001b50 65 25 29 20 b8 20 2c 2c 2c 2c 66 69 6c 65 73 69 |e%) . ,,,,filesi|
00001b60 7a 65 25 0d 0e b0 04 0d 0e ba 23 c8 99 22 57 69 |ze%.......#.."Wi|
00001b70 6d 70 5f 47 65 74 50 6f 69 6e 74 65 72 49 6e 66 |mp_GetPointerInf|
00001b80 6f 22 2c 2c 62 6c 6f 63 6b 25 0d 0e c4 04 0d 0e |o",,block%......|
00001b90 ce 28 e7 20 44 72 61 67 53 70 72 69 74 65 25 20 |.(. DragSprite% |
00001ba0 8c 20 c8 99 22 44 72 61 67 41 53 70 72 69 74 65 |. .."DragASprite|
00001bb0 5f 53 74 6f 70 22 0d 0e d8 04 0d 0e e2 23 e7 20 |_Stop".......#. |
00001bc0 62 6c 6f 63 6b 25 21 31 32 3d 2d 32 20 80 20 62 |block%!12=-2 . b|
00001bd0 6c 6f 63 6b 25 21 31 36 3d 2d 31 20 8c 0d 0e ec |lock%!16=-1 ....|
00001be0 49 20 20 c8 99 22 57 69 6d 70 5f 53 74 61 72 74 |I .."Wimp_Start|
00001bf0 54 61 73 6b 22 2c 22 46 69 6c 65 72 5f 52 75 6e |Task","Filer_Run|
00001c00 20 43 68 6f 69 63 65 73 3a 42 61 63 6b 64 72 6f | Choices:Backdro|
00001c10 70 73 2e 22 2b 73 70 72 69 74 65 73 24 28 63 68 |ps."+sprites$(ch|
00001c20 6f 69 63 65 25 29 0d 0e f6 05 cc 0d 0f 00 19 20 |oice%)......... |
00001c30 20 62 6c 6f 63 6b 25 21 32 30 3d 62 6c 6f 63 6b | block%!20=block|
00001c40 25 21 31 32 0d 0f 0a 19 20 20 62 6c 6f 63 6b 25 |%!12.... block%|
00001c50 21 32 34 3d 62 6c 6f 63 6b 25 21 31 36 0d 0f 14 |!24=block%!16...|
00001c60 17 20 20 62 6c 6f 63 6b 25 21 32 38 3d 21 62 6c |. block%!28=!bl|
00001c70 6f 63 6b 25 0d 0f 1e 18 20 20 62 6c 6f 63 6b 25 |ock%.... block%|
00001c80 21 33 32 3d 62 6c 6f 63 6b 25 21 34 0d 0f 28 19 |!32=block%!4..(.|
00001c90 20 20 62 6c 6f 63 6b 25 21 33 36 3d 66 69 6c 65 | block%!36=file|
00001ca0 73 69 7a 65 25 0d 0f 32 14 20 20 62 6c 6f 63 6b |size%..2. block|
00001cb0 25 21 34 30 3d 26 46 46 39 0d 0f 3c 29 20 20 f2 |%!40=&FF9..<) .|
00001cc0 57 72 69 74 65 28 62 6c 6f 63 6b 25 2b 34 34 2c |Write(block%+44,|
00001cd0 73 70 72 69 74 65 73 24 28 63 68 6f 69 63 65 25 |sprites$(choice%|
00001ce0 29 29 0d 0f 46 2a 20 20 21 62 6c 6f 63 6b 25 3d |))..F* !block%=|
00001cf0 28 34 38 2b a9 28 73 70 72 69 74 65 73 24 28 63 |(48+.(sprites$(c|
00001d00 68 6f 69 63 65 25 29 29 29 80 ac 33 0d 0f 50 11 |hoice%)))..3..P.|
00001d10 20 20 62 6c 6f 63 6b 25 21 31 32 3d 30 0d 0f 5a | block%!12=0..Z|
00001d20 11 20 20 62 6c 6f 63 6b 25 21 31 36 3d 31 0d 0f |. block%!16=1..|
00001d30 64 38 20 20 c8 99 22 57 69 6d 70 5f 53 65 6e 64 |d8 .."Wimp_Send|
00001d40 4d 65 73 73 61 67 65 22 2c 31 37 2c 62 6c 6f 63 |Message",17,bloc|
00001d50 6b 25 2c 62 6c 6f 63 6b 25 21 32 30 2c 62 6c 6f |k%,block%!20,blo|
00001d60 63 6b 25 21 32 34 0d 0f 6e 05 cd 0d 0f 78 04 0d |ck%!24..n....x..|
00001d70 0f 82 05 e1 0d 0f 8c 04 0d 0f 96 27 dd f2 57 69 |...........'..Wi|
00001d80 6d 70 5f 47 65 74 53 63 72 65 65 6e 45 78 74 65 |mp_GetScreenExte|
00001d90 6e 74 28 f8 20 73 78 25 2c f8 20 73 79 25 29 0d |nt(. sx%,. sy%).|
00001da0 0f a0 04 0d 0f aa 17 ea 20 78 65 69 67 25 2c 79 |........ xeig%,y|
00001db0 65 69 67 25 2c 78 25 2c 79 25 0d 0f b4 04 0d 0f |eig%,x%,y%......|
00001dc0 be 2a c8 99 22 4f 53 5f 52 65 61 64 4d 6f 64 65 |.*.."OS_ReadMode|
00001dd0 56 61 72 69 61 62 6c 65 22 2c 2d 31 2c 34 20 b8 |Variable",-1,4 .|
00001de0 20 2c 2c 78 65 69 67 25 0d 0f c8 2a c8 99 22 4f | ,,xeig%...*.."O|
00001df0 53 5f 52 65 61 64 4d 6f 64 65 56 61 72 69 61 62 |S_ReadModeVariab|
00001e00 6c 65 22 2c 2d 31 2c 35 20 b8 20 2c 2c 79 65 69 |le",-1,5 . ,,yei|
00001e10 67 25 0d 0f d2 28 c8 99 22 4f 53 5f 52 65 61 64 |g%...(.."OS_Read|
00001e20 4d 6f 64 65 56 61 72 69 61 62 6c 65 22 2c 2d 31 |ModeVariable",-1|
00001e30 2c 31 31 20 b8 20 2c 2c 78 25 0d 0f dc 28 c8 99 |,11 . ,,x%...(..|
00001e40 22 4f 53 5f 52 65 61 64 4d 6f 64 65 56 61 72 69 |"OS_ReadModeVari|
00001e50 61 62 6c 65 22 2c 2d 31 2c 31 32 20 b8 20 2c 2c |able",-1,12 . ,,|
00001e60 79 25 0d 0f e6 04 0d 0f f0 15 73 78 25 3d 28 78 |y%........sx%=(x|
00001e70 25 2b 31 29 3c 3c 78 65 69 67 25 0d 0f fa 15 73 |%+1)<<xeig%....s|
00001e80 79 25 3d 28 79 25 2b 31 29 3c 3c 79 65 69 67 25 |y%=(y%+1)<<yeig%|
00001e90 0d 10 04 04 0d 10 0e 05 e1 0d 10 18 04 0d 10 22 |..............."|
00001ea0 10 dd f2 43 6f 70 79 53 70 72 69 74 65 0d 10 2c |...CopySprite..,|
00001eb0 04 0d 10 36 0b ea 20 66 69 6c 65 24 0d 10 40 04 |...6.. file$..@.|
00001ec0 0d 10 4a 1a 66 69 6c 65 24 3d a4 52 65 61 64 28 |..J.file$=.Read(|
00001ed0 62 6c 6f 63 6b 25 2b 34 34 29 0d 10 54 04 0d 10 |block%+44)..T...|
00001ee0 5e 54 ff 22 43 6f 70 79 20 43 68 6f 69 63 65 73 |^T."Copy Choices|
00001ef0 3a 42 61 63 6b 64 72 6f 70 73 2e 22 2b 73 70 72 |:Backdrops."+spr|
00001f00 69 74 65 73 24 28 63 68 6f 69 63 65 25 29 2b 22 |ites$(choice%)+"|
00001f10 20 22 2b 66 69 6c 65 24 2b 22 20 7e 41 7e 43 7e | "+file$+" ~A~C~|
00001f20 44 46 7e 4c 7e 4e 7e 50 7e 51 7e 52 53 7e 54 7e |DF~L~N~P~Q~RS~T~|
00001f30 56 22 0d 10 68 04 0d 10 72 05 e1 0d 10 7c 04 0d |V"..h...r....|..|
00001f40 10 86 11 dd f2 52 61 6d 54 72 61 6e 73 66 65 72 |.....RamTransfer|
00001f50 0d 10 90 04 0d 10 9a 16 ea 20 62 75 66 66 25 2c |......... buff%,|
00001f60 73 69 7a 65 25 2c 65 72 72 25 0d 10 a4 04 0d 10 |size%,err%......|
00001f70 ae 45 c8 99 22 4f 53 5f 46 69 6c 65 22 2c 31 37 |.E.."OS_File",17|
00001f80 2c 22 43 68 6f 69 63 65 73 3a 42 61 63 6b 64 72 |,"Choices:Backdr|
00001f90 6f 70 73 2e 22 2b 73 70 72 69 74 65 73 24 28 63 |ops."+sprites$(c|
00001fa0 68 6f 69 63 65 25 29 20 b8 20 2c 2c 2c 2c 73 69 |hoice%) . ,,,,si|
00001fb0 7a 65 25 0d 10 b8 04 0d 10 c2 18 e7 20 62 6c 6f |ze%......... blo|
00001fc0 63 6b 25 21 32 34 3e 3d 73 69 7a 65 25 20 8c 0d |ck%!24>=size% ..|
00001fd0 10 cc 2d 20 20 c8 99 22 58 4f 53 5f 4d 6f 64 75 |..- .."XOS_Modu|
00001fe0 6c 65 22 2c 36 2c 2c 2c 73 69 7a 65 25 20 b8 20 |le",6,,,size% . |
00001ff0 2c 2c 62 75 66 66 25 3b 65 72 72 25 0d 10 d6 14 |,,buff%;err%....|
00002000 20 20 e7 20 28 65 72 72 25 80 31 29 3d 30 20 8c | . (err%.1)=0 .|
00002010 0d 10 e0 45 20 20 20 20 c8 99 22 4f 53 5f 46 69 |...E .."OS_Fi|
00002020 6c 65 22 2c 31 36 2c 22 43 68 6f 69 63 65 73 3a |le",16,"Choices:|
00002030 42 61 63 6b 64 72 6f 70 73 2e 22 2b 73 70 72 69 |Backdrops."+spri|
00002040 74 65 73 24 28 63 68 6f 69 63 65 25 29 2c 62 75 |tes$(choice%),bu|
00002050 66 66 25 2c 30 0d 10 ea 44 20 20 20 20 c8 99 22 |ff%,0...D .."|
00002060 57 69 6d 70 5f 54 72 61 6e 73 66 65 72 42 6c 6f |Wimp_TransferBlo|
00002070 63 6b 22 2c 74 61 73 6b 68 25 2c 62 75 66 66 25 |ck",taskh%,buff%|
00002080 2c 62 6c 6f 63 6b 25 21 34 2c 62 6c 6f 63 6b 25 |,block%!4,block%|
00002090 21 32 30 2c 73 69 7a 65 25 0d 10 f4 17 20 20 20 |!20,size%.... |
000020a0 20 62 6c 6f 63 6b 25 21 32 34 3d 73 69 7a 65 25 | block%!24=size%|
000020b0 0d 10 fe 1f 20 20 20 20 c8 99 22 58 4f 53 5f 4d |.... .."XOS_M|
000020c0 6f 64 75 6c 65 22 2c 37 2c 2c 62 75 66 66 25 0d |odule",7,,buff%.|
000020d0 11 08 07 20 20 cc 0d 11 12 13 20 20 20 20 62 6c |... ..... bl|
000020e0 6f 63 6b 25 21 32 34 3d 30 0d 11 1c 07 20 20 cd |ock%!24=0.... .|
000020f0 0d 11 26 05 cc 0d 11 30 11 20 20 62 6c 6f 63 6b |..&....0. block|
00002100 25 21 32 34 3d 30 0d 11 3a 05 cd 0d 11 44 04 0d |%!24=0..:....D..|
00002110 11 4e 0f 62 6c 6f 63 6b 25 21 31 36 3d 37 0d 11 |.N.block%!16=7..|
00002120 58 16 62 6c 6f 63 6b 25 21 31 32 3d 62 6c 6f 63 |X.block%!12=bloc|
00002130 6b 25 21 38 0d 11 62 2b c8 99 22 57 69 6d 70 5f |k%!8..b+.."Wimp_|
00002140 53 65 6e 64 4d 65 73 73 61 67 65 22 2c 31 37 2c |SendMessage",17,|
00002150 62 6c 6f 63 6b 25 2c 62 6c 6f 63 6b 25 21 34 0d |block%,block%!4.|
00002160 11 6c 04 0d 11 76 05 e1 0d 11 80 04 0d 11 8a 11 |.l...v..........|
00002170 dd f2 48 65 6c 70 52 65 71 75 65 73 74 0d 11 94 |..HelpRequest...|
00002180 04 0d 11 9e 19 ea 20 68 65 6c 70 24 2c 74 6f 6b |...... help$,tok|
00002190 65 6e 24 2c 66 6c 61 67 73 25 0d 11 a8 04 0d 11 |en$,flags%......|
000021a0 b2 1b 74 6f 6b 65 6e 24 3d 22 49 22 2b c3 28 62 |..token$="I"+.(b|
000021b0 6c 6f 63 6b 25 21 33 36 29 0d 11 bc 04 0d 11 c6 |lock%!36).......|
000021c0 46 c8 99 22 58 4d 65 73 73 61 67 65 54 72 61 6e |F.."XMessageTran|
000021d0 73 5f 4c 6f 6f 6b 75 70 22 2c 6d 65 73 73 62 6c |s_Lookup",messbl|
000021e0 6f 63 6b 25 2c 74 6f 6b 65 6e 24 2c 62 6c 6f 63 |ock%,token$,bloc|
000021f0 6b 25 2b 32 30 2c 32 33 35 20 b8 20 3b 66 6c 61 |k%+20,235 . ;fla|
00002200 67 73 25 0d 11 d0 16 e7 20 28 66 6c 61 67 73 25 |gs%..... (flags%|
00002210 20 80 20 31 29 3d 30 20 8c 0d 11 da 11 20 20 21 | . 1)=0 ..... !|
00002220 62 6c 6f 63 6b 25 3d 32 35 36 0d 11 e4 18 20 20 |block%=256.... |
00002230 62 6c 6f 63 6b 25 21 31 32 3d 62 6c 6f 63 6b 25 |block%!12=block%|
00002240 21 38 0d 11 ee 14 20 20 62 6c 6f 63 6b 25 21 31 |!8.... block%!1|
00002250 36 3d 26 35 30 33 0d 11 f8 2d 20 20 c8 99 22 57 |6=&503...- .."W|
00002260 69 6d 70 5f 53 65 6e 64 4d 65 73 73 61 67 65 22 |imp_SendMessage"|
00002270 2c 31 37 2c 62 6c 6f 63 6b 25 2c 62 6c 6f 63 6b |,17,block%,block|
00002280 25 21 34 0d 12 02 05 cd 0d 12 0c 04 0d 12 16 05 |%!4.............|
00002290 e1 0d 12 20 04 0d 12 2a 16 dd f2 4f 70 65 6e 42 |... ...*...OpenB|
000022a0 61 63 6b 64 72 6f 70 4d 65 6e 75 0d 12 34 04 0d |ackdropMenu..4..|
000022b0 12 3e 0b ea 20 78 25 2c 79 25 0d 12 48 04 0d 12 |.>.. x%,y%..H...|
000022c0 52 14 21 62 6c 6f 63 6b 25 3d 77 69 6e 64 6f 77 |R.!block%=window|
000022d0 68 25 0d 12 5c 04 0d 12 66 23 c8 99 22 57 69 6d |h%..\...f#.."Wim|
000022e0 70 5f 47 65 74 57 69 6e 64 6f 77 53 74 61 74 65 |p_GetWindowState|
000022f0 22 2c 2c 62 6c 6f 63 6b 25 0d 12 70 19 78 25 3d |",,block%..p.x%=|
00002300 62 6c 6f 63 6b 25 21 34 2b 62 6c 6f 63 6b 25 21 |block%!4+block%!|
00002310 32 30 0d 12 7a 1a 79 25 3d 62 6c 6f 63 6b 25 21 |20..z.y%=block%!|
00002320 31 36 2b 62 6c 6f 63 6b 25 21 32 34 0d 12 84 0f |16+block%!24....|
00002330 62 6c 6f 63 6b 25 21 34 3d 31 33 0d 12 8e 21 c8 |block%!4=13...!.|
00002340 99 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 |."Wimp_GetIconSt|
00002350 61 74 65 22 2c 2c 62 6c 6f 63 6b 25 0d 12 98 3b |ate",,block%...;|
00002360 c8 99 22 57 69 6d 70 5f 43 72 65 61 74 65 4d 65 |.."Wimp_CreateMe|
00002370 6e 75 22 2c 2c 6d 65 6e 75 25 2c 78 25 2b 62 6c |nu",,menu%,x%+bl|
00002380 6f 63 6b 25 21 31 36 2c 79 25 2b 62 6c 6f 63 6b |ock%!16,y%+block|
00002390 25 21 32 30 2d 34 34 0d 12 a2 04 0d 12 ac 05 e1 |%!20-44.........|
000023a0 0d 12 b6 04 0d 12 c0 1a dd f2 41 74 74 65 6d 70 |..........Attemp|
000023b0 74 54 6f 4c 6f 61 64 28 66 69 6c 65 24 29 0d 12 |tToLoad(file$)..|
000023c0 ca 04 0d 12 d4 16 41 54 54 45 4d 50 54 4c 4f 41 |......ATTEMPTLOA|
000023d0 44 24 3d 66 69 6c 65 24 0d 12 de 04 0d 12 e8 16 |D$=file$........|
000023e0 62 6c 6f 63 6b 25 21 32 30 3d 77 69 6e 64 6f 77 |block%!20=window|
000023f0 68 25 0d 12 f2 0f 62 6c 6f 63 6b 25 21 32 34 3d |h%....block%!24=|
00002400 30 0d 12 fc 0f 62 6c 6f 63 6b 25 21 32 38 3d 30 |0....block%!28=0|
00002410 0d 13 06 0f 62 6c 6f 63 6b 25 21 33 32 3d 30 0d |....block%!32=0.|
00002420 13 10 0f 62 6c 6f 63 6b 25 21 33 36 3d 30 0d 13 |...block%!36=0..|
00002430 1a 12 62 6c 6f 63 6b 25 21 34 30 3d 26 46 46 46 |..block%!40=&FFF|
00002440 0d 13 24 1b f2 57 72 69 74 65 28 62 6c 6f 63 6b |..$..Write(block|
00002450 25 2b 34 34 2c 66 69 6c 65 24 29 0d 13 2e 1c 21 |%+44,file$)....!|
00002460 62 6c 6f 63 6b 25 3d 28 34 38 2b a9 28 66 69 6c |block%=(48+.(fil|
00002470 65 24 29 29 80 ac 33 0d 13 38 0f 62 6c 6f 63 6b |e$))..3..8.block|
00002480 25 21 31 32 3d 30 0d 13 42 0f 62 6c 6f 63 6b 25 |%!12=0..B.block%|
00002490 21 31 36 3d 35 0d 13 4c 24 c8 99 22 57 69 6d 70 |!16=5..L$.."Wimp|
000024a0 5f 53 65 6e 64 4d 65 73 73 61 67 65 22 2c 31 38 |_SendMessage",18|
000024b0 2c 62 6c 6f 63 6b 25 2c 30 0d 13 56 04 0d 13 60 |,block%,0..V...`|
000024c0 05 e1 0d 13 6a 04 0d 13 74 17 dd f2 52 69 73 63 |....j...t...Risc|
000024d0 4f 53 33 42 75 67 28 69 63 6f 6e 25 29 0d 13 7e |OS3Bug(icon%)..~|
000024e0 04 0d 13 88 14 21 62 6c 6f 63 6b 25 3d 77 69 6e |.....!block%=win|
000024f0 64 6f 77 68 25 0d 13 92 12 62 6c 6f 63 6b 25 21 |dowh%....block%!|
00002500 34 3d 69 63 6f 6e 25 0d 13 9c 0e 62 6c 6f 63 6b |4=icon%....block|
00002510 25 21 38 3d 30 0d 13 a6 13 62 6c 6f 63 6b 25 21 |%!8=0....block%!|
00002520 31 32 3d 31 3c 3c 32 31 0d 13 b0 04 0d 13 ba 21 |12=1<<21.......!|
00002530 c8 99 22 57 69 6d 70 5f 53 65 74 49 63 6f 6e 53 |.."Wimp_SetIconS|
00002540 74 61 74 65 22 2c 2c 62 6c 6f 63 6b 25 0d 13 c4 |tate",,block%...|
00002550 04 0d 13 ce 05 e1 0d ff |........|
00002558 
.