!AWFeb91/Goodies/DeltaView/!DeltaView/!RUNIMAGE

Home » Archimedes archive » Archimedes World » AW-1991-02.adf » !AWFeb91/Goodies/DeltaView/!DeltaView/!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/DeltaView/!DeltaView/!RUNIMAGE
Read OK:	✔
File size:	2006 bytes
Load address:	FFFFFB42
Exec address:	84B5CF1B

Duplicates

There is 1 duplicate copy of this file in the archive:

Archimedes archive » Archimedes World » AW-1991-04.adf » April91 » !AWApr91/Goodies/Brush/!DeltaView/!RUNIMAGE
Archimedes archive » Archimedes World » AW-1991-02.adf » !AWFeb91/Goodies/DeltaView/!DeltaView/!RUNIMAGE

File contents

   10REM ><DeltaView$Dir>.!RUNIMAGE
   20ON ERROR PROCmakerr
   30PROCsetup
   40PROCaction
   50PROCdie
   60END
   70DEFPROCsetup:OP%=0:DMDE%=-1:FREEZE%=FALSE:CLAIM%=FALSE
   80DIM POI% 256,TAS% 2000,BLK% 1000,MENU% 1000,SEL% 256,ICBLK% 256,CDE% 2048,VARS 40,SCALE% 32,PIXTAB% 1024:EDTC%=0:DTC%=0
   90SYS"Wimp_SlotSize",-1,-1 TO APS%
  100PROCass
  110$TAS%="TASK":SYS"Wimp_Initialise",200,!TAS%,"DeltaView" TO HAND%
  120PROCloadsprites
  130!BLK%=-1:BLK%!4=0:BLK%!8=0:BLK%!12=64:BLK%!16=64:BLK%!20=&2102
  140DIM BLK%!24 10:$(BLK%!24)="!DeltaView":BLK%!28=SPRITES%:BLK%!32=10
  150SYS "Wimp_CreateIcon",,BLK% TO ICHAND%
  160SYS "Wimp_OpenTemplate",,"<DeltaView$Dir>.Templates"
  170DIM STORE% (4*1024),BUF%(1),INDIR%(1),HAND%(1):FORL%=0 TO 1:BUF%(L%)=STORE%+(L%*1024):INDIR%(L%)=STORE%+((L%+2)*1024):NEXT
  180DATA info,view
  190RESTORE 180:FORK%=0 TO 1:READ A$:SYS "Wimp_LoadTemplate",,BUF%(K%),INDIR%(K%),INDIR%(K%)+1024,-1,A$,0:NEXT
  200RESTORE 180:FORK%=0 TO 0:READ A$:SYS "Wimp_CreateWindow",,BUF%(K%) TO HAND%(K%):NEXT
  210SYS "Wimp_CloseTemplate"
  220ENDPROC
  230DEFPROCloadsprites
  240DIM SPRITES% 2000
  250!SPRITES%=2000:SPRITES%!4=0:SPRITES%!8=16:SPRITES%!12=16:SYS &2E,266,SPRITES%,"<DeltaView$Dir>.!Sprites"
  260ENDPROC
  270DEFPROCaction
  280REPEAT
  290PROCpoll
  300UNTIL (REAS%=17 OR REAS%=18) AND BLK%!16=0
  310ENDPROC
  320DEFPROCdie:OP%=0:PROCscrapslot
  330SYS "Wimp_CloseDown",HAND%,!TAS%:
  340END
  350ENDPROC
  360DEFPROCpoll
  370!BLK%=%10011111110110110000
  380SYS "Wimp_Poll",0,BLK% TO REAS%
  390IF REAS%>-1 THEN PROCact
  400ENDPROC
  410DEFPROCact
  420CASE REAS% OF
  430WHEN 0:IF OP%=1 AND NOT FREEZE% THEN PROCforcedraw
  440WHEN 1:PROCredraw
  450WHEN 2:IF CLAIM% THEN PROCopmain
  460WHEN 3:PROCclmain
  470WHEN 6:PROCmouse
  480WHEN 9:PROCmenu
  490WHEN 17,18:PROCinmessage(BLK%!16)
  500ENDCASE
  510ENDPROC
  520DEFPROCforcedraw:PROCdrawsprite:!BLK%=HAND%(1):BLK%!4=0:BLK%!8=0:BLK%!12=SSX%:BLK%!16=SY%*4:SYS "Wimp_UpdateWindow",,BLK% TO FIN%:PROCgetor
  530WAIT:WAIT:WHILE FIN%:PROCplotobject:SYS "Wimp_GetRectangle",,BLK% TO FIN%:ENDWHILE:ENDPROC
  540DEFPROCredraw:
  550SYS "Wimp_RedrawWindow",,BLK% TO FIN%
  560PROCgetor
  570WHILE FIN%:PROCplotobject:SYS "Wimp_GetRectangle",,BLK% TO FIN%
  580ENDWHILE
  590ENDPROC
  600DEFPROCplotobject:IF DTC%<>EDTC% THEN EDTC%=DTC%:SYS&40740,IDMO%,0,-1,DTC%-1,PIXTAB%
  601IF MODE=IDMO% AND DTC%=1 THEN SYS "OS_SpriteOp",290,VARS!12,"1",WOX%,WOY%:ENDPROC
  610SYS&35,-1,9 TO ,,BP%:IF MODE<>ESM% THEN ESM%=MODE:SYS&40740,IDMO%,0,-1,DTC%-1,PIXTAB%
  620SYS&35,-1,4 TO ,,E%:IF USXF%>=E% THEN SX%=2^(USXF%-E%):!SCALE%=SX%:SCALE%!8=1 ELSE SX%=2^(E%-USXF%):!SCALE%=1:SCALE%!8=SX%
  630SCALE%!4=1:SCALE%!12=1:SYS"OS_ReadModeVariable",IDMO%,3 TO ,,C1%:SYS"OS_ReadModeVariable",-1,3 TO ,,C2%
  640SYS "OS_SpriteOp",308,VARS!12,"1",WOX%,WOY%,0,SCALE%,PIXTAB%:ENDPROC ELSE SYS "OS_SpriteOp",308,VARS!12,"1",WOX%,WOY%,0,SCALE%:ENDPROC
  650DEFPROCdrawsprite:A%=VARS:VARS!20=NI%:CALL dispdelta:NI%=VARS!20:ENDPROC
  660DEFPROCgetor:WOX%=BLK%!4-BLK%!20:WOY%=BLK%!16-BLK%!24:ENDPROC
  670DEFPROCopenmain:OP%=1
  680!BLK%=HAND%(1):BLK%!4=100:BLK%!8=100:BLK%!12=100+SSX%:BLK%!16=100+(SY%*4):BLK%!20=0:BLK%!24=0:BLK%!28=-1:SYS "Wimp_OpenWindow",,BLK%
  681SYS&40740,IDMO%,0,-1,DTC%-1,PIXTAB%:ESM%=MODE
  690ENDPROC
  700DEFPROCopmain:OP%=1
  710SYS "Wimp_OpenWindow",,BLK%
  720ENDPROC
  730DEFPROCclmain:OP%=0
  740SYS "Wimp_CloseWindow",,BLK%
  750ENDPROC
  760DEFPROCmakerr
  770SYS "Wimp_DragBox",,0
  780!BLK%=ERR
  790ER=TRUE
  800CASE ERR OF
  810WHEN 222:$(BLK%+4)="File cannot be found"+CHR$(0):ER=FALSE
  820OTHERWISE
  830$(BLK%+4)=REPORT$+" at line "+STR$ERL+CHR$(0)
  840ENDCASE
  850SYS "Wimp_ReportError",BLK%,1,"DeltaView"
  860IF ER THEN PROCwipe:PROCdie ELSE PROCaction:END
  870ENDPROC
  880DEFPROCmessage(M%,M$):SYS "Wimp_DragBox",,0:!BLK%=M%:$(BLK%+4)=M$+CHR$(0):SYS "Wimp_ReportError",BLK%,1,"DeltaView":PROCwipe:PROCaction:END
  890ENDPROC
  900DEFPROCmouse
  910MOUX%=!BLK%:MOUY%=BLK%!4:MOUB%=BLK%!8:MOUH%=BLK%!12
  920IF MOUB%=1 THEN MOUB%=4
  930CASE MOUB% OF
  940WHEN 4:CASE MOUH% OF
  950WHEN -2:IF CLAIM% PROCopenmain
  960ENDCASE
  970WHEN 2:IF MOUH%=-2 THEN PROCiconmenu ELSE IF MOUH%=HAND%(1) THEN PROCwindmenu
  980ENDCASE
  990ENDPROC
 1000DEFPROCmenoff:SYS "Wimp_CreateMenu",-1:ENDPROC
 1010DEFPROCiconmenu
 1020$MENU%="DeltaView":MENU%?12=7:MENU%?13=2:MENU%?14=7:MENU%?15=0:MENU%!16=100:MENU%!20=44:MENU%!24=0
 1030MENU%!28=0:MENU%!32=HAND%(0):MENU%!36=1 OR (7<<24):$(MENU%+40)="Info"
 1040MENU%!52=128:MENU%!56=-1:MENU%!60=1 OR (7<<24):$(MENU%+64)="Quit"
 1050SYS "Wimp_CreateMenu",,MENU%,MOUX%-64,184
 1060ENDPROC
 1070DEFPROCwindmenu
 1080$MENU%="DeltaView":MENU%?12=7:MENU%?13=2:MENU%?14=7:MENU%?15=0:MENU%!16=300:MENU%!20=44:MENU%!24=0
 1090DATA Freeze frame,-1,0,Run animation,-1,0,Wipe animation,-1,0,Desktop colours,-1,2,Information,0,0,Quit,-1,128
 1100RESTORE 1090:FORL%=0 TO 5: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
 1110MENU%!(28+(L%*24)+8)=1 OR (7<<24) OR 256:$(MENU%+500+(L%*20))=A$:MENU%!(28+(L%*24)+12)=(MENU%+500+(L%*20))
 1120IF L%=1 AND NOT FREEZE% THEN MENU%!(28+(L%*24)+8)=MENU%!(28+(L%*24)+8) OR (1<<22)
 1130IF L%=0 AND FREEZE% THEN MENU%!(28+(L%*24)+8)=MENU%!(28+(L%*24)+8) OR (1<<22)
 1131IF L%=3 AND DTC%=1 THEN MENU%!(28+(L%*24))=3
 1140MENU%!(28+(L%*24)+16)=MENU%+900:MENU%!(28+(L%*24)+20)=20:NEXT:$(MENU%+900)="AA-Za-z":
 1150SYS "Wimp_CreateMenu",,MENU%,MOUX%-64,MOUY%+200
 1160ENDPROC
 1170DEFPROCmenu
 1180SYS "Wimp_DecodeMenu",,MENU%,BLK%,SEL%
 1190IF $SEL%="Quit" THEN PROCdie
 1200IF $SEL%="Freeze frame" THEN FREEZE%=TRUE:ENDPROC
 1210IF $SEL%="Run animation" THEN FREEZE%=FALSE
 1220IF $SEL%="Wipe animation" THEN PROCwipe
 1221IF $SEL%="Desktop colours" THEN DTC%=DTC% EOR 1:PROCforcedraw
 1230ENDPROC
 1240DEFFNgstr(AD%):W$="":IF ?AD%<32 THEN =W$ ELSE REPEAT:W$=W$+CHR$(?AD%):AD%+=1:UNTIL ?AD%<32:=W$
 1250DEFFNgeticon(WH%,IC%):!ICBLK%=HAND%(WH%):ICBLK%!4=IC%:SYS "Wimp_GetIconState",,ICBLK%:=FNgstr(!(ICBLK%+28))
 1280DEFPROCseticon(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
 1300DEFPROCpoint:SYS "Wimp_GetPointerInfo",,POI%:MOX%=!POI%:MOY%=POI%!4:MOB%=POI%!8:ENDPROC
 1310DEFPROCinmessage(M%)
 1320CASE M% OF
 1330WHEN 0:PROCdie
 1340WHEN 3,5:IF BLK%!12=0 AND BLK%!40=&54F PROCload
 1350ENDCASE:ENDPROC
 1360DEFFNgetname:W$="":P%=BLK%+44:WHILE ?P%<>0 AND ?P%<>13:W$=W$+CHR$(?P%):P%+=1:ENDWHILE:=W$
 1370DEFPROCload:IF CLAIM% THEN PROCwipe
 1380A$=FNgetname:BLK%!12=BLK%!8:BLK%!16=4:!BLK%=64:SYS "Wimp_SendMessage",17,BLK%,BLK%!4:IF INSTR(A$,".")=0 THEN WT$=A$ ELSE WT$="":T%=LENA$:WHILE MID$(A$,T%,1)<>".":WT$=MID$(A$,T%,1)+WT$:T%-=1:ENDWHILE
 1390F%=OPENIN(A$):L%=EXT#F%:FORK%=0 TO 99:?(TAS%+1800+K%)=BGET#F%:NEXT:CLOSE#F%:IMAGE%=TAS%+1800
 1400WW%=!(IMAGE%+(IMAGE%!8)+16):WH%=!(IMAGE%+(IMAGE%!8)+20):
 1410SIS%=((WW%+1)*4)*(WH%+1):SO%=!(IMAGE%+(IMAGE%!8)+32):
 1420FSA%=IMAGE%+(IMAGE%!8)+SO%:DSA%=FSA%+SIS%:LL%=L%+SIS%+100
 1430IMAGE%=HIMEM:SYS"Wimp_SlotSize",APS%+LL%,-1 TO ASL%:IF ASL%<(APS%+LL%) THEN PROCscrapslot:PROCmessage(2,"Not enough memory for delta file."):ENDPROC
 1440CLAIM%=TRUE:OSCLI("*LOAD "+A$+" "+STR$~IMAGE%):WW%=!(IMAGE%+(IMAGE%!8)+16):WH%=!(IMAGE%+(IMAGE%!8)+20):SIS%=((WW%+1)*4)*(WH%+1):SO%=!(IMAGE%+(IMAGE%!8)+32):FSA%=IMAGE%+(IMAGE%!8)+SO%:DSA%=FSA%+SIS%
 1450DISP%=IMAGE%+L%:!DISP%=SIS%+100:DISP%!4=0:DISP%!8=16:DISP%!12=16:SYS&2E,269,IMAGE%,TAS%+1900,99,1:SN$="":O%=0:WHILE ?(TAS%+1900+O%)>0:SN$=SN$+CHR$(?(TAS%+1900+O%)):O%+=1:ENDWHILE
 1460!VARS=IMAGE%:VARS!4=FSA%:VARS!8=DSA%:SYS&2E,296,IMAGE%,SN$ TO ,,,SX%,SY%,,SM%:IDMO%=SM%
 1470SYS&2E,271,DISP%,"1",,SX%,SY%,SM%:SYS&35,SM%,4 TO ,,V%:USXF%=V%:SSX%=SX%<<V%:SYS&35,-1,4 TO ,,E%:SX%=2^(V%-E%):!SCALE%=SX%:SCALE%!4=1:SCALE%!8=1:SCALE%!12=1:SYS&35,SM%,9 TO ,,BITS%
 1480:SO%=!(DISP%+(DISP%!8)+32):DSA%=DISP%+(DISP%!8)+SO%:VARS!12=DISP%:VARS!16=DSA%:VARS!24=SIS%:NI%=1:VDU4:PROCcreatemain:PROCforcedraw
 1490PROCopenmain:OP%=1:FREEZE%=TRUE
 1500ENDPROC
 1510DEFPROCcreatemain:W%=BUF%(1)
 1520!W%=100:W%!4=100:W%!8=100+SSX%:W%!12=SY%*4:W%!16=0:W%!20=0:W%!24=-1:W%!28=&F:W%!32=&FF040207:W%!36=&0C0103:W%!40=0:W%!44=0:W%!48=SSX%:W%!52=(SY%*4):W%!56=&1D:W%!60=0:W%!64=1:W%!68=&40004:$(W%+72)=WT$:W%!84=0
 1530SYS"Wimp_CreateWindow",,W% TO HAND%(1):ENDPROC
 1540DEFPROCscrapslot:CLAIM%=FALSE:SYS"Wimp_SlotSize",APS%,-1:ENDPROC ELSE ENDPROC
 1550DEFPROCwipe:IF NOT CLAIM% THEN ENDPROC
 1560IF OP%=1 THEN !BLK%=HAND%(1):PROCclmain
 1570PROCscrapslot:!BLK%=HAND%(1):SYS"Wimp_DeleteWindow",,BLK%:FREEZE%=FALSE:ENDPROC
 1580DEFPROCass:FORL%=0 TO 2 STEP 2:P%=CDE%:[OPT L%
 1590.dispdelta:STMFD R13!,{R14}:MOV R12,R0:LDR R0,[R12,#20]:CMP R0,#1:BNE usedelta:.image1:LDR R0,[R12,#4]:LDR R1,[R12,#16]:LDR R2,[R12,#24]:MOV R3,#0:.gimage1:
 1600LDR R4,[R0,R3]:STR R4,[R1,R3]:ADD R3,R3,#4:CMP R3,R2
 1610BLT gimage1:MOV R0,#2:STR R0,[R12,#20]:MOV R0,#0:STR R0,[R12,#28]:LDMFD R13!,{PC}
 1620.usedelta:MOV R7,#0:LDR R0,[R12,#16]:LDR R1,[R12,#8]:LDR R2,[R12,#28]:ADD R1,R1,R2
 1630.pdelta1:LDR R2,[R1]:LDR R3,[R1,#4]:ADD R1,R1,#8:MOV R4,#0:SUB R4,R4,#1:CMP R2,R4:BEQ finpdelta:MOV R7,#1:
 1640ADD R4,R0,R2:ADD R4,R4,#16:MOV R5,#0:.gpdelta2:LDR R6,[R1,R5]:STR R6,[R4,R5]:ADD R5,R5,#4:CMP R5,R3:BNE gpdelta2:ADD R1,R1,R3:ADD R4,R4,R3:B pdelta1
 1650.finpdelta:LDR R3,[R1]:CMP R3,R4:BEQ wrapdelta:LDR R0,[R12,#8]:SUB R1,R1,R0:STR R1,[R12,#28]:LDR R0,[R12,#20]:ADD R0,R0,#1:STR R0,[R12,#20]:LDMFD R13!,{PC}
 1660.wrapdelta:MOV R0,#0:STR R0,[R12,#28]:MOV R0,#1:STR R0,[R12,#20]:CMP R7,#1:BNE image1:LDMFD R13!,{PC}
 1670]:NEXT:ENDPROC


 � ><DeltaView$Dir>.!RUNIMAGE
� � �makerr

�setup
(�action
2�die
<�
F-��setup:OP%=0:DMDE%=-1:FREEZE%=�:CLAIM%=�
Py� POI% 256,TAS% 2000,BLK% 1000,MENU% 1000,SEL% 256,ICBLK% 256,CDE% 2048,VARS 40,SCALE% 32,PIXTAB% 1024:EDTC%=0:DTC%=0
Z"ș"Wimp_SlotSize",-1,-1 � APS%
d�ass
nB$TAS%="TASK":ș"Wimp_Initialise",200,!TAS%,"DeltaView" � HAND%
x�loadsprites
�B!BLK%=-1:BLK%!4=0:BLK%!8=0:BLK%!12=64:BLK%!16=64:BLK%!20=&2102
�D� BLK%!24 10:$(BLK%!24)="!DeltaView":BLK%!28=SPRITES%:BLK%!32=10
�(ș "Wimp_CreateIcon",,BLK% � ICHAND%
�7ș "Wimp_OpenTemplate",,"<DeltaView$Dir>.Templates"
�v� STORE% (4*1024),BUF%(1),INDIR%(1),HAND%(1):�L%=0 � 1:BUF%(L%)=STORE%+(L%*1024):INDIR%(L%)=STORE%+((L%+2)*1024):�
�� info,view
�_� �tt@:�K%=0 � 1:� A$:ș "Wimp_LoadTemplate",,BUF%(K%),INDIR%(K%),INDIR%(K%)+1024,-1,A$,0:�
�H� �tt@:�K%=0 � 0:� A$:ș "Wimp_CreateWindow",,BUF%(K%) � HAND%(K%):�
�ș "Wimp_CloseTemplate"
��
���loadsprites
�� SPRITES% 2000
�k!SPRITES%=2000:SPRITES%!4=0:SPRITES%!8=16:SPRITES%!12=16:ș &2E,266,SPRITES%,"<DeltaView$Dir>.!Sprites"
�
��action
�
"	�poll
,'� (REAS%=17 � REAS%=18) � BLK%!16=0
6�
@��die:OP%=0:�scrapslot
J$ș "Wimp_CloseDown",HAND%,!TAS%:
T�
^�
h
��poll
r!BLK%=%10011111110110110000
|!ș "Wimp_Poll",0,BLK% � REAS%
�� REAS%>-1 � �act
��
�	��act
�Ȏ REAS% �
�(� 0:� OP%=1 � � FREEZE% � �forcedraw
�� 1:�redraw
�� 2:� CLAIM% � �opmain
�� 3:�clmain
�� 6:�mouse
�
� 9:�menu
�� 17,18:�inmessage(BLK%!16)
��
��
���forcedraw:�drawsprite:!BLK%=HAND%(1):BLK%!4=0:BLK%!8=0:BLK%!12=SSX%:BLK%!16=SY%*4:ș "Wimp_UpdateWindow",,BLK% � FIN%:�getor
EȖ:Ȗ:ȕ FIN%:�plotobject:ș "Wimp_GetRectangle",,BLK% � FIN%:�:�

��redraw:
&'ș "Wimp_RedrawWindow",,BLK% � FIN%
0
�getor
:;ȕ FIN%:�plotobject:ș "Wimp_GetRectangle",,BLK% � FIN%
D�
N�
XN��plotobject:� DTC%<>EDTC% � EDTC%=DTC%:ș&40740,IDMO%,0,-1,DTC%-1,PIXTAB%
YE� �=IDMO% � DTC%=1 � ș "OS_SpriteOp",290,VARS!12,"1",WOX%,WOY%:�
bLș&35,-1,9 � ,,BP%:� �<>ESM% � ESM%=�:ș&40740,IDMO%,0,-1,DTC%-1,PIXTAB%
luș&35,-1,4 � ,,E%:� USXF%>=E% � SX%=2^(USXF%-E%):!SCALE%=SX%:SCALE%!8=1 � SX%=2^(E%-USXF%):!SCALE%=1:SCALE%!8=SX%
vgSCALE%!4=1:SCALE%!12=1:ș"OS_ReadModeVariable",IDMO%,3 � ,,C1%:ș"OS_ReadModeVariable",-1,3 � ,,C2%
�yș "OS_SpriteOp",308,VARS!12,"1",WOX%,WOY%,0,SCALE%,PIXTAB%:� � ș "OS_SpriteOp",308,VARS!12,"1",WOX%,WOY%,0,SCALE%:�
�>��drawsprite:A%=VARS:VARS!20=NI%:� dispdelta:NI%=VARS!20:�
�6��getor:WOX%=BLK%!4-BLK%!20:WOY%=BLK%!16-BLK%!24:�
���openmain:OP%=1
��!BLK%=HAND%(1):BLK%!4=100:BLK%!8=100:BLK%!12=100+SSX%:BLK%!16=100+(SY%*4):BLK%!20=0:BLK%!24=0:BLK%!28=-1:ș "Wimp_OpenWindow",,BLK%
�-ș&40740,IDMO%,0,-1,DTC%-1,PIXTAB%:ESM%=�
��
���opmain:OP%=1
�ș "Wimp_OpenWindow",,BLK%
��
���clmain:OP%=0
�ș "Wimp_CloseWindow",,BLK%
��
���makerr
ș "Wimp_DragBox",,0
!BLK%=�
ER=�
 
Ȏ � �
*4� 222:$(BLK%+4)="File cannot be found"+�(0):ER=�
4
>$$(BLK%+4)=�$+" at line "+Þ+�(0)
H�
R,ș "Wimp_ReportError",BLK%,1,"DeltaView"
\!� ER � �wipe:�die � �action:�
f�
p}��message(M%,M$):ș "Wimp_DragBox",,0:!BLK%=M%:$(BLK%+4)=M$+�(0):ș "Wimp_ReportError",BLK%,1,"DeltaView":�wipe:�action:�
z�
���mouse
�7MOUX%=!BLK%:MOUY%=BLK%!4:MOUB%=BLK%!8:MOUH%=BLK%!12
�� MOUB%=1 � MOUB%=4
�Ȏ MOUB% �
�� 4:Ȏ MOUH% �
�� -2:� CLAIM% �openmain
��
�=� 2:� MOUH%=-2 � �iconmenu � � MOUH%=HAND%(1) � �windmenu
��
��
�&��menoff:ș "Wimp_CreateMenu",-1:�
���iconmenu
�f$MENU%="DeltaView":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%(0):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
8f$MENU%="DeltaView":MENU%?12=7:MENU%?13=2:MENU%?14=7:MENU%?15=0:MENU%!16=300:MENU%!20=44:MENU%!24=0
Bo� Freeze frame,-1,0,Run animation,-1,0,Wipe animation,-1,0,Desktop colours,-1,2,Information,0,0,Quit,-1,128
Lx� �DBD:�L%=0 � 5:� A$,B%,C%:MENU%!(28+(L%*24))=C%:� B%>-1 � MENU%!(28+(L%*24)+4)=HAND%(B%) � MENU%!(28+(L%*24)+4)=-1
VlMENU%!(28+(L%*24)+8)=1 � (7<<24) � 256:$(MENU%+500+(L%*20))=A$:MENU%!(28+(L%*24)+12)=(MENU%+500+(L%*20))
`L� L%=1 � � FREEZE% � MENU%!(28+(L%*24)+8)=MENU%!(28+(L%*24)+8) � (1<<22)
jJ� L%=0 � FREEZE% � MENU%!(28+(L%*24)+8)=MENU%!(28+(L%*24)+8) � (1<<22)
k*� L%=3 � DTC%=1 � MENU%!(28+(L%*24))=3
tVMENU%!(28+(L%*24)+16)=MENU%+900:MENU%!(28+(L%*24)+20)=20:�:$(MENU%+900)="AA-Za-z":
~2ș "Wimp_CreateMenu",,MENU%,MOUX%-64,MOUY%+200
��
�
��menu
�)ș "Wimp_DecodeMenu",,MENU%,BLK%,SEL%
�� $SEL%="Quit" � �die
�(� $SEL%="Freeze frame" � FREEZE%=�:�
�'� $SEL%="Run animation" � FREEZE%=�
�$� $SEL%="Wipe animation" � �wipe
�8� $SEL%="Desktop colours" � DTC%=DTC% � 1:�forcedraw
��
�Lݤgstr(AD%):W$="":� ?AD%<32 � =W$ � �:W$=W$+�(?AD%):AD%+=1:� ?AD%<32:=W$
�jݤgeticon(WH%,IC%):!ICBLK%=HAND%(WH%):ICBLK%!4=IC%:ș "Wimp_GetIconState",,ICBLK%:=�gstr(!(ICBLK%+28))
���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%:�
O��point:ș "Wimp_GetPointerInfo",,POI%:MOX%=!POI%:MOY%=POI%!4:MOB%=POI%!8:�
��inmessage(M%)
(Ȏ M% �
2� 0:�die
<*� 3,5:� BLK%!12=0 � BLK%!40=&54F �load
F�:�
PKݤgetname:W$="":P%=BLK%+44:ȕ ?P%<>0 � ?P%<>13:W$=W$+�(?P%):P%+=1:�:=W$
Z��load:� CLAIM% � �wipe
d�A$=�getname:BLK%!12=BLK%!8:BLK%!16=4:!BLK%=64:ș "Wimp_SendMessage",17,BLK%,BLK%!4:� �A$,".")=0 � WT$=A$ � WT$="":T%=�A$:ȕ �A$,T%,1)<>".":WT$=�A$,T%,1)+WT$:T%-=1:�
nLF%=�(A$):L%=�#F%:�K%=0 � 99:?(TAS%+1800+K%)=�#F%:�:�#F%:IMAGE%=TAS%+1800
x<WW%=!(IMAGE%+(IMAGE%!8)+16):WH%=!(IMAGE%+(IMAGE%!8)+20):
�9SIS%=((WW%+1)*4)*(WH%+1):SO%=!(IMAGE%+(IMAGE%!8)+32):
�=FSA%=IMAGE%+(IMAGE%!8)+SO%:DSA%=FSA%+SIS%:LL%=L%+SIS%+100
��IMAGE%=�:ș"Wimp_SlotSize",APS%+LL%,-1 � ASL%:� ASL%<(APS%+LL%) � �scrapslot:�message(2,"Not enough memory for delta file."):�
��CLAIM%=�:�("*LOAD "+A$+" "+�~IMAGE%):WW%=!(IMAGE%+(IMAGE%!8)+16):WH%=!(IMAGE%+(IMAGE%!8)+20):SIS%=((WW%+1)*4)*(WH%+1):SO%=!(IMAGE%+(IMAGE%!8)+32):FSA%=IMAGE%+(IMAGE%!8)+SO%:DSA%=FSA%+SIS%
��DISP%=IMAGE%+L%:!DISP%=SIS%+100:DISP%!4=0:DISP%!8=16:DISP%!12=16:ș&2E,269,IMAGE%,TAS%+1900,99,1:SN$="":O%=0:ȕ ?(TAS%+1900+O%)>0:SN$=SN$+�(?(TAS%+1900+O%)):O%+=1:�
�Y!VARS=IMAGE%:VARS!4=FSA%:VARS!8=DSA%:ș&2E,296,IMAGE%,SN$ � ,,,SX%,SY%,,SM%:IDMO%=SM%
��ș&2E,271,DISP%,"1",,SX%,SY%,SM%:ș&35,SM%,4 � ,,V%:USXF%=V%:SSX%=SX%<<V%:ș&35,-1,4 � ,,E%:SX%=2^(V%-E%):!SCALE%=SX%:SCALE%!4=1:SCALE%!8=1:SCALE%!12=1:ș&35,SM%,9 � ,,BITS%
�:SO%=!(DISP%+(DISP%!8)+32):DSA%=DISP%+(DISP%!8)+SO%:VARS!12=DISP%:VARS!16=DSA%:VARS!24=SIS%:NI%=1:�4:�createmain:�forcedraw
��openmain:OP%=1:FREEZE%=�
��
���createmain:W%=BUF%(1)
��!W%=100:W%!4=100:W%!8=100+SSX%:W%!12=SY%*4:W%!16=0:W%!20=0:W%!24=-1:W%!28=&F:W%!32=&FF040207:W%!36=&0C0103:W%!40=0:W%!44=0:W%!48=SSX%:W%!52=(SY%*4):W%!56=&1D:W%!60=0:W%!64=1:W%!68=&40004:$(W%+72)=WT$:W%!84=0
�*ș"Wimp_CreateWindow",,W% � HAND%(1):�
8��scrapslot:CLAIM%=�:ș"Wimp_SlotSize",APS%,-1:� � �
��wipe:� � CLAIM% � �
$� OP%=1 � !BLK%=HAND%(1):�clmain
"E�scrapslot:!BLK%=HAND%(1):ș"Wimp_DeleteWindow",,BLK%:FREEZE%=�:�
,'��ass:�L%=0 � 2 � 2:P%=CDE%:[OPT L%
6�.dispdelta:STMFD R13!,{R14}:MOV R12,R0:LDR R0,[R12,#20]:CMP R0,#1:BNE usedelta:.image1:LDR R0,[R12,#4]:LDR R1,[R12,#16]:LDR R2,[R12,#24]:MOV R3,#0:.gimage1:
@8LDR R4,[R0,R3]:STR R4,[R1,R3]:ADD R3,R3,#4:CMP R3,R2
JUBLT gimage1:MOV R0,#2:STR R0,[R12,#20]:MOV R0,#0:STR R0,[R12,#28]:LDMFD R13!,{PC}
TV.usedelta:MOV R7,#0:LDR R0,[R12,#16]:LDR R1,[R12,#8]:LDR R2,[R12,#28]:ADD R1,R1,R2
^n.pdelta1:LDR R2,[R1]:LDR R3,[R1,#4]:ADD R1,R1,#8:MOV R4,#0:SUB R4,R4,#1:CMP R2,R4:BEQ finpdelta:MOV R7,#1:
h�ADD R4,R0,R2:ADD R4,R4,#16:MOV R5,#0:.gpdelta2:LDR R6,[R1,R5]:STR R6,[R4,R5]:ADD R5,R5,#4:CMP R5,R3:BNE gpdelta2:ADD R1,R1,R3:ADD R4,R4,R3:B pdelta1
r�.finpdelta:LDR R3,[R1]:CMP R3,R4:BEQ wrapdelta:LDR R0,[R12,#8]:SUB R1,R1,R0:STR R1,[R12,#28]:LDR R0,[R12,#20]:ADD R0,R0,#1:STR R0,[R12,#20]:LDMFD R13!,{PC}
|i.wrapdelta:MOV R0,#0:STR R0,[R12,#28]:MOV R0,#1:STR R0,[R12,#20]:CMP R7,#1:BNE image1:LDMFD R13!,{PC}
�	]:�:�
�

00000000  0d 00 0a 20 f4 20 3e 3c  44 65 6c 74 61 56 69 65  |... . ><DeltaVie|
00000010  77 24 44 69 72 3e 2e 21  52 55 4e 49 4d 41 47 45  |w$Dir>.!RUNIMAGE|
00000020  0d 00 14 0f ee 20 85 20  f2 6d 61 6b 65 72 72 0d  |..... . .makerr.|
00000030  00 1e 0a f2 73 65 74 75  70 0d 00 28 0b f2 61 63  |....setup..(..ac|
00000040  74 69 6f 6e 0d 00 32 08  f2 64 69 65 0d 00 3c 05  |tion..2..die..<.|
00000050  e0 0d 00 46 2d dd f2 73  65 74 75 70 3a 4f 50 25  |...F-..setup:OP%|
00000060  3d 30 3a 44 4d 44 45 25  3d 2d 31 3a 46 52 45 45  |=0:DMDE%=-1:FREE|
00000070  5a 45 25 3d a3 3a 43 4c  41 49 4d 25 3d a3 0d 00  |ZE%=.:CLAIM%=...|
00000080  50 79 de 20 50 4f 49 25  20 32 35 36 2c 54 41 53  |Py. POI% 256,TAS|
00000090  25 20 32 30 30 30 2c 42  4c 4b 25 20 31 30 30 30  |% 2000,BLK% 1000|
000000a0  2c 4d 45 4e 55 25 20 31  30 30 30 2c 53 45 4c 25  |,MENU% 1000,SEL%|
000000b0  20 32 35 36 2c 49 43 42  4c 4b 25 20 32 35 36 2c  | 256,ICBLK% 256,|
000000c0  43 44 45 25 20 32 30 34  38 2c 56 41 52 53 20 34  |CDE% 2048,VARS 4|
000000d0  30 2c 53 43 41 4c 45 25  20 33 32 2c 50 49 58 54  |0,SCALE% 32,PIXT|
000000e0  41 42 25 20 31 30 32 34  3a 45 44 54 43 25 3d 30  |AB% 1024:EDTC%=0|
000000f0  3a 44 54 43 25 3d 30 0d  00 5a 22 c8 99 22 57 69  |:DTC%=0..Z".."Wi|
00000100  6d 70 5f 53 6c 6f 74 53  69 7a 65 22 2c 2d 31 2c  |mp_SlotSize",-1,|
00000110  2d 31 20 b8 20 41 50 53  25 0d 00 64 08 f2 61 73  |-1 . APS%..d..as|
00000120  73 0d 00 6e 42 24 54 41  53 25 3d 22 54 41 53 4b  |s..nB$TAS%="TASK|
00000130  22 3a c8 99 22 57 69 6d  70 5f 49 6e 69 74 69 61  |":.."Wimp_Initia|
00000140  6c 69 73 65 22 2c 32 30  30 2c 21 54 41 53 25 2c  |lise",200,!TAS%,|
00000150  22 44 65 6c 74 61 56 69  65 77 22 20 b8 20 48 41  |"DeltaView" . HA|
00000160  4e 44 25 0d 00 78 10 f2  6c 6f 61 64 73 70 72 69  |ND%..x..loadspri|
00000170  74 65 73 0d 00 82 42 21  42 4c 4b 25 3d 2d 31 3a  |tes...B!BLK%=-1:|
00000180  42 4c 4b 25 21 34 3d 30  3a 42 4c 4b 25 21 38 3d  |BLK%!4=0:BLK%!8=|
00000190  30 3a 42 4c 4b 25 21 31  32 3d 36 34 3a 42 4c 4b  |0:BLK%!12=64:BLK|
000001a0  25 21 31 36 3d 36 34 3a  42 4c 4b 25 21 32 30 3d  |%!16=64:BLK%!20=|
000001b0  26 32 31 30 32 0d 00 8c  44 de 20 42 4c 4b 25 21  |&2102...D. BLK%!|
000001c0  32 34 20 31 30 3a 24 28  42 4c 4b 25 21 32 34 29  |24 10:$(BLK%!24)|
000001d0  3d 22 21 44 65 6c 74 61  56 69 65 77 22 3a 42 4c  |="!DeltaView":BL|
000001e0  4b 25 21 32 38 3d 53 50  52 49 54 45 53 25 3a 42  |K%!28=SPRITES%:B|
000001f0  4c 4b 25 21 33 32 3d 31  30 0d 00 96 28 c8 99 20  |LK%!32=10...(.. |
00000200  22 57 69 6d 70 5f 43 72  65 61 74 65 49 63 6f 6e  |"Wimp_CreateIcon|
00000210  22 2c 2c 42 4c 4b 25 20  b8 20 49 43 48 41 4e 44  |",,BLK% . ICHAND|
00000220  25 0d 00 a0 37 c8 99 20  22 57 69 6d 70 5f 4f 70  |%...7.. "Wimp_Op|
00000230  65 6e 54 65 6d 70 6c 61  74 65 22 2c 2c 22 3c 44  |enTemplate",,"<D|
00000240  65 6c 74 61 56 69 65 77  24 44 69 72 3e 2e 54 65  |eltaView$Dir>.Te|
00000250  6d 70 6c 61 74 65 73 22  0d 00 aa 76 de 20 53 54  |mplates"...v. ST|
00000260  4f 52 45 25 20 28 34 2a  31 30 32 34 29 2c 42 55  |ORE% (4*1024),BU|
00000270  46 25 28 31 29 2c 49 4e  44 49 52 25 28 31 29 2c  |F%(1),INDIR%(1),|
00000280  48 41 4e 44 25 28 31 29  3a e3 4c 25 3d 30 20 b8  |HAND%(1):.L%=0 .|
00000290  20 31 3a 42 55 46 25 28  4c 25 29 3d 53 54 4f 52  | 1:BUF%(L%)=STOR|
000002a0  45 25 2b 28 4c 25 2a 31  30 32 34 29 3a 49 4e 44  |E%+(L%*1024):IND|
000002b0  49 52 25 28 4c 25 29 3d  53 54 4f 52 45 25 2b 28  |IR%(L%)=STORE%+(|
000002c0  28 4c 25 2b 32 29 2a 31  30 32 34 29 3a ed 0d 00  |(L%+2)*1024):...|
000002d0  b4 0f dc 20 69 6e 66 6f  2c 76 69 65 77 0d 00 be  |... info,view...|
000002e0  5f f7 20 8d 74 74 40 3a  e3 4b 25 3d 30 20 b8 20  |_. .tt@:.K%=0 . |
000002f0  31 3a f3 20 41 24 3a c8  99 20 22 57 69 6d 70 5f  |1:. A$:.. "Wimp_|
00000300  4c 6f 61 64 54 65 6d 70  6c 61 74 65 22 2c 2c 42  |LoadTemplate",,B|
00000310  55 46 25 28 4b 25 29 2c  49 4e 44 49 52 25 28 4b  |UF%(K%),INDIR%(K|
00000320  25 29 2c 49 4e 44 49 52  25 28 4b 25 29 2b 31 30  |%),INDIR%(K%)+10|
00000330  32 34 2c 2d 31 2c 41 24  2c 30 3a ed 0d 00 c8 48  |24,-1,A$,0:....H|
00000340  f7 20 8d 74 74 40 3a e3  4b 25 3d 30 20 b8 20 30  |. .tt@:.K%=0 . 0|
00000350  3a f3 20 41 24 3a c8 99  20 22 57 69 6d 70 5f 43  |:. A$:.. "Wimp_C|
00000360  72 65 61 74 65 57 69 6e  64 6f 77 22 2c 2c 42 55  |reateWindow",,BU|
00000370  46 25 28 4b 25 29 20 b8  20 48 41 4e 44 25 28 4b  |F%(K%) . HAND%(K|
00000380  25 29 3a ed 0d 00 d2 1b  c8 99 20 22 57 69 6d 70  |%):....... "Wimp|
00000390  5f 43 6c 6f 73 65 54 65  6d 70 6c 61 74 65 22 0d  |_CloseTemplate".|
000003a0  00 dc 05 e1 0d 00 e6 11  dd f2 6c 6f 61 64 73 70  |..........loadsp|
000003b0  72 69 74 65 73 0d 00 f0  13 de 20 53 50 52 49 54  |rites..... SPRIT|
000003c0  45 53 25 20 32 30 30 30  0d 00 fa 6b 21 53 50 52  |ES% 2000...k!SPR|
000003d0  49 54 45 53 25 3d 32 30  30 30 3a 53 50 52 49 54  |ITES%=2000:SPRIT|
000003e0  45 53 25 21 34 3d 30 3a  53 50 52 49 54 45 53 25  |ES%!4=0:SPRITES%|
000003f0  21 38 3d 31 36 3a 53 50  52 49 54 45 53 25 21 31  |!8=16:SPRITES%!1|
00000400  32 3d 31 36 3a c8 99 20  26 32 45 2c 32 36 36 2c  |2=16:.. &2E,266,|
00000410  53 50 52 49 54 45 53 25  2c 22 3c 44 65 6c 74 61  |SPRITES%,"<Delta|
00000420  56 69 65 77 24 44 69 72  3e 2e 21 53 70 72 69 74  |View$Dir>.!Sprit|
00000430  65 73 22 0d 01 04 05 e1  0d 01 0e 0c dd f2 61 63  |es"...........ac|
00000440  74 69 6f 6e 0d 01 18 05  f5 0d 01 22 09 f2 70 6f  |tion......."..po|
00000450  6c 6c 0d 01 2c 27 fd 20  28 52 45 41 53 25 3d 31  |ll..,'. (REAS%=1|
00000460  37 20 84 20 52 45 41 53  25 3d 31 38 29 20 80 20  |7 . REAS%=18) . |
00000470  42 4c 4b 25 21 31 36 3d  30 0d 01 36 05 e1 0d 01  |BLK%!16=0..6....|
00000480  40 1a dd f2 64 69 65 3a  4f 50 25 3d 30 3a f2 73  |@...die:OP%=0:.s|
00000490  63 72 61 70 73 6c 6f 74  0d 01 4a 24 c8 99 20 22  |crapslot..J$.. "|
000004a0  57 69 6d 70 5f 43 6c 6f  73 65 44 6f 77 6e 22 2c  |Wimp_CloseDown",|
000004b0  48 41 4e 44 25 2c 21 54  41 53 25 3a 0d 01 54 05  |HAND%,!TAS%:..T.|
000004c0  e0 0d 01 5e 05 e1 0d 01  68 0a dd f2 70 6f 6c 6c  |...^....h...poll|
000004d0  0d 01 72 1f 21 42 4c 4b  25 3d 25 31 30 30 31 31  |..r.!BLK%=%10011|
000004e0  31 31 31 31 31 30 31 31  30 31 31 30 30 30 30 0d  |111110110110000.|
000004f0  01 7c 21 c8 99 20 22 57  69 6d 70 5f 50 6f 6c 6c  |.|!.. "Wimp_Poll|
00000500  22 2c 30 2c 42 4c 4b 25  20 b8 20 52 45 41 53 25  |",0,BLK% . REAS%|
00000510  0d 01 86 15 e7 20 52 45  41 53 25 3e 2d 31 20 8c  |..... REAS%>-1 .|
00000520  20 f2 61 63 74 0d 01 90  05 e1 0d 01 9a 09 dd f2  | .act...........|
00000530  61 63 74 0d 01 a4 0e c8  8e 20 52 45 41 53 25 20  |act...... REAS% |
00000540  ca 0d 01 ae 28 c9 20 30  3a e7 20 4f 50 25 3d 31  |....(. 0:. OP%=1|
00000550  20 80 20 ac 20 46 52 45  45 5a 45 25 20 8c 20 f2  | . . FREEZE% . .|
00000560  66 6f 72 63 65 64 72 61  77 0d 01 b8 0f c9 20 31  |forcedraw..... 1|
00000570  3a f2 72 65 64 72 61 77  0d 01 c2 1a c9 20 32 3a  |:.redraw..... 2:|
00000580  e7 20 43 4c 41 49 4d 25  20 8c 20 f2 6f 70 6d 61  |. CLAIM% . .opma|
00000590  69 6e 0d 01 cc 0f c9 20  33 3a f2 63 6c 6d 61 69  |in..... 3:.clmai|
000005a0  6e 0d 01 d6 0e c9 20 36  3a f2 6d 6f 75 73 65 0d  |n..... 6:.mouse.|
000005b0  01 e0 0d c9 20 39 3a f2  6d 65 6e 75 0d 01 ea 1f  |.... 9:.menu....|
000005c0  c9 20 31 37 2c 31 38 3a  f2 69 6e 6d 65 73 73 61  |. 17,18:.inmessa|
000005d0  67 65 28 42 4c 4b 25 21  31 36 29 0d 01 f4 05 cb  |ge(BLK%!16).....|
000005e0  0d 01 fe 05 e1 0d 02 08  82 dd f2 66 6f 72 63 65  |...........force|
000005f0  64 72 61 77 3a f2 64 72  61 77 73 70 72 69 74 65  |draw:.drawsprite|
00000600  3a 21 42 4c 4b 25 3d 48  41 4e 44 25 28 31 29 3a  |:!BLK%=HAND%(1):|
00000610  42 4c 4b 25 21 34 3d 30  3a 42 4c 4b 25 21 38 3d  |BLK%!4=0:BLK%!8=|
00000620  30 3a 42 4c 4b 25 21 31  32 3d 53 53 58 25 3a 42  |0:BLK%!12=SSX%:B|
00000630  4c 4b 25 21 31 36 3d 53  59 25 2a 34 3a c8 99 20  |LK%!16=SY%*4:.. |
00000640  22 57 69 6d 70 5f 55 70  64 61 74 65 57 69 6e 64  |"Wimp_UpdateWind|
00000650  6f 77 22 2c 2c 42 4c 4b  25 20 b8 20 46 49 4e 25  |ow",,BLK% . FIN%|
00000660  3a f2 67 65 74 6f 72 0d  02 12 45 c8 96 3a c8 96  |:.getor...E..:..|
00000670  3a c8 95 20 46 49 4e 25  3a f2 70 6c 6f 74 6f 62  |:.. FIN%:.plotob|
00000680  6a 65 63 74 3a c8 99 20  22 57 69 6d 70 5f 47 65  |ject:.. "Wimp_Ge|
00000690  74 52 65 63 74 61 6e 67  6c 65 22 2c 2c 42 4c 4b  |tRectangle",,BLK|
000006a0  25 20 b8 20 46 49 4e 25  3a ce 3a e1 0d 02 1c 0d  |% . FIN%:.:.....|
000006b0  dd f2 72 65 64 72 61 77  3a 0d 02 26 27 c8 99 20  |..redraw:..&'.. |
000006c0  22 57 69 6d 70 5f 52 65  64 72 61 77 57 69 6e 64  |"Wimp_RedrawWind|
000006d0  6f 77 22 2c 2c 42 4c 4b  25 20 b8 20 46 49 4e 25  |ow",,BLK% . FIN%|
000006e0  0d 02 30 0a f2 67 65 74  6f 72 0d 02 3a 3b c8 95  |..0..getor..:;..|
000006f0  20 46 49 4e 25 3a f2 70  6c 6f 74 6f 62 6a 65 63  | FIN%:.plotobjec|
00000700  74 3a c8 99 20 22 57 69  6d 70 5f 47 65 74 52 65  |t:.. "Wimp_GetRe|
00000710  63 74 61 6e 67 6c 65 22  2c 2c 42 4c 4b 25 20 b8  |ctangle",,BLK% .|
00000720  20 46 49 4e 25 0d 02 44  05 ce 0d 02 4e 05 e1 0d  | FIN%..D....N...|
00000730  02 58 4e dd f2 70 6c 6f  74 6f 62 6a 65 63 74 3a  |.XN..plotobject:|
00000740  e7 20 44 54 43 25 3c 3e  45 44 54 43 25 20 8c 20  |. DTC%<>EDTC% . |
00000750  45 44 54 43 25 3d 44 54  43 25 3a c8 99 26 34 30  |EDTC%=DTC%:..&40|
00000760  37 34 30 2c 49 44 4d 4f  25 2c 30 2c 2d 31 2c 44  |740,IDMO%,0,-1,D|
00000770  54 43 25 2d 31 2c 50 49  58 54 41 42 25 0d 02 59  |TC%-1,PIXTAB%..Y|
00000780  45 e7 20 eb 3d 49 44 4d  4f 25 20 80 20 44 54 43  |E. .=IDMO% . DTC|
00000790  25 3d 31 20 8c 20 c8 99  20 22 4f 53 5f 53 70 72  |%=1 . .. "OS_Spr|
000007a0  69 74 65 4f 70 22 2c 32  39 30 2c 56 41 52 53 21  |iteOp",290,VARS!|
000007b0  31 32 2c 22 31 22 2c 57  4f 58 25 2c 57 4f 59 25  |12,"1",WOX%,WOY%|
000007c0  3a e1 0d 02 62 4c c8 99  26 33 35 2c 2d 31 2c 39  |:...bL..&35,-1,9|
000007d0  20 b8 20 2c 2c 42 50 25  3a e7 20 eb 3c 3e 45 53  | . ,,BP%:. .<>ES|
000007e0  4d 25 20 8c 20 45 53 4d  25 3d eb 3a c8 99 26 34  |M% . ESM%=.:..&4|
000007f0  30 37 34 30 2c 49 44 4d  4f 25 2c 30 2c 2d 31 2c  |0740,IDMO%,0,-1,|
00000800  44 54 43 25 2d 31 2c 50  49 58 54 41 42 25 0d 02  |DTC%-1,PIXTAB%..|
00000810  6c 75 c8 99 26 33 35 2c  2d 31 2c 34 20 b8 20 2c  |lu..&35,-1,4 . ,|
00000820  2c 45 25 3a e7 20 55 53  58 46 25 3e 3d 45 25 20  |,E%:. USXF%>=E% |
00000830  8c 20 53 58 25 3d 32 5e  28 55 53 58 46 25 2d 45  |. SX%=2^(USXF%-E|
00000840  25 29 3a 21 53 43 41 4c  45 25 3d 53 58 25 3a 53  |%):!SCALE%=SX%:S|
00000850  43 41 4c 45 25 21 38 3d  31 20 8b 20 53 58 25 3d  |CALE%!8=1 . SX%=|
00000860  32 5e 28 45 25 2d 55 53  58 46 25 29 3a 21 53 43  |2^(E%-USXF%):!SC|
00000870  41 4c 45 25 3d 31 3a 53  43 41 4c 45 25 21 38 3d  |ALE%=1:SCALE%!8=|
00000880  53 58 25 0d 02 76 67 53  43 41 4c 45 25 21 34 3d  |SX%..vgSCALE%!4=|
00000890  31 3a 53 43 41 4c 45 25  21 31 32 3d 31 3a c8 99  |1:SCALE%!12=1:..|
000008a0  22 4f 53 5f 52 65 61 64  4d 6f 64 65 56 61 72 69  |"OS_ReadModeVari|
000008b0  61 62 6c 65 22 2c 49 44  4d 4f 25 2c 33 20 b8 20  |able",IDMO%,3 . |
000008c0  2c 2c 43 31 25 3a c8 99  22 4f 53 5f 52 65 61 64  |,,C1%:.."OS_Read|
000008d0  4d 6f 64 65 56 61 72 69  61 62 6c 65 22 2c 2d 31  |ModeVariable",-1|
000008e0  2c 33 20 b8 20 2c 2c 43  32 25 0d 02 80 79 c8 99  |,3 . ,,C2%...y..|
000008f0  20 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 33  | "OS_SpriteOp",3|
00000900  30 38 2c 56 41 52 53 21  31 32 2c 22 31 22 2c 57  |08,VARS!12,"1",W|
00000910  4f 58 25 2c 57 4f 59 25  2c 30 2c 53 43 41 4c 45  |OX%,WOY%,0,SCALE|
00000920  25 2c 50 49 58 54 41 42  25 3a e1 20 8b 20 c8 99  |%,PIXTAB%:. . ..|
00000930  20 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 33  | "OS_SpriteOp",3|
00000940  30 38 2c 56 41 52 53 21  31 32 2c 22 31 22 2c 57  |08,VARS!12,"1",W|
00000950  4f 58 25 2c 57 4f 59 25  2c 30 2c 53 43 41 4c 45  |OX%,WOY%,0,SCALE|
00000960  25 3a e1 0d 02 8a 3e dd  f2 64 72 61 77 73 70 72  |%:....>..drawspr|
00000970  69 74 65 3a 41 25 3d 56  41 52 53 3a 56 41 52 53  |ite:A%=VARS:VARS|
00000980  21 32 30 3d 4e 49 25 3a  d6 20 64 69 73 70 64 65  |!20=NI%:. dispde|
00000990  6c 74 61 3a 4e 49 25 3d  56 41 52 53 21 32 30 3a  |lta:NI%=VARS!20:|
000009a0  e1 0d 02 94 36 dd f2 67  65 74 6f 72 3a 57 4f 58  |....6..getor:WOX|
000009b0  25 3d 42 4c 4b 25 21 34  2d 42 4c 4b 25 21 32 30  |%=BLK%!4-BLK%!20|
000009c0  3a 57 4f 59 25 3d 42 4c  4b 25 21 31 36 2d 42 4c  |:WOY%=BLK%!16-BL|
000009d0  4b 25 21 32 34 3a e1 0d  02 9e 14 dd f2 6f 70 65  |K%!24:.......ope|
000009e0  6e 6d 61 69 6e 3a 4f 50  25 3d 31 0d 02 a8 87 21  |nmain:OP%=1....!|
000009f0  42 4c 4b 25 3d 48 41 4e  44 25 28 31 29 3a 42 4c  |BLK%=HAND%(1):BL|
00000a00  4b 25 21 34 3d 31 30 30  3a 42 4c 4b 25 21 38 3d  |K%!4=100:BLK%!8=|
00000a10  31 30 30 3a 42 4c 4b 25  21 31 32 3d 31 30 30 2b  |100:BLK%!12=100+|
00000a20  53 53 58 25 3a 42 4c 4b  25 21 31 36 3d 31 30 30  |SSX%:BLK%!16=100|
00000a30  2b 28 53 59 25 2a 34 29  3a 42 4c 4b 25 21 32 30  |+(SY%*4):BLK%!20|
00000a40  3d 30 3a 42 4c 4b 25 21  32 34 3d 30 3a 42 4c 4b  |=0:BLK%!24=0:BLK|
00000a50  25 21 32 38 3d 2d 31 3a  c8 99 20 22 57 69 6d 70  |%!28=-1:.. "Wimp|
00000a60  5f 4f 70 65 6e 57 69 6e  64 6f 77 22 2c 2c 42 4c  |_OpenWindow",,BL|
00000a70  4b 25 0d 02 a9 2d c8 99  26 34 30 37 34 30 2c 49  |K%...-..&40740,I|
00000a80  44 4d 4f 25 2c 30 2c 2d  31 2c 44 54 43 25 2d 31  |DMO%,0,-1,DTC%-1|
00000a90  2c 50 49 58 54 41 42 25  3a 45 53 4d 25 3d eb 0d  |,PIXTAB%:ESM%=..|
00000aa0  02 b2 05 e1 0d 02 bc 12  dd f2 6f 70 6d 61 69 6e  |..........opmain|
00000ab0  3a 4f 50 25 3d 31 0d 02  c6 1e c8 99 20 22 57 69  |:OP%=1...... "Wi|
00000ac0  6d 70 5f 4f 70 65 6e 57  69 6e 64 6f 77 22 2c 2c  |mp_OpenWindow",,|
00000ad0  42 4c 4b 25 0d 02 d0 05  e1 0d 02 da 12 dd f2 63  |BLK%...........c|
00000ae0  6c 6d 61 69 6e 3a 4f 50  25 3d 30 0d 02 e4 1f c8  |lmain:OP%=0.....|
00000af0  99 20 22 57 69 6d 70 5f  43 6c 6f 73 65 57 69 6e  |. "Wimp_CloseWin|
00000b00  64 6f 77 22 2c 2c 42 4c  4b 25 0d 02 ee 05 e1 0d  |dow",,BLK%......|
00000b10  02 f8 0c dd f2 6d 61 6b  65 72 72 0d 03 02 18 c8  |.....makerr.....|
00000b20  99 20 22 57 69 6d 70 5f  44 72 61 67 42 6f 78 22  |. "Wimp_DragBox"|
00000b30  2c 2c 30 0d 03 0c 0b 21  42 4c 4b 25 3d 9f 0d 03  |,,0....!BLK%=...|
00000b40  16 08 45 52 3d b9 0d 03  20 0a c8 8e 20 9f 20 ca  |..ER=... ... . .|
00000b50  0d 03 2a 34 c9 20 32 32  32 3a 24 28 42 4c 4b 25  |..*4. 222:$(BLK%|
00000b60  2b 34 29 3d 22 46 69 6c  65 20 63 61 6e 6e 6f 74  |+4)="File cannot|
00000b70  20 62 65 20 66 6f 75 6e  64 22 2b bd 28 30 29 3a  | be found"+.(0):|
00000b80  45 52 3d a3 0d 03 34 05  7f 0d 03 3e 24 24 28 42  |ER=...4....>$$(B|
00000b90  4c 4b 25 2b 34 29 3d f6  24 2b 22 20 61 74 20 6c  |LK%+4)=.$+" at l|
00000ba0  69 6e 65 20 22 2b c3 9e  2b bd 28 30 29 0d 03 48  |ine "+..+.(0)..H|
00000bb0  05 cb 0d 03 52 2c c8 99  20 22 57 69 6d 70 5f 52  |....R,.. "Wimp_R|
00000bc0  65 70 6f 72 74 45 72 72  6f 72 22 2c 42 4c 4b 25  |eportError",BLK%|
00000bd0  2c 31 2c 22 44 65 6c 74  61 56 69 65 77 22 0d 03  |,1,"DeltaView"..|
00000be0  5c 21 e7 20 45 52 20 8c  20 f2 77 69 70 65 3a f2  |\!. ER . .wipe:.|
00000bf0  64 69 65 20 8b 20 f2 61  63 74 69 6f 6e 3a e0 0d  |die . .action:..|
00000c00  03 66 05 e1 0d 03 70 7d  dd f2 6d 65 73 73 61 67  |.f....p}..messag|
00000c10  65 28 4d 25 2c 4d 24 29  3a c8 99 20 22 57 69 6d  |e(M%,M$):.. "Wim|
00000c20  70 5f 44 72 61 67 42 6f  78 22 2c 2c 30 3a 21 42  |p_DragBox",,0:!B|
00000c30  4c 4b 25 3d 4d 25 3a 24  28 42 4c 4b 25 2b 34 29  |LK%=M%:$(BLK%+4)|
00000c40  3d 4d 24 2b bd 28 30 29  3a c8 99 20 22 57 69 6d  |=M$+.(0):.. "Wim|
00000c50  70 5f 52 65 70 6f 72 74  45 72 72 6f 72 22 2c 42  |p_ReportError",B|
00000c60  4c 4b 25 2c 31 2c 22 44  65 6c 74 61 56 69 65 77  |LK%,1,"DeltaView|
00000c70  22 3a f2 77 69 70 65 3a  f2 61 63 74 69 6f 6e 3a  |":.wipe:.action:|
00000c80  e0 0d 03 7a 05 e1 0d 03  84 0b dd f2 6d 6f 75 73  |...z........mous|
00000c90  65 0d 03 8e 37 4d 4f 55  58 25 3d 21 42 4c 4b 25  |e...7MOUX%=!BLK%|
00000ca0  3a 4d 4f 55 59 25 3d 42  4c 4b 25 21 34 3a 4d 4f  |:MOUY%=BLK%!4:MO|
00000cb0  55 42 25 3d 42 4c 4b 25  21 38 3a 4d 4f 55 48 25  |UB%=BLK%!8:MOUH%|
00000cc0  3d 42 4c 4b 25 21 31 32  0d 03 98 17 e7 20 4d 4f  |=BLK%!12..... MO|
00000cd0  55 42 25 3d 31 20 8c 20  4d 4f 55 42 25 3d 34 0d  |UB%=1 . MOUB%=4.|
00000ce0  03 a2 0e c8 8e 20 4d 4f  55 42 25 20 ca 0d 03 ac  |..... MOUB% ....|
00000cf0  12 c9 20 34 3a c8 8e 20  4d 4f 55 48 25 20 ca 0d  |.. 4:.. MOUH% ..|
00000d00  03 b6 1b c9 20 2d 32 3a  e7 20 43 4c 41 49 4d 25  |.... -2:. CLAIM%|
00000d10  20 f2 6f 70 65 6e 6d 61  69 6e 0d 03 c0 05 cb 0d  | .openmain......|
00000d20  03 ca 3d c9 20 32 3a e7  20 4d 4f 55 48 25 3d 2d  |..=. 2:. MOUH%=-|
00000d30  32 20 8c 20 f2 69 63 6f  6e 6d 65 6e 75 20 8b 20  |2 . .iconmenu . |
00000d40  e7 20 4d 4f 55 48 25 3d  48 41 4e 44 25 28 31 29  |. MOUH%=HAND%(1)|
00000d50  20 8c 20 f2 77 69 6e 64  6d 65 6e 75 0d 03 d4 05  | . .windmenu....|
00000d60  cb 0d 03 de 05 e1 0d 03  e8 26 dd f2 6d 65 6e 6f  |.........&..meno|
00000d70  66 66 3a c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |ff:.. "Wimp_Crea|
00000d80  74 65 4d 65 6e 75 22 2c  2d 31 3a e1 0d 03 f2 0e  |teMenu",-1:.....|
00000d90  dd f2 69 63 6f 6e 6d 65  6e 75 0d 03 fc 66 24 4d  |..iconmenu...f$M|
00000da0  45 4e 55 25 3d 22 44 65  6c 74 61 56 69 65 77 22  |ENU%="DeltaView"|
00000db0  3a 4d 45 4e 55 25 3f 31  32 3d 37 3a 4d 45 4e 55  |:MENU%?12=7:MENU|
00000dc0  25 3f 31 33 3d 32 3a 4d  45 4e 55 25 3f 31 34 3d  |%?13=2:MENU%?14=|
00000dd0  37 3a 4d 45 4e 55 25 3f  31 35 3d 30 3a 4d 45 4e  |7:MENU%?15=0:MEN|
00000de0  55 25 21 31 36 3d 31 30  30 3a 4d 45 4e 55 25 21  |U%!16=100:MENU%!|
00000df0  32 30 3d 34 34 3a 4d 45  4e 55 25 21 32 34 3d 30  |20=44:MENU%!24=0|
00000e00  0d 04 06 48 4d 45 4e 55  25 21 32 38 3d 30 3a 4d  |...HMENU%!28=0:M|
00000e10  45 4e 55 25 21 33 32 3d  48 41 4e 44 25 28 30 29  |ENU%!32=HAND%(0)|
00000e20  3a 4d 45 4e 55 25 21 33  36 3d 31 20 84 20 28 37  |:MENU%!36=1 . (7|
00000e30  3c 3c 32 34 29 3a 24 28  4d 45 4e 55 25 2b 34 30  |<<24):$(MENU%+40|
00000e40  29 3d 22 49 6e 66 6f 22  0d 04 10 44 4d 45 4e 55  |)="Info"...DMENU|
00000e50  25 21 35 32 3d 31 32 38  3a 4d 45 4e 55 25 21 35  |%!52=128:MENU%!5|
00000e60  36 3d 2d 31 3a 4d 45 4e  55 25 21 36 30 3d 31 20  |6=-1:MENU%!60=1 |
00000e70  84 20 28 37 3c 3c 32 34  29 3a 24 28 4d 45 4e 55  |. (7<<24):$(MENU|
00000e80  25 2b 36 34 29 3d 22 51  75 69 74 22 0d 04 1a 2c  |%+64)="Quit"...,|
00000e90  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 4d  |.. "Wimp_CreateM|
00000ea0  65 6e 75 22 2c 2c 4d 45  4e 55 25 2c 4d 4f 55 58  |enu",,MENU%,MOUX|
00000eb0  25 2d 36 34 2c 31 38 34  0d 04 24 05 e1 0d 04 2e  |%-64,184..$.....|
00000ec0  0e dd f2 77 69 6e 64 6d  65 6e 75 0d 04 38 66 24  |...windmenu..8f$|
00000ed0  4d 45 4e 55 25 3d 22 44  65 6c 74 61 56 69 65 77  |MENU%="DeltaView|
00000ee0  22 3a 4d 45 4e 55 25 3f  31 32 3d 37 3a 4d 45 4e  |":MENU%?12=7:MEN|
00000ef0  55 25 3f 31 33 3d 32 3a  4d 45 4e 55 25 3f 31 34  |U%?13=2:MENU%?14|
00000f00  3d 37 3a 4d 45 4e 55 25  3f 31 35 3d 30 3a 4d 45  |=7:MENU%?15=0:ME|
00000f10  4e 55 25 21 31 36 3d 33  30 30 3a 4d 45 4e 55 25  |NU%!16=300:MENU%|
00000f20  21 32 30 3d 34 34 3a 4d  45 4e 55 25 21 32 34 3d  |!20=44:MENU%!24=|
00000f30  30 0d 04 42 6f dc 20 46  72 65 65 7a 65 20 66 72  |0..Bo. Freeze fr|
00000f40  61 6d 65 2c 2d 31 2c 30  2c 52 75 6e 20 61 6e 69  |ame,-1,0,Run ani|
00000f50  6d 61 74 69 6f 6e 2c 2d  31 2c 30 2c 57 69 70 65  |mation,-1,0,Wipe|
00000f60  20 61 6e 69 6d 61 74 69  6f 6e 2c 2d 31 2c 30 2c  | animation,-1,0,|
00000f70  44 65 73 6b 74 6f 70 20  63 6f 6c 6f 75 72 73 2c  |Desktop colours,|
00000f80  2d 31 2c 32 2c 49 6e 66  6f 72 6d 61 74 69 6f 6e  |-1,2,Information|
00000f90  2c 30 2c 30 2c 51 75 69  74 2c 2d 31 2c 31 32 38  |,0,0,Quit,-1,128|
00000fa0  0d 04 4c 78 f7 20 8d 44  42 44 3a e3 4c 25 3d 30  |..Lx. .DBD:.L%=0|
00000fb0  20 b8 20 35 3a f3 20 41  24 2c 42 25 2c 43 25 3a  | . 5:. A$,B%,C%:|
00000fc0  4d 45 4e 55 25 21 28 32  38 2b 28 4c 25 2a 32 34  |MENU%!(28+(L%*24|
00000fd0  29 29 3d 43 25 3a e7 20  42 25 3e 2d 31 20 8c 20  |))=C%:. B%>-1 . |
00000fe0  4d 45 4e 55 25 21 28 32  38 2b 28 4c 25 2a 32 34  |MENU%!(28+(L%*24|
00000ff0  29 2b 34 29 3d 48 41 4e  44 25 28 42 25 29 20 8b  |)+4)=HAND%(B%) .|
00001000  20 4d 45 4e 55 25 21 28  32 38 2b 28 4c 25 2a 32  | MENU%!(28+(L%*2|
00001010  34 29 2b 34 29 3d 2d 31  0d 04 56 6c 4d 45 4e 55  |4)+4)=-1..VlMENU|
00001020  25 21 28 32 38 2b 28 4c  25 2a 32 34 29 2b 38 29  |%!(28+(L%*24)+8)|
00001030  3d 31 20 84 20 28 37 3c  3c 32 34 29 20 84 20 32  |=1 . (7<<24) . 2|
00001040  35 36 3a 24 28 4d 45 4e  55 25 2b 35 30 30 2b 28  |56:$(MENU%+500+(|
00001050  4c 25 2a 32 30 29 29 3d  41 24 3a 4d 45 4e 55 25  |L%*20))=A$:MENU%|
00001060  21 28 32 38 2b 28 4c 25  2a 32 34 29 2b 31 32 29  |!(28+(L%*24)+12)|
00001070  3d 28 4d 45 4e 55 25 2b  35 30 30 2b 28 4c 25 2a  |=(MENU%+500+(L%*|
00001080  32 30 29 29 0d 04 60 4c  e7 20 4c 25 3d 31 20 80  |20))..`L. L%=1 .|
00001090  20 ac 20 46 52 45 45 5a  45 25 20 8c 20 4d 45 4e  | . FREEZE% . MEN|
000010a0  55 25 21 28 32 38 2b 28  4c 25 2a 32 34 29 2b 38  |U%!(28+(L%*24)+8|
000010b0  29 3d 4d 45 4e 55 25 21  28 32 38 2b 28 4c 25 2a  |)=MENU%!(28+(L%*|
000010c0  32 34 29 2b 38 29 20 84  20 28 31 3c 3c 32 32 29  |24)+8) . (1<<22)|
000010d0  0d 04 6a 4a e7 20 4c 25  3d 30 20 80 20 46 52 45  |..jJ. L%=0 . FRE|
000010e0  45 5a 45 25 20 8c 20 4d  45 4e 55 25 21 28 32 38  |EZE% . MENU%!(28|
000010f0  2b 28 4c 25 2a 32 34 29  2b 38 29 3d 4d 45 4e 55  |+(L%*24)+8)=MENU|
00001100  25 21 28 32 38 2b 28 4c  25 2a 32 34 29 2b 38 29  |%!(28+(L%*24)+8)|
00001110  20 84 20 28 31 3c 3c 32  32 29 0d 04 6b 2a e7 20  | . (1<<22)..k*. |
00001120  4c 25 3d 33 20 80 20 44  54 43 25 3d 31 20 8c 20  |L%=3 . DTC%=1 . |
00001130  4d 45 4e 55 25 21 28 32  38 2b 28 4c 25 2a 32 34  |MENU%!(28+(L%*24|
00001140  29 29 3d 33 0d 04 74 56  4d 45 4e 55 25 21 28 32  |))=3..tVMENU%!(2|
00001150  38 2b 28 4c 25 2a 32 34  29 2b 31 36 29 3d 4d 45  |8+(L%*24)+16)=ME|
00001160  4e 55 25 2b 39 30 30 3a  4d 45 4e 55 25 21 28 32  |NU%+900:MENU%!(2|
00001170  38 2b 28 4c 25 2a 32 34  29 2b 32 30 29 3d 32 30  |8+(L%*24)+20)=20|
00001180  3a ed 3a 24 28 4d 45 4e  55 25 2b 39 30 30 29 3d  |:.:$(MENU%+900)=|
00001190  22 41 41 2d 5a 61 2d 7a  22 3a 0d 04 7e 32 c8 99  |"AA-Za-z":..~2..|
000011a0  20 22 57 69 6d 70 5f 43  72 65 61 74 65 4d 65 6e  | "Wimp_CreateMen|
000011b0  75 22 2c 2c 4d 45 4e 55  25 2c 4d 4f 55 58 25 2d  |u",,MENU%,MOUX%-|
000011c0  36 34 2c 4d 4f 55 59 25  2b 32 30 30 0d 04 88 05  |64,MOUY%+200....|
000011d0  e1 0d 04 92 0a dd f2 6d  65 6e 75 0d 04 9c 29 c8  |.......menu...).|
000011e0  99 20 22 57 69 6d 70 5f  44 65 63 6f 64 65 4d 65  |. "Wimp_DecodeMe|
000011f0  6e 75 22 2c 2c 4d 45 4e  55 25 2c 42 4c 4b 25 2c  |nu",,MENU%,BLK%,|
00001200  53 45 4c 25 0d 04 a6 19  e7 20 24 53 45 4c 25 3d  |SEL%..... $SEL%=|
00001210  22 51 75 69 74 22 20 8c  20 f2 64 69 65 0d 04 b0  |"Quit" . .die...|
00001220  28 e7 20 24 53 45 4c 25  3d 22 46 72 65 65 7a 65  |(. $SEL%="Freeze|
00001230  20 66 72 61 6d 65 22 20  8c 20 46 52 45 45 5a 45  | frame" . FREEZE|
00001240  25 3d b9 3a e1 0d 04 ba  27 e7 20 24 53 45 4c 25  |%=.:....'. $SEL%|
00001250  3d 22 52 75 6e 20 61 6e  69 6d 61 74 69 6f 6e 22  |="Run animation"|
00001260  20 8c 20 46 52 45 45 5a  45 25 3d a3 0d 04 c4 24  | . FREEZE%=....$|
00001270  e7 20 24 53 45 4c 25 3d  22 57 69 70 65 20 61 6e  |. $SEL%="Wipe an|
00001280  69 6d 61 74 69 6f 6e 22  20 8c 20 f2 77 69 70 65  |imation" . .wipe|
00001290  0d 04 c5 38 e7 20 24 53  45 4c 25 3d 22 44 65 73  |...8. $SEL%="Des|
000012a0  6b 74 6f 70 20 63 6f 6c  6f 75 72 73 22 20 8c 20  |ktop colours" . |
000012b0  44 54 43 25 3d 44 54 43  25 20 82 20 31 3a f2 66  |DTC%=DTC% . 1:.f|
000012c0  6f 72 63 65 64 72 61 77  0d 04 ce 05 e1 0d 04 d8  |orcedraw........|
000012d0  4c dd a4 67 73 74 72 28  41 44 25 29 3a 57 24 3d  |L..gstr(AD%):W$=|
000012e0  22 22 3a e7 20 3f 41 44  25 3c 33 32 20 8c 20 3d  |"":. ?AD%<32 . =|
000012f0  57 24 20 8b 20 f5 3a 57  24 3d 57 24 2b bd 28 3f  |W$ . .:W$=W$+.(?|
00001300  41 44 25 29 3a 41 44 25  2b 3d 31 3a fd 20 3f 41  |AD%):AD%+=1:. ?A|
00001310  44 25 3c 33 32 3a 3d 57  24 0d 04 e2 6a dd a4 67  |D%<32:=W$...j..g|
00001320  65 74 69 63 6f 6e 28 57  48 25 2c 49 43 25 29 3a  |eticon(WH%,IC%):|
00001330  21 49 43 42 4c 4b 25 3d  48 41 4e 44 25 28 57 48  |!ICBLK%=HAND%(WH|
00001340  25 29 3a 49 43 42 4c 4b  25 21 34 3d 49 43 25 3a  |%):ICBLK%!4=IC%:|
00001350  c8 99 20 22 57 69 6d 70  5f 47 65 74 49 63 6f 6e  |.. "Wimp_GetIcon|
00001360  53 74 61 74 65 22 2c 2c  49 43 42 4c 4b 25 3a 3d  |State",,ICBLK%:=|
00001370  a4 67 73 74 72 28 21 28  49 43 42 4c 4b 25 2b 32  |.gstr(!(ICBLK%+2|
00001380  38 29 29 0d 05 00 a4 dd  f2 73 65 74 69 63 6f 6e  |8))......seticon|
00001390  28 57 48 25 2c 49 43 25  2c 53 45 54 24 29 3a 21  |(WH%,IC%,SET$):!|
000013a0  49 43 42 4c 4b 25 3d 48  41 4e 44 25 28 57 48 25  |ICBLK%=HAND%(WH%|
000013b0  29 3a 49 43 42 4c 4b 25  21 34 3d 49 43 25 3a c8  |):ICBLK%!4=IC%:.|
000013c0  99 20 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |. "Wimp_GetIconS|
000013d0  74 61 74 65 22 2c 2c 49  43 42 4c 4b 25 3a 49 43  |tate",,ICBLK%:IC|
000013e0  42 4c 4b 25 21 38 3d 30  3a 49 43 42 4c 4b 25 21  |BLK%!8=0:ICBLK%!|
000013f0  31 32 3d 30 3a 24 28 49  43 42 4c 4b 25 21 32 38  |12=0:$(ICBLK%!28|
00001400  29 3d 53 45 54 24 3a c8  99 20 22 57 69 6d 70 5f  |)=SET$:.. "Wimp_|
00001410  53 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 49  |SetIconState",,I|
00001420  43 42 4c 4b 25 3a e1 0d  05 14 4f dd f2 70 6f 69  |CBLK%:....O..poi|
00001430  6e 74 3a c8 99 20 22 57  69 6d 70 5f 47 65 74 50  |nt:.. "Wimp_GetP|
00001440  6f 69 6e 74 65 72 49 6e  66 6f 22 2c 2c 50 4f 49  |ointerInfo",,POI|
00001450  25 3a 4d 4f 58 25 3d 21  50 4f 49 25 3a 4d 4f 59  |%:MOX%=!POI%:MOY|
00001460  25 3d 50 4f 49 25 21 34  3a 4d 4f 42 25 3d 50 4f  |%=POI%!4:MOB%=PO|
00001470  49 25 21 38 3a e1 0d 05  1e 13 dd f2 69 6e 6d 65  |I%!8:.......inme|
00001480  73 73 61 67 65 28 4d 25  29 0d 05 28 0b c8 8e 20  |ssage(M%)..(... |
00001490  4d 25 20 ca 0d 05 32 0c  c9 20 30 3a f2 64 69 65  |M% ...2.. 0:.die|
000014a0  0d 05 3c 2a c9 20 33 2c  35 3a e7 20 42 4c 4b 25  |..<*. 3,5:. BLK%|
000014b0  21 31 32 3d 30 20 80 20  42 4c 4b 25 21 34 30 3d  |!12=0 . BLK%!40=|
000014c0  26 35 34 46 20 f2 6c 6f  61 64 0d 05 46 07 cb 3a  |&54F .load..F..:|
000014d0  e1 0d 05 50 4b dd a4 67  65 74 6e 61 6d 65 3a 57  |...PK..getname:W|
000014e0  24 3d 22 22 3a 50 25 3d  42 4c 4b 25 2b 34 34 3a  |$="":P%=BLK%+44:|
000014f0  c8 95 20 3f 50 25 3c 3e  30 20 80 20 3f 50 25 3c  |.. ?P%<>0 . ?P%<|
00001500  3e 31 33 3a 57 24 3d 57  24 2b bd 28 3f 50 25 29  |>13:W$=W$+.(?P%)|
00001510  3a 50 25 2b 3d 31 3a ce  3a 3d 57 24 0d 05 5a 1b  |:P%+=1:.:=W$..Z.|
00001520  dd f2 6c 6f 61 64 3a e7  20 43 4c 41 49 4d 25 20  |..load:. CLAIM% |
00001530  8c 20 f2 77 69 70 65 0d  05 64 a8 41 24 3d a4 67  |. .wipe..d.A$=.g|
00001540  65 74 6e 61 6d 65 3a 42  4c 4b 25 21 31 32 3d 42  |etname:BLK%!12=B|
00001550  4c 4b 25 21 38 3a 42 4c  4b 25 21 31 36 3d 34 3a  |LK%!8:BLK%!16=4:|
00001560  21 42 4c 4b 25 3d 36 34  3a c8 99 20 22 57 69 6d  |!BLK%=64:.. "Wim|
00001570  70 5f 53 65 6e 64 4d 65  73 73 61 67 65 22 2c 31  |p_SendMessage",1|
00001580  37 2c 42 4c 4b 25 2c 42  4c 4b 25 21 34 3a e7 20  |7,BLK%,BLK%!4:. |
00001590  a7 41 24 2c 22 2e 22 29  3d 30 20 8c 20 57 54 24  |.A$,".")=0 . WT$|
000015a0  3d 41 24 20 8b 20 57 54  24 3d 22 22 3a 54 25 3d  |=A$ . WT$="":T%=|
000015b0  a9 41 24 3a c8 95 20 c1  41 24 2c 54 25 2c 31 29  |.A$:.. .A$,T%,1)|
000015c0  3c 3e 22 2e 22 3a 57 54  24 3d c1 41 24 2c 54 25  |<>".":WT$=.A$,T%|
000015d0  2c 31 29 2b 57 54 24 3a  54 25 2d 3d 31 3a ce 0d  |,1)+WT$:T%-=1:..|
000015e0  05 6e 4c 46 25 3d 8e 28  41 24 29 3a 4c 25 3d a2  |.nLF%=.(A$):L%=.|
000015f0  23 46 25 3a e3 4b 25 3d  30 20 b8 20 39 39 3a 3f  |#F%:.K%=0 . 99:?|
00001600  28 54 41 53 25 2b 31 38  30 30 2b 4b 25 29 3d 9a  |(TAS%+1800+K%)=.|
00001610  23 46 25 3a ed 3a d9 23  46 25 3a 49 4d 41 47 45  |#F%:.:.#F%:IMAGE|
00001620  25 3d 54 41 53 25 2b 31  38 30 30 0d 05 78 3c 57  |%=TAS%+1800..x<W|
00001630  57 25 3d 21 28 49 4d 41  47 45 25 2b 28 49 4d 41  |W%=!(IMAGE%+(IMA|
00001640  47 45 25 21 38 29 2b 31  36 29 3a 57 48 25 3d 21  |GE%!8)+16):WH%=!|
00001650  28 49 4d 41 47 45 25 2b  28 49 4d 41 47 45 25 21  |(IMAGE%+(IMAGE%!|
00001660  38 29 2b 32 30 29 3a 0d  05 82 39 53 49 53 25 3d  |8)+20):...9SIS%=|
00001670  28 28 57 57 25 2b 31 29  2a 34 29 2a 28 57 48 25  |((WW%+1)*4)*(WH%|
00001680  2b 31 29 3a 53 4f 25 3d  21 28 49 4d 41 47 45 25  |+1):SO%=!(IMAGE%|
00001690  2b 28 49 4d 41 47 45 25  21 38 29 2b 33 32 29 3a  |+(IMAGE%!8)+32):|
000016a0  0d 05 8c 3d 46 53 41 25  3d 49 4d 41 47 45 25 2b  |...=FSA%=IMAGE%+|
000016b0  28 49 4d 41 47 45 25 21  38 29 2b 53 4f 25 3a 44  |(IMAGE%!8)+SO%:D|
000016c0  53 41 25 3d 46 53 41 25  2b 53 49 53 25 3a 4c 4c  |SA%=FSA%+SIS%:LL|
000016d0  25 3d 4c 25 2b 53 49 53  25 2b 31 30 30 0d 05 96  |%=L%+SIS%+100...|
000016e0  82 49 4d 41 47 45 25 3d  93 3a c8 99 22 57 69 6d  |.IMAGE%=.:.."Wim|
000016f0  70 5f 53 6c 6f 74 53 69  7a 65 22 2c 41 50 53 25  |p_SlotSize",APS%|
00001700  2b 4c 4c 25 2c 2d 31 20  b8 20 41 53 4c 25 3a e7  |+LL%,-1 . ASL%:.|
00001710  20 41 53 4c 25 3c 28 41  50 53 25 2b 4c 4c 25 29  | ASL%<(APS%+LL%)|
00001720  20 8c 20 f2 73 63 72 61  70 73 6c 6f 74 3a f2 6d  | . .scrapslot:.m|
00001730  65 73 73 61 67 65 28 32  2c 22 4e 6f 74 20 65 6e  |essage(2,"Not en|
00001740  6f 75 67 68 20 6d 65 6d  6f 72 79 20 66 6f 72 20  |ough memory for |
00001750  64 65 6c 74 61 20 66 69  6c 65 2e 22 29 3a e1 0d  |delta file."):..|
00001760  05 a0 bf 43 4c 41 49 4d  25 3d b9 3a ff 28 22 2a  |...CLAIM%=.:.("*|
00001770  4c 4f 41 44 20 22 2b 41  24 2b 22 20 22 2b c3 7e  |LOAD "+A$+" "+.~|
00001780  49 4d 41 47 45 25 29 3a  57 57 25 3d 21 28 49 4d  |IMAGE%):WW%=!(IM|
00001790  41 47 45 25 2b 28 49 4d  41 47 45 25 21 38 29 2b  |AGE%+(IMAGE%!8)+|
000017a0  31 36 29 3a 57 48 25 3d  21 28 49 4d 41 47 45 25  |16):WH%=!(IMAGE%|
000017b0  2b 28 49 4d 41 47 45 25  21 38 29 2b 32 30 29 3a  |+(IMAGE%!8)+20):|
000017c0  53 49 53 25 3d 28 28 57  57 25 2b 31 29 2a 34 29  |SIS%=((WW%+1)*4)|
000017d0  2a 28 57 48 25 2b 31 29  3a 53 4f 25 3d 21 28 49  |*(WH%+1):SO%=!(I|
000017e0  4d 41 47 45 25 2b 28 49  4d 41 47 45 25 21 38 29  |MAGE%+(IMAGE%!8)|
000017f0  2b 33 32 29 3a 46 53 41  25 3d 49 4d 41 47 45 25  |+32):FSA%=IMAGE%|
00001800  2b 28 49 4d 41 47 45 25  21 38 29 2b 53 4f 25 3a  |+(IMAGE%!8)+SO%:|
00001810  44 53 41 25 3d 46 53 41  25 2b 53 49 53 25 0d 05  |DSA%=FSA%+SIS%..|
00001820  aa a8 44 49 53 50 25 3d  49 4d 41 47 45 25 2b 4c  |..DISP%=IMAGE%+L|
00001830  25 3a 21 44 49 53 50 25  3d 53 49 53 25 2b 31 30  |%:!DISP%=SIS%+10|
00001840  30 3a 44 49 53 50 25 21  34 3d 30 3a 44 49 53 50  |0:DISP%!4=0:DISP|
00001850  25 21 38 3d 31 36 3a 44  49 53 50 25 21 31 32 3d  |%!8=16:DISP%!12=|
00001860  31 36 3a c8 99 26 32 45  2c 32 36 39 2c 49 4d 41  |16:..&2E,269,IMA|
00001870  47 45 25 2c 54 41 53 25  2b 31 39 30 30 2c 39 39  |GE%,TAS%+1900,99|
00001880  2c 31 3a 53 4e 24 3d 22  22 3a 4f 25 3d 30 3a c8  |,1:SN$="":O%=0:.|
00001890  95 20 3f 28 54 41 53 25  2b 31 39 30 30 2b 4f 25  |. ?(TAS%+1900+O%|
000018a0  29 3e 30 3a 53 4e 24 3d  53 4e 24 2b bd 28 3f 28  |)>0:SN$=SN$+.(?(|
000018b0  54 41 53 25 2b 31 39 30  30 2b 4f 25 29 29 3a 4f  |TAS%+1900+O%)):O|
000018c0  25 2b 3d 31 3a ce 0d 05  b4 59 21 56 41 52 53 3d  |%+=1:....Y!VARS=|
000018d0  49 4d 41 47 45 25 3a 56  41 52 53 21 34 3d 46 53  |IMAGE%:VARS!4=FS|
000018e0  41 25 3a 56 41 52 53 21  38 3d 44 53 41 25 3a c8  |A%:VARS!8=DSA%:.|
000018f0  99 26 32 45 2c 32 39 36  2c 49 4d 41 47 45 25 2c  |.&2E,296,IMAGE%,|
00001900  53 4e 24 20 b8 20 2c 2c  2c 53 58 25 2c 53 59 25  |SN$ . ,,,SX%,SY%|
00001910  2c 2c 53 4d 25 3a 49 44  4d 4f 25 3d 53 4d 25 0d  |,,SM%:IDMO%=SM%.|
00001920  05 be b1 c8 99 26 32 45  2c 32 37 31 2c 44 49 53  |.....&2E,271,DIS|
00001930  50 25 2c 22 31 22 2c 2c  53 58 25 2c 53 59 25 2c  |P%,"1",,SX%,SY%,|
00001940  53 4d 25 3a c8 99 26 33  35 2c 53 4d 25 2c 34 20  |SM%:..&35,SM%,4 |
00001950  b8 20 2c 2c 56 25 3a 55  53 58 46 25 3d 56 25 3a  |. ,,V%:USXF%=V%:|
00001960  53 53 58 25 3d 53 58 25  3c 3c 56 25 3a c8 99 26  |SSX%=SX%<<V%:..&|
00001970  33 35 2c 2d 31 2c 34 20  b8 20 2c 2c 45 25 3a 53  |35,-1,4 . ,,E%:S|
00001980  58 25 3d 32 5e 28 56 25  2d 45 25 29 3a 21 53 43  |X%=2^(V%-E%):!SC|
00001990  41 4c 45 25 3d 53 58 25  3a 53 43 41 4c 45 25 21  |ALE%=SX%:SCALE%!|
000019a0  34 3d 31 3a 53 43 41 4c  45 25 21 38 3d 31 3a 53  |4=1:SCALE%!8=1:S|
000019b0  43 41 4c 45 25 21 31 32  3d 31 3a c8 99 26 33 35  |CALE%!12=1:..&35|
000019c0  2c 53 4d 25 2c 39 20 b8  20 2c 2c 42 49 54 53 25  |,SM%,9 . ,,BITS%|
000019d0  0d 05 c8 7f 3a 53 4f 25  3d 21 28 44 49 53 50 25  |....:SO%=!(DISP%|
000019e0  2b 28 44 49 53 50 25 21  38 29 2b 33 32 29 3a 44  |+(DISP%!8)+32):D|
000019f0  53 41 25 3d 44 49 53 50  25 2b 28 44 49 53 50 25  |SA%=DISP%+(DISP%|
00001a00  21 38 29 2b 53 4f 25 3a  56 41 52 53 21 31 32 3d  |!8)+SO%:VARS!12=|
00001a10  44 49 53 50 25 3a 56 41  52 53 21 31 36 3d 44 53  |DISP%:VARS!16=DS|
00001a20  41 25 3a 56 41 52 53 21  32 34 3d 53 49 53 25 3a  |A%:VARS!24=SIS%:|
00001a30  4e 49 25 3d 31 3a ef 34  3a f2 63 72 65 61 74 65  |NI%=1:.4:.create|
00001a40  6d 61 69 6e 3a f2 66 6f  72 63 65 64 72 61 77 0d  |main:.forcedraw.|
00001a50  05 d2 1d f2 6f 70 65 6e  6d 61 69 6e 3a 4f 50 25  |....openmain:OP%|
00001a60  3d 31 3a 46 52 45 45 5a  45 25 3d b9 0d 05 dc 05  |=1:FREEZE%=.....|
00001a70  e1 0d 05 e6 1b dd f2 63  72 65 61 74 65 6d 61 69  |.......createmai|
00001a80  6e 3a 57 25 3d 42 55 46  25 28 31 29 0d 05 f0 d3  |n:W%=BUF%(1)....|
00001a90  21 57 25 3d 31 30 30 3a  57 25 21 34 3d 31 30 30  |!W%=100:W%!4=100|
00001aa0  3a 57 25 21 38 3d 31 30  30 2b 53 53 58 25 3a 57  |:W%!8=100+SSX%:W|
00001ab0  25 21 31 32 3d 53 59 25  2a 34 3a 57 25 21 31 36  |%!12=SY%*4:W%!16|
00001ac0  3d 30 3a 57 25 21 32 30  3d 30 3a 57 25 21 32 34  |=0:W%!20=0:W%!24|
00001ad0  3d 2d 31 3a 57 25 21 32  38 3d 26 46 3a 57 25 21  |=-1:W%!28=&F:W%!|
00001ae0  33 32 3d 26 46 46 30 34  30 32 30 37 3a 57 25 21  |32=&FF040207:W%!|
00001af0  33 36 3d 26 30 43 30 31  30 33 3a 57 25 21 34 30  |36=&0C0103:W%!40|
00001b00  3d 30 3a 57 25 21 34 34  3d 30 3a 57 25 21 34 38  |=0:W%!44=0:W%!48|
00001b10  3d 53 53 58 25 3a 57 25  21 35 32 3d 28 53 59 25  |=SSX%:W%!52=(SY%|
00001b20  2a 34 29 3a 57 25 21 35  36 3d 26 31 44 3a 57 25  |*4):W%!56=&1D:W%|
00001b30  21 36 30 3d 30 3a 57 25  21 36 34 3d 31 3a 57 25  |!60=0:W%!64=1:W%|
00001b40  21 36 38 3d 26 34 30 30  30 34 3a 24 28 57 25 2b  |!68=&40004:$(W%+|
00001b50  37 32 29 3d 57 54 24 3a  57 25 21 38 34 3d 30 0d  |72)=WT$:W%!84=0.|
00001b60  05 fa 2a c8 99 22 57 69  6d 70 5f 43 72 65 61 74  |..*.."Wimp_Creat|
00001b70  65 57 69 6e 64 6f 77 22  2c 2c 57 25 20 b8 20 48  |eWindow",,W% . H|
00001b80  41 4e 44 25 28 31 29 3a  e1 0d 06 04 38 dd f2 73  |AND%(1):....8..s|
00001b90  63 72 61 70 73 6c 6f 74  3a 43 4c 41 49 4d 25 3d  |crapslot:CLAIM%=|
00001ba0  a3 3a c8 99 22 57 69 6d  70 5f 53 6c 6f 74 53 69  |.:.."Wimp_SlotSi|
00001bb0  7a 65 22 2c 41 50 53 25  2c 2d 31 3a e1 20 8b 20  |ze",APS%,-1:. . |
00001bc0  e1 0d 06 0e 19 dd f2 77  69 70 65 3a e7 20 ac 20  |.......wipe:. . |
00001bd0  43 4c 41 49 4d 25 20 8c  20 e1 0d 06 18 24 e7 20  |CLAIM% . ....$. |
00001be0  4f 50 25 3d 31 20 8c 20  21 42 4c 4b 25 3d 48 41  |OP%=1 . !BLK%=HA|
00001bf0  4e 44 25 28 31 29 3a f2  63 6c 6d 61 69 6e 0d 06  |ND%(1):.clmain..|
00001c00  22 45 f2 73 63 72 61 70  73 6c 6f 74 3a 21 42 4c  |"E.scrapslot:!BL|
00001c10  4b 25 3d 48 41 4e 44 25  28 31 29 3a c8 99 22 57  |K%=HAND%(1):.."W|
00001c20  69 6d 70 5f 44 65 6c 65  74 65 57 69 6e 64 6f 77  |imp_DeleteWindow|
00001c30  22 2c 2c 42 4c 4b 25 3a  46 52 45 45 5a 45 25 3d  |",,BLK%:FREEZE%=|
00001c40  a3 3a e1 0d 06 2c 27 dd  f2 61 73 73 3a e3 4c 25  |.:...,'..ass:.L%|
00001c50  3d 30 20 b8 20 32 20 88  20 32 3a 50 25 3d 43 44  |=0 . 2 . 2:P%=CD|
00001c60  45 25 3a 5b 4f 50 54 20  4c 25 0d 06 36 a0 2e 64  |E%:[OPT L%..6..d|
00001c70  69 73 70 64 65 6c 74 61  3a 53 54 4d 46 44 20 52  |ispdelta:STMFD R|
00001c80  31 33 21 2c 7b 52 31 34  7d 3a 4d 4f 56 20 52 31  |13!,{R14}:MOV R1|
00001c90  32 2c 52 30 3a 4c 44 52  20 52 30 2c 5b 52 31 32  |2,R0:LDR R0,[R12|
00001ca0  2c 23 32 30 5d 3a 43 4d  50 20 52 30 2c 23 31 3a  |,#20]:CMP R0,#1:|
00001cb0  42 4e 45 20 75 73 65 64  65 6c 74 61 3a 2e 69 6d  |BNE usedelta:.im|
00001cc0  61 67 65 31 3a 4c 44 52  20 52 30 2c 5b 52 31 32  |age1:LDR R0,[R12|
00001cd0  2c 23 34 5d 3a 4c 44 52  20 52 31 2c 5b 52 31 32  |,#4]:LDR R1,[R12|
00001ce0  2c 23 31 36 5d 3a 4c 44  52 20 52 32 2c 5b 52 31  |,#16]:LDR R2,[R1|
00001cf0  32 2c 23 32 34 5d 3a 4d  4f 56 20 52 33 2c 23 30  |2,#24]:MOV R3,#0|
00001d00  3a 2e 67 69 6d 61 67 65  31 3a 0d 06 40 38 4c 44  |:.gimage1:..@8LD|
00001d10  52 20 52 34 2c 5b 52 30  2c 52 33 5d 3a 53 54 52  |R R4,[R0,R3]:STR|
00001d20  20 52 34 2c 5b 52 31 2c  52 33 5d 3a 41 44 44 20  | R4,[R1,R3]:ADD |
00001d30  52 33 2c 52 33 2c 23 34  3a 43 4d 50 20 52 33 2c  |R3,R3,#4:CMP R3,|
00001d40  52 32 0d 06 4a 55 42 4c  54 20 67 69 6d 61 67 65  |R2..JUBLT gimage|
00001d50  31 3a 4d 4f 56 20 52 30  2c 23 32 3a 53 54 52 20  |1:MOV R0,#2:STR |
00001d60  52 30 2c 5b 52 31 32 2c  23 32 30 5d 3a 4d 4f 56  |R0,[R12,#20]:MOV|
00001d70  20 52 30 2c 23 30 3a 53  54 52 20 52 30 2c 5b 52  | R0,#0:STR R0,[R|
00001d80  31 32 2c 23 32 38 5d 3a  4c 44 4d 46 44 20 52 31  |12,#28]:LDMFD R1|
00001d90  33 21 2c 7b 50 43 7d 0d  06 54 56 2e 75 73 65 64  |3!,{PC}..TV.used|
00001da0  65 6c 74 61 3a 4d 4f 56  20 52 37 2c 23 30 3a 4c  |elta:MOV R7,#0:L|
00001db0  44 52 20 52 30 2c 5b 52  31 32 2c 23 31 36 5d 3a  |DR R0,[R12,#16]:|
00001dc0  4c 44 52 20 52 31 2c 5b  52 31 32 2c 23 38 5d 3a  |LDR R1,[R12,#8]:|
00001dd0  4c 44 52 20 52 32 2c 5b  52 31 32 2c 23 32 38 5d  |LDR R2,[R12,#28]|
00001de0  3a 41 44 44 20 52 31 2c  52 31 2c 52 32 0d 06 5e  |:ADD R1,R1,R2..^|
00001df0  6e 2e 70 64 65 6c 74 61  31 3a 4c 44 52 20 52 32  |n.pdelta1:LDR R2|
00001e00  2c 5b 52 31 5d 3a 4c 44  52 20 52 33 2c 5b 52 31  |,[R1]:LDR R3,[R1|
00001e10  2c 23 34 5d 3a 41 44 44  20 52 31 2c 52 31 2c 23  |,#4]:ADD R1,R1,#|
00001e20  38 3a 4d 4f 56 20 52 34  2c 23 30 3a 53 55 42 20  |8:MOV R4,#0:SUB |
00001e30  52 34 2c 52 34 2c 23 31  3a 43 4d 50 20 52 32 2c  |R4,R4,#1:CMP R2,|
00001e40  52 34 3a 42 45 51 20 66  69 6e 70 64 65 6c 74 61  |R4:BEQ finpdelta|
00001e50  3a 4d 4f 56 20 52 37 2c  23 31 3a 0d 06 68 98 41  |:MOV R7,#1:..h.A|
00001e60  44 44 20 52 34 2c 52 30  2c 52 32 3a 41 44 44 20  |DD R4,R0,R2:ADD |
00001e70  52 34 2c 52 34 2c 23 31  36 3a 4d 4f 56 20 52 35  |R4,R4,#16:MOV R5|
00001e80  2c 23 30 3a 2e 67 70 64  65 6c 74 61 32 3a 4c 44  |,#0:.gpdelta2:LD|
00001e90  52 20 52 36 2c 5b 52 31  2c 52 35 5d 3a 53 54 52  |R R6,[R1,R5]:STR|
00001ea0  20 52 36 2c 5b 52 34 2c  52 35 5d 3a 41 44 44 20  | R6,[R4,R5]:ADD |
00001eb0  52 35 2c 52 35 2c 23 34  3a 43 4d 50 20 52 35 2c  |R5,R5,#4:CMP R5,|
00001ec0  52 33 3a 42 4e 45 20 67  70 64 65 6c 74 61 32 3a  |R3:BNE gpdelta2:|
00001ed0  41 44 44 20 52 31 2c 52  31 2c 52 33 3a 41 44 44  |ADD R1,R1,R3:ADD|
00001ee0  20 52 34 2c 52 34 2c 52  33 3a 42 20 70 64 65 6c  | R4,R4,R3:B pdel|
00001ef0  74 61 31 0d 06 72 9f 2e  66 69 6e 70 64 65 6c 74  |ta1..r..finpdelt|
00001f00  61 3a 4c 44 52 20 52 33  2c 5b 52 31 5d 3a 43 4d  |a:LDR R3,[R1]:CM|
00001f10  50 20 52 33 2c 52 34 3a  42 45 51 20 77 72 61 70  |P R3,R4:BEQ wrap|
00001f20  64 65 6c 74 61 3a 4c 44  52 20 52 30 2c 5b 52 31  |delta:LDR R0,[R1|
00001f30  32 2c 23 38 5d 3a 53 55  42 20 52 31 2c 52 31 2c  |2,#8]:SUB R1,R1,|
00001f40  52 30 3a 53 54 52 20 52  31 2c 5b 52 31 32 2c 23  |R0:STR R1,[R12,#|
00001f50  32 38 5d 3a 4c 44 52 20  52 30 2c 5b 52 31 32 2c  |28]:LDR R0,[R12,|
00001f60  23 32 30 5d 3a 41 44 44  20 52 30 2c 52 30 2c 23  |#20]:ADD R0,R0,#|
00001f70  31 3a 53 54 52 20 52 30  2c 5b 52 31 32 2c 23 32  |1:STR R0,[R12,#2|
00001f80  30 5d 3a 4c 44 4d 46 44  20 52 31 33 21 2c 7b 50  |0]:LDMFD R13!,{P|
00001f90  43 7d 0d 06 7c 69 2e 77  72 61 70 64 65 6c 74 61  |C}..|i.wrapdelta|
00001fa0  3a 4d 4f 56 20 52 30 2c  23 30 3a 53 54 52 20 52  |:MOV R0,#0:STR R|
00001fb0  30 2c 5b 52 31 32 2c 23  32 38 5d 3a 4d 4f 56 20  |0,[R12,#28]:MOV |
00001fc0  52 30 2c 23 31 3a 53 54  52 20 52 30 2c 5b 52 31  |R0,#1:STR R0,[R1|
00001fd0  32 2c 23 32 30 5d 3a 43  4d 50 20 52 37 2c 23 31  |2,#20]:CMP R7,#1|
00001fe0  3a 42 4e 45 20 69 6d 61  67 65 31 3a 4c 44 4d 46  |:BNE image1:LDMF|
00001ff0  44 20 52 31 33 21 2c 7b  50 43 7d 0d 06 86 09 5d  |D R13!,{PC}....]|
00002000  3a ed 3a e1 0d ff                                 |:.:...|
00002006

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