Home » Archimedes archive » Archimedes World » AW-1994-08-Disc2.adf » Disk2Aug94 » !AWAug94/Goodies/MathsCard/!MathsCard/Sums/Resources/Init
!AWAug94/Goodies/MathsCard/!MathsCard/Sums/Resources/Init
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-1994-08-Disc2.adf » Disk2Aug94 |
| Filename: | !AWAug94/Goodies/MathsCard/!MathsCard/Sums/Resources/Init |
| Read OK: | ✔ |
| File size: | 2634 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
30DEFPROCinit:LOCALA%,A$,B%,B$,C%,C$,D%,D$,E%,Psprites%:DIMChoices$(3):ONERRORPRINTREPORT$+" at line "+STR$ERL:STOP
40LIBRARY"<MathsSys$Path>Kernel.Library":B$="<Obey$Dir>.Choices":IFFNgFl(B$)>0ANDFNgFt(B$)=&407THEN
50A%=OPENIN(B$):INPUT#A%,Level$,Pass$,Debug%,ShowName%,Help%,Last$,Z$,SaveChoices%,Z%,Choices$(0),Choices$(1),Choices$(2),Choices$(3):CLOSE#A%:Pass$=FNcdS(Pass$):E%=FALSE
60ELSELevel$="U":Pass$="Password":Debug%=TRUE:ShowName%=FALSE:Help%=TRUE:Last$="":SaveChoices%=FALSE:Choices$()="":E%=TRUE
70ENDIF:A$=Parameters$(1):CloseW%=3:PtrLeave%=4:PtrEnter%=5:Click%=6:KeyPress%=8:LoseCaret%=11:GainCaret%=12:CreateW%=193:Key13%=194:Wspace%=195:ClosedW%=198:PopUpW%=256:DoTail%=257:StaticW%=258:ChangeM%=259:Quit%=260:RamT%=261
90I%=FALSE:DIMJ%63:K%=FALSE:M%=FALSE:N%=FALSE:P%=FALSE:R%=FALSE:T%=FALSE:U%=FALSE:E$="":F$="":G$="":H$="":A=0:B=0:C=0:D=0:E=0:F=0:G=0:H=0:d$="":f$="":z$="":A%=6663:B%=VAL(FNpS(A$,",")):IFB%<1200THENB%=1200
100A%+=B%:DIMS%A%,S%!164 64:B%=S%!164:C%=&80D02:SYSC%,0TO,A%:B%!0=A%:SYSC%,1TO,A%:B%!4=A%:SYSC%,2TO,A%:B%!8=A%:SYSC%,3TO,A%:B%!12=A%:SYSC%,4TO,A%:B%!16=A%:SYSC%,5TO,A%:B%!20=A%:SYSC%,8TO,A%:B%!24=A%:SYSC%,9TO,A%:B%!28=A%
110SYSC%,11TO,A%:B%!36=A%:SYSC%,12TO,A%:B%!40=A%:SYSC%,14TO,A%:!S%=A%
120PROCsBw(S%+4,160,0):PROCsBw(S%+168,6496,0):Q%=S%+6664:S%!8=Q%:$(S%+20)="_":S%!112=S%+1544:S%!116=S%+1800:S%!120=S%+2056:O%=S%+2312:S%!124=O%:W%=S%+2568:S%!44=HIMEM:SYS29,0,S%!44,,HM%-S%!44:S%!48=TRUE:D%=VAL(FNpS(A$,",")):S%!80=D%:IFD%>0THENDIMS%!76D%
130S%!128=TRUE:S%!148=E%:S%!156=100:S%!168=FNrCMOS(53):SYS16TOB%:Env$=FNzT(B%):A%=INSTR(Env$,"!RunImage"):IFA%>0THEN
140B$=MID$(Env$,A%+10):B$=FNdGST(B$):B$=FNtrmS(B$,-1):IFB$<>""THEN
150D$="":WHILEB$<>"":C$=FNpS(B$," "):C$=FNtrmS(C$,-1):IFC$<>""THEND$=D$+" "+C$
160ENDWHILE:Env$=MID$(D$,2)
170ELSEEnv$=""
180ENDIF
190ELSEEnv$=""
200ENDIF:S%!188=TRUE:PROCgMi:S%!212=&8028C0:S%!216=TRUE:S%!248=VAL(FNpS(A$,","))-2:SYS81TOD%:S%!292=D%:S%!324=TRUE:DIMS%!424 31,S%!492 31:S%!456=TRUE:S%!552=TRUE:S%!556=MODE
210B%=S%+1024:an%=B%:cn%=B%+24:dn%=B%+36:en%=B%+48:fn%=B%+60:ln%=B%+132:mn%=B%+144:nn%=B%+156:pn%=B%+180:rn%=B%+204:sn%=B%+216:wn%=B%+264:$an%="":$cn%="":$dn%="":$en%="":$fn%="":$ln%="":$mn%="":$nn%="":$pn%="":$rn%="":$sn%="":$wn%=""
220B%=S%+1336:a%=B%:a0%=B%+4:b%=B%+8:b0%=B%+12:c%=B%+16:d%=B%+24:d0%=B%+28:e%=B%+32:e0%=B%+36:f%=B%+40:f0%=B%+44:g%=B%+48:g0%=B%+52:h%=B%+56:h0%=B%+60:i%=B%+64:i0%=B%+68:j%=B%+72:j0%=B%+76:k%=B%+80:k0%=B%+84:l%=B%+88:l0%=B%+92:m%=B%+96:m0%=B%+100
230n%=B%+104:q%=B%+128:r%=B%+136:r0%=B%+140:s%=B%+144:t%=B%+152:t0%=B%+156:v%=B%+168:v0%=B%+172:w%=B%+176:w0%=B%+180:x%=B%+184:x0%=B%+188:y%=B%+192:y0%=B%+196:z%=B%+200:z0%=B%+204
240!v0%=856:!w%=W%:W%+=256:C%=0:FORB%=!w%+12TO!w%+12+15*256STEP256:!B%=-255:B%!28=TRUE:B%!184=TRUE:B%!36=C%:C%+=1:NEXT
250DIMC%(1,6),I%(16),M%(16),M$(16),T$(31),z$(16):C%()=-1:C%(0,6)=0:RESTORE+0:FORA%=0TO14:READ?(S%+300+A%):NEXT:FORA%=0TO31:READT$(A%):NEXT:Poll$="":Trace1$="":Trace2$="":Trace1%=0:Trace2%=0:Trace3%=0:Trace4%=0:Trace1=0:Trace2=0:Tool%=0
260C$=FNgSV("Obey$Dir"):$sn%=FNgLn(C$):Appln$=C$:SYS&400C0,200,&4B534154,$sn%TOC%,!t%:ONERRORPROCerror
270IFC%<200THENERRORS%!212+2,"You need RISC-OS Wimp version 2.0 to run this program"
280Ovl$(0)="":PROCsPO(1):S%!560=DIM(Include$(),1):A%=S%!560<<3:DIMS%!60(A%<<2)+3:DIMS%!84(A%<<3)+7:PROCsB(S%!84,(A%<<3)+8,13):FORA%=1TOS%!560:C$=Include$(A%):B$="":S%!140=0:S%!144=0:IFC$<>""THEN
290B%=INSTR(C$,"_"):IFB%>0THENz$=MID$(C$,B%)ELSEz$=""
300$(S%!84+(A%<<3))=z$:SYS8,17,"<Obey$Dir>."+C$TOB%:IFB%=2THEN
310B$="<Obey$Dir>."+C$
320ELSESYS8,17,"<MathsSys$Path>OverRide."+C$TOB%:IFB%=2THEN
330B$="<MathsSys$Path>OverRide."+C$
340ELSEB$="<MathsSys$Path>"+C$
350ENDIF
360ENDIF
370ENDIF:IFB$<>""THEN
380B$=FNdGST(B$):IFFNtoLC(FNgLn(B$))<>"kernel"THENLIBRARYB$+".Library"
390Z%=EVAL("FNi"+z$+"(B$,A%)"):IFS%!140THENOSCLI"IconSprites "+B$+".!Sprites"
400ENDIF:NEXT:z$="_":$(S%!84)=z$:Z%=FNi_(Appln$,0):S%!140=-1:S%!144=-1:C$="IconBar":$(S%+96)=C$:S%!72=FNfM(C$):A%=FNaR(S%!72):B%=A%+4:C%=0:D%=0:REPEATB%+=24:E%=!B%:C%+=1:IFE%AND2THEND%+=1
410UNTIL(E%AND128)>0:S%!108=C%*(A%!20+A%!24)+A%!24+24*D%:B$=FNpS(A$,","):IFB$<>""THENB$=LEFT$(FNtoUC(B$),1)ELSEB$="R"
420IFB$="L"THEN!O%=-2ELSE!O%=-1
430S%!340=!O%:O%!4=0:B$=FNpS(A$,","):B$=FNtoLC(B$):IFB$=""THENB$=FNtoLC($sn%)
440IFShowName%THEN
450O%!8=-16:O%!12=160:O%!16=88:O%!20=&1700310B:B$="S"+B$:C$=FNpS(A$,","):IFC$<>""THENB$+=","+FNtoLC(C$):O%!20=&1701B10B
460DIMS%!344 11:O%!24=S%!344:$(S%!344)=MID$($sn%,2):A%=LENB$:DIMO%!28A%:$(O%!28)=B$:O%!32=12
470ELSEO%!8=0:SYS&400E9,296,,B$TO,,,A%,B%:C%=FNrMV(B%,4):O%!12=A%<<C%:O%!16=68:C$=FNpS(A$,","):IFC$<>""THEN
480B$="S"+B$+","+FNtoLC(C$):O%!20=&1701B11B:DIMO%!24 3:$(O%!24)="":A%=LENB$:DIMO%!28A%:$(O%!28)=B$:O%!32=4
490ELSEO%!20=&17003002:$(O%+24)=B$
500ENDIF
510ENDIF:SYS&400C2,,O%TO!g%:SYS&400D0,,-1:IFSaveChoices%THENPROCtMI("Choices",0)ELSEPROCutMI("Choices",0)
520IFShowName%THENPROCtMI("Choices",1)ELSEPROCutMI("Choices",1)
530IFHelp%THENPROCtMI("Choices",2)ELSEPROCutMI("Choices",2)
540ENDPROC
550DATA1,25,0,240,240,2,25,0,0,144,3,25,240,0,0
560DATA"",Alert,Basic,Edit,Paint,Draw,Texture,Display,Form,Dialog,Menu,Scroll,Sprite,Animate,DataPad,MultiPad,Tools,View,"",ThreeDee,"",Film,"","","","","","","","","",Ambig
570
580DEFPROCiRes(A$,B1%):LOCALA%,B%,B2%,B$,C%,C$,D%,D$,E%,F%,G%,H%,Z$:E%=fn%:B%=0:!(S%!60+(B1%<<2))=0:B2%=(B1%MOD32)<<27:REPEATSYS12,9,A$,E%,1,B%,12TO,,,,B%:IFB%<>-1THEN
590D%=E%:WHILE?D%:D%+=1:ENDWHILE:?D%=13:B$=FNtoLC($E%):C$=A$+"."+B$:D%=FNgFl(C$):IFD%>0THEN
600F%=FNgFt(C$):CASETRUEOF
610WHENF%=&FF9:CASEB$OF
620WHEN"sprites":D%+=16:DIMA%D%:!A%=D%:A%!4=0:A%!8=16:A%!12=16:SYS46,265,A%:SYS8,16,C$,A%+4:!(S%!60+(B1%<<2))=A%:S%!144=A%
630WHEN"!sprites":S%!140=TRUE
640ENDCASE
650WHENLEFT$(B$,1)="!",F%=&FFB,F%=&407,F%>=&FFF,F%=&AFF
660WHENF%=&402:IFB$="menus"THENDIMA%D%:C%=FNldF(C$,A%):A%!12=A%!12ORB2%:A%!28=S%!56:S%!56=A%:D%=C%+C%!20:FORF%=C%+52TOC%+28+24*C%!16STEP24:!F%+=D%:F%!-8=F%!-8ORB2%:Z%=FNiM(!F%):NEXT:C%!20=C%+32
670WHENF%=&404:IFB$="windows"THEN
680DIMA%D%:C%=FNldF(C$,A%):A%!12=A%!12ORB2%:A%!28=S%!64:S%!64=A%:D%=C%+C%!20:FORF%=C%+52TOC%+28+24*C%!16STEP24:!F%+=D%:F%!-8=F%!-8ORB2%:$wn%=$(F%-20):H%=F%!-8>>>16AND31:Z%=FNiW(!F%,H%):IFH%=10THEN
690G%=!(!F%+36):IFG%>0THENDIMA%G%-1:PROCsBw(A%,G%,0):G%=W%:W%=A%-52:R%=195:Z%=EVAL("FNe"+z$):!(!F%+12)=A%:W%=G%ELSE!(!F%+12)=0
700A%=FNaR(!F%):PROCcB(A%,Q%+4,88+(A%!84<<5)):R%=193:Z%=EVAL("FNe"+z$):SYS&400C1,,Q%+4TO!h%:$(!F%+4)="":!(!F%+8)=!h%
710ENDIF:NEXT:C%!20=C%+32:S%!32=C%
730ENDIF
740WHENF%=&408:IFB$="pointers"THENDIMA%D%:C%=FNldF(C$,A%):A%!12=A%!12ORB2%:A%!28=S%!68:S%!68=A%:D%=C%+C%!20:FORF%=C%+52TOC%+28+24*C%!16STEP24:!F%+=D%:F%!-8=F%!-8ORB2%:NEXT:C%!20=C%+32
750WHENF%=&422:SYS&40081,,"Portrhouse.Standard",160,160TOA%:S%!316=A%:A%=FNgH(D%):C%=FNldF(C$,A%):D%=C%+C%!20:FORF%=C%+32TOC%+8+24*C%!16STEP24:H%=VAL(MID$($F%,5)):H%=H%AND255
760C$=$(F%!20+D%):SYS&60081,,FNpS(C$,".")+"."+FNpS(C$,"."),VAL(FNpS(C$,"."))<<4,VAL(FNpS(C$,"."))<<4TOA%:IFA%>0THEN?(S%!112+H%)=A%
770NEXT:PROCfH(C%):S%!372=TRUE
780WHENF%=&416:A%=OPENIN(C$):IFA%>0THEN
790D%=VAL(GET$#A%):IFD%>0THEN
800CASEz$OF
810WHEN"_":DIMMsg_$(D%):Z%=FNiMsg(Msg_$(),A%):S%!496=TRUE
820ENDCASE
830ENDIF:CLOSE#A%
840ENDIF
850OTHERWISE:DIMA%D%:C%=FNldF(C$,A%):A%!12=A%!12ORB2%:A%!28=S%!52:S%!52=A%:D%=C%+C%!20:FORF%=C%+52TOC%+28+24*C%!16STEP24:!F%+=D%:F%!-8=F%!-8ORB2%:CASE$C%OF
860WHEN"Key":Z%=FNiKey(!F%)
870ENDCASE:NEXT:C%!20=C%+32
880ENDCASE
890ENDIF
900ENDIF:UNTILB%=-1:ENDPROC
920DEFFNi(A$,B%):PROCiRes(A$,B%):=TRUE
940DEFFNiKey(A%):LOCALB%,C%:FORB%=A%TOA%+&3FFSTEP4:IF!B%>512THEN!B%+=A%
950NEXT:FORB%=A%+&600TOA%+&7FFSTEP4:IF!B%>512THEN!B%+=A%
960NEXT:K%=A%:S%!24:=FALSE
970DEFFNiM(A%):LOCALB%,C%,D%,E%,F%,G$:C%=!A%:IFC%>0THEN
980F%=FNaR(A%):A%-=12:FORB%=F%+28TOF%+4+24*C%STEP24:A%+=16:E%=B%!8:IFE%AND256THEN
990B%!12+=F%:B%!16-=F%*(B%!16>1):IF!B%AND4THEN
1000G$=$A%:IFINSTR(G$,"_")=0THENG$+=z$
1010PROCcIV(G$,B%+12)
1020ENDIF:IFE%AND2THENB%!16=1
1030ENDIF:IFE%AND64THEND%=FNfF(E%>>>24)<<24:E%=E%AND&FFFFFF:B%!8=E%ORD%
1040NEXT
1050ENDIF:=FALSE
1060DEFFNiW(A%,B1%):LOCALB%,C%,C$,D%,E%,F%,G%,G1%,H%:F%=FNaR(A%):F%!64=S%!144:E%=F%!84<<5:D%=F%+88+E%:A%!64=0:IFB1%=10THEN
1070IFF%!56AND256THENF%!72+=D%
1080IFE%>0THEN
1090FORC%=F%+104TOF%+72+E%STEP32:IF!C%AND256THENC%!4+=D%:IFC%!8>0THENC%!8+=D%
1100IF!C%AND64THENH%=FNfF(!C%>>>24)<<24:!C%=!C%AND&FFFFFF:!C%=!C%ORH%
1110NEXT
1120ENDIF:E%=!A%<<4:D%=F%+72:F%=14<<12:G%=F%+(1<<23):IFE%>64THEN
1130FORC%=A%+80TOA%+E%STEP16:IF(!C%AND17)=17THEN
1140H%=D%+((!C%AND&FF00)>>>3):IF(!H%ANDG%)>=F%THEN
1150C$=$(C%-12):IFC$<>""ANDC$<>"noName"ANDC$<>"No_Name"THEN
1160IFINSTR(C$,"_")=0THENC$+=z$
1170PROCcIV(C$,H%+4)
1180ENDIF
1190ENDIF:!H%=!H%ANDNOT(1<<23)
1210ENDIF:NEXT
1220ENDIF
1230ELSEIFE%>0THEN
1240FORC%=F%+104TOF%+72+E%STEP32:IF!C%AND64THENH%=FNfF(!C%>>>24)<<24:!C%=!C%AND&FFFFFF:!C%=!C%ORH%
1250NEXT
1260ENDIF:E%=!A%<<4:D%=F%+72:F%=14<<12:G%=F%+(1<<23):IFE%>64THEN
1270B%=0:FORC%=A%+80TOA%+E%STEP16:IF(!C%AND17)=17THENH%=D%+((!C%AND&FF00)>>>3):IF(!H%ANDG%)>=F%THENB%+=4
1280NEXT:IFB%THEN
1290IFB1%=14THEN
1300DIMC% B%*7+3:PROCsB(C%,B%*6+4,-1):A%!64=C%:!C%=B%:B%+=C%+4:G1%=0:FORE%=A%+80TOA%+(!A%<<4)STEP16:IF(!E%AND17)=17THEN
1310H%=D%+((!E%AND&FF00)>>>3):IF(!H%ANDG%)>=F%THEN
1320C$=$(E%-12):IFC$<>""ANDC$<>"noName"ANDC$<>"No_Name"THEN
1330IFINSTR(C$,"_")=0THENC$+=z$
1340PROCcIV(C$,B%):!B%=H%!4:!(B%+!C%)=E%-12:!(B%+(!C%<<1))=H%!12:!(B%+5*!C%)=!E%>>>8AND&FF:IF(!H%AND&F101)>=&E101THEN!(B%+4*!C%)=G1%:G1%+=FNalign(H%!12+1)
1350B%+=4
1360ENDIF
1370ENDIF:!H%=!H%ANDNOT(1<<23)
1380ENDIF:NEXT:PROCcB(C%+!C%+4,C%+4,!C%):B%=C%+4*!C%+4:FORE%=A%+80TOA%+(!A%<<4)STEP16:IF(!E%AND4)=4THEN
1390FORB%=C%+6*!C%+4TOC%+7*!C%STEP4:IF!B%=!E%>>>8AND&FFTHEN!(B%-(!C%<<1))=E%-12:B%=C%+7*!C%
1400NEXT
1410ENDIF:NEXT:FORB%=C%+4*!C%+4TOC%+5*!C%STEP4:IF!B%<&8000THEN!B%=0
1420NEXT
1430ELSEDIMC% (B%<<1)+3:PROCsB(C%,(B%<<1)+4,-1):A%!64=C%:!C%=B%:B%+=C%+4:FORE%=A%+80TOA%+(!A%<<4)STEP16:IF(!E%AND17)=17THEN
1440H%=D%+((!E%AND&FF00)>>>3):IF(!H%ANDG%)>=F%THEN
1450C$=$(E%-12):IFC$<>""ANDC$<>"noName"ANDC$<>"No_Name"THEN
1460IFINSTR(C$,"_")=0THENC$+=z$
1470PROCcIV(C$,B%):!B%=H%!4:B%+=4
1480ENDIF
1490ENDIF:!H%=!H%ANDNOT(1<<23)
1510ENDIF:NEXT:PROCcB(C%+!C%+4,C%+4,!C%)
1520ENDIF
1530ENDIF
1540ENDIF
1550ENDIF:=FALSE
1560DEFPROCiFd(A$,H%):LOCALA%,B%,C%,D%,E%,F%,F$,G%:A%=S%!32:!Q%=0:Q%!4=0:Q%!8=0:Q%!12=H%:D%=Q%+16:FORB%=A%+52TOA%+28+24*A%!16STEP24:C%=!B%:IF!C%>4AND(C%!80AND255)=32THEN
1570!D%=C%!72>>>8AND&3FFF:D%!4=C%!76:D%!8=C%!68AND&FFFFFF:$(D%+16)=$(B%-20):Q%!8+=1:E%=C%!68>>>24AND7:CASEE%OF
1580WHEN1:D%!12=1:Q%!4=Q%!4OR1:D%!8=D%!8+56
1590WHEN2:D%!12=2:Q%!4=Q%!4OR2:D%+=28:!D%=C%!80>>>8AND&3FFF:D%!4=C%!76:D%!4=D%!4ANDNOT255:D%!4=D%!4OR1:D%!4=D%!4OR(1<<11):D%!8=C%!68AND&FFFFFF:D%!12=2:$(D%+16)=$(B%-20):Q%!8+=1
1600WHEN3:D%!12=4:Q%!4=Q%!4OR4:F%=FNaR(C%)+88:G%=0:FORH%=F%+16TOF%+(F%!-4<<5)STEP32:IF(!H%AND&F101)>=&E101THENG%+=FNalign(H%!12+1)
1610NEXT:D%!8=G%:D%+=28:!D%=C%!80>>>8AND&3FFF:D%!4=C%!76:D%!4=D%!4ANDNOT(255<<8):D%!8=0:D%!12=4:$(D%+16)=$(B%-20):Q%!8+=1
1620WHEN4:D%!12=8:Q%!4=Q%!4OR8
1630ENDCASE:D%+=28
1640ENDIF:NEXT:WHILEA$<>"":F$=FNpS(A$,","):!D%=FNval(F$):F$=FNpS(A$,","):IFF$="''"THEND%!4=D%!-24:D%!8=D%!-20:D%!12=D%!-16:$(D%+16)=$(D%-12)ELSED%!4=FNval(F$):F$=FNpS(A$,","):D%!8=FNval(F$):F$=FNpS(A$,","):D%!12=FNval(F$):F$=FNpS(A$,","):$(D%+16)=F$
1650Q%!8+=1:D%+=28:ENDWHILE:IFQ%!8>0THENDIMB%Q%!8*28+15:!B%=S%!88:S%!88=B%:PROCcB(Q%+4,B%+4,Q%!8*28+16)
1660ENDPROC
1670DEFFNiMsg(A$(),B%):LOCALC%:C%=0:REPEAT:A$(C%)=GET$#B%:C%+=1:UNTILEOF#B%:=FALSE
T��init:�A%,A$,B%,B$,C%,C$,D%,D$,E%,Psprites%:�Choices$(3):��$+" at line "+Þ:�
(Xț"<MathsSys$Path>Kernel.Library":B$="<Obey$Dir>.Choices":�gFl(B$)>0��gFt(B$)=&407�
2�A%=�(B$):�#A%,Level$,Pass$,Debug%,ShowName%,Help%,Last$,Z$,SaveChoices%,Z%,Choices$(0),Choices$(1),Choices$(2),Choices$(3):�#A%:Pass$=�cdS(Pass$):E%=�
<h�Level$="U":Pass$="Password":Debug%=�:ShowName%=�:Help%=�:Last$="":SaveChoices%=�:Choices$()="":E%=�
F��:A$=Parameters$(1):CloseW%=3:PtrLeave%=4:PtrEnter%=5:Click%=6:KeyPress%=8:LoseCaret%=11:GainCaret%=12:CreateW%=193:Key13%=194:Wspace%=195:ClosedW%=198:PopUpW%=256:DoTail%=257:StaticW%=258:ChangeM%=259:Quit%=260:RamT%=261
Z�I%=�:�J%63:K%=�:M%=�:N%=�:P%=�:R%=�:T%=�:U%=�:E$="":F$="":G$="":H$="":A=0:B=0:C=0:D=0:E=0:F=0:G=0:H=0:d$="":f$="":z$="":A%=6663:B%=�(�pS(A$,",")):�B%<1200�B%=1200
d�A%+=B%:�S%A%,S%!164 64:B%=S%!164:C%=&80D02:șC%,0�,A%:B%!0=A%:șC%,1�,A%:B%!4=A%:șC%,2�,A%:B%!8=A%:șC%,3�,A%:B%!12=A%:șC%,4�,A%:B%!16=A%:șC%,5�,A%:B%!20=A%:șC%,8�,A%:B%!24=A%:șC%,9�,A%:B%!28=A%
n@șC%,11�,A%:B%!36=A%:șC%,12�,A%:B%!40=A%:șC%,14�,A%:!S%=A%
x��sBw(S%+4,160,0):�sBw(S%+168,6496,0):Q%=S%+6664:S%!8=Q%:$(S%+20)="_":S%!112=S%+1544:S%!116=S%+1800:S%!120=S%+2056:O%=S%+2312:S%!124=O%:W%=S%+2568:S%!44=�:ș29,0,S%!44,,HM%-S%!44:S%!48=�:D%=�(�pS(A$,",")):S%!80=D%:�D%>0��S%!76D%
�eS%!128=�:S%!148=E%:S%!156=100:S%!168=�rCMOS(53):ș16�B%:Env$=�zT(B%):A%=�Env$,"!RunImage"):�A%>0�
�9B$=�Env$,A%+10):B$=�dGST(B$):B$=�trmS(B$,-1):�B$<>""�
�FD$="":ȕB$<>"":C$=�pS(B$," "):C$=�trmS(C$,-1):�C$<>""�D$=D$+" "+C$
��:Env$=�D$,2)
� �Env$=""
��
� �Env$=""
Ȏ�:S%!188=�:�gMi:S%!212=&8028C0:S%!216=�:S%!248=�(�pS(A$,","))-2:ș81�D%:S%!292=D%:S%!324=�:�S%!424 31,S%!492 31:S%!456=�:S%!552=�:S%!556=�
��B%=S%+1024:an%=B%:cn%=B%+24:dn%=B%+36:en%=B%+48:fn%=B%+60:ln%=B%+132:mn%=B%+144:nn%=B%+156:pn%=B%+180:rn%=B%+204:sn%=B%+216:wn%=B%+264:$an%="":$cn%="":$dn%="":$en%="":$fn%="":$ln%="":$mn%="":$nn%="":$pn%="":$rn%="":$sn%="":$wn%=""
�B%=S%+1336:a%=B%:a0%=B%+4:b%=B%+8:b0%=B%+12:c%=B%+16:d%=B%+24:d0%=B%+28:e%=B%+32:e0%=B%+36:f%=B%+40:f0%=B%+44:g%=B%+48:g0%=B%+52:h%=B%+56:h0%=B%+60:i%=B%+64:i0%=B%+68:j%=B%+72:j0%=B%+76:k%=B%+80:k0%=B%+84:l%=B%+88:l0%=B%+92:m%=B%+96:m0%=B%+100
�n%=B%+104:q%=B%+128:r%=B%+136:r0%=B%+140:s%=B%+144:t%=B%+152:t0%=B%+156:v%=B%+168:v0%=B%+172:w%=B%+176:w0%=B%+180:x%=B%+184:x0%=B%+188:y%=B%+192:y0%=B%+196:z%=B%+200:z0%=B%+204
�h!v0%=856:!w%=W%:W%+=256:C%=0:�B%=!w%+12�!w%+12+15*256�256:!B%=-255:B%!28=�:B%!184=�:B%!36=C%:C%+=1:�
���C%(1,6),I%(16),M%(16),M$(16),T$(31),z$(16):C%()=-1:C%(0,6)=0:�+0:�A%=0�14:�?(S%+300+A%):�:�A%=0�31:�T$(A%):�:Poll$="":Trace1$="":Trace2$="":Trace1%=0:Trace2%=0:Trace3%=0:Trace4%=0:Trace1=0:Trace2=0:Tool%=0
[C$=�gSV("Obey$Dir"):$sn%=�gLn(C$):Appln$=C$:ș&400C0,200,&4B534154,$sn%�C%,!t%:��error
M�C%<200��S%!212+2,"You need RISC-OS Wimp version 2.0 to run this program"
�Ovl$(0)="":�sPO(1):S%!560=�(Include$(),1):A%=S%!560<<3:�S%!60(A%<<2)+3:�S%!84(A%<<3)+7:�sB(S%!84,(A%<<3)+8,13):�A%=1�S%!560:C$=Include$(A%):B$="":S%!140=0:S%!144=0:�C$<>""�
"&B%=�C$,"_"):�B%>0�z$=�C$,B%)�z$=""
,9$(S%!84+(A%<<3))=z$:ș8,17,"<Obey$Dir>."+C$�B%:�B%=2�
6B$="<Obey$Dir>."+C$
@3�ș8,17,"<MathsSys$Path>OverRide."+C$�B%:�B%=2�
J$B$="<MathsSys$Path>OverRide."+C$
T �B$="<MathsSys$Path>"+C$
^�
h�
r�:�B$<>""�
|;B$=�dGST(B$):�toLC(�gLn(B$))<>"kernel"�țB$+".Library"
�CZ%=�("FNi"+z$+"(B$,A%)"):�S%!140��"IconSprites "+B$+".!Sprites"
���:�:z$="_":$(S%!84)=z$:Z%=�i_(Appln$,0):S%!140=-1:S%!144=-1:C$="IconBar":$(S%+96)=C$:S%!72=�fM(C$):A%=�aR(S%!72):B%=A%+4:C%=0:D%=0:�B%+=24:E%=!B%:C%+=1:�E%�2�D%+=1
�b�(E%�128)>0:S%!108=C%*(A%!20+A%!24)+A%!24+24*D%:B$=�pS(A$,","):�B$<>""�B$=��toUC(B$),1)�B$="R"
��B$="L"�!O%=-2�!O%=-1
�GS%!340=!O%:O%!4=0:B$=�pS(A$,","):B$=�toLC(B$):�B$=""�B$=�toLC($sn%)
��ShowName%�
�rO%!8=-16:O%!12=160:O%!16=88:O%!20=&1700310B:B$="S"+B$:C$=�pS(A$,","):�C$<>""�B$+=","+�toLC(C$):O%!20=&1701B10B
�S�S%!344 11:O%!24=S%!344:$(S%!344)=�$sn%,2):A%=�B$:�O%!28A%:$(O%!28)=B$:O%!32=12
�a�O%!8=0:ș&400E9,296,,B$�,,,A%,B%:C%=�rMV(B%,4):O%!12=A%<<C%:O%!16=68:C$=�pS(A$,","):�C$<>""�
�dB$="S"+B$+","+�toLC(C$):O%!20=&1701B11B:�O%!24 3:$(O%!24)="":A%=�B$:�O%!28A%:$(O%!28)=B$:O%!32=4
� �O%!20=&17003002:$(O%+24)=B$
��
�V�:ș&400C2,,O%�!g%:ș&400D0,,-1:�SaveChoices%��tMI("Choices",0)��utMI("Choices",0)
3�ShowName%��tMI("Choices",1)��utMI("Choices",1)
/�Help%��tMI("Choices",2)��utMI("Choices",2)
�
&-�1,25,0,240,240,2,25,0,0,144,3,25,240,0,0
0��"",Alert,Basic,Edit,Paint,Draw,Texture,Display,Form,Dialog,Menu,Scroll,Sprite,Animate,DataPad,MultiPad,Tools,View,"",ThreeDee,"",Film,"","","","","","","","","",Ambig
:
D���iRes(A$,B1%):�A%,B%,B2%,B$,C%,C$,D%,D$,E%,F%,G%,H%,Z$:E%=fn%:B%=0:!(S%!60+(B1%<<2))=0:B2%=(B1%�32)<<27:�ș12,9,A$,E%,1,B%,12�,,,,B%:�B%<>-1�
NLD%=E%:ȕ?D%:D%+=1:�:?D%=13:B$=�toLC($E%):C$=A$+"."+B$:D%=�gFl(C$):�D%>0�
XF%=�gFt(C$):Ȏ��
b�F%=&FF9:ȎB$�
lt�"sprites":D%+=16:�A%D%:!A%=D%:A%!4=0:A%!8=16:A%!12=16:ș46,265,A%:ș8,16,C$,A%+4:!(S%!60+(B1%<<2))=A%:S%!144=A%
v�"!sprites":S%!140=�
��
�0�B$,1)="!",F%=&FFB,F%=&407,F%>=&FFF,F%=&AFF
���F%=&402:�B$="menus"��A%D%:C%=�ldF(C$,A%):A%!12=A%!12�B2%:A%!28=S%!56:S%!56=A%:D%=C%+C%!20:�F%=C%+52�C%+28+24*C%!16�24:!F%+=D%:F%!-8=F%!-8�B2%:Z%=�iM(!F%):�:C%!20=C%+32
��F%=&404:�B$="windows"�
���A%D%:C%=�ldF(C$,A%):A%!12=A%!12�B2%:A%!28=S%!64:S%!64=A%:D%=C%+C%!20:�F%=C%+52�C%+28+24*C%!16�24:!F%+=D%:F%!-8=F%!-8�B2%:$wn%=$(F%-20):H%=F%!-8>>>16�31:Z%=�iW(!F%,H%):�H%=10�
�pG%=!(!F%+36):�G%>0��A%G%-1:�sBw(A%,G%,0):G%=W%:W%=A%-52:R%=195:Z%=�("FNe"+z$):!(!F%+12)=A%:W%=G%�!(!F%+12)=0
�lA%=�aR(!F%):�cB(A%,Q%+4,88+(A%!84<<5)):R%=193:Z%=�("FNe"+z$):ș&400C1,,Q%+4�!h%:$(!F%+4)="":!(!F%+8)=!h%
� �:�:C%!20=C%+32:S%!32=C%
��
��F%=&408:�B$="pointers"��A%D%:C%=�ldF(C$,A%):A%!12=A%!12�B2%:A%!28=S%!68:S%!68=A%:D%=C%+C%!20:�F%=C%+52�C%+28+24*C%!16�24:!F%+=D%:F%!-8=F%!-8�B2%:�:C%!20=C%+32
��F%=&422:ș&40081,,"Portrhouse.Standard",160,160�A%:S%!316=A%:A%=�gH(D%):C%=�ldF(C$,A%):D%=C%+C%!20:�F%=C%+32�C%+8+24*C%!16�24:H%=�(�$F%,5)):H%=H%�255
�uC$=$(F%!20+D%):ș&60081,,�pS(C$,".")+"."+�pS(C$,"."),�(�pS(C$,"."))<<4,�(�pS(C$,"."))<<4�A%:�A%>0�?(S%!112+H%)=A%
�:�fH(C%):S%!372=�
�F%=&416:A%=�(C$):�A%>0�
D%=�(�#A%):�D%>0�
Ȏz$�
*1�"_":�Msg_$(D%):Z%=�iMsg(Msg_$(),A%):S%!496=�
4�
>
�:�#A%
H�
R�:�A%D%:C%=�ldF(C$,A%):A%!12=A%!12�B2%:A%!28=S%!52:S%!52=A%:D%=C%+C%!20:�F%=C%+52�C%+28+24*C%!16�24:!F%+=D%:F%!-8=F%!-8�B2%:Ȏ$C%�
\�"Key":Z%=�iKey(!F%)
f�:�:C%!20=C%+32
p�
z�
��:�B%=-1:�
� ݤi(A$,B%):�iRes(A$,B%):=�
�7ݤiKey(A%):�B%,C%:�B%=A%�A%+&3FF�4:�!B%>512�!B%+=A%
�,�:�B%=A%+&600�A%+&7FF�4:�!B%>512�!B%+=A%
��:K%=A%:S%!24:=�
�-ݤiM(A%):�B%,C%,D%,E%,F%,G$:C%=!A%:�C%>0�
�EF%=�aR(A%):A%-=12:�B%=F%+28�F%+4+24*C%�24:A%+=16:E%=B%!8:�E%�256�
�)B%!12+=F%:B%!16-=F%*(B%!16>1):�!B%�4�
� G$=$A%:�G$,"_")=0�G$+=z$
��cIV(G$,B%+12)
��:�E%�2�B%!16=1
9�:�E%�64�D%=�fF(E%>>>24)<<24:E%=E%�&FFFFFF:B%!8=E%�D%
�
�:=�
$nݤiW(A%,B1%):�B%,C%,C$,D%,E%,F%,G%,G1%,H%:F%=�aR(A%):F%!64=S%!144:E%=F%!84<<5:D%=F%+88+E%:A%!64=0:�B1%=10�
.�F%!56�256�F%!72+=D%
8
�E%>0�
B=�C%=F%+104�F%+72+E%�32:�!C%�256�C%!4+=D%:�C%!8>0�C%!8+=D%
L;�!C%�64�H%=�fF(!C%>>>24)<<24:!C%=!C%�&FFFFFF:!C%=!C%�H%
V�
`8�:E%=!A%<<4:D%=F%+72:F%=14<<12:G%=F%+(1<<23):�E%>64�
j$�C%=A%+80�A%+E%�16:�(!C%�17)=17�
t*H%=D%+((!C%�&FF00)>>>3):�(!H%�G%)>=F%�
~3C$=$(C%-12):�C$<>""�C$<>"noName"�C$<>"No_Name"�
��C$,"_")=0�C$+=z$
��cIV(C$,H%+4)
��
��:!H%=!H%��(1<<23)
��:�
��
� ��E%>0�
�R�C%=F%+104�F%+72+E%�32:�!C%�64�H%=�fF(!C%>>>24)<<24:!C%=!C%�&FFFFFF:!C%=!C%�H%
��
�8�:E%=!A%<<4:D%=F%+72:F%=14<<12:G%=F%+(1<<23):�E%>64�
�TB%=0:�C%=A%+80�A%+E%�16:�(!C%�17)=17�H%=D%+((!C%�&FF00)>>>3):�(!H%�G%)>=F%�B%+=4
�:�B%�
�B1%=14�
f�C% B%*7+3:�sB(C%,B%*6+4,-1):A%!64=C%:!C%=B%:B%+=C%+4:G1%=0:�E%=A%+80�A%+(!A%<<4)�16:�(!E%�17)=17�
*H%=D%+((!E%�&FF00)>>>3):�(!H%�G%)>=F%�
(3C$=$(E%-12):�C$<>""�C$<>"noName"�C$<>"No_Name"�
2�C$,"_")=0�C$+=z$
<��cIV(C$,B%):!B%=H%!4:!(B%+!C%)=E%-12:!(B%+(!C%<<1))=H%!12:!(B%+5*!C%)=!E%>>>8�&FF:�(!H%�&F101)>=&E101�!(B%+4*!C%)=G1%:G1%+=�align(H%!12+1)
F B%+=4
P�
Z�:!H%=!H%��(1<<23)
dQ�:�:�cB(C%+!C%+4,C%+4,!C%):B%=C%+4*!C%+4:�E%=A%+80�A%+(!A%<<4)�16:�(!E%�4)=4�
nO�B%=C%+6*!C%+4�C%+7*!C%�4:�!B%=!E%>>>8�&FF�!(B%-(!C%<<1))=E%-12:B%=C%+7*!C%
x�
�2�:�:�B%=C%+4*!C%+4�C%+5*!C%�4:�!B%<&8000�!B%=0
��
�g��C% (B%<<1)+3:�sB(C%,(B%<<1)+4,-1):A%!64=C%:!C%=B%:B%+=C%+4:�E%=A%+80�A%+(!A%<<4)�16:�(!E%�17)=17�
�*H%=D%+((!E%�&FF00)>>>3):�(!H%�G%)>=F%�
�3C$=$(E%-12):�C$<>""�C$<>"noName"�C$<>"No_Name"�
��C$,"_")=0�C$+=z$
� �cIV(C$,B%):!B%=H%!4:B%+=4
��
��:!H%=!H%��(1<<23)
� �:�:�cB(C%+!C%+4,C%+4,!C%)
��
��
�
�:=�
���iFd(A$,H%):�A%,B%,C%,D%,E%,F%,F$,G%:A%=S%!32:!Q%=0:Q%!4=0:Q%!8=0:Q%!12=H%:D%=Q%+16:�B%=A%+52�A%+28+24*A%!16�24:C%=!B%:�!C%>4�(C%!80�255)=32�
"e!D%=C%!72>>>8�&3FFF:D%!4=C%!76:D%!8=C%!68�&FFFFFF:$(D%+16)=$(B%-20):Q%!8+=1:E%=C%!68>>>24�7:ȎE%�
,'�1:D%!12=1:Q%!4=Q%!4�1:D%!8=D%!8+56
6��2:D%!12=2:Q%!4=Q%!4�2:D%+=28:!D%=C%!80>>>8�&3FFF:D%!4=C%!76:D%!4=D%!4��255:D%!4=D%!4�1:D%!4=D%!4�(1<<11):D%!8=C%!68�&FFFFFF:D%!12=2:$(D%+16)=$(B%-20):Q%!8+=1
@p�3:D%!12=4:Q%!4=Q%!4�4:F%=�aR(C%)+88:G%=0:�H%=F%+16�F%+(F%!-4<<5)�32:�(!H%�&F101)>=&E101�G%+=�align(H%!12+1)
Jp�:D%!8=G%:D%+=28:!D%=C%!80>>>8�&3FFF:D%!4=C%!76:D%!4=D%!4��(255<<8):D%!8=0:D%!12=4:$(D%+16)=$(B%-20):Q%!8+=1
T�4:D%!12=8:Q%!4=Q%!4�8
^ �:D%+=28
h��:�:ȕA$<>"":F$=�pS(A$,","):!D%=�val(F$):F$=�pS(A$,","):�F$="''"�D%!4=D%!-24:D%!8=D%!-20:D%!12=D%!-16:$(D%+16)=$(D%-12)�D%!4=�val(F$):F$=�pS(A$,","):D%!8=�val(F$):F$=�pS(A$,","):D%!12=�val(F$):F$=�pS(A$,","):$(D%+16)=F$
rWQ%!8+=1:D%+=28:�:�Q%!8>0��B%Q%!8*28+15:!B%=S%!88:S%!88=B%:�cB(Q%+4,B%+4,Q%!8*28+16)
|�
�9ݤiMsg(A$(),B%):�C%:C%=0:�:A$(C%)=�#B%:C%+=1:��#B%:=�
� 00000000 0d 00 1e 54 dd f2 69 6e 69 74 3a ea 41 25 2c 41 |...T..init:.A%,A|
00000010 24 2c 42 25 2c 42 24 2c 43 25 2c 43 24 2c 44 25 |$,B%,B$,C%,C$,D%|
00000020 2c 44 24 2c 45 25 2c 50 73 70 72 69 74 65 73 25 |,D$,E%,Psprites%|
00000030 3a de 43 68 6f 69 63 65 73 24 28 33 29 3a ee 85 |:.Choices$(3):..|
00000040 f1 f6 24 2b 22 20 61 74 20 6c 69 6e 65 20 22 2b |..$+" at line "+|
00000050 c3 9e 3a fa 0d 00 28 58 c8 9b 22 3c 4d 61 74 68 |..:...(X.."<Math|
00000060 73 53 79 73 24 50 61 74 68 3e 4b 65 72 6e 65 6c |sSys$Path>Kernel|
00000070 2e 4c 69 62 72 61 72 79 22 3a 42 24 3d 22 3c 4f |.Library":B$="<O|
00000080 62 65 79 24 44 69 72 3e 2e 43 68 6f 69 63 65 73 |bey$Dir>.Choices|
00000090 22 3a e7 a4 67 46 6c 28 42 24 29 3e 30 80 a4 67 |":..gFl(B$)>0..g|
000000a0 46 74 28 42 24 29 3d 26 34 30 37 8c 0d 00 32 9a |Ft(B$)=&407...2.|
000000b0 41 25 3d 8e 28 42 24 29 3a e8 23 41 25 2c 4c 65 |A%=.(B$):.#A%,Le|
000000c0 76 65 6c 24 2c 50 61 73 73 24 2c 44 65 62 75 67 |vel$,Pass$,Debug|
000000d0 25 2c 53 68 6f 77 4e 61 6d 65 25 2c 48 65 6c 70 |%,ShowName%,Help|
000000e0 25 2c 4c 61 73 74 24 2c 5a 24 2c 53 61 76 65 43 |%,Last$,Z$,SaveC|
000000f0 68 6f 69 63 65 73 25 2c 5a 25 2c 43 68 6f 69 63 |hoices%,Z%,Choic|
00000100 65 73 24 28 30 29 2c 43 68 6f 69 63 65 73 24 28 |es$(0),Choices$(|
00000110 31 29 2c 43 68 6f 69 63 65 73 24 28 32 29 2c 43 |1),Choices$(2),C|
00000120 68 6f 69 63 65 73 24 28 33 29 3a d9 23 41 25 3a |hoices$(3):.#A%:|
00000130 50 61 73 73 24 3d a4 63 64 53 28 50 61 73 73 24 |Pass$=.cdS(Pass$|
00000140 29 3a 45 25 3d a3 0d 00 3c 68 cc 4c 65 76 65 6c |):E%=...<h.Level|
00000150 24 3d 22 55 22 3a 50 61 73 73 24 3d 22 50 61 73 |$="U":Pass$="Pas|
00000160 73 77 6f 72 64 22 3a 44 65 62 75 67 25 3d b9 3a |sword":Debug%=.:|
00000170 53 68 6f 77 4e 61 6d 65 25 3d a3 3a 48 65 6c 70 |ShowName%=.:Help|
00000180 25 3d b9 3a 4c 61 73 74 24 3d 22 22 3a 53 61 76 |%=.:Last$="":Sav|
00000190 65 43 68 6f 69 63 65 73 25 3d a3 3a 43 68 6f 69 |eChoices%=.:Choi|
000001a0 63 65 73 24 28 29 3d 22 22 3a 45 25 3d b9 0d 00 |ces$()="":E%=...|
000001b0 46 e1 cd 3a 41 24 3d 50 61 72 61 6d 65 74 65 72 |F..:A$=Parameter|
000001c0 73 24 28 31 29 3a 43 6c 6f 73 65 57 25 3d 33 3a |s$(1):CloseW%=3:|
000001d0 50 74 72 4c 65 61 76 65 25 3d 34 3a 50 74 72 45 |PtrLeave%=4:PtrE|
000001e0 6e 74 65 72 25 3d 35 3a 43 6c 69 63 6b 25 3d 36 |nter%=5:Click%=6|
000001f0 3a 4b 65 79 50 72 65 73 73 25 3d 38 3a 4c 6f 73 |:KeyPress%=8:Los|
00000200 65 43 61 72 65 74 25 3d 31 31 3a 47 61 69 6e 43 |eCaret%=11:GainC|
00000210 61 72 65 74 25 3d 31 32 3a 43 72 65 61 74 65 57 |aret%=12:CreateW|
00000220 25 3d 31 39 33 3a 4b 65 79 31 33 25 3d 31 39 34 |%=193:Key13%=194|
00000230 3a 57 73 70 61 63 65 25 3d 31 39 35 3a 43 6c 6f |:Wspace%=195:Clo|
00000240 73 65 64 57 25 3d 31 39 38 3a 50 6f 70 55 70 57 |sedW%=198:PopUpW|
00000250 25 3d 32 35 36 3a 44 6f 54 61 69 6c 25 3d 32 35 |%=256:DoTail%=25|
00000260 37 3a 53 74 61 74 69 63 57 25 3d 32 35 38 3a 43 |7:StaticW%=258:C|
00000270 68 61 6e 67 65 4d 25 3d 32 35 39 3a 51 75 69 74 |hangeM%=259:Quit|
00000280 25 3d 32 36 30 3a 52 61 6d 54 25 3d 32 36 31 0d |%=260:RamT%=261.|
00000290 00 5a a6 49 25 3d a3 3a de 4a 25 36 33 3a 4b 25 |.Z.I%=.:.J%63:K%|
000002a0 3d a3 3a 4d 25 3d a3 3a 4e 25 3d a3 3a 50 25 3d |=.:M%=.:N%=.:P%=|
000002b0 a3 3a 52 25 3d a3 3a 54 25 3d a3 3a 55 25 3d a3 |.:R%=.:T%=.:U%=.|
000002c0 3a 45 24 3d 22 22 3a 46 24 3d 22 22 3a 47 24 3d |:E$="":F$="":G$=|
000002d0 22 22 3a 48 24 3d 22 22 3a 41 3d 30 3a 42 3d 30 |"":H$="":A=0:B=0|
000002e0 3a 43 3d 30 3a 44 3d 30 3a 45 3d 30 3a 46 3d 30 |:C=0:D=0:E=0:F=0|
000002f0 3a 47 3d 30 3a 48 3d 30 3a 64 24 3d 22 22 3a 66 |:G=0:H=0:d$="":f|
00000300 24 3d 22 22 3a 7a 24 3d 22 22 3a 41 25 3d 36 36 |$="":z$="":A%=66|
00000310 36 33 3a 42 25 3d bb 28 a4 70 53 28 41 24 2c 22 |63:B%=.(.pS(A$,"|
00000320 2c 22 29 29 3a e7 42 25 3c 31 32 30 30 8c 42 25 |,")):.B%<1200.B%|
00000330 3d 31 32 30 30 0d 00 64 cb 41 25 2b 3d 42 25 3a |=1200..d.A%+=B%:|
00000340 de 53 25 41 25 2c 53 25 21 31 36 34 20 36 34 3a |.S%A%,S%!164 64:|
00000350 42 25 3d 53 25 21 31 36 34 3a 43 25 3d 26 38 30 |B%=S%!164:C%=&80|
00000360 44 30 32 3a c8 99 43 25 2c 30 b8 2c 41 25 3a 42 |D02:..C%,0.,A%:B|
00000370 25 21 30 3d 41 25 3a c8 99 43 25 2c 31 b8 2c 41 |%!0=A%:..C%,1.,A|
00000380 25 3a 42 25 21 34 3d 41 25 3a c8 99 43 25 2c 32 |%:B%!4=A%:..C%,2|
00000390 b8 2c 41 25 3a 42 25 21 38 3d 41 25 3a c8 99 43 |.,A%:B%!8=A%:..C|
000003a0 25 2c 33 b8 2c 41 25 3a 42 25 21 31 32 3d 41 25 |%,3.,A%:B%!12=A%|
000003b0 3a c8 99 43 25 2c 34 b8 2c 41 25 3a 42 25 21 31 |:..C%,4.,A%:B%!1|
000003c0 36 3d 41 25 3a c8 99 43 25 2c 35 b8 2c 41 25 3a |6=A%:..C%,5.,A%:|
000003d0 42 25 21 32 30 3d 41 25 3a c8 99 43 25 2c 38 b8 |B%!20=A%:..C%,8.|
000003e0 2c 41 25 3a 42 25 21 32 34 3d 41 25 3a c8 99 43 |,A%:B%!24=A%:..C|
000003f0 25 2c 39 b8 2c 41 25 3a 42 25 21 32 38 3d 41 25 |%,9.,A%:B%!28=A%|
00000400 0d 00 6e 40 c8 99 43 25 2c 31 31 b8 2c 41 25 3a |..n@..C%,11.,A%:|
00000410 42 25 21 33 36 3d 41 25 3a c8 99 43 25 2c 31 32 |B%!36=A%:..C%,12|
00000420 b8 2c 41 25 3a 42 25 21 34 30 3d 41 25 3a c8 99 |.,A%:B%!40=A%:..|
00000430 43 25 2c 31 34 b8 2c 41 25 3a 21 53 25 3d 41 25 |C%,14.,A%:!S%=A%|
00000440 0d 00 78 e7 f2 73 42 77 28 53 25 2b 34 2c 31 36 |..x..sBw(S%+4,16|
00000450 30 2c 30 29 3a f2 73 42 77 28 53 25 2b 31 36 38 |0,0):.sBw(S%+168|
00000460 2c 36 34 39 36 2c 30 29 3a 51 25 3d 53 25 2b 36 |,6496,0):Q%=S%+6|
00000470 36 36 34 3a 53 25 21 38 3d 51 25 3a 24 28 53 25 |664:S%!8=Q%:$(S%|
00000480 2b 32 30 29 3d 22 5f 22 3a 53 25 21 31 31 32 3d |+20)="_":S%!112=|
00000490 53 25 2b 31 35 34 34 3a 53 25 21 31 31 36 3d 53 |S%+1544:S%!116=S|
000004a0 25 2b 31 38 30 30 3a 53 25 21 31 32 30 3d 53 25 |%+1800:S%!120=S%|
000004b0 2b 32 30 35 36 3a 4f 25 3d 53 25 2b 32 33 31 32 |+2056:O%=S%+2312|
000004c0 3a 53 25 21 31 32 34 3d 4f 25 3a 57 25 3d 53 25 |:S%!124=O%:W%=S%|
000004d0 2b 32 35 36 38 3a 53 25 21 34 34 3d 93 3a c8 99 |+2568:S%!44=.:..|
000004e0 32 39 2c 30 2c 53 25 21 34 34 2c 2c 48 4d 25 2d |29,0,S%!44,,HM%-|
000004f0 53 25 21 34 34 3a 53 25 21 34 38 3d b9 3a 44 25 |S%!44:S%!48=.:D%|
00000500 3d bb 28 a4 70 53 28 41 24 2c 22 2c 22 29 29 3a |=.(.pS(A$,",")):|
00000510 53 25 21 38 30 3d 44 25 3a e7 44 25 3e 30 8c de |S%!80=D%:.D%>0..|
00000520 53 25 21 37 36 44 25 0d 00 82 65 53 25 21 31 32 |S%!76D%...eS%!12|
00000530 38 3d b9 3a 53 25 21 31 34 38 3d 45 25 3a 53 25 |8=.:S%!148=E%:S%|
00000540 21 31 35 36 3d 31 30 30 3a 53 25 21 31 36 38 3d |!156=100:S%!168=|
00000550 a4 72 43 4d 4f 53 28 35 33 29 3a c8 99 31 36 b8 |.rCMOS(53):..16.|
00000560 42 25 3a 45 6e 76 24 3d a4 7a 54 28 42 25 29 3a |B%:Env$=.zT(B%):|
00000570 41 25 3d a7 45 6e 76 24 2c 22 21 52 75 6e 49 6d |A%=.Env$,"!RunIm|
00000580 61 67 65 22 29 3a e7 41 25 3e 30 8c 0d 00 8c 39 |age"):.A%>0....9|
00000590 42 24 3d c1 45 6e 76 24 2c 41 25 2b 31 30 29 3a |B$=.Env$,A%+10):|
000005a0 42 24 3d a4 64 47 53 54 28 42 24 29 3a 42 24 3d |B$=.dGST(B$):B$=|
000005b0 a4 74 72 6d 53 28 42 24 2c 2d 31 29 3a e7 42 24 |.trmS(B$,-1):.B$|
000005c0 3c 3e 22 22 8c 0d 00 96 46 44 24 3d 22 22 3a c8 |<>""....FD$="":.|
000005d0 95 42 24 3c 3e 22 22 3a 43 24 3d a4 70 53 28 42 |.B$<>"":C$=.pS(B|
000005e0 24 2c 22 20 22 29 3a 43 24 3d a4 74 72 6d 53 28 |$," "):C$=.trmS(|
000005f0 43 24 2c 2d 31 29 3a e7 43 24 3c 3e 22 22 8c 44 |C$,-1):.C$<>"".D|
00000600 24 3d 44 24 2b 22 20 22 2b 43 24 0d 00 a0 11 ce |$=D$+" "+C$.....|
00000610 3a 45 6e 76 24 3d c1 44 24 2c 32 29 0d 00 aa 0c |:Env$=.D$,2)....|
00000620 cc 45 6e 76 24 3d 22 22 0d 00 b4 05 cd 0d 00 be |.Env$=""........|
00000630 0c cc 45 6e 76 24 3d 22 22 0d 00 c8 8e cd 3a 53 |..Env$="".....:S|
00000640 25 21 31 38 38 3d b9 3a f2 67 4d 69 3a 53 25 21 |%!188=.:.gMi:S%!|
00000650 32 31 32 3d 26 38 30 32 38 43 30 3a 53 25 21 32 |212=&8028C0:S%!2|
00000660 31 36 3d b9 3a 53 25 21 32 34 38 3d bb 28 a4 70 |16=.:S%!248=.(.p|
00000670 53 28 41 24 2c 22 2c 22 29 29 2d 32 3a c8 99 38 |S(A$,","))-2:..8|
00000680 31 b8 44 25 3a 53 25 21 32 39 32 3d 44 25 3a 53 |1.D%:S%!292=D%:S|
00000690 25 21 33 32 34 3d b9 3a de 53 25 21 34 32 34 20 |%!324=.:.S%!424 |
000006a0 33 31 2c 53 25 21 34 39 32 20 33 31 3a 53 25 21 |31,S%!492 31:S%!|
000006b0 34 35 36 3d b9 3a 53 25 21 35 35 32 3d b9 3a 53 |456=.:S%!552=.:S|
000006c0 25 21 35 35 36 3d eb 0d 00 d2 ea 42 25 3d 53 25 |%!556=.....B%=S%|
000006d0 2b 31 30 32 34 3a 61 6e 25 3d 42 25 3a 63 6e 25 |+1024:an%=B%:cn%|
000006e0 3d 42 25 2b 32 34 3a 64 6e 25 3d 42 25 2b 33 36 |=B%+24:dn%=B%+36|
000006f0 3a 65 6e 25 3d 42 25 2b 34 38 3a 66 6e 25 3d 42 |:en%=B%+48:fn%=B|
00000700 25 2b 36 30 3a 6c 6e 25 3d 42 25 2b 31 33 32 3a |%+60:ln%=B%+132:|
00000710 6d 6e 25 3d 42 25 2b 31 34 34 3a 6e 6e 25 3d 42 |mn%=B%+144:nn%=B|
00000720 25 2b 31 35 36 3a 70 6e 25 3d 42 25 2b 31 38 30 |%+156:pn%=B%+180|
00000730 3a 72 6e 25 3d 42 25 2b 32 30 34 3a 73 6e 25 3d |:rn%=B%+204:sn%=|
00000740 42 25 2b 32 31 36 3a 77 6e 25 3d 42 25 2b 32 36 |B%+216:wn%=B%+26|
00000750 34 3a 24 61 6e 25 3d 22 22 3a 24 63 6e 25 3d 22 |4:$an%="":$cn%="|
00000760 22 3a 24 64 6e 25 3d 22 22 3a 24 65 6e 25 3d 22 |":$dn%="":$en%="|
00000770 22 3a 24 66 6e 25 3d 22 22 3a 24 6c 6e 25 3d 22 |":$fn%="":$ln%="|
00000780 22 3a 24 6d 6e 25 3d 22 22 3a 24 6e 6e 25 3d 22 |":$mn%="":$nn%="|
00000790 22 3a 24 70 6e 25 3d 22 22 3a 24 72 6e 25 3d 22 |":$pn%="":$rn%="|
000007a0 22 3a 24 73 6e 25 3d 22 22 3a 24 77 6e 25 3d 22 |":$sn%="":$wn%="|
000007b0 22 0d 00 dc f7 42 25 3d 53 25 2b 31 33 33 36 3a |"....B%=S%+1336:|
000007c0 61 25 3d 42 25 3a 61 30 25 3d 42 25 2b 34 3a 62 |a%=B%:a0%=B%+4:b|
000007d0 25 3d 42 25 2b 38 3a 62 30 25 3d 42 25 2b 31 32 |%=B%+8:b0%=B%+12|
000007e0 3a 63 25 3d 42 25 2b 31 36 3a 64 25 3d 42 25 2b |:c%=B%+16:d%=B%+|
000007f0 32 34 3a 64 30 25 3d 42 25 2b 32 38 3a 65 25 3d |24:d0%=B%+28:e%=|
00000800 42 25 2b 33 32 3a 65 30 25 3d 42 25 2b 33 36 3a |B%+32:e0%=B%+36:|
00000810 66 25 3d 42 25 2b 34 30 3a 66 30 25 3d 42 25 2b |f%=B%+40:f0%=B%+|
00000820 34 34 3a 67 25 3d 42 25 2b 34 38 3a 67 30 25 3d |44:g%=B%+48:g0%=|
00000830 42 25 2b 35 32 3a 68 25 3d 42 25 2b 35 36 3a 68 |B%+52:h%=B%+56:h|
00000840 30 25 3d 42 25 2b 36 30 3a 69 25 3d 42 25 2b 36 |0%=B%+60:i%=B%+6|
00000850 34 3a 69 30 25 3d 42 25 2b 36 38 3a 6a 25 3d 42 |4:i0%=B%+68:j%=B|
00000860 25 2b 37 32 3a 6a 30 25 3d 42 25 2b 37 36 3a 6b |%+72:j0%=B%+76:k|
00000870 25 3d 42 25 2b 38 30 3a 6b 30 25 3d 42 25 2b 38 |%=B%+80:k0%=B%+8|
00000880 34 3a 6c 25 3d 42 25 2b 38 38 3a 6c 30 25 3d 42 |4:l%=B%+88:l0%=B|
00000890 25 2b 39 32 3a 6d 25 3d 42 25 2b 39 36 3a 6d 30 |%+92:m%=B%+96:m0|
000008a0 25 3d 42 25 2b 31 30 30 0d 00 e6 b4 6e 25 3d 42 |%=B%+100....n%=B|
000008b0 25 2b 31 30 34 3a 71 25 3d 42 25 2b 31 32 38 3a |%+104:q%=B%+128:|
000008c0 72 25 3d 42 25 2b 31 33 36 3a 72 30 25 3d 42 25 |r%=B%+136:r0%=B%|
000008d0 2b 31 34 30 3a 73 25 3d 42 25 2b 31 34 34 3a 74 |+140:s%=B%+144:t|
000008e0 25 3d 42 25 2b 31 35 32 3a 74 30 25 3d 42 25 2b |%=B%+152:t0%=B%+|
000008f0 31 35 36 3a 76 25 3d 42 25 2b 31 36 38 3a 76 30 |156:v%=B%+168:v0|
00000900 25 3d 42 25 2b 31 37 32 3a 77 25 3d 42 25 2b 31 |%=B%+172:w%=B%+1|
00000910 37 36 3a 77 30 25 3d 42 25 2b 31 38 30 3a 78 25 |76:w0%=B%+180:x%|
00000920 3d 42 25 2b 31 38 34 3a 78 30 25 3d 42 25 2b 31 |=B%+184:x0%=B%+1|
00000930 38 38 3a 79 25 3d 42 25 2b 31 39 32 3a 79 30 25 |88:y%=B%+192:y0%|
00000940 3d 42 25 2b 31 39 36 3a 7a 25 3d 42 25 2b 32 30 |=B%+196:z%=B%+20|
00000950 30 3a 7a 30 25 3d 42 25 2b 32 30 34 0d 00 f0 68 |0:z0%=B%+204...h|
00000960 21 76 30 25 3d 38 35 36 3a 21 77 25 3d 57 25 3a |!v0%=856:!w%=W%:|
00000970 57 25 2b 3d 32 35 36 3a 43 25 3d 30 3a e3 42 25 |W%+=256:C%=0:.B%|
00000980 3d 21 77 25 2b 31 32 b8 21 77 25 2b 31 32 2b 31 |=!w%+12.!w%+12+1|
00000990 35 2a 32 35 36 88 32 35 36 3a 21 42 25 3d 2d 32 |5*256.256:!B%=-2|
000009a0 35 35 3a 42 25 21 32 38 3d b9 3a 42 25 21 31 38 |55:B%!28=.:B%!18|
000009b0 34 3d b9 3a 42 25 21 33 36 3d 43 25 3a 43 25 2b |4=.:B%!36=C%:C%+|
000009c0 3d 31 3a ed 0d 00 fa d2 de 43 25 28 31 2c 36 29 |=1:......C%(1,6)|
000009d0 2c 49 25 28 31 36 29 2c 4d 25 28 31 36 29 2c 4d |,I%(16),M%(16),M|
000009e0 24 28 31 36 29 2c 54 24 28 33 31 29 2c 7a 24 28 |$(16),T$(31),z$(|
000009f0 31 36 29 3a 43 25 28 29 3d 2d 31 3a 43 25 28 30 |16):C%()=-1:C%(0|
00000a00 2c 36 29 3d 30 3a f7 2b 30 3a e3 41 25 3d 30 b8 |,6)=0:.+0:.A%=0.|
00000a10 31 34 3a f3 3f 28 53 25 2b 33 30 30 2b 41 25 29 |14:.?(S%+300+A%)|
00000a20 3a ed 3a e3 41 25 3d 30 b8 33 31 3a f3 54 24 28 |:.:.A%=0.31:.T$(|
00000a30 41 25 29 3a ed 3a 50 6f 6c 6c 24 3d 22 22 3a 54 |A%):.:Poll$="":T|
00000a40 72 61 63 65 31 24 3d 22 22 3a 54 72 61 63 65 32 |race1$="":Trace2|
00000a50 24 3d 22 22 3a 54 72 61 63 65 31 25 3d 30 3a 54 |$="":Trace1%=0:T|
00000a60 72 61 63 65 32 25 3d 30 3a 54 72 61 63 65 33 25 |race2%=0:Trace3%|
00000a70 3d 30 3a 54 72 61 63 65 34 25 3d 30 3a 54 72 61 |=0:Trace4%=0:Tra|
00000a80 63 65 31 3d 30 3a 54 72 61 63 65 32 3d 30 3a 54 |ce1=0:Trace2=0:T|
00000a90 6f 6f 6c 25 3d 30 0d 01 04 5b 43 24 3d a4 67 53 |ool%=0...[C$=.gS|
00000aa0 56 28 22 4f 62 65 79 24 44 69 72 22 29 3a 24 73 |V("Obey$Dir"):$s|
00000ab0 6e 25 3d a4 67 4c 6e 28 43 24 29 3a 41 70 70 6c |n%=.gLn(C$):Appl|
00000ac0 6e 24 3d 43 24 3a c8 99 26 34 30 30 43 30 2c 32 |n$=C$:..&400C0,2|
00000ad0 30 30 2c 26 34 42 35 33 34 31 35 34 2c 24 73 6e |00,&4B534154,$sn|
00000ae0 25 b8 43 25 2c 21 74 25 3a ee 85 f2 65 72 72 6f |%.C%,!t%:...erro|
00000af0 72 0d 01 0e 4d e7 43 25 3c 32 30 30 8c 85 53 25 |r...M.C%<200..S%|
00000b00 21 32 31 32 2b 32 2c 22 59 6f 75 20 6e 65 65 64 |!212+2,"You need|
00000b10 20 52 49 53 43 2d 4f 53 20 57 69 6d 70 20 76 65 | RISC-OS Wimp ve|
00000b20 72 73 69 6f 6e 20 32 2e 30 20 74 6f 20 72 75 6e |rsion 2.0 to run|
00000b30 20 74 68 69 73 20 70 72 6f 67 72 61 6d 22 0d 01 | this program"..|
00000b40 18 b0 4f 76 6c 24 28 30 29 3d 22 22 3a f2 73 50 |..Ovl$(0)="":.sP|
00000b50 4f 28 31 29 3a 53 25 21 35 36 30 3d de 28 49 6e |O(1):S%!560=.(In|
00000b60 63 6c 75 64 65 24 28 29 2c 31 29 3a 41 25 3d 53 |clude$(),1):A%=S|
00000b70 25 21 35 36 30 3c 3c 33 3a de 53 25 21 36 30 28 |%!560<<3:.S%!60(|
00000b80 41 25 3c 3c 32 29 2b 33 3a de 53 25 21 38 34 28 |A%<<2)+3:.S%!84(|
00000b90 41 25 3c 3c 33 29 2b 37 3a f2 73 42 28 53 25 21 |A%<<3)+7:.sB(S%!|
00000ba0 38 34 2c 28 41 25 3c 3c 33 29 2b 38 2c 31 33 29 |84,(A%<<3)+8,13)|
00000bb0 3a e3 41 25 3d 31 b8 53 25 21 35 36 30 3a 43 24 |:.A%=1.S%!560:C$|
00000bc0 3d 49 6e 63 6c 75 64 65 24 28 41 25 29 3a 42 24 |=Include$(A%):B$|
00000bd0 3d 22 22 3a 53 25 21 31 34 30 3d 30 3a 53 25 21 |="":S%!140=0:S%!|
00000be0 31 34 34 3d 30 3a e7 43 24 3c 3e 22 22 8c 0d 01 |144=0:.C$<>""...|
00000bf0 22 26 42 25 3d a7 43 24 2c 22 5f 22 29 3a e7 42 |"&B%=.C$,"_"):.B|
00000c00 25 3e 30 8c 7a 24 3d c1 43 24 2c 42 25 29 8b 7a |%>0.z$=.C$,B%).z|
00000c10 24 3d 22 22 0d 01 2c 39 24 28 53 25 21 38 34 2b |$=""..,9$(S%!84+|
00000c20 28 41 25 3c 3c 33 29 29 3d 7a 24 3a c8 99 38 2c |(A%<<3))=z$:..8,|
00000c30 31 37 2c 22 3c 4f 62 65 79 24 44 69 72 3e 2e 22 |17,"<Obey$Dir>."|
00000c40 2b 43 24 b8 42 25 3a e7 42 25 3d 32 8c 0d 01 36 |+C$.B%:.B%=2...6|
00000c50 17 42 24 3d 22 3c 4f 62 65 79 24 44 69 72 3e 2e |.B$="<Obey$Dir>.|
00000c60 22 2b 43 24 0d 01 40 33 cc c8 99 38 2c 31 37 2c |"+C$..@3...8,17,|
00000c70 22 3c 4d 61 74 68 73 53 79 73 24 50 61 74 68 3e |"<MathsSys$Path>|
00000c80 4f 76 65 72 52 69 64 65 2e 22 2b 43 24 b8 42 25 |OverRide."+C$.B%|
00000c90 3a e7 42 25 3d 32 8c 0d 01 4a 24 42 24 3d 22 3c |:.B%=2...J$B$="<|
00000ca0 4d 61 74 68 73 53 79 73 24 50 61 74 68 3e 4f 76 |MathsSys$Path>Ov|
00000cb0 65 72 52 69 64 65 2e 22 2b 43 24 0d 01 54 1c cc |erRide."+C$..T..|
00000cc0 42 24 3d 22 3c 4d 61 74 68 73 53 79 73 24 50 61 |B$="<MathsSys$Pa|
00000cd0 74 68 3e 22 2b 43 24 0d 01 5e 05 cd 0d 01 68 05 |th>"+C$..^....h.|
00000ce0 cd 0d 01 72 0e cd 3a e7 42 24 3c 3e 22 22 8c 0d |...r..:.B$<>""..|
00000cf0 01 7c 3b 42 24 3d a4 64 47 53 54 28 42 24 29 3a |.|;B$=.dGST(B$):|
00000d00 e7 a4 74 6f 4c 43 28 a4 67 4c 6e 28 42 24 29 29 |..toLC(.gLn(B$))|
00000d10 3c 3e 22 6b 65 72 6e 65 6c 22 8c c8 9b 42 24 2b |<>"kernel"...B$+|
00000d20 22 2e 4c 69 62 72 61 72 79 22 0d 01 86 43 5a 25 |".Library"...CZ%|
00000d30 3d a0 28 22 46 4e 69 22 2b 7a 24 2b 22 28 42 24 |=.("FNi"+z$+"(B$|
00000d40 2c 41 25 29 22 29 3a e7 53 25 21 31 34 30 8c ff |,A%)"):.S%!140..|
00000d50 22 49 63 6f 6e 53 70 72 69 74 65 73 20 22 2b 42 |"IconSprites "+B|
00000d60 24 2b 22 2e 21 53 70 72 69 74 65 73 22 0d 01 90 |$+".!Sprites"...|
00000d70 a7 cd 3a ed 3a 7a 24 3d 22 5f 22 3a 24 28 53 25 |..:.:z$="_":$(S%|
00000d80 21 38 34 29 3d 7a 24 3a 5a 25 3d a4 69 5f 28 41 |!84)=z$:Z%=.i_(A|
00000d90 70 70 6c 6e 24 2c 30 29 3a 53 25 21 31 34 30 3d |ppln$,0):S%!140=|
00000da0 2d 31 3a 53 25 21 31 34 34 3d 2d 31 3a 43 24 3d |-1:S%!144=-1:C$=|
00000db0 22 49 63 6f 6e 42 61 72 22 3a 24 28 53 25 2b 39 |"IconBar":$(S%+9|
00000dc0 36 29 3d 43 24 3a 53 25 21 37 32 3d a4 66 4d 28 |6)=C$:S%!72=.fM(|
00000dd0 43 24 29 3a 41 25 3d a4 61 52 28 53 25 21 37 32 |C$):A%=.aR(S%!72|
00000de0 29 3a 42 25 3d 41 25 2b 34 3a 43 25 3d 30 3a 44 |):B%=A%+4:C%=0:D|
00000df0 25 3d 30 3a f5 42 25 2b 3d 32 34 3a 45 25 3d 21 |%=0:.B%+=24:E%=!|
00000e00 42 25 3a 43 25 2b 3d 31 3a e7 45 25 80 32 8c 44 |B%:C%+=1:.E%.2.D|
00000e10 25 2b 3d 31 0d 01 9a 62 fd 28 45 25 80 31 32 38 |%+=1...b.(E%.128|
00000e20 29 3e 30 3a 53 25 21 31 30 38 3d 43 25 2a 28 41 |)>0:S%!108=C%*(A|
00000e30 25 21 32 30 2b 41 25 21 32 34 29 2b 41 25 21 32 |%!20+A%!24)+A%!2|
00000e40 34 2b 32 34 2a 44 25 3a 42 24 3d a4 70 53 28 41 |4+24*D%:B$=.pS(A|
00000e50 24 2c 22 2c 22 29 3a e7 42 24 3c 3e 22 22 8c 42 |$,","):.B$<>"".B|
00000e60 24 3d c0 a4 74 6f 55 43 28 42 24 29 2c 31 29 8b |$=..toUC(B$),1).|
00000e70 42 24 3d 22 52 22 0d 01 a4 19 e7 42 24 3d 22 4c |B$="R".....B$="L|
00000e80 22 8c 21 4f 25 3d 2d 32 8b 21 4f 25 3d 2d 31 0d |".!O%=-2.!O%=-1.|
00000e90 01 ae 47 53 25 21 33 34 30 3d 21 4f 25 3a 4f 25 |..GS%!340=!O%:O%|
00000ea0 21 34 3d 30 3a 42 24 3d a4 70 53 28 41 24 2c 22 |!4=0:B$=.pS(A$,"|
00000eb0 2c 22 29 3a 42 24 3d a4 74 6f 4c 43 28 42 24 29 |,"):B$=.toLC(B$)|
00000ec0 3a e7 42 24 3d 22 22 8c 42 24 3d a4 74 6f 4c 43 |:.B$="".B$=.toLC|
00000ed0 28 24 73 6e 25 29 0d 01 b8 0f e7 53 68 6f 77 4e |($sn%).....ShowN|
00000ee0 61 6d 65 25 8c 0d 01 c2 72 4f 25 21 38 3d 2d 31 |ame%....rO%!8=-1|
00000ef0 36 3a 4f 25 21 31 32 3d 31 36 30 3a 4f 25 21 31 |6:O%!12=160:O%!1|
00000f00 36 3d 38 38 3a 4f 25 21 32 30 3d 26 31 37 30 30 |6=88:O%!20=&1700|
00000f10 33 31 30 42 3a 42 24 3d 22 53 22 2b 42 24 3a 43 |310B:B$="S"+B$:C|
00000f20 24 3d a4 70 53 28 41 24 2c 22 2c 22 29 3a e7 43 |$=.pS(A$,","):.C|
00000f30 24 3c 3e 22 22 8c 42 24 2b 3d 22 2c 22 2b a4 74 |$<>"".B$+=","+.t|
00000f40 6f 4c 43 28 43 24 29 3a 4f 25 21 32 30 3d 26 31 |oLC(C$):O%!20=&1|
00000f50 37 30 31 42 31 30 42 0d 01 cc 53 de 53 25 21 33 |701B10B...S.S%!3|
00000f60 34 34 20 31 31 3a 4f 25 21 32 34 3d 53 25 21 33 |44 11:O%!24=S%!3|
00000f70 34 34 3a 24 28 53 25 21 33 34 34 29 3d c1 24 73 |44:$(S%!344)=.$s|
00000f80 6e 25 2c 32 29 3a 41 25 3d a9 42 24 3a de 4f 25 |n%,2):A%=.B$:.O%|
00000f90 21 32 38 41 25 3a 24 28 4f 25 21 32 38 29 3d 42 |!28A%:$(O%!28)=B|
00000fa0 24 3a 4f 25 21 33 32 3d 31 32 0d 01 d6 61 cc 4f |$:O%!32=12...a.O|
00000fb0 25 21 38 3d 30 3a c8 99 26 34 30 30 45 39 2c 32 |%!8=0:..&400E9,2|
00000fc0 39 36 2c 2c 42 24 b8 2c 2c 2c 41 25 2c 42 25 3a |96,,B$.,,,A%,B%:|
00000fd0 43 25 3d a4 72 4d 56 28 42 25 2c 34 29 3a 4f 25 |C%=.rMV(B%,4):O%|
00000fe0 21 31 32 3d 41 25 3c 3c 43 25 3a 4f 25 21 31 36 |!12=A%<<C%:O%!16|
00000ff0 3d 36 38 3a 43 24 3d a4 70 53 28 41 24 2c 22 2c |=68:C$=.pS(A$,",|
00001000 22 29 3a e7 43 24 3c 3e 22 22 8c 0d 01 e0 64 42 |"):.C$<>""....dB|
00001010 24 3d 22 53 22 2b 42 24 2b 22 2c 22 2b a4 74 6f |$="S"+B$+","+.to|
00001020 4c 43 28 43 24 29 3a 4f 25 21 32 30 3d 26 31 37 |LC(C$):O%!20=&17|
00001030 30 31 42 31 31 42 3a de 4f 25 21 32 34 20 33 3a |01B11B:.O%!24 3:|
00001040 24 28 4f 25 21 32 34 29 3d 22 22 3a 41 25 3d a9 |$(O%!24)="":A%=.|
00001050 42 24 3a de 4f 25 21 32 38 41 25 3a 24 28 4f 25 |B$:.O%!28A%:$(O%|
00001060 21 32 38 29 3d 42 24 3a 4f 25 21 33 32 3d 34 0d |!28)=B$:O%!32=4.|
00001070 01 ea 20 cc 4f 25 21 32 30 3d 26 31 37 30 30 33 |.. .O%!20=&17003|
00001080 30 30 32 3a 24 28 4f 25 2b 32 34 29 3d 42 24 0d |002:$(O%+24)=B$.|
00001090 01 f4 05 cd 0d 01 fe 56 cd 3a c8 99 26 34 30 30 |.......V.:..&400|
000010a0 43 32 2c 2c 4f 25 b8 21 67 25 3a c8 99 26 34 30 |C2,,O%.!g%:..&40|
000010b0 30 44 30 2c 2c 2d 31 3a e7 53 61 76 65 43 68 6f |0D0,,-1:.SaveCho|
000010c0 69 63 65 73 25 8c f2 74 4d 49 28 22 43 68 6f 69 |ices%..tMI("Choi|
000010d0 63 65 73 22 2c 30 29 8b f2 75 74 4d 49 28 22 43 |ces",0)..utMI("C|
000010e0 68 6f 69 63 65 73 22 2c 30 29 0d 02 08 33 e7 53 |hoices",0)...3.S|
000010f0 68 6f 77 4e 61 6d 65 25 8c f2 74 4d 49 28 22 43 |howName%..tMI("C|
00001100 68 6f 69 63 65 73 22 2c 31 29 8b f2 75 74 4d 49 |hoices",1)..utMI|
00001110 28 22 43 68 6f 69 63 65 73 22 2c 31 29 0d 02 12 |("Choices",1)...|
00001120 2f e7 48 65 6c 70 25 8c f2 74 4d 49 28 22 43 68 |/.Help%..tMI("Ch|
00001130 6f 69 63 65 73 22 2c 32 29 8b f2 75 74 4d 49 28 |oices",2)..utMI(|
00001140 22 43 68 6f 69 63 65 73 22 2c 32 29 0d 02 1c 05 |"Choices",2)....|
00001150 e1 0d 02 26 2d dc 31 2c 32 35 2c 30 2c 32 34 30 |...&-.1,25,0,240|
00001160 2c 32 34 30 2c 32 2c 32 35 2c 30 2c 30 2c 31 34 |,240,2,25,0,0,14|
00001170 34 2c 33 2c 32 35 2c 32 34 30 2c 30 2c 30 0d 02 |4,3,25,240,0,0..|
00001180 30 ab dc 22 22 2c 41 6c 65 72 74 2c 42 61 73 69 |0.."",Alert,Basi|
00001190 63 2c 45 64 69 74 2c 50 61 69 6e 74 2c 44 72 61 |c,Edit,Paint,Dra|
000011a0 77 2c 54 65 78 74 75 72 65 2c 44 69 73 70 6c 61 |w,Texture,Displa|
000011b0 79 2c 46 6f 72 6d 2c 44 69 61 6c 6f 67 2c 4d 65 |y,Form,Dialog,Me|
000011c0 6e 75 2c 53 63 72 6f 6c 6c 2c 53 70 72 69 74 65 |nu,Scroll,Sprite|
000011d0 2c 41 6e 69 6d 61 74 65 2c 44 61 74 61 50 61 64 |,Animate,DataPad|
000011e0 2c 4d 75 6c 74 69 50 61 64 2c 54 6f 6f 6c 73 2c |,MultiPad,Tools,|
000011f0 56 69 65 77 2c 22 22 2c 54 68 72 65 65 44 65 65 |View,"",ThreeDee|
00001200 2c 22 22 2c 46 69 6c 6d 2c 22 22 2c 22 22 2c 22 |,"",Film,"","","|
00001210 22 2c 22 22 2c 22 22 2c 22 22 2c 22 22 2c 22 22 |","","","","",""|
00001220 2c 22 22 2c 41 6d 62 69 67 0d 02 3a 04 0d 02 44 |,"",Ambig..:...D|
00001230 92 dd f2 69 52 65 73 28 41 24 2c 42 31 25 29 3a |...iRes(A$,B1%):|
00001240 ea 41 25 2c 42 25 2c 42 32 25 2c 42 24 2c 43 25 |.A%,B%,B2%,B$,C%|
00001250 2c 43 24 2c 44 25 2c 44 24 2c 45 25 2c 46 25 2c |,C$,D%,D$,E%,F%,|
00001260 47 25 2c 48 25 2c 5a 24 3a 45 25 3d 66 6e 25 3a |G%,H%,Z$:E%=fn%:|
00001270 42 25 3d 30 3a 21 28 53 25 21 36 30 2b 28 42 31 |B%=0:!(S%!60+(B1|
00001280 25 3c 3c 32 29 29 3d 30 3a 42 32 25 3d 28 42 31 |%<<2))=0:B2%=(B1|
00001290 25 83 33 32 29 3c 3c 32 37 3a f5 c8 99 31 32 2c |%.32)<<27:...12,|
000012a0 39 2c 41 24 2c 45 25 2c 31 2c 42 25 2c 31 32 b8 |9,A$,E%,1,B%,12.|
000012b0 2c 2c 2c 2c 42 25 3a e7 42 25 3c 3e 2d 31 8c 0d |,,,,B%:.B%<>-1..|
000012c0 02 4e 4c 44 25 3d 45 25 3a c8 95 3f 44 25 3a 44 |.NLD%=E%:..?D%:D|
000012d0 25 2b 3d 31 3a ce 3a 3f 44 25 3d 31 33 3a 42 24 |%+=1:.:?D%=13:B$|
000012e0 3d a4 74 6f 4c 43 28 24 45 25 29 3a 43 24 3d 41 |=.toLC($E%):C$=A|
000012f0 24 2b 22 2e 22 2b 42 24 3a 44 25 3d a4 67 46 6c |$+"."+B$:D%=.gFl|
00001300 28 43 24 29 3a e7 44 25 3e 30 8c 0d 02 58 14 46 |(C$):.D%>0...X.F|
00001310 25 3d a4 67 46 74 28 43 24 29 3a c8 8e b9 ca 0d |%=.gFt(C$):.....|
00001320 02 62 12 c9 46 25 3d 26 46 46 39 3a c8 8e 42 24 |.b..F%=&FF9:..B$|
00001330 ca 0d 02 6c 74 c9 22 73 70 72 69 74 65 73 22 3a |...lt."sprites":|
00001340 44 25 2b 3d 31 36 3a de 41 25 44 25 3a 21 41 25 |D%+=16:.A%D%:!A%|
00001350 3d 44 25 3a 41 25 21 34 3d 30 3a 41 25 21 38 3d |=D%:A%!4=0:A%!8=|
00001360 31 36 3a 41 25 21 31 32 3d 31 36 3a c8 99 34 36 |16:A%!12=16:..46|
00001370 2c 32 36 35 2c 41 25 3a c8 99 38 2c 31 36 2c 43 |,265,A%:..8,16,C|
00001380 24 2c 41 25 2b 34 3a 21 28 53 25 21 36 30 2b 28 |$,A%+4:!(S%!60+(|
00001390 42 31 25 3c 3c 32 29 29 3d 41 25 3a 53 25 21 31 |B1%<<2))=A%:S%!1|
000013a0 34 34 3d 41 25 0d 02 76 18 c9 22 21 73 70 72 69 |44=A%..v.."!spri|
000013b0 74 65 73 22 3a 53 25 21 31 34 30 3d b9 0d 02 80 |tes":S%!140=....|
000013c0 05 cb 0d 02 8a 30 c9 c0 42 24 2c 31 29 3d 22 21 |.....0..B$,1)="!|
000013d0 22 2c 46 25 3d 26 46 46 42 2c 46 25 3d 26 34 30 |",F%=&FFB,F%=&40|
000013e0 37 2c 46 25 3e 3d 26 46 46 46 2c 46 25 3d 26 41 |7,F%>=&FFF,F%=&A|
000013f0 46 46 0d 02 94 ac c9 46 25 3d 26 34 30 32 3a e7 |FF.....F%=&402:.|
00001400 42 24 3d 22 6d 65 6e 75 73 22 8c de 41 25 44 25 |B$="menus"..A%D%|
00001410 3a 43 25 3d a4 6c 64 46 28 43 24 2c 41 25 29 3a |:C%=.ldF(C$,A%):|
00001420 41 25 21 31 32 3d 41 25 21 31 32 84 42 32 25 3a |A%!12=A%!12.B2%:|
00001430 41 25 21 32 38 3d 53 25 21 35 36 3a 53 25 21 35 |A%!28=S%!56:S%!5|
00001440 36 3d 41 25 3a 44 25 3d 43 25 2b 43 25 21 32 30 |6=A%:D%=C%+C%!20|
00001450 3a e3 46 25 3d 43 25 2b 35 32 b8 43 25 2b 32 38 |:.F%=C%+52.C%+28|
00001460 2b 32 34 2a 43 25 21 31 36 88 32 34 3a 21 46 25 |+24*C%!16.24:!F%|
00001470 2b 3d 44 25 3a 46 25 21 2d 38 3d 46 25 21 2d 38 |+=D%:F%!-8=F%!-8|
00001480 84 42 32 25 3a 5a 25 3d a4 69 4d 28 21 46 25 29 |.B2%:Z%=.iM(!F%)|
00001490 3a ed 3a 43 25 21 32 30 3d 43 25 2b 33 32 0d 02 |:.:C%!20=C%+32..|
000014a0 9e 1b c9 46 25 3d 26 34 30 34 3a e7 42 24 3d 22 |...F%=&404:.B$="|
000014b0 77 69 6e 64 6f 77 73 22 8c 0d 02 a8 b3 de 41 25 |windows"......A%|
000014c0 44 25 3a 43 25 3d a4 6c 64 46 28 43 24 2c 41 25 |D%:C%=.ldF(C$,A%|
000014d0 29 3a 41 25 21 31 32 3d 41 25 21 31 32 84 42 32 |):A%!12=A%!12.B2|
000014e0 25 3a 41 25 21 32 38 3d 53 25 21 36 34 3a 53 25 |%:A%!28=S%!64:S%|
000014f0 21 36 34 3d 41 25 3a 44 25 3d 43 25 2b 43 25 21 |!64=A%:D%=C%+C%!|
00001500 32 30 3a e3 46 25 3d 43 25 2b 35 32 b8 43 25 2b |20:.F%=C%+52.C%+|
00001510 32 38 2b 32 34 2a 43 25 21 31 36 88 32 34 3a 21 |28+24*C%!16.24:!|
00001520 46 25 2b 3d 44 25 3a 46 25 21 2d 38 3d 46 25 21 |F%+=D%:F%!-8=F%!|
00001530 2d 38 84 42 32 25 3a 24 77 6e 25 3d 24 28 46 25 |-8.B2%:$wn%=$(F%|
00001540 2d 32 30 29 3a 48 25 3d 46 25 21 2d 38 3e 3e 3e |-20):H%=F%!-8>>>|
00001550 31 36 80 33 31 3a 5a 25 3d a4 69 57 28 21 46 25 |16.31:Z%=.iW(!F%|
00001560 2c 48 25 29 3a e7 48 25 3d 31 30 8c 0d 02 b2 70 |,H%):.H%=10....p|
00001570 47 25 3d 21 28 21 46 25 2b 33 36 29 3a e7 47 25 |G%=!(!F%+36):.G%|
00001580 3e 30 8c de 41 25 47 25 2d 31 3a f2 73 42 77 28 |>0..A%G%-1:.sBw(|
00001590 41 25 2c 47 25 2c 30 29 3a 47 25 3d 57 25 3a 57 |A%,G%,0):G%=W%:W|
000015a0 25 3d 41 25 2d 35 32 3a 52 25 3d 31 39 35 3a 5a |%=A%-52:R%=195:Z|
000015b0 25 3d a0 28 22 46 4e 65 22 2b 7a 24 29 3a 21 28 |%=.("FNe"+z$):!(|
000015c0 21 46 25 2b 31 32 29 3d 41 25 3a 57 25 3d 47 25 |!F%+12)=A%:W%=G%|
000015d0 8b 21 28 21 46 25 2b 31 32 29 3d 30 0d 02 bc 6c |.!(!F%+12)=0...l|
000015e0 41 25 3d a4 61 52 28 21 46 25 29 3a f2 63 42 28 |A%=.aR(!F%):.cB(|
000015f0 41 25 2c 51 25 2b 34 2c 38 38 2b 28 41 25 21 38 |A%,Q%+4,88+(A%!8|
00001600 34 3c 3c 35 29 29 3a 52 25 3d 31 39 33 3a 5a 25 |4<<5)):R%=193:Z%|
00001610 3d a0 28 22 46 4e 65 22 2b 7a 24 29 3a c8 99 26 |=.("FNe"+z$):..&|
00001620 34 30 30 43 31 2c 2c 51 25 2b 34 b8 21 68 25 3a |400C1,,Q%+4.!h%:|
00001630 24 28 21 46 25 2b 34 29 3d 22 22 3a 21 28 21 46 |$(!F%+4)="":!(!F|
00001640 25 2b 38 29 3d 21 68 25 0d 02 c6 1c cd 3a ed 3a |%+8)=!h%.....:.:|
00001650 43 25 21 32 30 3d 43 25 2b 33 32 3a 53 25 21 33 |C%!20=C%+32:S%!3|
00001660 32 3d 43 25 0d 02 da 05 cd 0d 02 e4 a3 c9 46 25 |2=C%..........F%|
00001670 3d 26 34 30 38 3a e7 42 24 3d 22 70 6f 69 6e 74 |=&408:.B$="point|
00001680 65 72 73 22 8c de 41 25 44 25 3a 43 25 3d a4 6c |ers"..A%D%:C%=.l|
00001690 64 46 28 43 24 2c 41 25 29 3a 41 25 21 31 32 3d |dF(C$,A%):A%!12=|
000016a0 41 25 21 31 32 84 42 32 25 3a 41 25 21 32 38 3d |A%!12.B2%:A%!28=|
000016b0 53 25 21 36 38 3a 53 25 21 36 38 3d 41 25 3a 44 |S%!68:S%!68=A%:D|
000016c0 25 3d 43 25 2b 43 25 21 32 30 3a e3 46 25 3d 43 |%=C%+C%!20:.F%=C|
000016d0 25 2b 35 32 b8 43 25 2b 32 38 2b 32 34 2a 43 25 |%+52.C%+28+24*C%|
000016e0 21 31 36 88 32 34 3a 21 46 25 2b 3d 44 25 3a 46 |!16.24:!F%+=D%:F|
000016f0 25 21 2d 38 3d 46 25 21 2d 38 84 42 32 25 3a ed |%!-8=F%!-8.B2%:.|
00001700 3a 43 25 21 32 30 3d 43 25 2b 33 32 0d 02 ee 9a |:C%!20=C%+32....|
00001710 c9 46 25 3d 26 34 32 32 3a c8 99 26 34 30 30 38 |.F%=&422:..&4008|
00001720 31 2c 2c 22 50 6f 72 74 72 68 6f 75 73 65 2e 53 |1,,"Portrhouse.S|
00001730 74 61 6e 64 61 72 64 22 2c 31 36 30 2c 31 36 30 |tandard",160,160|
00001740 b8 41 25 3a 53 25 21 33 31 36 3d 41 25 3a 41 25 |.A%:S%!316=A%:A%|
00001750 3d a4 67 48 28 44 25 29 3a 43 25 3d a4 6c 64 46 |=.gH(D%):C%=.ldF|
00001760 28 43 24 2c 41 25 29 3a 44 25 3d 43 25 2b 43 25 |(C$,A%):D%=C%+C%|
00001770 21 32 30 3a e3 46 25 3d 43 25 2b 33 32 b8 43 25 |!20:.F%=C%+32.C%|
00001780 2b 38 2b 32 34 2a 43 25 21 31 36 88 32 34 3a 48 |+8+24*C%!16.24:H|
00001790 25 3d bb 28 c1 24 46 25 2c 35 29 29 3a 48 25 3d |%=.(.$F%,5)):H%=|
000017a0 48 25 80 32 35 35 0d 02 f8 75 43 24 3d 24 28 46 |H%.255...uC$=$(F|
000017b0 25 21 32 30 2b 44 25 29 3a c8 99 26 36 30 30 38 |%!20+D%):..&6008|
000017c0 31 2c 2c a4 70 53 28 43 24 2c 22 2e 22 29 2b 22 |1,,.pS(C$,".")+"|
000017d0 2e 22 2b a4 70 53 28 43 24 2c 22 2e 22 29 2c bb |."+.pS(C$,"."),.|
000017e0 28 a4 70 53 28 43 24 2c 22 2e 22 29 29 3c 3c 34 |(.pS(C$,"."))<<4|
000017f0 2c bb 28 a4 70 53 28 43 24 2c 22 2e 22 29 29 3c |,.(.pS(C$,"."))<|
00001800 3c 34 b8 41 25 3a e7 41 25 3e 30 8c 3f 28 53 25 |<4.A%:.A%>0.?(S%|
00001810 21 31 31 32 2b 48 25 29 3d 41 25 0d 03 02 16 ed |!112+H%)=A%.....|
00001820 3a f2 66 48 28 43 25 29 3a 53 25 21 33 37 32 3d |:.fH(C%):S%!372=|
00001830 b9 0d 03 0c 1c c9 46 25 3d 26 34 31 36 3a 41 25 |......F%=&416:A%|
00001840 3d 8e 28 43 24 29 3a e7 41 25 3e 30 8c 0d 03 16 |=.(C$):.A%>0....|
00001850 15 44 25 3d bb 28 be 23 41 25 29 3a e7 44 25 3e |.D%=.(.#A%):.D%>|
00001860 30 8c 0d 03 20 09 c8 8e 7a 24 ca 0d 03 2a 31 c9 |0... ...z$...*1.|
00001870 22 5f 22 3a de 4d 73 67 5f 24 28 44 25 29 3a 5a |"_":.Msg_$(D%):Z|
00001880 25 3d a4 69 4d 73 67 28 4d 73 67 5f 24 28 29 2c |%=.iMsg(Msg_$(),|
00001890 41 25 29 3a 53 25 21 34 39 36 3d b9 0d 03 34 05 |A%):S%!496=...4.|
000018a0 cb 0d 03 3e 0a cd 3a d9 23 41 25 0d 03 48 05 cd |...>..:.#A%..H..|
000018b0 0d 03 52 86 7f 3a de 41 25 44 25 3a 43 25 3d a4 |..R..:.A%D%:C%=.|
000018c0 6c 64 46 28 43 24 2c 41 25 29 3a 41 25 21 31 32 |ldF(C$,A%):A%!12|
000018d0 3d 41 25 21 31 32 84 42 32 25 3a 41 25 21 32 38 |=A%!12.B2%:A%!28|
000018e0 3d 53 25 21 35 32 3a 53 25 21 35 32 3d 41 25 3a |=S%!52:S%!52=A%:|
000018f0 44 25 3d 43 25 2b 43 25 21 32 30 3a e3 46 25 3d |D%=C%+C%!20:.F%=|
00001900 43 25 2b 35 32 b8 43 25 2b 32 38 2b 32 34 2a 43 |C%+52.C%+28+24*C|
00001910 25 21 31 36 88 32 34 3a 21 46 25 2b 3d 44 25 3a |%!16.24:!F%+=D%:|
00001920 46 25 21 2d 38 3d 46 25 21 2d 38 84 42 32 25 3a |F%!-8=F%!-8.B2%:|
00001930 c8 8e 24 43 25 ca 0d 03 5c 18 c9 22 4b 65 79 22 |..$C%...\.."Key"|
00001940 3a 5a 25 3d a4 69 4b 65 79 28 21 46 25 29 0d 03 |:Z%=.iKey(!F%)..|
00001950 66 13 cb 3a ed 3a 43 25 21 32 30 3d 43 25 2b 33 |f..:.:C%!20=C%+3|
00001960 32 0d 03 70 05 cb 0d 03 7a 05 cd 0d 03 84 0e cd |2..p....z.......|
00001970 3a fd 42 25 3d 2d 31 3a e1 0d 03 98 1e dd a4 69 |:.B%=-1:.......i|
00001980 28 41 24 2c 42 25 29 3a f2 69 52 65 73 28 41 24 |(A$,B%):.iRes(A$|
00001990 2c 42 25 29 3a 3d b9 0d 03 ac 37 dd a4 69 4b 65 |,B%):=....7..iKe|
000019a0 79 28 41 25 29 3a ea 42 25 2c 43 25 3a e3 42 25 |y(A%):.B%,C%:.B%|
000019b0 3d 41 25 b8 41 25 2b 26 33 46 46 88 34 3a e7 21 |=A%.A%+&3FF.4:.!|
000019c0 42 25 3e 35 31 32 8c 21 42 25 2b 3d 41 25 0d 03 |B%>512.!B%+=A%..|
000019d0 b6 2c ed 3a e3 42 25 3d 41 25 2b 26 36 30 30 b8 |.,.:.B%=A%+&600.|
000019e0 41 25 2b 26 37 46 46 88 34 3a e7 21 42 25 3e 35 |A%+&7FF.4:.!B%>5|
000019f0 31 32 8c 21 42 25 2b 3d 41 25 0d 03 c0 14 ed 3a |12.!B%+=A%.....:|
00001a00 4b 25 3d 41 25 3a 53 25 21 32 34 3a 3d a3 0d 03 |K%=A%:S%!24:=...|
00001a10 ca 2d dd a4 69 4d 28 41 25 29 3a ea 42 25 2c 43 |.-..iM(A%):.B%,C|
00001a20 25 2c 44 25 2c 45 25 2c 46 25 2c 47 24 3a 43 25 |%,D%,E%,F%,G$:C%|
00001a30 3d 21 41 25 3a e7 43 25 3e 30 8c 0d 03 d4 45 46 |=!A%:.C%>0....EF|
00001a40 25 3d a4 61 52 28 41 25 29 3a 41 25 2d 3d 31 32 |%=.aR(A%):A%-=12|
00001a50 3a e3 42 25 3d 46 25 2b 32 38 b8 46 25 2b 34 2b |:.B%=F%+28.F%+4+|
00001a60 32 34 2a 43 25 88 32 34 3a 41 25 2b 3d 31 36 3a |24*C%.24:A%+=16:|
00001a70 45 25 3d 42 25 21 38 3a e7 45 25 80 32 35 36 8c |E%=B%!8:.E%.256.|
00001a80 0d 03 de 29 42 25 21 31 32 2b 3d 46 25 3a 42 25 |...)B%!12+=F%:B%|
00001a90 21 31 36 2d 3d 46 25 2a 28 42 25 21 31 36 3e 31 |!16-=F%*(B%!16>1|
00001aa0 29 3a e7 21 42 25 80 34 8c 0d 03 e8 1d 47 24 3d |):.!B%.4.....G$=|
00001ab0 24 41 25 3a e7 a7 47 24 2c 22 5f 22 29 3d 30 8c |$A%:..G$,"_")=0.|
00001ac0 47 24 2b 3d 7a 24 0d 03 f2 12 f2 63 49 56 28 47 |G$+=z$.....cIV(G|
00001ad0 24 2c 42 25 2b 31 32 29 0d 03 fc 13 cd 3a e7 45 |$,B%+12).....:.E|
00001ae0 25 80 32 8c 42 25 21 31 36 3d 31 0d 04 06 39 cd |%.2.B%!16=1...9.|
00001af0 3a e7 45 25 80 36 34 8c 44 25 3d a4 66 46 28 45 |:.E%.64.D%=.fF(E|
00001b00 25 3e 3e 3e 32 34 29 3c 3c 32 34 3a 45 25 3d 45 |%>>>24)<<24:E%=E|
00001b10 25 80 26 46 46 46 46 46 46 3a 42 25 21 38 3d 45 |%.&FFFFFF:B%!8=E|
00001b20 25 84 44 25 0d 04 10 05 ed 0d 04 1a 08 cd 3a 3d |%.D%..........:=|
00001b30 a3 0d 04 24 6e dd a4 69 57 28 41 25 2c 42 31 25 |...$n..iW(A%,B1%|
00001b40 29 3a ea 42 25 2c 43 25 2c 43 24 2c 44 25 2c 45 |):.B%,C%,C$,D%,E|
00001b50 25 2c 46 25 2c 47 25 2c 47 31 25 2c 48 25 3a 46 |%,F%,G%,G1%,H%:F|
00001b60 25 3d a4 61 52 28 41 25 29 3a 46 25 21 36 34 3d |%=.aR(A%):F%!64=|
00001b70 53 25 21 31 34 34 3a 45 25 3d 46 25 21 38 34 3c |S%!144:E%=F%!84<|
00001b80 3c 35 3a 44 25 3d 46 25 2b 38 38 2b 45 25 3a 41 |<5:D%=F%+88+E%:A|
00001b90 25 21 36 34 3d 30 3a e7 42 31 25 3d 31 30 8c 0d |%!64=0:.B1%=10..|
00001ba0 04 2e 18 e7 46 25 21 35 36 80 32 35 36 8c 46 25 |....F%!56.256.F%|
00001bb0 21 37 32 2b 3d 44 25 0d 04 38 0a e7 45 25 3e 30 |!72+=D%..8..E%>0|
00001bc0 8c 0d 04 42 3d e3 43 25 3d 46 25 2b 31 30 34 b8 |...B=.C%=F%+104.|
00001bd0 46 25 2b 37 32 2b 45 25 88 33 32 3a e7 21 43 25 |F%+72+E%.32:.!C%|
00001be0 80 32 35 36 8c 43 25 21 34 2b 3d 44 25 3a e7 43 |.256.C%!4+=D%:.C|
00001bf0 25 21 38 3e 30 8c 43 25 21 38 2b 3d 44 25 0d 04 |%!8>0.C%!8+=D%..|
00001c00 4c 3b e7 21 43 25 80 36 34 8c 48 25 3d a4 66 46 |L;.!C%.64.H%=.fF|
00001c10 28 21 43 25 3e 3e 3e 32 34 29 3c 3c 32 34 3a 21 |(!C%>>>24)<<24:!|
00001c20 43 25 3d 21 43 25 80 26 46 46 46 46 46 46 3a 21 |C%=!C%.&FFFFFF:!|
00001c30 43 25 3d 21 43 25 84 48 25 0d 04 56 05 ed 0d 04 |C%=!C%.H%..V....|
00001c40 60 38 cd 3a 45 25 3d 21 41 25 3c 3c 34 3a 44 25 |`8.:E%=!A%<<4:D%|
00001c50 3d 46 25 2b 37 32 3a 46 25 3d 31 34 3c 3c 31 32 |=F%+72:F%=14<<12|
00001c60 3a 47 25 3d 46 25 2b 28 31 3c 3c 32 33 29 3a e7 |:G%=F%+(1<<23):.|
00001c70 45 25 3e 36 34 8c 0d 04 6a 24 e3 43 25 3d 41 25 |E%>64...j$.C%=A%|
00001c80 2b 38 30 b8 41 25 2b 45 25 88 31 36 3a e7 28 21 |+80.A%+E%.16:.(!|
00001c90 43 25 80 31 37 29 3d 31 37 8c 0d 04 74 2a 48 25 |C%.17)=17...t*H%|
00001ca0 3d 44 25 2b 28 28 21 43 25 80 26 46 46 30 30 29 |=D%+((!C%.&FF00)|
00001cb0 3e 3e 3e 33 29 3a e7 28 21 48 25 80 47 25 29 3e |>>>3):.(!H%.G%)>|
00001cc0 3d 46 25 8c 0d 04 7e 33 43 24 3d 24 28 43 25 2d |=F%...~3C$=$(C%-|
00001cd0 31 32 29 3a e7 43 24 3c 3e 22 22 80 43 24 3c 3e |12):.C$<>"".C$<>|
00001ce0 22 6e 6f 4e 61 6d 65 22 80 43 24 3c 3e 22 4e 6f |"noName".C$<>"No|
00001cf0 5f 4e 61 6d 65 22 8c 0d 04 88 16 e7 a7 43 24 2c |_Name".......C$,|
00001d00 22 5f 22 29 3d 30 8c 43 24 2b 3d 7a 24 0d 04 92 |"_")=0.C$+=z$...|
00001d10 11 f2 63 49 56 28 43 24 2c 48 25 2b 34 29 0d 04 |..cIV(C$,H%+4)..|
00001d20 9c 05 cd 0d 04 a6 16 cd 3a 21 48 25 3d 21 48 25 |........:!H%=!H%|
00001d30 80 ac 28 31 3c 3c 32 33 29 0d 04 ba 07 cd 3a ed |..(1<<23).....:.|
00001d40 0d 04 c4 05 cd 0d 04 ce 0b cc e7 45 25 3e 30 8c |...........E%>0.|
00001d50 0d 04 d8 52 e3 43 25 3d 46 25 2b 31 30 34 b8 46 |...R.C%=F%+104.F|
00001d60 25 2b 37 32 2b 45 25 88 33 32 3a e7 21 43 25 80 |%+72+E%.32:.!C%.|
00001d70 36 34 8c 48 25 3d a4 66 46 28 21 43 25 3e 3e 3e |64.H%=.fF(!C%>>>|
00001d80 32 34 29 3c 3c 32 34 3a 21 43 25 3d 21 43 25 80 |24)<<24:!C%=!C%.|
00001d90 26 46 46 46 46 46 46 3a 21 43 25 3d 21 43 25 84 |&FFFFFF:!C%=!C%.|
00001da0 48 25 0d 04 e2 05 ed 0d 04 ec 38 cd 3a 45 25 3d |H%........8.:E%=|
00001db0 21 41 25 3c 3c 34 3a 44 25 3d 46 25 2b 37 32 3a |!A%<<4:D%=F%+72:|
00001dc0 46 25 3d 31 34 3c 3c 31 32 3a 47 25 3d 46 25 2b |F%=14<<12:G%=F%+|
00001dd0 28 31 3c 3c 32 33 29 3a e7 45 25 3e 36 34 8c 0d |(1<<23):.E%>64..|
00001de0 04 f6 54 42 25 3d 30 3a e3 43 25 3d 41 25 2b 38 |..TB%=0:.C%=A%+8|
00001df0 30 b8 41 25 2b 45 25 88 31 36 3a e7 28 21 43 25 |0.A%+E%.16:.(!C%|
00001e00 80 31 37 29 3d 31 37 8c 48 25 3d 44 25 2b 28 28 |.17)=17.H%=D%+((|
00001e10 21 43 25 80 26 46 46 30 30 29 3e 3e 3e 33 29 3a |!C%.&FF00)>>>3):|
00001e20 e7 28 21 48 25 80 47 25 29 3e 3d 46 25 8c 42 25 |.(!H%.G%)>=F%.B%|
00001e30 2b 3d 34 0d 05 00 0a ed 3a e7 42 25 8c 0d 05 0a |+=4.....:.B%....|
00001e40 0c e7 42 31 25 3d 31 34 8c 0d 05 14 66 de 43 25 |..B1%=14....f.C%|
00001e50 20 42 25 2a 37 2b 33 3a f2 73 42 28 43 25 2c 42 | B%*7+3:.sB(C%,B|
00001e60 25 2a 36 2b 34 2c 2d 31 29 3a 41 25 21 36 34 3d |%*6+4,-1):A%!64=|
00001e70 43 25 3a 21 43 25 3d 42 25 3a 42 25 2b 3d 43 25 |C%:!C%=B%:B%+=C%|
00001e80 2b 34 3a 47 31 25 3d 30 3a e3 45 25 3d 41 25 2b |+4:G1%=0:.E%=A%+|
00001e90 38 30 b8 41 25 2b 28 21 41 25 3c 3c 34 29 88 31 |80.A%+(!A%<<4).1|
00001ea0 36 3a e7 28 21 45 25 80 31 37 29 3d 31 37 8c 0d |6:.(!E%.17)=17..|
00001eb0 05 1e 2a 48 25 3d 44 25 2b 28 28 21 45 25 80 26 |..*H%=D%+((!E%.&|
00001ec0 46 46 30 30 29 3e 3e 3e 33 29 3a e7 28 21 48 25 |FF00)>>>3):.(!H%|
00001ed0 80 47 25 29 3e 3d 46 25 8c 0d 05 28 33 43 24 3d |.G%)>=F%...(3C$=|
00001ee0 24 28 45 25 2d 31 32 29 3a e7 43 24 3c 3e 22 22 |$(E%-12):.C$<>""|
00001ef0 80 43 24 3c 3e 22 6e 6f 4e 61 6d 65 22 80 43 24 |.C$<>"noName".C$|
00001f00 3c 3e 22 4e 6f 5f 4e 61 6d 65 22 8c 0d 05 32 16 |<>"No_Name"...2.|
00001f10 e7 a7 43 24 2c 22 5f 22 29 3d 30 8c 43 24 2b 3d |..C$,"_")=0.C$+=|
00001f20 7a 24 0d 05 3c 8e f2 63 49 56 28 43 24 2c 42 25 |z$..<..cIV(C$,B%|
00001f30 29 3a 21 42 25 3d 48 25 21 34 3a 21 28 42 25 2b |):!B%=H%!4:!(B%+|
00001f40 21 43 25 29 3d 45 25 2d 31 32 3a 21 28 42 25 2b |!C%)=E%-12:!(B%+|
00001f50 28 21 43 25 3c 3c 31 29 29 3d 48 25 21 31 32 3a |(!C%<<1))=H%!12:|
00001f60 21 28 42 25 2b 35 2a 21 43 25 29 3d 21 45 25 3e |!(B%+5*!C%)=!E%>|
00001f70 3e 3e 38 80 26 46 46 3a e7 28 21 48 25 80 26 46 |>>8.&FF:.(!H%.&F|
00001f80 31 30 31 29 3e 3d 26 45 31 30 31 8c 21 28 42 25 |101)>=&E101.!(B%|
00001f90 2b 34 2a 21 43 25 29 3d 47 31 25 3a 47 31 25 2b |+4*!C%)=G1%:G1%+|
00001fa0 3d a4 61 6c 69 67 6e 28 48 25 21 31 32 2b 31 29 |=.align(H%!12+1)|
00001fb0 0d 05 46 09 42 25 2b 3d 34 0d 05 50 05 cd 0d 05 |..F.B%+=4..P....|
00001fc0 5a 16 cd 3a 21 48 25 3d 21 48 25 80 ac 28 31 3c |Z..:!H%=!H%..(1<|
00001fd0 3c 32 33 29 0d 05 64 51 cd 3a ed 3a f2 63 42 28 |<23)..dQ.:.:.cB(|
00001fe0 43 25 2b 21 43 25 2b 34 2c 43 25 2b 34 2c 21 43 |C%+!C%+4,C%+4,!C|
00001ff0 25 29 3a 42 25 3d 43 25 2b 34 2a 21 43 25 2b 34 |%):B%=C%+4*!C%+4|
00002000 3a e3 45 25 3d 41 25 2b 38 30 b8 41 25 2b 28 21 |:.E%=A%+80.A%+(!|
00002010 41 25 3c 3c 34 29 88 31 36 3a e7 28 21 45 25 80 |A%<<4).16:.(!E%.|
00002020 34 29 3d 34 8c 0d 05 6e 4f e3 42 25 3d 43 25 2b |4)=4...nO.B%=C%+|
00002030 36 2a 21 43 25 2b 34 b8 43 25 2b 37 2a 21 43 25 |6*!C%+4.C%+7*!C%|
00002040 88 34 3a e7 21 42 25 3d 21 45 25 3e 3e 3e 38 80 |.4:.!B%=!E%>>>8.|
00002050 26 46 46 8c 21 28 42 25 2d 28 21 43 25 3c 3c 31 |&FF.!(B%-(!C%<<1|
00002060 29 29 3d 45 25 2d 31 32 3a 42 25 3d 43 25 2b 37 |))=E%-12:B%=C%+7|
00002070 2a 21 43 25 0d 05 78 05 ed 0d 05 82 32 cd 3a ed |*!C%..x.....2.:.|
00002080 3a e3 42 25 3d 43 25 2b 34 2a 21 43 25 2b 34 b8 |:.B%=C%+4*!C%+4.|
00002090 43 25 2b 35 2a 21 43 25 88 34 3a e7 21 42 25 3c |C%+5*!C%.4:.!B%<|
000020a0 26 38 30 30 30 8c 21 42 25 3d 30 0d 05 8c 05 ed |&8000.!B%=0.....|
000020b0 0d 05 96 67 cc de 43 25 20 28 42 25 3c 3c 31 29 |...g..C% (B%<<1)|
000020c0 2b 33 3a f2 73 42 28 43 25 2c 28 42 25 3c 3c 31 |+3:.sB(C%,(B%<<1|
000020d0 29 2b 34 2c 2d 31 29 3a 41 25 21 36 34 3d 43 25 |)+4,-1):A%!64=C%|
000020e0 3a 21 43 25 3d 42 25 3a 42 25 2b 3d 43 25 2b 34 |:!C%=B%:B%+=C%+4|
000020f0 3a e3 45 25 3d 41 25 2b 38 30 b8 41 25 2b 28 21 |:.E%=A%+80.A%+(!|
00002100 41 25 3c 3c 34 29 88 31 36 3a e7 28 21 45 25 80 |A%<<4).16:.(!E%.|
00002110 31 37 29 3d 31 37 8c 0d 05 a0 2a 48 25 3d 44 25 |17)=17....*H%=D%|
00002120 2b 28 28 21 45 25 80 26 46 46 30 30 29 3e 3e 3e |+((!E%.&FF00)>>>|
00002130 33 29 3a e7 28 21 48 25 80 47 25 29 3e 3d 46 25 |3):.(!H%.G%)>=F%|
00002140 8c 0d 05 aa 33 43 24 3d 24 28 45 25 2d 31 32 29 |....3C$=$(E%-12)|
00002150 3a e7 43 24 3c 3e 22 22 80 43 24 3c 3e 22 6e 6f |:.C$<>"".C$<>"no|
00002160 4e 61 6d 65 22 80 43 24 3c 3e 22 4e 6f 5f 4e 61 |Name".C$<>"No_Na|
00002170 6d 65 22 8c 0d 05 b4 16 e7 a7 43 24 2c 22 5f 22 |me".......C$,"_"|
00002180 29 3d 30 8c 43 24 2b 3d 7a 24 0d 05 be 1e f2 63 |)=0.C$+=z$.....c|
00002190 49 56 28 43 24 2c 42 25 29 3a 21 42 25 3d 48 25 |IV(C$,B%):!B%=H%|
000021a0 21 34 3a 42 25 2b 3d 34 0d 05 c8 05 cd 0d 05 d2 |!4:B%+=4........|
000021b0 16 cd 3a 21 48 25 3d 21 48 25 80 ac 28 31 3c 3c |..:!H%=!H%..(1<<|
000021c0 32 33 29 0d 05 e6 1e cd 3a ed 3a f2 63 42 28 43 |23).....:.:.cB(C|
000021d0 25 2b 21 43 25 2b 34 2c 43 25 2b 34 2c 21 43 25 |%+!C%+4,C%+4,!C%|
000021e0 29 0d 05 f0 05 cd 0d 05 fa 05 cd 0d 06 04 05 cd |)...............|
000021f0 0d 06 0e 08 cd 3a 3d a3 0d 06 18 92 dd f2 69 46 |.....:=.......iF|
00002200 64 28 41 24 2c 48 25 29 3a ea 41 25 2c 42 25 2c |d(A$,H%):.A%,B%,|
00002210 43 25 2c 44 25 2c 45 25 2c 46 25 2c 46 24 2c 47 |C%,D%,E%,F%,F$,G|
00002220 25 3a 41 25 3d 53 25 21 33 32 3a 21 51 25 3d 30 |%:A%=S%!32:!Q%=0|
00002230 3a 51 25 21 34 3d 30 3a 51 25 21 38 3d 30 3a 51 |:Q%!4=0:Q%!8=0:Q|
00002240 25 21 31 32 3d 48 25 3a 44 25 3d 51 25 2b 31 36 |%!12=H%:D%=Q%+16|
00002250 3a e3 42 25 3d 41 25 2b 35 32 b8 41 25 2b 32 38 |:.B%=A%+52.A%+28|
00002260 2b 32 34 2a 41 25 21 31 36 88 32 34 3a 43 25 3d |+24*A%!16.24:C%=|
00002270 21 42 25 3a e7 21 43 25 3e 34 80 28 43 25 21 38 |!B%:.!C%>4.(C%!8|
00002280 30 80 32 35 35 29 3d 33 32 8c 0d 06 22 65 21 44 |0.255)=32..."e!D|
00002290 25 3d 43 25 21 37 32 3e 3e 3e 38 80 26 33 46 46 |%=C%!72>>>8.&3FF|
000022a0 46 3a 44 25 21 34 3d 43 25 21 37 36 3a 44 25 21 |F:D%!4=C%!76:D%!|
000022b0 38 3d 43 25 21 36 38 80 26 46 46 46 46 46 46 3a |8=C%!68.&FFFFFF:|
000022c0 24 28 44 25 2b 31 36 29 3d 24 28 42 25 2d 32 30 |$(D%+16)=$(B%-20|
000022d0 29 3a 51 25 21 38 2b 3d 31 3a 45 25 3d 43 25 21 |):Q%!8+=1:E%=C%!|
000022e0 36 38 3e 3e 3e 32 34 80 37 3a c8 8e 45 25 ca 0d |68>>>24.7:..E%..|
000022f0 06 2c 27 c9 31 3a 44 25 21 31 32 3d 31 3a 51 25 |.,'.1:D%!12=1:Q%|
00002300 21 34 3d 51 25 21 34 84 31 3a 44 25 21 38 3d 44 |!4=Q%!4.1:D%!8=D|
00002310 25 21 38 2b 35 36 0d 06 36 a2 c9 32 3a 44 25 21 |%!8+56..6..2:D%!|
00002320 31 32 3d 32 3a 51 25 21 34 3d 51 25 21 34 84 32 |12=2:Q%!4=Q%!4.2|
00002330 3a 44 25 2b 3d 32 38 3a 21 44 25 3d 43 25 21 38 |:D%+=28:!D%=C%!8|
00002340 30 3e 3e 3e 38 80 26 33 46 46 46 3a 44 25 21 34 |0>>>8.&3FFF:D%!4|
00002350 3d 43 25 21 37 36 3a 44 25 21 34 3d 44 25 21 34 |=C%!76:D%!4=D%!4|
00002360 80 ac 32 35 35 3a 44 25 21 34 3d 44 25 21 34 84 |..255:D%!4=D%!4.|
00002370 31 3a 44 25 21 34 3d 44 25 21 34 84 28 31 3c 3c |1:D%!4=D%!4.(1<<|
00002380 31 31 29 3a 44 25 21 38 3d 43 25 21 36 38 80 26 |11):D%!8=C%!68.&|
00002390 46 46 46 46 46 46 3a 44 25 21 31 32 3d 32 3a 24 |FFFFFF:D%!12=2:$|
000023a0 28 44 25 2b 31 36 29 3d 24 28 42 25 2d 32 30 29 |(D%+16)=$(B%-20)|
000023b0 3a 51 25 21 38 2b 3d 31 0d 06 40 70 c9 33 3a 44 |:Q%!8+=1..@p.3:D|
000023c0 25 21 31 32 3d 34 3a 51 25 21 34 3d 51 25 21 34 |%!12=4:Q%!4=Q%!4|
000023d0 84 34 3a 46 25 3d a4 61 52 28 43 25 29 2b 38 38 |.4:F%=.aR(C%)+88|
000023e0 3a 47 25 3d 30 3a e3 48 25 3d 46 25 2b 31 36 b8 |:G%=0:.H%=F%+16.|
000023f0 46 25 2b 28 46 25 21 2d 34 3c 3c 35 29 88 33 32 |F%+(F%!-4<<5).32|
00002400 3a e7 28 21 48 25 80 26 46 31 30 31 29 3e 3d 26 |:.(!H%.&F101)>=&|
00002410 45 31 30 31 8c 47 25 2b 3d a4 61 6c 69 67 6e 28 |E101.G%+=.align(|
00002420 48 25 21 31 32 2b 31 29 0d 06 4a 70 ed 3a 44 25 |H%!12+1)..Jp.:D%|
00002430 21 38 3d 47 25 3a 44 25 2b 3d 32 38 3a 21 44 25 |!8=G%:D%+=28:!D%|
00002440 3d 43 25 21 38 30 3e 3e 3e 38 80 26 33 46 46 46 |=C%!80>>>8.&3FFF|
00002450 3a 44 25 21 34 3d 43 25 21 37 36 3a 44 25 21 34 |:D%!4=C%!76:D%!4|
00002460 3d 44 25 21 34 80 ac 28 32 35 35 3c 3c 38 29 3a |=D%!4..(255<<8):|
00002470 44 25 21 38 3d 30 3a 44 25 21 31 32 3d 34 3a 24 |D%!8=0:D%!12=4:$|
00002480 28 44 25 2b 31 36 29 3d 24 28 42 25 2d 32 30 29 |(D%+16)=$(B%-20)|
00002490 3a 51 25 21 38 2b 3d 31 0d 06 54 1a c9 34 3a 44 |:Q%!8+=1..T..4:D|
000024a0 25 21 31 32 3d 38 3a 51 25 21 34 3d 51 25 21 34 |%!12=8:Q%!4=Q%!4|
000024b0 84 38 0d 06 5e 0c cb 3a 44 25 2b 3d 32 38 0d 06 |.8..^..:D%+=28..|
000024c0 68 df cd 3a ed 3a c8 95 41 24 3c 3e 22 22 3a 46 |h..:.:..A$<>"":F|
000024d0 24 3d a4 70 53 28 41 24 2c 22 2c 22 29 3a 21 44 |$=.pS(A$,","):!D|
000024e0 25 3d a4 76 61 6c 28 46 24 29 3a 46 24 3d a4 70 |%=.val(F$):F$=.p|
000024f0 53 28 41 24 2c 22 2c 22 29 3a e7 46 24 3d 22 27 |S(A$,","):.F$="'|
00002500 27 22 8c 44 25 21 34 3d 44 25 21 2d 32 34 3a 44 |'".D%!4=D%!-24:D|
00002510 25 21 38 3d 44 25 21 2d 32 30 3a 44 25 21 31 32 |%!8=D%!-20:D%!12|
00002520 3d 44 25 21 2d 31 36 3a 24 28 44 25 2b 31 36 29 |=D%!-16:$(D%+16)|
00002530 3d 24 28 44 25 2d 31 32 29 8b 44 25 21 34 3d a4 |=$(D%-12).D%!4=.|
00002540 76 61 6c 28 46 24 29 3a 46 24 3d a4 70 53 28 41 |val(F$):F$=.pS(A|
00002550 24 2c 22 2c 22 29 3a 44 25 21 38 3d a4 76 61 6c |$,","):D%!8=.val|
00002560 28 46 24 29 3a 46 24 3d a4 70 53 28 41 24 2c 22 |(F$):F$=.pS(A$,"|
00002570 2c 22 29 3a 44 25 21 31 32 3d a4 76 61 6c 28 46 |,"):D%!12=.val(F|
00002580 24 29 3a 46 24 3d a4 70 53 28 41 24 2c 22 2c 22 |$):F$=.pS(A$,","|
00002590 29 3a 24 28 44 25 2b 31 36 29 3d 46 24 0d 06 72 |):$(D%+16)=F$..r|
000025a0 57 51 25 21 38 2b 3d 31 3a 44 25 2b 3d 32 38 3a |WQ%!8+=1:D%+=28:|
000025b0 ce 3a e7 51 25 21 38 3e 30 8c de 42 25 51 25 21 |.:.Q%!8>0..B%Q%!|
000025c0 38 2a 32 38 2b 31 35 3a 21 42 25 3d 53 25 21 38 |8*28+15:!B%=S%!8|
000025d0 38 3a 53 25 21 38 38 3d 42 25 3a f2 63 42 28 51 |8:S%!88=B%:.cB(Q|
000025e0 25 2b 34 2c 42 25 2b 34 2c 51 25 21 38 2a 32 38 |%+4,B%+4,Q%!8*28|
000025f0 2b 31 36 29 0d 06 7c 05 e1 0d 06 86 39 dd a4 69 |+16)..|.....9..i|
00002600 4d 73 67 28 41 24 28 29 2c 42 25 29 3a ea 43 25 |Msg(A$(),B%):.C%|
00002610 3a 43 25 3d 30 3a f5 3a 41 24 28 43 25 29 3d be |:C%=0:.:A$(C%)=.|
00002620 23 42 25 3a 43 25 2b 3d 31 3a fd c5 23 42 25 3a |#B%:C%+=1:..#B%:|
00002630 3d a3 0d ff |=...|
00002634 
.