!XHelp/!RunImage

Home » Archimedes archive » Acorn User » Acorn User - Shareware Collection (1993).adf » XHelp » !XHelp/!RunImage

!XHelp/!RunImage

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » Archimedes archive » Acorn User » Acorn User - Shareware Collection (1993).adf » XHelp
Filename:	!XHelp/!RunImage
Read OK:	✔
File size:	24DE bytes
Load address:	0000
Exec address:	0000

File contents

   10REM>IDEFS::HardDisc4.$.!SPCDirk's.!KangaKoe.!XHelp.!RunImage
   20REM squished by MH's BASIC cruncher v1.30 16/9/89 On 28 Oct 1992
   30REM
   40REM !XHelp file shower
   50REM
   60REM (c) Dirk Willem van Gulik
   70REM     Landgoed Leeuwzicht
   80REM     Lipperkerkstraat 290
   90REM     7533 RK Enschede
  100REM
  110REM     Version 1.00 Feb 1991
  120REM
  130i$="XHelper":l$="(c) Feb 1991 V 1.00":h$="<Xhelp$dir>.":DIMd% 500,o% 256,Z% 104:SYS"OS_SWINumberFromString",,"Hourglass_Percentage"TOaa%:SYS"OS_SWINumberFromString",,"Wimp_SetColour"TOv%:SYS"OS_SWINumberFromString",,"Wimp_GetRectangle"TOba%
  140SYS"OS_SWINumberFromString",,"Wimp_RedrawWindow"TOca%:SYS"OS_SWINumberFromString",,"Wimp_OpenWindow"TOG%:SYS"OS_SWINumberFromString",,"Wimp_GetWindowInfo"TOS%:SYS"OS_SWINumberFromString",,"Wimp_ForceRedraw"TO_%
  150SYS"OS_SWINumberFromString",,"Wimp_SetExtent"TOda%:SYS"Wimp_Initialise",200,&4B534154,i$
  160ea%=0:k%=40:w%=16:m$="<Xhelp$Xtext>":O%=-1:fa%=3:ga%=0:`%=7:ha%=12:ia%=7:ja%=10:ka%=7:la%=12:ma%=9:T%=7:na%=7:oa%=1:pa%=FALSE:d$="0123456789ABCDEF":SYS"Hourglass_On":m%=FALSE:ONERRORPROCE
  170PROCf:PROCg:z%=FNb(h$+"sprites"):Q%=OPENIN(h$+"templates"):IFQ%=0ERROR1,"ER2:"
  180DIMH% 200:SYS"Wimp_OpenTemplate",,h$+"templates":SYS"Wimp_LoadTemplate",,d%,H%,H%+200,-1,"info",0TO,,H%:$!(d%+108++0*32)=i$:$!(d%+108+1*32)="Displays 'Xref'ed files":$!(d%+108+3*32)=l$:SYS"Wimp_CreateWindow",,d%TOqa%
  190SYS"Wimp_LoadTemplate",,d%,H%,H%+200,-1,"main",0TO,,H%:SYS"Wimp_CreateWindow",,d%TOj%:SYS"Wimp_LoadTemplate",,d%,H%,H%+200,-1,"pane",0TO,,H%:d%!64=z%:SYS"Wimp_CreateWindow",,d%TOK%:SYS"Wimp_CloseTemplate":SYS"OS_File",255,h$+"menus",Z%,0
  200!(Z%+28+4)=qa%:PROCh:IFm%:PROCa(F%)ELSEPROCa(n%)
  210g%=0:FORI%=0TO63:o%!(I%*4)=-1:NEXT:!d%=j%:SYS"Wimp_GetWindowState",,d%:d%!28=-1:SYSG%,,d%:!d%=K%:d%!12=d%!4-4:d%!8=d%!16-292:d%!4=d%!12-76:d%!20=0:d%!24=0:d%!28=-1:SYSG%,,d%:!d%=j%:SYS"Wimp_GetWindowState",,d%:PROCc:q%=FALSE:SYS"Hourglass_Off":MOUSEON
  220ONERRORPROCE
  230REPEAT:SYS"Wimp_Poll",7601,d%TOr%:CASEr%OF
  240WHEN1:PROCi
  250WHEN2:IF!d%=j%PROCcELSESYSG%,,d%
  260WHEN3:SYS"Wimp_CloseWindow",,d%:q%=TRUE
  270WHEN6:IFd%!8=2SYS"Wimp_CreateMenu",,Z%,!d%-60,d%!4+40
  280IFd%!8=4ANDd%!12=j%PROCj
  290IFd%!8=1ANDd%!12=j%PROCk
  300IFd%!8=4ANDd%!12=K%THEN
  310CASEd%!16OF
  320WHEN2:IFm%VDU7ELSEm%=TRUE:PROCd:PROCa(F%)
  330WHEN1:IFm%PROCb:PROCa(n%)ELSEVDU7
  340WHEN3:IFm%=0PROCdELSEVDU7
  350WHEN0:PROCb
  360ENDCASE
  370SYS_%,j%,0,-1E4,1E4,,0
  380ENDIF
  390IFd%!8=1ANDd%!12=K%THEN
  400CASEd%!16OF
  410WHEN1,2:IFm%PROCb:PROCa(n%)ELSEm%=TRUE:PROCd:PROCa(F%)
  420WHEN0:IFo%!(4*g%)<>-1PROClELSEVDU7
  430WHEN3:IFo%!(4*g%)<>-1PROCbELSEVDU7
  440ENDCASE
  450SYS_%,j%,0,-1E5,1E4,,0
  460ENDIF
  470WHEN9:CASE!d%OF
  480WHEN1:SYS"OS_File",0,"printer:",,,ra%,h%-1
  490WHEN2:q%=TRUE
  500ENDCASE
  510WHEN17,18:CASEd%!16OF
  520WHEN0:q%=TRUE
  530WHEN1282:PROCm(d%)
  540ENDCASE
  550ENDCASE
  560UNTILq%:SYS"Wimp_CloseDown":END
  570DEFPROCi:IF!d%<>j%ERROR1,"ER3:"
  580SYSca%,,d%TOf%:t%=d%!4-d%!20:p%=d%!16-d%!24:!sa%=t%:!ta%=p%:VDU23,140,128,224,252,255,252,224,128,0,23,141,1,7,31,127,31,7,1,0:WHILEf%
  590IFm%THENPROCnELSEPROCo
  600SYSba%,,d%TOf%:ENDWHILE:ENDPROC
  610DEFPROCk:PROCe:IFm%THEN
  620PROCb
  630ELSE:IFFNa=0THEN
  640PROCb
  650ELSE:IFfa%<>0fa%-=1:ERROR2,"ER9:"ELSEVDU7
  660ENDIF
  670ENDIF
  680ENDPROC
  690DEFPROCj:IFd%!12<>j%ENDPROC
  700PROCe:IFm%THEN
  710PROCp
  720ELSE:PROCq
  730ENDIF
  740ENDPROC
  750DEFPROCe:X%=d%!0:Y%=d%!4:!d%=j%:SYS"Wimp_GetWindowState",,d%:t%=d%!4-d%!20:p%=d%!16-d%!24:U%=-(Y%-p%-(k%DIV2))DIVk%:ua%=(X%-t%-20)DIVw%:ENDPROC
  760DEFFNa:a%=ABS(h%!(U%*4)):s%=a%:M%=0:WHILEua%>0ANDa%<h%AND?a%>31:CASECHR$?a%OF
  770WHEN"{":CASECHR$a%?1OF
  780WHEN"�":a%+=1:M%=1:s%=a%+1
  790WHEN"�":a%+=1:M%=2:s%=a%+1
  800WHEN"!":REPEATa%+=1:UNTIL?a%=ASC"{"OR?a%<32
  810WHEN"<":REPEATa%+=1:UNTIL?a%=ASC"{"OR?a%<32
  820ENDCASE
  830WHEN"}":a%+=1:M%=0
  840OTHERWISEua%=ua%-1
  850ENDCASE
  860a%+=1:ENDWHILE:e$=MID$($s%,1,INSTR($s%,"}")-1)::=M%
  870DEFPROCq:M%=FNa:IFM%=0VDU7:ENDPROC
  880a%=!h%:n$="{�"+e$+"}":L%=0:o$="{<"+e$+"}":WHILEINSTR($a%,n$)<1ANDINSTR($a%,o$)<1ANDa%<h%:a%+=LEN$a%+1:L%+=1:ENDWHILE:IFa%>=h%ERROR2,"'"+e$+"'-"+FNT("US3:")
  890!d%=j%:SYS"Wimp_GetWindowState",,d%:g%=(g%+1)MOD64:o%!(4*g%)=(-d%!24)DIVk%:g%=(g%+1)MOD64:o%!(4*g%)=L%-1:PROCb:ENDPROC
  900DEFFNd(A%):LOCALA$:WHILE?A%>31:A$+=CHR$?A%:A%+=1:ENDWHILE:=A$
  910DEFFNc(B%):C%=d%:CALLg::=$d%
  920DEFPROCh:Q%=OPENINm$:IFQ%=0ERROR1,"ER1:"
  930L%=EXT#Q%:va%=4*INT((L%*1.2+200)/4):H%=HIMEM:SYS"Wimp_SlotSize",-1,-1TOa%:SYS"Wimp_SlotSize",a%+va%,-1:SYS"OS_Heap",0,H%,,va%:wa%=H%+va%:ra%=4*((H%+3)DIV4):N%=4*((H%+3)DIV4):h%=4*((H%+L%+3)DIV4):n%=0:F%=4:xa%=-10:REPEAT:A$=FNc(Q%):PROCr(A$,J%,c%)
  940IFN%+LENA$+1>h%ERROR1,"ER4:"
  950$N%=A$:IFh%+n%*4>wa%ERROR1,"ER5:"
  960h%!(n%*4)=N%*c%:n%+=1:N%+=LENA$+1:IFJ%>xa%xa%=LENA$
  970SYSaa%,100*PTR#Q%/L%:UNTILEOF#Q%:CLOSE#Q%:ENDPROC
  980ENDPROC
  990DEFPROCr(RETURNA$,RETURNJ%,RETURNya%):J%=LENA$:ya%=1:IFINSTR(A$,"{")<1:ENDPROC
 1000LOCALg$:WHILEINSTR(A$,"{")>0:g$+=LEFT$(A$,INSTR(A$,"{")-1):A$=MID$(A$,INSTR(A$,"{")+1):IFINSTR(A$,"}")<1ERROR1,"ER6: "+STR$n%
 1010j$=MID$(A$,INSTR(A$,"}")+1):A$=LEFT$(A$,INSTR(A$,"}")-1):CASETRUEOF
 1020WHENINSTR(A$,"!title ")=1:pa%=TRUE:k$=MID$(A$,9):J%-=LENA$-2
 1030WHENINSTR(A$,"!c ")=1:b$=MID$(A$,4):b$="XXXXXXXXXXXXXXX":IFINSTR(d$,MID$(b$,1,1))>0ga%=EVAL("&"+MID$(b$,1,1))
 1040IFINSTR(d$,MID$(b$,2,1))>0`%=EVAL("&"+MID$(b$,2,1))
 1050IFINSTR(d$,MID$(b$,3,1))>0ha%=EVAL("&"+MID$(b$,3,1))
 1060IFINSTR(d$,MID$(b$,4,1))>0ia%=EVAL("&"+MID$(b$,4,1))
 1070IFINSTR(d$,MID$(b$,5,1))>0ja%=EVAL("&"+MID$(b$,5,1))
 1080IFINSTR(d$,MID$(b$,6,1))>0ka%=EVAL("&"+MID$(b$,6,1))
 1090IFINSTR(d$,MID$(b$,7,1))>0la%=EVAL("&"+MID$(b$,7,1))
 1100IFINSTR(d$,MID$(b$,8,1))>0ma%=EVAL("&"+MID$(b$,8,1))
 1110IFINSTR(d$,MID$(b$,9,1))>0T%=EVAL("&"+MID$(b$,9,1))
 1120IFINSTR(d$,MID$(b$,8,1))>0oa%=EVAL("&"+MID$(b$,8,1))
 1130IFINSTR(d$,MID$(b$,9,1))>0na%=EVAL("&"+MID$(b$,9,1))
 1140J%-=LENA$
 1150WHENINSTR(A$,"!index ")=1:g$=g$+"{i"+MID$(A$,7)+"}"::F%+=1:ya%=-1:J%-=LENA$+2
 1160OTHERWISEg$=g$+"{"+A$+"}":J%-=3
 1170ENDCASE
 1180A$=j$:ENDWHILE:A$=g$+j$:c?1=T%:c?2=ia%:c?3=ka%:e?2=ha%:e?3=ja%:ENDPROC
 1190DEFFNb(f$):LOCALV%,l%:V%=OPENIN(f$):IFV%=0ERROR1,"ER7:"
 1200l%=EXT#V%+16:CLOSE#V%:DIMz% l%:!z%=l%:z%!4=0:z%!8=16:z%!12=16:SYS"OS_SpriteOp",266,z%,f$:=z%
 1210DEFPROCp:e%=1:a%=ABS(h%!(e%*4)):b%=ABS(h%!(u%*4)):U%-=1:REPEAT:REPEAT:a$=$a%:a%+=LENa$+1:UNTILINSTR(a$,"{i")>0ORa%>b%:U%-=1:UNTILU%=0ORa%>b%:e$=MID$(a$,INSTR(a$,"{i"),INSTR(a$,"}")-INSTR(a$,"{i")):a%=!h%:L%=0:WHILEINSTR($a%,e$)<1ANDa%<h%:a%+=LEN$a%+1:L%+=1:ENDWHILE
 1220IFINSTR($a%,e$)<1ERROR2,"'"+e$+"'- "+FNT("ER8:")
 1230SYS_%,j%,0,-1E5,1E5,,0:g%=(g%+1)MOD64:o%!(4*g%)=L%-1:PROCb:ENDPROC
 1240DEFPROCm(d%):LOCALa$:CASEd%!32OF
 1250WHENqa%:a$="H01:"
 1260WHENj%:IFm%THENa$="H02:"ELSEa$="H03:"
 1270WHENK%:CASEd%!36OF
 1280WHEN0:a$="H04:"
 1290WHEN3:IFm%THENa$="H05:"ELSEa$="H06:"
 1300WHEN1:IFm%THENa$="H07:"ELSEa$="H08:"
 1310a$+=FNT("H09:")
 1320WHEN2:IFm%THENa$="H10:"ELSEa$="H11:"
 1330a$+=FNT("H09:")
 1340ENDCASE
 1350ENDCASE
 1360IFa$<>""THEN
 1370!d%=256:d%!12=d%!8:d%!16=1283:$(d%+20)=FNT(a$)+CHR$13:SYS"Wimp_SendMessage",17,d%,d%!4
 1380ENDIF
 1390ENDPROC
 1400DEFPROCl:IFm%THENm%=0:PROCa(n%)
 1410d%!0=j%:SYSS%,,d%:d%!24=-k%*o%!(4*g%):O%=-1:SYSG%,,d%:ENDPROC
 1420DEFPROCb:IFo%!(4*g%)=-1VDU7:ENDPROC
 1430IFm%THENm%=0:PROCa(n%)
 1440d%!0=j%:SYSS%,,d%:d%!24=-k%*o%!(4*g%):O%=o%!(4*g%):o%!(4*g%)=-1:g%=(g%+63)MOD64:SYSG%,,d%:ENDPROC
 1450DEFPROCd:!d%=j%:SYSS%,,d%:g%=(g%+1)MOD64:o%!(4*g%)=(-d%!24)DIVk%:O%=-1:ENDPROC
 1460DEFPROCa(n%):!d%=j%:SYSS%,,d%:za%=d%!20:Aa%=d%!24:SYS"Wimp_CloseWindow",,d%:!d%=0:d%!4=-k%*(n%+1):d%!8=(xa%+2)*16:d%!12=0:SYSda%,j%,d%:!d%=j%:SYS"Wimp_GetWindowState",,d%:d%!20=za%:d%!24=Aa%:PROCc:ENDPROC
 1470DEFPROCc:!d%=j%:Ba%=d%!28:d%!28=K%:d%!100=K%:d%!104=d%!4-80:d%!108=d%!16-292:d%!112=d%!4-4:d%!116=d%!16:d%!120=0:d%!124=0:d%!128=Ba%:SYSG%,,d%+100:SYSG%,,d%:ENDPROC
 1490DEFFNT(t$):IFea%=0:="No message file :"+t$
 1500LOCALi%,a$:i%=W%:IFMID$(t$,4,1)<>":":=t$
 1510WHILEi%<Ca%ANDLEFT$(t$,4)<>LEFT$(a$,4):a$=$i%:i%+=LENa$+1:ENDWHILE:IFLEFT$(t$,4)<>LEFT$(a$,4):="Message '"+t$+"' not found"
 1520:=MID$(a$,5)+MID$(t$,5)
 1530DEFPROCg:Q%=OPENIN(h$+"Messages"):IFQ%=0ERROR1,"Cannot find my messages !"
 1540DIMW% EXT#Q%:Ca%=W%+EXT#Q%:SYS"OS_GBPB",3,Q%,W%,EXT#Q%,0:FORi%=W%TOCa%:IF?i%=10THEN?i%=13
 1550NEXT:CLOSE#Q%:ea%=TRUE:ENDPROC
 1560DEFPROCE:ONERROROFF
 1570!d%=ERR:CASEERROF
 1580WHEN1,2:R$=REPORT$
 1590OTHERWISE:R$="("+STR$ERR+","+STR$ERL+")"
 1600ENDCASE
 1610R$=FNT(R$):IFERR<>2THEN
 1620$(d%+4)="Internal error. "+R$+"�About�to�quit�!"+CHR$0:f%=0
 1630ELSE:$(d%+4)=FNT("WAR:")+R$+CHR$0:f%=272
 1640ENDIF
 1650SYS"Wimp_ReportError",d%,f%,i$:IFERR=2:ONERRORON:ENDPROC
 1660OSCLI"KEY1EDIT"+STR$ERL+"|M":SYS"Wimp_CreateMenu",,-1:SYS"Wimp_CloseDown":SYS"Hourglass_Smash":CLOSE#0:END
 1670PROCs:END
 1680DEFPROCf:DIMDa% 1700:FORI%=0TO2STEP2:P%=Da%:[OPT I%:.sa% EQUD0:.ta% EQUD0:.Ea% EQUD0:.x% EQUD0:.y% EQUD0:.R% EQUD0:.d CMP4,5:BEQ h:SUB9,7,6:MOV8,#w%:MUL 8,9,8:CMP5,#255:BEQ i:MOV0,5:SWI "Wimp_SetColour":MOV0,#4:SWI "OS_Plot"
 1690STMFD13!,{1-2}:MOV0,#98:MOV1,8:MOV2,#0:SUB2,2,#32:SWI "OS_Plot":LDMFD13!,{1-2}:.i MOV0,4:SWI "Wimp_SetColour":MOV0,#4:SWI "OS_Plot":STMFD13!,{1-2}:MOV0,6:MOV1,9:SWI "OS_WriteN":LDMFD13!,{1-2}
 1700ADD1,1,8:.h ADD6,7,#1:MOV PC,14:.j STMFD13!,{14}:ADR8,Ea%:LDR6,[8]:ADR8,x%:LDR1,[8]:ADR8,y%:LDR2,[8]:ADR8,sa%:LDR8,[8]:ADD1,1,8:ADR8,ta%:LDR8,[8]:ADD2,2,8:ADR8,x%:STR1,[8]:ADR8,y%:STR2,[8]:SUB6,6,#1
 1710MOV7,6:B k:.a LDRB0,[7,#1]!:CMP0,#ASC"{":BEQ l:CMP0,#ASC"}":BEQ m:CMP0,#13:BNE a:BL d:ADR8,x%:LDR1,[8]:SUB2,2,#ABSk%:ADR0,R%:LDR0,[0]:CMP0,7:BGT a:.y LDMFD13!,{14}:MOV PC,14:.l BL d:MOV8,#0:LDRB0,[7,#1]!:CMP0,#ASC"�":MOVEQ8,#2:CMP0,#ASC"�"
 1720MOVEQ8,#3:CMP0,#ASC"\":BEQ n:CMP0,#ASC"/":BEQ o:ADR9,c:LDRB4,[9,8]:ADR9,e:LDRB5,[9,8]:.z ADD6,6,#1:B a:.o SUB7,7,#1:MOV6,7:ADD7,7,#1:BL d:B a:.n ADD7,7,#1:MOV6,7:ADD7,7,#1:BL d:SUB7,7,#1:SUB6,6,#1:B a
 1730.m BL d:.k ADR9,c:LDRB4,[9,#1]:ADR9,e:LDRB5,[9,#1]:B a:.c EQUB0:EQUB7:EQUB2:EQUB3:.e EQUB0:EQUB255:EQUB6:EQUB5:.p ADR2,R%:LDR2,[2]:.q LDRB0,[1,#1]!:CMP0,#ASC"{":BEQ r:.s CMP2,1:BGT q:.r LDRB0,[1,#1]!:CMP0,#ASC"i":BNE s:ADD0,1,#1
 1740MOV PC,14:.g:SUB2,2,#1:.t SWI "OS_BGet":BCS u:STRB0,[2,#1]!:CMP0,#31:BGT t:.u SUB2,2,#1:MOV0,#13:STRB0,[2,#1]!:MOV PC,14:.v ADR3,f:LDR1,[3]:.w LDR0,[1,#4]!:CMP0,#0:BMI x:CMP1,2:BLT w:.x STR1,[3]:MOV PC,14:.f EQUD0: ]:NEXT:ENDPROC
 1750DEFPROCn:u%=n%-1:B%=h%!4:b%=h%!(u%*4):!R%=N%:MOVE16+t%,p%-16:SYSv%,T%:IFpa%THENPRINTk$ELSEPRINTFNT("US1:")
 1760SYSv%,la%:FORe%=1TOF%-4:RECTANGLEFILLt%+w%,p%-e%*k%-12,8+w%*5,-32:NEXT:SYSv%,ma%:FORe%=1TOF%-4:MOVE16+t%+w%,p%-e%*k%-16:PRINTRIGHT$("   "+STR$(e%-1),4);:NEXT:e%=1:SYSv%,`%:!f=h%:C%=h%+4*n%:D%=16+t%+8*w%:E%=p%-16
 1770REPEATA%=USR(v):IFA%<0THEN:A$=$ABSA%:WHILEINSTR(A$,"{i")>0:c$=MID$(A$,INSTR(A$,"{i")+2):A$=MID$(c$,INSTR(c$,"}")+1):c$=LEFT$(c$,INSTR(c$,"}")-1):MOVED%,E%-e%*k%:PRINTc$:e%+=1:ENDWHILE
 1780UNTIL!f>C%:IFe%=1PRINT''FNT("US2:")
 1790ENDPROC
 1800DEFPROCt:u%=n%-1:B%=h%!4:b%=h%!(u%*4):!R%=N%:MOVE16+t%,p%-16:SYSv%,T%:IFpa%THENPRINTk$ELSEPRINTFNT("US1:")
 1810SYSv%,la%:FORe%=1TOF%-4:RECTANGLEFILLt%+w%,p%-e%*k%-12,8+w%*5,-32:NEXT:SYSv%,ma%:FORe%=1TOF%-4:MOVE16+t%+w%,p%-e%*k%-16:PRINTRIGHT$("   "+STR$(e%-1),4);:NEXT:e%=1:SYSv%,`%:REPEAT:A%=USR(p):IFA%<b%THEN
 1820c$=LEFT$($A%,INSTR($A%,"}")-1):MOVE16+t%+10*w%,p%-e%*k%-16:PRINT;"  ";c$:e%+=1
 1830ENDIF
 1840B%=A%+1:UNTILB%>=b%:IFe%=1PRINT''FNT("US2:")
 1850ENDPROC
 1860DEFPROCo:e%=-(d%!40-p%)DIVk%-1:IFe%>=n%e%=n%-1
 1870IFe%<0e%=0
 1880u%=-(d%!32-p%)DIVk%+1:IFu%>=n%u%=n%-1
 1890IFu%<0u%=0
 1900a%=ABS(h%!(e%*4)):b%=ABS(h%!(u%*4)):SYSv%,na%:FORI%=0TO255STEP4:IFo%!I%>=e%ANDo%!I%<=u%:MOVEt%,p%-o%!I%*k%-26:VDU140
 1910NEXT:IFO%<>-1:MOVEt%,p%-O%*k%-26:SYSv%,oa%:VDU141
 1920!x%=20:!y%=-(e%-1)*k%-24:!Ea%=a%:!R%=b%:CALLj:ENDPROC


<�>IDEFS::HardDisc4.$.!�Dirk's.!KangaKoe.!XHelp.!RunImage
B� squished by MH's BASIC cruncher v1.30 16/9/89 On 28 Oct 1992
�
(� !XHelp file shower
2�
<� (c) Dirk Willem van Gulik
F�     Landgoed Leeuwzicht
P�     Lipperkerkstraat 290
Z�     7533 RK Enschede
d�
n�     Version 1.00 Feb 1991
x�
��i$="XHelper":l$="(c) Feb 1991 V 1.00":h$="<Xhelp$dir>.":�d% 500,o% 256,Z% 104:ș"OS_SWINumberFromString",,"Hourglass_Percentage"�aa%:ș"OS_SWINumberFromString",,"Wimp_SetColour"�v%:ș"OS_SWINumberFromString",,"Wimp_GetRectangle"�ba%
��ș"OS_SWINumberFromString",,"Wimp_RedrawWindow"�ca%:ș"OS_SWINumberFromString",,"Wimp_OpenWindow"�G%:ș"OS_SWINumberFromString",,"Wimp_GetWindowInfo"�S%:ș"OS_SWINumberFromString",,"Wimp_ForceRedraw"�_%
�Yș"OS_SWINumberFromString",,"Wimp_SetExtent"�da%:ș"Wimp_Initialise",200,&4B534154,i$
��ea%=0:k%=40:w%=16:m$="<Xhelp$Xtext>":O%=-1:fa%=3:ga%=0:`%=7:ha%=12:ia%=7:ja%=10:ka%=7:la%=12:ma%=9:T%=7:na%=7:oa%=1:pa%=�:d$="0123456789ABCDEF":ș"Hourglass_On":m%=�:��E
�A�f:�g:z%=�b(h$+"sprites"):Q%=�(h$+"templates"):�Q%=0�1,"ER2:"
���H% 200:ș"Wimp_OpenTemplate",,h$+"templates":ș"Wimp_LoadTemplate",,d%,H%,H%+200,-1,"info",0�,,H%:$!(d%+108++0*32)=i$:$!(d%+108+1*32)="Displays 'Xref'ed files":$!(d%+108+3*32)=l$:ș"Wimp_CreateWindow",,d%�qa%
��ș"Wimp_LoadTemplate",,d%,H%,H%+200,-1,"main",0�,,H%:ș"Wimp_CreateWindow",,d%�j%:ș"Wimp_LoadTemplate",,d%,H%,H%+200,-1,"pane",0�,,H%:d%!64=z%:ș"Wimp_CreateWindow",,d%�K%:ș"Wimp_CloseTemplate":ș"OS_File",255,h$+"menus",Z%,0
�'!(Z%+28+4)=qa%:�h:�m%:�a(F%)��a(n%)
��g%=0:�I%=0�63:o%!(I%*4)=-1:�:!d%=j%:ș"Wimp_GetWindowState",,d%:d%!28=-1:șG%,,d%:!d%=K%:d%!12=d%!4-4:d%!8=d%!16-292:d%!4=d%!12-76:d%!20=0:d%!24=0:d%!28=-1:șG%,,d%:!d%=j%:ș"Wimp_GetWindowState",,d%:�c:q%=�:ș"Hourglass_Off":ȗ�
���E
�$�:ș"Wimp_Poll",7601,d%�r%:Ȏr%�
�	�1:�i
��2:�!d%=j%�c�șG%,,d%
$�3:ș"Wimp_CloseWindow",,d%:q%=�
4�6:�d%!8=2ș"Wimp_CreateMenu",,Z%,!d%-60,d%!4+40
�d%!8=4�d%!12=j%�j
"�d%!8=1�d%!12=j%�k
,�d%!8=4�d%!12=K%�
6Ȏd%!16�
@�2:�m%�7�m%=�:�d:�a(F%)
J�1:�m%�b:�a(n%)��7
T�3:�m%=0�d��7
^	�0:�b
h�
rș_%,j%,0,-1E4,1E4,,0
|�
��d%!8=1�d%!12=K%�
�Ȏd%!16�
�$�1,2:�m%�b:�a(n%)�m%=�:�d:�a(F%)
��0:�o%!(4*g%)<>-1�l��7
��3:�o%!(4*g%)<>-1�b��7
��
�ș_%,j%,0,-1E5,1E4,,0
��
�
�9:Ȏ!d%�
�*�1:ș"OS_File",0,"printer:",,,ra%,h%-1
��2:q%=�
��
��17,18:Ȏd%!16�
�0:q%=�
�1282:�m(d%)
�
&�
0�q%:ș"Wimp_CloseDown":�
:��i:�!d%<>j%�1,"ER3:"
D�șca%,,d%�f%:t%=d%!4-d%!20:p%=d%!16-d%!24:!sa%=t%:!ta%=p%:�23,140,128,224,252,255,252,224,128,0,23,141,1,7,31,127,31,7,1,0:ȕf%
N
�m%��n��o
Xșba%,,d%�f%:�:�
b��k:�e:�m%�
l�b
v�:�a=0�
��b
� �:�fa%<>0fa%-=1:�2,"ER9:"��7
��
��
��
���j:�d%!12<>j%�
��e:�m%�
��p
��:�q
��
��
���e:X%=d%!0:Y%=d%!4:!d%=j%:ș"Wimp_GetWindowState",,d%:t%=d%!4-d%!20:p%=d%!16-d%!24:U%=-(Y%-p%-(k%�2))�k%:ua%=(X%-t%-20)�w%:�
�?ݤa:a%=�(h%!(U%*4)):s%=a%:M%=0:ȕua%>0�a%<h%�?a%>31:Ȏ�?a%�
�"{":Ȏ�a%?1�
�"�":a%+=1:M%=1:s%=a%+1
�"�":a%+=1:M%=2:s%=a%+1
  �"!":�a%+=1:�?a%=�"{"�?a%<32
* �"<":�a%+=1:�?a%=�"{"�?a%<32
4�
>�"}":a%+=1:M%=0
Hua%=ua%-1
R�
\'a%+=1:�:e$=�$s%,1,�$s%,"}")-1)::=M%
f��q:M%=�a:�M%=0�7:�
pa%=!h%:n$="{�"+e$+"}":L%=0:o$="{<"+e$+"}":ȕ�$a%,n$)<1��$a%,o$)<1�a%<h%:a%+=�$a%+1:L%+=1:�:�a%>=h%�2,"'"+e$+"'-"+�T("US3:")
zj!d%=j%:ș"Wimp_GetWindowState",,d%:g%=(g%+1)�64:o%!(4*g%)=(-d%!24)�k%:g%=(g%+1)�64:o%!(4*g%)=L%-1:�b:�
�-ݤd(A%):�A$:ȕ?A%>31:A$+=�?A%:A%+=1:�:=A$
�ݤc(B%):C%=d%:�g::=$d%
���h:Q%=�m$:�Q%=0�1,"ER1:"
��L%=�#Q%:va%=4*�((L%*1.2+200)/4):H%=�:ș"Wimp_SlotSize",-1,-1�a%:ș"Wimp_SlotSize",a%+va%,-1:ș"OS_Heap",0,H%,,va%:wa%=H%+va%:ra%=4*((H%+3)�4):N%=4*((H%+3)�4):h%=4*((H%+L%+3)�4):n%=0:F%=4:xa%=-10:�:A$=�c(Q%):�r(A$,J%,c%)
��N%+�A$+1>h%�1,"ER4:"
� $N%=A$:�h%+n%*4>wa%�1,"ER5:"
�2h%!(n%*4)=N%*c%:n%+=1:N%+=�A$+1:�J%>xa%xa%=�A$
�"șaa%,100*�#Q%/L%:��#Q%:�#Q%:�
��
�0��r(�A$,�J%,�ya%):J%=�A$:ya%=1:�A$,"{")<1:�
�U�g$:ȕ�A$,"{")>0:g$+=�A$,�A$,"{")-1):A$=�A$,�A$,"{")+1):�A$,"}")<1�1,"ER6: "+�n%
�.j$=�A$,�A$,"}")+1):A$=�A$,�A$,"}")-1):Ȏ��
�/ɧA$,"!title ")=1:pa%=�:k$=�A$,9):J%-=�A$-2
TɧA$,"!c ")=1:b$=�A$,4):b$="XXXXXXXXXXXXXXX":�d$,�b$,1,1))>0ga%=�("&"+�b$,1,1))
&�d$,�b$,2,1))>0`%=�("&"+�b$,2,1))
'�d$,�b$,3,1))>0ha%=�("&"+�b$,3,1))
$'�d$,�b$,4,1))>0ia%=�("&"+�b$,4,1))
.'�d$,�b$,5,1))>0ja%=�("&"+�b$,5,1))
8'�d$,�b$,6,1))>0ka%=�("&"+�b$,6,1))
B'�d$,�b$,7,1))>0la%=�("&"+�b$,7,1))
L'�d$,�b$,8,1))>0ma%=�("&"+�b$,8,1))
V&�d$,�b$,9,1))>0T%=�("&"+�b$,9,1))
`'�d$,�b$,8,1))>0oa%=�("&"+�b$,8,1))
j'�d$,�b$,9,1))>0na%=�("&"+�b$,9,1))
tJ%-=�A$
~CɧA$,"!index ")=1:g$=g$+"{i"+�A$,7)+"}"::F%+=1:ya%=-1:J%-=�A$+2
�g$=g$+"{"+A$+"}":J%-=3
��
�=A$=j$:�:A$=g$+j$:c?1=T%:c?2=ia%:c?3=ka%:e?2=ha%:e?3=ja%:�
�*ݤb(f$):�V%,l%:V%=�(f$):�V%=0�1,"ER7:"
�Wl%=�#V%+16:�#V%:�z% l%:!z%=l%:z%!4=0:z%!8=16:z%!12=16:ș"OS_SpriteOp",266,z%,f$:=z%
����p:e%=1:a%=�(h%!(e%*4)):b%=�(h%!(u%*4)):U%-=1:�:�:a$=$a%:a%+=�a$+1:��a$,"{i")>0�a%>b%:U%-=1:�U%=0�a%>b%:e$=�a$,�a$,"{i"),�a$,"}")-�a$,"{i")):a%=!h%:L%=0:ȕ�$a%,e$)<1�a%<h%:a%+=�$a%+1:L%+=1:�
�)�$a%,e$)<1�2,"'"+e$+"'- "+�T("ER8:")
�:ș_%,j%,0,-1E5,1E5,,0:g%=(g%+1)�64:o%!(4*g%)=L%-1:�b:�
���m(d%):�a$:Ȏd%!32�
��qa%:a$="H01:"
��j%:�m%�a$="H02:"�a$="H03:"
��K%:Ȏd%!36�
�0:a$="H04:"

�3:�m%�a$="H05:"�a$="H06:"
�1:�m%�a$="H07:"�a$="H08:"
a$+=�T("H09:")
(�2:�m%�a$="H10:"�a$="H11:"
2a$+=�T("H09:")
<�
F�
P�a$<>""�
ZU!d%=256:d%!12=d%!8:d%!16=1283:$(d%+20)=�T(a$)+�13:ș"Wimp_SendMessage",17,d%,d%!4
d�
n�
x��l:�m%�m%=0:�a(n%)
�9d%!0=j%:șS%,,d%:d%!24=-k%*o%!(4*g%):O%=-1:șG%,,d%:�
���b:�o%!(4*g%)=-1�7:�
��m%�m%=0:�a(n%)
�[d%!0=j%:șS%,,d%:d%!24=-k%*o%!(4*g%):O%=o%!(4*g%):o%!(4*g%)=-1:g%=(g%+63)�64:șG%,,d%:�
�B��d:!d%=j%:șS%,,d%:g%=(g%+1)�64:o%!(4*g%)=(-d%!24)�k%:O%=-1:�
����a(n%):!d%=j%:șS%,,d%:za%=d%!20:Aa%=d%!24:ș"Wimp_CloseWindow",,d%:!d%=0:d%!4=-k%*(n%+1):d%!8=(xa%+2)*16:d%!12=0:șda%,j%,d%:!d%=j%:ș"Wimp_GetWindowState",,d%:d%!20=za%:d%!24=Aa%:�c:�
����c:!d%=j%:Ba%=d%!28:d%!28=K%:d%!100=K%:d%!104=d%!4-80:d%!108=d%!16-292:d%!112=d%!4-4:d%!116=d%!16:d%!120=0:d%!124=0:d%!128=Ba%:șG%,,d%+100:șG%,,d%:�
�*ݤT(t$):�ea%=0:="No message file :"+t$
�#�i%,a$:i%=W%:�t$,4,1)<>":":=t$
�\ȕi%<Ca%��t$,4)<>�a$,4):a$=$i%:i%+=�a$+1:�:�t$,4)<>�a$,4):="Message '"+t$+"' not found"
�:=�a$,5)+�t$,5)
�?��g:Q%=�(h$+"Messages"):�Q%=0�1,"Cannot find my messages !"
M�W% �#Q%:Ca%=W%+�#Q%:ș"OS_GBPB",3,Q%,W%,�#Q%,0:�i%=W%�Ca%:�?i%=10�?i%=13
�:�#Q%:ea%=�:�
��E:
"!d%=�:Ȏ��
,�1,2:R$=�$
6:R$="("+ß+","+Þ+")"
@�
JR$=�T(R$):�<>2�
T<$(d%+4)="Internal error. "+R$+"�About�to�quit�!"+�0:f%=0
^%�:$(d%+4)=�T("WAR:")+R$+�0:f%=272
h�
r,ș"Wimp_ReportError",d%,f%,i$:�=2:��:�
|\�"KEY1EDIT"+Þ+"|M":ș"Wimp_CreateMenu",,-1:ș"Wimp_CloseDown":ș"Hourglass_Smash":�#0:�
��s:�
����f:�Da% 1700:�I%=0�2�2:P%=Da%:[OPT I%:.sa% EQUD0:.ta% EQUD0:.Ea% EQUD0:.x% EQUD0:.y% EQUD0:.R% EQUD0:.d CMP4,5:BEQ h:SUB9,7,6:MOV8,#w%:MUL 8,9,8:CMP5,#255:BEQ i:MOV0,5:SWI "Wimp_SetColour":MOV0,#4:SWI "OS_Plot"
��STMFD13!,{1-2}:MOV0,#98:MOV1,8:MOV2,#0:SUB2,2,#32:SWI "OS_Plot":LDMFD13!,{1-2}:.i MOV0,4:SWI "Wimp_SetColour":MOV0,#4:SWI "OS_Plot":STMFD13!,{1-2}:MOV0,6:MOV1,9:SWI "OS_WriteN":LDMFD13!,{1-2}
��ADD1,1,8:.h ADD6,7,#1:MOV PC,14:.j STMFD13!,{14}:ADR8,Ea%:LDR6,[8]:ADR8,x%:LDR1,[8]:ADR8,y%:LDR2,[8]:ADR8,sa%:LDR8,[8]:ADD1,1,8:ADR8,ta%:LDR8,[8]:ADD2,2,8:ADR8,x%:STR1,[8]:ADR8,y%:STR2,[8]:SUB6,6,#1
��MOV7,6:B k:.a LDRB0,[7,#1]!:CMP0,#�"{":BEQ l:CMP0,#�"}":BEQ m:CMP0,#13:BNE a:BL d:ADR8,x%:LDR1,[8]:SUB2,2,#�k%:ADR0,R%:LDR0,[0]:CMP0,7:BGT a:.y LDMFD13!,{14}:MOV PC,14:.l BL d:MOV8,#0:LDRB0,[7,#1]!:CMP0,#�"�":�Q8,#2:CMP0,#�"�"
���Q8,#3:CMP0,#�"\":BEQ n:CMP0,#�"/":BEQ o:ADR9,c:LDRB4,[9,8]:ADR9,e:LDRB5,[9,8]:.z ADD6,6,#1:B a:.o SUB7,7,#1:MOV6,7:ADD7,7,#1:BL d:B a:.n ADD7,7,#1:MOV6,7:ADD7,7,#1:BL d:SUB7,7,#1:SUB6,6,#1:B a
��.m BL d:.k ADR9,c:LDRB4,[9,#1]:ADR9,e:LDRB5,[9,#1]:B a:.c EQUB0:EQUB7:EQUB2:EQUB3:.e EQUB0:EQUB255:EQUB6:EQUB5:.p ADR2,R%:LDR2,[2]:.q LDRB0,[1,#1]!:CMP0,#�"{":BEQ r:.s CMP2,1:BGT q:.r LDRB0,[1,#1]!:CMP0,#�"i":BNE s:ADD0,1,#1
��MOV PC,14:.g:SUB2,2,#1:.t SWI "OS_BGet":BCS u:STRB0,[2,#1]!:CMP0,#31:BGT t:.u SUB2,2,#1:MOV0,#13:STRB0,[2,#1]!:MOV PC,14:.v ADR3,f:LDR1,[3]:.w LDR0,[1,#4]!:CMP0,#0:BMI x:CMP1,2:BLT w:.x STR1,[3]:MOV PC,14:.f EQUD0: ]:�:�
�U��n:u%=n%-1:B%=h%!4:b%=h%!(u%*4):!R%=N%:�16+t%,p%-16:șv%,T%:�pa%��k$��T("US1:")
�șv%,la%:�e%=1�F%-4:ȓȐt%+w%,p%-e%*k%-12,8+w%*5,-32:�:șv%,ma%:�e%=1�F%-4:�16+t%+w%,p%-e%*k%-16:��"   "+�(e%-1),4);:�:e%=1:șv%,`%:!f=h%:C%=h%+4*n%:D%=16+t%+8*w%:E%=p%-16
�|�A%=�(v):�A%<0�:A$=$�A%:ȕ�A$,"{i")>0:c$=�A$,�A$,"{i")+2):A$=�c$,�c$,"}")+1):c$=�c$,�c$,"}")-1):�D%,E%-e%*k%:�c$:e%+=1:�
��!f>C%:�e%=1�''�T("US2:")
��
U��t:u%=n%-1:B%=h%!4:b%=h%!(u%*4):!R%=N%:�16+t%,p%-16:șv%,T%:�pa%��k$��T("US1:")
�șv%,la%:�e%=1�F%-4:ȓȐt%+w%,p%-e%*k%-12,8+w%*5,-32:�:șv%,ma%:�e%=1�F%-4:�16+t%+w%,p%-e%*k%-16:��"   "+�(e%-1),4);:�:e%=1:șv%,`%:�:A%=�(p):�A%<b%�
Ac$=�$A%,�$A%,"}")-1):�16+t%+10*w%,p%-e%*k%-16:�;"  ";c$:e%+=1
&�
0&B%=A%+1:�B%>=b%:�e%=1�''�T("US2:")
:�
D*��o:e%=-(d%!40-p%)�k%-1:�e%>=n%e%=n%-1
N
�e%<0e%=0
X&u%=-(d%!32-p%)�k%+1:�u%>=n%u%=n%-1
b
�u%<0u%=0
lea%=�(h%!(e%*4)):b%=�(h%!(u%*4)):șv%,na%:�I%=0�255�4:�o%!I%>=e%�o%!I%<=u%:�t%,p%-o%!I%*k%-26:�140
v+�:�O%<>-1:�t%,p%-O%*k%-26:șv%,oa%:�141
�0!x%=20:!y%=-(e%-1)*k%-24:!Ea%=a%:!R%=b%:�j:�
�

00000000  0d 00 0a 3c f4 3e 49 44  45 46 53 3a 3a 48 61 72  |...<.>IDEFS::Har|
00000010  64 44 69 73 63 34 2e 24  2e 21 89 44 69 72 6b 27  |dDisc4.$.!.Dirk'|
00000020  73 2e 21 4b 61 6e 67 61  4b 6f 65 2e 21 58 48 65  |s.!KangaKoe.!XHe|
00000030  6c 70 2e 21 52 75 6e 49  6d 61 67 65 0d 00 14 42  |lp.!RunImage...B|
00000040  f4 20 73 71 75 69 73 68  65 64 20 62 79 20 4d 48  |. squished by MH|
00000050  27 73 20 42 41 53 49 43  20 63 72 75 6e 63 68 65  |'s BASIC crunche|
00000060  72 20 76 31 2e 33 30 20  31 36 2f 39 2f 38 39 20  |r v1.30 16/9/89 |
00000070  4f 6e 20 32 38 20 4f 63  74 20 31 39 39 32 0d 00  |On 28 Oct 1992..|
00000080  1e 05 f4 0d 00 28 18 f4  20 21 58 48 65 6c 70 20  |.....(.. !XHelp |
00000090  66 69 6c 65 20 73 68 6f  77 65 72 0d 00 32 05 f4  |file shower..2..|
000000a0  0d 00 3c 1f f4 20 28 63  29 20 44 69 72 6b 20 57  |..<.. (c) Dirk W|
000000b0  69 6c 6c 65 6d 20 76 61  6e 20 47 75 6c 69 6b 0d  |illem van Gulik.|
000000c0  00 46 1d f4 20 20 20 20  20 4c 61 6e 64 67 6f 65  |.F..     Landgoe|
000000d0  64 20 4c 65 65 75 77 7a  69 63 68 74 0d 00 50 1e  |d Leeuwzicht..P.|
000000e0  f4 20 20 20 20 20 4c 69  70 70 65 72 6b 65 72 6b  |.     Lipperkerk|
000000f0  73 74 72 61 61 74 20 32  39 30 0d 00 5a 1a f4 20  |straat 290..Z.. |
00000100  20 20 20 20 37 35 33 33  20 52 4b 20 45 6e 73 63  |    7533 RK Ensc|
00000110  68 65 64 65 0d 00 64 05  f4 0d 00 6e 1f f4 20 20  |hede..d....n..  |
00000120  20 20 20 56 65 72 73 69  6f 6e 20 31 2e 30 30 20  |   Version 1.00 |
00000130  46 65 62 20 31 39 39 31  0d 00 78 05 f4 0d 00 82  |Feb 1991..x.....|
00000140  ec 69 24 3d 22 58 48 65  6c 70 65 72 22 3a 6c 24  |.i$="XHelper":l$|
00000150  3d 22 28 63 29 20 46 65  62 20 31 39 39 31 20 56  |="(c) Feb 1991 V|
00000160  20 31 2e 30 30 22 3a 68  24 3d 22 3c 58 68 65 6c  | 1.00":h$="<Xhel|
00000170  70 24 64 69 72 3e 2e 22  3a de 64 25 20 35 30 30  |p$dir>.":.d% 500|
00000180  2c 6f 25 20 32 35 36 2c  5a 25 20 31 30 34 3a c8  |,o% 256,Z% 104:.|
00000190  99 22 4f 53 5f 53 57 49  4e 75 6d 62 65 72 46 72  |."OS_SWINumberFr|
000001a0  6f 6d 53 74 72 69 6e 67  22 2c 2c 22 48 6f 75 72  |omString",,"Hour|
000001b0  67 6c 61 73 73 5f 50 65  72 63 65 6e 74 61 67 65  |glass_Percentage|
000001c0  22 b8 61 61 25 3a c8 99  22 4f 53 5f 53 57 49 4e  |".aa%:.."OS_SWIN|
000001d0  75 6d 62 65 72 46 72 6f  6d 53 74 72 69 6e 67 22  |umberFromString"|
000001e0  2c 2c 22 57 69 6d 70 5f  53 65 74 43 6f 6c 6f 75  |,,"Wimp_SetColou|
000001f0  72 22 b8 76 25 3a c8 99  22 4f 53 5f 53 57 49 4e  |r".v%:.."OS_SWIN|
00000200  75 6d 62 65 72 46 72 6f  6d 53 74 72 69 6e 67 22  |umberFromString"|
00000210  2c 2c 22 57 69 6d 70 5f  47 65 74 52 65 63 74 61  |,,"Wimp_GetRecta|
00000220  6e 67 6c 65 22 b8 62 61  25 0d 00 8c ce c8 99 22  |ngle".ba%......"|
00000230  4f 53 5f 53 57 49 4e 75  6d 62 65 72 46 72 6f 6d  |OS_SWINumberFrom|
00000240  53 74 72 69 6e 67 22 2c  2c 22 57 69 6d 70 5f 52  |String",,"Wimp_R|
00000250  65 64 72 61 77 57 69 6e  64 6f 77 22 b8 63 61 25  |edrawWindow".ca%|
00000260  3a c8 99 22 4f 53 5f 53  57 49 4e 75 6d 62 65 72  |:.."OS_SWINumber|
00000270  46 72 6f 6d 53 74 72 69  6e 67 22 2c 2c 22 57 69  |FromString",,"Wi|
00000280  6d 70 5f 4f 70 65 6e 57  69 6e 64 6f 77 22 b8 47  |mp_OpenWindow".G|
00000290  25 3a c8 99 22 4f 53 5f  53 57 49 4e 75 6d 62 65  |%:.."OS_SWINumbe|
000002a0  72 46 72 6f 6d 53 74 72  69 6e 67 22 2c 2c 22 57  |rFromString",,"W|
000002b0  69 6d 70 5f 47 65 74 57  69 6e 64 6f 77 49 6e 66  |imp_GetWindowInf|
000002c0  6f 22 b8 53 25 3a c8 99  22 4f 53 5f 53 57 49 4e  |o".S%:.."OS_SWIN|
000002d0  75 6d 62 65 72 46 72 6f  6d 53 74 72 69 6e 67 22  |umberFromString"|
000002e0  2c 2c 22 57 69 6d 70 5f  46 6f 72 63 65 52 65 64  |,,"Wimp_ForceRed|
000002f0  72 61 77 22 b8 5f 25 0d  00 96 59 c8 99 22 4f 53  |raw"._%...Y.."OS|
00000300  5f 53 57 49 4e 75 6d 62  65 72 46 72 6f 6d 53 74  |_SWINumberFromSt|
00000310  72 69 6e 67 22 2c 2c 22  57 69 6d 70 5f 53 65 74  |ring",,"Wimp_Set|
00000320  45 78 74 65 6e 74 22 b8  64 61 25 3a c8 99 22 57  |Extent".da%:.."W|
00000330  69 6d 70 5f 49 6e 69 74  69 61 6c 69 73 65 22 2c  |imp_Initialise",|
00000340  32 30 30 2c 26 34 42 35  33 34 31 35 34 2c 69 24  |200,&4B534154,i$|
00000350  0d 00 a0 ae 65 61 25 3d  30 3a 6b 25 3d 34 30 3a  |....ea%=0:k%=40:|
00000360  77 25 3d 31 36 3a 6d 24  3d 22 3c 58 68 65 6c 70  |w%=16:m$="<Xhelp|
00000370  24 58 74 65 78 74 3e 22  3a 4f 25 3d 2d 31 3a 66  |$Xtext>":O%=-1:f|
00000380  61 25 3d 33 3a 67 61 25  3d 30 3a 60 25 3d 37 3a  |a%=3:ga%=0:`%=7:|
00000390  68 61 25 3d 31 32 3a 69  61 25 3d 37 3a 6a 61 25  |ha%=12:ia%=7:ja%|
000003a0  3d 31 30 3a 6b 61 25 3d  37 3a 6c 61 25 3d 31 32  |=10:ka%=7:la%=12|
000003b0  3a 6d 61 25 3d 39 3a 54  25 3d 37 3a 6e 61 25 3d  |:ma%=9:T%=7:na%=|
000003c0  37 3a 6f 61 25 3d 31 3a  70 61 25 3d a3 3a 64 24  |7:oa%=1:pa%=.:d$|
000003d0  3d 22 30 31 32 33 34 35  36 37 38 39 41 42 43 44  |="0123456789ABCD|
000003e0  45 46 22 3a c8 99 22 48  6f 75 72 67 6c 61 73 73  |EF":.."Hourglass|
000003f0  5f 4f 6e 22 3a 6d 25 3d  a3 3a ee 85 f2 45 0d 00  |_On":m%=.:...E..|
00000400  aa 41 f2 66 3a f2 67 3a  7a 25 3d a4 62 28 68 24  |.A.f:.g:z%=.b(h$|
00000410  2b 22 73 70 72 69 74 65  73 22 29 3a 51 25 3d 8e  |+"sprites"):Q%=.|
00000420  28 68 24 2b 22 74 65 6d  70 6c 61 74 65 73 22 29  |(h$+"templates")|
00000430  3a e7 51 25 3d 30 85 31  2c 22 45 52 32 3a 22 0d  |:.Q%=0.1,"ER2:".|
00000440  00 b4 d5 de 48 25 20 32  30 30 3a c8 99 22 57 69  |....H% 200:.."Wi|
00000450  6d 70 5f 4f 70 65 6e 54  65 6d 70 6c 61 74 65 22  |mp_OpenTemplate"|
00000460  2c 2c 68 24 2b 22 74 65  6d 70 6c 61 74 65 73 22  |,,h$+"templates"|
00000470  3a c8 99 22 57 69 6d 70  5f 4c 6f 61 64 54 65 6d  |:.."Wimp_LoadTem|
00000480  70 6c 61 74 65 22 2c 2c  64 25 2c 48 25 2c 48 25  |plate",,d%,H%,H%|
00000490  2b 32 30 30 2c 2d 31 2c  22 69 6e 66 6f 22 2c 30  |+200,-1,"info",0|
000004a0  b8 2c 2c 48 25 3a 24 21  28 64 25 2b 31 30 38 2b  |.,,H%:$!(d%+108+|
000004b0  2b 30 2a 33 32 29 3d 69  24 3a 24 21 28 64 25 2b  |+0*32)=i$:$!(d%+|
000004c0  31 30 38 2b 31 2a 33 32  29 3d 22 44 69 73 70 6c  |108+1*32)="Displ|
000004d0  61 79 73 20 27 58 72 65  66 27 65 64 20 66 69 6c  |ays 'Xref'ed fil|
000004e0  65 73 22 3a 24 21 28 64  25 2b 31 30 38 2b 33 2a  |es":$!(d%+108+3*|
000004f0  33 32 29 3d 6c 24 3a c8  99 22 57 69 6d 70 5f 43  |32)=l$:.."Wimp_C|
00000500  72 65 61 74 65 57 69 6e  64 6f 77 22 2c 2c 64 25  |reateWindow",,d%|
00000510  b8 71 61 25 0d 00 be e7  c8 99 22 57 69 6d 70 5f  |.qa%......"Wimp_|
00000520  4c 6f 61 64 54 65 6d 70  6c 61 74 65 22 2c 2c 64  |LoadTemplate",,d|
00000530  25 2c 48 25 2c 48 25 2b  32 30 30 2c 2d 31 2c 22  |%,H%,H%+200,-1,"|
00000540  6d 61 69 6e 22 2c 30 b8  2c 2c 48 25 3a c8 99 22  |main",0.,,H%:.."|
00000550  57 69 6d 70 5f 43 72 65  61 74 65 57 69 6e 64 6f  |Wimp_CreateWindo|
00000560  77 22 2c 2c 64 25 b8 6a  25 3a c8 99 22 57 69 6d  |w",,d%.j%:.."Wim|
00000570  70 5f 4c 6f 61 64 54 65  6d 70 6c 61 74 65 22 2c  |p_LoadTemplate",|
00000580  2c 64 25 2c 48 25 2c 48  25 2b 32 30 30 2c 2d 31  |,d%,H%,H%+200,-1|
00000590  2c 22 70 61 6e 65 22 2c  30 b8 2c 2c 48 25 3a 64  |,"pane",0.,,H%:d|
000005a0  25 21 36 34 3d 7a 25 3a  c8 99 22 57 69 6d 70 5f  |%!64=z%:.."Wimp_|
000005b0  43 72 65 61 74 65 57 69  6e 64 6f 77 22 2c 2c 64  |CreateWindow",,d|
000005c0  25 b8 4b 25 3a c8 99 22  57 69 6d 70 5f 43 6c 6f  |%.K%:.."Wimp_Clo|
000005d0  73 65 54 65 6d 70 6c 61  74 65 22 3a c8 99 22 4f  |seTemplate":.."O|
000005e0  53 5f 46 69 6c 65 22 2c  32 35 35 2c 68 24 2b 22  |S_File",255,h$+"|
000005f0  6d 65 6e 75 73 22 2c 5a  25 2c 30 0d 00 c8 27 21  |menus",Z%,0...'!|
00000600  28 5a 25 2b 32 38 2b 34  29 3d 71 61 25 3a f2 68  |(Z%+28+4)=qa%:.h|
00000610  3a e7 6d 25 3a f2 61 28  46 25 29 8b f2 61 28 6e  |:.m%:.a(F%)..a(n|
00000620  25 29 0d 00 d2 e9 67 25  3d 30 3a e3 49 25 3d 30  |%)....g%=0:.I%=0|
00000630  b8 36 33 3a 6f 25 21 28  49 25 2a 34 29 3d 2d 31  |.63:o%!(I%*4)=-1|
00000640  3a ed 3a 21 64 25 3d 6a  25 3a c8 99 22 57 69 6d  |:.:!d%=j%:.."Wim|
00000650  70 5f 47 65 74 57 69 6e  64 6f 77 53 74 61 74 65  |p_GetWindowState|
00000660  22 2c 2c 64 25 3a 64 25  21 32 38 3d 2d 31 3a c8  |",,d%:d%!28=-1:.|
00000670  99 47 25 2c 2c 64 25 3a  21 64 25 3d 4b 25 3a 64  |.G%,,d%:!d%=K%:d|
00000680  25 21 31 32 3d 64 25 21  34 2d 34 3a 64 25 21 38  |%!12=d%!4-4:d%!8|
00000690  3d 64 25 21 31 36 2d 32  39 32 3a 64 25 21 34 3d  |=d%!16-292:d%!4=|
000006a0  64 25 21 31 32 2d 37 36  3a 64 25 21 32 30 3d 30  |d%!12-76:d%!20=0|
000006b0  3a 64 25 21 32 34 3d 30  3a 64 25 21 32 38 3d 2d  |:d%!24=0:d%!28=-|
000006c0  31 3a c8 99 47 25 2c 2c  64 25 3a 21 64 25 3d 6a  |1:..G%,,d%:!d%=j|
000006d0  25 3a c8 99 22 57 69 6d  70 5f 47 65 74 57 69 6e  |%:.."Wimp_GetWin|
000006e0  64 6f 77 53 74 61 74 65  22 2c 2c 64 25 3a f2 63  |dowState",,d%:.c|
000006f0  3a 71 25 3d a3 3a c8 99  22 48 6f 75 72 67 6c 61  |:q%=.:.."Hourgla|
00000700  73 73 5f 4f 66 66 22 3a  c8 97 ee 0d 00 dc 08 ee  |ss_Off":........|
00000710  85 f2 45 0d 00 e6 24 f5  3a c8 99 22 57 69 6d 70  |..E...$.:.."Wimp|
00000720  5f 50 6f 6c 6c 22 2c 37  36 30 31 2c 64 25 b8 72  |_Poll",7601,d%.r|
00000730  25 3a c8 8e 72 25 ca 0d  00 f0 09 c9 31 3a f2 69  |%:..r%......1:.i|
00000740  0d 00 fa 19 c9 32 3a e7  21 64 25 3d 6a 25 f2 63  |.....2:.!d%=j%.c|
00000750  8b c8 99 47 25 2c 2c 64  25 0d 01 04 24 c9 33 3a  |...G%,,d%...$.3:|
00000760  c8 99 22 57 69 6d 70 5f  43 6c 6f 73 65 57 69 6e  |.."Wimp_CloseWin|
00000770  64 6f 77 22 2c 2c 64 25  3a 71 25 3d b9 0d 01 0e  |dow",,d%:q%=....|
00000780  34 c9 36 3a e7 64 25 21  38 3d 32 c8 99 22 57 69  |4.6:.d%!8=2.."Wi|
00000790  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |mp_CreateMenu",,|
000007a0  5a 25 2c 21 64 25 2d 36  30 2c 64 25 21 34 2b 34  |Z%,!d%-60,d%!4+4|
000007b0  30 0d 01 18 16 e7 64 25  21 38 3d 34 80 64 25 21  |0.....d%!8=4.d%!|
000007c0  31 32 3d 6a 25 f2 6a 0d  01 22 16 e7 64 25 21 38  |12=j%.j.."..d%!8|
000007d0  3d 31 80 64 25 21 31 32  3d 6a 25 f2 6b 0d 01 2c  |=1.d%!12=j%.k..,|
000007e0  15 e7 64 25 21 38 3d 34  80 64 25 21 31 32 3d 4b  |..d%!8=4.d%!12=K|
000007f0  25 8c 0d 01 36 0c c8 8e  64 25 21 31 36 ca 0d 01  |%...6...d%!16...|
00000800  40 1b c9 32 3a e7 6d 25  ef 37 8b 6d 25 3d b9 3a  |@..2:.m%.7.m%=.:|
00000810  f2 64 3a f2 61 28 46 25  29 0d 01 4a 16 c9 31 3a  |.d:.a(F%)..J..1:|
00000820  e7 6d 25 f2 62 3a f2 61  28 6e 25 29 8b ef 37 0d  |.m%.b:.a(n%)..7.|
00000830  01 54 11 c9 33 3a e7 6d  25 3d 30 f2 64 8b ef 37  |.T..3:.m%=0.d..7|
00000840  0d 01 5e 09 c9 30 3a f2  62 0d 01 68 05 cb 0d 01  |..^..0:.b..h....|
00000850  72 19 c8 99 5f 25 2c 6a  25 2c 30 2c 2d 31 45 34  |r..._%,j%,0,-1E4|
00000860  2c 31 45 34 2c 2c 30 0d  01 7c 05 cd 0d 01 86 15  |,1E4,,0..|......|
00000870  e7 64 25 21 38 3d 31 80  64 25 21 31 32 3d 4b 25  |.d%!8=1.d%!12=K%|
00000880  8c 0d 01 90 0c c8 8e 64  25 21 31 36 ca 0d 01 9a  |.......d%!16....|
00000890  24 c9 31 2c 32 3a e7 6d  25 f2 62 3a f2 61 28 6e  |$.1,2:.m%.b:.a(n|
000008a0  25 29 8b 6d 25 3d b9 3a  f2 64 3a f2 61 28 46 25  |%).m%=.:.d:.a(F%|
000008b0  29 0d 01 a4 1a c9 30 3a  e7 6f 25 21 28 34 2a 67  |).....0:.o%!(4*g|
000008c0  25 29 3c 3e 2d 31 f2 6c  8b ef 37 0d 01 ae 1a c9  |%)<>-1.l..7.....|
000008d0  33 3a e7 6f 25 21 28 34  2a 67 25 29 3c 3e 2d 31  |3:.o%!(4*g%)<>-1|
000008e0  f2 62 8b ef 37 0d 01 b8  05 cb 0d 01 c2 19 c8 99  |.b..7...........|
000008f0  5f 25 2c 6a 25 2c 30 2c  2d 31 45 35 2c 31 45 34  |_%,j%,0,-1E5,1E4|
00000900  2c 2c 30 0d 01 cc 05 cd  0d 01 d6 0d c9 39 3a c8  |,,0..........9:.|
00000910  8e 21 64 25 ca 0d 01 e0  2a c9 31 3a c8 99 22 4f  |.!d%....*.1:.."O|
00000920  53 5f 46 69 6c 65 22 2c  30 2c 22 70 72 69 6e 74  |S_File",0,"print|
00000930  65 72 3a 22 2c 2c 2c 72  61 25 2c 68 25 2d 31 0d  |er:",,,ra%,h%-1.|
00000940  01 ea 0b c9 32 3a 71 25  3d b9 0d 01 f4 05 cb 0d  |....2:q%=.......|
00000950  01 fe 13 c9 31 37 2c 31  38 3a c8 8e 64 25 21 31  |....17,18:..d%!1|
00000960  36 ca 0d 02 08 0b c9 30  3a 71 25 3d b9 0d 02 12  |6......0:q%=....|
00000970  10 c9 31 32 38 32 3a f2  6d 28 64 25 29 0d 02 1c  |..1282:.m(d%)...|
00000980  05 cb 0d 02 26 05 cb 0d  02 30 1c fd 71 25 3a c8  |....&....0..q%:.|
00000990  99 22 57 69 6d 70 5f 43  6c 6f 73 65 44 6f 77 6e  |."Wimp_CloseDown|
000009a0  22 3a e0 0d 02 3a 19 dd  f2 69 3a e7 21 64 25 3c  |":...:...i:.!d%<|
000009b0  3e 6a 25 85 31 2c 22 45  52 33 3a 22 0d 02 44 83  |>j%.1,"ER3:"..D.|
000009c0  c8 99 63 61 25 2c 2c 64  25 b8 66 25 3a 74 25 3d  |..ca%,,d%.f%:t%=|
000009d0  64 25 21 34 2d 64 25 21  32 30 3a 70 25 3d 64 25  |d%!4-d%!20:p%=d%|
000009e0  21 31 36 2d 64 25 21 32  34 3a 21 73 61 25 3d 74  |!16-d%!24:!sa%=t|
000009f0  25 3a 21 74 61 25 3d 70  25 3a ef 32 33 2c 31 34  |%:!ta%=p%:.23,14|
00000a00  30 2c 31 32 38 2c 32 32  34 2c 32 35 32 2c 32 35  |0,128,224,252,25|
00000a10  35 2c 32 35 32 2c 32 32  34 2c 31 32 38 2c 30 2c  |5,252,224,128,0,|
00000a20  32 33 2c 31 34 31 2c 31  2c 37 2c 33 31 2c 31 32  |23,141,1,7,31,12|
00000a30  37 2c 33 31 2c 37 2c 31  2c 30 3a c8 95 66 25 0d  |7,31,7,1,0:..f%.|
00000a40  02 4e 0d e7 6d 25 8c f2  6e 8b f2 6f 0d 02 58 14  |.N..m%..n..o..X.|
00000a50  c8 99 62 61 25 2c 2c 64  25 b8 66 25 3a ce 3a e1  |..ba%,,d%.f%:.:.|
00000a60  0d 02 62 0f dd f2 6b 3a  f2 65 3a e7 6d 25 8c 0d  |..b...k:.e:.m%..|
00000a70  02 6c 06 f2 62 0d 02 76  0c cc 3a e7 a4 61 3d 30  |.l..b..v..:..a=0|
00000a80  8c 0d 02 80 06 f2 62 0d  02 8a 20 cc 3a e7 66 61  |......b... .:.fa|
00000a90  25 3c 3e 30 66 61 25 2d  3d 31 3a 85 32 2c 22 45  |%<>0fa%-=1:.2,"E|
00000aa0  52 39 3a 22 8b ef 37 0d  02 94 05 cd 0d 02 9e 05  |R9:"..7.........|
00000ab0  cd 0d 02 a8 05 e1 0d 02  b2 13 dd f2 6a 3a e7 64  |............j:.d|
00000ac0  25 21 31 32 3c 3e 6a 25  e1 0d 02 bc 0b f2 65 3a  |%!12<>j%......e:|
00000ad0  e7 6d 25 8c 0d 02 c6 06  f2 70 0d 02 d0 08 cc 3a  |.m%......p.....:|
00000ae0  f2 71 0d 02 da 05 cd 0d  02 e4 05 e1 0d 02 ee 81  |.q..............|
00000af0  dd f2 65 3a 58 25 3d 64  25 21 30 3a 59 25 3d 64  |..e:X%=d%!0:Y%=d|
00000b00  25 21 34 3a 21 64 25 3d  6a 25 3a c8 99 22 57 69  |%!4:!d%=j%:.."Wi|
00000b10  6d 70 5f 47 65 74 57 69  6e 64 6f 77 53 74 61 74  |mp_GetWindowStat|
00000b20  65 22 2c 2c 64 25 3a 74  25 3d 64 25 21 34 2d 64  |e",,d%:t%=d%!4-d|
00000b30  25 21 32 30 3a 70 25 3d  64 25 21 31 36 2d 64 25  |%!20:p%=d%!16-d%|
00000b40  21 32 34 3a 55 25 3d 2d  28 59 25 2d 70 25 2d 28  |!24:U%=-(Y%-p%-(|
00000b50  6b 25 81 32 29 29 81 6b  25 3a 75 61 25 3d 28 58  |k%.2)).k%:ua%=(X|
00000b60  25 2d 74 25 2d 32 30 29  81 77 25 3a e1 0d 02 f8  |%-t%-20).w%:....|
00000b70  3f dd a4 61 3a 61 25 3d  94 28 68 25 21 28 55 25  |?..a:a%=.(h%!(U%|
00000b80  2a 34 29 29 3a 73 25 3d  61 25 3a 4d 25 3d 30 3a  |*4)):s%=a%:M%=0:|
00000b90  c8 95 75 61 25 3e 30 80  61 25 3c 68 25 80 3f 61  |..ua%>0.a%<h%.?a|
00000ba0  25 3e 33 31 3a c8 8e bd  3f 61 25 ca 0d 03 02 11  |%>31:...?a%.....|
00000bb0  c9 22 7b 22 3a c8 8e bd  61 25 3f 31 ca 0d 03 0c  |."{":...a%?1....|
00000bc0  1b c9 22 89 22 3a 61 25  2b 3d 31 3a 4d 25 3d 31  |..".":a%+=1:M%=1|
00000bd0  3a 73 25 3d 61 25 2b 31  0d 03 16 1b c9 22 88 22  |:s%=a%+1....."."|
00000be0  3a 61 25 2b 3d 31 3a 4d  25 3d 32 3a 73 25 3d 61  |:a%+=1:M%=2:s%=a|
00000bf0  25 2b 31 0d 03 20 20 c9  22 21 22 3a f5 61 25 2b  |%+1..  ."!":.a%+|
00000c00  3d 31 3a fd 3f 61 25 3d  97 22 7b 22 84 3f 61 25  |=1:.?a%=."{".?a%|
00000c10  3c 33 32 0d 03 2a 20 c9  22 3c 22 3a f5 61 25 2b  |<32..* ."<":.a%+|
00000c20  3d 31 3a fd 3f 61 25 3d  97 22 7b 22 84 3f 61 25  |=1:.?a%=."{".?a%|
00000c30  3c 33 32 0d 03 34 05 cb  0d 03 3e 13 c9 22 7d 22  |<32..4....>.."}"|
00000c40  3a 61 25 2b 3d 31 3a 4d  25 3d 30 0d 03 48 0e 7f  |:a%+=1:M%=0..H..|
00000c50  75 61 25 3d 75 61 25 2d  31 0d 03 52 05 cb 0d 03  |ua%=ua%-1..R....|
00000c60  5c 27 61 25 2b 3d 31 3a  ce 3a 65 24 3d c1 24 73  |\'a%+=1:.:e$=.$s|
00000c70  25 2c 31 2c a7 24 73 25  2c 22 7d 22 29 2d 31 29  |%,1,.$s%,"}")-1)|
00000c80  3a 3a 3d 4d 25 0d 03 66  17 dd f2 71 3a 4d 25 3d  |::=M%..f...q:M%=|
00000c90  a4 61 3a e7 4d 25 3d 30  ef 37 3a e1 0d 03 70 7f  |.a:.M%=0.7:...p.|
00000ca0  61 25 3d 21 68 25 3a 6e  24 3d 22 7b 88 22 2b 65  |a%=!h%:n$="{."+e|
00000cb0  24 2b 22 7d 22 3a 4c 25  3d 30 3a 6f 24 3d 22 7b  |$+"}":L%=0:o$="{|
00000cc0  3c 22 2b 65 24 2b 22 7d  22 3a c8 95 a7 24 61 25  |<"+e$+"}":...$a%|
00000cd0  2c 6e 24 29 3c 31 80 a7  24 61 25 2c 6f 24 29 3c  |,n$)<1..$a%,o$)<|
00000ce0  31 80 61 25 3c 68 25 3a  61 25 2b 3d a9 24 61 25  |1.a%<h%:a%+=.$a%|
00000cf0  2b 31 3a 4c 25 2b 3d 31  3a ce 3a e7 61 25 3e 3d  |+1:L%+=1:.:.a%>=|
00000d00  68 25 85 32 2c 22 27 22  2b 65 24 2b 22 27 2d 22  |h%.2,"'"+e$+"'-"|
00000d10  2b a4 54 28 22 55 53 33  3a 22 29 0d 03 7a 6a 21  |+.T("US3:")..zj!|
00000d20  64 25 3d 6a 25 3a c8 99  22 57 69 6d 70 5f 47 65  |d%=j%:.."Wimp_Ge|
00000d30  74 57 69 6e 64 6f 77 53  74 61 74 65 22 2c 2c 64  |tWindowState",,d|
00000d40  25 3a 67 25 3d 28 67 25  2b 31 29 83 36 34 3a 6f  |%:g%=(g%+1).64:o|
00000d50  25 21 28 34 2a 67 25 29  3d 28 2d 64 25 21 32 34  |%!(4*g%)=(-d%!24|
00000d60  29 81 6b 25 3a 67 25 3d  28 67 25 2b 31 29 83 36  |).k%:g%=(g%+1).6|
00000d70  34 3a 6f 25 21 28 34 2a  67 25 29 3d 4c 25 2d 31  |4:o%!(4*g%)=L%-1|
00000d80  3a f2 62 3a e1 0d 03 84  2d dd a4 64 28 41 25 29  |:.b:....-..d(A%)|
00000d90  3a ea 41 24 3a c8 95 3f  41 25 3e 33 31 3a 41 24  |:.A$:..?A%>31:A$|
00000da0  2b 3d bd 3f 41 25 3a 41  25 2b 3d 31 3a ce 3a 3d  |+=.?A%:A%+=1:.:=|
00000db0  41 24 0d 03 8e 1a dd a4  63 28 42 25 29 3a 43 25  |A$......c(B%):C%|
00000dc0  3d 64 25 3a d6 67 3a 3a  3d 24 64 25 0d 03 98 1d  |=d%:.g::=$d%....|
00000dd0  dd f2 68 3a 51 25 3d 8e  6d 24 3a e7 51 25 3d 30  |..h:Q%=.m$:.Q%=0|
00000de0  85 31 2c 22 45 52 31 3a  22 0d 03 a2 df 4c 25 3d  |.1,"ER1:"....L%=|
00000df0  a2 23 51 25 3a 76 61 25  3d 34 2a a8 28 28 4c 25  |.#Q%:va%=4*.((L%|
00000e00  2a 31 2e 32 2b 32 30 30  29 2f 34 29 3a 48 25 3d  |*1.2+200)/4):H%=|
00000e10  93 3a c8 99 22 57 69 6d  70 5f 53 6c 6f 74 53 69  |.:.."Wimp_SlotSi|
00000e20  7a 65 22 2c 2d 31 2c 2d  31 b8 61 25 3a c8 99 22  |ze",-1,-1.a%:.."|
00000e30  57 69 6d 70 5f 53 6c 6f  74 53 69 7a 65 22 2c 61  |Wimp_SlotSize",a|
00000e40  25 2b 76 61 25 2c 2d 31  3a c8 99 22 4f 53 5f 48  |%+va%,-1:.."OS_H|
00000e50  65 61 70 22 2c 30 2c 48  25 2c 2c 76 61 25 3a 77  |eap",0,H%,,va%:w|
00000e60  61 25 3d 48 25 2b 76 61  25 3a 72 61 25 3d 34 2a  |a%=H%+va%:ra%=4*|
00000e70  28 28 48 25 2b 33 29 81  34 29 3a 4e 25 3d 34 2a  |((H%+3).4):N%=4*|
00000e80  28 28 48 25 2b 33 29 81  34 29 3a 68 25 3d 34 2a  |((H%+3).4):h%=4*|
00000e90  28 28 48 25 2b 4c 25 2b  33 29 81 34 29 3a 6e 25  |((H%+L%+3).4):n%|
00000ea0  3d 30 3a 46 25 3d 34 3a  78 61 25 3d 2d 31 30 3a  |=0:F%=4:xa%=-10:|
00000eb0  f5 3a 41 24 3d a4 63 28  51 25 29 3a f2 72 28 41  |.:A$=.c(Q%):.r(A|
00000ec0  24 2c 4a 25 2c 63 25 29  0d 03 ac 19 e7 4e 25 2b  |$,J%,c%).....N%+|
00000ed0  a9 41 24 2b 31 3e 68 25  85 31 2c 22 45 52 34 3a  |.A$+1>h%.1,"ER4:|
00000ee0  22 0d 03 b6 20 24 4e 25  3d 41 24 3a e7 68 25 2b  |"... $N%=A$:.h%+|
00000ef0  6e 25 2a 34 3e 77 61 25  85 31 2c 22 45 52 35 3a  |n%*4>wa%.1,"ER5:|
00000f00  22 0d 03 c0 32 68 25 21  28 6e 25 2a 34 29 3d 4e  |"...2h%!(n%*4)=N|
00000f10  25 2a 63 25 3a 6e 25 2b  3d 31 3a 4e 25 2b 3d a9  |%*c%:n%+=1:N%+=.|
00000f20  41 24 2b 31 3a e7 4a 25  3e 78 61 25 78 61 25 3d  |A$+1:.J%>xa%xa%=|
00000f30  a9 41 24 0d 03 ca 22 c8  99 61 61 25 2c 31 30 30  |.A$..."..aa%,100|
00000f40  2a 8f 23 51 25 2f 4c 25  3a fd c5 23 51 25 3a d9  |*.#Q%/L%:..#Q%:.|
00000f50  23 51 25 3a e1 0d 03 d4  05 e1 0d 03 de 30 dd f2  |#Q%:.........0..|
00000f60  72 28 f8 41 24 2c f8 4a  25 2c f8 79 61 25 29 3a  |r(.A$,.J%,.ya%):|
00000f70  4a 25 3d a9 41 24 3a 79  61 25 3d 31 3a e7 a7 41  |J%=.A$:ya%=1:..A|
00000f80  24 2c 22 7b 22 29 3c 31  3a e1 0d 03 e8 55 ea 67  |$,"{")<1:....U.g|
00000f90  24 3a c8 95 a7 41 24 2c  22 7b 22 29 3e 30 3a 67  |$:...A$,"{")>0:g|
00000fa0  24 2b 3d c0 41 24 2c a7  41 24 2c 22 7b 22 29 2d  |$+=.A$,.A$,"{")-|
00000fb0  31 29 3a 41 24 3d c1 41  24 2c a7 41 24 2c 22 7b  |1):A$=.A$,.A$,"{|
00000fc0  22 29 2b 31 29 3a e7 a7  41 24 2c 22 7d 22 29 3c  |")+1):..A$,"}")<|
00000fd0  31 85 31 2c 22 45 52 36  3a 20 22 2b c3 6e 25 0d  |1.1,"ER6: "+.n%.|
00000fe0  03 f2 2e 6a 24 3d c1 41  24 2c a7 41 24 2c 22 7d  |...j$=.A$,.A$,"}|
00000ff0  22 29 2b 31 29 3a 41 24  3d c0 41 24 2c a7 41 24  |")+1):A$=.A$,.A$|
00001000  2c 22 7d 22 29 2d 31 29  3a c8 8e b9 ca 0d 03 fc  |,"}")-1):.......|
00001010  2f c9 a7 41 24 2c 22 21  74 69 74 6c 65 20 22 29  |/..A$,"!title ")|
00001020  3d 31 3a 70 61 25 3d b9  3a 6b 24 3d c1 41 24 2c  |=1:pa%=.:k$=.A$,|
00001030  39 29 3a 4a 25 2d 3d a9  41 24 2d 32 0d 04 06 54  |9):J%-=.A$-2...T|
00001040  c9 a7 41 24 2c 22 21 63  20 22 29 3d 31 3a 62 24  |..A$,"!c ")=1:b$|
00001050  3d c1 41 24 2c 34 29 3a  62 24 3d 22 58 58 58 58  |=.A$,4):b$="XXXX|
00001060  58 58 58 58 58 58 58 58  58 58 58 22 3a e7 a7 64  |XXXXXXXXXXX":..d|
00001070  24 2c c1 62 24 2c 31 2c  31 29 29 3e 30 67 61 25  |$,.b$,1,1))>0ga%|
00001080  3d a0 28 22 26 22 2b c1  62 24 2c 31 2c 31 29 29  |=.("&"+.b$,1,1))|
00001090  0d 04 10 26 e7 a7 64 24  2c c1 62 24 2c 32 2c 31  |...&..d$,.b$,2,1|
000010a0  29 29 3e 30 60 25 3d a0  28 22 26 22 2b c1 62 24  |))>0`%=.("&"+.b$|
000010b0  2c 32 2c 31 29 29 0d 04  1a 27 e7 a7 64 24 2c c1  |,2,1))...'..d$,.|
000010c0  62 24 2c 33 2c 31 29 29  3e 30 68 61 25 3d a0 28  |b$,3,1))>0ha%=.(|
000010d0  22 26 22 2b c1 62 24 2c  33 2c 31 29 29 0d 04 24  |"&"+.b$,3,1))..$|
000010e0  27 e7 a7 64 24 2c c1 62  24 2c 34 2c 31 29 29 3e  |'..d$,.b$,4,1))>|
000010f0  30 69 61 25 3d a0 28 22  26 22 2b c1 62 24 2c 34  |0ia%=.("&"+.b$,4|
00001100  2c 31 29 29 0d 04 2e 27  e7 a7 64 24 2c c1 62 24  |,1))...'..d$,.b$|
00001110  2c 35 2c 31 29 29 3e 30  6a 61 25 3d a0 28 22 26  |,5,1))>0ja%=.("&|
00001120  22 2b c1 62 24 2c 35 2c  31 29 29 0d 04 38 27 e7  |"+.b$,5,1))..8'.|
00001130  a7 64 24 2c c1 62 24 2c  36 2c 31 29 29 3e 30 6b  |.d$,.b$,6,1))>0k|
00001140  61 25 3d a0 28 22 26 22  2b c1 62 24 2c 36 2c 31  |a%=.("&"+.b$,6,1|
00001150  29 29 0d 04 42 27 e7 a7  64 24 2c c1 62 24 2c 37  |))..B'..d$,.b$,7|
00001160  2c 31 29 29 3e 30 6c 61  25 3d a0 28 22 26 22 2b  |,1))>0la%=.("&"+|
00001170  c1 62 24 2c 37 2c 31 29  29 0d 04 4c 27 e7 a7 64  |.b$,7,1))..L'..d|
00001180  24 2c c1 62 24 2c 38 2c  31 29 29 3e 30 6d 61 25  |$,.b$,8,1))>0ma%|
00001190  3d a0 28 22 26 22 2b c1  62 24 2c 38 2c 31 29 29  |=.("&"+.b$,8,1))|
000011a0  0d 04 56 26 e7 a7 64 24  2c c1 62 24 2c 39 2c 31  |..V&..d$,.b$,9,1|
000011b0  29 29 3e 30 54 25 3d a0  28 22 26 22 2b c1 62 24  |))>0T%=.("&"+.b$|
000011c0  2c 39 2c 31 29 29 0d 04  60 27 e7 a7 64 24 2c c1  |,9,1))..`'..d$,.|
000011d0  62 24 2c 38 2c 31 29 29  3e 30 6f 61 25 3d a0 28  |b$,8,1))>0oa%=.(|
000011e0  22 26 22 2b c1 62 24 2c  38 2c 31 29 29 0d 04 6a  |"&"+.b$,8,1))..j|
000011f0  27 e7 a7 64 24 2c c1 62  24 2c 39 2c 31 29 29 3e  |'..d$,.b$,9,1))>|
00001200  30 6e 61 25 3d a0 28 22  26 22 2b c1 62 24 2c 39  |0na%=.("&"+.b$,9|
00001210  2c 31 29 29 0d 04 74 0b  4a 25 2d 3d a9 41 24 0d  |,1))..t.J%-=.A$.|
00001220  04 7e 43 c9 a7 41 24 2c  22 21 69 6e 64 65 78 20  |.~C..A$,"!index |
00001230  22 29 3d 31 3a 67 24 3d  67 24 2b 22 7b 69 22 2b  |")=1:g$=g$+"{i"+|
00001240  c1 41 24 2c 37 29 2b 22  7d 22 3a 3a 46 25 2b 3d  |.A$,7)+"}"::F%+=|
00001250  31 3a 79 61 25 3d 2d 31  3a 4a 25 2d 3d a9 41 24  |1:ya%=-1:J%-=.A$|
00001260  2b 32 0d 04 88 1b 7f 67  24 3d 67 24 2b 22 7b 22  |+2.....g$=g$+"{"|
00001270  2b 41 24 2b 22 7d 22 3a  4a 25 2d 3d 33 0d 04 92  |+A$+"}":J%-=3...|
00001280  05 cb 0d 04 9c 3d 41 24  3d 6a 24 3a ce 3a 41 24  |.....=A$=j$:.:A$|
00001290  3d 67 24 2b 6a 24 3a 63  3f 31 3d 54 25 3a 63 3f  |=g$+j$:c?1=T%:c?|
000012a0  32 3d 69 61 25 3a 63 3f  33 3d 6b 61 25 3a 65 3f  |2=ia%:c?3=ka%:e?|
000012b0  32 3d 68 61 25 3a 65 3f  33 3d 6a 61 25 3a e1 0d  |2=ha%:e?3=ja%:..|
000012c0  04 a6 2a dd a4 62 28 66  24 29 3a ea 56 25 2c 6c  |..*..b(f$):.V%,l|
000012d0  25 3a 56 25 3d 8e 28 66  24 29 3a e7 56 25 3d 30  |%:V%=.(f$):.V%=0|
000012e0  85 31 2c 22 45 52 37 3a  22 0d 04 b0 57 6c 25 3d  |.1,"ER7:"...Wl%=|
000012f0  a2 23 56 25 2b 31 36 3a  d9 23 56 25 3a de 7a 25  |.#V%+16:.#V%:.z%|
00001300  20 6c 25 3a 21 7a 25 3d  6c 25 3a 7a 25 21 34 3d  | l%:!z%=l%:z%!4=|
00001310  30 3a 7a 25 21 38 3d 31  36 3a 7a 25 21 31 32 3d  |0:z%!8=16:z%!12=|
00001320  31 36 3a c8 99 22 4f 53  5f 53 70 72 69 74 65 4f  |16:.."OS_SpriteO|
00001330  70 22 2c 32 36 36 2c 7a  25 2c 66 24 3a 3d 7a 25  |p",266,z%,f$:=z%|
00001340  0d 04 ba c3 dd f2 70 3a  65 25 3d 31 3a 61 25 3d  |......p:e%=1:a%=|
00001350  94 28 68 25 21 28 65 25  2a 34 29 29 3a 62 25 3d  |.(h%!(e%*4)):b%=|
00001360  94 28 68 25 21 28 75 25  2a 34 29 29 3a 55 25 2d  |.(h%!(u%*4)):U%-|
00001370  3d 31 3a f5 3a f5 3a 61  24 3d 24 61 25 3a 61 25  |=1:.:.:a$=$a%:a%|
00001380  2b 3d a9 61 24 2b 31 3a  fd a7 61 24 2c 22 7b 69  |+=.a$+1:..a$,"{i|
00001390  22 29 3e 30 84 61 25 3e  62 25 3a 55 25 2d 3d 31  |")>0.a%>b%:U%-=1|
000013a0  3a fd 55 25 3d 30 84 61  25 3e 62 25 3a 65 24 3d  |:.U%=0.a%>b%:e$=|
000013b0  c1 61 24 2c a7 61 24 2c  22 7b 69 22 29 2c a7 61  |.a$,.a$,"{i"),.a|
000013c0  24 2c 22 7d 22 29 2d a7  61 24 2c 22 7b 69 22 29  |$,"}")-.a$,"{i")|
000013d0  29 3a 61 25 3d 21 68 25  3a 4c 25 3d 30 3a c8 95  |):a%=!h%:L%=0:..|
000013e0  a7 24 61 25 2c 65 24 29  3c 31 80 61 25 3c 68 25  |.$a%,e$)<1.a%<h%|
000013f0  3a 61 25 2b 3d a9 24 61  25 2b 31 3a 4c 25 2b 3d  |:a%+=.$a%+1:L%+=|
00001400  31 3a ce 0d 04 c4 29 e7  a7 24 61 25 2c 65 24 29  |1:....)..$a%,e$)|
00001410  3c 31 85 32 2c 22 27 22  2b 65 24 2b 22 27 2d 20  |<1.2,"'"+e$+"'- |
00001420  22 2b a4 54 28 22 45 52  38 3a 22 29 0d 04 ce 3a  |"+.T("ER8:")...:|
00001430  c8 99 5f 25 2c 6a 25 2c  30 2c 2d 31 45 35 2c 31  |.._%,j%,0,-1E5,1|
00001440  45 35 2c 2c 30 3a 67 25  3d 28 67 25 2b 31 29 83  |E5,,0:g%=(g%+1).|
00001450  36 34 3a 6f 25 21 28 34  2a 67 25 29 3d 4c 25 2d  |64:o%!(4*g%)=L%-|
00001460  31 3a f2 62 3a e1 0d 04  d8 18 dd f2 6d 28 64 25  |1:.b:.......m(d%|
00001470  29 3a ea 61 24 3a c8 8e  64 25 21 33 32 ca 0d 04  |):.a$:..d%!32...|
00001480  e2 12 c9 71 61 25 3a 61  24 3d 22 48 30 31 3a 22  |...qa%:a$="H01:"|
00001490  0d 04 ec 1f c9 6a 25 3a  e7 6d 25 8c 61 24 3d 22  |.....j%:.m%.a$="|
000014a0  48 30 32 3a 22 8b 61 24  3d 22 48 30 33 3a 22 0d  |H02:".a$="H03:".|
000014b0  04 f6 10 c9 4b 25 3a c8  8e 64 25 21 33 36 ca 0d  |....K%:..d%!36..|
000014c0  05 00 10 c9 30 3a 61 24  3d 22 48 30 34 3a 22 0d  |....0:a$="H04:".|
000014d0  05 0a 1e c9 33 3a e7 6d  25 8c 61 24 3d 22 48 30  |....3:.m%.a$="H0|
000014e0  35 3a 22 8b 61 24 3d 22  48 30 36 3a 22 0d 05 14  |5:".a$="H06:"...|
000014f0  1e c9 31 3a e7 6d 25 8c  61 24 3d 22 48 30 37 3a  |..1:.m%.a$="H07:|
00001500  22 8b 61 24 3d 22 48 30  38 3a 22 0d 05 1e 12 61  |".a$="H08:"....a|
00001510  24 2b 3d a4 54 28 22 48  30 39 3a 22 29 0d 05 28  |$+=.T("H09:")..(|
00001520  1e c9 32 3a e7 6d 25 8c  61 24 3d 22 48 31 30 3a  |..2:.m%.a$="H10:|
00001530  22 8b 61 24 3d 22 48 31  31 3a 22 0d 05 32 12 61  |".a$="H11:"..2.a|
00001540  24 2b 3d a4 54 28 22 48  30 39 3a 22 29 0d 05 3c  |$+=.T("H09:")..<|
00001550  05 cb 0d 05 46 05 cb 0d  05 50 0c e7 61 24 3c 3e  |....F....P..a$<>|
00001560  22 22 8c 0d 05 5a 55 21  64 25 3d 32 35 36 3a 64  |""...ZU!d%=256:d|
00001570  25 21 31 32 3d 64 25 21  38 3a 64 25 21 31 36 3d  |%!12=d%!8:d%!16=|
00001580  31 32 38 33 3a 24 28 64  25 2b 32 30 29 3d a4 54  |1283:$(d%+20)=.T|
00001590  28 61 24 29 2b bd 31 33  3a c8 99 22 57 69 6d 70  |(a$)+.13:.."Wimp|
000015a0  5f 53 65 6e 64 4d 65 73  73 61 67 65 22 2c 31 37  |_SendMessage",17|
000015b0  2c 64 25 2c 64 25 21 34  0d 05 64 05 cd 0d 05 6e  |,d%,d%!4..d....n|
000015c0  05 e1 0d 05 78 17 dd f2  6c 3a e7 6d 25 8c 6d 25  |....x...l:.m%.m%|
000015d0  3d 30 3a f2 61 28 6e 25  29 0d 05 82 39 64 25 21  |=0:.a(n%)...9d%!|
000015e0  30 3d 6a 25 3a c8 99 53  25 2c 2c 64 25 3a 64 25  |0=j%:..S%,,d%:d%|
000015f0  21 32 34 3d 2d 6b 25 2a  6f 25 21 28 34 2a 67 25  |!24=-k%*o%!(4*g%|
00001600  29 3a 4f 25 3d 2d 31 3a  c8 99 47 25 2c 2c 64 25  |):O%=-1:..G%,,d%|
00001610  3a e1 0d 05 8c 19 dd f2  62 3a e7 6f 25 21 28 34  |:.......b:.o%!(4|
00001620  2a 67 25 29 3d 2d 31 ef  37 3a e1 0d 05 96 13 e7  |*g%)=-1.7:......|
00001630  6d 25 8c 6d 25 3d 30 3a  f2 61 28 6e 25 29 0d 05  |m%.m%=0:.a(n%)..|
00001640  a0 5b 64 25 21 30 3d 6a  25 3a c8 99 53 25 2c 2c  |.[d%!0=j%:..S%,,|
00001650  64 25 3a 64 25 21 32 34  3d 2d 6b 25 2a 6f 25 21  |d%:d%!24=-k%*o%!|
00001660  28 34 2a 67 25 29 3a 4f  25 3d 6f 25 21 28 34 2a  |(4*g%):O%=o%!(4*|
00001670  67 25 29 3a 6f 25 21 28  34 2a 67 25 29 3d 2d 31  |g%):o%!(4*g%)=-1|
00001680  3a 67 25 3d 28 67 25 2b  36 33 29 83 36 34 3a c8  |:g%=(g%+63).64:.|
00001690  99 47 25 2c 2c 64 25 3a  e1 0d 05 aa 42 dd f2 64  |.G%,,d%:....B..d|
000016a0  3a 21 64 25 3d 6a 25 3a  c8 99 53 25 2c 2c 64 25  |:!d%=j%:..S%,,d%|
000016b0  3a 67 25 3d 28 67 25 2b  31 29 83 36 34 3a 6f 25  |:g%=(g%+1).64:o%|
000016c0  21 28 34 2a 67 25 29 3d  28 2d 64 25 21 32 34 29  |!(4*g%)=(-d%!24)|
000016d0  81 6b 25 3a 4f 25 3d 2d  31 3a e1 0d 05 b4 be dd  |.k%:O%=-1:......|
000016e0  f2 61 28 6e 25 29 3a 21  64 25 3d 6a 25 3a c8 99  |.a(n%):!d%=j%:..|
000016f0  53 25 2c 2c 64 25 3a 7a  61 25 3d 64 25 21 32 30  |S%,,d%:za%=d%!20|
00001700  3a 41 61 25 3d 64 25 21  32 34 3a c8 99 22 57 69  |:Aa%=d%!24:.."Wi|
00001710  6d 70 5f 43 6c 6f 73 65  57 69 6e 64 6f 77 22 2c  |mp_CloseWindow",|
00001720  2c 64 25 3a 21 64 25 3d  30 3a 64 25 21 34 3d 2d  |,d%:!d%=0:d%!4=-|
00001730  6b 25 2a 28 6e 25 2b 31  29 3a 64 25 21 38 3d 28  |k%*(n%+1):d%!8=(|
00001740  78 61 25 2b 32 29 2a 31  36 3a 64 25 21 31 32 3d  |xa%+2)*16:d%!12=|
00001750  30 3a c8 99 64 61 25 2c  6a 25 2c 64 25 3a 21 64  |0:..da%,j%,d%:!d|
00001760  25 3d 6a 25 3a c8 99 22  57 69 6d 70 5f 47 65 74  |%=j%:.."Wimp_Get|
00001770  57 69 6e 64 6f 77 53 74  61 74 65 22 2c 2c 64 25  |WindowState",,d%|
00001780  3a 64 25 21 32 30 3d 7a  61 25 3a 64 25 21 32 34  |:d%!20=za%:d%!24|
00001790  3d 41 61 25 3a f2 63 3a  e1 0d 05 be 9b dd f2 63  |=Aa%:.c:.......c|
000017a0  3a 21 64 25 3d 6a 25 3a  42 61 25 3d 64 25 21 32  |:!d%=j%:Ba%=d%!2|
000017b0  38 3a 64 25 21 32 38 3d  4b 25 3a 64 25 21 31 30  |8:d%!28=K%:d%!10|
000017c0  30 3d 4b 25 3a 64 25 21  31 30 34 3d 64 25 21 34  |0=K%:d%!104=d%!4|
000017d0  2d 38 30 3a 64 25 21 31  30 38 3d 64 25 21 31 36  |-80:d%!108=d%!16|
000017e0  2d 32 39 32 3a 64 25 21  31 31 32 3d 64 25 21 34  |-292:d%!112=d%!4|
000017f0  2d 34 3a 64 25 21 31 31  36 3d 64 25 21 31 36 3a  |-4:d%!116=d%!16:|
00001800  64 25 21 31 32 30 3d 30  3a 64 25 21 31 32 34 3d  |d%!120=0:d%!124=|
00001810  30 3a 64 25 21 31 32 38  3d 42 61 25 3a c8 99 47  |0:d%!128=Ba%:..G|
00001820  25 2c 2c 64 25 2b 31 30  30 3a c8 99 47 25 2c 2c  |%,,d%+100:..G%,,|
00001830  64 25 3a e1 0d 05 d2 2a  dd a4 54 28 74 24 29 3a  |d%:....*..T(t$):|
00001840  e7 65 61 25 3d 30 3a 3d  22 4e 6f 20 6d 65 73 73  |.ea%=0:="No mess|
00001850  61 67 65 20 66 69 6c 65  20 3a 22 2b 74 24 0d 05  |age file :"+t$..|
00001860  dc 23 ea 69 25 2c 61 24  3a 69 25 3d 57 25 3a e7  |.#.i%,a$:i%=W%:.|
00001870  c1 74 24 2c 34 2c 31 29  3c 3e 22 3a 22 3a 3d 74  |.t$,4,1)<>":":=t|
00001880  24 0d 05 e6 5c c8 95 69  25 3c 43 61 25 80 c0 74  |$...\..i%<Ca%..t|
00001890  24 2c 34 29 3c 3e c0 61  24 2c 34 29 3a 61 24 3d  |$,4)<>.a$,4):a$=|
000018a0  24 69 25 3a 69 25 2b 3d  a9 61 24 2b 31 3a ce 3a  |$i%:i%+=.a$+1:.:|
000018b0  e7 c0 74 24 2c 34 29 3c  3e c0 61 24 2c 34 29 3a  |..t$,4)<>.a$,4):|
000018c0  3d 22 4d 65 73 73 61 67  65 20 27 22 2b 74 24 2b  |="Message '"+t$+|
000018d0  22 27 20 6e 6f 74 20 66  6f 75 6e 64 22 0d 05 f0  |"' not found"...|
000018e0  13 3a 3d c1 61 24 2c 35  29 2b c1 74 24 2c 35 29  |.:=.a$,5)+.t$,5)|
000018f0  0d 05 fa 3f dd f2 67 3a  51 25 3d 8e 28 68 24 2b  |...?..g:Q%=.(h$+|
00001900  22 4d 65 73 73 61 67 65  73 22 29 3a e7 51 25 3d  |"Messages"):.Q%=|
00001910  30 85 31 2c 22 43 61 6e  6e 6f 74 20 66 69 6e 64  |0.1,"Cannot find|
00001920  20 6d 79 20 6d 65 73 73  61 67 65 73 20 21 22 0d  | my messages !".|
00001930  06 04 4d de 57 25 20 a2  23 51 25 3a 43 61 25 3d  |..M.W% .#Q%:Ca%=|
00001940  57 25 2b a2 23 51 25 3a  c8 99 22 4f 53 5f 47 42  |W%+.#Q%:.."OS_GB|
00001950  50 42 22 2c 33 2c 51 25  2c 57 25 2c a2 23 51 25  |PB",3,Q%,W%,.#Q%|
00001960  2c 30 3a e3 69 25 3d 57  25 b8 43 61 25 3a e7 3f  |,0:.i%=W%.Ca%:.?|
00001970  69 25 3d 31 30 8c 3f 69  25 3d 31 33 0d 06 0e 12  |i%=10.?i%=13....|
00001980  ed 3a d9 23 51 25 3a 65  61 25 3d b9 3a e1 0d 06  |.:.#Q%:ea%=.:...|
00001990  18 0b dd f2 45 3a ee 85  87 0d 06 22 0e 21 64 25  |....E:.....".!d%|
000019a0  3d 9f 3a c8 8e 9f ca 0d  06 2c 0e c9 31 2c 32 3a  |=.:......,..1,2:|
000019b0  52 24 3d f6 24 0d 06 36  1a 7f 3a 52 24 3d 22 28  |R$=.$..6..:R$="(|
000019c0  22 2b c3 9f 2b 22 2c 22  2b c3 9e 2b 22 29 22 0d  |"+..+","+..+")".|
000019d0  06 40 05 cb 0d 06 4a 14  52 24 3d a4 54 28 52 24  |.@....J.R$=.T(R$|
000019e0  29 3a e7 9f 3c 3e 32 8c  0d 06 54 3c 24 28 64 25  |):..<>2...T<$(d%|
000019f0  2b 34 29 3d 22 49 6e 74  65 72 6e 61 6c 20 65 72  |+4)="Internal er|
00001a00  72 6f 72 2e 20 22 2b 52  24 2b 22 a0 41 62 6f 75  |ror. "+R$+".Abou|
00001a10  74 a0 74 6f a0 71 75 69  74 a0 21 22 2b bd 30 3a  |t.to.quit.!"+.0:|
00001a20  66 25 3d 30 0d 06 5e 25  cc 3a 24 28 64 25 2b 34  |f%=0..^%.:$(d%+4|
00001a30  29 3d a4 54 28 22 57 41  52 3a 22 29 2b 52 24 2b  |)=.T("WAR:")+R$+|
00001a40  bd 30 3a 66 25 3d 32 37  32 0d 06 68 05 cd 0d 06  |.0:f%=272..h....|
00001a50  72 2c c8 99 22 57 69 6d  70 5f 52 65 70 6f 72 74  |r,.."Wimp_Report|
00001a60  45 72 72 6f 72 22 2c 64  25 2c 66 25 2c 69 24 3a  |Error",d%,f%,i$:|
00001a70  e7 9f 3d 32 3a ee 85 ee  3a e1 0d 06 7c 5c ff 22  |..=2:...:...|\."|
00001a80  4b 45 59 31 45 44 49 54  22 2b c3 9e 2b 22 7c 4d  |KEY1EDIT"+..+"|M|
00001a90  22 3a c8 99 22 57 69 6d  70 5f 43 72 65 61 74 65  |":.."Wimp_Create|
00001aa0  4d 65 6e 75 22 2c 2c 2d  31 3a c8 99 22 57 69 6d  |Menu",,-1:.."Wim|
00001ab0  70 5f 43 6c 6f 73 65 44  6f 77 6e 22 3a c8 99 22  |p_CloseDown":.."|
00001ac0  48 6f 75 72 67 6c 61 73  73 5f 53 6d 61 73 68 22  |Hourglass_Smash"|
00001ad0  3a d9 23 30 3a e0 0d 06  86 08 f2 73 3a e0 0d 06  |:.#0:......s:...|
00001ae0  90 d7 dd f2 66 3a de 44  61 25 20 31 37 30 30 3a  |....f:.Da% 1700:|
00001af0  e3 49 25 3d 30 b8 32 88  32 3a 50 25 3d 44 61 25  |.I%=0.2.2:P%=Da%|
00001b00  3a 5b 4f 50 54 20 49 25  3a 2e 73 61 25 20 45 51  |:[OPT I%:.sa% EQ|
00001b10  55 44 30 3a 2e 74 61 25  20 45 51 55 44 30 3a 2e  |UD0:.ta% EQUD0:.|
00001b20  45 61 25 20 45 51 55 44  30 3a 2e 78 25 20 45 51  |Ea% EQUD0:.x% EQ|
00001b30  55 44 30 3a 2e 79 25 20  45 51 55 44 30 3a 2e 52  |UD0:.y% EQUD0:.R|
00001b40  25 20 45 51 55 44 30 3a  2e 64 20 43 4d 50 34 2c  |% EQUD0:.d CMP4,|
00001b50  35 3a 42 45 51 20 68 3a  53 55 42 39 2c 37 2c 36  |5:BEQ h:SUB9,7,6|
00001b60  3a 4d 4f 56 38 2c 23 77  25 3a 4d 55 4c 20 38 2c  |:MOV8,#w%:MUL 8,|
00001b70  39 2c 38 3a 43 4d 50 35  2c 23 32 35 35 3a 42 45  |9,8:CMP5,#255:BE|
00001b80  51 20 69 3a 4d 4f 56 30  2c 35 3a 53 57 49 20 22  |Q i:MOV0,5:SWI "|
00001b90  57 69 6d 70 5f 53 65 74  43 6f 6c 6f 75 72 22 3a  |Wimp_SetColour":|
00001ba0  4d 4f 56 30 2c 23 34 3a  53 57 49 20 22 4f 53 5f  |MOV0,#4:SWI "OS_|
00001bb0  50 6c 6f 74 22 0d 06 9a  c3 53 54 4d 46 44 31 33  |Plot"....STMFD13|
00001bc0  21 2c 7b 31 2d 32 7d 3a  4d 4f 56 30 2c 23 39 38  |!,{1-2}:MOV0,#98|
00001bd0  3a 4d 4f 56 31 2c 38 3a  4d 4f 56 32 2c 23 30 3a  |:MOV1,8:MOV2,#0:|
00001be0  53 55 42 32 2c 32 2c 23  33 32 3a 53 57 49 20 22  |SUB2,2,#32:SWI "|
00001bf0  4f 53 5f 50 6c 6f 74 22  3a 4c 44 4d 46 44 31 33  |OS_Plot":LDMFD13|
00001c00  21 2c 7b 31 2d 32 7d 3a  2e 69 20 4d 4f 56 30 2c  |!,{1-2}:.i MOV0,|
00001c10  34 3a 53 57 49 20 22 57  69 6d 70 5f 53 65 74 43  |4:SWI "Wimp_SetC|
00001c20  6f 6c 6f 75 72 22 3a 4d  4f 56 30 2c 23 34 3a 53  |olour":MOV0,#4:S|
00001c30  57 49 20 22 4f 53 5f 50  6c 6f 74 22 3a 53 54 4d  |WI "OS_Plot":STM|
00001c40  46 44 31 33 21 2c 7b 31  2d 32 7d 3a 4d 4f 56 30  |FD13!,{1-2}:MOV0|
00001c50  2c 36 3a 4d 4f 56 31 2c  39 3a 53 57 49 20 22 4f  |,6:MOV1,9:SWI "O|
00001c60  53 5f 57 72 69 74 65 4e  22 3a 4c 44 4d 46 44 31  |S_WriteN":LDMFD1|
00001c70  33 21 2c 7b 31 2d 32 7d  0d 06 a4 ca 41 44 44 31  |3!,{1-2}....ADD1|
00001c80  2c 31 2c 38 3a 2e 68 20  41 44 44 36 2c 37 2c 23  |,1,8:.h ADD6,7,#|
00001c90  31 3a 4d 4f 56 20 50 43  2c 31 34 3a 2e 6a 20 53  |1:MOV PC,14:.j S|
00001ca0  54 4d 46 44 31 33 21 2c  7b 31 34 7d 3a 41 44 52  |TMFD13!,{14}:ADR|
00001cb0  38 2c 45 61 25 3a 4c 44  52 36 2c 5b 38 5d 3a 41  |8,Ea%:LDR6,[8]:A|
00001cc0  44 52 38 2c 78 25 3a 4c  44 52 31 2c 5b 38 5d 3a  |DR8,x%:LDR1,[8]:|
00001cd0  41 44 52 38 2c 79 25 3a  4c 44 52 32 2c 5b 38 5d  |ADR8,y%:LDR2,[8]|
00001ce0  3a 41 44 52 38 2c 73 61  25 3a 4c 44 52 38 2c 5b  |:ADR8,sa%:LDR8,[|
00001cf0  38 5d 3a 41 44 44 31 2c  31 2c 38 3a 41 44 52 38  |8]:ADD1,1,8:ADR8|
00001d00  2c 74 61 25 3a 4c 44 52  38 2c 5b 38 5d 3a 41 44  |,ta%:LDR8,[8]:AD|
00001d10  44 32 2c 32 2c 38 3a 41  44 52 38 2c 78 25 3a 53  |D2,2,8:ADR8,x%:S|
00001d20  54 52 31 2c 5b 38 5d 3a  41 44 52 38 2c 79 25 3a  |TR1,[8]:ADR8,y%:|
00001d30  53 54 52 32 2c 5b 38 5d  3a 53 55 42 36 2c 36 2c  |STR2,[8]:SUB6,6,|
00001d40  23 31 0d 06 ae e6 4d 4f  56 37 2c 36 3a 42 20 6b  |#1....MOV7,6:B k|
00001d50  3a 2e 61 20 4c 44 52 42  30 2c 5b 37 2c 23 31 5d  |:.a LDRB0,[7,#1]|
00001d60  21 3a 43 4d 50 30 2c 23  97 22 7b 22 3a 42 45 51  |!:CMP0,#."{":BEQ|
00001d70  20 6c 3a 43 4d 50 30 2c  23 97 22 7d 22 3a 42 45  | l:CMP0,#."}":BE|
00001d80  51 20 6d 3a 43 4d 50 30  2c 23 31 33 3a 42 4e 45  |Q m:CMP0,#13:BNE|
00001d90  20 61 3a 42 4c 20 64 3a  41 44 52 38 2c 78 25 3a  | a:BL d:ADR8,x%:|
00001da0  4c 44 52 31 2c 5b 38 5d  3a 53 55 42 32 2c 32 2c  |LDR1,[8]:SUB2,2,|
00001db0  23 94 6b 25 3a 41 44 52  30 2c 52 25 3a 4c 44 52  |#.k%:ADR0,R%:LDR|
00001dc0  30 2c 5b 30 5d 3a 43 4d  50 30 2c 37 3a 42 47 54  |0,[0]:CMP0,7:BGT|
00001dd0  20 61 3a 2e 79 20 4c 44  4d 46 44 31 33 21 2c 7b  | a:.y LDMFD13!,{|
00001de0  31 34 7d 3a 4d 4f 56 20  50 43 2c 31 34 3a 2e 6c  |14}:MOV PC,14:.l|
00001df0  20 42 4c 20 64 3a 4d 4f  56 38 2c 23 30 3a 4c 44  | BL d:MOV8,#0:LD|
00001e00  52 42 30 2c 5b 37 2c 23  31 5d 21 3a 43 4d 50 30  |RB0,[7,#1]!:CMP0|
00001e10  2c 23 97 22 88 22 3a ec  51 38 2c 23 32 3a 43 4d  |,#.".":.Q8,#2:CM|
00001e20  50 30 2c 23 97 22 89 22  0d 06 b8 c5 ec 51 38 2c  |P0,#.".".....Q8,|
00001e30  23 33 3a 43 4d 50 30 2c  23 97 22 5c 22 3a 42 45  |#3:CMP0,#."\":BE|
00001e40  51 20 6e 3a 43 4d 50 30  2c 23 97 22 2f 22 3a 42  |Q n:CMP0,#."/":B|
00001e50  45 51 20 6f 3a 41 44 52  39 2c 63 3a 4c 44 52 42  |EQ o:ADR9,c:LDRB|
00001e60  34 2c 5b 39 2c 38 5d 3a  41 44 52 39 2c 65 3a 4c  |4,[9,8]:ADR9,e:L|
00001e70  44 52 42 35 2c 5b 39 2c  38 5d 3a 2e 7a 20 41 44  |DRB5,[9,8]:.z AD|
00001e80  44 36 2c 36 2c 23 31 3a  42 20 61 3a 2e 6f 20 53  |D6,6,#1:B a:.o S|
00001e90  55 42 37 2c 37 2c 23 31  3a 4d 4f 56 36 2c 37 3a  |UB7,7,#1:MOV6,7:|
00001ea0  41 44 44 37 2c 37 2c 23  31 3a 42 4c 20 64 3a 42  |ADD7,7,#1:BL d:B|
00001eb0  20 61 3a 2e 6e 20 41 44  44 37 2c 37 2c 23 31 3a  | a:.n ADD7,7,#1:|
00001ec0  4d 4f 56 36 2c 37 3a 41  44 44 37 2c 37 2c 23 31  |MOV6,7:ADD7,7,#1|
00001ed0  3a 42 4c 20 64 3a 53 55  42 37 2c 37 2c 23 31 3a  |:BL d:SUB7,7,#1:|
00001ee0  53 55 42 36 2c 36 2c 23  31 3a 42 20 61 0d 06 c2  |SUB6,6,#1:B a...|
00001ef0  e4 2e 6d 20 42 4c 20 64  3a 2e 6b 20 41 44 52 39  |..m BL d:.k ADR9|
00001f00  2c 63 3a 4c 44 52 42 34  2c 5b 39 2c 23 31 5d 3a  |,c:LDRB4,[9,#1]:|
00001f10  41 44 52 39 2c 65 3a 4c  44 52 42 35 2c 5b 39 2c  |ADR9,e:LDRB5,[9,|
00001f20  23 31 5d 3a 42 20 61 3a  2e 63 20 45 51 55 42 30  |#1]:B a:.c EQUB0|
00001f30  3a 45 51 55 42 37 3a 45  51 55 42 32 3a 45 51 55  |:EQUB7:EQUB2:EQU|
00001f40  42 33 3a 2e 65 20 45 51  55 42 30 3a 45 51 55 42  |B3:.e EQUB0:EQUB|
00001f50  32 35 35 3a 45 51 55 42  36 3a 45 51 55 42 35 3a  |255:EQUB6:EQUB5:|
00001f60  2e 70 20 41 44 52 32 2c  52 25 3a 4c 44 52 32 2c  |.p ADR2,R%:LDR2,|
00001f70  5b 32 5d 3a 2e 71 20 4c  44 52 42 30 2c 5b 31 2c  |[2]:.q LDRB0,[1,|
00001f80  23 31 5d 21 3a 43 4d 50  30 2c 23 97 22 7b 22 3a  |#1]!:CMP0,#."{":|
00001f90  42 45 51 20 72 3a 2e 73  20 43 4d 50 32 2c 31 3a  |BEQ r:.s CMP2,1:|
00001fa0  42 47 54 20 71 3a 2e 72  20 4c 44 52 42 30 2c 5b  |BGT q:.r LDRB0,[|
00001fb0  31 2c 23 31 5d 21 3a 43  4d 50 30 2c 23 97 22 69  |1,#1]!:CMP0,#."i|
00001fc0  22 3a 42 4e 45 20 73 3a  41 44 44 30 2c 31 2c 23  |":BNE s:ADD0,1,#|
00001fd0  31 0d 06 cc e0 4d 4f 56  20 50 43 2c 31 34 3a 2e  |1....MOV PC,14:.|
00001fe0  67 3a 53 55 42 32 2c 32  2c 23 31 3a 2e 74 20 53  |g:SUB2,2,#1:.t S|
00001ff0  57 49 20 22 4f 53 5f 42  47 65 74 22 3a 42 43 53  |WI "OS_BGet":BCS|
00002000  20 75 3a 53 54 52 42 30  2c 5b 32 2c 23 31 5d 21  | u:STRB0,[2,#1]!|
00002010  3a 43 4d 50 30 2c 23 33  31 3a 42 47 54 20 74 3a  |:CMP0,#31:BGT t:|
00002020  2e 75 20 53 55 42 32 2c  32 2c 23 31 3a 4d 4f 56  |.u SUB2,2,#1:MOV|
00002030  30 2c 23 31 33 3a 53 54  52 42 30 2c 5b 32 2c 23  |0,#13:STRB0,[2,#|
00002040  31 5d 21 3a 4d 4f 56 20  50 43 2c 31 34 3a 2e 76  |1]!:MOV PC,14:.v|
00002050  20 41 44 52 33 2c 66 3a  4c 44 52 31 2c 5b 33 5d  | ADR3,f:LDR1,[3]|
00002060  3a 2e 77 20 4c 44 52 30  2c 5b 31 2c 23 34 5d 21  |:.w LDR0,[1,#4]!|
00002070  3a 43 4d 50 30 2c 23 30  3a 42 4d 49 20 78 3a 43  |:CMP0,#0:BMI x:C|
00002080  4d 50 31 2c 32 3a 42 4c  54 20 77 3a 2e 78 20 53  |MP1,2:BLT w:.x S|
00002090  54 52 31 2c 5b 33 5d 3a  4d 4f 56 20 50 43 2c 31  |TR1,[3]:MOV PC,1|
000020a0  34 3a 2e 66 20 45 51 55  44 30 3a 20 5d 3a ed 3a  |4:.f EQUD0: ]:.:|
000020b0  e1 0d 06 d6 55 dd f2 6e  3a 75 25 3d 6e 25 2d 31  |....U..n:u%=n%-1|
000020c0  3a 42 25 3d 68 25 21 34  3a 62 25 3d 68 25 21 28  |:B%=h%!4:b%=h%!(|
000020d0  75 25 2a 34 29 3a 21 52  25 3d 4e 25 3a ec 31 36  |u%*4):!R%=N%:.16|
000020e0  2b 74 25 2c 70 25 2d 31  36 3a c8 99 76 25 2c 54  |+t%,p%-16:..v%,T|
000020f0  25 3a e7 70 61 25 8c f1  6b 24 8b f1 a4 54 28 22  |%:.pa%..k$...T("|
00002100  55 53 31 3a 22 29 0d 06  e0 af c8 99 76 25 2c 6c  |US1:")......v%,l|
00002110  61 25 3a e3 65 25 3d 31  b8 46 25 2d 34 3a c8 93  |a%:.e%=1.F%-4:..|
00002120  c8 90 74 25 2b 77 25 2c  70 25 2d 65 25 2a 6b 25  |..t%+w%,p%-e%*k%|
00002130  2d 31 32 2c 38 2b 77 25  2a 35 2c 2d 33 32 3a ed  |-12,8+w%*5,-32:.|
00002140  3a c8 99 76 25 2c 6d 61  25 3a e3 65 25 3d 31 b8  |:..v%,ma%:.e%=1.|
00002150  46 25 2d 34 3a ec 31 36  2b 74 25 2b 77 25 2c 70  |F%-4:.16+t%+w%,p|
00002160  25 2d 65 25 2a 6b 25 2d  31 36 3a f1 c2 22 20 20  |%-e%*k%-16:.."  |
00002170  20 22 2b c3 28 65 25 2d  31 29 2c 34 29 3b 3a ed  | "+.(e%-1),4);:.|
00002180  3a 65 25 3d 31 3a c8 99  76 25 2c 60 25 3a 21 66  |:e%=1:..v%,`%:!f|
00002190  3d 68 25 3a 43 25 3d 68  25 2b 34 2a 6e 25 3a 44  |=h%:C%=h%+4*n%:D|
000021a0  25 3d 31 36 2b 74 25 2b  38 2a 77 25 3a 45 25 3d  |%=16+t%+8*w%:E%=|
000021b0  70 25 2d 31 36 0d 06 ea  7c f5 41 25 3d ba 28 76  |p%-16...|.A%=.(v|
000021c0  29 3a e7 41 25 3c 30 8c  3a 41 24 3d 24 94 41 25  |):.A%<0.:A$=$.A%|
000021d0  3a c8 95 a7 41 24 2c 22  7b 69 22 29 3e 30 3a 63  |:...A$,"{i")>0:c|
000021e0  24 3d c1 41 24 2c a7 41  24 2c 22 7b 69 22 29 2b  |$=.A$,.A$,"{i")+|
000021f0  32 29 3a 41 24 3d c1 63  24 2c a7 63 24 2c 22 7d  |2):A$=.c$,.c$,"}|
00002200  22 29 2b 31 29 3a 63 24  3d c0 63 24 2c a7 63 24  |")+1):c$=.c$,.c$|
00002210  2c 22 7d 22 29 2d 31 29  3a ec 44 25 2c 45 25 2d  |,"}")-1):.D%,E%-|
00002220  65 25 2a 6b 25 3a f1 63  24 3a 65 25 2b 3d 31 3a  |e%*k%:.c$:e%+=1:|
00002230  ce 0d 06 f4 1d fd 21 66  3e 43 25 3a e7 65 25 3d  |......!f>C%:.e%=|
00002240  31 f1 27 27 a4 54 28 22  55 53 32 3a 22 29 0d 06  |1.''.T("US2:")..|
00002250  fe 05 e1 0d 07 08 55 dd  f2 74 3a 75 25 3d 6e 25  |......U..t:u%=n%|
00002260  2d 31 3a 42 25 3d 68 25  21 34 3a 62 25 3d 68 25  |-1:B%=h%!4:b%=h%|
00002270  21 28 75 25 2a 34 29 3a  21 52 25 3d 4e 25 3a ec  |!(u%*4):!R%=N%:.|
00002280  31 36 2b 74 25 2c 70 25  2d 31 36 3a c8 99 76 25  |16+t%,p%-16:..v%|
00002290  2c 54 25 3a e7 70 61 25  8c f1 6b 24 8b f1 a4 54  |,T%:.pa%..k$...T|
000022a0  28 22 55 53 31 3a 22 29  0d 07 12 99 c8 99 76 25  |("US1:")......v%|
000022b0  2c 6c 61 25 3a e3 65 25  3d 31 b8 46 25 2d 34 3a  |,la%:.e%=1.F%-4:|
000022c0  c8 93 c8 90 74 25 2b 77  25 2c 70 25 2d 65 25 2a  |....t%+w%,p%-e%*|
000022d0  6b 25 2d 31 32 2c 38 2b  77 25 2a 35 2c 2d 33 32  |k%-12,8+w%*5,-32|
000022e0  3a ed 3a c8 99 76 25 2c  6d 61 25 3a e3 65 25 3d  |:.:..v%,ma%:.e%=|
000022f0  31 b8 46 25 2d 34 3a ec  31 36 2b 74 25 2b 77 25  |1.F%-4:.16+t%+w%|
00002300  2c 70 25 2d 65 25 2a 6b  25 2d 31 36 3a f1 c2 22  |,p%-e%*k%-16:.."|
00002310  20 20 20 22 2b c3 28 65  25 2d 31 29 2c 34 29 3b  |   "+.(e%-1),4);|
00002320  3a ed 3a 65 25 3d 31 3a  c8 99 76 25 2c 60 25 3a  |:.:e%=1:..v%,`%:|
00002330  f5 3a 41 25 3d ba 28 70  29 3a e7 41 25 3c 62 25  |.:A%=.(p):.A%<b%|
00002340  8c 0d 07 1c 41 63 24 3d  c0 24 41 25 2c a7 24 41  |....Ac$=.$A%,.$A|
00002350  25 2c 22 7d 22 29 2d 31  29 3a ec 31 36 2b 74 25  |%,"}")-1):.16+t%|
00002360  2b 31 30 2a 77 25 2c 70  25 2d 65 25 2a 6b 25 2d  |+10*w%,p%-e%*k%-|
00002370  31 36 3a f1 3b 22 20 20  22 3b 63 24 3a 65 25 2b  |16:.;"  ";c$:e%+|
00002380  3d 31 0d 07 26 05 cd 0d  07 30 26 42 25 3d 41 25  |=1..&....0&B%=A%|
00002390  2b 31 3a fd 42 25 3e 3d  62 25 3a e7 65 25 3d 31  |+1:.B%>=b%:.e%=1|
000023a0  f1 27 27 a4 54 28 22 55  53 32 3a 22 29 0d 07 3a  |.''.T("US2:")..:|
000023b0  05 e1 0d 07 44 2a dd f2  6f 3a 65 25 3d 2d 28 64  |....D*..o:e%=-(d|
000023c0  25 21 34 30 2d 70 25 29  81 6b 25 2d 31 3a e7 65  |%!40-p%).k%-1:.e|
000023d0  25 3e 3d 6e 25 65 25 3d  6e 25 2d 31 0d 07 4e 0d  |%>=n%e%=n%-1..N.|
000023e0  e7 65 25 3c 30 65 25 3d  30 0d 07 58 26 75 25 3d  |.e%<0e%=0..X&u%=|
000023f0  2d 28 64 25 21 33 32 2d  70 25 29 81 6b 25 2b 31  |-(d%!32-p%).k%+1|
00002400  3a e7 75 25 3e 3d 6e 25  75 25 3d 6e 25 2d 31 0d  |:.u%>=n%u%=n%-1.|
00002410  07 62 0d e7 75 25 3c 30  75 25 3d 30 0d 07 6c 65  |.b..u%<0u%=0..le|
00002420  61 25 3d 94 28 68 25 21  28 65 25 2a 34 29 29 3a  |a%=.(h%!(e%*4)):|
00002430  62 25 3d 94 28 68 25 21  28 75 25 2a 34 29 29 3a  |b%=.(h%!(u%*4)):|
00002440  c8 99 76 25 2c 6e 61 25  3a e3 49 25 3d 30 b8 32  |..v%,na%:.I%=0.2|
00002450  35 35 88 34 3a e7 6f 25  21 49 25 3e 3d 65 25 80  |55.4:.o%!I%>=e%.|
00002460  6f 25 21 49 25 3c 3d 75  25 3a ec 74 25 2c 70 25  |o%!I%<=u%:.t%,p%|
00002470  2d 6f 25 21 49 25 2a 6b  25 2d 32 36 3a ef 31 34  |-o%!I%*k%-26:.14|
00002480  30 0d 07 76 2b ed 3a e7  4f 25 3c 3e 2d 31 3a ec  |0..v+.:.O%<>-1:.|
00002490  74 25 2c 70 25 2d 4f 25  2a 6b 25 2d 32 36 3a c8  |t%,p%-O%*k%-26:.|
000024a0  99 76 25 2c 6f 61 25 3a  ef 31 34 31 0d 07 80 30  |.v%,oa%:.141...0|
000024b0  21 78 25 3d 32 30 3a 21  79 25 3d 2d 28 65 25 2d  |!x%=20:!y%=-(e%-|
000024c0  31 29 2a 6b 25 2d 32 34  3a 21 45 61 25 3d 61 25  |1)*k%-24:!Ea%=a%|
000024d0  3a 21 52 25 3d 62 25 3a  d6 6a 3a e1 0d ff        |:!R%=b%:.j:...|
000024de

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