Home » Archimedes archive » Acorn User » AU 1994-11.adf » !RepWriter_RepWriter » !Reports/Reports/Init
!Reports/Reports/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 User » AU 1994-11.adf » !RepWriter_RepWriter |
| Filename: | !Reports/Reports/Init |
| Read OK: | ✔ |
| File size: | 2645 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
20DEFPROCinit:LOCALA%,A$,B%,B$,C%,C$,D%,D$,E%,Psprites%:DIMChoices$(3):ONERRORPRINTREPORT$+" at line "+STR$ERL:STOP
30LIBRARY"<ReportSys$Path>Kernel.Library":B$="<Obey$Dir>.Choices":IFFNgFl(B$)>0ANDFNgFt(B$)=&407THEN
40A%=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
50ELSELevel$="U":Pass$="Password":Debug%=TRUE:ShowName%=FALSE:Help%=TRUE:Last$="":SaveChoices%=FALSE:Choices$()="":E%=TRUE
60ENDIF:A$=Parameters$(1):c_%=FNd_
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: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=HP%: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,"<ReportSys$Path>OverRide."+C$TOB%:IFB%=2THEN
330B$="<ReportSys$Path>OverRide."+C$
340ELSEB$="<ReportSys$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 "+Þ:�
Yț"<ReportSys$Path>Kernel.Library":B$="<Obey$Dir>.Choices":�gFl(B$)>0��gFt(B$)=&407�
(�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%=�
2h�Level$="U":Pass$="Password":Debug%=�:ShowName%=�:Help%=�:Last$="":SaveChoices%=�:Choices$()="":E%=�
< �:A$=Parameters$(1):c_%=�d_
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: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=HP%:ș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$
@4�ș8,17,"<ReportSys$Path>OverRide."+C$�B%:�B%=2�
J%B$="<ReportSys$Path>OverRide."+C$
T �B$="<ReportSys$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 14 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 1e 59 c8 9b 22 3c 52 65 70 6f |..:....Y.."<Repo|
00000060 72 74 53 79 73 24 50 61 74 68 3e 4b 65 72 6e 65 |rtSys$Path>Kerne|
00000070 6c 2e 4c 69 62 72 61 72 79 22 3a 42 24 3d 22 3c |l.Library":B$="<|
00000080 4f 62 65 79 24 44 69 72 3e 2e 43 68 6f 69 63 65 |Obey$Dir>.Choice|
00000090 73 22 3a e7 a4 67 46 6c 28 42 24 29 3e 30 80 a4 |s":..gFl(B$)>0..|
000000a0 67 46 74 28 42 24 29 3d 26 34 30 37 8c 0d 00 28 |gFt(B$)=&407...(|
000000b0 9a 41 25 3d 8e 28 42 24 29 3a e8 23 41 25 2c 4c |.A%=.(B$):.#A%,L|
000000c0 65 76 65 6c 24 2c 50 61 73 73 24 2c 44 65 62 75 |evel$,Pass$,Debu|
000000d0 67 25 2c 53 68 6f 77 4e 61 6d 65 25 2c 48 65 6c |g%,ShowName%,Hel|
000000e0 70 25 2c 4c 61 73 74 24 2c 5a 24 2c 53 61 76 65 |p%,Last$,Z$,Save|
000000f0 43 68 6f 69 63 65 73 25 2c 5a 25 2c 43 68 6f 69 |Choices%,Z%,Choi|
00000100 63 65 73 24 28 30 29 2c 43 68 6f 69 63 65 73 24 |ces$(0),Choices$|
00000110 28 31 29 2c 43 68 6f 69 63 65 73 24 28 32 29 2c |(1),Choices$(2),|
00000120 43 68 6f 69 63 65 73 24 28 33 29 3a d9 23 41 25 |Choices$(3):.#A%|
00000130 3a 50 61 73 73 24 3d a4 63 64 53 28 50 61 73 73 |:Pass$=.cdS(Pass|
00000140 24 29 3a 45 25 3d a3 0d 00 32 68 cc 4c 65 76 65 |$):E%=...2h.Leve|
00000150 6c 24 3d 22 55 22 3a 50 61 73 73 24 3d 22 50 61 |l$="U":Pass$="Pa|
00000160 73 73 77 6f 72 64 22 3a 44 65 62 75 67 25 3d b9 |ssword":Debug%=.|
00000170 3a 53 68 6f 77 4e 61 6d 65 25 3d a3 3a 48 65 6c |:ShowName%=.:Hel|
00000180 70 25 3d b9 3a 4c 61 73 74 24 3d 22 22 3a 53 61 |p%=.:Last$="":Sa|
00000190 76 65 43 68 6f 69 63 65 73 25 3d a3 3a 43 68 6f |veChoices%=.:Cho|
000001a0 69 63 65 73 24 28 29 3d 22 22 3a 45 25 3d b9 0d |ices$()="":E%=..|
000001b0 00 3c 1f cd 3a 41 24 3d 50 61 72 61 6d 65 74 65 |.<..:A$=Paramete|
000001c0 72 73 24 28 31 29 3a 63 5f 25 3d a4 64 5f 0d 00 |rs$(1):c_%=.d_..|
000001d0 50 cd 43 6c 6f 73 65 57 25 3d 33 3a 50 74 72 4c |P.CloseW%=3:PtrL|
000001e0 65 61 76 65 25 3d 34 3a 50 74 72 45 6e 74 65 72 |eave%=4:PtrEnter|
000001f0 25 3d 35 3a 43 6c 69 63 6b 25 3d 36 3a 4b 65 79 |%=5:Click%=6:Key|
00000200 50 72 65 73 73 25 3d 38 3a 4c 6f 73 65 43 61 72 |Press%=8:LoseCar|
00000210 65 74 25 3d 31 31 3a 47 61 69 6e 43 61 72 65 74 |et%=11:GainCaret|
00000220 25 3d 31 32 3a 43 72 65 61 74 65 57 25 3d 31 39 |%=12:CreateW%=19|
00000230 33 3a 4b 65 79 31 33 25 3d 31 39 34 3a 57 73 70 |3:Key13%=194:Wsp|
00000240 61 63 65 25 3d 31 39 35 3a 43 6c 6f 73 65 64 57 |ace%=195:ClosedW|
00000250 25 3d 31 39 38 3a 50 6f 70 55 70 57 25 3d 32 35 |%=198:PopUpW%=25|
00000260 36 3a 44 6f 54 61 69 6c 25 3d 32 35 37 3a 53 74 |6:DoTail%=257:St|
00000270 61 74 69 63 57 25 3d 32 35 38 3a 43 68 61 6e 67 |aticW%=258:Chang|
00000280 65 4d 25 3d 32 35 39 3a 51 75 69 74 25 3d 32 36 |eM%=259:Quit%=26|
00000290 30 3a 52 61 6d 54 25 3d 32 36 31 0d 00 5a a6 49 |0:RamT%=261..Z.I|
000002a0 25 3d a3 3a de 4a 25 36 33 3a 4b 25 3d a3 3a 4d |%=.:.J%63:K%=.:M|
000002b0 25 3d a3 3a 4e 25 3d a3 3a 50 25 3d a3 3a 52 25 |%=.:N%=.:P%=.:R%|
000002c0 3d a3 3a 54 25 3d a3 3a 55 25 3d a3 3a 45 24 3d |=.:T%=.:U%=.:E$=|
000002d0 22 22 3a 46 24 3d 22 22 3a 47 24 3d 22 22 3a 48 |"":F$="":G$="":H|
000002e0 24 3d 22 22 3a 41 3d 30 3a 42 3d 30 3a 43 3d 30 |$="":A=0:B=0:C=0|
000002f0 3a 44 3d 30 3a 45 3d 30 3a 46 3d 30 3a 47 3d 30 |:D=0:E=0:F=0:G=0|
00000300 3a 48 3d 30 3a 64 24 3d 22 22 3a 66 24 3d 22 22 |:H=0:d$="":f$=""|
00000310 3a 7a 24 3d 22 22 3a 41 25 3d 36 36 36 33 3a 42 |:z$="":A%=6663:B|
00000320 25 3d bb 28 a4 70 53 28 41 24 2c 22 2c 22 29 29 |%=.(.pS(A$,","))|
00000330 3a e7 42 25 3c 31 32 30 30 8c 42 25 3d 31 32 30 |:.B%<1200.B%=120|
00000340 30 0d 00 64 cb 41 25 2b 3d 42 25 3a de 53 25 41 |0..d.A%+=B%:.S%A|
00000350 25 2c 53 25 21 31 36 34 20 36 34 3a 42 25 3d 53 |%,S%!164 64:B%=S|
00000360 25 21 31 36 34 3a 43 25 3d 26 38 30 44 30 32 3a |%!164:C%=&80D02:|
00000370 c8 99 43 25 2c 30 b8 2c 41 25 3a 42 25 21 30 3d |..C%,0.,A%:B%!0=|
00000380 41 25 3a c8 99 43 25 2c 31 b8 2c 41 25 3a 42 25 |A%:..C%,1.,A%:B%|
00000390 21 34 3d 41 25 3a c8 99 43 25 2c 32 b8 2c 41 25 |!4=A%:..C%,2.,A%|
000003a0 3a 42 25 21 38 3d 41 25 3a c8 99 43 25 2c 33 b8 |:B%!8=A%:..C%,3.|
000003b0 2c 41 25 3a 42 25 21 31 32 3d 41 25 3a c8 99 43 |,A%:B%!12=A%:..C|
000003c0 25 2c 34 b8 2c 41 25 3a 42 25 21 31 36 3d 41 25 |%,4.,A%:B%!16=A%|
000003d0 3a c8 99 43 25 2c 35 b8 2c 41 25 3a 42 25 21 32 |:..C%,5.,A%:B%!2|
000003e0 30 3d 41 25 3a c8 99 43 25 2c 38 b8 2c 41 25 3a |0=A%:..C%,8.,A%:|
000003f0 42 25 21 32 34 3d 41 25 3a c8 99 43 25 2c 39 b8 |B%!24=A%:..C%,9.|
00000400 2c 41 25 3a 42 25 21 32 38 3d 41 25 0d 00 6e 40 |,A%:B%!28=A%..n@|
00000410 c8 99 43 25 2c 31 31 b8 2c 41 25 3a 42 25 21 33 |..C%,11.,A%:B%!3|
00000420 36 3d 41 25 3a c8 99 43 25 2c 31 32 b8 2c 41 25 |6=A%:..C%,12.,A%|
00000430 3a 42 25 21 34 30 3d 41 25 3a c8 99 43 25 2c 31 |:B%!40=A%:..C%,1|
00000440 34 b8 2c 41 25 3a 21 53 25 3d 41 25 0d 00 78 e9 |4.,A%:!S%=A%..x.|
00000450 f2 73 42 77 28 53 25 2b 34 2c 31 36 30 2c 30 29 |.sBw(S%+4,160,0)|
00000460 3a f2 73 42 77 28 53 25 2b 31 36 38 2c 36 34 39 |:.sBw(S%+168,649|
00000470 36 2c 30 29 3a 51 25 3d 53 25 2b 36 36 36 34 3a |6,0):Q%=S%+6664:|
00000480 53 25 21 38 3d 51 25 3a 24 28 53 25 2b 32 30 29 |S%!8=Q%:$(S%+20)|
00000490 3d 22 5f 22 3a 53 25 21 31 31 32 3d 53 25 2b 31 |="_":S%!112=S%+1|
000004a0 35 34 34 3a 53 25 21 31 31 36 3d 53 25 2b 31 38 |544:S%!116=S%+18|
000004b0 30 30 3a 53 25 21 31 32 30 3d 53 25 2b 32 30 35 |00:S%!120=S%+205|
000004c0 36 3a 4f 25 3d 53 25 2b 32 33 31 32 3a 53 25 21 |6:O%=S%+2312:S%!|
000004d0 31 32 34 3d 4f 25 3a 57 25 3d 53 25 2b 32 35 36 |124=O%:W%=S%+256|
000004e0 38 3a 53 25 21 34 34 3d 48 50 25 3a c8 99 32 39 |8:S%!44=HP%:..29|
000004f0 2c 30 2c 53 25 21 34 34 2c 2c 48 4d 25 2d 53 25 |,0,S%!44,,HM%-S%|
00000500 21 34 34 3a 53 25 21 34 38 3d b9 3a 44 25 3d bb |!44:S%!48=.:D%=.|
00000510 28 a4 70 53 28 41 24 2c 22 2c 22 29 29 3a 53 25 |(.pS(A$,",")):S%|
00000520 21 38 30 3d 44 25 3a e7 44 25 3e 30 8c de 53 25 |!80=D%:.D%>0..S%|
00000530 21 37 36 44 25 0d 00 82 65 53 25 21 31 32 38 3d |!76D%...eS%!128=|
00000540 b9 3a 53 25 21 31 34 38 3d 45 25 3a 53 25 21 31 |.:S%!148=E%:S%!1|
00000550 35 36 3d 31 30 30 3a 53 25 21 31 36 38 3d a4 72 |56=100:S%!168=.r|
00000560 43 4d 4f 53 28 35 33 29 3a c8 99 31 36 b8 42 25 |CMOS(53):..16.B%|
00000570 3a 45 6e 76 24 3d a4 7a 54 28 42 25 29 3a 41 25 |:Env$=.zT(B%):A%|
00000580 3d a7 45 6e 76 24 2c 22 21 52 75 6e 49 6d 61 67 |=.Env$,"!RunImag|
00000590 65 22 29 3a e7 41 25 3e 30 8c 0d 00 8c 39 42 24 |e"):.A%>0....9B$|
000005a0 3d c1 45 6e 76 24 2c 41 25 2b 31 30 29 3a 42 24 |=.Env$,A%+10):B$|
000005b0 3d a4 64 47 53 54 28 42 24 29 3a 42 24 3d a4 74 |=.dGST(B$):B$=.t|
000005c0 72 6d 53 28 42 24 2c 2d 31 29 3a e7 42 24 3c 3e |rmS(B$,-1):.B$<>|
000005d0 22 22 8c 0d 00 96 46 44 24 3d 22 22 3a c8 95 42 |""....FD$="":..B|
000005e0 24 3c 3e 22 22 3a 43 24 3d a4 70 53 28 42 24 2c |$<>"":C$=.pS(B$,|
000005f0 22 20 22 29 3a 43 24 3d a4 74 72 6d 53 28 43 24 |" "):C$=.trmS(C$|
00000600 2c 2d 31 29 3a e7 43 24 3c 3e 22 22 8c 44 24 3d |,-1):.C$<>"".D$=|
00000610 44 24 2b 22 20 22 2b 43 24 0d 00 a0 11 ce 3a 45 |D$+" "+C$.....:E|
00000620 6e 76 24 3d c1 44 24 2c 32 29 0d 00 aa 0c cc 45 |nv$=.D$,2).....E|
00000630 6e 76 24 3d 22 22 0d 00 b4 05 cd 0d 00 be 0c cc |nv$=""..........|
00000640 45 6e 76 24 3d 22 22 0d 00 c8 8e cd 3a 53 25 21 |Env$="".....:S%!|
00000650 31 38 38 3d b9 3a f2 67 4d 69 3a 53 25 21 32 31 |188=.:.gMi:S%!21|
00000660 32 3d 26 38 30 32 38 43 30 3a 53 25 21 32 31 36 |2=&8028C0:S%!216|
00000670 3d b9 3a 53 25 21 32 34 38 3d bb 28 a4 70 53 28 |=.:S%!248=.(.pS(|
00000680 41 24 2c 22 2c 22 29 29 2d 32 3a c8 99 38 31 b8 |A$,","))-2:..81.|
00000690 44 25 3a 53 25 21 32 39 32 3d 44 25 3a 53 25 21 |D%:S%!292=D%:S%!|
000006a0 33 32 34 3d b9 3a de 53 25 21 34 32 34 20 33 31 |324=.:.S%!424 31|
000006b0 2c 53 25 21 34 39 32 20 33 31 3a 53 25 21 34 35 |,S%!492 31:S%!45|
000006c0 36 3d b9 3a 53 25 21 35 35 32 3d b9 3a 53 25 21 |6=.:S%!552=.:S%!|
000006d0 35 35 36 3d eb 0d 00 d2 ea 42 25 3d 53 25 2b 31 |556=.....B%=S%+1|
000006e0 30 32 34 3a 61 6e 25 3d 42 25 3a 63 6e 25 3d 42 |024:an%=B%:cn%=B|
000006f0 25 2b 32 34 3a 64 6e 25 3d 42 25 2b 33 36 3a 65 |%+24:dn%=B%+36:e|
00000700 6e 25 3d 42 25 2b 34 38 3a 66 6e 25 3d 42 25 2b |n%=B%+48:fn%=B%+|
00000710 36 30 3a 6c 6e 25 3d 42 25 2b 31 33 32 3a 6d 6e |60:ln%=B%+132:mn|
00000720 25 3d 42 25 2b 31 34 34 3a 6e 6e 25 3d 42 25 2b |%=B%+144:nn%=B%+|
00000730 31 35 36 3a 70 6e 25 3d 42 25 2b 31 38 30 3a 72 |156:pn%=B%+180:r|
00000740 6e 25 3d 42 25 2b 32 30 34 3a 73 6e 25 3d 42 25 |n%=B%+204:sn%=B%|
00000750 2b 32 31 36 3a 77 6e 25 3d 42 25 2b 32 36 34 3a |+216:wn%=B%+264:|
00000760 24 61 6e 25 3d 22 22 3a 24 63 6e 25 3d 22 22 3a |$an%="":$cn%="":|
00000770 24 64 6e 25 3d 22 22 3a 24 65 6e 25 3d 22 22 3a |$dn%="":$en%="":|
00000780 24 66 6e 25 3d 22 22 3a 24 6c 6e 25 3d 22 22 3a |$fn%="":$ln%="":|
00000790 24 6d 6e 25 3d 22 22 3a 24 6e 6e 25 3d 22 22 3a |$mn%="":$nn%="":|
000007a0 24 70 6e 25 3d 22 22 3a 24 72 6e 25 3d 22 22 3a |$pn%="":$rn%="":|
000007b0 24 73 6e 25 3d 22 22 3a 24 77 6e 25 3d 22 22 0d |$sn%="":$wn%="".|
000007c0 00 dc f7 42 25 3d 53 25 2b 31 33 33 36 3a 61 25 |...B%=S%+1336:a%|
000007d0 3d 42 25 3a 61 30 25 3d 42 25 2b 34 3a 62 25 3d |=B%:a0%=B%+4:b%=|
000007e0 42 25 2b 38 3a 62 30 25 3d 42 25 2b 31 32 3a 63 |B%+8:b0%=B%+12:c|
000007f0 25 3d 42 25 2b 31 36 3a 64 25 3d 42 25 2b 32 34 |%=B%+16:d%=B%+24|
00000800 3a 64 30 25 3d 42 25 2b 32 38 3a 65 25 3d 42 25 |:d0%=B%+28:e%=B%|
00000810 2b 33 32 3a 65 30 25 3d 42 25 2b 33 36 3a 66 25 |+32:e0%=B%+36:f%|
00000820 3d 42 25 2b 34 30 3a 66 30 25 3d 42 25 2b 34 34 |=B%+40:f0%=B%+44|
00000830 3a 67 25 3d 42 25 2b 34 38 3a 67 30 25 3d 42 25 |:g%=B%+48:g0%=B%|
00000840 2b 35 32 3a 68 25 3d 42 25 2b 35 36 3a 68 30 25 |+52:h%=B%+56:h0%|
00000850 3d 42 25 2b 36 30 3a 69 25 3d 42 25 2b 36 34 3a |=B%+60:i%=B%+64:|
00000860 69 30 25 3d 42 25 2b 36 38 3a 6a 25 3d 42 25 2b |i0%=B%+68:j%=B%+|
00000870 37 32 3a 6a 30 25 3d 42 25 2b 37 36 3a 6b 25 3d |72:j0%=B%+76:k%=|
00000880 42 25 2b 38 30 3a 6b 30 25 3d 42 25 2b 38 34 3a |B%+80:k0%=B%+84:|
00000890 6c 25 3d 42 25 2b 38 38 3a 6c 30 25 3d 42 25 2b |l%=B%+88:l0%=B%+|
000008a0 39 32 3a 6d 25 3d 42 25 2b 39 36 3a 6d 30 25 3d |92:m%=B%+96:m0%=|
000008b0 42 25 2b 31 30 30 0d 00 e6 b4 6e 25 3d 42 25 2b |B%+100....n%=B%+|
000008c0 31 30 34 3a 71 25 3d 42 25 2b 31 32 38 3a 72 25 |104:q%=B%+128:r%|
000008d0 3d 42 25 2b 31 33 36 3a 72 30 25 3d 42 25 2b 31 |=B%+136:r0%=B%+1|
000008e0 34 30 3a 73 25 3d 42 25 2b 31 34 34 3a 74 25 3d |40:s%=B%+144:t%=|
000008f0 42 25 2b 31 35 32 3a 74 30 25 3d 42 25 2b 31 35 |B%+152:t0%=B%+15|
00000900 36 3a 76 25 3d 42 25 2b 31 36 38 3a 76 30 25 3d |6:v%=B%+168:v0%=|
00000910 42 25 2b 31 37 32 3a 77 25 3d 42 25 2b 31 37 36 |B%+172:w%=B%+176|
00000920 3a 77 30 25 3d 42 25 2b 31 38 30 3a 78 25 3d 42 |:w0%=B%+180:x%=B|
00000930 25 2b 31 38 34 3a 78 30 25 3d 42 25 2b 31 38 38 |%+184:x0%=B%+188|
00000940 3a 79 25 3d 42 25 2b 31 39 32 3a 79 30 25 3d 42 |:y%=B%+192:y0%=B|
00000950 25 2b 31 39 36 3a 7a 25 3d 42 25 2b 32 30 30 3a |%+196:z%=B%+200:|
00000960 7a 30 25 3d 42 25 2b 32 30 34 0d 00 f0 68 21 76 |z0%=B%+204...h!v|
00000970 30 25 3d 38 35 36 3a 21 77 25 3d 57 25 3a 57 25 |0%=856:!w%=W%:W%|
00000980 2b 3d 32 35 36 3a 43 25 3d 30 3a e3 42 25 3d 21 |+=256:C%=0:.B%=!|
00000990 77 25 2b 31 32 b8 21 77 25 2b 31 32 2b 31 35 2a |w%+12.!w%+12+15*|
000009a0 32 35 36 88 32 35 36 3a 21 42 25 3d 2d 32 35 35 |256.256:!B%=-255|
000009b0 3a 42 25 21 32 38 3d b9 3a 42 25 21 31 38 34 3d |:B%!28=.:B%!184=|
000009c0 b9 3a 42 25 21 33 36 3d 43 25 3a 43 25 2b 3d 31 |.:B%!36=C%:C%+=1|
000009d0 3a ed 0d 00 fa d2 de 43 25 28 31 2c 36 29 2c 49 |:......C%(1,6),I|
000009e0 25 28 31 36 29 2c 4d 25 28 31 36 29 2c 4d 24 28 |%(16),M%(16),M$(|
000009f0 31 36 29 2c 54 24 28 33 31 29 2c 7a 24 28 31 36 |16),T$(31),z$(16|
00000a00 29 3a 43 25 28 29 3d 2d 31 3a 43 25 28 30 2c 36 |):C%()=-1:C%(0,6|
00000a10 29 3d 30 3a f7 2b 30 3a e3 41 25 3d 30 b8 31 34 |)=0:.+0:.A%=0.14|
00000a20 3a f3 3f 28 53 25 2b 33 30 30 2b 41 25 29 3a ed |:.?(S%+300+A%):.|
00000a30 3a e3 41 25 3d 30 b8 33 31 3a f3 54 24 28 41 25 |:.A%=0.31:.T$(A%|
00000a40 29 3a ed 3a 50 6f 6c 6c 24 3d 22 22 3a 54 72 61 |):.:Poll$="":Tra|
00000a50 63 65 31 24 3d 22 22 3a 54 72 61 63 65 32 24 3d |ce1$="":Trace2$=|
00000a60 22 22 3a 54 72 61 63 65 31 25 3d 30 3a 54 72 61 |"":Trace1%=0:Tra|
00000a70 63 65 32 25 3d 30 3a 54 72 61 63 65 33 25 3d 30 |ce2%=0:Trace3%=0|
00000a80 3a 54 72 61 63 65 34 25 3d 30 3a 54 72 61 63 65 |:Trace4%=0:Trace|
00000a90 31 3d 30 3a 54 72 61 63 65 32 3d 30 3a 54 6f 6f |1=0:Trace2=0:Too|
00000aa0 6c 25 3d 30 0d 01 04 5b 43 24 3d a4 67 53 56 28 |l%=0...[C$=.gSV(|
00000ab0 22 4f 62 65 79 24 44 69 72 22 29 3a 24 73 6e 25 |"Obey$Dir"):$sn%|
00000ac0 3d a4 67 4c 6e 28 43 24 29 3a 41 70 70 6c 6e 24 |=.gLn(C$):Appln$|
00000ad0 3d 43 24 3a c8 99 26 34 30 30 43 30 2c 32 30 30 |=C$:..&400C0,200|
00000ae0 2c 26 34 42 35 33 34 31 35 34 2c 24 73 6e 25 b8 |,&4B534154,$sn%.|
00000af0 43 25 2c 21 74 25 3a ee 85 f2 65 72 72 6f 72 0d |C%,!t%:...error.|
00000b00 01 0e 4d e7 43 25 3c 32 30 30 8c 85 53 25 21 32 |..M.C%<200..S%!2|
00000b10 31 32 2b 32 2c 22 59 6f 75 20 6e 65 65 64 20 52 |12+2,"You need R|
00000b20 49 53 43 2d 4f 53 20 57 69 6d 70 20 76 65 72 73 |ISC-OS Wimp vers|
00000b30 69 6f 6e 20 32 2e 30 20 74 6f 20 72 75 6e 20 74 |ion 2.0 to run t|
00000b40 68 69 73 20 70 72 6f 67 72 61 6d 22 0d 01 18 b0 |his program"....|
00000b50 4f 76 6c 24 28 30 29 3d 22 22 3a f2 73 50 4f 28 |Ovl$(0)="":.sPO(|
00000b60 31 29 3a 53 25 21 35 36 30 3d de 28 49 6e 63 6c |1):S%!560=.(Incl|
00000b70 75 64 65 24 28 29 2c 31 29 3a 41 25 3d 53 25 21 |ude$(),1):A%=S%!|
00000b80 35 36 30 3c 3c 33 3a de 53 25 21 36 30 28 41 25 |560<<3:.S%!60(A%|
00000b90 3c 3c 32 29 2b 33 3a de 53 25 21 38 34 28 41 25 |<<2)+3:.S%!84(A%|
00000ba0 3c 3c 33 29 2b 37 3a f2 73 42 28 53 25 21 38 34 |<<3)+7:.sB(S%!84|
00000bb0 2c 28 41 25 3c 3c 33 29 2b 38 2c 31 33 29 3a e3 |,(A%<<3)+8,13):.|
00000bc0 41 25 3d 31 b8 53 25 21 35 36 30 3a 43 24 3d 49 |A%=1.S%!560:C$=I|
00000bd0 6e 63 6c 75 64 65 24 28 41 25 29 3a 42 24 3d 22 |nclude$(A%):B$="|
00000be0 22 3a 53 25 21 31 34 30 3d 30 3a 53 25 21 31 34 |":S%!140=0:S%!14|
00000bf0 34 3d 30 3a e7 43 24 3c 3e 22 22 8c 0d 01 22 26 |4=0:.C$<>""..."&|
00000c00 42 25 3d a7 43 24 2c 22 5f 22 29 3a e7 42 25 3e |B%=.C$,"_"):.B%>|
00000c10 30 8c 7a 24 3d c1 43 24 2c 42 25 29 8b 7a 24 3d |0.z$=.C$,B%).z$=|
00000c20 22 22 0d 01 2c 39 24 28 53 25 21 38 34 2b 28 41 |""..,9$(S%!84+(A|
00000c30 25 3c 3c 33 29 29 3d 7a 24 3a c8 99 38 2c 31 37 |%<<3))=z$:..8,17|
00000c40 2c 22 3c 4f 62 65 79 24 44 69 72 3e 2e 22 2b 43 |,"<Obey$Dir>."+C|
00000c50 24 b8 42 25 3a e7 42 25 3d 32 8c 0d 01 36 17 42 |$.B%:.B%=2...6.B|
00000c60 24 3d 22 3c 4f 62 65 79 24 44 69 72 3e 2e 22 2b |$="<Obey$Dir>."+|
00000c70 43 24 0d 01 40 34 cc c8 99 38 2c 31 37 2c 22 3c |C$..@4...8,17,"<|
00000c80 52 65 70 6f 72 74 53 79 73 24 50 61 74 68 3e 4f |ReportSys$Path>O|
00000c90 76 65 72 52 69 64 65 2e 22 2b 43 24 b8 42 25 3a |verRide."+C$.B%:|
00000ca0 e7 42 25 3d 32 8c 0d 01 4a 25 42 24 3d 22 3c 52 |.B%=2...J%B$="<R|
00000cb0 65 70 6f 72 74 53 79 73 24 50 61 74 68 3e 4f 76 |eportSys$Path>Ov|
00000cc0 65 72 52 69 64 65 2e 22 2b 43 24 0d 01 54 1d cc |erRide."+C$..T..|
00000cd0 42 24 3d 22 3c 52 65 70 6f 72 74 53 79 73 24 50 |B$="<ReportSys$P|
00000ce0 61 74 68 3e 22 2b 43 24 0d 01 5e 05 cd 0d 01 68 |ath>"+C$..^....h|
00000cf0 05 cd 0d 01 72 0e cd 3a e7 42 24 3c 3e 22 22 8c |....r..:.B$<>"".|
00000d00 0d 01 7c 3b 42 24 3d a4 64 47 53 54 28 42 24 29 |..|;B$=.dGST(B$)|
00000d10 3a e7 a4 74 6f 4c 43 28 a4 67 4c 6e 28 42 24 29 |:..toLC(.gLn(B$)|
00000d20 29 3c 3e 22 6b 65 72 6e 65 6c 22 8c c8 9b 42 24 |)<>"kernel"...B$|
00000d30 2b 22 2e 4c 69 62 72 61 72 79 22 0d 01 86 43 5a |+".Library"...CZ|
00000d40 25 3d a0 28 22 46 4e 69 22 2b 7a 24 2b 22 28 42 |%=.("FNi"+z$+"(B|
00000d50 24 2c 41 25 29 22 29 3a e7 53 25 21 31 34 30 8c |$,A%)"):.S%!140.|
00000d60 ff 22 49 63 6f 6e 53 70 72 69 74 65 73 20 22 2b |."IconSprites "+|
00000d70 42 24 2b 22 2e 21 53 70 72 69 74 65 73 22 0d 01 |B$+".!Sprites"..|
00000d80 90 a7 cd 3a ed 3a 7a 24 3d 22 5f 22 3a 24 28 53 |...:.:z$="_":$(S|
00000d90 25 21 38 34 29 3d 7a 24 3a 5a 25 3d a4 69 5f 28 |%!84)=z$:Z%=.i_(|
00000da0 41 70 70 6c 6e 24 2c 30 29 3a 53 25 21 31 34 30 |Appln$,0):S%!140|
00000db0 3d 2d 31 3a 53 25 21 31 34 34 3d 2d 31 3a 43 24 |=-1:S%!144=-1:C$|
00000dc0 3d 22 49 63 6f 6e 42 61 72 22 3a 24 28 53 25 2b |="IconBar":$(S%+|
00000dd0 39 36 29 3d 43 24 3a 53 25 21 37 32 3d a4 66 4d |96)=C$:S%!72=.fM|
00000de0 28 43 24 29 3a 41 25 3d a4 61 52 28 53 25 21 37 |(C$):A%=.aR(S%!7|
00000df0 32 29 3a 42 25 3d 41 25 2b 34 3a 43 25 3d 30 3a |2):B%=A%+4:C%=0:|
00000e00 44 25 3d 30 3a f5 42 25 2b 3d 32 34 3a 45 25 3d |D%=0:.B%+=24:E%=|
00000e10 21 42 25 3a 43 25 2b 3d 31 3a e7 45 25 80 32 8c |!B%:C%+=1:.E%.2.|
00000e20 44 25 2b 3d 31 0d 01 9a 62 fd 28 45 25 80 31 32 |D%+=1...b.(E%.12|
00000e30 38 29 3e 30 3a 53 25 21 31 30 38 3d 43 25 2a 28 |8)>0:S%!108=C%*(|
00000e40 41 25 21 32 30 2b 41 25 21 32 34 29 2b 41 25 21 |A%!20+A%!24)+A%!|
00000e50 32 34 2b 32 34 2a 44 25 3a 42 24 3d a4 70 53 28 |24+24*D%:B$=.pS(|
00000e60 41 24 2c 22 2c 22 29 3a e7 42 24 3c 3e 22 22 8c |A$,","):.B$<>"".|
00000e70 42 24 3d c0 a4 74 6f 55 43 28 42 24 29 2c 31 29 |B$=..toUC(B$),1)|
00000e80 8b 42 24 3d 22 52 22 0d 01 a4 19 e7 42 24 3d 22 |.B$="R".....B$="|
00000e90 4c 22 8c 21 4f 25 3d 2d 32 8b 21 4f 25 3d 2d 31 |L".!O%=-2.!O%=-1|
00000ea0 0d 01 ae 47 53 25 21 33 34 30 3d 21 4f 25 3a 4f |...GS%!340=!O%:O|
00000eb0 25 21 34 3d 30 3a 42 24 3d a4 70 53 28 41 24 2c |%!4=0:B$=.pS(A$,|
00000ec0 22 2c 22 29 3a 42 24 3d a4 74 6f 4c 43 28 42 24 |","):B$=.toLC(B$|
00000ed0 29 3a e7 42 24 3d 22 22 8c 42 24 3d a4 74 6f 4c |):.B$="".B$=.toL|
00000ee0 43 28 24 73 6e 25 29 0d 01 b8 0f e7 53 68 6f 77 |C($sn%).....Show|
00000ef0 4e 61 6d 65 25 8c 0d 01 c2 72 4f 25 21 38 3d 2d |Name%....rO%!8=-|
00000f00 31 36 3a 4f 25 21 31 32 3d 31 36 30 3a 4f 25 21 |16:O%!12=160:O%!|
00000f10 31 36 3d 38 38 3a 4f 25 21 32 30 3d 26 31 37 30 |16=88:O%!20=&170|
00000f20 30 33 31 30 42 3a 42 24 3d 22 53 22 2b 42 24 3a |0310B:B$="S"+B$:|
00000f30 43 24 3d a4 70 53 28 41 24 2c 22 2c 22 29 3a e7 |C$=.pS(A$,","):.|
00000f40 43 24 3c 3e 22 22 8c 42 24 2b 3d 22 2c 22 2b a4 |C$<>"".B$+=","+.|
00000f50 74 6f 4c 43 28 43 24 29 3a 4f 25 21 32 30 3d 26 |toLC(C$):O%!20=&|
00000f60 31 37 30 31 42 31 30 42 0d 01 cc 53 de 53 25 21 |1701B10B...S.S%!|
00000f70 33 34 34 20 31 31 3a 4f 25 21 32 34 3d 53 25 21 |344 11:O%!24=S%!|
00000f80 33 34 34 3a 24 28 53 25 21 33 34 34 29 3d c1 24 |344:$(S%!344)=.$|
00000f90 73 6e 25 2c 32 29 3a 41 25 3d a9 42 24 3a de 4f |sn%,2):A%=.B$:.O|
00000fa0 25 21 32 38 41 25 3a 24 28 4f 25 21 32 38 29 3d |%!28A%:$(O%!28)=|
00000fb0 42 24 3a 4f 25 21 33 32 3d 31 32 0d 01 d6 61 cc |B$:O%!32=12...a.|
00000fc0 4f 25 21 38 3d 30 3a c8 99 26 34 30 30 45 39 2c |O%!8=0:..&400E9,|
00000fd0 32 39 36 2c 2c 42 24 b8 2c 2c 2c 41 25 2c 42 25 |296,,B$.,,,A%,B%|
00000fe0 3a 43 25 3d a4 72 4d 56 28 42 25 2c 34 29 3a 4f |:C%=.rMV(B%,4):O|
00000ff0 25 21 31 32 3d 41 25 3c 3c 43 25 3a 4f 25 21 31 |%!12=A%<<C%:O%!1|
00001000 36 3d 36 38 3a 43 24 3d a4 70 53 28 41 24 2c 22 |6=68:C$=.pS(A$,"|
00001010 2c 22 29 3a e7 43 24 3c 3e 22 22 8c 0d 01 e0 64 |,"):.C$<>""....d|
00001020 42 24 3d 22 53 22 2b 42 24 2b 22 2c 22 2b a4 74 |B$="S"+B$+","+.t|
00001030 6f 4c 43 28 43 24 29 3a 4f 25 21 32 30 3d 26 31 |oLC(C$):O%!20=&1|
00001040 37 30 31 42 31 31 42 3a de 4f 25 21 32 34 20 33 |701B11B:.O%!24 3|
00001050 3a 24 28 4f 25 21 32 34 29 3d 22 22 3a 41 25 3d |:$(O%!24)="":A%=|
00001060 a9 42 24 3a de 4f 25 21 32 38 41 25 3a 24 28 4f |.B$:.O%!28A%:$(O|
00001070 25 21 32 38 29 3d 42 24 3a 4f 25 21 33 32 3d 34 |%!28)=B$:O%!32=4|
00001080 0d 01 ea 20 cc 4f 25 21 32 30 3d 26 31 37 30 30 |... .O%!20=&1700|
00001090 33 30 30 32 3a 24 28 4f 25 2b 32 34 29 3d 42 24 |3002:$(O%+24)=B$|
000010a0 0d 01 f4 05 cd 0d 01 fe 56 cd 3a c8 99 26 34 30 |........V.:..&40|
000010b0 30 43 32 2c 2c 4f 25 b8 21 67 25 3a c8 99 26 34 |0C2,,O%.!g%:..&4|
000010c0 30 30 44 30 2c 2c 2d 31 3a e7 53 61 76 65 43 68 |00D0,,-1:.SaveCh|
000010d0 6f 69 63 65 73 25 8c f2 74 4d 49 28 22 43 68 6f |oices%..tMI("Cho|
000010e0 69 63 65 73 22 2c 30 29 8b f2 75 74 4d 49 28 22 |ices",0)..utMI("|
000010f0 43 68 6f 69 63 65 73 22 2c 30 29 0d 02 08 33 e7 |Choices",0)...3.|
00001100 53 68 6f 77 4e 61 6d 65 25 8c f2 74 4d 49 28 22 |ShowName%..tMI("|
00001110 43 68 6f 69 63 65 73 22 2c 31 29 8b f2 75 74 4d |Choices",1)..utM|
00001120 49 28 22 43 68 6f 69 63 65 73 22 2c 31 29 0d 02 |I("Choices",1)..|
00001130 12 2f e7 48 65 6c 70 25 8c f2 74 4d 49 28 22 43 |./.Help%..tMI("C|
00001140 68 6f 69 63 65 73 22 2c 32 29 8b f2 75 74 4d 49 |hoices",2)..utMI|
00001150 28 22 43 68 6f 69 63 65 73 22 2c 32 29 0d 02 1c |("Choices",2)...|
00001160 05 e1 0d 02 26 2d dc 31 2c 32 35 2c 30 2c 32 34 |....&-.1,25,0,24|
00001170 30 2c 32 34 30 2c 32 2c 32 35 2c 30 2c 30 2c 31 |0,240,2,25,0,0,1|
00001180 34 34 2c 33 2c 32 35 2c 32 34 30 2c 30 2c 30 0d |44,3,25,240,0,0.|
00001190 02 30 ab dc 22 22 2c 41 6c 65 72 74 2c 42 61 73 |.0.."",Alert,Bas|
000011a0 69 63 2c 45 64 69 74 2c 50 61 69 6e 74 2c 44 72 |ic,Edit,Paint,Dr|
000011b0 61 77 2c 54 65 78 74 75 72 65 2c 44 69 73 70 6c |aw,Texture,Displ|
000011c0 61 79 2c 46 6f 72 6d 2c 44 69 61 6c 6f 67 2c 4d |ay,Form,Dialog,M|
000011d0 65 6e 75 2c 53 63 72 6f 6c 6c 2c 53 70 72 69 74 |enu,Scroll,Sprit|
000011e0 65 2c 41 6e 69 6d 61 74 65 2c 44 61 74 61 50 61 |e,Animate,DataPa|
000011f0 64 2c 4d 75 6c 74 69 50 61 64 2c 54 6f 6f 6c 73 |d,MultiPad,Tools|
00001200 2c 56 69 65 77 2c 22 22 2c 54 68 72 65 65 44 65 |,View,"",ThreeDe|
00001210 65 2c 22 22 2c 46 69 6c 6d 2c 22 22 2c 22 22 2c |e,"",Film,"","",|
00001220 22 22 2c 22 22 2c 22 22 2c 22 22 2c 22 22 2c 22 |"","","","","","|
00001230 22 2c 22 22 2c 41 6d 62 69 67 0d 02 3a 04 0d 02 |","",Ambig..:...|
00001240 44 92 dd f2 69 52 65 73 28 41 24 2c 42 31 25 29 |D...iRes(A$,B1%)|
00001250 3a ea 41 25 2c 42 25 2c 42 32 25 2c 42 24 2c 43 |:.A%,B%,B2%,B$,C|
00001260 25 2c 43 24 2c 44 25 2c 44 24 2c 45 25 2c 46 25 |%,C$,D%,D$,E%,F%|
00001270 2c 47 25 2c 48 25 2c 5a 24 3a 45 25 3d 66 6e 25 |,G%,H%,Z$:E%=fn%|
00001280 3a 42 25 3d 30 3a 21 28 53 25 21 36 30 2b 28 42 |:B%=0:!(S%!60+(B|
00001290 31 25 3c 3c 32 29 29 3d 30 3a 42 32 25 3d 28 42 |1%<<2))=0:B2%=(B|
000012a0 31 25 83 33 32 29 3c 3c 32 37 3a f5 c8 99 31 32 |1%.32)<<27:...12|
000012b0 2c 39 2c 41 24 2c 45 25 2c 31 2c 42 25 2c 31 32 |,9,A$,E%,1,B%,12|
000012c0 b8 2c 2c 2c 2c 42 25 3a e7 42 25 3c 3e 2d 31 8c |.,,,,B%:.B%<>-1.|
000012d0 0d 02 4e 4c 44 25 3d 45 25 3a c8 95 3f 44 25 3a |..NLD%=E%:..?D%:|
000012e0 44 25 2b 3d 31 3a ce 3a 3f 44 25 3d 31 33 3a 42 |D%+=1:.:?D%=13:B|
000012f0 24 3d a4 74 6f 4c 43 28 24 45 25 29 3a 43 24 3d |$=.toLC($E%):C$=|
00001300 41 24 2b 22 2e 22 2b 42 24 3a 44 25 3d a4 67 46 |A$+"."+B$:D%=.gF|
00001310 6c 28 43 24 29 3a e7 44 25 3e 30 8c 0d 02 58 14 |l(C$):.D%>0...X.|
00001320 46 25 3d a4 67 46 74 28 43 24 29 3a c8 8e b9 ca |F%=.gFt(C$):....|
00001330 0d 02 62 12 c9 46 25 3d 26 46 46 39 3a c8 8e 42 |..b..F%=&FF9:..B|
00001340 24 ca 0d 02 6c 74 c9 22 73 70 72 69 74 65 73 22 |$...lt."sprites"|
00001350 3a 44 25 2b 3d 31 36 3a de 41 25 44 25 3a 21 41 |:D%+=16:.A%D%:!A|
00001360 25 3d 44 25 3a 41 25 21 34 3d 30 3a 41 25 21 38 |%=D%:A%!4=0:A%!8|
00001370 3d 31 36 3a 41 25 21 31 32 3d 31 36 3a c8 99 34 |=16:A%!12=16:..4|
00001380 36 2c 32 36 35 2c 41 25 3a c8 99 38 2c 31 36 2c |6,265,A%:..8,16,|
00001390 43 24 2c 41 25 2b 34 3a 21 28 53 25 21 36 30 2b |C$,A%+4:!(S%!60+|
000013a0 28 42 31 25 3c 3c 32 29 29 3d 41 25 3a 53 25 21 |(B1%<<2))=A%:S%!|
000013b0 31 34 34 3d 41 25 0d 02 76 18 c9 22 21 73 70 72 |144=A%..v.."!spr|
000013c0 69 74 65 73 22 3a 53 25 21 31 34 30 3d b9 0d 02 |ites":S%!140=...|
000013d0 80 05 cb 0d 02 8a 30 c9 c0 42 24 2c 31 29 3d 22 |......0..B$,1)="|
000013e0 21 22 2c 46 25 3d 26 46 46 42 2c 46 25 3d 26 34 |!",F%=&FFB,F%=&4|
000013f0 30 37 2c 46 25 3e 3d 26 46 46 46 2c 46 25 3d 26 |07,F%>=&FFF,F%=&|
00001400 41 46 46 0d 02 94 ac c9 46 25 3d 26 34 30 32 3a |AFF.....F%=&402:|
00001410 e7 42 24 3d 22 6d 65 6e 75 73 22 8c de 41 25 44 |.B$="menus"..A%D|
00001420 25 3a 43 25 3d a4 6c 64 46 28 43 24 2c 41 25 29 |%:C%=.ldF(C$,A%)|
00001430 3a 41 25 21 31 32 3d 41 25 21 31 32 84 42 32 25 |:A%!12=A%!12.B2%|
00001440 3a 41 25 21 32 38 3d 53 25 21 35 36 3a 53 25 21 |:A%!28=S%!56:S%!|
00001450 35 36 3d 41 25 3a 44 25 3d 43 25 2b 43 25 21 32 |56=A%:D%=C%+C%!2|
00001460 30 3a e3 46 25 3d 43 25 2b 35 32 b8 43 25 2b 32 |0:.F%=C%+52.C%+2|
00001470 38 2b 32 34 2a 43 25 21 31 36 88 32 34 3a 21 46 |8+24*C%!16.24:!F|
00001480 25 2b 3d 44 25 3a 46 25 21 2d 38 3d 46 25 21 2d |%+=D%:F%!-8=F%!-|
00001490 38 84 42 32 25 3a 5a 25 3d a4 69 4d 28 21 46 25 |8.B2%:Z%=.iM(!F%|
000014a0 29 3a ed 3a 43 25 21 32 30 3d 43 25 2b 33 32 0d |):.:C%!20=C%+32.|
000014b0 02 9e 1b c9 46 25 3d 26 34 30 34 3a e7 42 24 3d |....F%=&404:.B$=|
000014c0 22 77 69 6e 64 6f 77 73 22 8c 0d 02 a8 b3 de 41 |"windows"......A|
000014d0 25 44 25 3a 43 25 3d a4 6c 64 46 28 43 24 2c 41 |%D%:C%=.ldF(C$,A|
000014e0 25 29 3a 41 25 21 31 32 3d 41 25 21 31 32 84 42 |%):A%!12=A%!12.B|
000014f0 32 25 3a 41 25 21 32 38 3d 53 25 21 36 34 3a 53 |2%:A%!28=S%!64:S|
00001500 25 21 36 34 3d 41 25 3a 44 25 3d 43 25 2b 43 25 |%!64=A%:D%=C%+C%|
00001510 21 32 30 3a e3 46 25 3d 43 25 2b 35 32 b8 43 25 |!20:.F%=C%+52.C%|
00001520 2b 32 38 2b 32 34 2a 43 25 21 31 36 88 32 34 3a |+28+24*C%!16.24:|
00001530 21 46 25 2b 3d 44 25 3a 46 25 21 2d 38 3d 46 25 |!F%+=D%:F%!-8=F%|
00001540 21 2d 38 84 42 32 25 3a 24 77 6e 25 3d 24 28 46 |!-8.B2%:$wn%=$(F|
00001550 25 2d 32 30 29 3a 48 25 3d 46 25 21 2d 38 3e 3e |%-20):H%=F%!-8>>|
00001560 3e 31 36 80 33 31 3a 5a 25 3d a4 69 57 28 21 46 |>16.31:Z%=.iW(!F|
00001570 25 2c 48 25 29 3a e7 48 25 3d 31 30 8c 0d 02 b2 |%,H%):.H%=10....|
00001580 70 47 25 3d 21 28 21 46 25 2b 33 36 29 3a e7 47 |pG%=!(!F%+36):.G|
00001590 25 3e 30 8c de 41 25 47 25 2d 31 3a f2 73 42 77 |%>0..A%G%-1:.sBw|
000015a0 28 41 25 2c 47 25 2c 30 29 3a 47 25 3d 57 25 3a |(A%,G%,0):G%=W%:|
000015b0 57 25 3d 41 25 2d 35 32 3a 52 25 3d 31 39 35 3a |W%=A%-52:R%=195:|
000015c0 5a 25 3d a0 28 22 46 4e 65 22 2b 7a 24 29 3a 21 |Z%=.("FNe"+z$):!|
000015d0 28 21 46 25 2b 31 32 29 3d 41 25 3a 57 25 3d 47 |(!F%+12)=A%:W%=G|
000015e0 25 8b 21 28 21 46 25 2b 31 32 29 3d 30 0d 02 bc |%.!(!F%+12)=0...|
000015f0 6c 41 25 3d a4 61 52 28 21 46 25 29 3a f2 63 42 |lA%=.aR(!F%):.cB|
00001600 28 41 25 2c 51 25 2b 34 2c 38 38 2b 28 41 25 21 |(A%,Q%+4,88+(A%!|
00001610 38 34 3c 3c 35 29 29 3a 52 25 3d 31 39 33 3a 5a |84<<5)):R%=193:Z|
00001620 25 3d a0 28 22 46 4e 65 22 2b 7a 24 29 3a c8 99 |%=.("FNe"+z$):..|
00001630 26 34 30 30 43 31 2c 2c 51 25 2b 34 b8 21 68 25 |&400C1,,Q%+4.!h%|
00001640 3a 24 28 21 46 25 2b 34 29 3d 22 22 3a 21 28 21 |:$(!F%+4)="":!(!|
00001650 46 25 2b 38 29 3d 21 68 25 0d 02 c6 1c cd 3a ed |F%+8)=!h%.....:.|
00001660 3a 43 25 21 32 30 3d 43 25 2b 33 32 3a 53 25 21 |:C%!20=C%+32:S%!|
00001670 33 32 3d 43 25 0d 02 da 05 cd 0d 02 e4 a3 c9 46 |32=C%..........F|
00001680 25 3d 26 34 30 38 3a e7 42 24 3d 22 70 6f 69 6e |%=&408:.B$="poin|
00001690 74 65 72 73 22 8c de 41 25 44 25 3a 43 25 3d a4 |ters"..A%D%:C%=.|
000016a0 6c 64 46 28 43 24 2c 41 25 29 3a 41 25 21 31 32 |ldF(C$,A%):A%!12|
000016b0 3d 41 25 21 31 32 84 42 32 25 3a 41 25 21 32 38 |=A%!12.B2%:A%!28|
000016c0 3d 53 25 21 36 38 3a 53 25 21 36 38 3d 41 25 3a |=S%!68:S%!68=A%:|
000016d0 44 25 3d 43 25 2b 43 25 21 32 30 3a e3 46 25 3d |D%=C%+C%!20:.F%=|
000016e0 43 25 2b 35 32 b8 43 25 2b 32 38 2b 32 34 2a 43 |C%+52.C%+28+24*C|
000016f0 25 21 31 36 88 32 34 3a 21 46 25 2b 3d 44 25 3a |%!16.24:!F%+=D%:|
00001700 46 25 21 2d 38 3d 46 25 21 2d 38 84 42 32 25 3a |F%!-8=F%!-8.B2%:|
00001710 ed 3a 43 25 21 32 30 3d 43 25 2b 33 32 0d 02 ee |.:C%!20=C%+32...|
00001720 9a c9 46 25 3d 26 34 32 32 3a c8 99 26 34 30 30 |..F%=&422:..&400|
00001730 38 31 2c 2c 22 50 6f 72 74 72 68 6f 75 73 65 2e |81,,"Portrhouse.|
00001740 53 74 61 6e 64 61 72 64 22 2c 31 36 30 2c 31 36 |Standard",160,16|
00001750 30 b8 41 25 3a 53 25 21 33 31 36 3d 41 25 3a 41 |0.A%:S%!316=A%:A|
00001760 25 3d a4 67 48 28 44 25 29 3a 43 25 3d a4 6c 64 |%=.gH(D%):C%=.ld|
00001770 46 28 43 24 2c 41 25 29 3a 44 25 3d 43 25 2b 43 |F(C$,A%):D%=C%+C|
00001780 25 21 32 30 3a e3 46 25 3d 43 25 2b 33 32 b8 43 |%!20:.F%=C%+32.C|
00001790 25 2b 38 2b 32 34 2a 43 25 21 31 36 88 32 34 3a |%+8+24*C%!16.24:|
000017a0 48 25 3d bb 28 c1 24 46 25 2c 35 29 29 3a 48 25 |H%=.(.$F%,5)):H%|
000017b0 3d 48 25 80 32 35 35 0d 02 f8 75 43 24 3d 24 28 |=H%.255...uC$=$(|
000017c0 46 25 21 32 30 2b 44 25 29 3a c8 99 26 36 30 30 |F%!20+D%):..&600|
000017d0 38 31 2c 2c a4 70 53 28 43 24 2c 22 2e 22 29 2b |81,,.pS(C$,".")+|
000017e0 22 2e 22 2b a4 70 53 28 43 24 2c 22 2e 22 29 2c |"."+.pS(C$,"."),|
000017f0 bb 28 a4 70 53 28 43 24 2c 22 2e 22 29 29 3c 3c |.(.pS(C$,"."))<<|
00001800 34 2c bb 28 a4 70 53 28 43 24 2c 22 2e 22 29 29 |4,.(.pS(C$,"."))|
00001810 3c 3c 34 b8 41 25 3a e7 41 25 3e 30 8c 3f 28 53 |<<4.A%:.A%>0.?(S|
00001820 25 21 31 31 32 2b 48 25 29 3d 41 25 0d 03 02 16 |%!112+H%)=A%....|
00001830 ed 3a f2 66 48 28 43 25 29 3a 53 25 21 33 37 32 |.:.fH(C%):S%!372|
00001840 3d b9 0d 03 0c 1c c9 46 25 3d 26 34 31 36 3a 41 |=......F%=&416:A|
00001850 25 3d 8e 28 43 24 29 3a e7 41 25 3e 30 8c 0d 03 |%=.(C$):.A%>0...|
00001860 16 15 44 25 3d bb 28 be 23 41 25 29 3a e7 44 25 |..D%=.(.#A%):.D%|
00001870 3e 30 8c 0d 03 20 09 c8 8e 7a 24 ca 0d 03 2a 31 |>0... ...z$...*1|
00001880 c9 22 5f 22 3a de 4d 73 67 5f 24 28 44 25 29 3a |."_":.Msg_$(D%):|
00001890 5a 25 3d a4 69 4d 73 67 28 4d 73 67 5f 24 28 29 |Z%=.iMsg(Msg_$()|
000018a0 2c 41 25 29 3a 53 25 21 34 39 36 3d b9 0d 03 34 |,A%):S%!496=...4|
000018b0 05 cb 0d 03 3e 0a cd 3a d9 23 41 25 0d 03 48 05 |....>..:.#A%..H.|
000018c0 cd 0d 03 52 86 7f 3a de 41 25 44 25 3a 43 25 3d |...R..:.A%D%:C%=|
000018d0 a4 6c 64 46 28 43 24 2c 41 25 29 3a 41 25 21 31 |.ldF(C$,A%):A%!1|
000018e0 32 3d 41 25 21 31 32 84 42 32 25 3a 41 25 21 32 |2=A%!12.B2%:A%!2|
000018f0 38 3d 53 25 21 35 32 3a 53 25 21 35 32 3d 41 25 |8=S%!52:S%!52=A%|
00001900 3a 44 25 3d 43 25 2b 43 25 21 32 30 3a e3 46 25 |:D%=C%+C%!20:.F%|
00001910 3d 43 25 2b 35 32 b8 43 25 2b 32 38 2b 32 34 2a |=C%+52.C%+28+24*|
00001920 43 25 21 31 36 88 32 34 3a 21 46 25 2b 3d 44 25 |C%!16.24:!F%+=D%|
00001930 3a 46 25 21 2d 38 3d 46 25 21 2d 38 84 42 32 25 |:F%!-8=F%!-8.B2%|
00001940 3a c8 8e 24 43 25 ca 0d 03 5c 18 c9 22 4b 65 79 |:..$C%...\.."Key|
00001950 22 3a 5a 25 3d a4 69 4b 65 79 28 21 46 25 29 0d |":Z%=.iKey(!F%).|
00001960 03 66 13 cb 3a ed 3a 43 25 21 32 30 3d 43 25 2b |.f..:.:C%!20=C%+|
00001970 33 32 0d 03 70 05 cb 0d 03 7a 05 cd 0d 03 84 0e |32..p....z......|
00001980 cd 3a fd 42 25 3d 2d 31 3a e1 0d 03 98 1e dd a4 |.:.B%=-1:.......|
00001990 69 28 41 24 2c 42 25 29 3a f2 69 52 65 73 28 41 |i(A$,B%):.iRes(A|
000019a0 24 2c 42 25 29 3a 3d b9 0d 03 ac 37 dd a4 69 4b |$,B%):=....7..iK|
000019b0 65 79 28 41 25 29 3a ea 42 25 2c 43 25 3a e3 42 |ey(A%):.B%,C%:.B|
000019c0 25 3d 41 25 b8 41 25 2b 26 33 46 46 88 34 3a e7 |%=A%.A%+&3FF.4:.|
000019d0 21 42 25 3e 35 31 32 8c 21 42 25 2b 3d 41 25 0d |!B%>512.!B%+=A%.|
000019e0 03 b6 2c ed 3a e3 42 25 3d 41 25 2b 26 36 30 30 |..,.:.B%=A%+&600|
000019f0 b8 41 25 2b 26 37 46 46 88 34 3a e7 21 42 25 3e |.A%+&7FF.4:.!B%>|
00001a00 35 31 32 8c 21 42 25 2b 3d 41 25 0d 03 c0 14 ed |512.!B%+=A%.....|
00001a10 3a 4b 25 3d 41 25 3a 53 25 21 32 34 3a 3d a3 0d |:K%=A%:S%!24:=..|
00001a20 03 ca 2d dd a4 69 4d 28 41 25 29 3a ea 42 25 2c |..-..iM(A%):.B%,|
00001a30 43 25 2c 44 25 2c 45 25 2c 46 25 2c 47 24 3a 43 |C%,D%,E%,F%,G$:C|
00001a40 25 3d 21 41 25 3a e7 43 25 3e 30 8c 0d 03 d4 45 |%=!A%:.C%>0....E|
00001a50 46 25 3d a4 61 52 28 41 25 29 3a 41 25 2d 3d 31 |F%=.aR(A%):A%-=1|
00001a60 32 3a e3 42 25 3d 46 25 2b 32 38 b8 46 25 2b 34 |2:.B%=F%+28.F%+4|
00001a70 2b 32 34 2a 43 25 88 32 34 3a 41 25 2b 3d 31 36 |+24*C%.24:A%+=16|
00001a80 3a 45 25 3d 42 25 21 38 3a e7 45 25 80 32 35 36 |:E%=B%!8:.E%.256|
00001a90 8c 0d 03 de 29 42 25 21 31 32 2b 3d 46 25 3a 42 |....)B%!12+=F%:B|
00001aa0 25 21 31 36 2d 3d 46 25 2a 28 42 25 21 31 36 3e |%!16-=F%*(B%!16>|
00001ab0 31 29 3a e7 21 42 25 80 34 8c 0d 03 e8 1d 47 24 |1):.!B%.4.....G$|
00001ac0 3d 24 41 25 3a e7 a7 47 24 2c 22 5f 22 29 3d 30 |=$A%:..G$,"_")=0|
00001ad0 8c 47 24 2b 3d 7a 24 0d 03 f2 12 f2 63 49 56 28 |.G$+=z$.....cIV(|
00001ae0 47 24 2c 42 25 2b 31 32 29 0d 03 fc 13 cd 3a e7 |G$,B%+12).....:.|
00001af0 45 25 80 32 8c 42 25 21 31 36 3d 31 0d 04 06 39 |E%.2.B%!16=1...9|
00001b00 cd 3a e7 45 25 80 36 34 8c 44 25 3d a4 66 46 28 |.:.E%.64.D%=.fF(|
00001b10 45 25 3e 3e 3e 32 34 29 3c 3c 32 34 3a 45 25 3d |E%>>>24)<<24:E%=|
00001b20 45 25 80 26 46 46 46 46 46 46 3a 42 25 21 38 3d |E%.&FFFFFF:B%!8=|
00001b30 45 25 84 44 25 0d 04 10 05 ed 0d 04 1a 08 cd 3a |E%.D%..........:|
00001b40 3d a3 0d 04 24 6e dd a4 69 57 28 41 25 2c 42 31 |=...$n..iW(A%,B1|
00001b50 25 29 3a ea 42 25 2c 43 25 2c 43 24 2c 44 25 2c |%):.B%,C%,C$,D%,|
00001b60 45 25 2c 46 25 2c 47 25 2c 47 31 25 2c 48 25 3a |E%,F%,G%,G1%,H%:|
00001b70 46 25 3d a4 61 52 28 41 25 29 3a 46 25 21 36 34 |F%=.aR(A%):F%!64|
00001b80 3d 53 25 21 31 34 34 3a 45 25 3d 46 25 21 38 34 |=S%!144:E%=F%!84|
00001b90 3c 3c 35 3a 44 25 3d 46 25 2b 38 38 2b 45 25 3a |<<5:D%=F%+88+E%:|
00001ba0 41 25 21 36 34 3d 30 3a e7 42 31 25 3d 31 30 8c |A%!64=0:.B1%=10.|
00001bb0 0d 04 2e 18 e7 46 25 21 35 36 80 32 35 36 8c 46 |.....F%!56.256.F|
00001bc0 25 21 37 32 2b 3d 44 25 0d 04 38 0a e7 45 25 3e |%!72+=D%..8..E%>|
00001bd0 30 8c 0d 04 42 3d e3 43 25 3d 46 25 2b 31 30 34 |0...B=.C%=F%+104|
00001be0 b8 46 25 2b 37 32 2b 45 25 88 33 32 3a e7 21 43 |.F%+72+E%.32:.!C|
00001bf0 25 80 32 35 36 8c 43 25 21 34 2b 3d 44 25 3a e7 |%.256.C%!4+=D%:.|
00001c00 43 25 21 38 3e 30 8c 43 25 21 38 2b 3d 44 25 0d |C%!8>0.C%!8+=D%.|
00001c10 04 4c 3b e7 21 43 25 80 36 34 8c 48 25 3d a4 66 |.L;.!C%.64.H%=.f|
00001c20 46 28 21 43 25 3e 3e 3e 32 34 29 3c 3c 32 34 3a |F(!C%>>>24)<<24:|
00001c30 21 43 25 3d 21 43 25 80 26 46 46 46 46 46 46 3a |!C%=!C%.&FFFFFF:|
00001c40 21 43 25 3d 21 43 25 84 48 25 0d 04 56 05 ed 0d |!C%=!C%.H%..V...|
00001c50 04 60 38 cd 3a 45 25 3d 21 41 25 3c 3c 34 3a 44 |.`8.:E%=!A%<<4:D|
00001c60 25 3d 46 25 2b 37 32 3a 46 25 3d 31 34 3c 3c 31 |%=F%+72:F%=14<<1|
00001c70 32 3a 47 25 3d 46 25 2b 28 31 3c 3c 32 33 29 3a |2:G%=F%+(1<<23):|
00001c80 e7 45 25 3e 36 34 8c 0d 04 6a 24 e3 43 25 3d 41 |.E%>64...j$.C%=A|
00001c90 25 2b 38 30 b8 41 25 2b 45 25 88 31 36 3a e7 28 |%+80.A%+E%.16:.(|
00001ca0 21 43 25 80 31 37 29 3d 31 37 8c 0d 04 74 2a 48 |!C%.17)=17...t*H|
00001cb0 25 3d 44 25 2b 28 28 21 43 25 80 26 46 46 30 30 |%=D%+((!C%.&FF00|
00001cc0 29 3e 3e 3e 33 29 3a e7 28 21 48 25 80 47 25 29 |)>>>3):.(!H%.G%)|
00001cd0 3e 3d 46 25 8c 0d 04 7e 33 43 24 3d 24 28 43 25 |>=F%...~3C$=$(C%|
00001ce0 2d 31 32 29 3a e7 43 24 3c 3e 22 22 80 43 24 3c |-12):.C$<>"".C$<|
00001cf0 3e 22 6e 6f 4e 61 6d 65 22 80 43 24 3c 3e 22 4e |>"noName".C$<>"N|
00001d00 6f 5f 4e 61 6d 65 22 8c 0d 04 88 16 e7 a7 43 24 |o_Name".......C$|
00001d10 2c 22 5f 22 29 3d 30 8c 43 24 2b 3d 7a 24 0d 04 |,"_")=0.C$+=z$..|
00001d20 92 11 f2 63 49 56 28 43 24 2c 48 25 2b 34 29 0d |...cIV(C$,H%+4).|
00001d30 04 9c 05 cd 0d 04 a6 16 cd 3a 21 48 25 3d 21 48 |.........:!H%=!H|
00001d40 25 80 ac 28 31 3c 3c 32 33 29 0d 04 ba 07 cd 3a |%..(1<<23).....:|
00001d50 ed 0d 04 c4 05 cd 0d 04 ce 0b cc e7 45 25 3e 30 |............E%>0|
00001d60 8c 0d 04 d8 52 e3 43 25 3d 46 25 2b 31 30 34 b8 |....R.C%=F%+104.|
00001d70 46 25 2b 37 32 2b 45 25 88 33 32 3a e7 21 43 25 |F%+72+E%.32:.!C%|
00001d80 80 36 34 8c 48 25 3d a4 66 46 28 21 43 25 3e 3e |.64.H%=.fF(!C%>>|
00001d90 3e 32 34 29 3c 3c 32 34 3a 21 43 25 3d 21 43 25 |>24)<<24:!C%=!C%|
00001da0 80 26 46 46 46 46 46 46 3a 21 43 25 3d 21 43 25 |.&FFFFFF:!C%=!C%|
00001db0 84 48 25 0d 04 e2 05 ed 0d 04 ec 38 cd 3a 45 25 |.H%........8.:E%|
00001dc0 3d 21 41 25 3c 3c 34 3a 44 25 3d 46 25 2b 37 32 |=!A%<<4:D%=F%+72|
00001dd0 3a 46 25 3d 31 34 3c 3c 31 32 3a 47 25 3d 46 25 |:F%=14<<12:G%=F%|
00001de0 2b 28 31 3c 3c 32 33 29 3a e7 45 25 3e 36 34 8c |+(1<<23):.E%>64.|
00001df0 0d 04 f6 54 42 25 3d 30 3a e3 43 25 3d 41 25 2b |...TB%=0:.C%=A%+|
00001e00 38 30 b8 41 25 2b 45 25 88 31 36 3a e7 28 21 43 |80.A%+E%.16:.(!C|
00001e10 25 80 31 37 29 3d 31 37 8c 48 25 3d 44 25 2b 28 |%.17)=17.H%=D%+(|
00001e20 28 21 43 25 80 26 46 46 30 30 29 3e 3e 3e 33 29 |(!C%.&FF00)>>>3)|
00001e30 3a e7 28 21 48 25 80 47 25 29 3e 3d 46 25 8c 42 |:.(!H%.G%)>=F%.B|
00001e40 25 2b 3d 34 0d 05 00 0a ed 3a e7 42 25 8c 0d 05 |%+=4.....:.B%...|
00001e50 0a 0c e7 42 31 25 3d 31 34 8c 0d 05 14 66 de 43 |...B1%=14....f.C|
00001e60 25 20 42 25 2a 37 2b 33 3a f2 73 42 28 43 25 2c |% B%*7+3:.sB(C%,|
00001e70 42 25 2a 36 2b 34 2c 2d 31 29 3a 41 25 21 36 34 |B%*6+4,-1):A%!64|
00001e80 3d 43 25 3a 21 43 25 3d 42 25 3a 42 25 2b 3d 43 |=C%:!C%=B%:B%+=C|
00001e90 25 2b 34 3a 47 31 25 3d 30 3a e3 45 25 3d 41 25 |%+4:G1%=0:.E%=A%|
00001ea0 2b 38 30 b8 41 25 2b 28 21 41 25 3c 3c 34 29 88 |+80.A%+(!A%<<4).|
00001eb0 31 36 3a e7 28 21 45 25 80 31 37 29 3d 31 37 8c |16:.(!E%.17)=17.|
00001ec0 0d 05 1e 2a 48 25 3d 44 25 2b 28 28 21 45 25 80 |...*H%=D%+((!E%.|
00001ed0 26 46 46 30 30 29 3e 3e 3e 33 29 3a e7 28 21 48 |&FF00)>>>3):.(!H|
00001ee0 25 80 47 25 29 3e 3d 46 25 8c 0d 05 28 33 43 24 |%.G%)>=F%...(3C$|
00001ef0 3d 24 28 45 25 2d 31 32 29 3a e7 43 24 3c 3e 22 |=$(E%-12):.C$<>"|
00001f00 22 80 43 24 3c 3e 22 6e 6f 4e 61 6d 65 22 80 43 |".C$<>"noName".C|
00001f10 24 3c 3e 22 4e 6f 5f 4e 61 6d 65 22 8c 0d 05 32 |$<>"No_Name"...2|
00001f20 16 e7 a7 43 24 2c 22 5f 22 29 3d 30 8c 43 24 2b |...C$,"_")=0.C$+|
00001f30 3d 7a 24 0d 05 3c 8e f2 63 49 56 28 43 24 2c 42 |=z$..<..cIV(C$,B|
00001f40 25 29 3a 21 42 25 3d 48 25 21 34 3a 21 28 42 25 |%):!B%=H%!4:!(B%|
00001f50 2b 21 43 25 29 3d 45 25 2d 31 32 3a 21 28 42 25 |+!C%)=E%-12:!(B%|
00001f60 2b 28 21 43 25 3c 3c 31 29 29 3d 48 25 21 31 32 |+(!C%<<1))=H%!12|
00001f70 3a 21 28 42 25 2b 35 2a 21 43 25 29 3d 21 45 25 |:!(B%+5*!C%)=!E%|
00001f80 3e 3e 3e 38 80 26 46 46 3a e7 28 21 48 25 80 26 |>>>8.&FF:.(!H%.&|
00001f90 46 31 30 31 29 3e 3d 26 45 31 30 31 8c 21 28 42 |F101)>=&E101.!(B|
00001fa0 25 2b 34 2a 21 43 25 29 3d 47 31 25 3a 47 31 25 |%+4*!C%)=G1%:G1%|
00001fb0 2b 3d a4 61 6c 69 67 6e 28 48 25 21 31 32 2b 31 |+=.align(H%!12+1|
00001fc0 29 0d 05 46 09 42 25 2b 3d 34 0d 05 50 05 cd 0d |)..F.B%+=4..P...|
00001fd0 05 5a 16 cd 3a 21 48 25 3d 21 48 25 80 ac 28 31 |.Z..:!H%=!H%..(1|
00001fe0 3c 3c 32 33 29 0d 05 64 51 cd 3a ed 3a f2 63 42 |<<23)..dQ.:.:.cB|
00001ff0 28 43 25 2b 21 43 25 2b 34 2c 43 25 2b 34 2c 21 |(C%+!C%+4,C%+4,!|
00002000 43 25 29 3a 42 25 3d 43 25 2b 34 2a 21 43 25 2b |C%):B%=C%+4*!C%+|
00002010 34 3a e3 45 25 3d 41 25 2b 38 30 b8 41 25 2b 28 |4:.E%=A%+80.A%+(|
00002020 21 41 25 3c 3c 34 29 88 31 36 3a e7 28 21 45 25 |!A%<<4).16:.(!E%|
00002030 80 34 29 3d 34 8c 0d 05 6e 4f e3 42 25 3d 43 25 |.4)=4...nO.B%=C%|
00002040 2b 36 2a 21 43 25 2b 34 b8 43 25 2b 37 2a 21 43 |+6*!C%+4.C%+7*!C|
00002050 25 88 34 3a e7 21 42 25 3d 21 45 25 3e 3e 3e 38 |%.4:.!B%=!E%>>>8|
00002060 80 26 46 46 8c 21 28 42 25 2d 28 21 43 25 3c 3c |.&FF.!(B%-(!C%<<|
00002070 31 29 29 3d 45 25 2d 31 32 3a 42 25 3d 43 25 2b |1))=E%-12:B%=C%+|
00002080 37 2a 21 43 25 0d 05 78 05 ed 0d 05 82 32 cd 3a |7*!C%..x.....2.:|
00002090 ed 3a e3 42 25 3d 43 25 2b 34 2a 21 43 25 2b 34 |.:.B%=C%+4*!C%+4|
000020a0 b8 43 25 2b 35 2a 21 43 25 88 34 3a e7 21 42 25 |.C%+5*!C%.4:.!B%|
000020b0 3c 26 38 30 30 30 8c 21 42 25 3d 30 0d 05 8c 05 |<&8000.!B%=0....|
000020c0 ed 0d 05 96 67 cc de 43 25 20 28 42 25 3c 3c 31 |....g..C% (B%<<1|
000020d0 29 2b 33 3a f2 73 42 28 43 25 2c 28 42 25 3c 3c |)+3:.sB(C%,(B%<<|
000020e0 31 29 2b 34 2c 2d 31 29 3a 41 25 21 36 34 3d 43 |1)+4,-1):A%!64=C|
000020f0 25 3a 21 43 25 3d 42 25 3a 42 25 2b 3d 43 25 2b |%:!C%=B%:B%+=C%+|
00002100 34 3a e3 45 25 3d 41 25 2b 38 30 b8 41 25 2b 28 |4:.E%=A%+80.A%+(|
00002110 21 41 25 3c 3c 34 29 88 31 36 3a e7 28 21 45 25 |!A%<<4).16:.(!E%|
00002120 80 31 37 29 3d 31 37 8c 0d 05 a0 2a 48 25 3d 44 |.17)=17....*H%=D|
00002130 25 2b 28 28 21 45 25 80 26 46 46 30 30 29 3e 3e |%+((!E%.&FF00)>>|
00002140 3e 33 29 3a e7 28 21 48 25 80 47 25 29 3e 3d 46 |>3):.(!H%.G%)>=F|
00002150 25 8c 0d 05 aa 33 43 24 3d 24 28 45 25 2d 31 32 |%....3C$=$(E%-12|
00002160 29 3a e7 43 24 3c 3e 22 22 80 43 24 3c 3e 22 6e |):.C$<>"".C$<>"n|
00002170 6f 4e 61 6d 65 22 80 43 24 3c 3e 22 4e 6f 5f 4e |oName".C$<>"No_N|
00002180 61 6d 65 22 8c 0d 05 b4 16 e7 a7 43 24 2c 22 5f |ame".......C$,"_|
00002190 22 29 3d 30 8c 43 24 2b 3d 7a 24 0d 05 be 1e f2 |")=0.C$+=z$.....|
000021a0 63 49 56 28 43 24 2c 42 25 29 3a 21 42 25 3d 48 |cIV(C$,B%):!B%=H|
000021b0 25 21 34 3a 42 25 2b 3d 34 0d 05 c8 05 cd 0d 05 |%!4:B%+=4.......|
000021c0 d2 16 cd 3a 21 48 25 3d 21 48 25 80 ac 28 31 3c |...:!H%=!H%..(1<|
000021d0 3c 32 33 29 0d 05 e6 1e cd 3a ed 3a f2 63 42 28 |<23).....:.:.cB(|
000021e0 43 25 2b 21 43 25 2b 34 2c 43 25 2b 34 2c 21 43 |C%+!C%+4,C%+4,!C|
000021f0 25 29 0d 05 f0 05 cd 0d 05 fa 05 cd 0d 06 04 05 |%)..............|
00002200 cd 0d 06 0e 08 cd 3a 3d a3 0d 06 18 92 dd f2 69 |......:=.......i|
00002210 46 64 28 41 24 2c 48 25 29 3a ea 41 25 2c 42 25 |Fd(A$,H%):.A%,B%|
00002220 2c 43 25 2c 44 25 2c 45 25 2c 46 25 2c 46 24 2c |,C%,D%,E%,F%,F$,|
00002230 47 25 3a 41 25 3d 53 25 21 33 32 3a 21 51 25 3d |G%:A%=S%!32:!Q%=|
00002240 30 3a 51 25 21 34 3d 30 3a 51 25 21 38 3d 30 3a |0:Q%!4=0:Q%!8=0:|
00002250 51 25 21 31 32 3d 48 25 3a 44 25 3d 51 25 2b 31 |Q%!12=H%:D%=Q%+1|
00002260 36 3a e3 42 25 3d 41 25 2b 35 32 b8 41 25 2b 32 |6:.B%=A%+52.A%+2|
00002270 38 2b 32 34 2a 41 25 21 31 36 88 32 34 3a 43 25 |8+24*A%!16.24:C%|
00002280 3d 21 42 25 3a e7 21 43 25 3e 34 80 28 43 25 21 |=!B%:.!C%>4.(C%!|
00002290 38 30 80 32 35 35 29 3d 33 32 8c 0d 06 22 65 21 |80.255)=32..."e!|
000022a0 44 25 3d 43 25 21 37 32 3e 3e 3e 38 80 26 33 46 |D%=C%!72>>>8.&3F|
000022b0 46 46 3a 44 25 21 34 3d 43 25 21 37 36 3a 44 25 |FF:D%!4=C%!76:D%|
000022c0 21 38 3d 43 25 21 36 38 80 26 46 46 46 46 46 46 |!8=C%!68.&FFFFFF|
000022d0 3a 24 28 44 25 2b 31 36 29 3d 24 28 42 25 2d 32 |:$(D%+16)=$(B%-2|
000022e0 30 29 3a 51 25 21 38 2b 3d 31 3a 45 25 3d 43 25 |0):Q%!8+=1:E%=C%|
000022f0 21 36 38 3e 3e 3e 32 34 80 37 3a c8 8e 45 25 ca |!68>>>24.7:..E%.|
00002300 0d 06 2c 27 c9 31 3a 44 25 21 31 32 3d 31 3a 51 |..,'.1:D%!12=1:Q|
00002310 25 21 34 3d 51 25 21 34 84 31 3a 44 25 21 38 3d |%!4=Q%!4.1:D%!8=|
00002320 44 25 21 38 2b 35 36 0d 06 36 a2 c9 32 3a 44 25 |D%!8+56..6..2:D%|
00002330 21 31 32 3d 32 3a 51 25 21 34 3d 51 25 21 34 84 |!12=2:Q%!4=Q%!4.|
00002340 32 3a 44 25 2b 3d 32 38 3a 21 44 25 3d 43 25 21 |2:D%+=28:!D%=C%!|
00002350 38 30 3e 3e 3e 38 80 26 33 46 46 46 3a 44 25 21 |80>>>8.&3FFF:D%!|
00002360 34 3d 43 25 21 37 36 3a 44 25 21 34 3d 44 25 21 |4=C%!76:D%!4=D%!|
00002370 34 80 ac 32 35 35 3a 44 25 21 34 3d 44 25 21 34 |4..255:D%!4=D%!4|
00002380 84 31 3a 44 25 21 34 3d 44 25 21 34 84 28 31 3c |.1:D%!4=D%!4.(1<|
00002390 3c 31 31 29 3a 44 25 21 38 3d 43 25 21 36 38 80 |<11):D%!8=C%!68.|
000023a0 26 46 46 46 46 46 46 3a 44 25 21 31 32 3d 32 3a |&FFFFFF:D%!12=2:|
000023b0 24 28 44 25 2b 31 36 29 3d 24 28 42 25 2d 32 30 |$(D%+16)=$(B%-20|
000023c0 29 3a 51 25 21 38 2b 3d 31 0d 06 40 70 c9 33 3a |):Q%!8+=1..@p.3:|
000023d0 44 25 21 31 32 3d 34 3a 51 25 21 34 3d 51 25 21 |D%!12=4:Q%!4=Q%!|
000023e0 34 84 34 3a 46 25 3d a4 61 52 28 43 25 29 2b 38 |4.4:F%=.aR(C%)+8|
000023f0 38 3a 47 25 3d 30 3a e3 48 25 3d 46 25 2b 31 36 |8:G%=0:.H%=F%+16|
00002400 b8 46 25 2b 28 46 25 21 2d 34 3c 3c 35 29 88 33 |.F%+(F%!-4<<5).3|
00002410 32 3a e7 28 21 48 25 80 26 46 31 30 31 29 3e 3d |2:.(!H%.&F101)>=|
00002420 26 45 31 30 31 8c 47 25 2b 3d a4 61 6c 69 67 6e |&E101.G%+=.align|
00002430 28 48 25 21 31 32 2b 31 29 0d 06 4a 70 ed 3a 44 |(H%!12+1)..Jp.:D|
00002440 25 21 38 3d 47 25 3a 44 25 2b 3d 32 38 3a 21 44 |%!8=G%:D%+=28:!D|
00002450 25 3d 43 25 21 38 30 3e 3e 3e 38 80 26 33 46 46 |%=C%!80>>>8.&3FF|
00002460 46 3a 44 25 21 34 3d 43 25 21 37 36 3a 44 25 21 |F:D%!4=C%!76:D%!|
00002470 34 3d 44 25 21 34 80 ac 28 32 35 35 3c 3c 38 29 |4=D%!4..(255<<8)|
00002480 3a 44 25 21 38 3d 30 3a 44 25 21 31 32 3d 34 3a |:D%!8=0:D%!12=4:|
00002490 24 28 44 25 2b 31 36 29 3d 24 28 42 25 2d 32 30 |$(D%+16)=$(B%-20|
000024a0 29 3a 51 25 21 38 2b 3d 31 0d 06 54 1a c9 34 3a |):Q%!8+=1..T..4:|
000024b0 44 25 21 31 32 3d 38 3a 51 25 21 34 3d 51 25 21 |D%!12=8:Q%!4=Q%!|
000024c0 34 84 38 0d 06 5e 0c cb 3a 44 25 2b 3d 32 38 0d |4.8..^..:D%+=28.|
000024d0 06 68 df cd 3a ed 3a c8 95 41 24 3c 3e 22 22 3a |.h..:.:..A$<>"":|
000024e0 46 24 3d a4 70 53 28 41 24 2c 22 2c 22 29 3a 21 |F$=.pS(A$,","):!|
000024f0 44 25 3d a4 76 61 6c 28 46 24 29 3a 46 24 3d a4 |D%=.val(F$):F$=.|
00002500 70 53 28 41 24 2c 22 2c 22 29 3a e7 46 24 3d 22 |pS(A$,","):.F$="|
00002510 27 27 22 8c 44 25 21 34 3d 44 25 21 2d 32 34 3a |''".D%!4=D%!-24:|
00002520 44 25 21 38 3d 44 25 21 2d 32 30 3a 44 25 21 31 |D%!8=D%!-20:D%!1|
00002530 32 3d 44 25 21 2d 31 36 3a 24 28 44 25 2b 31 36 |2=D%!-16:$(D%+16|
00002540 29 3d 24 28 44 25 2d 31 32 29 8b 44 25 21 34 3d |)=$(D%-12).D%!4=|
00002550 a4 76 61 6c 28 46 24 29 3a 46 24 3d a4 70 53 28 |.val(F$):F$=.pS(|
00002560 41 24 2c 22 2c 22 29 3a 44 25 21 38 3d a4 76 61 |A$,","):D%!8=.va|
00002570 6c 28 46 24 29 3a 46 24 3d a4 70 53 28 41 24 2c |l(F$):F$=.pS(A$,|
00002580 22 2c 22 29 3a 44 25 21 31 32 3d a4 76 61 6c 28 |","):D%!12=.val(|
00002590 46 24 29 3a 46 24 3d a4 70 53 28 41 24 2c 22 2c |F$):F$=.pS(A$,",|
000025a0 22 29 3a 24 28 44 25 2b 31 36 29 3d 46 24 0d 06 |"):$(D%+16)=F$..|
000025b0 72 57 51 25 21 38 2b 3d 31 3a 44 25 2b 3d 32 38 |rWQ%!8+=1:D%+=28|
000025c0 3a ce 3a e7 51 25 21 38 3e 30 8c de 42 25 51 25 |:.:.Q%!8>0..B%Q%|
000025d0 21 38 2a 32 38 2b 31 35 3a 21 42 25 3d 53 25 21 |!8*28+15:!B%=S%!|
000025e0 38 38 3a 53 25 21 38 38 3d 42 25 3a f2 63 42 28 |88:S%!88=B%:.cB(|
000025f0 51 25 2b 34 2c 42 25 2b 34 2c 51 25 21 38 2a 32 |Q%+4,B%+4,Q%!8*2|
00002600 38 2b 31 36 29 0d 06 7c 05 e1 0d 06 86 39 dd a4 |8+16)..|.....9..|
00002610 69 4d 73 67 28 41 24 28 29 2c 42 25 29 3a ea 43 |iMsg(A$(),B%):.C|
00002620 25 3a 43 25 3d 30 3a f5 3a 41 24 28 43 25 29 3d |%:C%=0:.:A$(C%)=|
00002630 be 23 42 25 3a 43 25 2b 3d 31 3a fd c5 23 42 25 |.#B%:C%+=1:..#B%|
00002640 3a 3d a3 0d ff |:=...|
00002645 
.