Home » Archimedes archive » Archimedes World » AW-1991-02.adf » !AWFeb91/Goodies/DeltaGen/!DeltaGen/!RunImage

!AWFeb91/Goodies/DeltaGen/!DeltaGen/!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 » Archimedes World » AW-1991-02.adf
Filename: !AWFeb91/Goodies/DeltaGen/!DeltaGen/!RunImage
Read OK: ✔
File size: 2081 bytes
Load address: FFFFFB42
Exec address: 824DC0A9
File contents
   10REM ><DeltaGen$Dir>.!RunImage
   20ON ERROR PROCmakerr
   30PROCsetup
   40PROCaction
   50PROCdie
   60END
   70DEFPROCsetup:OP%=0:DMDE%=-1:FOP%=FALSE:ST$="Start":CLAIM%=FALSE
   80DIM POI% 256,TAS% 2000,BLK% 1000,MENU% 1000,SEL% 256,ICBLK% 256,CDE% 2048,VARS 32
   90SYS"Wimp_SlotSize",-1,-1 TO APS%
  100$TAS%="TASK":SYS"Wimp_Initialise",200,!TAS%,"DeltaGen" TO HAND%
  110PROCloadsprites:PROCass
  120!BLK%=-1:BLK%!4=0:BLK%!8=0:BLK%!12=64:BLK%!16=64:BLK%!20=&2102
  130DIM BLK%!24 10:$(BLK%!24)="!DeltaGen":BLK%!28=SPRITES%:BLK%!32=10
  140SYS "Wimp_CreateIcon",,BLK% TO ICHAND%
  150SYS "Wimp_OpenTemplate",,"<DeltaGen$Dir>.Templates"
  160DIM STORE% (6*1024),BUF%(2),INDIR%(2),HAND%(2):FORL%=0 TO 2:BUF%(L%)=STORE%+(L%*1024):INDIR%(L%)=STORE%+((L%+3)*1024):NEXT
  170DATA Main,Save,Info
  180RESTORE 170:FORK%=0 TO 2:READ A$:SYS "Wimp_LoadTemplate",,BUF%(K%),INDIR%(K%),INDIR%(K%)+1024,-1,A$,0:NEXT
  190RESTORE 170:FORK%=0 TO 2:READ A$:SYS "Wimp_CreateWindow",,BUF%(K%) TO HAND%(K%):NEXT
  200SYS "Wimp_CloseTemplate"
  210ENDPROC
  220DEFPROCloadsprites
  230DIM SPRITES% 2000
  240!SPRITES%=2000:SPRITES%!4=0:SPRITES%!8=16:SPRITES%!12=16:SYS &2E,266,SPRITES%,"<DeltaGen$Dir>.!Sprites"
  250ENDPROC
  260DEFPROCaction
  270REPEAT
  280PROCpoll
  290UNTIL (REAS%=17 OR REAS%=18) AND BLK%!16=0
  300ENDPROC
  310DEFPROCdie:OP%=0:PROCscrapslot
  320SYS "Wimp_CloseDown",HAND%,!TAS%
  330END
  340ENDPROC
  350DEFPROCpoll
  360!BLK%=%10011111110100110010
  370SYS "Wimp_Poll",0,BLK% TO REAS%
  380IF REAS%>-1 THEN PROCact
  390ENDPROC
  400DEFPROCact
  410CASE REAS% OF
  420WHEN 0:IF ST$="Start" THEN 490 ELSE PROCdelta
  430WHEN 2:PROCopmain
  440WHEN 3:PROCclmain
  450WHEN 6:PROCmouse
  460WHEN 9:PROCmenu
  470WHEN 7:PROCdragfin
  480WHEN 17,18:PROCinmessage(BLK%!16)
  490ENDCASE
  500ENDPROC
  510DEFPROCopenmain:OP%=1
  520!BLK%=HAND%(0):BLK%!4=100:BLK%!8=400:BLK%!12=1094:BLK%!16=828:BLK%!20=0:BLK%!24=0:BLK%!28=-1:SYS "Wimp_OpenWindow",,BLK%
  530ENDPROC
  540DEFPROCopmain:OP%=1
  550SYS "Wimp_OpenWindow",,BLK%
  560ENDPROC
  570DEFPROCclmain:OP%=0
  580SYS "Wimp_CloseWindow",,BLK%
  590ENDPROC
  600DEFPROCmakerr:IF FOP% THEN CLOSE#DF%
  610SYS "Wimp_DragBox",,0
  620!BLK%=ERR
  630ER=TRUE
  640CASE ERR OF
  650WHEN 222:$(BLK%+4)="File cannot be found"+CHR$(0):ER=FALSE
  660OTHERWISE
  670$(BLK%+4)=REPORT$+" at line "+STR$ERL+CHR$(0)
  680ENDCASE
  690SYS "Wimp_ReportError",BLK%,1,"DeltaGen"
  700IF ER THEN PROCdie ELSE PROCaction:END
  710ENDPROC
  720DEFPROCmessage(M%,M$):IF FOP% THEN CLOSE#DF%
  730SYS "Wimp_DragBox",,0:!BLK%=M%:$(BLK%+4)=M$+CHR$(0):SYS "Wimp_ReportError",BLK%,1,"DeltaGen":PROCscrapslot:PROCaction:END
  740ENDPROC
  750DEFPROCmouse
  760MOUX%=!BLK%:MOUY%=BLK%!4:MOUB%=BLK%!8:MOUH%=BLK%!12
  770IF MOUB%=1 THEN MOUB%=4
  780CASE MOUB% OF
  790WHEN 4:CASE MOUH% OF
  800WHEN -2:PROCopenmain
  810WHEN HAND%(0):IF BLK%!16=12 THEN PROCgo
  820ENDCASE
  830WHEN 2:IF MOUH%=-2 THEN PROCiconmenu ELSE IF MOUH%=HAND%(0) THEN PROCwindmenu
  840WHEN 16,64:IF MOUH%=HAND%(1) THEN PROCstartdrag
  850ENDCASE
  860ENDPROC
  870DEFPROCmenoff:SYS "Wimp_CreateMenu",-1:ENDPROC
  880DEFPROCiconmenu
  890$MENU%="DeltaGen":MENU%?12=7:MENU%?13=2:MENU%?14=7:MENU%?15=0:MENU%!16=100:MENU%!20=44:MENU%!24=0
  900MENU%!28=0:MENU%!32=HAND%(2):MENU%!36=1 OR (7<<24):$(MENU%+40)="Info"
  910MENU%!52=128:MENU%!56=-1:MENU%!60=1 OR (7<<24):$(MENU%+64)="Quit"
  920SYS "Wimp_CreateMenu",,MENU%,MOUX%-64,184
  930ENDPROC
  940DEFPROCwindmenu
  950$MENU%="DeltaGen":MENU%?12=7:MENU%?13=2:MENU%?14=7:MENU%?15=0:MENU%!16=260:MENU%!20=44:MENU%!24=0
  960DATA Set delta name,1,0,Info,2,2,Quit,-1,128
  970RESTORE 960:FORL%=0 TO 2:READ A$,B%,C%:MENU%!(28+(L%*24))=C%:IF B%>-1 THEN MENU%!(28+(L%*24)+4)=HAND%(B%) ELSE MENU%!(28+(L%*24)+4)=-1
  980MENU%!(28+(L%*24)+8)=1 OR (7<<24) OR 256:$(MENU%+500+(L%*20))=A$:MENU%!(28+(L%*24)+12)=(MENU%+500+(L%*20))
  990IF L%=0 AND ST$="Abort" THEN MENU%!(28+(L%*24)+8)=MENU%!(28+(L%*24)+8) OR (1<<22)
 1000MENU%!(28+(L%*24)+16)=MENU%+900:MENU%!(28+(L%*24)+20)=20:NEXT:$(MENU%+900)="AA-Za-z":
 1010SYS "Wimp_CreateMenu",,MENU%,MOUX%-64,MOUY%+60
 1020ENDPROC
 1030DEFPROCmenu
 1040SYS "Wimp_DecodeMenu",,MENU%,BLK%,SEL%
 1050IF $SEL%="Quit" THEN PROCdie
 1060ENDPROC
 1070DEFFNgstr(AD%):W$="":IF ?AD%<32 THEN =W$ ELSE REPEAT:W$=W$+CHR$(?AD%):AD%+=1:UNTIL ?AD%<32:=W$
 1080DEFFNgeticon(WH%,IC%):!ICBLK%=HAND%(WH%):ICBLK%!4=IC%:SYS "Wimp_GetIconState",,ICBLK%:=FNgstr(!(ICBLK%+28))
 1090DEFPROCseticon(WH%,IC%,SET$):!ICBLK%=HAND%(WH%):ICBLK%!4=IC%:SYS "Wimp_GetIconState",,ICBLK%:ICBLK%!8=0:ICBLK%!12=0:$(ICBLK%!28)=SET$:SYS "Wimp_SetIconState",,ICBLK%:ENDPROC
 1100DEFFNhigh(WH%,IC%):!ICBLK%=HAND%(WH%):ICBLK%!4=IC%:SYS "Wimp_GetIconState",,ICBLK%:=((?(ICBLK%+26)) AND %100000)=32
 1110DEFPROCdragfin
 1120F$="Delta":T$=F$
 1130SYS "Wimp_GetPointerInfo",,POI%
 1140POI%!20=64:POI%!32=0:POI%!36=1:POI%!40=POI%!12:POI%!44=POI%!16:POI%!48=!POI%:POI%!52=POI%!4:POI%!56=2048:POI%!60=&555:$(POI%+64)=T$
 1150SYS "Wimp_SendMessage",17,POI%+20,POI%!12,POI%!16
 1160ENDPROC
 1170DEFPROCpoint:SYS "Wimp_GetPointerInfo",,POI%:MOX%=!POI%:MOY%=POI%!4:MOB%=POI%!8:ENDPROC
 1180DEFPROCstartdrag
 1190SYS "Wimp_GetWindowState",,BLK%+12
 1200X%=BLK%!16:Y%=BLK%!28:BLK%!16=0:SYS "Wimp_GetIconState",,BLK%+12
 1210BLK%!16=5:BLK%!20+=X%-2:BLK%!24+=Y%-4
 1220BLK%!28+=X%+6:BLK%!32+=Y%
 1230BLK%!36=0:BLK%!40=0:BLK%!44=&7FFFFFFF:BLK%!48=&7FFFFFFF:SYS "Wimp_DragBox",,BLK%+12:ENDPROC
 1240DEFPROCinmessage(M%)
 1250CASE M% OF
 1260WHEN 0:PROCdie
 1270WHEN 2:PROCdragsave
 1280WHEN 3:IF BLK%!12=0 AND BLK%!40=&1000 PROCload
 1290ENDCASE:ENDPROC
 1300DEFPROCdragsave:A$=FNgetname
 1310PROCseticon(0,6,A$)
 1320SYS "Wimp_CreateMenu",-1
 1330BLK%!12=BLK%!8:BLK%!16=3:!BLK%=64:SYS "Wimp_SendMessage",17,BLK%,BLK%!20,BLK%!24:ENDPROC
 1340DEFFNgetname:W$="":P%=BLK%+44:WHILE ?P%<>0 AND ?P%<>13:W$=W$+CHR$(?P%):P%+=1:ENDWHILE:=W$
 1350DEFPROCload
 1360A$=FNgetname:BLK%!12=BLK%!8:BLK%!16=4:!BLK%=64:SYS "Wimp_SendMessage",17,BLK%,BLK%!4
 1370REM VDU4:PRINTTAB(0,0);BLK%!40;" ";A$:VDU5
 1380IF OP%=0 THEN PROCopenmain
 1390PROCseticon(0,8,A$)
 1400ENDPROC
 1410DEFPROCupcont:ENDPROC:PROCseticon(0,6,STR$SOURL%):PROCseticon(0,7,STR$OBJEL%):PROCseticon(0,8,STR$TRACKS%):PROCseticon(0,9,STR$INS%):PROCseticon(0,5,SF$):ENDPROC
 1420DEFPROCscrapslot:IF CLAIM% THEN SYS"Wimp_SlotSize",APS%,-1:CLAIM%=FALSE
 1430IF ST$="Abort" THEN ST$="Start":PROCseticon(0,12,ST$):CLOSE#DF%
 1440ENDPROC
 1450DEFPROCgo:IF ST$="Start" PROCstart ELSE CLOSE#DF%:PROCscrapslot:ST$="Start":PROCseticon(0,12,"Start")
 1460ENDPROC
 1470DEFPROCstart:NF%=VAL(FNgeticon(0,13)):IF NF%<2 OR NF%>77 THEN PROCmessage(0,"Can only have between 2 and 77 frames."):ENDPROC
 1480RT$=FNgeticon(0,7):IF RT$="" OR LEN(RT$)>8 THEN PROCmessage(0,"Invalid file root name."):ENDPROC
 1490DN$=FNgeticon(0,6):IF DN$="" THEN PROCmessage(0,"You must enter a filename for the delta file."):ENDPROC
 1500SD$=FNgeticon(0,8):IF SD$="" THEN PROCmessage(0,"You must enter a filename for the source directory."):ENDPROC
 1510FOP%=TRUE:DF%=OPENOUT(DN$)
 1520F$=SD$+"."+RT$+"1":F%=OPENIN(F$):L%=EXT#F%:CLOSE#F%
 1530FSTORE%=HIMEM:
 1531SYS"Wimp_SlotSize",APS%+((L%*2)+40),-1 TO NAP%:CLAIM%=TRUE
 1540IF NAP%<(APS%+((L%*2)+40)) THEN PROCscrapslot:PROCmessage(0,"Not enough memory to store twin images."):ENDPROC
 1550NSTORE%=FSTORE%+L%+20
 1560CLAIM%=TRUE:SS%=L%:!VARS=DF%
 1570!FSTORE%=SS%+4:OSCLI("*LOAD "+F$+" "+STR$~(FSTORE%+4)):SYS"OS_GBPB",2,DF%,FSTORE%,SS%+4:WW%=!(FSTORE%+(FSTORE%!8)+16):WH%=!(FSTORE%+(FSTORE%!8)+20):SIS%=((WW%+1)*4)*(WH%+1):SO%=!(FSTORE%+(FSTORE%!8)+32)
 1580FSA%=FSTORE%+(FSTORE%!8)+SO%:VARS!4=FSA%:VARS!20=SIS%
 1590NI%=2:ST$="Abort":PROCseticon(0,12,"Abort"):SYS"OS_SpriteOp",269,FSTORE%,TAS%+1900,99,1:SN$="":O%=0:WHILE ?(TAS%+1900+O%)>0:SN$=SN$+CHR$(?(TAS%+1900+O%)):O%+=1:ENDWHILE:SYS"OS_SpriteOp",296,FSTORE%,SN$ TO ,,,SX%,SY%,,SM%
 1600PROCseticon(0,9,STR$SX%):PROCseticon(0,10,STR$SY%):PROCseticon(0,11,STR$SM%):ENDPROC
 1610DEFPROCass:FORL%=0 TO 2 STEP 2:P%=CDE%:[OPTL%
 1620.makedelta:STMFD R13!,{R14}:MOV R12,R0:LDR R11,[R12]:LDR R9,[R12,#4]:LDR R10,[R12,#8]
 1630.delta1:MOV R6,#0:.delta2:LDR R7,[R9,R6]:LDR R8,[R10,R6]:ADD R0,R9,R6:LDR R1,[R12,#20]:CMP R0,R1:BEQ findelta:CMP R7,R8:ADDEQ R6,R6,#4:BEQ delta2:ADD R10,R10,R6:ADD R9,R9,R6:LDR R0,[R12,#8]:SUB R1,R10,R0:SUB R1,R1,#16:STR R1,[R12,#12]:MOV R6,#0
 1640.delta3:LDR R7,[R9,R6]:LDR R8,[R10,R6]:ADD R0,R9,R6:LDR R1,[R12,#20]:CMP R0,R1:BEQ findelta2:CMP R7,R8:ADDNE R6,R6,#4:BNE delta3:STR R6,[R12,#16]:BL file:MOV R7,#0:.delta4:MOV R0,#2:LDR R1,[R12]:ADD R2,R12,#12:MOV R3,#4:LDR R4,[R10,R7]:STR R4,[R9,R7]
 1650STR R4,[R12,#12]:SWI &C:ADD R7,R7,#4:CMP R7,R6:BNE delta4:ADD R9,R9,R6:ADD R10,R10,R6:B delta1
 1660.findelta:MOV R5,#0:SUB R5,R5,#1:STR R5,[R12,#12]:MOV R5,#0:STR R5,[R12,#16]:BL file:LDMFD R13!,{PC}
 1670.findelta2:CMP R6,#0:BEQ findelta:STR R6,[R12,#16]:BL file:MOV R7,#0:.delta5:MOV R0,#2:LDR R1,[R12]:ADD R2,R12,#12:MOV R3,#4:LDR R4,[R10,R7]:STR R4,[R9,R7]:STR R4,[R12,#12]:SWI &C:ADD R7,R7,#4:CMP R7,R6:BNE delta5:B findelta
 1680.file:STMFD R13!,{R14}:MOV R0,#2:LDR R1,[R12]:ADD R2,R12,#12:MOV R3,#8:SWI &C:LDMFD R13!,{PC}
 1690]:NEXT:ENDPROC
 1700DEFPROCdelta:F$=SD$+"."+RT$+STR$NI%:F%=OPENIN(F$):L%=EXT#F%:CLOSE#F%:IF L%<>SS% THEN PROCmessage("Sprite image '"+F$+"' is different size")
 1710!NSTORE%=SS%+4:OSCLI("*LOAD "+F$+" "+STR$~(NSTORE%+4)):WW%=!(NSTORE%+(NSTORE%!8)+16):WH%=!(NSTORE%+(NSTORE%!8)+20):SIS%=((WW%+1)*4)*(WH%+1):SO%=!(NSTORE%+(NSTORE%!8)+32)
 1720NSA%=NSTORE%+(NSTORE%!8)+SO%:VARS!8=NSA%:VARS!20=FSA%+SIS%
 1730PROCseticon(0,15,RT$+STR$NI%):A%=VARS:CALL makedelta:NI%+=1:MF%=VALFNgeticon(0,13)
 1740IF NI%>MF% THEN FORL%=1 TO 8:BPUT#DF%,&FF:NEXT:CLOSE#DF%:OSCLI("*SETTYPE "+DN$+" 54F"):ST$="Start":PROCseticon(0,12,ST$):PROCseticon(0,15," "):PROCscrapslot:ENDPROC
 1750SYS"OS_SpriteOp",265,NSTORE%:ENDPROC


� ><DeltaGen$Dir>.!RunImage
� � �makerr

�setup
(�action
2�die
<�
F6��setup:OP%=0:DMDE%=-1:FOP%=�:ST$="Start":CLAIM%=�
PS� POI% 256,TAS% 2000,BLK% 1000,MENU% 1000,SEL% 256,ICBLK% 256,CDE% 2048,VARS 32
Z"ș"Wimp_SlotSize",-1,-1 � APS%
dA$TAS%="TASK":ș"Wimp_Initialise",200,!TAS%,"DeltaGen" � HAND%
n�loadsprites:�ass
xB!BLK%=-1:BLK%!4=0:BLK%!8=0:BLK%!12=64:BLK%!16=64:BLK%!20=&2102
�C� BLK%!24 10:$(BLK%!24)="!DeltaGen":BLK%!28=SPRITES%:BLK%!32=10
�(ș "Wimp_CreateIcon",,BLK% � ICHAND%
�6ș "Wimp_OpenTemplate",,"<DeltaGen$Dir>.Templates"
�v� STORE% (6*1024),BUF%(2),INDIR%(2),HAND%(2):�L%=0 � 2:BUF%(L%)=STORE%+(L%*1024):INDIR%(L%)=STORE%+((L%+3)*1024):�
�� Main,Save,Info
�_� �tj@:�K%=0 � 2:� A$:ș "Wimp_LoadTemplate",,BUF%(K%),INDIR%(K%),INDIR%(K%)+1024,-1,A$,0:�
�H� �tj@:�K%=0 � 2:� A$:ș "Wimp_CreateWindow",,BUF%(K%) � HAND%(K%):�
�ș "Wimp_CloseTemplate"
��
���loadsprites
�� SPRITES% 2000
�j!SPRITES%=2000:SPRITES%!4=0:SPRITES%!8=16:SPRITES%!12=16:ș &2E,266,SPRITES%,"<DeltaGen$Dir>.!Sprites"
��
��action
�
	�poll
"'� (REAS%=17 � REAS%=18) � BLK%!16=0
,�
6��die:OP%=0:�scrapslot
@#ș "Wimp_CloseDown",HAND%,!TAS%
J�
T�
^
��poll
h!BLK%=%10011111110100110010
r!ș "Wimp_Poll",0,BLK% � REAS%
|� REAS%>-1 � �act
��
�	��act
�Ȏ REAS% �
�%� 0:� ST$="Start" � �djA � �delta
�� 2:�opmain
�� 3:�clmain
�� 6:�mouse
�
� 9:�menu
�� 7:�dragfin
�� 17,18:�inmessage(BLK%!16)
��
��
���openmain:OP%=1
{!BLK%=HAND%(0):BLK%!4=100:BLK%!8=400:BLK%!12=1094:BLK%!16=828:BLK%!20=0:BLK%!24=0:BLK%!28=-1:ș "Wimp_OpenWindow",,BLK%
�
��opmain:OP%=1
&ș "Wimp_OpenWindow",,BLK%
0�
:��clmain:OP%=0
Dș "Wimp_CloseWindow",,BLK%
N�
X��makerr:� FOP% � �#DF%
bș "Wimp_DragBox",,0
l!BLK%=�
vER=�
�
Ȏ � �
�4� 222:$(BLK%+4)="File cannot be found"+�(0):ER=�
�
�$$(BLK%+4)=�$+" at line "+Þ+�(0)
��
�+ș "Wimp_ReportError",BLK%,1,"DeltaGen"
�� ER � �die � �action:�
��
�#��message(M%,M$):� FOP% � �#DF%
�pș "Wimp_DragBox",,0:!BLK%=M%:$(BLK%+4)=M$+�(0):ș "Wimp_ReportError",BLK%,1,"DeltaGen":�scrapslot:�action:�
��
���mouse
�7MOUX%=!BLK%:MOUY%=BLK%!4:MOUB%=BLK%!8:MOUH%=BLK%!12
� MOUB%=1 � MOUB%=4
Ȏ MOUB% �
� 4:Ȏ MOUH% �
 � -2:�openmain
*!� HAND%(0):� BLK%!16=12 � �go
4�
>=� 2:� MOUH%=-2 � �iconmenu � � MOUH%=HAND%(0) � �windmenu
H)� 16,64:� MOUH%=HAND%(1) � �startdrag
R�
\�
f&��menoff:ș "Wimp_CreateMenu",-1:�
p��iconmenu
ze$MENU%="DeltaGen":MENU%?12=7:MENU%?13=2:MENU%?14=7:MENU%?15=0:MENU%!16=100:MENU%!20=44:MENU%!24=0
�HMENU%!28=0:MENU%!32=HAND%(2):MENU%!36=1 � (7<<24):$(MENU%+40)="Info"
�DMENU%!52=128:MENU%!56=-1:MENU%!60=1 � (7<<24):$(MENU%+64)="Quit"
�,ș "Wimp_CreateMenu",,MENU%,MOUX%-64,184
��
���windmenu
�e$MENU%="DeltaGen":MENU%?12=7:MENU%?13=2:MENU%?14=7:MENU%?15=0:MENU%!16=260:MENU%!20=44:MENU%!24=0
�-� Set delta name,1,0,Info,2,2,Quit,-1,128
�x� �d@C:�L%=0 � 2:� A$,B%,C%:MENU%!(28+(L%*24))=C%:� B%>-1 � MENU%!(28+(L%*24)+4)=HAND%(B%) � MENU%!(28+(L%*24)+4)=-1
�lMENU%!(28+(L%*24)+8)=1 � (7<<24) � 256:$(MENU%+500+(L%*20))=A$:MENU%!(28+(L%*24)+12)=(MENU%+500+(L%*20))
�N� L%=0 � ST$="Abort" � MENU%!(28+(L%*24)+8)=MENU%!(28+(L%*24)+8) � (1<<22)
�VMENU%!(28+(L%*24)+16)=MENU%+900:MENU%!(28+(L%*24)+20)=20:�:$(MENU%+900)="AA-Za-z":
�1ș "Wimp_CreateMenu",,MENU%,MOUX%-64,MOUY%+60
��

��menu
)ș "Wimp_DecodeMenu",,MENU%,BLK%,SEL%
� $SEL%="Quit" � �die
$�
.Lݤgstr(AD%):W$="":� ?AD%<32 � =W$ � �:W$=W$+�(?AD%):AD%+=1:� ?AD%<32:=W$
8jݤgeticon(WH%,IC%):!ICBLK%=HAND%(WH%):ICBLK%!4=IC%:ș "Wimp_GetIconState",,ICBLK%:=�gstr(!(ICBLK%+28))
B���seticon(WH%,IC%,SET$):!ICBLK%=HAND%(WH%):ICBLK%!4=IC%:ș "Wimp_GetIconState",,ICBLK%:ICBLK%!8=0:ICBLK%!12=0:$(ICBLK%!28)=SET$:ș "Wimp_SetIconState",,ICBLK%:�
Lqݤhigh(WH%,IC%):!ICBLK%=HAND%(WH%):ICBLK%!4=IC%:ș "Wimp_GetIconState",,ICBLK%:=((?(ICBLK%+26)) � %100000)=32
V
��dragfin
`F$="Delta":T$=F$
j"ș "Wimp_GetPointerInfo",,POI%
t�POI%!20=64:POI%!32=0:POI%!36=1:POI%!40=POI%!12:POI%!44=POI%!16:POI%!48=!POI%:POI%!52=POI%!4:POI%!56=2048:POI%!60=&555:$(POI%+64)=T$
~4ș "Wimp_SendMessage",17,POI%+20,POI%!12,POI%!16
��
�O��point:ș "Wimp_GetPointerInfo",,POI%:MOX%=!POI%:MOY%=POI%!4:MOB%=POI%!8:�
���startdrag
�%ș "Wimp_GetWindowState",,BLK%+12
�CX%=BLK%!16:Y%=BLK%!28:BLK%!16=0:ș "Wimp_GetIconState",,BLK%+12
�)BLK%!16=5:BLK%!20+=X%-2:BLK%!24+=Y%-4
�BLK%!28+=X%+6:BLK%!32+=Y%
�XBLK%!36=0:BLK%!40=0:BLK%!44=&7FFFFFFF:BLK%!48=&7FFFFFFF:ș "Wimp_DragBox",,BLK%+12:�
���inmessage(M%)
�Ȏ M% �
�� 0:�die
�� 2:�dragsave
)� 3:� BLK%!12=0 � BLK%!40=&1000 �load

�:�
��dragsave:A$=�getname
�seticon(0,6,A$)
(ș "Wimp_CreateMenu",-1
2UBLK%!12=BLK%!8:BLK%!16=3:!BLK%=64:ș "Wimp_SendMessage",17,BLK%,BLK%!20,BLK%!24:�
<Kݤgetname:W$="":P%=BLK%+44:ȕ ?P%<>0 � ?P%<>13:W$=W$+�(?P%):P%+=1:�:=W$
F
��load
PVA$=�getname:BLK%!12=BLK%!8:BLK%!16=4:!BLK%=64:ș "Wimp_SendMessage",17,BLK%,BLK%!4
Z,� VDU4:PRINTTAB(0,0);BLK%!40;" ";A$:VDU5
d� OP%=0 � �openmain
n�seticon(0,8,A$)
x�
�y��upcont:�:�seticon(0,6,�SOURL%):�seticon(0,7,�OBJEL%):�seticon(0,8,�TRACKS%):�seticon(0,9,�INS%):�seticon(0,5,SF$):�
�=��scrapslot:� CLAIM% � ș"Wimp_SlotSize",APS%,-1:CLAIM%=�
�8� ST$="Abort" � ST$="Start":�seticon(0,12,ST$):�#DF%
��
�S��go:� ST$="Start" �start � �#DF%:�scrapslot:ST$="Start":�seticon(0,12,"Start")
��
�k��start:NF%=�(�geticon(0,13)):� NF%<2 � NF%>77 � �message(0,"Can only have between 2 and 77 frames."):�
�SRT$=�geticon(0,7):� RT$="" � �(RT$)>8 � �message(0,"Invalid file root name."):�
�^DN$=�geticon(0,6):� DN$="" � �message(0,"You must enter a filename for the delta file."):�
�dSD$=�geticon(0,8):� SD$="" � �message(0,"You must enter a filename for the source directory."):�
�FOP%=�:DF%=�(DN$)
�,F$=SD$+"."+RT$+"1":F%=�(F$):L%=�#F%:�#F%
�FSTORE%=�:
�9ș"Wimp_SlotSize",APS%+((L%*2)+40),-1 � NAP%:CLAIM%=�
b� NAP%<(APS%+((L%*2)+40)) � �scrapslot:�message(0,"Not enough memory to store twin images."):�
NSTORE%=FSTORE%+L%+20
CLAIM%=�:SS%=L%:!VARS=DF%
"�!FSTORE%=SS%+4:�("*LOAD "+F$+" "+�~(FSTORE%+4)):ș"OS_GBPB",2,DF%,FSTORE%,SS%+4:WW%=!(FSTORE%+(FSTORE%!8)+16):WH%=!(FSTORE%+(FSTORE%!8)+20):SIS%=((WW%+1)*4)*(WH%+1):SO%=!(FSTORE%+(FSTORE%!8)+32)
,9FSA%=FSTORE%+(FSTORE%!8)+SO%:VARS!4=FSA%:VARS!20=SIS%
6�NI%=2:ST$="Abort":�seticon(0,12,"Abort"):ș"OS_SpriteOp",269,FSTORE%,TAS%+1900,99,1:SN$="":O%=0:ȕ ?(TAS%+1900+O%)>0:SN$=SN$+�(?(TAS%+1900+O%)):O%+=1:�:ș"OS_SpriteOp",296,FSTORE%,SN$ � ,,,SX%,SY%,,SM%
@@�seticon(0,9,�SX%):�seticon(0,10,�SY%):�seticon(0,11,�SM%):�
J&��ass:�L%=0 � 2 � 2:P%=CDE%:[OPTL%
TY.makedelta:STMFD R13!,{R14}:MOV R12,R0:LDR R11,[R12]:LDR R9,[R12,#4]:LDR R10,[R12,#8]
^�.delta1:MOV R6,#0:.delta2:LDR R7,[R9,R6]:LDR R8,[R10,R6]:ADD R0,R9,R6:LDR R1,[R12,#20]:CMP R0,R1:BEQ findelta:CMP R7,R8:ADDEQ R6,R6,#4:BEQ delta2:ADD R10,R10,R6:ADD R9,R9,R6:LDR R0,[R12,#8]:SUB R1,R10,R0:SUB R1,R1,#16:STR R1,[R12,#12]:MOV R6,#0
h�.delta3:LDR R7,[R9,R6]:LDR R8,[R10,R6]:ADD R0,R9,R6:LDR R1,[R12,#20]:CMP R0,R1:BEQ findelta2:CMP R7,R8:ADDNE R6,R6,#4:BNE delta3:STR R6,[R12,#16]:BL file:MOV R7,#0:.delta4:MOV R0,#2:LDR R1,[R12]:ADD R2,R12,#12:MOV R3,#4:LDR R4,[R10,R7]:STR R4,[R9,R7]
rbSTR R4,[R12,#12]:SWI &C:ADD R7,R7,#4:CMP R7,R6:BNE delta4:ADD R9,R9,R6:ADD R10,R10,R6:B delta1
|h.findelta:MOV R5,#0:SUB R5,R5,#1:STR R5,[R12,#12]:MOV R5,#0:STR R5,[R12,#16]:BL file:LDMFD R13!,{PC}
��.findelta2:CMP R6,#0:BEQ findelta:STR R6,[R12,#16]:BL file:MOV R7,#0:.delta5:MOV R0,#2:LDR R1,[R12]:ADD R2,R12,#12:MOV R3,#4:LDR R4,[R10,R7]:STR R4,[R9,R7]:STR R4,[R12,#12]:SWI &C:ADD R7,R7,#4:CMP R7,R6:BNE delta5:B findelta
�a.file:STMFD R13!,{R14}:MOV R0,#2:LDR R1,[R12]:ADD R2,R12,#12:MOV R3,#8:SWI &C:LDMFD R13!,{PC}
�	]:�:�
�u��delta:F$=SD$+"."+RT$+�NI%:F%=�(F$):L%=�#F%:�#F%:� L%<>SS% � �message("Sprite image '"+F$+"' is different size")
��!NSTORE%=SS%+4:�("*LOAD "+F$+" "+�~(NSTORE%+4)):WW%=!(NSTORE%+(NSTORE%!8)+16):WH%=!(NSTORE%+(NSTORE%!8)+20):SIS%=((WW%+1)*4)*(WH%+1):SO%=!(NSTORE%+(NSTORE%!8)+32)
�>NSA%=NSTORE%+(NSTORE%!8)+SO%:VARS!8=NSA%:VARS!20=FSA%+SIS%
�J�seticon(0,15,RT$+�NI%):A%=VARS:� makedelta:NI%+=1:MF%=��geticon(0,13)
̄� NI%>MF% � �L%=1 � 8:�#DF%,&FF:�:�#DF%:�("*SETTYPE "+DN$+" 54F"):ST$="Start":�seticon(0,12,ST$):�seticon(0,15," "):�scrapslot:�
�!ș"OS_SpriteOp",265,NSTORE%:�
�
00000000  0d 00 0a 1f f4 20 3e 3c  44 65 6c 74 61 47 65 6e  |..... ><DeltaGen|
00000010  24 44 69 72 3e 2e 21 52  75 6e 49 6d 61 67 65 0d  |$Dir>.!RunImage.|
00000020  00 14 0f ee 20 85 20 f2  6d 61 6b 65 72 72 0d 00  |.... . .makerr..|
00000030  1e 0a f2 73 65 74 75 70  0d 00 28 0b f2 61 63 74  |...setup..(..act|
00000040  69 6f 6e 0d 00 32 08 f2  64 69 65 0d 00 3c 05 e0  |ion..2..die..<..|
00000050  0d 00 46 36 dd f2 73 65  74 75 70 3a 4f 50 25 3d  |..F6..setup:OP%=|
00000060  30 3a 44 4d 44 45 25 3d  2d 31 3a 46 4f 50 25 3d  |0:DMDE%=-1:FOP%=|
00000070  a3 3a 53 54 24 3d 22 53  74 61 72 74 22 3a 43 4c  |.:ST$="Start":CL|
00000080  41 49 4d 25 3d a3 0d 00  50 53 de 20 50 4f 49 25  |AIM%=...PS. POI%|
00000090  20 32 35 36 2c 54 41 53  25 20 32 30 30 30 2c 42  | 256,TAS% 2000,B|
000000a0  4c 4b 25 20 31 30 30 30  2c 4d 45 4e 55 25 20 31  |LK% 1000,MENU% 1|
000000b0  30 30 30 2c 53 45 4c 25  20 32 35 36 2c 49 43 42  |000,SEL% 256,ICB|
000000c0  4c 4b 25 20 32 35 36 2c  43 44 45 25 20 32 30 34  |LK% 256,CDE% 204|
000000d0  38 2c 56 41 52 53 20 33  32 0d 00 5a 22 c8 99 22  |8,VARS 32..Z".."|
000000e0  57 69 6d 70 5f 53 6c 6f  74 53 69 7a 65 22 2c 2d  |Wimp_SlotSize",-|
000000f0  31 2c 2d 31 20 b8 20 41  50 53 25 0d 00 64 41 24  |1,-1 . APS%..dA$|
00000100  54 41 53 25 3d 22 54 41  53 4b 22 3a c8 99 22 57  |TAS%="TASK":.."W|
00000110  69 6d 70 5f 49 6e 69 74  69 61 6c 69 73 65 22 2c  |imp_Initialise",|
00000120  32 30 30 2c 21 54 41 53  25 2c 22 44 65 6c 74 61  |200,!TAS%,"Delta|
00000130  47 65 6e 22 20 b8 20 48  41 4e 44 25 0d 00 6e 15  |Gen" . HAND%..n.|
00000140  f2 6c 6f 61 64 73 70 72  69 74 65 73 3a f2 61 73  |.loadsprites:.as|
00000150  73 0d 00 78 42 21 42 4c  4b 25 3d 2d 31 3a 42 4c  |s..xB!BLK%=-1:BL|
00000160  4b 25 21 34 3d 30 3a 42  4c 4b 25 21 38 3d 30 3a  |K%!4=0:BLK%!8=0:|
00000170  42 4c 4b 25 21 31 32 3d  36 34 3a 42 4c 4b 25 21  |BLK%!12=64:BLK%!|
00000180  31 36 3d 36 34 3a 42 4c  4b 25 21 32 30 3d 26 32  |16=64:BLK%!20=&2|
00000190  31 30 32 0d 00 82 43 de  20 42 4c 4b 25 21 32 34  |102...C. BLK%!24|
000001a0  20 31 30 3a 24 28 42 4c  4b 25 21 32 34 29 3d 22  | 10:$(BLK%!24)="|
000001b0  21 44 65 6c 74 61 47 65  6e 22 3a 42 4c 4b 25 21  |!DeltaGen":BLK%!|
000001c0  32 38 3d 53 50 52 49 54  45 53 25 3a 42 4c 4b 25  |28=SPRITES%:BLK%|
000001d0  21 33 32 3d 31 30 0d 00  8c 28 c8 99 20 22 57 69  |!32=10...(.. "Wi|
000001e0  6d 70 5f 43 72 65 61 74  65 49 63 6f 6e 22 2c 2c  |mp_CreateIcon",,|
000001f0  42 4c 4b 25 20 b8 20 49  43 48 41 4e 44 25 0d 00  |BLK% . ICHAND%..|
00000200  96 36 c8 99 20 22 57 69  6d 70 5f 4f 70 65 6e 54  |.6.. "Wimp_OpenT|
00000210  65 6d 70 6c 61 74 65 22  2c 2c 22 3c 44 65 6c 74  |emplate",,"<Delt|
00000220  61 47 65 6e 24 44 69 72  3e 2e 54 65 6d 70 6c 61  |aGen$Dir>.Templa|
00000230  74 65 73 22 0d 00 a0 76  de 20 53 54 4f 52 45 25  |tes"...v. STORE%|
00000240  20 28 36 2a 31 30 32 34  29 2c 42 55 46 25 28 32  | (6*1024),BUF%(2|
00000250  29 2c 49 4e 44 49 52 25  28 32 29 2c 48 41 4e 44  |),INDIR%(2),HAND|
00000260  25 28 32 29 3a e3 4c 25  3d 30 20 b8 20 32 3a 42  |%(2):.L%=0 . 2:B|
00000270  55 46 25 28 4c 25 29 3d  53 54 4f 52 45 25 2b 28  |UF%(L%)=STORE%+(|
00000280  4c 25 2a 31 30 32 34 29  3a 49 4e 44 49 52 25 28  |L%*1024):INDIR%(|
00000290  4c 25 29 3d 53 54 4f 52  45 25 2b 28 28 4c 25 2b  |L%)=STORE%+((L%+|
000002a0  33 29 2a 31 30 32 34 29  3a ed 0d 00 aa 14 dc 20  |3)*1024):...... |
000002b0  4d 61 69 6e 2c 53 61 76  65 2c 49 6e 66 6f 0d 00  |Main,Save,Info..|
000002c0  b4 5f f7 20 8d 74 6a 40  3a e3 4b 25 3d 30 20 b8  |._. .tj@:.K%=0 .|
000002d0  20 32 3a f3 20 41 24 3a  c8 99 20 22 57 69 6d 70  | 2:. A$:.. "Wimp|
000002e0  5f 4c 6f 61 64 54 65 6d  70 6c 61 74 65 22 2c 2c  |_LoadTemplate",,|
000002f0  42 55 46 25 28 4b 25 29  2c 49 4e 44 49 52 25 28  |BUF%(K%),INDIR%(|
00000300  4b 25 29 2c 49 4e 44 49  52 25 28 4b 25 29 2b 31  |K%),INDIR%(K%)+1|
00000310  30 32 34 2c 2d 31 2c 41  24 2c 30 3a ed 0d 00 be  |024,-1,A$,0:....|
00000320  48 f7 20 8d 74 6a 40 3a  e3 4b 25 3d 30 20 b8 20  |H. .tj@:.K%=0 . |
00000330  32 3a f3 20 41 24 3a c8  99 20 22 57 69 6d 70 5f  |2:. A$:.. "Wimp_|
00000340  43 72 65 61 74 65 57 69  6e 64 6f 77 22 2c 2c 42  |CreateWindow",,B|
00000350  55 46 25 28 4b 25 29 20  b8 20 48 41 4e 44 25 28  |UF%(K%) . HAND%(|
00000360  4b 25 29 3a ed 0d 00 c8  1b c8 99 20 22 57 69 6d  |K%):....... "Wim|
00000370  70 5f 43 6c 6f 73 65 54  65 6d 70 6c 61 74 65 22  |p_CloseTemplate"|
00000380  0d 00 d2 05 e1 0d 00 dc  11 dd f2 6c 6f 61 64 73  |...........loads|
00000390  70 72 69 74 65 73 0d 00  e6 13 de 20 53 50 52 49  |prites..... SPRI|
000003a0  54 45 53 25 20 32 30 30  30 0d 00 f0 6a 21 53 50  |TES% 2000...j!SP|
000003b0  52 49 54 45 53 25 3d 32  30 30 30 3a 53 50 52 49  |RITES%=2000:SPRI|
000003c0  54 45 53 25 21 34 3d 30  3a 53 50 52 49 54 45 53  |TES%!4=0:SPRITES|
000003d0  25 21 38 3d 31 36 3a 53  50 52 49 54 45 53 25 21  |%!8=16:SPRITES%!|
000003e0  31 32 3d 31 36 3a c8 99  20 26 32 45 2c 32 36 36  |12=16:.. &2E,266|
000003f0  2c 53 50 52 49 54 45 53  25 2c 22 3c 44 65 6c 74  |,SPRITES%,"<Delt|
00000400  61 47 65 6e 24 44 69 72  3e 2e 21 53 70 72 69 74  |aGen$Dir>.!Sprit|
00000410  65 73 22 0d 00 fa 05 e1  0d 01 04 0c dd f2 61 63  |es"...........ac|
00000420  74 69 6f 6e 0d 01 0e 05  f5 0d 01 18 09 f2 70 6f  |tion..........po|
00000430  6c 6c 0d 01 22 27 fd 20  28 52 45 41 53 25 3d 31  |ll.."'. (REAS%=1|
00000440  37 20 84 20 52 45 41 53  25 3d 31 38 29 20 80 20  |7 . REAS%=18) . |
00000450  42 4c 4b 25 21 31 36 3d  30 0d 01 2c 05 e1 0d 01  |BLK%!16=0..,....|
00000460  36 1a dd f2 64 69 65 3a  4f 50 25 3d 30 3a f2 73  |6...die:OP%=0:.s|
00000470  63 72 61 70 73 6c 6f 74  0d 01 40 23 c8 99 20 22  |crapslot..@#.. "|
00000480  57 69 6d 70 5f 43 6c 6f  73 65 44 6f 77 6e 22 2c  |Wimp_CloseDown",|
00000490  48 41 4e 44 25 2c 21 54  41 53 25 0d 01 4a 05 e0  |HAND%,!TAS%..J..|
000004a0  0d 01 54 05 e1 0d 01 5e  0a dd f2 70 6f 6c 6c 0d  |..T....^...poll.|
000004b0  01 68 1f 21 42 4c 4b 25  3d 25 31 30 30 31 31 31  |.h.!BLK%=%100111|
000004c0  31 31 31 31 30 31 30 30  31 31 30 30 31 30 0d 01  |11110100110010..|
000004d0  72 21 c8 99 20 22 57 69  6d 70 5f 50 6f 6c 6c 22  |r!.. "Wimp_Poll"|
000004e0  2c 30 2c 42 4c 4b 25 20  b8 20 52 45 41 53 25 0d  |,0,BLK% . REAS%.|
000004f0  01 7c 15 e7 20 52 45 41  53 25 3e 2d 31 20 8c 20  |.|.. REAS%>-1 . |
00000500  f2 61 63 74 0d 01 86 05  e1 0d 01 90 09 dd f2 61  |.act...........a|
00000510  63 74 0d 01 9a 0e c8 8e  20 52 45 41 53 25 20 ca  |ct...... REAS% .|
00000520  0d 01 a4 25 c9 20 30 3a  e7 20 53 54 24 3d 22 53  |...%. 0:. ST$="S|
00000530  74 61 72 74 22 20 8c 20  8d 64 6a 41 20 8b 20 f2  |tart" . .djA . .|
00000540  64 65 6c 74 61 0d 01 ae  0f c9 20 32 3a f2 6f 70  |delta..... 2:.op|
00000550  6d 61 69 6e 0d 01 b8 0f  c9 20 33 3a f2 63 6c 6d  |main..... 3:.clm|
00000560  61 69 6e 0d 01 c2 0e c9  20 36 3a f2 6d 6f 75 73  |ain..... 6:.mous|
00000570  65 0d 01 cc 0d c9 20 39  3a f2 6d 65 6e 75 0d 01  |e..... 9:.menu..|
00000580  d6 10 c9 20 37 3a f2 64  72 61 67 66 69 6e 0d 01  |... 7:.dragfin..|
00000590  e0 1f c9 20 31 37 2c 31  38 3a f2 69 6e 6d 65 73  |... 17,18:.inmes|
000005a0  73 61 67 65 28 42 4c 4b  25 21 31 36 29 0d 01 ea  |sage(BLK%!16)...|
000005b0  05 cb 0d 01 f4 05 e1 0d  01 fe 14 dd f2 6f 70 65  |.............ope|
000005c0  6e 6d 61 69 6e 3a 4f 50  25 3d 31 0d 02 08 7b 21  |nmain:OP%=1...{!|
000005d0  42 4c 4b 25 3d 48 41 4e  44 25 28 30 29 3a 42 4c  |BLK%=HAND%(0):BL|
000005e0  4b 25 21 34 3d 31 30 30  3a 42 4c 4b 25 21 38 3d  |K%!4=100:BLK%!8=|
000005f0  34 30 30 3a 42 4c 4b 25  21 31 32 3d 31 30 39 34  |400:BLK%!12=1094|
00000600  3a 42 4c 4b 25 21 31 36  3d 38 32 38 3a 42 4c 4b  |:BLK%!16=828:BLK|
00000610  25 21 32 30 3d 30 3a 42  4c 4b 25 21 32 34 3d 30  |%!20=0:BLK%!24=0|
00000620  3a 42 4c 4b 25 21 32 38  3d 2d 31 3a c8 99 20 22  |:BLK%!28=-1:.. "|
00000630  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
00000640  2c 2c 42 4c 4b 25 0d 02  12 05 e1 0d 02 1c 12 dd  |,,BLK%..........|
00000650  f2 6f 70 6d 61 69 6e 3a  4f 50 25 3d 31 0d 02 26  |.opmain:OP%=1..&|
00000660  1e c8 99 20 22 57 69 6d  70 5f 4f 70 65 6e 57 69  |... "Wimp_OpenWi|
00000670  6e 64 6f 77 22 2c 2c 42  4c 4b 25 0d 02 30 05 e1  |ndow",,BLK%..0..|
00000680  0d 02 3a 12 dd f2 63 6c  6d 61 69 6e 3a 4f 50 25  |..:...clmain:OP%|
00000690  3d 30 0d 02 44 1f c8 99  20 22 57 69 6d 70 5f 43  |=0..D... "Wimp_C|
000006a0  6c 6f 73 65 57 69 6e 64  6f 77 22 2c 2c 42 4c 4b  |loseWindow",,BLK|
000006b0  25 0d 02 4e 05 e1 0d 02  58 1b dd f2 6d 61 6b 65  |%..N....X...make|
000006c0  72 72 3a e7 20 46 4f 50  25 20 8c 20 d9 23 44 46  |rr:. FOP% . .#DF|
000006d0  25 0d 02 62 18 c8 99 20  22 57 69 6d 70 5f 44 72  |%..b... "Wimp_Dr|
000006e0  61 67 42 6f 78 22 2c 2c  30 0d 02 6c 0b 21 42 4c  |agBox",,0..l.!BL|
000006f0  4b 25 3d 9f 0d 02 76 08  45 52 3d b9 0d 02 80 0a  |K%=...v.ER=.....|
00000700  c8 8e 20 9f 20 ca 0d 02  8a 34 c9 20 32 32 32 3a  |.. . ....4. 222:|
00000710  24 28 42 4c 4b 25 2b 34  29 3d 22 46 69 6c 65 20  |$(BLK%+4)="File |
00000720  63 61 6e 6e 6f 74 20 62  65 20 66 6f 75 6e 64 22  |cannot be found"|
00000730  2b bd 28 30 29 3a 45 52  3d a3 0d 02 94 05 7f 0d  |+.(0):ER=.......|
00000740  02 9e 24 24 28 42 4c 4b  25 2b 34 29 3d f6 24 2b  |..$$(BLK%+4)=.$+|
00000750  22 20 61 74 20 6c 69 6e  65 20 22 2b c3 9e 2b bd  |" at line "+..+.|
00000760  28 30 29 0d 02 a8 05 cb  0d 02 b2 2b c8 99 20 22  |(0)........+.. "|
00000770  57 69 6d 70 5f 52 65 70  6f 72 74 45 72 72 6f 72  |Wimp_ReportError|
00000780  22 2c 42 4c 4b 25 2c 31  2c 22 44 65 6c 74 61 47  |",BLK%,1,"DeltaG|
00000790  65 6e 22 0d 02 bc 1b e7  20 45 52 20 8c 20 f2 64  |en"..... ER . .d|
000007a0  69 65 20 8b 20 f2 61 63  74 69 6f 6e 3a e0 0d 02  |ie . .action:...|
000007b0  c6 05 e1 0d 02 d0 23 dd  f2 6d 65 73 73 61 67 65  |......#..message|
000007c0  28 4d 25 2c 4d 24 29 3a  e7 20 46 4f 50 25 20 8c  |(M%,M$):. FOP% .|
000007d0  20 d9 23 44 46 25 0d 02  da 70 c8 99 20 22 57 69  | .#DF%...p.. "Wi|
000007e0  6d 70 5f 44 72 61 67 42  6f 78 22 2c 2c 30 3a 21  |mp_DragBox",,0:!|
000007f0  42 4c 4b 25 3d 4d 25 3a  24 28 42 4c 4b 25 2b 34  |BLK%=M%:$(BLK%+4|
00000800  29 3d 4d 24 2b bd 28 30  29 3a c8 99 20 22 57 69  |)=M$+.(0):.. "Wi|
00000810  6d 70 5f 52 65 70 6f 72  74 45 72 72 6f 72 22 2c  |mp_ReportError",|
00000820  42 4c 4b 25 2c 31 2c 22  44 65 6c 74 61 47 65 6e  |BLK%,1,"DeltaGen|
00000830  22 3a f2 73 63 72 61 70  73 6c 6f 74 3a f2 61 63  |":.scrapslot:.ac|
00000840  74 69 6f 6e 3a e0 0d 02  e4 05 e1 0d 02 ee 0b dd  |tion:...........|
00000850  f2 6d 6f 75 73 65 0d 02  f8 37 4d 4f 55 58 25 3d  |.mouse...7MOUX%=|
00000860  21 42 4c 4b 25 3a 4d 4f  55 59 25 3d 42 4c 4b 25  |!BLK%:MOUY%=BLK%|
00000870  21 34 3a 4d 4f 55 42 25  3d 42 4c 4b 25 21 38 3a  |!4:MOUB%=BLK%!8:|
00000880  4d 4f 55 48 25 3d 42 4c  4b 25 21 31 32 0d 03 02  |MOUH%=BLK%!12...|
00000890  17 e7 20 4d 4f 55 42 25  3d 31 20 8c 20 4d 4f 55  |.. MOUB%=1 . MOU|
000008a0  42 25 3d 34 0d 03 0c 0e  c8 8e 20 4d 4f 55 42 25  |B%=4...... MOUB%|
000008b0  20 ca 0d 03 16 12 c9 20  34 3a c8 8e 20 4d 4f 55  | ...... 4:.. MOU|
000008c0  48 25 20 ca 0d 03 20 12  c9 20 2d 32 3a f2 6f 70  |H% ... .. -2:.op|
000008d0  65 6e 6d 61 69 6e 0d 03  2a 21 c9 20 48 41 4e 44  |enmain..*!. HAND|
000008e0  25 28 30 29 3a e7 20 42  4c 4b 25 21 31 36 3d 31  |%(0):. BLK%!16=1|
000008f0  32 20 8c 20 f2 67 6f 0d  03 34 05 cb 0d 03 3e 3d  |2 . .go..4....>=|
00000900  c9 20 32 3a e7 20 4d 4f  55 48 25 3d 2d 32 20 8c  |. 2:. MOUH%=-2 .|
00000910  20 f2 69 63 6f 6e 6d 65  6e 75 20 8b 20 e7 20 4d  | .iconmenu . . M|
00000920  4f 55 48 25 3d 48 41 4e  44 25 28 30 29 20 8c 20  |OUH%=HAND%(0) . |
00000930  f2 77 69 6e 64 6d 65 6e  75 0d 03 48 29 c9 20 31  |.windmenu..H). 1|
00000940  36 2c 36 34 3a e7 20 4d  4f 55 48 25 3d 48 41 4e  |6,64:. MOUH%=HAN|
00000950  44 25 28 31 29 20 8c 20  f2 73 74 61 72 74 64 72  |D%(1) . .startdr|
00000960  61 67 0d 03 52 05 cb 0d  03 5c 05 e1 0d 03 66 26  |ag..R....\....f&|
00000970  dd f2 6d 65 6e 6f 66 66  3a c8 99 20 22 57 69 6d  |..menoff:.. "Wim|
00000980  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2d 31  |p_CreateMenu",-1|
00000990  3a e1 0d 03 70 0e dd f2  69 63 6f 6e 6d 65 6e 75  |:...p...iconmenu|
000009a0  0d 03 7a 65 24 4d 45 4e  55 25 3d 22 44 65 6c 74  |..ze$MENU%="Delt|
000009b0  61 47 65 6e 22 3a 4d 45  4e 55 25 3f 31 32 3d 37  |aGen":MENU%?12=7|
000009c0  3a 4d 45 4e 55 25 3f 31  33 3d 32 3a 4d 45 4e 55  |:MENU%?13=2:MENU|
000009d0  25 3f 31 34 3d 37 3a 4d  45 4e 55 25 3f 31 35 3d  |%?14=7:MENU%?15=|
000009e0  30 3a 4d 45 4e 55 25 21  31 36 3d 31 30 30 3a 4d  |0:MENU%!16=100:M|
000009f0  45 4e 55 25 21 32 30 3d  34 34 3a 4d 45 4e 55 25  |ENU%!20=44:MENU%|
00000a00  21 32 34 3d 30 0d 03 84  48 4d 45 4e 55 25 21 32  |!24=0...HMENU%!2|
00000a10  38 3d 30 3a 4d 45 4e 55  25 21 33 32 3d 48 41 4e  |8=0:MENU%!32=HAN|
00000a20  44 25 28 32 29 3a 4d 45  4e 55 25 21 33 36 3d 31  |D%(2):MENU%!36=1|
00000a30  20 84 20 28 37 3c 3c 32  34 29 3a 24 28 4d 45 4e  | . (7<<24):$(MEN|
00000a40  55 25 2b 34 30 29 3d 22  49 6e 66 6f 22 0d 03 8e  |U%+40)="Info"...|
00000a50  44 4d 45 4e 55 25 21 35  32 3d 31 32 38 3a 4d 45  |DMENU%!52=128:ME|
00000a60  4e 55 25 21 35 36 3d 2d  31 3a 4d 45 4e 55 25 21  |NU%!56=-1:MENU%!|
00000a70  36 30 3d 31 20 84 20 28  37 3c 3c 32 34 29 3a 24  |60=1 . (7<<24):$|
00000a80  28 4d 45 4e 55 25 2b 36  34 29 3d 22 51 75 69 74  |(MENU%+64)="Quit|
00000a90  22 0d 03 98 2c c8 99 20  22 57 69 6d 70 5f 43 72  |"...,.. "Wimp_Cr|
00000aa0  65 61 74 65 4d 65 6e 75  22 2c 2c 4d 45 4e 55 25  |eateMenu",,MENU%|
00000ab0  2c 4d 4f 55 58 25 2d 36  34 2c 31 38 34 0d 03 a2  |,MOUX%-64,184...|
00000ac0  05 e1 0d 03 ac 0e dd f2  77 69 6e 64 6d 65 6e 75  |........windmenu|
00000ad0  0d 03 b6 65 24 4d 45 4e  55 25 3d 22 44 65 6c 74  |...e$MENU%="Delt|
00000ae0  61 47 65 6e 22 3a 4d 45  4e 55 25 3f 31 32 3d 37  |aGen":MENU%?12=7|
00000af0  3a 4d 45 4e 55 25 3f 31  33 3d 32 3a 4d 45 4e 55  |:MENU%?13=2:MENU|
00000b00  25 3f 31 34 3d 37 3a 4d  45 4e 55 25 3f 31 35 3d  |%?14=7:MENU%?15=|
00000b10  30 3a 4d 45 4e 55 25 21  31 36 3d 32 36 30 3a 4d  |0:MENU%!16=260:M|
00000b20  45 4e 55 25 21 32 30 3d  34 34 3a 4d 45 4e 55 25  |ENU%!20=44:MENU%|
00000b30  21 32 34 3d 30 0d 03 c0  2d dc 20 53 65 74 20 64  |!24=0...-. Set d|
00000b40  65 6c 74 61 20 6e 61 6d  65 2c 31 2c 30 2c 49 6e  |elta name,1,0,In|
00000b50  66 6f 2c 32 2c 32 2c 51  75 69 74 2c 2d 31 2c 31  |fo,2,2,Quit,-1,1|
00000b60  32 38 0d 03 ca 78 f7 20  8d 64 40 43 3a e3 4c 25  |28...x. .d@C:.L%|
00000b70  3d 30 20 b8 20 32 3a f3  20 41 24 2c 42 25 2c 43  |=0 . 2:. A$,B%,C|
00000b80  25 3a 4d 45 4e 55 25 21  28 32 38 2b 28 4c 25 2a  |%:MENU%!(28+(L%*|
00000b90  32 34 29 29 3d 43 25 3a  e7 20 42 25 3e 2d 31 20  |24))=C%:. B%>-1 |
00000ba0  8c 20 4d 45 4e 55 25 21  28 32 38 2b 28 4c 25 2a  |. MENU%!(28+(L%*|
00000bb0  32 34 29 2b 34 29 3d 48  41 4e 44 25 28 42 25 29  |24)+4)=HAND%(B%)|
00000bc0  20 8b 20 4d 45 4e 55 25  21 28 32 38 2b 28 4c 25  | . MENU%!(28+(L%|
00000bd0  2a 32 34 29 2b 34 29 3d  2d 31 0d 03 d4 6c 4d 45  |*24)+4)=-1...lME|
00000be0  4e 55 25 21 28 32 38 2b  28 4c 25 2a 32 34 29 2b  |NU%!(28+(L%*24)+|
00000bf0  38 29 3d 31 20 84 20 28  37 3c 3c 32 34 29 20 84  |8)=1 . (7<<24) .|
00000c00  20 32 35 36 3a 24 28 4d  45 4e 55 25 2b 35 30 30  | 256:$(MENU%+500|
00000c10  2b 28 4c 25 2a 32 30 29  29 3d 41 24 3a 4d 45 4e  |+(L%*20))=A$:MEN|
00000c20  55 25 21 28 32 38 2b 28  4c 25 2a 32 34 29 2b 31  |U%!(28+(L%*24)+1|
00000c30  32 29 3d 28 4d 45 4e 55  25 2b 35 30 30 2b 28 4c  |2)=(MENU%+500+(L|
00000c40  25 2a 32 30 29 29 0d 03  de 4e e7 20 4c 25 3d 30  |%*20))...N. L%=0|
00000c50  20 80 20 53 54 24 3d 22  41 62 6f 72 74 22 20 8c  | . ST$="Abort" .|
00000c60  20 4d 45 4e 55 25 21 28  32 38 2b 28 4c 25 2a 32  | MENU%!(28+(L%*2|
00000c70  34 29 2b 38 29 3d 4d 45  4e 55 25 21 28 32 38 2b  |4)+8)=MENU%!(28+|
00000c80  28 4c 25 2a 32 34 29 2b  38 29 20 84 20 28 31 3c  |(L%*24)+8) . (1<|
00000c90  3c 32 32 29 0d 03 e8 56  4d 45 4e 55 25 21 28 32  |<22)...VMENU%!(2|
00000ca0  38 2b 28 4c 25 2a 32 34  29 2b 31 36 29 3d 4d 45  |8+(L%*24)+16)=ME|
00000cb0  4e 55 25 2b 39 30 30 3a  4d 45 4e 55 25 21 28 32  |NU%+900:MENU%!(2|
00000cc0  38 2b 28 4c 25 2a 32 34  29 2b 32 30 29 3d 32 30  |8+(L%*24)+20)=20|
00000cd0  3a ed 3a 24 28 4d 45 4e  55 25 2b 39 30 30 29 3d  |:.:$(MENU%+900)=|
00000ce0  22 41 41 2d 5a 61 2d 7a  22 3a 0d 03 f2 31 c8 99  |"AA-Za-z":...1..|
00000cf0  20 22 57 69 6d 70 5f 43  72 65 61 74 65 4d 65 6e  | "Wimp_CreateMen|
00000d00  75 22 2c 2c 4d 45 4e 55  25 2c 4d 4f 55 58 25 2d  |u",,MENU%,MOUX%-|
00000d10  36 34 2c 4d 4f 55 59 25  2b 36 30 0d 03 fc 05 e1  |64,MOUY%+60.....|
00000d20  0d 04 06 0a dd f2 6d 65  6e 75 0d 04 10 29 c8 99  |......menu...)..|
00000d30  20 22 57 69 6d 70 5f 44  65 63 6f 64 65 4d 65 6e  | "Wimp_DecodeMen|
00000d40  75 22 2c 2c 4d 45 4e 55  25 2c 42 4c 4b 25 2c 53  |u",,MENU%,BLK%,S|
00000d50  45 4c 25 0d 04 1a 19 e7  20 24 53 45 4c 25 3d 22  |EL%..... $SEL%="|
00000d60  51 75 69 74 22 20 8c 20  f2 64 69 65 0d 04 24 05  |Quit" . .die..$.|
00000d70  e1 0d 04 2e 4c dd a4 67  73 74 72 28 41 44 25 29  |....L..gstr(AD%)|
00000d80  3a 57 24 3d 22 22 3a e7  20 3f 41 44 25 3c 33 32  |:W$="":. ?AD%<32|
00000d90  20 8c 20 3d 57 24 20 8b  20 f5 3a 57 24 3d 57 24  | . =W$ . .:W$=W$|
00000da0  2b bd 28 3f 41 44 25 29  3a 41 44 25 2b 3d 31 3a  |+.(?AD%):AD%+=1:|
00000db0  fd 20 3f 41 44 25 3c 33  32 3a 3d 57 24 0d 04 38  |. ?AD%<32:=W$..8|
00000dc0  6a dd a4 67 65 74 69 63  6f 6e 28 57 48 25 2c 49  |j..geticon(WH%,I|
00000dd0  43 25 29 3a 21 49 43 42  4c 4b 25 3d 48 41 4e 44  |C%):!ICBLK%=HAND|
00000de0  25 28 57 48 25 29 3a 49  43 42 4c 4b 25 21 34 3d  |%(WH%):ICBLK%!4=|
00000df0  49 43 25 3a c8 99 20 22  57 69 6d 70 5f 47 65 74  |IC%:.. "Wimp_Get|
00000e00  49 63 6f 6e 53 74 61 74  65 22 2c 2c 49 43 42 4c  |IconState",,ICBL|
00000e10  4b 25 3a 3d a4 67 73 74  72 28 21 28 49 43 42 4c  |K%:=.gstr(!(ICBL|
00000e20  4b 25 2b 32 38 29 29 0d  04 42 a4 dd f2 73 65 74  |K%+28))..B...set|
00000e30  69 63 6f 6e 28 57 48 25  2c 49 43 25 2c 53 45 54  |icon(WH%,IC%,SET|
00000e40  24 29 3a 21 49 43 42 4c  4b 25 3d 48 41 4e 44 25  |$):!ICBLK%=HAND%|
00000e50  28 57 48 25 29 3a 49 43  42 4c 4b 25 21 34 3d 49  |(WH%):ICBLK%!4=I|
00000e60  43 25 3a c8 99 20 22 57  69 6d 70 5f 47 65 74 49  |C%:.. "Wimp_GetI|
00000e70  63 6f 6e 53 74 61 74 65  22 2c 2c 49 43 42 4c 4b  |conState",,ICBLK|
00000e80  25 3a 49 43 42 4c 4b 25  21 38 3d 30 3a 49 43 42  |%:ICBLK%!8=0:ICB|
00000e90  4c 4b 25 21 31 32 3d 30  3a 24 28 49 43 42 4c 4b  |LK%!12=0:$(ICBLK|
00000ea0  25 21 32 38 29 3d 53 45  54 24 3a c8 99 20 22 57  |%!28)=SET$:.. "W|
00000eb0  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
00000ec0  22 2c 2c 49 43 42 4c 4b  25 3a e1 0d 04 4c 71 dd  |",,ICBLK%:...Lq.|
00000ed0  a4 68 69 67 68 28 57 48  25 2c 49 43 25 29 3a 21  |.high(WH%,IC%):!|
00000ee0  49 43 42 4c 4b 25 3d 48  41 4e 44 25 28 57 48 25  |ICBLK%=HAND%(WH%|
00000ef0  29 3a 49 43 42 4c 4b 25  21 34 3d 49 43 25 3a c8  |):ICBLK%!4=IC%:.|
00000f00  99 20 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |. "Wimp_GetIconS|
00000f10  74 61 74 65 22 2c 2c 49  43 42 4c 4b 25 3a 3d 28  |tate",,ICBLK%:=(|
00000f20  28 3f 28 49 43 42 4c 4b  25 2b 32 36 29 29 20 80  |(?(ICBLK%+26)) .|
00000f30  20 25 31 30 30 30 30 30  29 3d 33 32 0d 04 56 0d  | %100000)=32..V.|
00000f40  dd f2 64 72 61 67 66 69  6e 0d 04 60 14 46 24 3d  |..dragfin..`.F$=|
00000f50  22 44 65 6c 74 61 22 3a  54 24 3d 46 24 0d 04 6a  |"Delta":T$=F$..j|
00000f60  22 c8 99 20 22 57 69 6d  70 5f 47 65 74 50 6f 69  |".. "Wimp_GetPoi|
00000f70  6e 74 65 72 49 6e 66 6f  22 2c 2c 50 4f 49 25 0d  |nterInfo",,POI%.|
00000f80  04 74 87 50 4f 49 25 21  32 30 3d 36 34 3a 50 4f  |.t.POI%!20=64:PO|
00000f90  49 25 21 33 32 3d 30 3a  50 4f 49 25 21 33 36 3d  |I%!32=0:POI%!36=|
00000fa0  31 3a 50 4f 49 25 21 34  30 3d 50 4f 49 25 21 31  |1:POI%!40=POI%!1|
00000fb0  32 3a 50 4f 49 25 21 34  34 3d 50 4f 49 25 21 31  |2:POI%!44=POI%!1|
00000fc0  36 3a 50 4f 49 25 21 34  38 3d 21 50 4f 49 25 3a  |6:POI%!48=!POI%:|
00000fd0  50 4f 49 25 21 35 32 3d  50 4f 49 25 21 34 3a 50  |POI%!52=POI%!4:P|
00000fe0  4f 49 25 21 35 36 3d 32  30 34 38 3a 50 4f 49 25  |OI%!56=2048:POI%|
00000ff0  21 36 30 3d 26 35 35 35  3a 24 28 50 4f 49 25 2b  |!60=&555:$(POI%+|
00001000  36 34 29 3d 54 24 0d 04  7e 34 c8 99 20 22 57 69  |64)=T$..~4.. "Wi|
00001010  6d 70 5f 53 65 6e 64 4d  65 73 73 61 67 65 22 2c  |mp_SendMessage",|
00001020  31 37 2c 50 4f 49 25 2b  32 30 2c 50 4f 49 25 21  |17,POI%+20,POI%!|
00001030  31 32 2c 50 4f 49 25 21  31 36 0d 04 88 05 e1 0d  |12,POI%!16......|
00001040  04 92 4f dd f2 70 6f 69  6e 74 3a c8 99 20 22 57  |..O..point:.. "W|
00001050  69 6d 70 5f 47 65 74 50  6f 69 6e 74 65 72 49 6e  |imp_GetPointerIn|
00001060  66 6f 22 2c 2c 50 4f 49  25 3a 4d 4f 58 25 3d 21  |fo",,POI%:MOX%=!|
00001070  50 4f 49 25 3a 4d 4f 59  25 3d 50 4f 49 25 21 34  |POI%:MOY%=POI%!4|
00001080  3a 4d 4f 42 25 3d 50 4f  49 25 21 38 3a e1 0d 04  |:MOB%=POI%!8:...|
00001090  9c 0f dd f2 73 74 61 72  74 64 72 61 67 0d 04 a6  |....startdrag...|
000010a0  25 c8 99 20 22 57 69 6d  70 5f 47 65 74 57 69 6e  |%.. "Wimp_GetWin|
000010b0  64 6f 77 53 74 61 74 65  22 2c 2c 42 4c 4b 25 2b  |dowState",,BLK%+|
000010c0  31 32 0d 04 b0 43 58 25  3d 42 4c 4b 25 21 31 36  |12...CX%=BLK%!16|
000010d0  3a 59 25 3d 42 4c 4b 25  21 32 38 3a 42 4c 4b 25  |:Y%=BLK%!28:BLK%|
000010e0  21 31 36 3d 30 3a c8 99  20 22 57 69 6d 70 5f 47  |!16=0:.. "Wimp_G|
000010f0  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 42 4c  |etIconState",,BL|
00001100  4b 25 2b 31 32 0d 04 ba  29 42 4c 4b 25 21 31 36  |K%+12...)BLK%!16|
00001110  3d 35 3a 42 4c 4b 25 21  32 30 2b 3d 58 25 2d 32  |=5:BLK%!20+=X%-2|
00001120  3a 42 4c 4b 25 21 32 34  2b 3d 59 25 2d 34 0d 04  |:BLK%!24+=Y%-4..|
00001130  c4 1d 42 4c 4b 25 21 32  38 2b 3d 58 25 2b 36 3a  |..BLK%!28+=X%+6:|
00001140  42 4c 4b 25 21 33 32 2b  3d 59 25 0d 04 ce 58 42  |BLK%!32+=Y%...XB|
00001150  4c 4b 25 21 33 36 3d 30  3a 42 4c 4b 25 21 34 30  |LK%!36=0:BLK%!40|
00001160  3d 30 3a 42 4c 4b 25 21  34 34 3d 26 37 46 46 46  |=0:BLK%!44=&7FFF|
00001170  46 46 46 46 3a 42 4c 4b  25 21 34 38 3d 26 37 46  |FFFF:BLK%!48=&7F|
00001180  46 46 46 46 46 46 3a c8  99 20 22 57 69 6d 70 5f  |FFFFFF:.. "Wimp_|
00001190  44 72 61 67 42 6f 78 22  2c 2c 42 4c 4b 25 2b 31  |DragBox",,BLK%+1|
000011a0  32 3a e1 0d 04 d8 13 dd  f2 69 6e 6d 65 73 73 61  |2:.......inmessa|
000011b0  67 65 28 4d 25 29 0d 04  e2 0b c8 8e 20 4d 25 20  |ge(M%)...... M% |
000011c0  ca 0d 04 ec 0c c9 20 30  3a f2 64 69 65 0d 04 f6  |...... 0:.die...|
000011d0  11 c9 20 32 3a f2 64 72  61 67 73 61 76 65 0d 05  |.. 2:.dragsave..|
000011e0  00 29 c9 20 33 3a e7 20  42 4c 4b 25 21 31 32 3d  |.). 3:. BLK%!12=|
000011f0  30 20 80 20 42 4c 4b 25  21 34 30 3d 26 31 30 30  |0 . BLK%!40=&100|
00001200  30 20 f2 6c 6f 61 64 0d  05 0a 07 cb 3a e1 0d 05  |0 .load.....:...|
00001210  14 1a dd f2 64 72 61 67  73 61 76 65 3a 41 24 3d  |....dragsave:A$=|
00001220  a4 67 65 74 6e 61 6d 65  0d 05 1e 14 f2 73 65 74  |.getname.....set|
00001230  69 63 6f 6e 28 30 2c 36  2c 41 24 29 0d 05 28 1b  |icon(0,6,A$)..(.|
00001240  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 4d  |.. "Wimp_CreateM|
00001250  65 6e 75 22 2c 2d 31 0d  05 32 55 42 4c 4b 25 21  |enu",-1..2UBLK%!|
00001260  31 32 3d 42 4c 4b 25 21  38 3a 42 4c 4b 25 21 31  |12=BLK%!8:BLK%!1|
00001270  36 3d 33 3a 21 42 4c 4b  25 3d 36 34 3a c8 99 20  |6=3:!BLK%=64:.. |
00001280  22 57 69 6d 70 5f 53 65  6e 64 4d 65 73 73 61 67  |"Wimp_SendMessag|
00001290  65 22 2c 31 37 2c 42 4c  4b 25 2c 42 4c 4b 25 21  |e",17,BLK%,BLK%!|
000012a0  32 30 2c 42 4c 4b 25 21  32 34 3a e1 0d 05 3c 4b  |20,BLK%!24:...<K|
000012b0  dd a4 67 65 74 6e 61 6d  65 3a 57 24 3d 22 22 3a  |..getname:W$="":|
000012c0  50 25 3d 42 4c 4b 25 2b  34 34 3a c8 95 20 3f 50  |P%=BLK%+44:.. ?P|
000012d0  25 3c 3e 30 20 80 20 3f  50 25 3c 3e 31 33 3a 57  |%<>0 . ?P%<>13:W|
000012e0  24 3d 57 24 2b bd 28 3f  50 25 29 3a 50 25 2b 3d  |$=W$+.(?P%):P%+=|
000012f0  31 3a ce 3a 3d 57 24 0d  05 46 0a dd f2 6c 6f 61  |1:.:=W$..F...loa|
00001300  64 0d 05 50 56 41 24 3d  a4 67 65 74 6e 61 6d 65  |d..PVA$=.getname|
00001310  3a 42 4c 4b 25 21 31 32  3d 42 4c 4b 25 21 38 3a  |:BLK%!12=BLK%!8:|
00001320  42 4c 4b 25 21 31 36 3d  34 3a 21 42 4c 4b 25 3d  |BLK%!16=4:!BLK%=|
00001330  36 34 3a c8 99 20 22 57  69 6d 70 5f 53 65 6e 64  |64:.. "Wimp_Send|
00001340  4d 65 73 73 61 67 65 22  2c 31 37 2c 42 4c 4b 25  |Message",17,BLK%|
00001350  2c 42 4c 4b 25 21 34 0d  05 5a 2c f4 20 56 44 55  |,BLK%!4..Z,. VDU|
00001360  34 3a 50 52 49 4e 54 54  41 42 28 30 2c 30 29 3b  |4:PRINTTAB(0,0);|
00001370  42 4c 4b 25 21 34 30 3b  22 20 22 3b 41 24 3a 56  |BLK%!40;" ";A$:V|
00001380  44 55 35 0d 05 64 17 e7  20 4f 50 25 3d 30 20 8c  |DU5..d.. OP%=0 .|
00001390  20 f2 6f 70 65 6e 6d 61  69 6e 0d 05 6e 14 f2 73  | .openmain..n..s|
000013a0  65 74 69 63 6f 6e 28 30  2c 38 2c 41 24 29 0d 05  |eticon(0,8,A$)..|
000013b0  78 05 e1 0d 05 82 79 dd  f2 75 70 63 6f 6e 74 3a  |x.....y..upcont:|
000013c0  e1 3a f2 73 65 74 69 63  6f 6e 28 30 2c 36 2c c3  |.:.seticon(0,6,.|
000013d0  53 4f 55 52 4c 25 29 3a  f2 73 65 74 69 63 6f 6e  |SOURL%):.seticon|
000013e0  28 30 2c 37 2c c3 4f 42  4a 45 4c 25 29 3a f2 73  |(0,7,.OBJEL%):.s|
000013f0  65 74 69 63 6f 6e 28 30  2c 38 2c c3 54 52 41 43  |eticon(0,8,.TRAC|
00001400  4b 53 25 29 3a f2 73 65  74 69 63 6f 6e 28 30 2c  |KS%):.seticon(0,|
00001410  39 2c c3 49 4e 53 25 29  3a f2 73 65 74 69 63 6f  |9,.INS%):.setico|
00001420  6e 28 30 2c 35 2c 53 46  24 29 3a e1 0d 05 8c 3d  |n(0,5,SF$):....=|
00001430  dd f2 73 63 72 61 70 73  6c 6f 74 3a e7 20 43 4c  |..scrapslot:. CL|
00001440  41 49 4d 25 20 8c 20 c8  99 22 57 69 6d 70 5f 53  |AIM% . .."Wimp_S|
00001450  6c 6f 74 53 69 7a 65 22  2c 41 50 53 25 2c 2d 31  |lotSize",APS%,-1|
00001460  3a 43 4c 41 49 4d 25 3d  a3 0d 05 96 38 e7 20 53  |:CLAIM%=....8. S|
00001470  54 24 3d 22 41 62 6f 72  74 22 20 8c 20 53 54 24  |T$="Abort" . ST$|
00001480  3d 22 53 74 61 72 74 22  3a f2 73 65 74 69 63 6f  |="Start":.setico|
00001490  6e 28 30 2c 31 32 2c 53  54 24 29 3a d9 23 44 46  |n(0,12,ST$):.#DF|
000014a0  25 0d 05 a0 05 e1 0d 05  aa 53 dd f2 67 6f 3a e7  |%........S..go:.|
000014b0  20 53 54 24 3d 22 53 74  61 72 74 22 20 f2 73 74  | ST$="Start" .st|
000014c0  61 72 74 20 8b 20 d9 23  44 46 25 3a f2 73 63 72  |art . .#DF%:.scr|
000014d0  61 70 73 6c 6f 74 3a 53  54 24 3d 22 53 74 61 72  |apslot:ST$="Star|
000014e0  74 22 3a f2 73 65 74 69  63 6f 6e 28 30 2c 31 32  |t":.seticon(0,12|
000014f0  2c 22 53 74 61 72 74 22  29 0d 05 b4 05 e1 0d 05  |,"Start").......|
00001500  be 6b dd f2 73 74 61 72  74 3a 4e 46 25 3d bb 28  |.k..start:NF%=.(|
00001510  a4 67 65 74 69 63 6f 6e  28 30 2c 31 33 29 29 3a  |.geticon(0,13)):|
00001520  e7 20 4e 46 25 3c 32 20  84 20 4e 46 25 3e 37 37  |. NF%<2 . NF%>77|
00001530  20 8c 20 f2 6d 65 73 73  61 67 65 28 30 2c 22 43  | . .message(0,"C|
00001540  61 6e 20 6f 6e 6c 79 20  68 61 76 65 20 62 65 74  |an only have bet|
00001550  77 65 65 6e 20 32 20 61  6e 64 20 37 37 20 66 72  |ween 2 and 77 fr|
00001560  61 6d 65 73 2e 22 29 3a  e1 0d 05 c8 53 52 54 24  |ames."):....SRT$|
00001570  3d a4 67 65 74 69 63 6f  6e 28 30 2c 37 29 3a e7  |=.geticon(0,7):.|
00001580  20 52 54 24 3d 22 22 20  84 20 a9 28 52 54 24 29  | RT$="" . .(RT$)|
00001590  3e 38 20 8c 20 f2 6d 65  73 73 61 67 65 28 30 2c  |>8 . .message(0,|
000015a0  22 49 6e 76 61 6c 69 64  20 66 69 6c 65 20 72 6f  |"Invalid file ro|
000015b0  6f 74 20 6e 61 6d 65 2e  22 29 3a e1 0d 05 d2 5e  |ot name."):....^|
000015c0  44 4e 24 3d a4 67 65 74  69 63 6f 6e 28 30 2c 36  |DN$=.geticon(0,6|
000015d0  29 3a e7 20 44 4e 24 3d  22 22 20 8c 20 f2 6d 65  |):. DN$="" . .me|
000015e0  73 73 61 67 65 28 30 2c  22 59 6f 75 20 6d 75 73  |ssage(0,"You mus|
000015f0  74 20 65 6e 74 65 72 20  61 20 66 69 6c 65 6e 61  |t enter a filena|
00001600  6d 65 20 66 6f 72 20 74  68 65 20 64 65 6c 74 61  |me for the delta|
00001610  20 66 69 6c 65 2e 22 29  3a e1 0d 05 dc 64 53 44  | file."):....dSD|
00001620  24 3d a4 67 65 74 69 63  6f 6e 28 30 2c 38 29 3a  |$=.geticon(0,8):|
00001630  e7 20 53 44 24 3d 22 22  20 8c 20 f2 6d 65 73 73  |. SD$="" . .mess|
00001640  61 67 65 28 30 2c 22 59  6f 75 20 6d 75 73 74 20  |age(0,"You must |
00001650  65 6e 74 65 72 20 61 20  66 69 6c 65 6e 61 6d 65  |enter a filename|
00001660  20 66 6f 72 20 74 68 65  20 73 6f 75 72 63 65 20  | for the source |
00001670  64 69 72 65 63 74 6f 72  79 2e 22 29 3a e1 0d 05  |directory."):...|
00001680  e6 15 46 4f 50 25 3d b9  3a 44 46 25 3d ae 28 44  |..FOP%=.:DF%=.(D|
00001690  4e 24 29 0d 05 f0 2c 46  24 3d 53 44 24 2b 22 2e  |N$)...,F$=SD$+".|
000016a0  22 2b 52 54 24 2b 22 31  22 3a 46 25 3d 8e 28 46  |"+RT$+"1":F%=.(F|
000016b0  24 29 3a 4c 25 3d a2 23  46 25 3a d9 23 46 25 0d  |$):L%=.#F%:.#F%.|
000016c0  05 fa 0e 46 53 54 4f 52  45 25 3d 93 3a 0d 05 fb  |...FSTORE%=.:...|
000016d0  39 c8 99 22 57 69 6d 70  5f 53 6c 6f 74 53 69 7a  |9.."Wimp_SlotSiz|
000016e0  65 22 2c 41 50 53 25 2b  28 28 4c 25 2a 32 29 2b  |e",APS%+((L%*2)+|
000016f0  34 30 29 2c 2d 31 20 b8  20 4e 41 50 25 3a 43 4c  |40),-1 . NAP%:CL|
00001700  41 49 4d 25 3d b9 0d 06  04 62 e7 20 4e 41 50 25  |AIM%=....b. NAP%|
00001710  3c 28 41 50 53 25 2b 28  28 4c 25 2a 32 29 2b 34  |<(APS%+((L%*2)+4|
00001720  30 29 29 20 8c 20 f2 73  63 72 61 70 73 6c 6f 74  |0)) . .scrapslot|
00001730  3a f2 6d 65 73 73 61 67  65 28 30 2c 22 4e 6f 74  |:.message(0,"Not|
00001740  20 65 6e 6f 75 67 68 20  6d 65 6d 6f 72 79 20 74  | enough memory t|
00001750  6f 20 73 74 6f 72 65 20  74 77 69 6e 20 69 6d 61  |o store twin ima|
00001760  67 65 73 2e 22 29 3a e1  0d 06 0e 19 4e 53 54 4f  |ges."):.....NSTO|
00001770  52 45 25 3d 46 53 54 4f  52 45 25 2b 4c 25 2b 32  |RE%=FSTORE%+L%+2|
00001780  30 0d 06 18 1d 43 4c 41  49 4d 25 3d b9 3a 53 53  |0....CLAIM%=.:SS|
00001790  25 3d 4c 25 3a 21 56 41  52 53 3d 44 46 25 0d 06  |%=L%:!VARS=DF%..|
000017a0  22 c6 21 46 53 54 4f 52  45 25 3d 53 53 25 2b 34  |".!FSTORE%=SS%+4|
000017b0  3a ff 28 22 2a 4c 4f 41  44 20 22 2b 46 24 2b 22  |:.("*LOAD "+F$+"|
000017c0  20 22 2b c3 7e 28 46 53  54 4f 52 45 25 2b 34 29  | "+.~(FSTORE%+4)|
000017d0  29 3a c8 99 22 4f 53 5f  47 42 50 42 22 2c 32 2c  |):.."OS_GBPB",2,|
000017e0  44 46 25 2c 46 53 54 4f  52 45 25 2c 53 53 25 2b  |DF%,FSTORE%,SS%+|
000017f0  34 3a 57 57 25 3d 21 28  46 53 54 4f 52 45 25 2b  |4:WW%=!(FSTORE%+|
00001800  28 46 53 54 4f 52 45 25  21 38 29 2b 31 36 29 3a  |(FSTORE%!8)+16):|
00001810  57 48 25 3d 21 28 46 53  54 4f 52 45 25 2b 28 46  |WH%=!(FSTORE%+(F|
00001820  53 54 4f 52 45 25 21 38  29 2b 32 30 29 3a 53 49  |STORE%!8)+20):SI|
00001830  53 25 3d 28 28 57 57 25  2b 31 29 2a 34 29 2a 28  |S%=((WW%+1)*4)*(|
00001840  57 48 25 2b 31 29 3a 53  4f 25 3d 21 28 46 53 54  |WH%+1):SO%=!(FST|
00001850  4f 52 45 25 2b 28 46 53  54 4f 52 45 25 21 38 29  |ORE%+(FSTORE%!8)|
00001860  2b 33 32 29 0d 06 2c 39  46 53 41 25 3d 46 53 54  |+32)..,9FSA%=FST|
00001870  4f 52 45 25 2b 28 46 53  54 4f 52 45 25 21 38 29  |ORE%+(FSTORE%!8)|
00001880  2b 53 4f 25 3a 56 41 52  53 21 34 3d 46 53 41 25  |+SO%:VARS!4=FSA%|
00001890  3a 56 41 52 53 21 32 30  3d 53 49 53 25 0d 06 36  |:VARS!20=SIS%..6|
000018a0  cd 4e 49 25 3d 32 3a 53  54 24 3d 22 41 62 6f 72  |.NI%=2:ST$="Abor|
000018b0  74 22 3a f2 73 65 74 69  63 6f 6e 28 30 2c 31 32  |t":.seticon(0,12|
000018c0  2c 22 41 62 6f 72 74 22  29 3a c8 99 22 4f 53 5f  |,"Abort"):.."OS_|
000018d0  53 70 72 69 74 65 4f 70  22 2c 32 36 39 2c 46 53  |SpriteOp",269,FS|
000018e0  54 4f 52 45 25 2c 54 41  53 25 2b 31 39 30 30 2c  |TORE%,TAS%+1900,|
000018f0  39 39 2c 31 3a 53 4e 24  3d 22 22 3a 4f 25 3d 30  |99,1:SN$="":O%=0|
00001900  3a c8 95 20 3f 28 54 41  53 25 2b 31 39 30 30 2b  |:.. ?(TAS%+1900+|
00001910  4f 25 29 3e 30 3a 53 4e  24 3d 53 4e 24 2b bd 28  |O%)>0:SN$=SN$+.(|
00001920  3f 28 54 41 53 25 2b 31  39 30 30 2b 4f 25 29 29  |?(TAS%+1900+O%))|
00001930  3a 4f 25 2b 3d 31 3a ce  3a c8 99 22 4f 53 5f 53  |:O%+=1:.:.."OS_S|
00001940  70 72 69 74 65 4f 70 22  2c 32 39 36 2c 46 53 54  |priteOp",296,FST|
00001950  4f 52 45 25 2c 53 4e 24  20 b8 20 2c 2c 2c 53 58  |ORE%,SN$ . ,,,SX|
00001960  25 2c 53 59 25 2c 2c 53  4d 25 0d 06 40 40 f2 73  |%,SY%,,SM%..@@.s|
00001970  65 74 69 63 6f 6e 28 30  2c 39 2c c3 53 58 25 29  |eticon(0,9,.SX%)|
00001980  3a f2 73 65 74 69 63 6f  6e 28 30 2c 31 30 2c c3  |:.seticon(0,10,.|
00001990  53 59 25 29 3a f2 73 65  74 69 63 6f 6e 28 30 2c  |SY%):.seticon(0,|
000019a0  31 31 2c c3 53 4d 25 29  3a e1 0d 06 4a 26 dd f2  |11,.SM%):...J&..|
000019b0  61 73 73 3a e3 4c 25 3d  30 20 b8 20 32 20 88 20  |ass:.L%=0 . 2 . |
000019c0  32 3a 50 25 3d 43 44 45  25 3a 5b 4f 50 54 4c 25  |2:P%=CDE%:[OPTL%|
000019d0  0d 06 54 59 2e 6d 61 6b  65 64 65 6c 74 61 3a 53  |..TY.makedelta:S|
000019e0  54 4d 46 44 20 52 31 33  21 2c 7b 52 31 34 7d 3a  |TMFD R13!,{R14}:|
000019f0  4d 4f 56 20 52 31 32 2c  52 30 3a 4c 44 52 20 52  |MOV R12,R0:LDR R|
00001a00  31 31 2c 5b 52 31 32 5d  3a 4c 44 52 20 52 39 2c  |11,[R12]:LDR R9,|
00001a10  5b 52 31 32 2c 23 34 5d  3a 4c 44 52 20 52 31 30  |[R12,#4]:LDR R10|
00001a20  2c 5b 52 31 32 2c 23 38  5d 0d 06 5e f8 2e 64 65  |,[R12,#8]..^..de|
00001a30  6c 74 61 31 3a 4d 4f 56  20 52 36 2c 23 30 3a 2e  |lta1:MOV R6,#0:.|
00001a40  64 65 6c 74 61 32 3a 4c  44 52 20 52 37 2c 5b 52  |delta2:LDR R7,[R|
00001a50  39 2c 52 36 5d 3a 4c 44  52 20 52 38 2c 5b 52 31  |9,R6]:LDR R8,[R1|
00001a60  30 2c 52 36 5d 3a 41 44  44 20 52 30 2c 52 39 2c  |0,R6]:ADD R0,R9,|
00001a70  52 36 3a 4c 44 52 20 52  31 2c 5b 52 31 32 2c 23  |R6:LDR R1,[R12,#|
00001a80  32 30 5d 3a 43 4d 50 20  52 30 2c 52 31 3a 42 45  |20]:CMP R0,R1:BE|
00001a90  51 20 66 69 6e 64 65 6c  74 61 3a 43 4d 50 20 52  |Q findelta:CMP R|
00001aa0  37 2c 52 38 3a 41 44 44  45 51 20 52 36 2c 52 36  |7,R8:ADDEQ R6,R6|
00001ab0  2c 23 34 3a 42 45 51 20  64 65 6c 74 61 32 3a 41  |,#4:BEQ delta2:A|
00001ac0  44 44 20 52 31 30 2c 52  31 30 2c 52 36 3a 41 44  |DD R10,R10,R6:AD|
00001ad0  44 20 52 39 2c 52 39 2c  52 36 3a 4c 44 52 20 52  |D R9,R9,R6:LDR R|
00001ae0  30 2c 5b 52 31 32 2c 23  38 5d 3a 53 55 42 20 52  |0,[R12,#8]:SUB R|
00001af0  31 2c 52 31 30 2c 52 30  3a 53 55 42 20 52 31 2c  |1,R10,R0:SUB R1,|
00001b00  52 31 2c 23 31 36 3a 53  54 52 20 52 31 2c 5b 52  |R1,#16:STR R1,[R|
00001b10  31 32 2c 23 31 32 5d 3a  4d 4f 56 20 52 36 2c 23  |12,#12]:MOV R6,#|
00001b20  30 0d 06 68 fe 2e 64 65  6c 74 61 33 3a 4c 44 52  |0..h..delta3:LDR|
00001b30  20 52 37 2c 5b 52 39 2c  52 36 5d 3a 4c 44 52 20  | R7,[R9,R6]:LDR |
00001b40  52 38 2c 5b 52 31 30 2c  52 36 5d 3a 41 44 44 20  |R8,[R10,R6]:ADD |
00001b50  52 30 2c 52 39 2c 52 36  3a 4c 44 52 20 52 31 2c  |R0,R9,R6:LDR R1,|
00001b60  5b 52 31 32 2c 23 32 30  5d 3a 43 4d 50 20 52 30  |[R12,#20]:CMP R0|
00001b70  2c 52 31 3a 42 45 51 20  66 69 6e 64 65 6c 74 61  |,R1:BEQ findelta|
00001b80  32 3a 43 4d 50 20 52 37  2c 52 38 3a 41 44 44 4e  |2:CMP R7,R8:ADDN|
00001b90  45 20 52 36 2c 52 36 2c  23 34 3a 42 4e 45 20 64  |E R6,R6,#4:BNE d|
00001ba0  65 6c 74 61 33 3a 53 54  52 20 52 36 2c 5b 52 31  |elta3:STR R6,[R1|
00001bb0  32 2c 23 31 36 5d 3a 42  4c 20 66 69 6c 65 3a 4d  |2,#16]:BL file:M|
00001bc0  4f 56 20 52 37 2c 23 30  3a 2e 64 65 6c 74 61 34  |OV R7,#0:.delta4|
00001bd0  3a 4d 4f 56 20 52 30 2c  23 32 3a 4c 44 52 20 52  |:MOV R0,#2:LDR R|
00001be0  31 2c 5b 52 31 32 5d 3a  41 44 44 20 52 32 2c 52  |1,[R12]:ADD R2,R|
00001bf0  31 32 2c 23 31 32 3a 4d  4f 56 20 52 33 2c 23 34  |12,#12:MOV R3,#4|
00001c00  3a 4c 44 52 20 52 34 2c  5b 52 31 30 2c 52 37 5d  |:LDR R4,[R10,R7]|
00001c10  3a 53 54 52 20 52 34 2c  5b 52 39 2c 52 37 5d 0d  |:STR R4,[R9,R7].|
00001c20  06 72 62 53 54 52 20 52  34 2c 5b 52 31 32 2c 23  |.rbSTR R4,[R12,#|
00001c30  31 32 5d 3a 53 57 49 20  26 43 3a 41 44 44 20 52  |12]:SWI &C:ADD R|
00001c40  37 2c 52 37 2c 23 34 3a  43 4d 50 20 52 37 2c 52  |7,R7,#4:CMP R7,R|
00001c50  36 3a 42 4e 45 20 64 65  6c 74 61 34 3a 41 44 44  |6:BNE delta4:ADD|
00001c60  20 52 39 2c 52 39 2c 52  36 3a 41 44 44 20 52 31  | R9,R9,R6:ADD R1|
00001c70  30 2c 52 31 30 2c 52 36  3a 42 20 64 65 6c 74 61  |0,R10,R6:B delta|
00001c80  31 0d 06 7c 68 2e 66 69  6e 64 65 6c 74 61 3a 4d  |1..|h.findelta:M|
00001c90  4f 56 20 52 35 2c 23 30  3a 53 55 42 20 52 35 2c  |OV R5,#0:SUB R5,|
00001ca0  52 35 2c 23 31 3a 53 54  52 20 52 35 2c 5b 52 31  |R5,#1:STR R5,[R1|
00001cb0  32 2c 23 31 32 5d 3a 4d  4f 56 20 52 35 2c 23 30  |2,#12]:MOV R5,#0|
00001cc0  3a 53 54 52 20 52 35 2c  5b 52 31 32 2c 23 31 36  |:STR R5,[R12,#16|
00001cd0  5d 3a 42 4c 20 66 69 6c  65 3a 4c 44 4d 46 44 20  |]:BL file:LDMFD |
00001ce0  52 31 33 21 2c 7b 50 43  7d 0d 06 86 e4 2e 66 69  |R13!,{PC}.....fi|
00001cf0  6e 64 65 6c 74 61 32 3a  43 4d 50 20 52 36 2c 23  |ndelta2:CMP R6,#|
00001d00  30 3a 42 45 51 20 66 69  6e 64 65 6c 74 61 3a 53  |0:BEQ findelta:S|
00001d10  54 52 20 52 36 2c 5b 52  31 32 2c 23 31 36 5d 3a  |TR R6,[R12,#16]:|
00001d20  42 4c 20 66 69 6c 65 3a  4d 4f 56 20 52 37 2c 23  |BL file:MOV R7,#|
00001d30  30 3a 2e 64 65 6c 74 61  35 3a 4d 4f 56 20 52 30  |0:.delta5:MOV R0|
00001d40  2c 23 32 3a 4c 44 52 20  52 31 2c 5b 52 31 32 5d  |,#2:LDR R1,[R12]|
00001d50  3a 41 44 44 20 52 32 2c  52 31 32 2c 23 31 32 3a  |:ADD R2,R12,#12:|
00001d60  4d 4f 56 20 52 33 2c 23  34 3a 4c 44 52 20 52 34  |MOV R3,#4:LDR R4|
00001d70  2c 5b 52 31 30 2c 52 37  5d 3a 53 54 52 20 52 34  |,[R10,R7]:STR R4|
00001d80  2c 5b 52 39 2c 52 37 5d  3a 53 54 52 20 52 34 2c  |,[R9,R7]:STR R4,|
00001d90  5b 52 31 32 2c 23 31 32  5d 3a 53 57 49 20 26 43  |[R12,#12]:SWI &C|
00001da0  3a 41 44 44 20 52 37 2c  52 37 2c 23 34 3a 43 4d  |:ADD R7,R7,#4:CM|
00001db0  50 20 52 37 2c 52 36 3a  42 4e 45 20 64 65 6c 74  |P R7,R6:BNE delt|
00001dc0  61 35 3a 42 20 66 69 6e  64 65 6c 74 61 0d 06 90  |a5:B findelta...|
00001dd0  61 2e 66 69 6c 65 3a 53  54 4d 46 44 20 52 31 33  |a.file:STMFD R13|
00001de0  21 2c 7b 52 31 34 7d 3a  4d 4f 56 20 52 30 2c 23  |!,{R14}:MOV R0,#|
00001df0  32 3a 4c 44 52 20 52 31  2c 5b 52 31 32 5d 3a 41  |2:LDR R1,[R12]:A|
00001e00  44 44 20 52 32 2c 52 31  32 2c 23 31 32 3a 4d 4f  |DD R2,R12,#12:MO|
00001e10  56 20 52 33 2c 23 38 3a  53 57 49 20 26 43 3a 4c  |V R3,#8:SWI &C:L|
00001e20  44 4d 46 44 20 52 31 33  21 2c 7b 50 43 7d 0d 06  |DMFD R13!,{PC}..|
00001e30  9a 09 5d 3a ed 3a e1 0d  06 a4 75 dd f2 64 65 6c  |..]:.:....u..del|
00001e40  74 61 3a 46 24 3d 53 44  24 2b 22 2e 22 2b 52 54  |ta:F$=SD$+"."+RT|
00001e50  24 2b c3 4e 49 25 3a 46  25 3d 8e 28 46 24 29 3a  |$+.NI%:F%=.(F$):|
00001e60  4c 25 3d a2 23 46 25 3a  d9 23 46 25 3a e7 20 4c  |L%=.#F%:.#F%:. L|
00001e70  25 3c 3e 53 53 25 20 8c  20 f2 6d 65 73 73 61 67  |%<>SS% . .messag|
00001e80  65 28 22 53 70 72 69 74  65 20 69 6d 61 67 65 20  |e("Sprite image |
00001e90  27 22 2b 46 24 2b 22 27  20 69 73 20 64 69 66 66  |'"+F$+"' is diff|
00001ea0  65 72 65 6e 74 20 73 69  7a 65 22 29 0d 06 ae a6  |erent size")....|
00001eb0  21 4e 53 54 4f 52 45 25  3d 53 53 25 2b 34 3a ff  |!NSTORE%=SS%+4:.|
00001ec0  28 22 2a 4c 4f 41 44 20  22 2b 46 24 2b 22 20 22  |("*LOAD "+F$+" "|
00001ed0  2b c3 7e 28 4e 53 54 4f  52 45 25 2b 34 29 29 3a  |+.~(NSTORE%+4)):|
00001ee0  57 57 25 3d 21 28 4e 53  54 4f 52 45 25 2b 28 4e  |WW%=!(NSTORE%+(N|
00001ef0  53 54 4f 52 45 25 21 38  29 2b 31 36 29 3a 57 48  |STORE%!8)+16):WH|
00001f00  25 3d 21 28 4e 53 54 4f  52 45 25 2b 28 4e 53 54  |%=!(NSTORE%+(NST|
00001f10  4f 52 45 25 21 38 29 2b  32 30 29 3a 53 49 53 25  |ORE%!8)+20):SIS%|
00001f20  3d 28 28 57 57 25 2b 31  29 2a 34 29 2a 28 57 48  |=((WW%+1)*4)*(WH|
00001f30  25 2b 31 29 3a 53 4f 25  3d 21 28 4e 53 54 4f 52  |%+1):SO%=!(NSTOR|
00001f40  45 25 2b 28 4e 53 54 4f  52 45 25 21 38 29 2b 33  |E%+(NSTORE%!8)+3|
00001f50  32 29 0d 06 b8 3e 4e 53  41 25 3d 4e 53 54 4f 52  |2)...>NSA%=NSTOR|
00001f60  45 25 2b 28 4e 53 54 4f  52 45 25 21 38 29 2b 53  |E%+(NSTORE%!8)+S|
00001f70  4f 25 3a 56 41 52 53 21  38 3d 4e 53 41 25 3a 56  |O%:VARS!8=NSA%:V|
00001f80  41 52 53 21 32 30 3d 46  53 41 25 2b 53 49 53 25  |ARS!20=FSA%+SIS%|
00001f90  0d 06 c2 4a f2 73 65 74  69 63 6f 6e 28 30 2c 31  |...J.seticon(0,1|
00001fa0  35 2c 52 54 24 2b c3 4e  49 25 29 3a 41 25 3d 56  |5,RT$+.NI%):A%=V|
00001fb0  41 52 53 3a d6 20 6d 61  6b 65 64 65 6c 74 61 3a  |ARS:. makedelta:|
00001fc0  4e 49 25 2b 3d 31 3a 4d  46 25 3d bb a4 67 65 74  |NI%+=1:MF%=..get|
00001fd0  69 63 6f 6e 28 30 2c 31  33 29 0d 06 cc 84 e7 20  |icon(0,13)..... |
00001fe0  4e 49 25 3e 4d 46 25 20  8c 20 e3 4c 25 3d 31 20  |NI%>MF% . .L%=1 |
00001ff0  b8 20 38 3a d5 23 44 46  25 2c 26 46 46 3a ed 3a  |. 8:.#DF%,&FF:.:|
00002000  d9 23 44 46 25 3a ff 28  22 2a 53 45 54 54 59 50  |.#DF%:.("*SETTYP|
00002010  45 20 22 2b 44 4e 24 2b  22 20 35 34 46 22 29 3a  |E "+DN$+" 54F"):|
00002020  53 54 24 3d 22 53 74 61  72 74 22 3a f2 73 65 74  |ST$="Start":.set|
00002030  69 63 6f 6e 28 30 2c 31  32 2c 53 54 24 29 3a f2  |icon(0,12,ST$):.|
00002040  73 65 74 69 63 6f 6e 28  30 2c 31 35 2c 22 20 22  |seticon(0,15," "|
00002050  29 3a f2 73 63 72 61 70  73 6c 6f 74 3a e1 0d 06  |):.scrapslot:...|
00002060  d6 21 c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |.!.."OS_SpriteOp|
00002070  22 2c 32 36 35 2c 4e 53  54 4f 52 45 25 3a e1 0d  |",265,NSTORE%:..|
00002080  ff                                                |.|
00002081

© Dominic Ford 2021–2025.

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .