Home » Archimedes archive » Acorn Computing » 1993 05 Mega Disk.adf » 93_05 » Miscellany/!Analyse/ArchSys/Init
Miscellany/!Analyse/ArchSys/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 » Acorn Computing » 1993 05 Mega Disk.adf » 93_05 |
| Filename: | Miscellany/!Analyse/ArchSys/Init |
| Read OK: | ✔ |
| File size: | 267D bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >!Analyse.ArchSys.Init
20
30DEFPROCinit:LOCALA%,A$,B%,B$,C%,C$,D%,D$,E%,Psprites%:DIMChoices$(3):ONERROR PRINT REPORT$+" at line "+STR$ERL:STOP
40LIBRARY"<Analyse$Dir>.ArchSys.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)
80CloseW%=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:SYS&80D02,0TO,A%:B%!0=A%:SYS&80D02,1TO,A%:B%!4=A%:SYS&80D02,2TO,A%:B%!8=A%:SYS&80D02,3TO,A%:B%!12=A%:SYS&80D02,4TO,A%:B%!16=A%:SYS&80D02,5TO,A%:B%!20=A%:SYS&80D02,8TO,A%:B%!24=A%:SYS&80D02,9TO,A%:B%!28=A%
110SYS&80D02,11TO,A%:B%!36=A%:SYS&80D02,12TO,A%:B%!40=A%
120PROCsBw(S%,164,0):PROCsBw(S%+168,6496,0):Q%=S%+6664:S%!8=Q%: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,"<Analyse$Dir>.ArchSys.OverRide."+C$TOB%:IFB%=2THEN
330B$="<Analyse$Dir>.ArchSys.OverRide."+C$
340ELSEB$="<Analyse$Dir>.ArchSys."+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$):CASETRUE OF
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
720NEXT: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
800D%=VAL(GET$#A%):IFD%>0THEN
810CASEz$OF
820WHEN"_":DIMMsg_$(D%):Z%=FNiMsg(Msg_$(),A%):S%!496=TRUE
840ENDCASE
850ENDIF:CLOSE#A%
860ENDIF
870OTHERWISE: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
880WHEN"Key":Z%=FNiKey(!F%)
890ENDCASE:NEXT:C%!20=C%+32
900ENDCASE
910ENDIF
920ENDIF:UNTILB%=-1
930ENDPROC
940DEFFNi(A$,B%):PROCiRes(A$,B%):=TRUE
950
960DEFFNiKey(A%):LOCALB%,C%:FORB%=A%TOA%+&3FFSTEP4:IF!B%>512THEN!B%+=A%
970NEXT:FORB%=A%+&600TOA%+&7FFSTEP4:IF!B%>512THEN!B%+=A%
980NEXT:K%=A%:=FALSE
990DEFFNiM(A%):LOCALB%,C%,D%,E%,F%,G$:C%=!A%:IFC%>0THEN
1000F%=FNaR(A%):A%-=12:FORB%=F%+28TOF%+4+24*C%STEP24:A%+=16:E%=B%!8:IFE%AND256THEN
1010B%!12+=F%:B%!16-=F%*(B%!16>1):IF!B%AND4THEN
1020G$=$A%:IFINSTR(G$,"_")=0THENG$+=z$
1030PROCcIV(G$,B%+12)
1040ENDIF:IFE%AND2THENB%!16=1
1050ENDIF:IFE%AND64THEND%=FNfF(E%>>>24)<<24:E%=E%AND&FFFFFF:B%!8=E%ORD%
1060NEXT
1070ENDIF:=FALSE
1080DEFFNiW(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
1090IFF%!56AND256THENF%!72+=D%
1100IFE%>0THEN
1110FORC%=F%+104TOF%+72+E%STEP32:IF!C%AND256THENC%!4+=D%:IFC%!8>0THENC%!8+=D%
1120IF!C%AND64THENH%=FNfF(!C%>>>24)<<24:!C%=!C%AND&FFFFFF:!C%=!C%ORH%
1130NEXT
1140ENDIF:E%=!A%<<4:D%=F%+72:F%=14<<12:G%=F%+(1<<23):IFE%>64THEN
1150FORC%=A%+80TOA%+E%STEP16:IF(!C%AND17)=17THEN
1160H%=D%+((!C%AND&FF00)>>>3):IF(!H%ANDG%)>=F%THEN
1170C$=$(C%-12):IFC$<>""ANDC$<>"noName"ANDC$<>"No_Name"THEN
1180IFINSTR(C$,"_")=0THENC$+=z$
1190PROCcIV(C$,H%+4)
1200ENDIF
1210ENDIF
1220!H%=!H%ANDNOT(1<<23)
1230ENDIF:NEXT
1240ENDIF
1250ELSEIFE%>0THEN
1260FORC%=F%+104TOF%+72+E%STEP32:IF!C%AND64THENH%=FNfF(!C%>>>24)<<24:!C%=!C%AND&FFFFFF:!C%=!C%ORH%
1270NEXT
1280ENDIF:E%=!A%<<4:D%=F%+72:F%=14<<12:G%=F%+(1<<23):IFE%>64THEN
1290B%=0:FORC%=A%+80TOA%+E%STEP16:IF(!C%AND17)=17THENH%=D%+((!C%AND&FF00)>>>3):IF(!H%ANDG%)>=F%THENB%+=4
1300NEXT:IFB%THEN
1310IFB1%=14THEN
1320DIMC% 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
1330H%=D%+((!E%AND&FF00)>>>3):IF(!H%ANDG%)>=F%THEN
1340C$=$(E%-12):IFC$<>""ANDC$<>"noName"ANDC$<>"No_Name"THEN
1350IFINSTR(C$,"_")=0THENC$+=z$
1360PROCcIV(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)
1370B%+=4
1380ENDIF
1390ENDIF:!H%=!H%ANDNOT(1<<23)
1400ENDIF:NEXT:PROCcB(C%+!C%+4,C%+4,!C%):B%=C%+4*!C%+4:FORE%=A%+80TOA%+(!A%<<4)STEP16:IF(!E%AND4)=4THEN
1410FORB%=C%+6*!C%+4TOC%+7*!C%STEP4:IF!B%=!E%>>>8AND&FF THEN!(B%-(!C%<<1))=E%-12:B%=C%+7*!C%
1420NEXT
1430ENDIF:NEXT:FORB%=C%+4*!C%+4TOC%+5*!C%STEP4:IF!B%<&8000THEN!B%=0
1440NEXT
1450ELSEDIMC% (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
1460H%=D%+((!E%AND&FF00)>>>3):IF(!H%ANDG%)>=F%THEN
1470C$=$(E%-12):IFC$<>""ANDC$<>"noName"ANDC$<>"No_Name"THEN
1480IFINSTR(C$,"_")=0THENC$+=z$
1490PROCcIV(C$,B%):!B%=H%!4:B%+=4
1500ENDIF
1510ENDIF
1520!H%=!H%ANDNOT(1<<23)
1530ENDIF:NEXT:PROCcB(C%+!C%+4,C%+4,!C%)
1540ENDIF
1550ENDIF
1560ENDIF
1570ENDIF:=FALSE
1580DEFPROCiFd(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
1590!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
1600WHEN1:D%!12=1:Q%!4=Q%!4OR1:D%!8=D%!8+56
1610WHEN2: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
1620WHEN3: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)
1630NEXT: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
1640WHEN4:D%!12=8:Q%!4=Q%!4OR8
1650ENDCASE:D%+=28
1660ENDIF: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$
1670Q%!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)
1680ENDPROC
1700DEFFNiMsg(A$(),B%):LOCALC%:C%=0:REPEAT:A$(C%)=GET$#B%:C%+=1:UNTILEOF#B%:=FALSE
� >!Analyse.ArchSys.Init
V��init:�A%,A$,B%,B$,C%,C$,D%,D$,E%,Psprites%:�Choices$(3):� � �$+" at line "+Þ:�
(_ț"<Analyse$Dir>.ArchSys.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)
P�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:ș&80D02,0�,A%:B%!0=A%:ș&80D02,1�,A%:B%!4=A%:ș&80D02,2�,A%:B%!8=A%:ș&80D02,3�,A%:B%!12=A%:ș&80D02,4�,A%:B%!16=A%:ș&80D02,5�,A%:B%!20=A%:ș&80D02,8�,A%:B%!24=A%:ș&80D02,9�,A%:B%!28=A%
n5ș&80D02,11�,A%:B%!36=A%:ș&80D02,12�,A%:B%!40=A%
x��sBw(S%,164,0):�sBw(S%+168,6496,0):Q%=S%+6664:S%!8=Q%: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$
@:�ș8,17,"<Analyse$Dir>.ArchSys.OverRide."+C$�B%:�B%=2�
J+B$="<Analyse$Dir>.ArchSys.OverRide."+C$
T#�B$="<Analyse$Dir>.ArchSys."+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$�
41�"_":�Msg_$(D%):Z%=�iMsg(Msg_$(),A%):S%!496=�
H�
R
�:�#A%
\�
f�:�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%�
p�"Key":Z%=�iKey(!F%)
z�:�:C%!20=C%+32
��
��
� �:�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%:=�
�-ݤ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%
$�
.�:=�
8nݤ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�
B�F%!56�256�F%!72+=D%
L
�E%>0�
V=�C%=F%+104�F%+72+E%�32:�!C%�256�C%!4+=D%:�C%!8>0�C%!8+=D%
`;�!C%�64�H%=�fF(!C%>>>24)<<24:!C%=!C%�&FFFFFF:!C%=!C%�H%
j�
t8�:E%=!A%<<4:D%=F%+72:F%=14<<12:G%=F%+(1<<23):�E%>64�
~$�C%=A%+80�A%+E%�16:�(!C%�17)=17�
�*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�
2*H%=D%+((!E%�&FF00)>>>3):�(!H%�G%)>=F%�
<3C$=$(E%-12):�C$<>""�C$<>"noName"�C$<>"No_Name"�
F�C$,"_")=0�C$+=z$
P��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)
Z B%+=4
d�
n�:!H%=!H%��(1<<23)
xQ�:�:�cB(C%+!C%+4,C%+4,!C%):B%=C%+4*!C%+4:�E%=A%+80�A%+(!A%<<4)�16:�(!E%�4)=4�
�P�B%=C%+6*!C%+4�C%+7*!C%�4:�!B%=!E%>>>8�&FF �!(B%-(!C%<<1))=E%-12:B%=C%+7*!C%
��
�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�
6e!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
J��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
Tp�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)
^p�: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
h�4:D%!12=8:Q%!4=Q%!4�8
r �:D%+=28
|��:�:ȕ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$
�WQ%!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 0a 1c f4 20 3e 21 41 6e 61 6c 79 73 65 2e |..... >!Analyse.|
00000010 41 72 63 68 53 79 73 2e 49 6e 69 74 0d 00 14 04 |ArchSys.Init....|
00000020 0d 00 1e 56 dd f2 69 6e 69 74 3a ea 41 25 2c 41 |...V..init:.A%,A|
00000030 24 2c 42 25 2c 42 24 2c 43 25 2c 43 24 2c 44 25 |$,B%,B$,C%,C$,D%|
00000040 2c 44 24 2c 45 25 2c 50 73 70 72 69 74 65 73 25 |,D$,E%,Psprites%|
00000050 3a de 43 68 6f 69 63 65 73 24 28 33 29 3a ee 85 |:.Choices$(3):..|
00000060 20 f1 20 f6 24 2b 22 20 61 74 20 6c 69 6e 65 20 | . .$+" at line |
00000070 22 2b c3 9e 3a fa 0d 00 28 5f c8 9b 22 3c 41 6e |"+..:...(_.."<An|
00000080 61 6c 79 73 65 24 44 69 72 3e 2e 41 72 63 68 53 |alyse$Dir>.ArchS|
00000090 79 73 2e 4b 65 72 6e 65 6c 2e 4c 69 62 72 61 72 |ys.Kernel.Librar|
000000a0 79 22 3a 42 24 3d 22 3c 4f 62 65 79 24 44 69 72 |y":B$="<Obey$Dir|
000000b0 3e 2e 43 68 6f 69 63 65 73 22 3a e7 a4 67 46 6c |>.Choices":..gFl|
000000c0 28 42 24 29 3e 30 80 a4 67 46 74 28 42 24 29 3d |(B$)>0..gFt(B$)=|
000000d0 26 34 30 37 8c 0d 00 32 9a 41 25 3d 8e 28 42 24 |&407...2.A%=.(B$|
000000e0 29 3a e8 23 41 25 2c 4c 65 76 65 6c 24 2c 50 61 |):.#A%,Level$,Pa|
000000f0 73 73 24 2c 44 65 62 75 67 25 2c 53 68 6f 77 4e |ss$,Debug%,ShowN|
00000100 61 6d 65 25 2c 48 65 6c 70 25 2c 4c 61 73 74 24 |ame%,Help%,Last$|
00000110 2c 5a 24 2c 53 61 76 65 43 68 6f 69 63 65 73 25 |,Z$,SaveChoices%|
00000120 2c 5a 25 2c 43 68 6f 69 63 65 73 24 28 30 29 2c |,Z%,Choices$(0),|
00000130 43 68 6f 69 63 65 73 24 28 31 29 2c 43 68 6f 69 |Choices$(1),Choi|
00000140 63 65 73 24 28 32 29 2c 43 68 6f 69 63 65 73 24 |ces$(2),Choices$|
00000150 28 33 29 3a d9 23 41 25 3a 50 61 73 73 24 3d a4 |(3):.#A%:Pass$=.|
00000160 63 64 53 28 50 61 73 73 24 29 3a 45 25 3d a3 0d |cdS(Pass$):E%=..|
00000170 00 3c 68 cc 4c 65 76 65 6c 24 3d 22 55 22 3a 50 |.<h.Level$="U":P|
00000180 61 73 73 24 3d 22 50 61 73 73 77 6f 72 64 22 3a |ass$="Password":|
00000190 44 65 62 75 67 25 3d b9 3a 53 68 6f 77 4e 61 6d |Debug%=.:ShowNam|
000001a0 65 25 3d a3 3a 48 65 6c 70 25 3d b9 3a 4c 61 73 |e%=.:Help%=.:Las|
000001b0 74 24 3d 22 22 3a 53 61 76 65 43 68 6f 69 63 65 |t$="":SaveChoice|
000001c0 73 25 3d a3 3a 43 68 6f 69 63 65 73 24 28 29 3d |s%=.:Choices$()=|
000001d0 22 22 3a 45 25 3d b9 0d 00 46 17 cd 3a 41 24 3d |"":E%=...F..:A$=|
000001e0 50 61 72 61 6d 65 74 65 72 73 24 28 31 29 0d 00 |Parameters$(1)..|
000001f0 50 cd 43 6c 6f 73 65 57 25 3d 33 3a 50 74 72 4c |P.CloseW%=3:PtrL|
00000200 65 61 76 65 25 3d 34 3a 50 74 72 45 6e 74 65 72 |eave%=4:PtrEnter|
00000210 25 3d 35 3a 43 6c 69 63 6b 25 3d 36 3a 4b 65 79 |%=5:Click%=6:Key|
00000220 50 72 65 73 73 25 3d 38 3a 4c 6f 73 65 43 61 72 |Press%=8:LoseCar|
00000230 65 74 25 3d 31 31 3a 47 61 69 6e 43 61 72 65 74 |et%=11:GainCaret|
00000240 25 3d 31 32 3a 43 72 65 61 74 65 57 25 3d 31 39 |%=12:CreateW%=19|
00000250 33 3a 4b 65 79 31 33 25 3d 31 39 34 3a 57 73 70 |3:Key13%=194:Wsp|
00000260 61 63 65 25 3d 31 39 35 3a 43 6c 6f 73 65 64 57 |ace%=195:ClosedW|
00000270 25 3d 31 39 38 3a 50 6f 70 55 70 57 25 3d 32 35 |%=198:PopUpW%=25|
00000280 36 3a 44 6f 54 61 69 6c 25 3d 32 35 37 3a 53 74 |6:DoTail%=257:St|
00000290 61 74 69 63 57 25 3d 32 35 38 3a 43 68 61 6e 67 |aticW%=258:Chang|
000002a0 65 4d 25 3d 32 35 39 3a 51 75 69 74 25 3d 32 36 |eM%=259:Quit%=26|
000002b0 30 3a 52 61 6d 54 25 3d 32 36 31 0d 00 5a a6 49 |0:RamT%=261..Z.I|
000002c0 25 3d a3 3a de 4a 25 36 33 3a 4b 25 3d a3 3a 4d |%=.:.J%63:K%=.:M|
000002d0 25 3d a3 3a 4e 25 3d a3 3a 50 25 3d a3 3a 52 25 |%=.:N%=.:P%=.:R%|
000002e0 3d a3 3a 54 25 3d a3 3a 55 25 3d a3 3a 45 24 3d |=.:T%=.:U%=.:E$=|
000002f0 22 22 3a 46 24 3d 22 22 3a 47 24 3d 22 22 3a 48 |"":F$="":G$="":H|
00000300 24 3d 22 22 3a 41 3d 30 3a 42 3d 30 3a 43 3d 30 |$="":A=0:B=0:C=0|
00000310 3a 44 3d 30 3a 45 3d 30 3a 46 3d 30 3a 47 3d 30 |:D=0:E=0:F=0:G=0|
00000320 3a 48 3d 30 3a 64 24 3d 22 22 3a 66 24 3d 22 22 |:H=0:d$="":f$=""|
00000330 3a 7a 24 3d 22 22 3a 41 25 3d 36 36 36 33 3a 42 |:z$="":A%=6663:B|
00000340 25 3d bb 28 a4 70 53 28 41 24 2c 22 2c 22 29 29 |%=.(.pS(A$,","))|
00000350 3a e7 42 25 3c 31 32 30 30 8c 42 25 3d 31 32 30 |:.B%<1200.B%=120|
00000360 30 0d 00 64 e1 41 25 2b 3d 42 25 3a de 53 25 41 |0..d.A%+=B%:.S%A|
00000370 25 2c 53 25 21 31 36 34 20 36 34 3a 42 25 3d 53 |%,S%!164 64:B%=S|
00000380 25 21 31 36 34 3a c8 99 26 38 30 44 30 32 2c 30 |%!164:..&80D02,0|
00000390 b8 2c 41 25 3a 42 25 21 30 3d 41 25 3a c8 99 26 |.,A%:B%!0=A%:..&|
000003a0 38 30 44 30 32 2c 31 b8 2c 41 25 3a 42 25 21 34 |80D02,1.,A%:B%!4|
000003b0 3d 41 25 3a c8 99 26 38 30 44 30 32 2c 32 b8 2c |=A%:..&80D02,2.,|
000003c0 41 25 3a 42 25 21 38 3d 41 25 3a c8 99 26 38 30 |A%:B%!8=A%:..&80|
000003d0 44 30 32 2c 33 b8 2c 41 25 3a 42 25 21 31 32 3d |D02,3.,A%:B%!12=|
000003e0 41 25 3a c8 99 26 38 30 44 30 32 2c 34 b8 2c 41 |A%:..&80D02,4.,A|
000003f0 25 3a 42 25 21 31 36 3d 41 25 3a c8 99 26 38 30 |%:B%!16=A%:..&80|
00000400 44 30 32 2c 35 b8 2c 41 25 3a 42 25 21 32 30 3d |D02,5.,A%:B%!20=|
00000410 41 25 3a c8 99 26 38 30 44 30 32 2c 38 b8 2c 41 |A%:..&80D02,8.,A|
00000420 25 3a 42 25 21 32 34 3d 41 25 3a c8 99 26 38 30 |%:B%!24=A%:..&80|
00000430 44 30 32 2c 39 b8 2c 41 25 3a 42 25 21 32 38 3d |D02,9.,A%:B%!28=|
00000440 41 25 0d 00 6e 35 c8 99 26 38 30 44 30 32 2c 31 |A%..n5..&80D02,1|
00000450 31 b8 2c 41 25 3a 42 25 21 33 36 3d 41 25 3a c8 |1.,A%:B%!36=A%:.|
00000460 99 26 38 30 44 30 32 2c 31 32 b8 2c 41 25 3a 42 |.&80D02,12.,A%:B|
00000470 25 21 34 30 3d 41 25 0d 00 78 d8 f2 73 42 77 28 |%!40=A%..x..sBw(|
00000480 53 25 2c 31 36 34 2c 30 29 3a f2 73 42 77 28 53 |S%,164,0):.sBw(S|
00000490 25 2b 31 36 38 2c 36 34 39 36 2c 30 29 3a 51 25 |%+168,6496,0):Q%|
000004a0 3d 53 25 2b 36 36 36 34 3a 53 25 21 38 3d 51 25 |=S%+6664:S%!8=Q%|
000004b0 3a 53 25 21 31 31 32 3d 53 25 2b 31 35 34 34 3a |:S%!112=S%+1544:|
000004c0 53 25 21 31 31 36 3d 53 25 2b 31 38 30 30 3a 53 |S%!116=S%+1800:S|
000004d0 25 21 31 32 30 3d 53 25 2b 32 30 35 36 3a 4f 25 |%!120=S%+2056:O%|
000004e0 3d 53 25 2b 32 33 31 32 3a 53 25 21 31 32 34 3d |=S%+2312:S%!124=|
000004f0 4f 25 3a 57 25 3d 53 25 2b 32 35 36 38 3a 53 25 |O%:W%=S%+2568:S%|
00000500 21 34 34 3d 93 3a c8 99 32 39 2c 30 2c 53 25 21 |!44=.:..29,0,S%!|
00000510 34 34 2c 2c 48 4d 25 2d 53 25 21 34 34 3a 53 25 |44,,HM%-S%!44:S%|
00000520 21 34 38 3d b9 3a 44 25 3d bb 28 a4 70 53 28 41 |!48=.:D%=.(.pS(A|
00000530 24 2c 22 2c 22 29 29 3a 53 25 21 38 30 3d 44 25 |$,",")):S%!80=D%|
00000540 3a e7 44 25 3e 30 8c de 53 25 21 37 36 44 25 0d |:.D%>0..S%!76D%.|
00000550 00 82 65 53 25 21 31 32 38 3d b9 3a 53 25 21 31 |..eS%!128=.:S%!1|
00000560 34 38 3d 45 25 3a 53 25 21 31 35 36 3d 31 30 30 |48=E%:S%!156=100|
00000570 3a 53 25 21 31 36 38 3d a4 72 43 4d 4f 53 28 35 |:S%!168=.rCMOS(5|
00000580 33 29 3a c8 99 31 36 b8 42 25 3a 45 6e 76 24 3d |3):..16.B%:Env$=|
00000590 a4 7a 54 28 42 25 29 3a 41 25 3d a7 45 6e 76 24 |.zT(B%):A%=.Env$|
000005a0 2c 22 21 52 75 6e 49 6d 61 67 65 22 29 3a e7 41 |,"!RunImage"):.A|
000005b0 25 3e 30 8c 0d 00 8c 39 42 24 3d c1 45 6e 76 24 |%>0....9B$=.Env$|
000005c0 2c 41 25 2b 31 30 29 3a 42 24 3d a4 64 47 53 54 |,A%+10):B$=.dGST|
000005d0 28 42 24 29 3a 42 24 3d a4 74 72 6d 53 28 42 24 |(B$):B$=.trmS(B$|
000005e0 2c 2d 31 29 3a e7 42 24 3c 3e 22 22 8c 0d 00 96 |,-1):.B$<>""....|
000005f0 46 44 24 3d 22 22 3a c8 95 42 24 3c 3e 22 22 3a |FD$="":..B$<>"":|
00000600 43 24 3d a4 70 53 28 42 24 2c 22 20 22 29 3a 43 |C$=.pS(B$," "):C|
00000610 24 3d a4 74 72 6d 53 28 43 24 2c 2d 31 29 3a e7 |$=.trmS(C$,-1):.|
00000620 43 24 3c 3e 22 22 8c 44 24 3d 44 24 2b 22 20 22 |C$<>"".D$=D$+" "|
00000630 2b 43 24 0d 00 a0 11 ce 3a 45 6e 76 24 3d c1 44 |+C$.....:Env$=.D|
00000640 24 2c 32 29 0d 00 aa 0c cc 45 6e 76 24 3d 22 22 |$,2).....Env$=""|
00000650 0d 00 b4 05 cd 0d 00 be 0c cc 45 6e 76 24 3d 22 |..........Env$="|
00000660 22 0d 00 c8 8e cd 3a 53 25 21 31 38 38 3d b9 3a |".....:S%!188=.:|
00000670 f2 67 4d 69 3a 53 25 21 32 31 32 3d 26 38 30 32 |.gMi:S%!212=&802|
00000680 38 43 30 3a 53 25 21 32 31 36 3d b9 3a 53 25 21 |8C0:S%!216=.:S%!|
00000690 32 34 38 3d bb 28 a4 70 53 28 41 24 2c 22 2c 22 |248=.(.pS(A$,","|
000006a0 29 29 2d 32 3a c8 99 38 31 b8 44 25 3a 53 25 21 |))-2:..81.D%:S%!|
000006b0 32 39 32 3d 44 25 3a 53 25 21 33 32 34 3d b9 3a |292=D%:S%!324=.:|
000006c0 de 53 25 21 34 32 34 20 33 31 2c 53 25 21 34 39 |.S%!424 31,S%!49|
000006d0 32 20 33 31 3a 53 25 21 34 35 36 3d b9 3a 53 25 |2 31:S%!456=.:S%|
000006e0 21 35 35 32 3d b9 3a 53 25 21 35 35 36 3d eb 0d |!552=.:S%!556=..|
000006f0 00 d2 ea 42 25 3d 53 25 2b 31 30 32 34 3a 61 6e |...B%=S%+1024:an|
00000700 25 3d 42 25 3a 63 6e 25 3d 42 25 2b 32 34 3a 64 |%=B%:cn%=B%+24:d|
00000710 6e 25 3d 42 25 2b 33 36 3a 65 6e 25 3d 42 25 2b |n%=B%+36:en%=B%+|
00000720 34 38 3a 66 6e 25 3d 42 25 2b 36 30 3a 6c 6e 25 |48:fn%=B%+60:ln%|
00000730 3d 42 25 2b 31 33 32 3a 6d 6e 25 3d 42 25 2b 31 |=B%+132:mn%=B%+1|
00000740 34 34 3a 6e 6e 25 3d 42 25 2b 31 35 36 3a 70 6e |44:nn%=B%+156:pn|
00000750 25 3d 42 25 2b 31 38 30 3a 72 6e 25 3d 42 25 2b |%=B%+180:rn%=B%+|
00000760 32 30 34 3a 73 6e 25 3d 42 25 2b 32 31 36 3a 77 |204:sn%=B%+216:w|
00000770 6e 25 3d 42 25 2b 32 36 34 3a 24 61 6e 25 3d 22 |n%=B%+264:$an%="|
00000780 22 3a 24 63 6e 25 3d 22 22 3a 24 64 6e 25 3d 22 |":$cn%="":$dn%="|
00000790 22 3a 24 65 6e 25 3d 22 22 3a 24 66 6e 25 3d 22 |":$en%="":$fn%="|
000007a0 22 3a 24 6c 6e 25 3d 22 22 3a 24 6d 6e 25 3d 22 |":$ln%="":$mn%="|
000007b0 22 3a 24 6e 6e 25 3d 22 22 3a 24 70 6e 25 3d 22 |":$nn%="":$pn%="|
000007c0 22 3a 24 72 6e 25 3d 22 22 3a 24 73 6e 25 3d 22 |":$rn%="":$sn%="|
000007d0 22 3a 24 77 6e 25 3d 22 22 0d 00 dc f7 42 25 3d |":$wn%=""....B%=|
000007e0 53 25 2b 31 33 33 36 3a 61 25 3d 42 25 3a 61 30 |S%+1336:a%=B%:a0|
000007f0 25 3d 42 25 2b 34 3a 62 25 3d 42 25 2b 38 3a 62 |%=B%+4:b%=B%+8:b|
00000800 30 25 3d 42 25 2b 31 32 3a 63 25 3d 42 25 2b 31 |0%=B%+12:c%=B%+1|
00000810 36 3a 64 25 3d 42 25 2b 32 34 3a 64 30 25 3d 42 |6:d%=B%+24:d0%=B|
00000820 25 2b 32 38 3a 65 25 3d 42 25 2b 33 32 3a 65 30 |%+28:e%=B%+32:e0|
00000830 25 3d 42 25 2b 33 36 3a 66 25 3d 42 25 2b 34 30 |%=B%+36:f%=B%+40|
00000840 3a 66 30 25 3d 42 25 2b 34 34 3a 67 25 3d 42 25 |:f0%=B%+44:g%=B%|
00000850 2b 34 38 3a 67 30 25 3d 42 25 2b 35 32 3a 68 25 |+48:g0%=B%+52:h%|
00000860 3d 42 25 2b 35 36 3a 68 30 25 3d 42 25 2b 36 30 |=B%+56:h0%=B%+60|
00000870 3a 69 25 3d 42 25 2b 36 34 3a 69 30 25 3d 42 25 |:i%=B%+64:i0%=B%|
00000880 2b 36 38 3a 6a 25 3d 42 25 2b 37 32 3a 6a 30 25 |+68:j%=B%+72:j0%|
00000890 3d 42 25 2b 37 36 3a 6b 25 3d 42 25 2b 38 30 3a |=B%+76:k%=B%+80:|
000008a0 6b 30 25 3d 42 25 2b 38 34 3a 6c 25 3d 42 25 2b |k0%=B%+84:l%=B%+|
000008b0 38 38 3a 6c 30 25 3d 42 25 2b 39 32 3a 6d 25 3d |88:l0%=B%+92:m%=|
000008c0 42 25 2b 39 36 3a 6d 30 25 3d 42 25 2b 31 30 30 |B%+96:m0%=B%+100|
000008d0 0d 00 e6 b4 6e 25 3d 42 25 2b 31 30 34 3a 71 25 |....n%=B%+104:q%|
000008e0 3d 42 25 2b 31 32 38 3a 72 25 3d 42 25 2b 31 33 |=B%+128:r%=B%+13|
000008f0 36 3a 72 30 25 3d 42 25 2b 31 34 30 3a 73 25 3d |6:r0%=B%+140:s%=|
00000900 42 25 2b 31 34 34 3a 74 25 3d 42 25 2b 31 35 32 |B%+144:t%=B%+152|
00000910 3a 74 30 25 3d 42 25 2b 31 35 36 3a 76 25 3d 42 |:t0%=B%+156:v%=B|
00000920 25 2b 31 36 38 3a 76 30 25 3d 42 25 2b 31 37 32 |%+168:v0%=B%+172|
00000930 3a 77 25 3d 42 25 2b 31 37 36 3a 77 30 25 3d 42 |:w%=B%+176:w0%=B|
00000940 25 2b 31 38 30 3a 78 25 3d 42 25 2b 31 38 34 3a |%+180:x%=B%+184:|
00000950 78 30 25 3d 42 25 2b 31 38 38 3a 79 25 3d 42 25 |x0%=B%+188:y%=B%|
00000960 2b 31 39 32 3a 79 30 25 3d 42 25 2b 31 39 36 3a |+192:y0%=B%+196:|
00000970 7a 25 3d 42 25 2b 32 30 30 3a 7a 30 25 3d 42 25 |z%=B%+200:z0%=B%|
00000980 2b 32 30 34 0d 00 f0 68 21 76 30 25 3d 38 35 36 |+204...h!v0%=856|
00000990 3a 21 77 25 3d 57 25 3a 57 25 2b 3d 32 35 36 3a |:!w%=W%:W%+=256:|
000009a0 43 25 3d 30 3a e3 42 25 3d 21 77 25 2b 31 32 b8 |C%=0:.B%=!w%+12.|
000009b0 21 77 25 2b 31 32 2b 31 35 2a 32 35 36 88 32 35 |!w%+12+15*256.25|
000009c0 36 3a 21 42 25 3d 2d 32 35 35 3a 42 25 21 32 38 |6:!B%=-255:B%!28|
000009d0 3d b9 3a 42 25 21 31 38 34 3d b9 3a 42 25 21 33 |=.:B%!184=.:B%!3|
000009e0 36 3d 43 25 3a 43 25 2b 3d 31 3a ed 0d 00 fa d2 |6=C%:C%+=1:.....|
000009f0 de 43 25 28 31 2c 36 29 2c 49 25 28 31 36 29 2c |.C%(1,6),I%(16),|
00000a00 4d 25 28 31 36 29 2c 4d 24 28 31 36 29 2c 54 24 |M%(16),M$(16),T$|
00000a10 28 33 31 29 2c 7a 24 28 31 36 29 3a 43 25 28 29 |(31),z$(16):C%()|
00000a20 3d 2d 31 3a 43 25 28 30 2c 36 29 3d 30 3a f7 2b |=-1:C%(0,6)=0:.+|
00000a30 30 3a e3 41 25 3d 30 b8 31 34 3a f3 3f 28 53 25 |0:.A%=0.14:.?(S%|
00000a40 2b 33 30 30 2b 41 25 29 3a ed 3a e3 41 25 3d 30 |+300+A%):.:.A%=0|
00000a50 b8 33 31 3a f3 54 24 28 41 25 29 3a ed 3a 50 6f |.31:.T$(A%):.:Po|
00000a60 6c 6c 24 3d 22 22 3a 54 72 61 63 65 31 24 3d 22 |ll$="":Trace1$="|
00000a70 22 3a 54 72 61 63 65 32 24 3d 22 22 3a 54 72 61 |":Trace2$="":Tra|
00000a80 63 65 31 25 3d 30 3a 54 72 61 63 65 32 25 3d 30 |ce1%=0:Trace2%=0|
00000a90 3a 54 72 61 63 65 33 25 3d 30 3a 54 72 61 63 65 |:Trace3%=0:Trace|
00000aa0 34 25 3d 30 3a 54 72 61 63 65 31 3d 30 3a 54 72 |4%=0:Trace1=0:Tr|
00000ab0 61 63 65 32 3d 30 3a 54 6f 6f 6c 25 3d 30 0d 01 |ace2=0:Tool%=0..|
00000ac0 04 5b 43 24 3d a4 67 53 56 28 22 4f 62 65 79 24 |.[C$=.gSV("Obey$|
00000ad0 44 69 72 22 29 3a 24 73 6e 25 3d a4 67 4c 6e 28 |Dir"):$sn%=.gLn(|
00000ae0 43 24 29 3a 41 70 70 6c 6e 24 3d 43 24 3a c8 99 |C$):Appln$=C$:..|
00000af0 26 34 30 30 43 30 2c 32 30 30 2c 26 34 42 35 33 |&400C0,200,&4B53|
00000b00 34 31 35 34 2c 24 73 6e 25 b8 43 25 2c 21 74 25 |4154,$sn%.C%,!t%|
00000b10 3a ee 85 f2 65 72 72 6f 72 0d 01 0e 4d e7 43 25 |:...error...M.C%|
00000b20 3c 32 30 30 8c 85 53 25 21 32 31 32 2b 32 2c 22 |<200..S%!212+2,"|
00000b30 59 6f 75 20 6e 65 65 64 20 52 49 53 43 2d 4f 53 |You need RISC-OS|
00000b40 20 57 69 6d 70 20 76 65 72 73 69 6f 6e 20 32 2e | Wimp version 2.|
00000b50 30 20 74 6f 20 72 75 6e 20 74 68 69 73 20 70 72 |0 to run this pr|
00000b60 6f 67 72 61 6d 22 0d 01 18 b0 4f 76 6c 24 28 30 |ogram"....Ovl$(0|
00000b70 29 3d 22 22 3a f2 73 50 4f 28 31 29 3a 53 25 21 |)="":.sPO(1):S%!|
00000b80 35 36 30 3d de 28 49 6e 63 6c 75 64 65 24 28 29 |560=.(Include$()|
00000b90 2c 31 29 3a 41 25 3d 53 25 21 35 36 30 3c 3c 33 |,1):A%=S%!560<<3|
00000ba0 3a de 53 25 21 36 30 28 41 25 3c 3c 32 29 2b 33 |:.S%!60(A%<<2)+3|
00000bb0 3a de 53 25 21 38 34 28 41 25 3c 3c 33 29 2b 37 |:.S%!84(A%<<3)+7|
00000bc0 3a f2 73 42 28 53 25 21 38 34 2c 28 41 25 3c 3c |:.sB(S%!84,(A%<<|
00000bd0 33 29 2b 38 2c 31 33 29 3a e3 41 25 3d 31 b8 53 |3)+8,13):.A%=1.S|
00000be0 25 21 35 36 30 3a 43 24 3d 49 6e 63 6c 75 64 65 |%!560:C$=Include|
00000bf0 24 28 41 25 29 3a 42 24 3d 22 22 3a 53 25 21 31 |$(A%):B$="":S%!1|
00000c00 34 30 3d 30 3a 53 25 21 31 34 34 3d 30 3a e7 43 |40=0:S%!144=0:.C|
00000c10 24 3c 3e 22 22 8c 0d 01 22 26 42 25 3d a7 43 24 |$<>""..."&B%=.C$|
00000c20 2c 22 5f 22 29 3a e7 42 25 3e 30 8c 7a 24 3d c1 |,"_"):.B%>0.z$=.|
00000c30 43 24 2c 42 25 29 8b 7a 24 3d 22 22 0d 01 2c 39 |C$,B%).z$=""..,9|
00000c40 24 28 53 25 21 38 34 2b 28 41 25 3c 3c 33 29 29 |$(S%!84+(A%<<3))|
00000c50 3d 7a 24 3a c8 99 38 2c 31 37 2c 22 3c 4f 62 65 |=z$:..8,17,"<Obe|
00000c60 79 24 44 69 72 3e 2e 22 2b 43 24 b8 42 25 3a e7 |y$Dir>."+C$.B%:.|
00000c70 42 25 3d 32 8c 0d 01 36 17 42 24 3d 22 3c 4f 62 |B%=2...6.B$="<Ob|
00000c80 65 79 24 44 69 72 3e 2e 22 2b 43 24 0d 01 40 3a |ey$Dir>."+C$..@:|
00000c90 cc c8 99 38 2c 31 37 2c 22 3c 41 6e 61 6c 79 73 |...8,17,"<Analys|
00000ca0 65 24 44 69 72 3e 2e 41 72 63 68 53 79 73 2e 4f |e$Dir>.ArchSys.O|
00000cb0 76 65 72 52 69 64 65 2e 22 2b 43 24 b8 42 25 3a |verRide."+C$.B%:|
00000cc0 e7 42 25 3d 32 8c 0d 01 4a 2b 42 24 3d 22 3c 41 |.B%=2...J+B$="<A|
00000cd0 6e 61 6c 79 73 65 24 44 69 72 3e 2e 41 72 63 68 |nalyse$Dir>.Arch|
00000ce0 53 79 73 2e 4f 76 65 72 52 69 64 65 2e 22 2b 43 |Sys.OverRide."+C|
00000cf0 24 0d 01 54 23 cc 42 24 3d 22 3c 41 6e 61 6c 79 |$..T#.B$="<Analy|
00000d00 73 65 24 44 69 72 3e 2e 41 72 63 68 53 79 73 2e |se$Dir>.ArchSys.|
00000d10 22 2b 43 24 0d 01 5e 05 cd 0d 01 68 05 cd 0d 01 |"+C$..^....h....|
00000d20 72 0e cd 3a e7 42 24 3c 3e 22 22 8c 0d 01 7c 3b |r..:.B$<>""...|;|
00000d30 42 24 3d a4 64 47 53 54 28 42 24 29 3a e7 a4 74 |B$=.dGST(B$):..t|
00000d40 6f 4c 43 28 a4 67 4c 6e 28 42 24 29 29 3c 3e 22 |oLC(.gLn(B$))<>"|
00000d50 6b 65 72 6e 65 6c 22 8c c8 9b 42 24 2b 22 2e 4c |kernel"...B$+".L|
00000d60 69 62 72 61 72 79 22 0d 01 86 43 5a 25 3d a0 28 |ibrary"...CZ%=.(|
00000d70 22 46 4e 69 22 2b 7a 24 2b 22 28 42 24 2c 41 25 |"FNi"+z$+"(B$,A%|
00000d80 29 22 29 3a e7 53 25 21 31 34 30 8c ff 22 49 63 |)"):.S%!140.."Ic|
00000d90 6f 6e 53 70 72 69 74 65 73 20 22 2b 42 24 2b 22 |onSprites "+B$+"|
00000da0 2e 21 53 70 72 69 74 65 73 22 0d 01 90 a7 cd 3a |.!Sprites".....:|
00000db0 ed 3a 7a 24 3d 22 5f 22 3a 24 28 53 25 21 38 34 |.:z$="_":$(S%!84|
00000dc0 29 3d 7a 24 3a 5a 25 3d a4 69 5f 28 41 70 70 6c |)=z$:Z%=.i_(Appl|
00000dd0 6e 24 2c 30 29 3a 53 25 21 31 34 30 3d 2d 31 3a |n$,0):S%!140=-1:|
00000de0 53 25 21 31 34 34 3d 2d 31 3a 43 24 3d 22 49 63 |S%!144=-1:C$="Ic|
00000df0 6f 6e 42 61 72 22 3a 24 28 53 25 2b 39 36 29 3d |onBar":$(S%+96)=|
00000e00 43 24 3a 53 25 21 37 32 3d a4 66 4d 28 43 24 29 |C$:S%!72=.fM(C$)|
00000e10 3a 41 25 3d a4 61 52 28 53 25 21 37 32 29 3a 42 |:A%=.aR(S%!72):B|
00000e20 25 3d 41 25 2b 34 3a 43 25 3d 30 3a 44 25 3d 30 |%=A%+4:C%=0:D%=0|
00000e30 3a f5 42 25 2b 3d 32 34 3a 45 25 3d 21 42 25 3a |:.B%+=24:E%=!B%:|
00000e40 43 25 2b 3d 31 3a e7 45 25 80 32 8c 44 25 2b 3d |C%+=1:.E%.2.D%+=|
00000e50 31 0d 01 9a 62 fd 28 45 25 80 31 32 38 29 3e 30 |1...b.(E%.128)>0|
00000e60 3a 53 25 21 31 30 38 3d 43 25 2a 28 41 25 21 32 |:S%!108=C%*(A%!2|
00000e70 30 2b 41 25 21 32 34 29 2b 41 25 21 32 34 2b 32 |0+A%!24)+A%!24+2|
00000e80 34 2a 44 25 3a 42 24 3d a4 70 53 28 41 24 2c 22 |4*D%:B$=.pS(A$,"|
00000e90 2c 22 29 3a e7 42 24 3c 3e 22 22 8c 42 24 3d c0 |,"):.B$<>"".B$=.|
00000ea0 a4 74 6f 55 43 28 42 24 29 2c 31 29 8b 42 24 3d |.toUC(B$),1).B$=|
00000eb0 22 52 22 0d 01 a4 19 e7 42 24 3d 22 4c 22 8c 21 |"R".....B$="L".!|
00000ec0 4f 25 3d 2d 32 8b 21 4f 25 3d 2d 31 0d 01 ae 47 |O%=-2.!O%=-1...G|
00000ed0 53 25 21 33 34 30 3d 21 4f 25 3a 4f 25 21 34 3d |S%!340=!O%:O%!4=|
00000ee0 30 3a 42 24 3d a4 70 53 28 41 24 2c 22 2c 22 29 |0:B$=.pS(A$,",")|
00000ef0 3a 42 24 3d a4 74 6f 4c 43 28 42 24 29 3a e7 42 |:B$=.toLC(B$):.B|
00000f00 24 3d 22 22 8c 42 24 3d a4 74 6f 4c 43 28 24 73 |$="".B$=.toLC($s|
00000f10 6e 25 29 0d 01 b8 0f e7 53 68 6f 77 4e 61 6d 65 |n%).....ShowName|
00000f20 25 8c 0d 01 c2 72 4f 25 21 38 3d 2d 31 36 3a 4f |%....rO%!8=-16:O|
00000f30 25 21 31 32 3d 31 36 30 3a 4f 25 21 31 36 3d 38 |%!12=160:O%!16=8|
00000f40 38 3a 4f 25 21 32 30 3d 26 31 37 30 30 33 31 30 |8:O%!20=&1700310|
00000f50 42 3a 42 24 3d 22 53 22 2b 42 24 3a 43 24 3d a4 |B:B$="S"+B$:C$=.|
00000f60 70 53 28 41 24 2c 22 2c 22 29 3a e7 43 24 3c 3e |pS(A$,","):.C$<>|
00000f70 22 22 8c 42 24 2b 3d 22 2c 22 2b a4 74 6f 4c 43 |"".B$+=","+.toLC|
00000f80 28 43 24 29 3a 4f 25 21 32 30 3d 26 31 37 30 31 |(C$):O%!20=&1701|
00000f90 42 31 30 42 0d 01 cc 53 de 53 25 21 33 34 34 20 |B10B...S.S%!344 |
00000fa0 31 31 3a 4f 25 21 32 34 3d 53 25 21 33 34 34 3a |11:O%!24=S%!344:|
00000fb0 24 28 53 25 21 33 34 34 29 3d c1 24 73 6e 25 2c |$(S%!344)=.$sn%,|
00000fc0 32 29 3a 41 25 3d a9 42 24 3a de 4f 25 21 32 38 |2):A%=.B$:.O%!28|
00000fd0 41 25 3a 24 28 4f 25 21 32 38 29 3d 42 24 3a 4f |A%:$(O%!28)=B$:O|
00000fe0 25 21 33 32 3d 31 32 0d 01 d6 61 cc 4f 25 21 38 |%!32=12...a.O%!8|
00000ff0 3d 30 3a c8 99 26 34 30 30 45 39 2c 32 39 36 2c |=0:..&400E9,296,|
00001000 2c 42 24 b8 2c 2c 2c 41 25 2c 42 25 3a 43 25 3d |,B$.,,,A%,B%:C%=|
00001010 a4 72 4d 56 28 42 25 2c 34 29 3a 4f 25 21 31 32 |.rMV(B%,4):O%!12|
00001020 3d 41 25 3c 3c 43 25 3a 4f 25 21 31 36 3d 36 38 |=A%<<C%:O%!16=68|
00001030 3a 43 24 3d a4 70 53 28 41 24 2c 22 2c 22 29 3a |:C$=.pS(A$,","):|
00001040 e7 43 24 3c 3e 22 22 8c 0d 01 e0 64 42 24 3d 22 |.C$<>""....dB$="|
00001050 53 22 2b 42 24 2b 22 2c 22 2b a4 74 6f 4c 43 28 |S"+B$+","+.toLC(|
00001060 43 24 29 3a 4f 25 21 32 30 3d 26 31 37 30 31 42 |C$):O%!20=&1701B|
00001070 31 31 42 3a de 4f 25 21 32 34 20 33 3a 24 28 4f |11B:.O%!24 3:$(O|
00001080 25 21 32 34 29 3d 22 22 3a 41 25 3d a9 42 24 3a |%!24)="":A%=.B$:|
00001090 de 4f 25 21 32 38 41 25 3a 24 28 4f 25 21 32 38 |.O%!28A%:$(O%!28|
000010a0 29 3d 42 24 3a 4f 25 21 33 32 3d 34 0d 01 ea 20 |)=B$:O%!32=4... |
000010b0 cc 4f 25 21 32 30 3d 26 31 37 30 30 33 30 30 32 |.O%!20=&17003002|
000010c0 3a 24 28 4f 25 2b 32 34 29 3d 42 24 0d 01 f4 05 |:$(O%+24)=B$....|
000010d0 cd 0d 01 fe 56 cd 3a c8 99 26 34 30 30 43 32 2c |....V.:..&400C2,|
000010e0 2c 4f 25 b8 21 67 25 3a c8 99 26 34 30 30 44 30 |,O%.!g%:..&400D0|
000010f0 2c 2c 2d 31 3a e7 53 61 76 65 43 68 6f 69 63 65 |,,-1:.SaveChoice|
00001100 73 25 8c f2 74 4d 49 28 22 43 68 6f 69 63 65 73 |s%..tMI("Choices|
00001110 22 2c 30 29 8b f2 75 74 4d 49 28 22 43 68 6f 69 |",0)..utMI("Choi|
00001120 63 65 73 22 2c 30 29 0d 02 08 33 e7 53 68 6f 77 |ces",0)...3.Show|
00001130 4e 61 6d 65 25 8c f2 74 4d 49 28 22 43 68 6f 69 |Name%..tMI("Choi|
00001140 63 65 73 22 2c 31 29 8b f2 75 74 4d 49 28 22 43 |ces",1)..utMI("C|
00001150 68 6f 69 63 65 73 22 2c 31 29 0d 02 12 2f e7 48 |hoices",1).../.H|
00001160 65 6c 70 25 8c f2 74 4d 49 28 22 43 68 6f 69 63 |elp%..tMI("Choic|
00001170 65 73 22 2c 32 29 8b f2 75 74 4d 49 28 22 43 68 |es",2)..utMI("Ch|
00001180 6f 69 63 65 73 22 2c 32 29 0d 02 1c 05 e1 0d 02 |oices",2).......|
00001190 26 2d dc 31 2c 32 35 2c 30 2c 32 34 30 2c 32 34 |&-.1,25,0,240,24|
000011a0 30 2c 32 2c 32 35 2c 30 2c 30 2c 31 34 34 2c 33 |0,2,25,0,0,144,3|
000011b0 2c 32 35 2c 32 34 30 2c 30 2c 30 0d 02 30 ab dc |,25,240,0,0..0..|
000011c0 22 22 2c 41 6c 65 72 74 2c 42 61 73 69 63 2c 45 |"",Alert,Basic,E|
000011d0 64 69 74 2c 50 61 69 6e 74 2c 44 72 61 77 2c 54 |dit,Paint,Draw,T|
000011e0 65 78 74 75 72 65 2c 44 69 73 70 6c 61 79 2c 46 |exture,Display,F|
000011f0 6f 72 6d 2c 44 69 61 6c 6f 67 2c 4d 65 6e 75 2c |orm,Dialog,Menu,|
00001200 53 63 72 6f 6c 6c 2c 53 70 72 69 74 65 2c 41 6e |Scroll,Sprite,An|
00001210 69 6d 61 74 65 2c 44 61 74 61 50 61 64 2c 4d 75 |imate,DataPad,Mu|
00001220 6c 74 69 50 61 64 2c 54 6f 6f 6c 73 2c 56 69 65 |ltiPad,Tools,Vie|
00001230 77 2c 22 22 2c 54 68 72 65 65 44 65 65 2c 22 22 |w,"",ThreeDee,""|
00001240 2c 46 69 6c 6d 2c 22 22 2c 22 22 2c 22 22 2c 22 |,Film,"","","","|
00001250 22 2c 22 22 2c 22 22 2c 22 22 2c 22 22 2c 22 22 |","","","","",""|
00001260 2c 41 6d 62 69 67 0d 02 3a 04 0d 02 44 92 dd f2 |,Ambig..:...D...|
00001270 69 52 65 73 28 41 24 2c 42 31 25 29 3a ea 41 25 |iRes(A$,B1%):.A%|
00001280 2c 42 25 2c 42 32 25 2c 42 24 2c 43 25 2c 43 24 |,B%,B2%,B$,C%,C$|
00001290 2c 44 25 2c 44 24 2c 45 25 2c 46 25 2c 47 25 2c |,D%,D$,E%,F%,G%,|
000012a0 48 25 2c 5a 24 3a 45 25 3d 66 6e 25 3a 42 25 3d |H%,Z$:E%=fn%:B%=|
000012b0 30 3a 21 28 53 25 21 36 30 2b 28 42 31 25 3c 3c |0:!(S%!60+(B1%<<|
000012c0 32 29 29 3d 30 3a 42 32 25 3d 28 42 31 25 83 33 |2))=0:B2%=(B1%.3|
000012d0 32 29 3c 3c 32 37 3a f5 c8 99 31 32 2c 39 2c 41 |2)<<27:...12,9,A|
000012e0 24 2c 45 25 2c 31 2c 42 25 2c 31 32 b8 2c 2c 2c |$,E%,1,B%,12.,,,|
000012f0 2c 42 25 3a e7 42 25 3c 3e 2d 31 8c 0d 02 4e 4c |,B%:.B%<>-1...NL|
00001300 44 25 3d 45 25 3a c8 95 3f 44 25 3a 44 25 2b 3d |D%=E%:..?D%:D%+=|
00001310 31 3a ce 3a 3f 44 25 3d 31 33 3a 42 24 3d a4 74 |1:.:?D%=13:B$=.t|
00001320 6f 4c 43 28 24 45 25 29 3a 43 24 3d 41 24 2b 22 |oLC($E%):C$=A$+"|
00001330 2e 22 2b 42 24 3a 44 25 3d a4 67 46 6c 28 43 24 |."+B$:D%=.gFl(C$|
00001340 29 3a e7 44 25 3e 30 8c 0d 02 58 15 46 25 3d a4 |):.D%>0...X.F%=.|
00001350 67 46 74 28 43 24 29 3a c8 8e b9 20 ca 0d 02 62 |gFt(C$):... ...b|
00001360 12 c9 46 25 3d 26 46 46 39 3a c8 8e 42 24 ca 0d |..F%=&FF9:..B$..|
00001370 02 6c 74 c9 22 73 70 72 69 74 65 73 22 3a 44 25 |.lt."sprites":D%|
00001380 2b 3d 31 36 3a de 41 25 44 25 3a 21 41 25 3d 44 |+=16:.A%D%:!A%=D|
00001390 25 3a 41 25 21 34 3d 30 3a 41 25 21 38 3d 31 36 |%:A%!4=0:A%!8=16|
000013a0 3a 41 25 21 31 32 3d 31 36 3a c8 99 34 36 2c 32 |:A%!12=16:..46,2|
000013b0 36 35 2c 41 25 3a c8 99 38 2c 31 36 2c 43 24 2c |65,A%:..8,16,C$,|
000013c0 41 25 2b 34 3a 21 28 53 25 21 36 30 2b 28 42 31 |A%+4:!(S%!60+(B1|
000013d0 25 3c 3c 32 29 29 3d 41 25 3a 53 25 21 31 34 34 |%<<2))=A%:S%!144|
000013e0 3d 41 25 0d 02 76 18 c9 22 21 73 70 72 69 74 65 |=A%..v.."!sprite|
000013f0 73 22 3a 53 25 21 31 34 30 3d b9 0d 02 80 05 cb |s":S%!140=......|
00001400 0d 02 8a 30 c9 c0 42 24 2c 31 29 3d 22 21 22 2c |...0..B$,1)="!",|
00001410 46 25 3d 26 46 46 42 2c 46 25 3d 26 34 30 37 2c |F%=&FFB,F%=&407,|
00001420 46 25 3e 3d 26 46 46 46 2c 46 25 3d 26 41 46 46 |F%>=&FFF,F%=&AFF|
00001430 0d 02 94 ac c9 46 25 3d 26 34 30 32 3a e7 42 24 |.....F%=&402:.B$|
00001440 3d 22 6d 65 6e 75 73 22 8c de 41 25 44 25 3a 43 |="menus"..A%D%:C|
00001450 25 3d a4 6c 64 46 28 43 24 2c 41 25 29 3a 41 25 |%=.ldF(C$,A%):A%|
00001460 21 31 32 3d 41 25 21 31 32 84 42 32 25 3a 41 25 |!12=A%!12.B2%:A%|
00001470 21 32 38 3d 53 25 21 35 36 3a 53 25 21 35 36 3d |!28=S%!56:S%!56=|
00001480 41 25 3a 44 25 3d 43 25 2b 43 25 21 32 30 3a e3 |A%:D%=C%+C%!20:.|
00001490 46 25 3d 43 25 2b 35 32 b8 43 25 2b 32 38 2b 32 |F%=C%+52.C%+28+2|
000014a0 34 2a 43 25 21 31 36 88 32 34 3a 21 46 25 2b 3d |4*C%!16.24:!F%+=|
000014b0 44 25 3a 46 25 21 2d 38 3d 46 25 21 2d 38 84 42 |D%:F%!-8=F%!-8.B|
000014c0 32 25 3a 5a 25 3d a4 69 4d 28 21 46 25 29 3a ed |2%:Z%=.iM(!F%):.|
000014d0 3a 43 25 21 32 30 3d 43 25 2b 33 32 0d 02 9e 1b |:C%!20=C%+32....|
000014e0 c9 46 25 3d 26 34 30 34 3a e7 42 24 3d 22 77 69 |.F%=&404:.B$="wi|
000014f0 6e 64 6f 77 73 22 8c 0d 02 a8 b3 de 41 25 44 25 |ndows"......A%D%|
00001500 3a 43 25 3d a4 6c 64 46 28 43 24 2c 41 25 29 3a |:C%=.ldF(C$,A%):|
00001510 41 25 21 31 32 3d 41 25 21 31 32 84 42 32 25 3a |A%!12=A%!12.B2%:|
00001520 41 25 21 32 38 3d 53 25 21 36 34 3a 53 25 21 36 |A%!28=S%!64:S%!6|
00001530 34 3d 41 25 3a 44 25 3d 43 25 2b 43 25 21 32 30 |4=A%:D%=C%+C%!20|
00001540 3a e3 46 25 3d 43 25 2b 35 32 b8 43 25 2b 32 38 |:.F%=C%+52.C%+28|
00001550 2b 32 34 2a 43 25 21 31 36 88 32 34 3a 21 46 25 |+24*C%!16.24:!F%|
00001560 2b 3d 44 25 3a 46 25 21 2d 38 3d 46 25 21 2d 38 |+=D%:F%!-8=F%!-8|
00001570 84 42 32 25 3a 24 77 6e 25 3d 24 28 46 25 2d 32 |.B2%:$wn%=$(F%-2|
00001580 30 29 3a 48 25 3d 46 25 21 2d 38 3e 3e 3e 31 36 |0):H%=F%!-8>>>16|
00001590 80 33 31 3a 5a 25 3d a4 69 57 28 21 46 25 2c 48 |.31:Z%=.iW(!F%,H|
000015a0 25 29 3a e7 48 25 3d 31 30 8c 0d 02 b2 70 47 25 |%):.H%=10....pG%|
000015b0 3d 21 28 21 46 25 2b 33 36 29 3a e7 47 25 3e 30 |=!(!F%+36):.G%>0|
000015c0 8c de 41 25 47 25 2d 31 3a f2 73 42 77 28 41 25 |..A%G%-1:.sBw(A%|
000015d0 2c 47 25 2c 30 29 3a 47 25 3d 57 25 3a 57 25 3d |,G%,0):G%=W%:W%=|
000015e0 41 25 2d 35 32 3a 52 25 3d 31 39 35 3a 5a 25 3d |A%-52:R%=195:Z%=|
000015f0 a0 28 22 46 4e 65 22 2b 7a 24 29 3a 21 28 21 46 |.("FNe"+z$):!(!F|
00001600 25 2b 31 32 29 3d 41 25 3a 57 25 3d 47 25 8b 21 |%+12)=A%:W%=G%.!|
00001610 28 21 46 25 2b 31 32 29 3d 30 0d 02 bc 6c 41 25 |(!F%+12)=0...lA%|
00001620 3d a4 61 52 28 21 46 25 29 3a f2 63 42 28 41 25 |=.aR(!F%):.cB(A%|
00001630 2c 51 25 2b 34 2c 38 38 2b 28 41 25 21 38 34 3c |,Q%+4,88+(A%!84<|
00001640 3c 35 29 29 3a 52 25 3d 31 39 33 3a 5a 25 3d a0 |<5)):R%=193:Z%=.|
00001650 28 22 46 4e 65 22 2b 7a 24 29 3a c8 99 26 34 30 |("FNe"+z$):..&40|
00001660 30 43 31 2c 2c 51 25 2b 34 b8 21 68 25 3a 24 28 |0C1,,Q%+4.!h%:$(|
00001670 21 46 25 2b 34 29 3d 22 22 3a 21 28 21 46 25 2b |!F%+4)="":!(!F%+|
00001680 38 29 3d 21 68 25 0d 02 c6 05 cd 0d 02 d0 1a ed |8)=!h%..........|
00001690 3a 43 25 21 32 30 3d 43 25 2b 33 32 3a 53 25 21 |:C%!20=C%+32:S%!|
000016a0 33 32 3d 43 25 0d 02 da 05 cd 0d 02 e4 a3 c9 46 |32=C%..........F|
000016b0 25 3d 26 34 30 38 3a e7 42 24 3d 22 70 6f 69 6e |%=&408:.B$="poin|
000016c0 74 65 72 73 22 8c de 41 25 44 25 3a 43 25 3d a4 |ters"..A%D%:C%=.|
000016d0 6c 64 46 28 43 24 2c 41 25 29 3a 41 25 21 31 32 |ldF(C$,A%):A%!12|
000016e0 3d 41 25 21 31 32 84 42 32 25 3a 41 25 21 32 38 |=A%!12.B2%:A%!28|
000016f0 3d 53 25 21 36 38 3a 53 25 21 36 38 3d 41 25 3a |=S%!68:S%!68=A%:|
00001700 44 25 3d 43 25 2b 43 25 21 32 30 3a e3 46 25 3d |D%=C%+C%!20:.F%=|
00001710 43 25 2b 35 32 b8 43 25 2b 32 38 2b 32 34 2a 43 |C%+52.C%+28+24*C|
00001720 25 21 31 36 88 32 34 3a 21 46 25 2b 3d 44 25 3a |%!16.24:!F%+=D%:|
00001730 46 25 21 2d 38 3d 46 25 21 2d 38 84 42 32 25 3a |F%!-8=F%!-8.B2%:|
00001740 ed 3a 43 25 21 32 30 3d 43 25 2b 33 32 0d 02 ee |.:C%!20=C%+32...|
00001750 9a c9 46 25 3d 26 34 32 32 3a c8 99 26 34 30 30 |..F%=&422:..&400|
00001760 38 31 2c 2c 22 50 6f 72 74 72 68 6f 75 73 65 2e |81,,"Portrhouse.|
00001770 53 74 61 6e 64 61 72 64 22 2c 31 36 30 2c 31 36 |Standard",160,16|
00001780 30 b8 41 25 3a 53 25 21 33 31 36 3d 41 25 3a 41 |0.A%:S%!316=A%:A|
00001790 25 3d a4 67 48 28 44 25 29 3a 43 25 3d a4 6c 64 |%=.gH(D%):C%=.ld|
000017a0 46 28 43 24 2c 41 25 29 3a 44 25 3d 43 25 2b 43 |F(C$,A%):D%=C%+C|
000017b0 25 21 32 30 3a e3 46 25 3d 43 25 2b 33 32 b8 43 |%!20:.F%=C%+32.C|
000017c0 25 2b 38 2b 32 34 2a 43 25 21 31 36 88 32 34 3a |%+8+24*C%!16.24:|
000017d0 48 25 3d bb 28 c1 24 46 25 2c 35 29 29 3a 48 25 |H%=.(.$F%,5)):H%|
000017e0 3d 48 25 80 32 35 35 0d 02 f8 75 43 24 3d 24 28 |=H%.255...uC$=$(|
000017f0 46 25 21 32 30 2b 44 25 29 3a c8 99 26 36 30 30 |F%!20+D%):..&600|
00001800 38 31 2c 2c a4 70 53 28 43 24 2c 22 2e 22 29 2b |81,,.pS(C$,".")+|
00001810 22 2e 22 2b a4 70 53 28 43 24 2c 22 2e 22 29 2c |"."+.pS(C$,"."),|
00001820 bb 28 a4 70 53 28 43 24 2c 22 2e 22 29 29 3c 3c |.(.pS(C$,"."))<<|
00001830 34 2c bb 28 a4 70 53 28 43 24 2c 22 2e 22 29 29 |4,.(.pS(C$,"."))|
00001840 3c 3c 34 b8 41 25 3a e7 41 25 3e 30 8c 3f 28 53 |<<4.A%:.A%>0.?(S|
00001850 25 21 31 31 32 2b 48 25 29 3d 41 25 0d 03 02 16 |%!112+H%)=A%....|
00001860 ed 3a f2 66 48 28 43 25 29 3a 53 25 21 33 37 32 |.:.fH(C%):S%!372|
00001870 3d b9 0d 03 0c 1c c9 46 25 3d 26 34 31 36 3a 41 |=......F%=&416:A|
00001880 25 3d 8e 28 43 24 29 3a e7 41 25 3e 30 8c 0d 03 |%=.(C$):.A%>0...|
00001890 20 15 44 25 3d bb 28 be 23 41 25 29 3a e7 44 25 | .D%=.(.#A%):.D%|
000018a0 3e 30 8c 0d 03 2a 09 c8 8e 7a 24 ca 0d 03 34 31 |>0...*...z$...41|
000018b0 c9 22 5f 22 3a de 4d 73 67 5f 24 28 44 25 29 3a |."_":.Msg_$(D%):|
000018c0 5a 25 3d a4 69 4d 73 67 28 4d 73 67 5f 24 28 29 |Z%=.iMsg(Msg_$()|
000018d0 2c 41 25 29 3a 53 25 21 34 39 36 3d b9 0d 03 48 |,A%):S%!496=...H|
000018e0 05 cb 0d 03 52 0a cd 3a d9 23 41 25 0d 03 5c 05 |....R..:.#A%..\.|
000018f0 cd 0d 03 66 86 7f 3a de 41 25 44 25 3a 43 25 3d |...f..:.A%D%:C%=|
00001900 a4 6c 64 46 28 43 24 2c 41 25 29 3a 41 25 21 31 |.ldF(C$,A%):A%!1|
00001910 32 3d 41 25 21 31 32 84 42 32 25 3a 41 25 21 32 |2=A%!12.B2%:A%!2|
00001920 38 3d 53 25 21 35 32 3a 53 25 21 35 32 3d 41 25 |8=S%!52:S%!52=A%|
00001930 3a 44 25 3d 43 25 2b 43 25 21 32 30 3a e3 46 25 |:D%=C%+C%!20:.F%|
00001940 3d 43 25 2b 35 32 b8 43 25 2b 32 38 2b 32 34 2a |=C%+52.C%+28+24*|
00001950 43 25 21 31 36 88 32 34 3a 21 46 25 2b 3d 44 25 |C%!16.24:!F%+=D%|
00001960 3a 46 25 21 2d 38 3d 46 25 21 2d 38 84 42 32 25 |:F%!-8=F%!-8.B2%|
00001970 3a c8 8e 24 43 25 ca 0d 03 70 18 c9 22 4b 65 79 |:..$C%...p.."Key|
00001980 22 3a 5a 25 3d a4 69 4b 65 79 28 21 46 25 29 0d |":Z%=.iKey(!F%).|
00001990 03 7a 13 cb 3a ed 3a 43 25 21 32 30 3d 43 25 2b |.z..:.:C%!20=C%+|
000019a0 33 32 0d 03 84 05 cb 0d 03 8e 05 cd 0d 03 98 0c |32..............|
000019b0 cd 3a fd 42 25 3d 2d 31 0d 03 a2 05 e1 0d 03 ac |.:.B%=-1........|
000019c0 1e dd a4 69 28 41 24 2c 42 25 29 3a f2 69 52 65 |...i(A$,B%):.iRe|
000019d0 73 28 41 24 2c 42 25 29 3a 3d b9 0d 03 b6 04 0d |s(A$,B%):=......|
000019e0 03 c0 37 dd a4 69 4b 65 79 28 41 25 29 3a ea 42 |..7..iKey(A%):.B|
000019f0 25 2c 43 25 3a e3 42 25 3d 41 25 b8 41 25 2b 26 |%,C%:.B%=A%.A%+&|
00001a00 33 46 46 88 34 3a e7 21 42 25 3e 35 31 32 8c 21 |3FF.4:.!B%>512.!|
00001a10 42 25 2b 3d 41 25 0d 03 ca 2c ed 3a e3 42 25 3d |B%+=A%...,.:.B%=|
00001a20 41 25 2b 26 36 30 30 b8 41 25 2b 26 37 46 46 88 |A%+&600.A%+&7FF.|
00001a30 34 3a e7 21 42 25 3e 35 31 32 8c 21 42 25 2b 3d |4:.!B%>512.!B%+=|
00001a40 41 25 0d 03 d4 0e ed 3a 4b 25 3d 41 25 3a 3d a3 |A%.....:K%=A%:=.|
00001a50 0d 03 de 2d dd a4 69 4d 28 41 25 29 3a ea 42 25 |...-..iM(A%):.B%|
00001a60 2c 43 25 2c 44 25 2c 45 25 2c 46 25 2c 47 24 3a |,C%,D%,E%,F%,G$:|
00001a70 43 25 3d 21 41 25 3a e7 43 25 3e 30 8c 0d 03 e8 |C%=!A%:.C%>0....|
00001a80 45 46 25 3d a4 61 52 28 41 25 29 3a 41 25 2d 3d |EF%=.aR(A%):A%-=|
00001a90 31 32 3a e3 42 25 3d 46 25 2b 32 38 b8 46 25 2b |12:.B%=F%+28.F%+|
00001aa0 34 2b 32 34 2a 43 25 88 32 34 3a 41 25 2b 3d 31 |4+24*C%.24:A%+=1|
00001ab0 36 3a 45 25 3d 42 25 21 38 3a e7 45 25 80 32 35 |6:E%=B%!8:.E%.25|
00001ac0 36 8c 0d 03 f2 29 42 25 21 31 32 2b 3d 46 25 3a |6....)B%!12+=F%:|
00001ad0 42 25 21 31 36 2d 3d 46 25 2a 28 42 25 21 31 36 |B%!16-=F%*(B%!16|
00001ae0 3e 31 29 3a e7 21 42 25 80 34 8c 0d 03 fc 1d 47 |>1):.!B%.4.....G|
00001af0 24 3d 24 41 25 3a e7 a7 47 24 2c 22 5f 22 29 3d |$=$A%:..G$,"_")=|
00001b00 30 8c 47 24 2b 3d 7a 24 0d 04 06 12 f2 63 49 56 |0.G$+=z$.....cIV|
00001b10 28 47 24 2c 42 25 2b 31 32 29 0d 04 10 13 cd 3a |(G$,B%+12).....:|
00001b20 e7 45 25 80 32 8c 42 25 21 31 36 3d 31 0d 04 1a |.E%.2.B%!16=1...|
00001b30 39 cd 3a e7 45 25 80 36 34 8c 44 25 3d a4 66 46 |9.:.E%.64.D%=.fF|
00001b40 28 45 25 3e 3e 3e 32 34 29 3c 3c 32 34 3a 45 25 |(E%>>>24)<<24:E%|
00001b50 3d 45 25 80 26 46 46 46 46 46 46 3a 42 25 21 38 |=E%.&FFFFFF:B%!8|
00001b60 3d 45 25 84 44 25 0d 04 24 05 ed 0d 04 2e 08 cd |=E%.D%..$.......|
00001b70 3a 3d a3 0d 04 38 6e dd a4 69 57 28 41 25 2c 42 |:=...8n..iW(A%,B|
00001b80 31 25 29 3a ea 42 25 2c 43 25 2c 43 24 2c 44 25 |1%):.B%,C%,C$,D%|
00001b90 2c 45 25 2c 46 25 2c 47 25 2c 47 31 25 2c 48 25 |,E%,F%,G%,G1%,H%|
00001ba0 3a 46 25 3d a4 61 52 28 41 25 29 3a 46 25 21 36 |:F%=.aR(A%):F%!6|
00001bb0 34 3d 53 25 21 31 34 34 3a 45 25 3d 46 25 21 38 |4=S%!144:E%=F%!8|
00001bc0 34 3c 3c 35 3a 44 25 3d 46 25 2b 38 38 2b 45 25 |4<<5:D%=F%+88+E%|
00001bd0 3a 41 25 21 36 34 3d 30 3a e7 42 31 25 3d 31 30 |:A%!64=0:.B1%=10|
00001be0 8c 0d 04 42 18 e7 46 25 21 35 36 80 32 35 36 8c |...B..F%!56.256.|
00001bf0 46 25 21 37 32 2b 3d 44 25 0d 04 4c 0a e7 45 25 |F%!72+=D%..L..E%|
00001c00 3e 30 8c 0d 04 56 3d e3 43 25 3d 46 25 2b 31 30 |>0...V=.C%=F%+10|
00001c10 34 b8 46 25 2b 37 32 2b 45 25 88 33 32 3a e7 21 |4.F%+72+E%.32:.!|
00001c20 43 25 80 32 35 36 8c 43 25 21 34 2b 3d 44 25 3a |C%.256.C%!4+=D%:|
00001c30 e7 43 25 21 38 3e 30 8c 43 25 21 38 2b 3d 44 25 |.C%!8>0.C%!8+=D%|
00001c40 0d 04 60 3b e7 21 43 25 80 36 34 8c 48 25 3d a4 |..`;.!C%.64.H%=.|
00001c50 66 46 28 21 43 25 3e 3e 3e 32 34 29 3c 3c 32 34 |fF(!C%>>>24)<<24|
00001c60 3a 21 43 25 3d 21 43 25 80 26 46 46 46 46 46 46 |:!C%=!C%.&FFFFFF|
00001c70 3a 21 43 25 3d 21 43 25 84 48 25 0d 04 6a 05 ed |:!C%=!C%.H%..j..|
00001c80 0d 04 74 38 cd 3a 45 25 3d 21 41 25 3c 3c 34 3a |..t8.:E%=!A%<<4:|
00001c90 44 25 3d 46 25 2b 37 32 3a 46 25 3d 31 34 3c 3c |D%=F%+72:F%=14<<|
00001ca0 31 32 3a 47 25 3d 46 25 2b 28 31 3c 3c 32 33 29 |12:G%=F%+(1<<23)|
00001cb0 3a e7 45 25 3e 36 34 8c 0d 04 7e 24 e3 43 25 3d |:.E%>64...~$.C%=|
00001cc0 41 25 2b 38 30 b8 41 25 2b 45 25 88 31 36 3a e7 |A%+80.A%+E%.16:.|
00001cd0 28 21 43 25 80 31 37 29 3d 31 37 8c 0d 04 88 2a |(!C%.17)=17....*|
00001ce0 48 25 3d 44 25 2b 28 28 21 43 25 80 26 46 46 30 |H%=D%+((!C%.&FF0|
00001cf0 30 29 3e 3e 3e 33 29 3a e7 28 21 48 25 80 47 25 |0)>>>3):.(!H%.G%|
00001d00 29 3e 3d 46 25 8c 0d 04 92 33 43 24 3d 24 28 43 |)>=F%....3C$=$(C|
00001d10 25 2d 31 32 29 3a e7 43 24 3c 3e 22 22 80 43 24 |%-12):.C$<>"".C$|
00001d20 3c 3e 22 6e 6f 4e 61 6d 65 22 80 43 24 3c 3e 22 |<>"noName".C$<>"|
00001d30 4e 6f 5f 4e 61 6d 65 22 8c 0d 04 9c 16 e7 a7 43 |No_Name".......C|
00001d40 24 2c 22 5f 22 29 3d 30 8c 43 24 2b 3d 7a 24 0d |$,"_")=0.C$+=z$.|
00001d50 04 a6 11 f2 63 49 56 28 43 24 2c 48 25 2b 34 29 |....cIV(C$,H%+4)|
00001d60 0d 04 b0 05 cd 0d 04 ba 05 cd 0d 04 c4 14 21 48 |..............!H|
00001d70 25 3d 21 48 25 80 ac 28 31 3c 3c 32 33 29 0d 04 |%=!H%..(1<<23)..|
00001d80 ce 07 cd 3a ed 0d 04 d8 05 cd 0d 04 e2 0b cc e7 |...:............|
00001d90 45 25 3e 30 8c 0d 04 ec 52 e3 43 25 3d 46 25 2b |E%>0....R.C%=F%+|
00001da0 31 30 34 b8 46 25 2b 37 32 2b 45 25 88 33 32 3a |104.F%+72+E%.32:|
00001db0 e7 21 43 25 80 36 34 8c 48 25 3d a4 66 46 28 21 |.!C%.64.H%=.fF(!|
00001dc0 43 25 3e 3e 3e 32 34 29 3c 3c 32 34 3a 21 43 25 |C%>>>24)<<24:!C%|
00001dd0 3d 21 43 25 80 26 46 46 46 46 46 46 3a 21 43 25 |=!C%.&FFFFFF:!C%|
00001de0 3d 21 43 25 84 48 25 0d 04 f6 05 ed 0d 05 00 38 |=!C%.H%........8|
00001df0 cd 3a 45 25 3d 21 41 25 3c 3c 34 3a 44 25 3d 46 |.:E%=!A%<<4:D%=F|
00001e00 25 2b 37 32 3a 46 25 3d 31 34 3c 3c 31 32 3a 47 |%+72:F%=14<<12:G|
00001e10 25 3d 46 25 2b 28 31 3c 3c 32 33 29 3a e7 45 25 |%=F%+(1<<23):.E%|
00001e20 3e 36 34 8c 0d 05 0a 54 42 25 3d 30 3a e3 43 25 |>64....TB%=0:.C%|
00001e30 3d 41 25 2b 38 30 b8 41 25 2b 45 25 88 31 36 3a |=A%+80.A%+E%.16:|
00001e40 e7 28 21 43 25 80 31 37 29 3d 31 37 8c 48 25 3d |.(!C%.17)=17.H%=|
00001e50 44 25 2b 28 28 21 43 25 80 26 46 46 30 30 29 3e |D%+((!C%.&FF00)>|
00001e60 3e 3e 33 29 3a e7 28 21 48 25 80 47 25 29 3e 3d |>>3):.(!H%.G%)>=|
00001e70 46 25 8c 42 25 2b 3d 34 0d 05 14 0a ed 3a e7 42 |F%.B%+=4.....:.B|
00001e80 25 8c 0d 05 1e 0c e7 42 31 25 3d 31 34 8c 0d 05 |%......B1%=14...|
00001e90 28 66 de 43 25 20 42 25 2a 37 2b 33 3a f2 73 42 |(f.C% B%*7+3:.sB|
00001ea0 28 43 25 2c 42 25 2a 36 2b 34 2c 2d 31 29 3a 41 |(C%,B%*6+4,-1):A|
00001eb0 25 21 36 34 3d 43 25 3a 21 43 25 3d 42 25 3a 42 |%!64=C%:!C%=B%:B|
00001ec0 25 2b 3d 43 25 2b 34 3a 47 31 25 3d 30 3a e3 45 |%+=C%+4:G1%=0:.E|
00001ed0 25 3d 41 25 2b 38 30 b8 41 25 2b 28 21 41 25 3c |%=A%+80.A%+(!A%<|
00001ee0 3c 34 29 88 31 36 3a e7 28 21 45 25 80 31 37 29 |<4).16:.(!E%.17)|
00001ef0 3d 31 37 8c 0d 05 32 2a 48 25 3d 44 25 2b 28 28 |=17...2*H%=D%+((|
00001f00 21 45 25 80 26 46 46 30 30 29 3e 3e 3e 33 29 3a |!E%.&FF00)>>>3):|
00001f10 e7 28 21 48 25 80 47 25 29 3e 3d 46 25 8c 0d 05 |.(!H%.G%)>=F%...|
00001f20 3c 33 43 24 3d 24 28 45 25 2d 31 32 29 3a e7 43 |<3C$=$(E%-12):.C|
00001f30 24 3c 3e 22 22 80 43 24 3c 3e 22 6e 6f 4e 61 6d |$<>"".C$<>"noNam|
00001f40 65 22 80 43 24 3c 3e 22 4e 6f 5f 4e 61 6d 65 22 |e".C$<>"No_Name"|
00001f50 8c 0d 05 46 16 e7 a7 43 24 2c 22 5f 22 29 3d 30 |...F...C$,"_")=0|
00001f60 8c 43 24 2b 3d 7a 24 0d 05 50 8e f2 63 49 56 28 |.C$+=z$..P..cIV(|
00001f70 43 24 2c 42 25 29 3a 21 42 25 3d 48 25 21 34 3a |C$,B%):!B%=H%!4:|
00001f80 21 28 42 25 2b 21 43 25 29 3d 45 25 2d 31 32 3a |!(B%+!C%)=E%-12:|
00001f90 21 28 42 25 2b 28 21 43 25 3c 3c 31 29 29 3d 48 |!(B%+(!C%<<1))=H|
00001fa0 25 21 31 32 3a 21 28 42 25 2b 35 2a 21 43 25 29 |%!12:!(B%+5*!C%)|
00001fb0 3d 21 45 25 3e 3e 3e 38 80 26 46 46 3a e7 28 21 |=!E%>>>8.&FF:.(!|
00001fc0 48 25 80 26 46 31 30 31 29 3e 3d 26 45 31 30 31 |H%.&F101)>=&E101|
00001fd0 8c 21 28 42 25 2b 34 2a 21 43 25 29 3d 47 31 25 |.!(B%+4*!C%)=G1%|
00001fe0 3a 47 31 25 2b 3d a4 61 6c 69 67 6e 28 48 25 21 |:G1%+=.align(H%!|
00001ff0 31 32 2b 31 29 0d 05 5a 09 42 25 2b 3d 34 0d 05 |12+1)..Z.B%+=4..|
00002000 64 05 cd 0d 05 6e 16 cd 3a 21 48 25 3d 21 48 25 |d....n..:!H%=!H%|
00002010 80 ac 28 31 3c 3c 32 33 29 0d 05 78 51 cd 3a ed |..(1<<23)..xQ.:.|
00002020 3a f2 63 42 28 43 25 2b 21 43 25 2b 34 2c 43 25 |:.cB(C%+!C%+4,C%|
00002030 2b 34 2c 21 43 25 29 3a 42 25 3d 43 25 2b 34 2a |+4,!C%):B%=C%+4*|
00002040 21 43 25 2b 34 3a e3 45 25 3d 41 25 2b 38 30 b8 |!C%+4:.E%=A%+80.|
00002050 41 25 2b 28 21 41 25 3c 3c 34 29 88 31 36 3a e7 |A%+(!A%<<4).16:.|
00002060 28 21 45 25 80 34 29 3d 34 8c 0d 05 82 50 e3 42 |(!E%.4)=4....P.B|
00002070 25 3d 43 25 2b 36 2a 21 43 25 2b 34 b8 43 25 2b |%=C%+6*!C%+4.C%+|
00002080 37 2a 21 43 25 88 34 3a e7 21 42 25 3d 21 45 25 |7*!C%.4:.!B%=!E%|
00002090 3e 3e 3e 38 80 26 46 46 20 8c 21 28 42 25 2d 28 |>>>8.&FF .!(B%-(|
000020a0 21 43 25 3c 3c 31 29 29 3d 45 25 2d 31 32 3a 42 |!C%<<1))=E%-12:B|
000020b0 25 3d 43 25 2b 37 2a 21 43 25 0d 05 8c 05 ed 0d |%=C%+7*!C%......|
000020c0 05 96 32 cd 3a ed 3a e3 42 25 3d 43 25 2b 34 2a |..2.:.:.B%=C%+4*|
000020d0 21 43 25 2b 34 b8 43 25 2b 35 2a 21 43 25 88 34 |!C%+4.C%+5*!C%.4|
000020e0 3a e7 21 42 25 3c 26 38 30 30 30 8c 21 42 25 3d |:.!B%<&8000.!B%=|
000020f0 30 0d 05 a0 05 ed 0d 05 aa 67 cc de 43 25 20 28 |0........g..C% (|
00002100 42 25 3c 3c 31 29 2b 33 3a f2 73 42 28 43 25 2c |B%<<1)+3:.sB(C%,|
00002110 28 42 25 3c 3c 31 29 2b 34 2c 2d 31 29 3a 41 25 |(B%<<1)+4,-1):A%|
00002120 21 36 34 3d 43 25 3a 21 43 25 3d 42 25 3a 42 25 |!64=C%:!C%=B%:B%|
00002130 2b 3d 43 25 2b 34 3a e3 45 25 3d 41 25 2b 38 30 |+=C%+4:.E%=A%+80|
00002140 b8 41 25 2b 28 21 41 25 3c 3c 34 29 88 31 36 3a |.A%+(!A%<<4).16:|
00002150 e7 28 21 45 25 80 31 37 29 3d 31 37 8c 0d 05 b4 |.(!E%.17)=17....|
00002160 2a 48 25 3d 44 25 2b 28 28 21 45 25 80 26 46 46 |*H%=D%+((!E%.&FF|
00002170 30 30 29 3e 3e 3e 33 29 3a e7 28 21 48 25 80 47 |00)>>>3):.(!H%.G|
00002180 25 29 3e 3d 46 25 8c 0d 05 be 33 43 24 3d 24 28 |%)>=F%....3C$=$(|
00002190 45 25 2d 31 32 29 3a e7 43 24 3c 3e 22 22 80 43 |E%-12):.C$<>"".C|
000021a0 24 3c 3e 22 6e 6f 4e 61 6d 65 22 80 43 24 3c 3e |$<>"noName".C$<>|
000021b0 22 4e 6f 5f 4e 61 6d 65 22 8c 0d 05 c8 16 e7 a7 |"No_Name".......|
000021c0 43 24 2c 22 5f 22 29 3d 30 8c 43 24 2b 3d 7a 24 |C$,"_")=0.C$+=z$|
000021d0 0d 05 d2 1e f2 63 49 56 28 43 24 2c 42 25 29 3a |.....cIV(C$,B%):|
000021e0 21 42 25 3d 48 25 21 34 3a 42 25 2b 3d 34 0d 05 |!B%=H%!4:B%+=4..|
000021f0 dc 05 cd 0d 05 e6 05 cd 0d 05 f0 14 21 48 25 3d |............!H%=|
00002200 21 48 25 80 ac 28 31 3c 3c 32 33 29 0d 05 fa 1e |!H%..(1<<23)....|
00002210 cd 3a ed 3a f2 63 42 28 43 25 2b 21 43 25 2b 34 |.:.:.cB(C%+!C%+4|
00002220 2c 43 25 2b 34 2c 21 43 25 29 0d 06 04 05 cd 0d |,C%+4,!C%)......|
00002230 06 0e 05 cd 0d 06 18 05 cd 0d 06 22 08 cd 3a 3d |..........."..:=|
00002240 a3 0d 06 2c 92 dd f2 69 46 64 28 41 24 2c 48 25 |...,...iFd(A$,H%|
00002250 29 3a ea 41 25 2c 42 25 2c 43 25 2c 44 25 2c 45 |):.A%,B%,C%,D%,E|
00002260 25 2c 46 25 2c 46 24 2c 47 25 3a 41 25 3d 53 25 |%,F%,F$,G%:A%=S%|
00002270 21 33 32 3a 21 51 25 3d 30 3a 51 25 21 34 3d 30 |!32:!Q%=0:Q%!4=0|
00002280 3a 51 25 21 38 3d 30 3a 51 25 21 31 32 3d 48 25 |:Q%!8=0:Q%!12=H%|
00002290 3a 44 25 3d 51 25 2b 31 36 3a e3 42 25 3d 41 25 |:D%=Q%+16:.B%=A%|
000022a0 2b 35 32 b8 41 25 2b 32 38 2b 32 34 2a 41 25 21 |+52.A%+28+24*A%!|
000022b0 31 36 88 32 34 3a 43 25 3d 21 42 25 3a e7 21 43 |16.24:C%=!B%:.!C|
000022c0 25 3e 34 80 28 43 25 21 38 30 80 32 35 35 29 3d |%>4.(C%!80.255)=|
000022d0 33 32 8c 0d 06 36 65 21 44 25 3d 43 25 21 37 32 |32...6e!D%=C%!72|
000022e0 3e 3e 3e 38 80 26 33 46 46 46 3a 44 25 21 34 3d |>>>8.&3FFF:D%!4=|
000022f0 43 25 21 37 36 3a 44 25 21 38 3d 43 25 21 36 38 |C%!76:D%!8=C%!68|
00002300 80 26 46 46 46 46 46 46 3a 24 28 44 25 2b 31 36 |.&FFFFFF:$(D%+16|
00002310 29 3d 24 28 42 25 2d 32 30 29 3a 51 25 21 38 2b |)=$(B%-20):Q%!8+|
00002320 3d 31 3a 45 25 3d 43 25 21 36 38 3e 3e 3e 32 34 |=1:E%=C%!68>>>24|
00002330 80 37 3a c8 8e 45 25 ca 0d 06 40 27 c9 31 3a 44 |.7:..E%...@'.1:D|
00002340 25 21 31 32 3d 31 3a 51 25 21 34 3d 51 25 21 34 |%!12=1:Q%!4=Q%!4|
00002350 84 31 3a 44 25 21 38 3d 44 25 21 38 2b 35 36 0d |.1:D%!8=D%!8+56.|
00002360 06 4a a2 c9 32 3a 44 25 21 31 32 3d 32 3a 51 25 |.J..2:D%!12=2:Q%|
00002370 21 34 3d 51 25 21 34 84 32 3a 44 25 2b 3d 32 38 |!4=Q%!4.2:D%+=28|
00002380 3a 21 44 25 3d 43 25 21 38 30 3e 3e 3e 38 80 26 |:!D%=C%!80>>>8.&|
00002390 33 46 46 46 3a 44 25 21 34 3d 43 25 21 37 36 3a |3FFF:D%!4=C%!76:|
000023a0 44 25 21 34 3d 44 25 21 34 80 ac 32 35 35 3a 44 |D%!4=D%!4..255:D|
000023b0 25 21 34 3d 44 25 21 34 84 31 3a 44 25 21 34 3d |%!4=D%!4.1:D%!4=|
000023c0 44 25 21 34 84 28 31 3c 3c 31 31 29 3a 44 25 21 |D%!4.(1<<11):D%!|
000023d0 38 3d 43 25 21 36 38 80 26 46 46 46 46 46 46 3a |8=C%!68.&FFFFFF:|
000023e0 44 25 21 31 32 3d 32 3a 24 28 44 25 2b 31 36 29 |D%!12=2:$(D%+16)|
000023f0 3d 24 28 42 25 2d 32 30 29 3a 51 25 21 38 2b 3d |=$(B%-20):Q%!8+=|
00002400 31 0d 06 54 70 c9 33 3a 44 25 21 31 32 3d 34 3a |1..Tp.3:D%!12=4:|
00002410 51 25 21 34 3d 51 25 21 34 84 34 3a 46 25 3d a4 |Q%!4=Q%!4.4:F%=.|
00002420 61 52 28 43 25 29 2b 38 38 3a 47 25 3d 30 3a e3 |aR(C%)+88:G%=0:.|
00002430 48 25 3d 46 25 2b 31 36 b8 46 25 2b 28 46 25 21 |H%=F%+16.F%+(F%!|
00002440 2d 34 3c 3c 35 29 88 33 32 3a e7 28 21 48 25 80 |-4<<5).32:.(!H%.|
00002450 26 46 31 30 31 29 3e 3d 26 45 31 30 31 8c 47 25 |&F101)>=&E101.G%|
00002460 2b 3d a4 61 6c 69 67 6e 28 48 25 21 31 32 2b 31 |+=.align(H%!12+1|
00002470 29 0d 06 5e 70 ed 3a 44 25 21 38 3d 47 25 3a 44 |)..^p.:D%!8=G%:D|
00002480 25 2b 3d 32 38 3a 21 44 25 3d 43 25 21 38 30 3e |%+=28:!D%=C%!80>|
00002490 3e 3e 38 80 26 33 46 46 46 3a 44 25 21 34 3d 43 |>>8.&3FFF:D%!4=C|
000024a0 25 21 37 36 3a 44 25 21 34 3d 44 25 21 34 80 ac |%!76:D%!4=D%!4..|
000024b0 28 32 35 35 3c 3c 38 29 3a 44 25 21 38 3d 30 3a |(255<<8):D%!8=0:|
000024c0 44 25 21 31 32 3d 34 3a 24 28 44 25 2b 31 36 29 |D%!12=4:$(D%+16)|
000024d0 3d 24 28 42 25 2d 32 30 29 3a 51 25 21 38 2b 3d |=$(B%-20):Q%!8+=|
000024e0 31 0d 06 68 1a c9 34 3a 44 25 21 31 32 3d 38 3a |1..h..4:D%!12=8:|
000024f0 51 25 21 34 3d 51 25 21 34 84 38 0d 06 72 0c cb |Q%!4=Q%!4.8..r..|
00002500 3a 44 25 2b 3d 32 38 0d 06 7c df cd 3a ed 3a c8 |:D%+=28..|..:.:.|
00002510 95 41 24 3c 3e 22 22 3a 46 24 3d a4 70 53 28 41 |.A$<>"":F$=.pS(A|
00002520 24 2c 22 2c 22 29 3a 21 44 25 3d a4 76 61 6c 28 |$,","):!D%=.val(|
00002530 46 24 29 3a 46 24 3d a4 70 53 28 41 24 2c 22 2c |F$):F$=.pS(A$,",|
00002540 22 29 3a e7 46 24 3d 22 27 27 22 8c 44 25 21 34 |"):.F$="''".D%!4|
00002550 3d 44 25 21 2d 32 34 3a 44 25 21 38 3d 44 25 21 |=D%!-24:D%!8=D%!|
00002560 2d 32 30 3a 44 25 21 31 32 3d 44 25 21 2d 31 36 |-20:D%!12=D%!-16|
00002570 3a 24 28 44 25 2b 31 36 29 3d 24 28 44 25 2d 31 |:$(D%+16)=$(D%-1|
00002580 32 29 8b 44 25 21 34 3d a4 76 61 6c 28 46 24 29 |2).D%!4=.val(F$)|
00002590 3a 46 24 3d a4 70 53 28 41 24 2c 22 2c 22 29 3a |:F$=.pS(A$,","):|
000025a0 44 25 21 38 3d a4 76 61 6c 28 46 24 29 3a 46 24 |D%!8=.val(F$):F$|
000025b0 3d a4 70 53 28 41 24 2c 22 2c 22 29 3a 44 25 21 |=.pS(A$,","):D%!|
000025c0 31 32 3d a4 76 61 6c 28 46 24 29 3a 46 24 3d a4 |12=.val(F$):F$=.|
000025d0 70 53 28 41 24 2c 22 2c 22 29 3a 24 28 44 25 2b |pS(A$,","):$(D%+|
000025e0 31 36 29 3d 46 24 0d 06 86 57 51 25 21 38 2b 3d |16)=F$...WQ%!8+=|
000025f0 31 3a 44 25 2b 3d 32 38 3a ce 3a e7 51 25 21 38 |1:D%+=28:.:.Q%!8|
00002600 3e 30 8c de 42 25 51 25 21 38 2a 32 38 2b 31 35 |>0..B%Q%!8*28+15|
00002610 3a 21 42 25 3d 53 25 21 38 38 3a 53 25 21 38 38 |:!B%=S%!88:S%!88|
00002620 3d 42 25 3a f2 63 42 28 51 25 2b 34 2c 42 25 2b |=B%:.cB(Q%+4,B%+|
00002630 34 2c 51 25 21 38 2a 32 38 2b 31 36 29 0d 06 90 |4,Q%!8*28+16)...|
00002640 05 e1 0d 06 a4 39 dd a4 69 4d 73 67 28 41 24 28 |.....9..iMsg(A$(|
00002650 29 2c 42 25 29 3a ea 43 25 3a 43 25 3d 30 3a f5 |),B%):.C%:C%=0:.|
00002660 3a 41 24 28 43 25 29 3d be 23 42 25 3a 43 25 2b |:A$(C%)=.#B%:C%+|
00002670 3d 31 3a fd c5 23 42 25 3a 3d a3 0d ff |=1:..#B%:=...|
0000267d 
.