Home » Archimedes archive » Archimedes World » AW-1994-11-Disc2.adf » Disk2Nov94 » !AWNov94/Goodies/UNCFS/!UnCFS/!RunImage

!AWNov94/Goodies/UNCFS/!UnCFS/!RunImage

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

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

Tape/disk: Home » Archimedes archive » Archimedes World » AW-1994-11-Disc2.adf » Disk2Nov94
Filename: !AWNov94/Goodies/UNCFS/!UnCFS/!RunImage
Read OK:
File size: 8552 bytes
Load address: 0000
Exec address: 0000
File contents
    1REM>!RunImage
    2REMProduced by BasCompress v1.31 (18 Jan 1993)
    3DIMM$(3):M$()="|","iconsprites","stripcfs","forcecfs":y$="uncfs":PROCd_("UnCFS",FALSE):END
    4DEFPROCR_(M%)ENDPROC
    5DEFPROCPyLOCALQ%:!a=TRUE:!w=FALSE:!_=TRUE:!O=TRUE:SYS&2001e,18,"CFSUtil"+CHR$(0)TO;Q%:IFFNF(Q%)THEN
    6IFFNG(2,FNS(15))
    7ENDIF:ENDPROC
    8DEFFNDy(E%,E$,N%)LOCALG%,l_%:PROCD(E$):G%=FALSE:l_%=TRUE:CASETRUEOF
    9WHENFNN(E$,Z$(N%)):l_%=FALSE
   10WHENFNW<>Jy
   11WHENFNN("CFS#"+E$,Z$(N%))
   12WHENFNW<>E%(N%)
   13OTHERWISEG%=TRUE
   14ENDCASE:IFl_%THEN
   15PROCn(E%)
   16ENDIF:=G%
   17DEFPROCv(E%,E$,C$,N$)LOCALX%,D%,J%,g%,Wy%,Ay%,M$,Q%:PROCD(E$):E$+="."+C$:PROCU(E%,E$):M$="CFS#"+E$:SYS8,5,M$TO,,g%,Wy%,D%,Ay%:IF(Ay%AND1)=0THEN
   18PROCz(E%,8,M$)
   19ELSEIFFNP(X%,D%+1)THEN
   20PROCO(E%,FALSE)
   21ELSELOCALERROR:ONERRORLOCALRESTOREERROR:PROCZ(X%):PROCH
   22LOCALERROR:ONERRORLOCALRESTOREERROR:PROCl(E%,X%,M$):ENDPROC
   23PROCf(M$,X%):RESTOREERROR:IFFNj(X%,D%,N$)THEN
   24N$=""
   25ENDIF:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCu(E%,X%,M$):ENDPROC
   26SYS13,139,E$TOJ%:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCRy(J%,M$,g%,Wy%,X%,D%,Ay%)
   27IFN$<>""THEN
   28SYS12,2,J%,N$,LEN(N$)
   29ENDIF:SYS12,2,J%,X%,D%:RESTOREERROR:CLOSE#J%:SYS8,1,E$,g%,Wy%,,Ay%:RESTOREERROR:PROCO(E%,TRUE):RESTOREERROR:PROCZ(X%)
   30ENDIF
   31ENDIF:ENDPROC
   32DEFFNj(ly%,D%,RETURNN$)LOCALG%:IFN$=""THEN
   33G%=FALSE
   34ELSEG%=D%>=LEN(N$):N%=1:WHILEN%<=LEN(N$)ANDG%:G%=(ASC(MID$(N$,N%,1))=ly%?(N%-1)):N%+=1:ENDWHILE
   35ENDIF:=G%
   36DEFPROCjy(E%,E$)E%!W=-2:PROCD(E$):E$="CFS#"+E$:CASETRUEOF
   37WHENFNN(E$,"!Boot")
   38WHENFNW<>f
   39OTHERWISEPROCn(E%):PROCq_(E%,E$)
   40ENDCASE:ENDPROC
   41DEFPROCq_(E%,c$)LOCALX%,D%,J%,g%,Wy%,Ay%,Q%,M$:PROCD(c$):E$=c$+".!Boot":PROCU(E%,E$):M$="CFS#"+E$:SYS8,5,M$TO,,g%,Wy%,D%,Ay%:IF(Ay%AND1)=0THEN
   42PROCz(E%,8,E$)
   43ELSEIFFNP(X%,D%+1)THEN
   44PROCO(E%,FALSE)
   45ELSELOCALERROR:ONERRORLOCALRESTOREERROR:PROCZ(X%):PROCH
   46LOCALERROR:ONERRORLOCALRESTOREERROR:PROCl(E%,X%,M$):ENDPROC
   47PROCf(M$,X%):RESTOREERROR:IFFNHy(X%,D%)THEN
   48IFNOTFNo(E%,c$)THEN
   49LOCALERROR:ONERRORLOCALRESTOREERROR:PROCu(E%,X%,E$):ENDPROC
   50SYS8,6,E$:RESTOREERROR:PROCO(E%,TRUE)
   51ENDIF
   52ENDIF:RESTOREERROR:PROCZ(X%)
   53ENDIF
   54ENDIF:PROCU(E%,""):ENDPROC
   55DEFFNHy(ly%,D%)LOCALf%,G%,Q$,N%:f%=0:G%=f%<D%:WHILEG%ANDFNt(ly%,D%,f%,Q$):N%=DIM(M$(),1):WHILEG%ANDN%>=0:G%=(INSTR(Q$,M$(N%))<>1):N%-=1:ENDWHILE:G%=NOTG%:ENDWHILE:=G%
   56DEFFNt(ly%,D%,RETURNf%,RETURNQ$)REPEATQ$="":WHILEf%<D%ANDFNXy(ly%?f%):f%+=1:ENDWHILE:WHILEf%<D%AND(NOTFNd(ly%?f%)):Q$+=FNFy(ly%?f%):f%+=1:ENDWHILE:UNTIL(Q$="")OR(ASC(Q$)<>ASC("|")):=Q$<>""
   57DEFFNXy(Q%)LOCALG%:G%=TRUE:CASEQ%OF
   58WHENASC"*"
   59WHENASC" "
   60WHEN9
   61OTHERWISEG%=FNd(Q%)
   62ENDCASE:=G%
   63DEFFNd(Q%)=((Q%=10)OR(Q%=13))
   64DEFFNFy(Q%)IFQ%>=ASC("A")ANDQ%<=ASC("Z")THEN
   65Q%+=ASC("a")-ASC("A")
   66ENDIF:=CHR$(Q%)
   67DEFPROCI_LOCALF%,N%,F_%:F_%=0:FORN%=0TODIM(A$(),1):SYS46,280,e%,A$(N%):IFF_%<LEN(A$(N%))THENF_%=LEN(A$(N%))
   68NEXTN%:DIMf_%F_%+2:p=0:F%=FNA(512):F%!0=-1:F%!4=0:F%!8=0:F%!12=68:F%!16=68:F%!20=12674:F%!24=f_%:$f_%=A$(p)+CHR$(0):F%!28=e%:F%!32=F_%+1:SYS&400c2,,F%TOV_%:PROCC(F%,512):ENDPROC
   69DEFFNo(E%,E$)LOCALG%,M$,g%,Wy%,D%,Ay%:M$="CFS#"+E$:CASETRUEOF
   70WHENFNN(M$,"!Run")
   71WHENFNW=f:G%=FNEy(E%,M$+".!Run")
   72ENDCASE:=G%
   73DEFFNEy(E%,M$)LOCALG%,D%,Ay%,X%:LOCALf%,Q$,N%:SYS8,5,M$TO,,,,D%,Ay%:IFAy%AND1THEN
   74IFFNP(X%,D%+1)=0THEN
   75LOCALERROR:ONERRORLOCALRESTOREERROR:PROCZ(X%):PROCH
   76PROCf(M$,X%):f%=0:G%=f%<D%:WHILEG%ANDFNt(X%,D%,f%,Q$):G%=G%AND(INSTR(Q$,"!boot")=0):ENDWHILE:G%=NOTG%:RESTOREERROR:PROCZ(X%)
   77ENDIF
   78ENDIF:=G%
   79DEFPROCAyCASEW%!16OF
   80WHEN1282:PROCN_
   81WHEN&400c0:PROCS_
   82WHEN3:PROCf_
   83WHEN&400c1:PROCSy
   84WHEN8:PROCIy
   85WHEN&400cc:PROCmy
   86WHEN10:PROCO_
   87WHEN0:PROCS
   88ENDCASE:ENDPROC
   89DEFPROCw_SYS&400c5,,W%:ENDPROC
   90DEFPROCiySYS&400c6,,W%:ENDPROC
   91DEFPROCb_IF!W%=V%THEN
   92PROCM_(W%!4,W%!24)
   93ELSESYS&400dc,W%!24
   94ENDIF:ENDPROC
   95DEFPROCtyLOCALQJ%,IJ%:IJ%=TRUE:REPEATSYS&400c7,Oy%,W%TOQJ%:CASEQJ%OF
   96WHEN0:PROCt_
   97WHEN2:PROCw_
   98WHEN3:PROCiy
   99WHEN6:PROCD_
  100WHEN8:PROCb_
  101WHEN9:PROCr_
  102WHEN17:PROCAy
  103WHEN18:PROCH_
  104ENDCASE:UNTILNOT(IJ%):ENDPROC
  105DEFPROC_yLOCALa%,SJ%,Z$:LOCALDATA:RESTORE+0:IFZ_%THEN
  106a%=!(FNC("ProgInfo")+F+88+(By<<5)+20)
  107ELSEa%=FNl(s%,By)
  108ENDIF:READZ$:SJ%=ASC(Z$):Z$=MID$(Z$,2):WHILEZ$<>"":?a%=ASC(Z$)EORSJ%:Z$=MID$(Z$,2):a%+=1:ENDWHILE:?a%=0
  109DATA"�����������",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  110ENDPROC
  111DEFPROCU_SYS&465c6,Y%,j%:SYS&dcb8d,ty,!j%,-1:ENDPROC
  112DEFPROCx_DIMj%4:!j%=0:PROCT("ShareWare",+1,""):IFFN_("ShareWare",j%,VJ%)
  113ENDPROC
  114DEFPROCd_(f$,Qy%)ONERRORPROCx
  115PROCTy(20,12):Vy%=-2:sy%=FALSE:Uy%=FALSE:Uy%=FALSE:sy%=TRUE:Vy%=-3:PROCA("<BasicV$Lib>.CAsm",1):PROCA("<BasicV$Lib>.Template",21):O_%=sy%:i%=+1
  116AJ%=TRUE:ky%=0:`y%=0:PROCT_("stdio, stdlib, string, message, wimp"):PROCky(2000,FALSE,FALSE):PROCA("<BasicV$Lib>.ModeInfo",1):PROCA("<BasicV$Lib>.Wimp",28)
  117PROCA("<BasicV$Lib>.FileType",2):PROCA("<BasicV$Lib>.file_io",9):PROCA("<BasicV$Lib>.string",6):m%=FNg("<UnCFS$Dir>",-1,D_%):IFD_%>0THEN
  118ERROR!m%,"UnCFS can't load its' message file: "+FNU(m%+4)
  119ENDIF:IFQy%THENQy%=2ELSEQy%=1
  120PROC_("Patching",Qy%):PROC_("patching",Qy%):PROC_("patched",Qy%):PROC_("patch",Qy%):b$="ForceCFS"+CHR$(10):NJ%=0:XJ%=1:dJ%=2:FJ%=0:j_%=0:v_%=1:t_%=2:z_%=3:x_%=4:UJ%=6:BJ%=7:JJ%=8:oJ%=9:Xy=60-1:u=2:v=4:X=5:U=7:H=9:V=11:Y=13:P=14
  121Oy=17:Q=18:Zy%=0:DIMZ$(5):Z$()="!Boot","!Run","!Sprites22","!Sprites23","!Sprites33","!Sprites32":DIME%(DIM(Z$(),1)):E%()=f,f,b,b,b,b:DIMA$(1):A$()="!uncfs","busy":Wu%=FALSE:Z_%=TRUE:n%=TRUE:U$="&502,&400c0,3,&400c1,8,&400cc,10":PROCYy(f$,1,20,23,7,1994):Uy%=sy%:PROCDy:PROCU_
  122ONERRORPROCx
  123PROCvy:REPEATPROCty:UNTILFALSE:END:ENDPROC
  124DEFPROCrLOCALuy,y:t=0<<2:T=1<<2:J=2<<2:E=3<<2:q=4<<2:s=5<<2:R=6<<2:K=7<<2:S=8<<2:n=9<<2:G=10<<2:W=12<<2:Fy=13<<2:Sy=14<<2:Ly=15<<2:Vy=16<<2:M=17<<2:r=18<<2:Zy=19<<2:Uy=0<<2:Hy=1<<2:o=2<<2:L=3<<2:D=0:I=1:B=2:x=3:d=4:C=5:[OPTU%:ALIGN
  125.uy EQUS"[0,w>,>,>":DCB0:.Ky EQUS"[100,<t>":DCB0:ALIGN:.y DCD0:.a DCD0:.w DCD0:._ DCD0:.O DCD0:ALIGN:.gy:FNJ:STMFD(A)!,{4-9,Z}:MOV1,#0:ADR0,uy:BL Wy:STRvc0,y
  126ADRvc0,y:LDMFD(A)!,{4-9,pc}:.Ty:FNJ:STMFD(A)!,{4-9,Z}:LDR0,[0,#M]:STMFD(A)!,{0}:MOV1,#0:ADR0,Ky:BL Wy:ADD A,A,#1<<2:STRvc0,y:ADRvc0,y:LDMFD(A)!,{4-9,pc}:]:PROCL_:ENDPROC
  127DEFPROCjENDPROC
  128DEFPROCa_:ty%=-12314:PROCT("FConvert",+1,"StatusW"):PROCT("Choices",+1,"ChoicesW"):V%=0:vu%=0:PROCx_:PROC_y:ENDPROC
  129DEFFNStatusW(M%)PROCR_(M%):OJ%=M%!16:qJ%=M%!20:bJ%=M%!8-M%!0:MJ%=M%!12-M%!4:o_%=M%!48-M%!40:Y_%=M%!52-M%!44:PROCP(M%,X,FNE("None"))
  130PROCP(M%,X+1,FNE("FScan0")):PROCP(M%,U,FNE("None")):PROCP(M%,U+1,FNE("FConv0")):PROCP(M%,H,FNE("None")):PROCP(M%,H+1,FNE("AScan0")):PROCP(M%,V,FNE("None"))
  131PROCP(M%,V+1,FNE("AConv0")):PROCP(M%,v,""):PROCP(M%,u,""):PROCP(M%,Y,FNE("Abrt")):PROCP(M%,v-1,FNE("Patching")):PROCs(M%!72,LEFT$(FNE("Title"),M%!80-1)):=0
  132DEFFNChoicesW(M%)PROCs(M%!72,LEFT$(FNE("Choices"),M%!80-1)):=0
  133DEFPROCP(M%,N%,Y$)N%=M%+88+(N%*32):PROCs(N%!20,LEFT$(Y$,N%!28-1)):ENDPROC
  134DEFPROCB_(c%,b%,_%,T%)c%=FNG(1,FNS(2)):ENDPROC
  135DEFFNf(M%,RETURNE%)LOCALjy%:CASEM%OF
  136WHEN-2
  137WHENs%
  138WHEN!j%
  139WHENV%
  140OTHERWISEE%=Zy%:jy%=FALSE:WHILEE%ANDNOTjy%:jy%=(M%=E%!E):IFNOTjy%THENE%=E%!T
  141ENDWHILE:IFjy%THEN
  142M%=ty%
  143ENDIF
  144ENDCASE:=M%
  145DEFPROCN_LOCALA$,q%,T%,A%,N%,X%,E%:A$="":T%=W%!36:CASEFNf(W%!32,E%)OF
  146WHEN-2:IFT%=V_%THEN
  147A$="IconBar"
  148ENDIF
  149WHENs%:A$="ProgInfo"
  150WHEN!j%:A$="ShareWare"
  151WHENV%:A$="Choices":IFT%>=0THEN
  152A$+=","+STR$(T%)
  153ENDIF
  154WHENty%:A$="Status":IFT%THEN
  155A$+=","+STR$(T%)
  156ENDIF:CASEE%!SOF
  157WHENB,D,I:A$+=",P"
  158WHENC:A$+=",S"
  159WHENx:A$+=",C"
  160WHENd:A$+=",D"
  161ENDCASE
  162OTHERWISEIF(U_%>218)AND(W%!36<>-1)THEN
  163A$=FNCy
  164ENDIF
  165ENDCASE:IFA$<>""THEN
  166PROCo("H"+A$,W%+20):IFW%?20THEN
  167W%!16=1283:W%!12=W%!8:A%=W%+20:WHILE?A%:A%+=1:ENDWHILE:IFA%>=(W%+256)THENA%=W%+255:?A%=0
  168W%!0=(A%-W%+4)AND-4:SYS&400e7,17,W%,W%!4
  169ENDIF
  170ENDIF:ENDPROC
  171DEFFNCyLOCALA$,M%:M%=W%+40:SYS&400f4,1,M%,W%!32,W%!36:CASESy%OF
  172WHENxy%:A$="I"
  173WHENpy%:A$="D"
  174ENDCASE:IFA$<>""THEN
  175A$="M"+A$+STR$(!M%):WHILEM%!4<>-1:M%+=4:A$+="_,"+STR$(!M%):ENDWHILE
  176ENDIF:=A$
  177DEFPROCSyPROCqy(-1):SYS&465c2,Y%:PROCsy:ENDPROC
  178DEFPROCSONERROR:ONERROROFF:ERROREXT1,"Error in error handler: "+REPORT$
  179PROCHy:PROCQ_:CALLi:SYS&400dd:END:ENDPROC
  180DEFPROCv_IFFNwTHEN
  181PROCS
  182ENDIF:ENDPROC
  183DEFFNwLOCALqy%,E%:qy%=TRUE:E%=Zy%:WHILEE%ANDqy%:qy%=(E%!S=d):E%=E%!T:ENDWHILE:IFNOTqy%THEN
  184qy%=(FNG(3,FNS(5))=1)
  185ENDIF:=qy%
  186DEFPROCIyIFFNwTHEN
  187PROCS
  188ELSEW%!12=W%!8:Iu%=W%!4:SYS&400e7,19,W%,W%!4
  189ENDIF:ENDPROC
  190DEFPROCD_LOCALc%,b%,_%,M%,T%,F_%,X%,E%:c%=W%!0:b%=W%!4:_%=W%!8:M%=FNf(W%!12,E%):T%=W%!16:CASE_%OF
  191WHEN2:CASEM%OF
  192WHEN-2:PROCp:b%=96+(44*HJ%)+(24*kJ%):SYS&400d4,,Iy%,c%-64,b%
  193WHEN!j%:PROCQy
  194WHENty%:PROCk(E%):SYS&400d4,,Iy%,c%-64,b%
  195ENDCASE
  196WHEN1*16,4*16:CASEM%OF
  197WHENs%:PROCNy(c%,b%,_%,T%)
  198ENDCASE
  199OTHERWISECASEM%OF
  200WHEN-2:PROCB_(c%,b%,_%,T%)
  201WHENw_%:PROCry(c%,b%,_%,T%)
  202WHENs%:PROCNy(c%,b%,_%,T%)
  203WHEN!j%:PROCQy
  204WHENty%:PROCK_(E%,T%,_%)
  205WHENV%:PROCby(_%,T%)
  206ENDCASE
  207ENDCASE:ENDPROC
  208DEFPROCQySYS&465c4,Y%,j%:PROCZ(VJ%):!j%=0:ENDPROC
  209DEFPROCKy:Sy%=FALSE:xy%=&1040a31+0:py%=&1040a31+1:ENDPROC
  210DEFPROCpLOCALA%:HJ%=3:kJ%=0:IFky%THENSYS&465c8,Y%,ky%,FALSE
  211A%=USR(gy):Iy%=!A%:ky%=Iy%:SYS&465c7,Y%,ky%:Sy%=xy%:ENDPROC
  212DEFPROCk(E%)LOCALA%:IFE%THEN
  213K_%=E%
  214ENDIF:IF`y%THENSYS&465c8,Y%,`y%,FALSE
  215A%=K_%:A%=USR(Ty):Iy%=!A%:`y%=Iy%:SYS&465c7,Y%,`y%:Sy%=py%:ENDPROC
  216DEFPROCS_LOCALc%,b%,M_%:c%=W%!24:b%=W%!28:M_%=W%!32:CASESy%OF
  217WHENxy%:CASEM_%OF
  218WHENNJ%:PROCFy:IFs%>0THEN
  219PROCE(s%,0,FNE("App")):PROCE(s%,1,FNE("Purpose")):SYS&400e8,,s%,c%,b%
  220ENDIF
  221ENDCASE
  222ENDCASE:ENDPROC
  223DEFPROCr_LOCALM_%,F%,_J%,zJ%,iJ%,A%:F%=FNA(512):SYS&400cf,,F%:_J%=F%!0:zJ%=F%!4:iJ%=F%!8:PROCC(F%,512):M_%=!W%:CASESy%OF
  224WHENxy%:CASEM_%OF
  225WHENXJ%:PROC`y
  226WHENdJ%:PROCv_
  227ENDCASE
  228WHENpy%:CASEM_%OF
  229WHENFJ%:PROCw(K_%)
  230ENDCASE
  231ENDCASE:IFiJ%=1THEN
  232CASESy%OF
  233WHENxy%:PROCp
  234WHENpy%:PROCk(0)
  235ENDCASE:SYS&400d4,,Iy%,_J%,zJ%
  236ELSEPROCh
  237ENDIF:ENDPROC
  238DEFPROChSYS&400d4,,-1:Sy%=FALSE:ENDPROC
  239DEFPROCHERRORERR,FNq:PROCS:ENDPROC
  240DEFFNqLOCALw$:IFsy%THEN
  241w$=REPORT$+" ["+STR$(ERL)+"]"
  242ELSEw$=REPORT$
  243ENDIF:=w$
  244DEFPROCDyLOCALJ%:PROCPy:J%=OPENIN(FNM(Ky%)+".Choices"):IFJ%<>0THEN
  245LOCALERROR:ONERRORLOCALRESTOREERROR:CLOSE#J%:ENDPROC
  246INPUT#J%,!a:INPUT#J%,!w:INPUT#J%,!_:INPUT#J%,!O:RESTOREERROR:CLOSE#J%
  247ENDIF:ENDPROC
  248DEFPROCGyLOCALJ%:J%=OPENOUT(FNM(Ky%)+".Choices"):LOCALERROR:ONERRORLOCALRESTOREERROR:CLOSE#J%:ENDPROC
  249PRINT#J%,!a:PRINT#J%,!w:PRINT#J%,!_:PRINT#J%,!O:RESTOREERROR:CLOSE#J%:ENDPROC
  250DEFPROCByPROCPy:ENDPROC
  251DEFPROCf_IF((W%!20=-2)AND(W%!24=V_%))THEN
  252CASEW%!40OF
  253WHENxy:PROCMy(FNM(W%+44),TRUE):W%!12=W%!8:W%!16=4:SYS&400e7,17,W%,W%!4
  254WHENny:PROCMy(FNM(W%+44),FALSE):W%!12=W%!8:W%!16=4:SYS&400e7,17,W%,W%!4
  255OTHERWISEIFFNG(1,FNS(3))
  256ENDCASE
  257ENDIF:ENDPROC
  258DEFPROCMy(E$,R_%)LOCALE%:PROCD(E$):IFFNP(E%,Zy+LEN(E$)+1)THEN
  259ELSE$(E%+Zy)=E$:E%!J=0:E%!Fy=!a:E%!M=!w:E%!Sy=!_:E%!Ly=!O:E%!E=0:E%!r=FALSE:IFFNIy(E%)THEN
  260PROCZ(E%)
  261ELSEIFZy%=0THENPROCY(1)
  262PROCc_(E%,Zy%):IFFNs(E%,E$,R_%)THEN
  263PROCb(E%)
  264ELSEPROCe(E%)
  265ENDIF
  266ENDIF
  267ENDIF:ENDPROC
  268DEFFN_Null_Reason_uncfs(E%)LOCALG%:SYS&606c0:SYS&20006,229,0,0:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCE_(E%):=TRUE
  269G%=FALSE:REPEATCASEE%!SOF
  270WHENB:PROCZ_(E%)
  271WHEND:PROCfy(E%)
  272WHENI:PROCY_(E%)
  273WHENx,d,C:G%=TRUE
  274ENDCASE:UNTILG%ORE%!Fy:RESTOREERROR:SYS&20006,229,255,0:SYS&606c1:=G%
  275DEFPROCE_(E%)SYS&606c1:SYS&20006,229,255,0:IFERR=17THEN
  276PROCJ(E%,x)
  277ELSEPROCb(E%):PROCV(ERR,FNq)
  278ENDIF:ENDPROC
  279DEFPROCZ_(E%)LOCALG%,I%,E$:G%=FALSE:I%=E%!J:IFI%THEN
  280E$=$(I%+L):IFFNO(E$,"*",I%!Uy)THEN
  281IFFNWyTHEN
  282IFFNs(E%,E$+"."+FNQ,ASC(FNQ)=ASC("!"))THEN
  283G%=FNV(E%)
  284ENDIF
  285ENDIF
  286ELSEG%=FNV(E%)
  287ENDIF
  288ELSEG%=TRUE
  289ENDIF:IFG%THEN
  290IFE%!S<>CTHEN
  291PROCJ(E%,d)
  292ENDIF
  293ENDIF:ENDPROC
  294DEFPROCfy(E%)LOCALG%,I%,E$:G%=TRUE:I%=E%!J:E$=$(I%+L):WHILEE%!G<DIM(Z$(),1)ANDG%AND(E%!S<>C):IFFNDy(E%,E$,E%!G)THEN
  295IFE%(E%!G)=fTHEN
  296PROCv(E%,E$,Z$(E%!G),b$)
  297ELSEPROCv(E%,E$,Z$(E%!G),"")
  298ENDIF:G%=FALSE
  299ENDIF:E%!G+=1:ENDWHILE:IFG%THEN
  300IFE%!S=DTHEN
  301IFE%!SyTHEN
  302PROCJ(E%,I):E%!W=0
  303ELSEPROCJ(E%,B)
  304ENDIF
  305ENDIF
  306ENDIF:ENDPROC
  307DEFPROCY_(E%)LOCALG%,I%,E$:G%=TRUE:I%=E%!J:E$=$(I%+L):WHILEE%!W<>-1ANDG%ANDE%!S<>C:IFFNPy(E$,E%!W)THEN
  308PROCv(E%,E$,FNQ,""):G%=FALSE
  309ENDIF:ENDWHILE:IF(E%!Ly<>0)ANDG%AND(E%!W=-1)THEN
  310IFI%!oTHEN
  311PROCjy(E%,E$)
  312ENDIF
  313ENDIF:IFG%THEN
  314IFE%!S=ITHEN
  315PROCJ(E%,B)
  316ENDIF
  317ENDIF:ENDPROC
  318DEFFNPy(E$,RETURNx%)LOCALG%:PROCD(E$):G%=FALSE:IFFNO(E$,"*",x%)THEN
  319PROCn(E%):IFFNW=JyTHEN
  320G%=(FNk>=FNMy("CFS#"+E$+"."+FNQ))
  321ENDIF
  322ELSEx%=-1
  323ENDIF:=G%
  324DEFPROCD(RETURNx$)IFFNb(LEFT$(x$,4),"CFS#")=0THEN
  325x$=MID$(x$,5)
  326ENDIF:ENDPROC
  327DEFPROCz(E%,qu%,E$)PROCJ(E%,C):IFE%!MTHENPROCw(E%)
  328PROCU(E%,E$):PROCX_(E%,FNS(qu%)):ENDPROC
  329DEFPROCl(E%,X%,E$)PROCZ(X%):PROCF("Sys",REPORT$):PROCz(E%,6,E$):ENDPROC
  330DEFPROCu(E%,X%,E$)PROCZ(X%):PROCF("Sys",REPORT$):PROCz(E%,7,E$):ENDPROC
  331DEFPROCRy(J%,E$,g%,Wy%,X%,D%,Ay%)IFJ%THENCLOSE#J%
  332SYS&20008,0,E$,g%,Wy%,X%,X%+D%:SYS&20008,4,E$,,,,Ay%:PROCH:ENDPROC
  333DEFFNs(E%,E$,R_%)LOCALI%:PROCD(E$):IFFNP(I%,L+LEN(E$)+1)THEN
  334I%=0
  335ELSEPROCt(E%,E$):I%!Hy=E%!J:I%!Uy=0:I%!o=R_%:$(I%+L)=E$:E%!J=I%:IFR_%THEN
  336PROCJ(E%,D):E%!G=0
  337ENDIF
  338ENDIF:=(I%=0)
  339DEFFNV(E%)LOCALx%,I%:I%=E%!J:IFI%THEN
  340IFI%!oTHEN
  341PROCoy(E%):IFE%!rTHEN
  342PROCUy(E%)
  343ENDIF
  344ENDIF:x%=I%!Hy:PROCZ(I%):E%!J=x%:I%=x%:E%!r=FALSE
  345ENDIF:IFI%THEN
  346PROCt(E%,$(I%+L))
  347ENDIF:=(I%=0)
  348DEFPROCb(E%)REPEATUNTILFNV(E%):PROCVy(E%):PROCA_(E%,Zy%):PROCZ(E%):IFZy%=0THENPROCY(0)
  349ENDPROC
  350DEFPROCc_(Gy%,RETURNry%)Gy%!T=ry%:Gy%!t=0:IFry%THENry%!t=Gy%
  351ry%=Gy%:ENDPROC
  352DEFPROCA_(Gy%,RETURNry%)LOCALT_%,my%:T_%=Gy%!t:my%=Gy%!T:IFmy%THENmy%!t=T_%
  353IFT_%THENT_%!T=my%
  354IFGy%=ry%THENry%=my%
  355ENDPROC
  356DEFFNP(RETURNXu%,w%)LOCAL__%:__%=FNY(Xu%,w%):IF__%THEN
  357PROCV(yy%,FNS(4))
  358ENDIF:=__%
  359DEFPROCdyLOCALE%,J_%:J_%=FALSE:E%=Zy%:WHILEE%AND(NOTJ_%):CASEE%!SOF
  360WHENB,D,I:J_%=TRUE
  361ENDCASE:E%=E%!T:ENDWHILE:IFJ_%THEN
  362PROCY(1)
  363ELSEPROCY(0)
  364ENDIF:ENDPROC
  365DEFPROCY(N%)IFN%<>pTHEN
  366$f_%=A$(N%)+CHR$(0):PROChy(-1,V_%,0,0,0):p=N%
  367ENDIF:ENDPROC
  368DEFFNIy(E%)PROCny("FConvert",E%+E,256,128,E%!Vy):IFE%!ETHEN
  369E%!q=0:E%!s=0:E%!R=0:E%!K=0:E%!r=FALSE:PROCJ(E%,B):IFE%!MTHENPROCEy
  370PROCwy(E%!E,-1)
  371ENDIF:=(E%!E=0)
  372DEFPROCVy(E%)IFE%!ETHEN
  373SYS&465c4,Y%,E%+E:PROCZ(E%!Vy)
  374ENDIF:ENDPROC
  375DEFPROCK_(E%,T%,_%)LOCALE$:CASET%OF
  376WHENu,v:E$=FNr(E%):IF(_%AND1)=0THEN
  377E$="CFS#"+E$
  378ENDIF:SYS&20005,"Filer_OpenDir "+E$
  379WHENP:CASEE%!SOF
  380WHENB,D,I:PROCJ(E%,x):PROCWy("uncfs",E%)
  381WHENx:PROCJ(E%,E%!n):PROCe(E%)
  382WHENC:PROCi(E%):PROCJ(E%,E%!n):PROCe(E%)
  383ENDCASE
  384WHENQ:IFE%!S=CTHEN
  385PROCi(E%):PROCJ(E%,E%!n):E%!G-=1:IFE%!W<-1THEN
  386E%!W+=1
  387ELSEE%!W-=1
  388ENDIF:PROCe(E%)
  389ELSEPROCm(E%)
  390ENDIF
  391WHENY:PROCm(E%)
  392ENDCASE:ENDPROC
  393DEFPROCe(E%)PROCY(1):PROCO(E%,FALSE):PROCOy("uncfs",E%):ENDPROC
  394DEFPROCm(E%)PROCWy("uncfs",E%):PROCb(E%):ENDPROC
  395DEFPROCJ(E%,mJ%)E%!n=E%!S:E%!S=mJ%:CASEmJ%OF
  396WHEND,I,B:PROCq(E%!E,Q):PROCQ(E%!E,Y):PROCQ(E%!E,P):PROCE(E%!E,P,FNE("Paus"))
  397WHENx:PROCq(E%!E,Q):PROCQ(E%!E,Y):PROCQ(E%!E,P):PROCE(E%!E,P,FNE("Cont"))
  398WHENd:PROCQ(E%!E,Q):PROCq(E%!E,Y):PROCq(E%!E,P):PROCE(E%!E,Q,FNE("Ok")):IFE%!MTHENPROCw(E%)
  399WHENC:PROCQ(E%!E,Q):PROCQ(E%!E,Y):PROCQ(E%!E,P):PROCE(E%!E,P,FNE("Skip")):PROCE(E%!E,Q,FNE("Rtry"))
  400ENDCASE:PROCdy:ENDPROC
  401DEFPROCq(M%,N%)LOCALZ%:Z%=FNA(64):!Z%=M%:Z%!4=N%:SYS&400ce,,Z%:IF((Z%!24)AND(1<<23))=0THEN
  402SYS&400d1,M%,Z%!8,Z%!12,Z%!16,Z%!20:Z%!8=1<<23:Z%!12=1<<23:SYS&400cd,,Z%
  403ENDIF:PROCC(Z%,64):ENDPROC
  404DEFPROCQ(M%,N%)LOCALZ%:Z%=FNA(64):!Z%=M%:Z%!4=N%:SYS&400ce,,Z%:IF(Z%!24)AND(1<<23)THEN
  405SYS&400d1,M%,Z%!8,Z%!12,Z%!16,Z%!20:Z%!8=0<<23:Z%!12=1<<23:SYS&400cd,,Z%
  406ENDIF:PROCC(Z%,64):ENDPROC
  407DEFPROCn(E%)E%!q+=1:IFE%!M=0THENPROCN(E%!E,X,E%!q)
  408IFE%!q=1THENPROCE(E%!E,X+1,FNE("FScan1"))
  409IFE%!q=2THENPROCE(E%!E,X+1,FNE("FScanN"))
  410ENDPROC
  411DEFPROCO(E%,gu%)IFgu%THEN
  412E%!r=TRUE:E%!s+=1:IFE%!M=0THENPROCN(E%!E,U,E%!s)
  413IFE%!s=1THENPROCE(E%!E,U+1,FNE("FConv1"))
  414IFE%!s=2THENPROCE(E%!E,U+1,FNE("FConvN"))
  415ENDIF:PROCU(E%,""):ENDPROC
  416DEFPROCoy(E%)E%!R+=1:IFE%!M=0THENPROCN(E%!E,H,E%!R)
  417IFE%!R=1THENPROCE(E%!E,H+1,FNE("AScan1"))
  418IFE%!R=2THENPROCE(E%!E,H+1,FNE("AScanN"))
  419ENDPROC
  420DEFPROCUy(E%)E%!K+=1:PROCN(E%!E,V,E%!K):IFE%!K=1THENPROCE(E%!E,V+1,FNE("AConv1"))
  421IFE%!K=2THENPROCE(E%!E,V+1,FNE("AConvN"))
  422ENDPROC
  423DEFPROCt(E%,E$)IFE%!M=0THEN
  424PROCE(E%!E,u,FNc(E$))
  425ENDIF:ENDPROC
  426DEFPROCU(E%,E$)IFE%!M=0THEN
  427PROCE(E%!E,v,FNc(E$))
  428ENDIF:ENDPROC
  429DEFFNc(E$)IFLEN(E$)>XyTHEN
  430E$="..."+RIGHT$(E$,Xy-3)
  431ENDIF:=E$
  432DEFFNr(E%)LOCALE$,I%:I%=E%!J:IFI%THEN
  433E$=$(I%+L)
  434ELSEE$=$(E%+Zy)
  435ENDIF:=E$
  436DEFPROCw(E%)E%!M=(E%!M=0):IFE%!MTHEN
  437PROCEy
  438ELSEPROCt(E%,FNr(E%)):PROCU(E%,""):PROCN(E%!E,U,E%!s):PROCN(E%!E,X,E%!q):PROCN(E%!E,V,E%!K):PROCN(E%!E,H,E%!R)
  439ENDIF:ENDPROC
  440DEFPROCEyPROCE(E%!E,u,"-"):PROCE(E%!E,v,"-"):PROCE(E%!E,U,"-"):PROCE(E%!E,X,"-"):PROCE(E%!E,V,"-"):PROCE(E%!E,H,"-"):ENDPROC
  441DEFPROCX_(E%,o$)LOCALZ%,eJ%,fJ%,cJ%,g_%:IFE%!MTHENPROCw(E%)
  442PROCE(E%!E,Oy,o$):Z%=FNA(64):!Z%=E%!E:cJ%=H_%+1:g_%=P_%+1:eJ%=NOT((1<<C_%)-1):fJ%=NOT((1<<Dy%)-1):Z%!4=((cJ%-o_%)/2)ANDeJ%:Z%!16=g_%-((((g_%-68)-Y_%)/2)ANDfJ%):Z%!12=Z%!4+o_%:Z%!8=Z%!16-Y_%:Z%!20=0:Z%!24=0:Z%!28=-1:SYS&400c5,,Z%:VDU7:PROCC(Z%,64):ENDPROC
  443DEFPROCi(E%)LOCALZ%:Z%=FNA(64):!Z%=E%!E:SYS&400cb,,Z%:Z%!12=Z%!4+bJ%:Z%!16=Z%!8+MJ%:Z%!20=OJ%:Z%!24=qJ%:Z%!28=-1:SYS&400c5,,Z%:PROCC(Z%,64):PROCU(E%,""):ENDPROC
  444DEFPROC`yIFV%=0THEN
  445DIMEJ%4:!EJ%=0:IFFNa("Choices",EJ%)
  446V%=!EJ%
  447ENDIF:IFV%THEN
  448PROCd:PROCpy(V%):PROC`(V%,-1)
  449ENDIF:ENDPROC
  450DEFPROCdIFV%THEN
  451SYS&465c6,Y%,V%:PROCI(V%,j_%,!a):PROCI(V%,v_%,!w):PROCI(V%,t_%,!_):PROCI(V%,z_%,!O):PROCI(V%,x_%,FNx)
  452ENDIF:ENDPROC
  453DEFPROCby(_%,T%)LOCALby%:PROC`(V%,-1):CASET%OF
  454WHENUJ%:PROCR:by%=TRUE
  455WHENBJ%:PROCd:by%=TRUE
  456WHENJJ%:PROCR:PROCGy:by%=TRUE
  457WHENoJ%:PROCBy:PROCd:by%=TRUE
  458ENDCASE:IFby%THEN
  459IF_%AND1092THENPROCX(V%)
  460ENDIF:ENDPROC
  461DEFPROCRLOCALu_%,I$,R$,B$:!a=FNB(V%,j_%):!w=FNB(V%,v_%):!_=FNB(V%,t_%):!O=FNB(V%,z_%):u_%=FNx:IFu_%<>FNB(V%,x_%)THEN
  462I$="TFont":R$="TSystem":IFNOTu_%THENSWAPI$,R$
  463B$=FNM(Ky%)+".":I$=B$+I$+CHR$0:R$=B$+R$+CHR$0:B$=B$+"Templates"+CHR$0:SYS41,25,B$,I$:SYS41,25,R$,B$
  464ENDIF:ENDPROC
  465DEFPROCM_(T%,tJ%)CASEtJ%OF
  466WHEN13:PROCR:PROCX(V%)
  467WHEN27:PROCX(V%)
  468WHEN386:PROCR:PROCX(V%)
  469WHEN387:PROCX(V%)
  470WHEN388:PROCR:PROCGy:PROCX(V%)
  471WHEN389:PROCBy:PROCX(V%)
  472OTHERWISESYS&400dc,tJ%
  473ENDCASE:ENDPROC
  474DEFFNxLOCALG%,F%,Ly%,R%:F%=FNA(128):Ly%=0:REPEATSYS12,9,Ky%,F%,1,Ly%,128,"TSystem"+CHR$0TO,,,R%,Ly%:G%=(R%=1):UNTIL(Ly%=-1)ORG%:PROCC(F%,128):=G%
  475DEFPROCmyLOCALA$:CASEW%!20OF
  476WHENV%:A$="WinChoices"
  477ENDCASE:IFA$<>""THEN
  478A$=FNE(A$):W%!16=&400cc:W%!12=W%!8:$(W%+28)=y$+CHR$0:$(W%+36)=A$+CHR$0:W%!0=(36+LEN(A$)+4)AND-4:SYS&400e7,17,W%,W%!4
  479ENDIF:ENDPROC
  480DEFFNH=19
  481DEFPROCTy(DJ%,cu%)IFFNH<cu%THEN
  482ERROR1,"EIL1"
  483ENDIF:IFDJ%<1THEN
  484ERROR1,"EIL2"
  485ENDIF:I_%=DJ%:DIMS$(I_%-1):DIMA%(I_%-1):i_%=0:DIMYy%256:Q_%=40:z%=0:Vy%=12:aJ%=FALSE:DIME$(Q_%-1):dy%=FALSE:Uy%=FALSE:O_%=TRUE:ENDPROC
  486DEFPROCA(J$,yJ%)PROCXy(J$,yJ%):ENDPROC
  487DEFPROCXy(J$,yJ%)LOCALg%,N%,C$,d$:N%=0:g%=TRUE:C$=MID$(J$,1+INSTR(J$,".")):WHILEN%<i_%ANDg%:g%=(C$<>S$(N%)):IFg%THEN
  488N%+=1
  489ENDIF:ENDWHILE:IFg%THEN
  490IFN%=I_%THEN
  491ERROR1,"EIL3"
  492ENDIF:S$(N%)=C$:d$="'"+J$+"' does not have a FN_":LOCALERROR:ONERRORLOCALRESTOREERROR:PROCM(d$+C$+"_version")
  493A%(N%)=EVAL("FN_"+C$+"_version"):RESTOREERROR:i_%+=1:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCM(d$+"_hard_initialise_"+C$)
  494IFEVAL("FN_hard_initialise_"+C$)THEN
  495ERROR1,"EIL5 "+J$
  496ENDIF:RESTOREERROR
  497ENDIF:IFyJ%>A%(N%)THEN
  498ERROR1,"EIL4 "+J$
  499ENDIF:ENDPROC
  500DEFFNZ(g$)LOCALERROR:ONERRORLOCALRESTOREERROR:PROCey
  501=EVAL(g$)
  502DEFPROCeyIFO_%THEN
  503ERRORERR,REPORT$+" (evaluating `"+g$+"' ["+STR$(ERL)+"])"
  504ELSEERRORERR,REPORT$
  505ENDIF:ENDPROC
  506DEFFNU(A%)LOCALS$:WHILE?A%:S$+=CHR$(?A%):A%+=1:ENDWHILE:=S$
  507DEFFNGy(A%,B%)LOCALS$:WHILEB%>=1AND?A%:S$+=CHR$(?A%):A%+=1:B%-=1:ENDWHILE:=S$
  508DEFFNM(A%)LOCALS$:WHILE?A%>31:S$+=CHR$(?A%):A%+=1:ENDWHILE:=S$
  509DEFPROCs(A%,S$)$A%=S$:A%?LEN(S$)=0:ENDPROC
  510DEFPROCZy(A%,S$,B%)IFLEN(S$)<=B%THEN
  511$A%=LEFT$(S$,B%-1):A%?(B%-1)=ASC(MID$(S$,B%,1))
  512ELSE$A%=S$:A%?LEN(S$)=0
  513ENDIF:ENDPROC
  514DEFPROCM(W$)IFdy%THEN
  515IFUy%THEN
  516ERRORERR,REPORT$+" ["+STR$ERL+"]."
  517ELSEERRORERR,REPORT$
  518ENDIF
  519ELSEIFNOTaJ%THEN
  520IFz%=Q_%THEN
  521E(Q_%-1)="Errors too deep!!!!!":PROCx
  522ENDIF:IFRIGHT$(W$,2)=": "THEN
  523W$=LEFT$(W$,LEN(W$)-2)
  524ENDIF:IFUy%THEN
  525E$(z%)=REPORT$
  526ELSEIFz%=0THEN
  527E$(z%)="Error `"+REPORT$+"' (line ":E$(z%)+=STR$(ERL)+") in ":E$(z%)+="`"+W$+"'"
  528ELSEE$(z%)="`"+W$+"'"
  529ENDIF
  530ENDIF:z%+=1:ERRORERR,""
  531ENDIF
  532ENDIF:ENDPROC
  533DEFPROCxLOCALo%,l$:IFdy%THEN
  534IFUy%THEN
  535PROCV(ERR,REPORT$+" ["+STR$(ERL)+"]."):PROCS:END
  536ELSEPROCV(ERR,REPORT$):IFERR=N_%THEN
  537PROCS:END
  538ENDIF
  539ENDIF
  540ELSEIFVy%=-2THEN
  541IFz%>0THEN
  542ERROREXTERR,E$(0)
  543ELSEERROREXTERR,REPORT$
  544ENDIF:END
  545ENDIF:IFVy%=-3THEN
  546$Yy%="TASK":SYS&400c0,200,!Yy%,"LibHandler"+CHR$(0):IFz%THEN
  547FORo%=0TOz%-1:IFo%<(z%-1)THEN
  548PROCg(E$(o%)+" in")
  549ELSEPROCg(E$(o%))
  550ENDIF:NEXTo%
  551ELSEPROCg(REPORT$+" (line "+STR$(ERL)+")")
  552ENDIF:SYS&600dd:END
  553ENDIF:IFVy%>=0THEN
  554MODEVy%
  555ENDIF:PRINT"An error has occured...":PRINT:IFz%THEN
  556FORo%=0TOz%-1:COLOUR((7-(o%<<1))AND6)+1:PRINTE$(o%);:IFo%<(z%-1)THEN
  557PRINT" in ";
  558ENDIF:NEXTo%
  559ELSEPRINTREPORT$;" (line ";STR$(ERL);")"
  560ENDIF:PRINT:COLOUR7:END
  561ENDIF:ENDPROC
  562DEFPROCg(q$)LOCALZJ%:ZJ%=20+(LEN(q$)+5)AND-4:!Yy%=ZJ%:Yy%!16=&804c0:$(Yy%+20)=q$+CHR$(10)+CHR$(0):SYS&600e7,17,Yy%,0:ENDPROC
  563DEFFN_CAsm_version=14
  564DEFFN_hard_initialise_CAsmPROCA("<BasicV_Assembler$Lib>.Misc",27):SYS5,"RMEnsure CAssembler 0.08 RMLoad System:Modules.CAssembler":SYS5,"If ""<CAsm$Dir>""="""" Then Set CAsm$Dir <d>.Library.CAsm":CAsmLibrary_stdlib=1:CAsmLibrary_stdio=2
  565CAsmLibrary_string=3:bi=4:li=5:ru=6:Ei=7:CAsmLibrary_wimp=8:V_=9:CAsmLibrary_message=10:cl=11:lu=12:Il=13:ti=14:gu=15:Zi=16:Q_=17:Uu=18:Rl=19:YJ=20:SJ=21:u_=22:Hl=23:ml=24
  566o_=25:za=26:k=26:GJ=0:HJ=1:Wu=2:AJ=3:M_=4:J_=5:H_=6:Ri=7:Ua=8:py=9:h=10:z=11:l=12:A=13:Z=14:JJ=15:ay=&6d734143:p%=0:Py%=13:j=0:N=0:`=10*1024:fy=`+(1*1024):ry=FALSE:=0
  567DEFPROCT_(X$)LOCALZ%,k%,Ty%,L%,O%,P%,U%,J$:LOCALERROR:ONERRORLOCALRESTOREERROR:SYS&400ec,cy%,-1:PROCH
  568cy%=HIMEM-32768:SYS&400ec,cy%+32768,-1TOL%:L%+=32768:O%=cy%+32768:P%=0:U%=14:IFO%=L%THEN
  569ERROR1,"Not enough memory to start application"
  570ENDIF:IFp%<>0THEN
  571ERROR1,"EIC1"
  572ENDIF:DIMq_%k*8:DIMF$(k):IFFNh_DEFAULT
  573WHILEX$<>"":J$=LEFT$(X$,INSTR(X$,",")-1):LOCALERROR:ONERRORLOCALRESTOREERROR:PROCM("EIC2")
  574k%=EVAL("CAsmLibrary_"+J$):RESTOREERROR:Ty%=q_%:Z%=Ty%+(p%*8):WHILEZ%>Ty%:IF!Ty%=k%THEN
  575Ty%=Z%+1
  576ELSETy%+=8
  577ENDIF:ENDWHILE:IFTy%=Z%THEN
  578IFp%>=kTHEN
  579ERROR1,"EIC3"
  580ENDIF:!Z%=k%:F$(k%)=J$:p%+=1:O%=cy%+32768:P%=0:IFFNZ("FNh_"+J$)
  581ENDIF:X$=MID$(X$,LEN(J$)+2):WHILEASC(X$)=ASC(" "):X$=MID$(X$,2):ENDWHILE:ENDWHILE:SYS&400ec,cy%,-1:RESTOREERROR:ENDPROC
  582DEFPROCJyLOCALR%,Z%,N%,Ey%:IFp%=0THEN
  583IFFNh_DEFAULT
  584ENDIF:Ey%=q_%:N%=p%:IF(U%AND2)=0THEN
  585DIMZ%p%*4:SYS79,p%,Z%+&c0000000,3,,Ey%,8
  586ENDIF:[OPTU%:.Qy DCDay:DCDRy:]:WHILEN%>0:[OPTU%:DCD!Ey%:DCDEy%!4:]:Ey%+=8:N%-=1:ENDWHILE:[OPTU%:DCD0:]:[OPTU%:ALIGN:.Ay:]:Z%=P%:IFFNjumpblock_DEFAULT
  587Ry=(P%-Z%)>>2:N%=p%:Ey%=q_%:WHILEN%>0:Z%=P%:IFFNZ("FNjumpblock_"+F$(!Ey%))
  588Ey%!4=(P%-Z%)>>2:Ey%+=8:N%-=1:ENDWHILE:ENDPROC
  589DEFPROC__LOCALEy:[OPTU%:ALIGN:.My:STMFD(A)!,{4-5,Z}:BL P%+(13<<2):.Ey DCDQy-Ey:DCDAy-Ey:DCDj-Ey:DCDN:DCD`:.e:DCD0:DCD0:DCD0:DCD0:LDR A,e
  590LDMFD(A)!,{h,z,l,Z}:MOVpc,Z:BIC 5,Z,#&fc000003:LDMIA5,{0-4}:ADD0,0,5:ADD1,1,5:ADD2,2,5:MOV5,#0:SWI &fcb80:STRvc0,e+(1<<2):STRvc1,e+(3<<2):LDMFD(A)!,{4-5,pc}:.i:FNJ:MOV2,Z:MOV1,A:MOV0,h
  591SWI &fcb81:MOVvc1,#0:STRvc1,e+(3<<2):MOVpc,2:MOV13,12:]:j=P%:PROCW:PROCj:N=(N+3)AND-4:P%+=N-1:O%+=N-1:[OPTU%:DCB0:]:ENDPROC
  592DEFPROCh_IFP%<>32768THENERROR1,"EIC4"
  593[OPTU%:ADR4,m:MOV5,#cy:SWI &fcb80:FNR("vc",2,tu):Bvc qy:SWI 43:.m:DCDQy-m:DCDAy-m:DCDj-m:DCDN:DCD`:DCDfy:]:ENDPROC
  594DEFFNJ[OPTU%:STMFD(A)!,{h,z,l,Z}:MOV z,pc:FNR("",Z,e):STR A,[Z],#4:LDMIA(Z)!,{h,l,A}:AND z,z,#&fc000003:ORR Z,Z,z:]:=0
  595DEFPROCky(vy%,By%,LJ%)PROCA("<BasicV$Lib>.Heap",8):PROCA("<BasicV$Lib>.Message",1):IFFNm(vy%,By%,LJ%,0)
  596CALLMy:ONERRORCALLi:PROCx
  597ENDPROC
  598DEFFNm(vy%,By%,LJ%,zy%)LOCALL%,O%,P%,U%,uu%,H%:LOCALDJ:LOCALdJ,vJ,qJ,i_,eJ,aJ:LOCALey,Iy,ei:IFzy%=0THEN
  599PROCA("<BasicV$Lib>.Heap",8):PROCA("<BasicV$Lib>.Message",1)
  600ENDIF:DIMy%vy%:DJ=A:dJ=1<<31:vJ=1<<30:qJ=1<<29:i_=1<<28:eJ=1<<27:aJ=1<<26:ey=1<<17:Iy=256:ei=Iy+ey:SYS&606c0:LOCALERROR:ONERRORLOCALRESTOREERROR:SYS&606c1:PROCH
  601H%=vy%:L%=y%+vy%:IFBy%<>0THENBy%=4
  602FORU%=8+By%TO10+By%STEP2:IF(U%AND4)<>0THEN
  603O%=y%:IFzy%=1THEN
  604P%=32768
  605ELSEP%=0
  606ENDIF
  607ELSEO%=0:P%=y%
  608ENDIF:CASEzy%OF
  609WHEN1:PROCW:PROCh_:PROCW:PROCr:PROCW:PROCJy:j=P%:PROCW:PROCj:N=(N+3)AND-4
  610WHEN0:PROCW:PROCr:PROCW:PROCJ_:PROCW:PROCxy:PROCW:PROCJy:PROCW:PROC__
  611WHEN2:PROCW:PROCr
  612ENDCASE:IFU%AND4THENL%=O%ELSEL%=P%
  613IF(U%AND2)=0THEN
  614SYS&dcb93,0,y%,L%-y%
  615ENDIF:H%=L%-y%:NEXTU%:SYS&606c1:IFBy%THEN
  616IFzy%=0THEN
  617My+=y%:i+=y%
  618ENDIF
  619ENDIF:IFryANDzy%<>2THEN
  620IFBy%THEN
  621H%=Ay:IFzy%THENH%-=32768
  622ELSEERROR1,"EIC9"
  623ENDIF
  624ENDIF:IFLJ%THEN
  625PRINT"Assembled to &";~H%;" = ";((H%*10+512)DIV1024)/10;"K":PRINT"Could assemble with ";vy%-H%;" less"
  626ENDIF:=H%
  627DEFFN_Template_version=21
  628DEFFN_hard_initialise_Template:Z_%=FALSE:n%=FALSE:i%=FALSE:oy%=FALSE:AJ%=FALSE:Zu%=-1:xu%=1:vy=7:By=16:dy=14:sy=15:=0
  629DEFPROCHyLOCALN%:IFn%<>-1THEN
  630IFi%THEN
  631SYS&665c1,Y%,TRUE,FALSE
  632ELSEFORN%=0TO255:WHILEn%?N%:SYS&60082,N%:n%?N%-=1:ENDWHILE:NEXTN%
  633ENDIF
  634ENDIF:ENDPROC
  635DEFPROCLyLOCALD%,d%,Q%,F%,P$,tu%,Hy%,gy%,x%,R%:IFn%THEN
  636IFi%THEN
  637oy%=(i%=+1):IFoy%THEN
  638Q%=+1
  639ELSEQ%=0
  640ENDIF:Hy%=140+(1<<21):IFAJ%THEN
  641O$=FNE("MenuFont"):IFO$<>""THEN
  642Hy%+=(1<<18)+(1<<19):PROCG(gy%,8+LEN(O$)+1):$(gy%+8)=O$:gy%!0=16*VAL(FNE("MenuFontWidth")):gy%!4=16*VAL(FNE("MenuFontHeight")):IFFNE("MenuFontLowRez")="NO"THEN
  643Hy%+=(1<<17)
  644ELSEHy%+=(1<<16)
  645ENDIF
  646ENDIF
  647ENDIF:SYS&465c0,Y%,0,0,Q%,Q%,0,0,Hy%,gy%TOn%
  648ELSEPROCG(n%,256):SYS&dcb93,0,n%,256
  649ENDIF
  650ELSEn%=-1
  651ENDIF:P$=FNK("<"+G$+"$Dir>.Sprites"):D%=FNI(P$):IFD%>0THEN
  652F%=FNA(128):x%=0:REPEATSYS12,12,"<"++G$+"$Dir>",F%,1,x%,128,"Sprites*"TO,,,R%,x%:IFR%=1ANDF%!20=4089ANDD%<F%!8THEND%=F%!8
  653UNTILx%<0:PROCC(F%,128):PROCG(e%,D%+16):e%!0=D%+16:e%!4=0:e%!8=16:e%!12=16:SYS&2002e,522,e%,P$TOd%;Q%:s$=P$:IFFNF(Q%)THEN
  654PROCF("Reason","Sprites"):PROCy(d%):PROCL(4):PROCS
  655ENDIF
  656ELSEe%=0
  657ENDIF:PROCP_("Templates"):IFe%>0THEN
  658PROCT("ProgInfo",e%,"ProgInfo")
  659ELSEPROCT("ProgInfo",+1,"ProgInfo")
  660ENDIF:s%=0:IFZ_%=0THEN
  661PROCFy
  662ENDIF:w_%=FNBy("Query",tu%,+1):PROCa_:ENDPROC
  663DEFPROCsy:P$=FNK("<"+G$+"$Dir>.Sprites"):IFP$<>s$THEN
  664e%!4=0:e%!8=16:e%!12=16:SYS46,522,e%,P$:s$=P$
  665ENDIF:ENDPROC
  666DEFFNProgInfo(M%)PROCs(M%!(88+(vy<<5)+20),D$):=0
  667DEFPROCNy(c%,b%,_%,T%)CASET%OF
  668WHENdy,sy:c%=FNG(1,FNS(0)):IF_%<>1THEN
  669PROCh
  670ENDIF
  671OTHERWISEIF_%AND240THEN
  672W%!0=s%:W%!4=1:SYS&400d0,,W%
  673ENDIF
  674ENDCASE:ENDPROC
  675DEFPROCFyIFs%=0THEN
  676IFoy%THEN
  677DIML_%4:!L_%=0:IFFNa("ProgInfo",L_%)
  678s%=!L_%
  679ELSEIFFNh("ProgInfo",s%)
  680ENDIF
  681ELSEIFi%THEN
  682IFoy%THEN
  683SYS&465c6,Y%,L_%
  684ELSESYS&465c6,Y%,s%
  685ENDIF
  686ENDIF
  687ENDIF:ENDPROC
  688DEFPROCP_(t$)LOCALGJ%,k%,D%,d%,Q%,S%:LOCALlJ%,P$,Xy%,hy%:P$="<"+G$+"$Dir>."+t$:D%=FNI(P$):IFD%<=0THEN
  689PROCF("Reason",t$):PROCF("Sys","Not found"):PROCL(4):PROCS
  690ENDIF:PROCG(k%,D%):PROCG(Xy%,D%+F):hy%=Xy%+Py:lJ%=Xy%+F:SYS&600d9,,P$TOd%;Q%:IFFNF(Q%)THEN
  691PROCF("Reason","Templates"):PROCy(d%):PROCL(4):SYS&600da:PROCS
  692ENDIF:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCn_
  693x%=0:REPEAThy%!0=ASC("*"):SYS&600db,,lJ%,k%,k%+D%,n%,hy%,x%TOd%,,GJ%,,,,x%;Q%:IFFNF(Q%)THEN
  694PROCK(d%):SYS&600da:PROCS
  695ENDIF:IFx%THEN
  696FORQ%=0TO11:IFhy%?Q%=13THENhy%?Q%=0:Q%=12
  697NEXTQ%:Xy%!by=GJ%-k%:Xy%!g=k%:S%=FNv(Xy%):IFS%=0THEN
  698PROCL(16):SYS&600da:PROCS
  699ENDIF:S%!c=!uy%:!uy%=S%
  700ENDIF:UNTILx%=0:RESTOREERROR:SYS&400da:PROCZ(Xy%):PROCZ(k%):ENDPROC
  701DEFPROCn_SYS&600da:PROCM("Template"):ENDPROC
  702DEFFNBy(F$,_u%,k_%)=FNJy(F$,_u%,k_%,"")
  703DEFFNJy(F$,_u%,k_%,W$)LOCALS%,jJ%,J%:S%=FNC(F$):IFS%=0THEN
  704PROCS
  705ENDIF:jJ%=S%+F:jJ%!64=k_%:IFW$<>""THEN
  706J%=FNZ("FN"+W$)
  707ENDIF:IFFNz(S%,J%)THEN
  708PROCS
  709ENDIF:PROCa(S%):=J%
  710DEFPROCT(F$,k_%,W$)LOCALS%,M%:S%=FNC(F$):IFS%=0THEN
  711PROCS
  712ENDIF:M%=S%+F:M%!64=k_%:IFW$<>""THEN
  713M%=FNZ("FN"+W$+"("+STR$(M%)+")")
  714ENDIF:ENDPROC
  715DEFFNh(F$,RETURNJy%)LOCALN%:=FNQy(F$,Jy%,N%)
  716DEFFNQy(F$,RETURNJy%,RETURNiy%)LOCALS%,K%:K%=FALSE:IFJy%<=0THEN
  717S%=FNC(F$):IFS%THEN
  718K%=FNz(S%,Jy%):IFK%=FALSETHEN
  719iy%=S%!g:PROCa(S%)
  720ENDIF
  721ELSEK%=TRUE
  722ENDIF
  723ELSEIFi%THEN
  724SYS&465c6,Y%,Jy%
  725ENDIF
  726ENDIF:=K%
  727DEFFN`(F$)LOCALS%,t$,B_%:S%=!uy%:B_%=FALSE:WHILES%AND(NOTB_%):B_%=(FNGy(S%+Py,12)=F$):IFNOTB_%THEN
  728S%=S%!c
  729ENDIF:ENDWHILE:=S%
  730DEFFNC(F$)LOCALS%:S%=FN`(F$):IFS%=0THEN
  731PROCF("Reason",F$):PROCL(3)
  732ENDIF:=S%
  733DEFFNz(S%,RETURNJy%)IFi%THEN
  734SYS&665c3,Y%,S%+F,0TOJy%;S%
  735ELSESYS&600c1,,S%+FTOJy%;S%
  736ENDIF:S%=FNF(S%):IFS%THEN
  737PROCK(Jy%):Jy%=0
  738ENDIF:=S%
  739DEFPROCC_(M%,Q%,My%)LOCALJ%,X%:X%=A_%<<C_%:J%=M%!8-M%!0:IFX%<=J%THEN
  740M%!0=0
  741ELSEX%=X%-J%:IFMy%<0THEN
  742My%=X%+(My%MODX%)
  743ENDIF:M%!0=(M%!0+My%*Q%)MODX%
  744ENDIF:M%!8=M%!0+J%:ENDPROC
  745DEFPROCF_(M%,Q%,My%)LOCALJ%,X%:X%=(Fy%<<Dy%)-96:J%=M%!8-M%!0+48:IFX%<=J%THEN
  746M%!8=(Fy%<<Dy%)-J%
  747ELSEX%=X%-J%:IFMy%<0THEN
  748My%=X%+(My%MODX%)
  749ENDIF:M%!8=(Fy%<<Dy%)-M%!8:M%!8=(Fy%<<Dy%)-((M%!8+My%*Q%)MODX%)
  750ENDIF:M%!0=M%!8-(J%-48):ENDPROC
  751DEFPROCa(S%)LOCALZ%:Z%=uy%:WHILE!Z%<>0AND!Z%<>S%:Z%=!Z%+c:ENDWHILE:IF!Z%=S%THEN
  752!Z%=S%!c:S%!c=0:PROCZ(S%)
  753ENDIF:ENDPROC
  754DEFFNi(A%)=USR(yy)
  755DEFFNv(A%)A%=FNi(A%):IFA%=0THEN
  756PROCL(16)
  757ENDIF:=A%
  758DEFPROCL_IF(U%AND2)=0THENPROCW_("Template")
  759[OPTU%:ALIGN:.yy:FNJ:B oy:]:ENDPROC
  760DEFFN_Declare_Local_Variables_TemplateDIMuy%4:!uy%=0:P%=0:[OPTU%:.c DCD0:.Ny DCD0:.g DCD0:.by DCD0:.Py DCD0:DCD0:DCD0:.F:]:=0
  761DEFPROCny(F$,r%,r_%,b_%,RETURNiy%)PROCe_(F$,r%,r_%,b_%,iy%,"X"):ENDPROC
  762DEFPROCe_(F$,r%,r_%,b_%,RETURNiy%,H$)LOCALS%:S%=FNC(F$):IFS%THEN
  763PROCy_(S%,r%,r_%,b_%,iy%,H$)
  764ELSE!r%=S%
  765ENDIF:ENDPROC
  766DEFFNa(F$,r%)LOCALN%:=FN_(F$,r%,N%)
  767DEFFN_(F$,r%,RETURNiy%)LOCALS%,K%:K%=FALSE:IF!r%<=0THEN
  768S%=FNC(F$):IFS%THEN
  769K%=FNe(S%,r%):IFK%=FALSETHEN
  770iy%=S%!g:PROCa(S%)
  771ENDIF
  772ELSEK%=TRUE
  773ENDIF
  774ELSEIFi%THEN
  775SYS&465c6,Y%,r%
  776ENDIF
  777ENDIF:=K%
  778DEFPROCg_(S%,r%)S%=FNe(S%,r%):ENDPROC
  779DEFFNe(S%,r%)LOCALd%:IFi%THEN
  780SYS&665c3,Y%,S%+F,r%TOd%;S%
  781ELSESYS&600c1,,S%+FTOd%;S%
  782ENDIF:!r%=d%:S%=FNF(S%):IFS%THEN
  783PROCK(d%):!r%=0
  784ENDIF:=S%
  785DEFPROCy_(S%,r%,r_%,b_%,RETURNiy%,H$)LOCALM%,Q%:!r%=0:Q%=S%!Ny:S%!Ny+=1:S%=FNv(S%):IFS%THEN
  786M%=S%+F:PROCC_(M%,Q%,r_%):PROCF_(M%+4,Q%,b_%):IFH$<>"X"THEN
  787IFM%!56AND(1<<8)THEN
  788PROCZy(M%!72,H$,M%!80)
  789ELSEPROCZy(M%+72,H$,12)
  790ENDIF
  791ENDIF:PROCg_(S%,r%):iy%=S%!g:PROCa(S%)
  792ENDIF:ENDPROC
  793DEFFNh_DEFAULTLOCALERROR:ONERRORLOCALRESTOREERROR:PROCM("@.h.DEFAULT")
  794Ji=16:dl=1<<30:IJ=1<<29:`u=0:xl=1:La=2:Ea=3:Ca=4:Y_=5:Qa=6:BJ=7:ci=8:r_=9:Da=10:sl=1<<0:cy=1<<1:qi=1<<2:=0
  795DEFFNjumpblock_DEFAULTLOCALERROR:ONERRORLOCALRESTOREERROR:PROCM("@.h.DEFAULT")
  796[OPTU%ANDPy%:.ui DCDx_:.Oi DCDhu:.`_ DCDR_:.__ DCDHi:.Bu DCDB_:.UJ DCDul:.hJ DCDMi:.MJ DCDpu:.qy DCDCi:]:=0
  797DEFFNh_stdioLOCALERROR:ONERRORLOCALRESTOREERROR:PROCM("@.h.stdio")
  798k_=0:Ii=17:Wi=34:=0
  799DEFFNjumpblock_stdioLOCALERROR:ONERRORLOCALRESTOREERROR:PROCM("@.h.stdio")
  800[OPTU%ANDPy%:.Kl DCDdi:.Fu DCDrl:.D_ DCD`l:.gi DCDXi:.C_ DCDzJ:.Ru%DCDVu%:.su%DCDzu%:.wu%DCDKu%:.nl DCDRu:.Ql DCDNu:.zi DCDwi:.uJ DCDii:.ou DCDKi:]:=0
  801DEFFNh_stdlibLOCALERROR:ONERRORLOCALRESTOREERROR:PROCM("@.h.stdlib")
  802=0
  803DEFFNjumpblock_stdlibLOCALERROR:ONERRORLOCALRESTOREERROR:PROCM("@.h.stdlib")
  804[OPTU%ANDPy%:._y DCDbu:.my DCDSl:.Ta DCDSi:.iy DCDGi:.PJ DCD`J:.L_ DCDXa:.Tl DCDXl:.Yu DCDaa:.q_ DCDEl:.Xu DCD_a:.S_ DCDyJ:.Qu DCDm_:.au DCDI_:.ju DCDAu:.ol DCDNl:.fl DCDfJ:]:=0
  805DEFFNh_stringLOCALERROR:ONERRORLOCALRESTOREERROR:PROCM("@.h.string")
  806P%=0:[OPTU%:.Du DCB0:.e_ DCB0:.Bi DCB0:.CJ DCB0:.zu DCB0:.Ll DCB0:.ql DCB0:]:=0
  807DEFFNjumpblock_stringLOCALERROR:ONERRORLOCALRESTOREERROR:PROCM("@.h.string")
  808[OPTU%ANDPy%:.ZJ DCDTJ:.lJ DCDvl:.KJ DCDs_:.eu DCDNa:.zl DCDpi:.yi DCDel:.Va DCDMa:.p_ DCDqu:.O_ DCDLi:.fi DCDw_:.mi DCDIu:.ri DCDEu:.Zu DCDwu:.W_ DCDXJ:.`y DCDGu:.cJ DCD_i:.vi DCDMu:.n_ DCDQJ:.ji DCDHu
  809.Za DCDy_:.xu DCDT_:._u DCDYi:.uu DCDGl:.Vi DCDf_:.Cl DCDWJ:.Di DCDb_:.Ai DCDOJ:.il DCDjJ:.wl DCDNJ:.Fi DCDqa:.Jl DCDPu:.gl DCDRa:.Ol DCDg_:.pJ DCDiu:.cu DCDd_:.Cu DCDc_:.P_ DCDgJ:.Lu DCDFJ:.t_ DCDz_:.Fl DCDIa:.mJ DCDbl:.G_ DCD_l:]:=0
  810DEFFNh_messageLOCALERROR:ONERRORLOCALRESTOREERROR:PROCM("@.h.message")
  811=0
  812DEFFNjumpblock_messageLOCALERROR:ONERRORLOCALRESTOREERROR:PROCM("@.h.message")
  813[OPTU%ANDPy%:.ky DCDa_:.A_ DCDl_:.Ga DCDmu:.`i DCDnu:.U_ DCDyu:]:=0
  814DEFFNh_wimpLOCALERROR:ONERRORLOCALRESTOREERROR:PROCM("@.h.wimp")
  815Vu=12:X_=0:P%=0:[OPTU%:.Dy DCB0:.Zl DCB0:.hy DCB0:.wy DCB0:.hi DCB0:.v_ DCB0:.Oa DCB0:.jy DCB0:.zy DCB0:.iJ DCB0:.Z_ DCB0:.Su DCB0:.Ya DCB0:.Ul DCB0:.j_ DCB0:.bJ DCB0:.sJ DCB0:]:P%=0:[OPTU%:.Cy DCB0
  816.hl DCB0:.ty DCB0:.Yy DCB0:.Ku DCB0:.VJ DCB0:.LJ DCB0:.si DCB0:.wa DCB0:.al DCB0:.tl DCB0:.vu DCB0:]:P%=0:[OPTU%:.Ml DCB0:.Ju DCB0:.Wa DCB0:.kJ DCB0:.N_ DCB0:]:=0
  817DEFFNjumpblock_wimpLOCALERROR:ONERRORLOCALRESTOREERROR:PROCM("@.h.wimp")
  818[OPTU%ANDPy%:.Ka DCDWl:.oJ DCDku:.wJ DCDfu:.jl DCDUi:.Wy DCDtJ:.rJ DCDpl:.E_ DCDRJ:.Bl DCDni:.oy DCDh_:.Ja DCDsu:.Fa DCDYl:._J DCDBa:.Tu DCDAl:.Sa DCDDl:.Pi DCDF_:.Pa DCDTi:.Aa DCDxJ:.oi DCDHa:]:=0
  819DEFFN_ModeInfo_version=6
  820DEFFN_hard_initialise_ModeInfo=0
  821DEFPROCqy(l%)SYS53,l%,1TO,,`_%:`_%+=1:SYS53,l%,2TO,,d_%:d_%+=1:SYS53,l%,3TO,,nJ%:nJ%+=1:SYS53,l%,4TO,,C_%:SYS53,l%,5TO,,Dy%:SYS53,l%,6TO,,Cu%:SYS53,l%,7TO,,Du%:SYS53,l%,9TO,,PJ%:YJ%=1<<PJ%:SYS53,l%,11TO,,A_%:A_%+=1:SYS53,l%,12TO,,Fy%:Fy%+=1:Pu%=A_%DIV`_%
  822Ju%=Fy%DIVd_%:H_%=(A_%<<C_%)-1:P_%=(Fy%<<Dy%)-1:Yu%=32DIVYJ%:ENDPROC
  823DEFFN_Wimp_version=50
  824DEFFN_hard_initialise_WimpLOCALd%:IFFNH<12THENERROR1,"EIW1"
  825SYS&400f2,0TOd%:IFd%=0THENERROR1,"Application needs to be run from the desktop"
  826PROCA("<BasicV$Lib>.Heap",8):PROCA("<BasicV$Lib>.IntMath",5):PROCA("<BasicV$Lib>.Message",3):PROCA("<BasicV$Lib>.Template",7):PROCA("<BasicV$Lib>.NullReason",1):dy%=FALSE:ay%=3*1024
  827PROCG(fy%,ay%):ay%+=fy%:Ny%=fy%:PROCG(W%,512):n$="":u$="":Ou%=0:G$="Application":D$="0.00 (01-Jan-1900)":Y%=-1:N_%=2400:yy%=2401:Fu%=16*1024:U$="":Gu%=TRUE:Mu%=0:=0
  828DEFFNK(e$)LOCALa%,C%,Z$,c%,b%,RJ%:SYS&600f2,2TOa%;C%:IF(C%AND1)=0THEN
  829SYS53,-1,4TO,,c%:SYS53,-1,5TO,,b%:SYS53,-1,10TO,,RJ%:IFc%<2ANDb%<2ANDRJ%=0THEN
  830Z$="23"
  831ELSEZ$=FNM(a%)
  832ENDIF:a%=OPENIN(e$+Z$):IFa%THEN
  833CLOSE#a%:e$+=Z$
  834ENDIF
  835ENDIF:=e$
  836DEFFNF(Hy%)=(Hy%AND1)<>0
  837DEFPROC`(q%,T%)IFT%=-1THEN
  838SYS&600d2,q%,-1,0,0,1<<25,-1
  839ELSESYS&600d2,q%,T%,,,-1,LEN(FNZy(q%,T%)):SYS&dcb8d,8,q%
  840ENDIF:ENDPROC
  841DEFPROCwy(q%,eu%)SYS&dcb8d,Cy,q%,eu%:ENDPROC
  842DEFPROCX(q%)IFq%>0THENSYS&dcb8d,Yy,q%
  843ENDPROC
  844DEFPROCpy(q%)SYS&dcb8d,Cy,q%,-1:ENDPROC
  845DEFPROChy(q%,T%,hJ%,yu%,`J%)LOCALF%:F%=FNA(16):F%!0=q%:F%!4=T%:F%!8=yu%<<hJ%:F%!12=`J%<<hJ%:SYS&400cd,,F%:PROCC(F%,16):ENDPROC
  846DEFFNB(q%,T%)SYS&dcb8c,zy,q%,T%TOT%:=T%
  847DEFPROCI(q%,T%,Tu%)SYS&dcb8c,jy,q%,T%,Tu%:ENDPROC
  848DEFPROCV(wJ%,A$)LOCALF%:F%=FNA(300):F%!0=wJ%:$(F%+4)=A$+CHR$(0):PROCK(F%):PROCC(F%,300):ENDPROC
  849DEFPROCB(A$)ERRORN_%,A$:ENDPROC
  850DEFPROCL(wJ%)LOCALF%:F%=FNA(300):F%!0=yy%:PROCo("LE"+STR$(wJ%),F%+4):PROCK(F%):PROCC(F%,300):ENDPROC
  851DEFPROCK(Hu%)SYS&400df,Hu%,1,G$:ENDPROC
  852DEFFNG(Hy%,A$)LOCALF%,K%:PROCh:F%=FNA(260):!F%=0:$(F%+4)=A$+CHR$(0):SYS&400df,F%,(16ORHy%),FNL(0)TO,K%:PROCC(F%,260):=K%
  853DEFPROCgyLOCALF%:F%=FNA(256):F%?0=1:F%?1=0:F%?2=0:F%?3=0:F%?4=0:F%?5=H_%MOD256:F%?6=H_%DIV256:F%?7=P_%MOD256:F%?8=P_%DIV256:SYS7,21,F%:!F%=w_%:SYS&400c6,,F%:PROCC(F%,256):ENDPROC
  854DEFPROCry(c%,b%,_%,T%)PROCgy:c%=FNZ("FN_Stop_Action_"+j$+"("+STR$(T%=0)+")"):ENDPROC
  855DEFFNLy(V$)WHILEINSTR(V$,"."):V$=MID$(V$,INSTR(V$,".")+1):ENDWHILE:=V$
  856DEFPROCE(q%,T%,Y$)SYS&dcb8c,hy,q%,T%,Y$:ENDPROC
  857DEFPROCN(q%,N%,R%)SYS&dcb8c,wy,q%,N%,R%:ENDPROC
  858DEFFNZy(q%,N%)SYS&dcb8c,Dy,q%,N%TOq%:=FNM(q%)
  859DEFFNl(q%,N%)SYS&dcb8c,Dy,q%,N%TOq%:=q%
  860DEFFNI(K$)LOCALd%,D%,Q%:SYS&20008,17,K$TOd%,,,,D%;Q%:IFFNF(Q%)THEN
  861PROCF("Reason",FNLy(K$)):PROCy(d%):PROCB(FNL(4))
  862ENDIF:IFd%<>1THEN
  863D%=-1
  864ENDIF:=D%
  865DEFFNA(w%)LOCALK%:IF(Ny%+w%)<ay%THEN
  866K%=Ny%:Ny%+=w%
  867ELSEPROCB("Wimp Stack full")
  868ENDIF:=K%
  869DEFPROCvy:Ny%=fy%:ENDPROC
  870DEFPROCC(X_%,w%)IF(X_%<fy%)OR(X_%>ay%)THEN
  871PROCB("Release_Stack: Invalid stack chunk")
  872ELSEIF(w%<0)OR((X_%+w%)>ay%)THEN
  873PROCB("Release_Stack: Invalid chunk size")
  874ELSENy%-=w%:IFNy%<>X_%THEN
  875PROCB("Release_Stack: Bad pop")
  876ENDIF
  877ENDIF
  878ENDIF:ENDPROC
  879DEFPROCYy(r$,t%,gJ%,n_%,WJ%,CJ%)PROCs_(r$,r$,t%,gJ%,n_%,WJ%,CJ%):ENDPROC
  880DEFPROCs_(r$,H$,t%,gJ%,n_%,WJ%,CJ%)D$=STR$(t%)+"."+RIGHT$("0"+STR$(gJ%),2):D$+=" ("+RIGHT$("0"+STR$(n_%),2)+"-":D$+=MID$("CBJanFebMarAprMayJunJulAugSepOctNovDec",WJ%*3,3):D$+="-"+RIGHT$("19"+STR$(CJ%),4)+")":G$=r$:PROCF("App",G$):PROCyy(Ky%,G$+"$Dir"):IFKy%=0THENERROR1,"EIW5"
  881IFU$<>""THEN
  882n_%=FALSE:S_%=W%:t%=INSTR(U$,","):WHILEt%<>0:S_%!0=FNZ(LEFT$(U$,t%-1)):S_%+=4:U$=MID$(U$,t%+1):t%=INSTR(U$,","):ENDWHILE:S_%!0=FNZ(U$):S_%!4=0:SYS&400c0,300,&4b534154,H$,W%TOU_%,Y%
  883ELSESYS&400c0,200,&4b534154,H$TOU_%,Y%
  884ENDIF:ONERRORPROCcy
  885SYS&606c0:IFU_%<200THEN
  886ERRORN_%,FNL(5)
  887ENDIF:dy%=TRUE:PROCLy:PROCKy:dy%=-2:PROCI_:PROCay:IFZ_%=0THEN
  888PROCE(s%,7,D$)
  889ENDIF:bu%=-1:hu%=-1:Uu%=-1:nu%=-1:pJ%=FALSE:fu%=-1:Su%=-1:h$="":m$="":PROCSy:SYS&606c1:ENDPROC
  890DEFPROCcySYS&606c1:IFsy%THEN
  891PROCV(yy%,REPORT$+" ["+STR$ERL+"]")
  892ELSEPROCV(yy%,REPORT$)
  893ENDIF:PROCS:END:ENDPROC
  894DEFPROCyy(RETURNW_%,v$)LOCALw%,Ry%:SYS&20023,v$,0,-1,0,1TO,,w%,,Ry%:IFw%=0THEN
  895W_%=0
  896ELSEIFRy%=1THENERROR1,"EIW4"
  897w%=-w%:PROCG(W_%,w%):SYS35,v$,W_%,w%,0,1:W_%?(w%-1)=0
  898ENDIF:ENDPROC
  899DEFFN_FileType_version=10
  900DEFFN_hard_initialise_FileType:ki=-1:xy=8192:ny=4096:Ou=4095:EJ=4093:K_=4091:b=4089:yl=4086:Vl=4076:f=4075:Jy=3478:nJ=3388:ll=3269:Pl=3254:kl=3253:xi=2815:du=2779:Ni=1793:Qi=1296:=0
  901DEFFN_file_io_version=10
  902DEFFN_hard_initialise_file_ioPROCA("<BasicV$Lib>.CheckVars",2):PROCA("<BasicV$Lib>.string",6):p_%=256+20:DIMh%p_%:DIMEu%9:Eu%?8=13:=0
  903DEFFNMy(K$)LOCALw%,Ry%:SYS8,5,K$TORy%,,,,w%:IFRy%=0THENERROR1,"EIF1 "+K$
  904=w%
  905DEFPROCf(K$,Nu%)SYS8,255,K$,Nu%:ENDPROC
  906DEFFNO(B$,C$,RETURNx%)LOCALsJ%:SYS&2000c,10,B$,h%,1,x%,p_%,C$TO,,,sJ%,x%:=sJ%
  907DEFFNN(B$,C$)LOCALRy%,g%,Wy%,D%,xJ%:SYS&20008,5,B$+"."+C$TORy%,,g%,Wy%,D%,xJ%:h%!0=g%:h%!4=Wy%:h%!8=D%:h%!12=xJ%:h%!16=Ry%:PROCV_((B$+"."+C$),(h%+20)):=(Ry%=0)
  908DEFFNVy=!h%
  909DEFFNk=h%!8
  910DEFFNQ=FNU(h%+20)
  911DEFFNWy=((h%!16)=2)
  912DEFFNWLOCALK%:K%=FNVy:IF(K%AND-1048576)=-1048576THEN
  913K%=(K%AND&fff00)>>8
  914ELSEK%=-1
  915ENDIF:=K%
  916DEFFN_string_version=7
  917DEFFN_hard_initialise_stringPROCA("<BasicV$Lib>.ctype",1):=0
  918DEFFNb(Z$,a$)LOCALQ%,a%,_%:a%=LEN(Z$):_%=LEN(a$):Q%=0:WHILEa%>0AND_%>0ANDQ%=0:Q%=SGN(FNT(ASC(Z$))-FNT(ASC(a$))):IFQ%=0THEN
  919a%-=1:_%-=1:Z$=RIGHT$(Z$,a%):a$=RIGHT$(a$,_%)
  920ENDIF:ENDWHILE:IFQ%=0THEN
  921Q%=SGN(a%-_%)
  922ENDIF:=Q%
  923DEFPROCV_(Y$,X%)$X%=Y$:X%?LEN(Y$)=0:ENDPROC
  924DEFFN_Misc_version=46
  925DEFFN_hard_initialise_MiscLOCALN%,F_%,R%:IFFNH<12THENERROR1,"EIA1"
  926k$="":Au%=100:DIMju%16:=0
  927DEFFNR(z$,_y%,ru%)LOCALE_%,m_%,y_%,a_%,e_%:v%=FNNy(z$):IFU%AND2=0THEN
  928[OPTU%:DCD0:DCD0:]
  929ELSEE_%=ru%-P%-8:IFABS(E_%)>65535THENERROR1,"EIA2"
  930y_%=ABS(E_%)AND255:m_%=ABS(E_%)AND65280:IFE_%>=0THEN
  931a_%=v%OR(&28f0000+(_y%<<12)+y_%):e_%=v%OR(&2800c00+(_y%<<16)+(_y%<<12)+(m_%>>8))
  932ELSEa_%=v%OR(&24f0000+(_y%<<12)+y_%):e_%=v%OR(&2400c00+(_y%<<16)+(_y%<<12)+(m_%>>8))
  933ENDIF:[OPTU%:DCDa_%:DCDe_%:]
  934ENDIF:=0
  935DEFPROCW_(V$)LOCALTJ%,rJ%,vJ%:TJ%=P%:rJ%=O%:vJ%=U%:IF(U%AND4)=0THEN
  936O%=P%
  937ENDIF:P%=0:U%=U%OR6:P%=FNZ("FN_Declare_Local_Variables_"+V$):P%=TJ%:O%=rJ%:U%=vJ%:ENDPROC
  938DEFFNNy(z$)LOCALv%:CASEz$OF
  939WHEN"","  ":v%=14
  940WHEN"lo":v%=3
  941WHEN"hs":v%=2
  942OTHERWISEv%=INSTR("eqnecsccmiplvsvchilsgeltgtlealnv",z$):IF(v%MOD2)=0THENERROR1,"EIA13"
  943v%=(v%-1)>>1
  944ENDCASE:=v%<<28
  945DEFFNy(a%)IF(U%AND4)THENa%+=y%
  946=a%
  947DEFPROCWLOCALLy%:IFU%AND2THENLy%=50ELSELy%=0
  948SYS&606c4,((FNy(P%)-y%)/(L%-y%)*50)+Ly%:ENDPROC
  949DEFFN_Heap_version=9
  950DEFFN_hard_initialise_Heap=0
  951DEFFNY(RETURNey%,A%)ey%=USR(uJ%):IF!Cy%THENey%=0
  952=!Cy%
  953DEFPROCG(RETURNey%,w%)IFFNY(ey%,w%)THEN
  954ey%=!Cy%:ERROR!ey%,FNU(ey%+4)
  955ENDIF:ENDPROC
  956DEFPROCZ(RETURNA%)IFFNn(A%)THEN
  957A%=!Cy%:ERROR!A%,FNU(A%+4)
  958ENDIF:ENDPROC
  959DEFFNn(RETURNA%)CALLKJ%:A%=0:=!Cy%
  960DEFPROCJ_[OPTU%:FNX(uJ%,_y):FNX(KJ%,my):FNX(au%,iy):ALIGN:.Cy%DCD0:]:ENDPROC
  961DEFFNX(RETURNQu%,du%)[OPTU%:ALIGN:.Qu%:FNJ:STMFD(A)!,{Z}:MOV Z,#0:STR Z,Cy%:BL du%:STRvs0,Cy%:LDMFD(A)!,{pc}^:]:=0
  962DEFFN_Message_version=6
  963DEFFN_hard_initialise_Message:ai=31:SYS5,"RMEnsure CAssembler 0.08 RMLoad System:Modules.CAssembler":DIMly 256:=0
  964DEFFNg(f$,Lu%,RETURND_%)LOCALA%:SYS&fcb83,f$+".Messages.",Lu%,0TOA%,D_%:IFD_%=0THENCALLGy
  965=A%
  966DEFFNAy(J%,T$,h_%)SYS&fcb85,T$,h_%,J%TOh_%;J%:=h_%AND((J%AND2)=2)
  967DEFFNu(J%,T$,q$)LOCALt%:SYS&fcb85,T$,q$,J%TOt%;J%:=t%AND((J%AND2)=2)
  968DEFFNp(J%)LOCALt%:SYS&fcb86,J%TOt%;J%:=t%AND((J%AND2)=2)
  969DEFFND(J%,T$)LOCALt%:SYS&fcb84,T$,ly,256,J%,0TOt%,J%:?J%=13:=$ly
  970DEFPROCzy(J%,T$,Bu%)J%=FNAy(J%,T$,Bu%):ENDPROC
  971DEFPROCuy(J%,T$,q$)J%=FNu(J%,T$,q$):ENDPROC
  972DEFPROCz_(J%)J%=FNp(J%):ENDPROC
  973DEFFNS(R%)=FND(m%,"E"+STR$(R%))
  974DEFFNE(_$)=FND(m%,_$)
  975DEFPROC_(_$,R%)PROCzy(m%,_$,R%):ENDPROC
  976DEFPROCF(_$,i$)PROCuy(m%,_$,i$):ENDPROC
  977DEFPROCo(_$,B%)SYS&dcb84,_$,B%,256,m%,0:ENDPROC
  978DEFPROCQ_PROCz_(m%):ENDPROC
  979DEFPROCy(_%)IF_%<=0THEN
  980PROCF("Sys",""):PROCF("SysN","")
  981ELSEPROCF("Sys",FNM(_%+4)):PROCF("SysN",STR$~(!_%))
  982ENDIF:ENDPROC
  983DEFFNL(R%)=FND(m%,"LE"+STR$(R%))
  984DEFPROCxy[OPTU%:ALIGN:.Gy:FNJ:B ky:]:IFU%AND4THENGy+=y%
  985ENDPROC
  986DEFFN_IntMath_version=6
  987DEFFN_hard_initialise_IntMath=0
  988DEFFN_NullReason_version=5
  989DEFFN_hard_initialise_NullReason=0
  990DEFPROCayDIM`%4:!`%=0:wy%=0:G_%=FALSE:Oy%=6193:ENDPROC
  991DEFPROCOy(L$,ny%)PROCG_(L$,ny%,TRUE):ENDPROC
  992DEFPROCG_(L$,ny%,c_%)LOCALR%:PROCG(R%,12+LEN(L$)+1):$(R%+12)=L$:R%!8=ny%:R%!4=c_%:!R%=!`%:!`%=R%:PROCCy:ENDPROC
  993DEFPROCWy(L$,ny%)PROCly(L$,ny%,TRUE):ENDPROC
  994DEFPROCly(L$,ny%,c_%)LOCALR%,Z%:IFL$=""THEN
  995PROCB("EIN3"):WHILE!`%:PROCc(`%):ENDWHILE
  996ELSEZ%=`%:WHILE!Z%:R%=!Z%:IF($(R%+12)=L$)AND(R%!4=c_%)AND(((ny%=0)ANDc_%)OR(R%!8=ny%))THEN
  997PROCc(Z%)
  998ELSEZ%=R%
  999ENDIF:ENDWHILE
 1000ENDIF:ENDPROC
 1001DEFPROCc(Z%)LOCALR%:IFZ%=0THENPROCB("EIN6")
 1002R%=!Z%:IFR%=0THENPROCB("EIN5")
 1003IFR%=wy%THEN
 1004wy%=!R%:G_%=TRUE
 1005ENDIF:!Z%=!R%:PROCZ(R%):PROCCy:ENDPROC
 1006DEFPROCCyIF!`%THEN
 1007Oy%=Oy%AND(NOT1)
 1008ELSEOy%=Oy%OR1
 1009ENDIF:ENDPROC
 1010DEFPROCt_LOCALu%,Z%,s_%,A%:u%=!`%:WHILEu%:wy%=u%:G_%=FALSE:IFu%!4THEN
 1011s_%=FNZ("FN_Null_Reason_"+$(u%+12)+"("+STR$(u%!8)+")")
 1012ELSEs_%=FNZ("FN_Null_Reason_"+$(u%+12))
 1013ENDIF:IFG_%THEN
 1014u%=wy%
 1015ELSEwy%=0:A%=!u%:IFs_%THEN
 1016Z%=`%:WHILE!Z%<>u%:Z%=!Z%:IFZ%=0THENPROCB("EIN2")
 1017ENDWHILE:PROCc(Z%)
 1018ENDIF:u%=A%
 1019ENDIF:ENDWHILE:ENDPROC
 1020DEFFN_Null_Reason_PROCB("EIN1"):=0
 1021DEFFN_CheckVars_version=3
 1022DEFFN_hard_initialise_CheckVars=0
 1023DEFFN_ctype_version=1
 1024DEFFN_hard_initialise_ctype=0
 1025DEFFNUy(Q%)=Q%-ASC("A")+ASC("a")
 1026DEFFNSy(Q%)=Q%>=ASC("A")ANDQ%<=ASC("Z")
 1027DEFFNT(Q%)LOCALK%:IFFNSy(Q%)THEN
 1028K%=FNUy(Q%)
 1029ELSEK%=Q%
 1030ENDIF:=K%
 1304:
 1305:
 1306:
 1307DEFPROCH_PROCAy:ENDPROC
 1308DEFPROCO_BPUT#W%!20,"Run "+FNM(Ky%):ENDPROC
 1309:
 1310:
�>!RunImage
0�Produced by BasCompress v1.31 (18 Jan 1993)
S�M$(3):M$()="|","iconsprites","stripcfs","forcecfs":y$="uncfs":�d_("UnCFS",�):�

��R_(M%)�
G��Py�Q%:!a=�:!w=�:!_=�:!O=�:ș&2001e,18,"CFSUtil"+�(0)�;Q%:�F(Q%)�
�G(2,�S(15))
�:�
0ݤDy(E%,E$,N%)�G%,l_%:�D(E$):G%=�:l_%=�:Ȏ��
	ɤN(E$,Z$(N%)):l_%=�

ɤW<>Jy
ɤN("CFS#"+E$,Z$(N%))
ɤW<>E%(N%)

	G%=�
�:�l_%�

�n(E%)
	�:=G%
|��v(E%,E$,C$,N$)�X%,D%,J%,g%,Wy%,Ay%,M$,Q%:�D(E$):E$+="."+C$:�U(E%,E$):M$="CFS#"+E$:ș8,5,M$�,,g%,Wy%,D%,Ay%:�(Ay%�1)=0�
�z(E%,8,M$)
��P(X%,D%+1)�
�O(E%,�)
��:��:�Z(X%):�H
�:��:�l(E%,X%,M$):�
�f(M$,X%):��:�j(X%,D%,N$)�
	N$=""
�:�:��:�u(E%,X%,M$):�
7ș13,139,E$�J%:�:��:�Ry(J%,M$,g%,Wy%,X%,D%,Ay%)
�N$<>""�
ș12,2,J%,N$,�(N$)
H�:ș12,2,J%,X%,D%:��:�#J%:ș8,1,E$,g%,Wy%,,Ay%:��:�O(E%,�):��:�Z(X%)
�
�:�
 ݤj(ly%,D%,�N$)�G%:�N$=""�
!G%=�
"J�G%=D%>=�(N$):N%=1:ȕN%<=�(N$)�G%:G%=(�(�N$,N%,1))=ly%?(N%-1)):N%+=1:�
#	�:=G%
$/��jy(E%,E$)E%!W=-2:�D(E$):E$="CFS#"+E$:Ȏ��
%ɤN(E$,"!Boot")
&
ɤW<>f
'�n(E%):�q_(E%,E$)
(�:�
){��q_(E%,c$)�X%,D%,J%,g%,Wy%,Ay%,Q%,M$:�D(c$):E$=c$+".!Boot":�U(E%,E$):M$="CFS#"+E$:ș8,5,M$�,,g%,Wy%,D%,Ay%:�(Ay%�1)=0�
*�z(E%,8,E$)
+��P(X%,D%+1)�
,�O(E%,�)
-��:��:�Z(X%):�H
.�:��:�l(E%,X%,M$):�
/�f(M$,X%):��:�Hy(X%,D%)�
0笤o(E%,c$)�
1�:��:�u(E%,X%,E$):�
2ș8,6,E$:��:�O(E%,�)
3�
4�:��:�Z(X%)
5�
6�:�U(E%,""):�
7�ݤHy(ly%,D%)�f%,G%,Q$,N%:f%=0:G%=f%<D%:ȕG%��t(ly%,D%,f%,Q$):N%=�(M$(),1):ȕG%�N%>=0:G%=(�Q$,M$(N%))<>1):N%-=1:�:G%=�G%:�:=G%
8�ݤt(ly%,D%,�f%,�Q$)�Q$="":ȕf%<D%��Xy(ly%?f%):f%+=1:�:ȕf%<D%�(��d(ly%?f%)):Q$+=�Fy(ly%?f%):f%+=1:�:�(Q$="")�(�(Q$)<>�("|")):=Q$<>""
9ݤXy(Q%)�G%:G%=�:ȎQ%�
:	ɗ"*"
;	ɗ" "
<�9
=G%=�d(Q%)
>	�:=G%
?ݤd(Q%)=((Q%=10)�(Q%=13))
@#ݤFy(Q%)�Q%>=�("A")�Q%<=�("Z")�
AQ%+=�("a")-�("A")
B�:=�(Q%)
CX��I_�F%,N%,F_%:F_%=0:�N%=0��(A$(),1):ș46,280,e%,A$(N%):�F_%<�(A$(N%))�F_%=�(A$(N%))
D��N%:�f_%F_%+2:p=0:F%=�A(512):F%!0=-1:F%!4=0:F%!8=0:F%!12=68:F%!16=68:F%!20=12674:F%!24=f_%:$f_%=A$(p)+�(0):F%!28=e%:F%!32=F_%+1:ș&400c2,,F%�V_%:�C(F%,512):�
E4ݤo(E%,E$)�G%,M$,g%,Wy%,D%,Ay%:M$="CFS#"+E$:Ȏ��
FɤN(M$,"!Run")
GɤW=f:G%=�Ey(E%,M$+".!Run")
H	�:=G%
IBݤEy(E%,M$)�G%,D%,Ay%,X%:�f%,Q$,N%:ș8,5,M$�,,,,D%,Ay%:�Ay%�1�
J�P(X%,D%+1)=0�
K�:��:�Z(X%):�H
LZ�f(M$,X%):f%=0:G%=f%<D%:ȕG%��t(X%,D%,f%,Q$):G%=G%�(�Q$,"!boot")=0):�:G%=�G%:��:�Z(X%)
M�
N	�:=G%
O��AyȎW%!16�
P
�1282:�N_
Q�&400c0:�S_
R
�3:�f_
S�&400c1:�Sy
T
�8:�Iy
U�&400cc:�my
V�10:�O_
W	�0:�S
X�:�
Y��w_ș&400c5,,W%:�
Z��iyș&400c6,,W%:�
[��b_�!W%=V%�
\�M_(W%!4,W%!24)
]�ș&400dc,W%!24
^�:�
_2��ty�QJ%,IJ%:IJ%=�:�ș&400c7,Oy%,W%�QJ%:ȎQJ%�
`
�0:�t_
a
�2:�w_
b
�3:�iy
c
�6:�D_
d
�8:�b_
e
�9:�r_
f�17:�Ay
g�18:�H_
h�:��(IJ%):�
i��_y�a%,SJ%,Z$:��:�+0:�Z_%�
j(a%=!(�C("ProgInfo")+F+88+(By<<5)+20)
k�a%=�l(s%,By)
lL�:�Z$:SJ%=�(Z$):Z$=�Z$,2):ȕZ$<>"":?a%=�(Z$)�SJ%:Z$=�Z$,2):a%+=1:�:?a%=0
m8�"�����������",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
n�
o+��U_ș&465c6,Y%,j%:ș&dcb8d,ty,!j%,-1:�
p@��x_�j%4:!j%=0:�T("ShareWare",+1,""):�_("ShareWare",j%,VJ%)
q�
r��d_(f$,Qy%)��x
s{�Ty(20,12):Vy%=-2:sy%=�:Uy%=�:Uy%=�:sy%=�:Vy%=-3:�A("<BasicV$Lib>.CAsm",1):�A("<BasicV$Lib>.Template",21):O_%=sy%:i%=+1
t�AJ%=�:ky%=0:`y%=0:�T_("stdio, stdlib, string, message, wimp"):�ky(2000,�,�):�A("<BasicV$Lib>.ModeInfo",1):�A("<BasicV$Lib>.Wimp",28)
u~�A("<BasicV$Lib>.FileType",2):�A("<BasicV$Lib>.file_io",9):�A("<BasicV$Lib>.string",6):m%=�g("<UnCFS$Dir>",-1,D_%):�D_%>0�
v8�!m%,"UnCFS can't load its' message file: "+�U(m%+4)
w�:�Qy%�Qy%=2�Qy%=1
x��_("Patching",Qy%):�_("patching",Qy%):�_("patched",Qy%):�_("patch",Qy%):b$="ForceCFS"+�(10):NJ%=0:XJ%=1:dJ%=2:FJ%=0:j_%=0:v_%=1:t_%=2:z_%=3:x_%=4:UJ%=6:BJ%=7:JJ%=8:oJ%=9:Xy=60-1:u=2:v=4:X=5:U=7:H=9:V=11:Y=13:P=14
y�Oy=17:Q=18:Zy%=0:�Z$(5):Z$()="!Boot","!Run","!Sprites22","!Sprites23","!Sprites33","!Sprites32":�E%(�(Z$(),1)):E%()=f,f,b,b,b,b:�A$(1):A$()="!uncfs","busy":Wu%=�:Z_%=�:n%=�:U$="&502,&400c0,3,&400c1,8,&400cc,10":�Yy(f$,1,20,23,7,1994):Uy%=sy%:�Dy:�U_
z��x
{�vy:��ty:��:�:�
|���r�uy,y:t=0<<2:T=1<<2:J=2<<2:E=3<<2:q=4<<2:s=5<<2:R=6<<2:K=7<<2:S=8<<2:n=9<<2:G=10<<2:W=12<<2:Fy=13<<2:Sy=14<<2:Ly=15<<2:Vy=16<<2:M=17<<2:r=18<<2:Zy=19<<2:Uy=0<<2:Hy=1<<2:o=2<<2:L=3<<2:D=0:I=1:B=2:x=3:d=4:C=5:[OPTU%:ALIGN
}�.uy EQUS"[0,w>,>,>":DCB0:.Ky EQUS"[100,<t>":DCB0:ALIGN:.y DCD0:.a DCD0:.w DCD0:._ DCD0:.O DCD0:ALIGN:.gy:�J:STMFD(A)!,{4-9,Z}:MOV1,#0:ADR0,uy:BL Wy:STRvc0,y
~�ADRvc0,y:LDMFD(A)!,{4-9,pc}:.Ty:�J:STMFD(A)!,{4-9,Z}:LDR0,[0,#M]:STMFD(A)!,{0}:MOV1,#0:ADR0,Ky:BL Wy:ADD A,A,#1<<2:STRvc0,y:ADRvc0,y:LDMFD(A)!,{4-9,pc}:]:�L_:�
��j�
�`��a_:ty%=-12314:�T("FConvert",+1,"StatusW"):�T("Choices",+1,"ChoicesW"):V%=0:vu%=0:�x_:�_y:�
�}ݤStatusW(M%)�R_(M%):OJ%=M%!16:qJ%=M%!20:bJ%=M%!8-M%!0:MJ%=M%!12-M%!4:o_%=M%!48-M%!40:Y_%=M%!52-M%!44:�P(M%,X,�E("None"))
���P(M%,X+1,�E("FScan0")):�P(M%,U,�E("None")):�P(M%,U+1,�E("FConv0")):�P(M%,H,�E("None")):�P(M%,H+1,�E("AScan0")):�P(M%,V,�E("None"))
���P(M%,V+1,�E("AConv0")):�P(M%,v,""):�P(M%,u,""):�P(M%,Y,�E("Abrt")):�P(M%,v-1,�E("Patching")):�s(M%!72,��E("Title"),M%!80-1)):=0
�6ݤChoicesW(M%)�s(M%!72,��E("Choices"),M%!80-1)):=0
�:��P(M%,N%,Y$)N%=M%+88+(N%*32):�s(N%!20,�Y$,N%!28-1)):�
�%��B_(c%,b%,_%,T%)c%=�G(1,�S(2)):�
�ݤf(M%,�E%)�jy%:ȎM%�
��-2
��s%
��!j%
��V%
�7E%=Zy%:jy%=�:ȕE%��jy%:jy%=(M%=E%!E):�jy%�E%=E%!T
��:�jy%�
�
M%=ty%
��
�	�:=M%
�<��N_�A$,q%,T%,A%,N%,X%,E%:A$="":T%=W%!36:Ȏ�f(W%!32,E%)�
��-2:�T%=V_%�
�A$="IconBar"
��
��s%:A$="ProgInfo"
��!j%:A$="ShareWare"
��V%:A$="Choices":�T%>=0�
�A$+=","+�(T%)
��
��ty%:A$="Status":�T%�
�A$+=","+�(T%)
�
�:ȎE%!S�
��B,D,I:A$+=",P"
��C:A$+=",S"
��x:A$+=",C"
��d:A$+=",D"
��
��(U_%>218)�(W%!36<>-1)�
�
A$=�Cy
��
��:�A$<>""�
��o("H"+A$,W%+20):�W%?20�
�NW%!16=1283:W%!12=W%!8:A%=W%+20:ȕ?A%:A%+=1:�:�A%>=(W%+256)�A%=W%+255:?A%=0
�)W%!0=(A%-W%+4)�-4:ș&400e7,17,W%,W%!4
��
��:�
�8ݤCy�A$,M%:M%=W%+40:ș&400f4,1,M%,W%!32,W%!36:ȎSy%�
��xy%:A$="I"
��py%:A$="D"
��:�A$<>""�
�7A$="M"+A$+�(!M%):ȕM%!4<>-1:M%+=4:A$+="_,"+�(!M%):�
�	�:=A$
�!��Sy�qy(-1):ș&465c2,Y%:�sy:�
�/��S�::��1,"Error in error handler: "+�$
��Hy:�Q_:�i:ș&400dd:�:�
���v_�w�
��S
��:�
�Bݤw�qy%,E%:qy%=�:E%=Zy%:ȕE%�qy%:qy%=(E%!S=d):E%=E%!T:�:�qy%�
�qy%=(�G(3,�S(5))=1)
�
�:=qy%
���Iy�w�
��S
�,�W%!12=W%!8:Iu%=W%!4:ș&400e7,19,W%,W%!4
��:�
�X��D_�c%,b%,_%,M%,T%,F_%,X%,E%:c%=W%!0:b%=W%!4:_%=W%!8:M%=�f(W%!12,E%):T%=W%!16:Ȏ_%�
��2:ȎM%�
�9�-2:�p:b%=96+(44*HJ%)+(24*kJ%):ș&400d4,,Iy%,c%-64,b%
��!j%:�Qy
�&�ty%:�k(E%):ș&400d4,,Iy%,c%-64,b%
��
��1*16,4*16:ȎM%�
��s%:�Ny(c%,b%,_%,T%)
��
�
ȎM%�
��-2:�B_(c%,b%,_%,T%)
��w_%:�ry(c%,b%,_%,T%)
��s%:�Ny(c%,b%,_%,T%)
��!j%:�Qy
��ty%:�K_(E%,T%,_%)
��V%:�by(_%,T%)
��
��:�
�&��Qyș&465c4,Y%,j%:�Z(VJ%):!j%=0:�
�.��Ky:Sy%=�:xy%=&1040a31+0:py%=&1040a31+1:�
�-��p�A%:HJ%=3:kJ%=0:�ky%�ș&465c8,Y%,ky%,�
�6A%=�(gy):Iy%=!A%:ky%=Iy%:ș&465c7,Y%,ky%:Sy%=xy%:�
���k(E%)�A%:�E%�
�
K_%=E%
��:�`y%�ș&465c8,Y%,`y%,�
�=A%=K_%:A%=�(Ty):Iy%=!A%:`y%=Iy%:ș&465c7,Y%,`y%:Sy%=py%:�
�5��S_�c%,b%,M_%:c%=W%!24:b%=W%!28:M_%=W%!32:ȎSy%�
��xy%:ȎM_%�
��NJ%:�Fy:�s%>0�
�@�E(s%,0,�E("App")):�E(s%,1,�E("Purpose")):ș&400e8,,s%,c%,b%
��
��
��:�
�k��r_�M_%,F%,_J%,zJ%,iJ%,A%:F%=�A(512):ș&400cf,,F%:_J%=F%!0:zJ%=F%!4:iJ%=F%!8:�C(F%,512):M_%=!W%:ȎSy%�
��xy%:ȎM_%�
��XJ%:�`y
��dJ%:�v_
��
��py%:ȎM_%�
��FJ%:�w(K_%)
��
�
�:�iJ%=1�
�
ȎSy%�
��xy%:�p
��py%:�k(0)
��:ș&400d4,,Iy%,_J%,zJ%
���h
��:�
���hș&400d4,,-1:Sy%=�:�
���H��,�q:�S:�
�ݤq�w$:�sy%�
�w$=�$+" ["+�(�)+"]"
�
�w$=�$
�	�:=w$
�0��Dy�J%:�Py:J%=�(�M(Ky%)+".Choices"):�J%<>0�
��:��:�#J%:�
�+�#J%,!a:�#J%,!w:�#J%,!_:�#J%,!O:��:�#J%
��:�
�4��Gy�J%:J%=�(�M(Ky%)+".Choices"):�:��:�#J%:�
�-�#J%,!a:�#J%,!w:�#J%,!_:�#J%,!O:��:�#J%:�
�
��By�Py:�
�"��f_�((W%!20=-2)�(W%!24=V_%))�
�ȎW%!40�
�?�xy:�My(�M(W%+44),�):W%!12=W%!8:W%!16=4:ș&400e7,17,W%,W%!4
�?�ny:�My(�M(W%+44),�):W%!12=W%!8:W%!16=4:ș&400e7,17,W%,W%!4
��G(1,�S(3))
�
�:�
.��My(E$,R_%)�E%:�D(E$):�P(E%,Zy+�(E$)+1)�
R�$(E%+Zy)=E$:E%!J=0:E%!Fy=!a:E%!M=!w:E%!Sy=!_:E%!Ly=!O:E%!E=0:E%!r=�:�Iy(E%)�

�Z(E%)
��Zy%=0��Y(1)
�c_(E%,Zy%):�s(E%,E$,R_%)�

�b(E%)
��e(E%)
	�

�
�:�
Mݤ_Null_Reason_uncfs(E%)�G%:ș&606c0:ș&20006,229,0,0:�:��:�E_(E%):=�

G%=�:�ȎE%!S�
�B:�Z_(E%)
�D:�fy(E%)
�I:�Y_(E%)
�x,d,C:G%=�
2�:�G%�E%!Fy:��:ș&20006,229,255,0:ș&606c1:=G%
.��E_(E%)ș&606c1:ș&20006,229,255,0:�=17�
�J(E%,x)
��b(E%):�V(�,�q)
�:�
'��Z_(E%)�G%,I%,E$:G%=�:I%=E%!J:�I%�
!E$=$(I%+L):�O(E$,"*",I%!Uy)�
	�Wy�
#�s(E%,E$+"."+�Q,�(�Q)=�("!"))�

G%=�V(E%)
�
�
�G%=�V(E%)
�
 	�G%=�
!
�:�G%�
"
�E%!S<>C�
#�J(E%,d)
$�
%�:�
&]��fy(E%)�G%,I%,E$:G%=�:I%=E%!J:E$=$(I%+L):ȕE%!G<�(Z$(),1)�G%�(E%!S<>C):�Dy(E%,E$,E%!G)�
'�E%(E%!G)=f�
(�v(E%,E$,Z$(E%!G),b$)
)��v(E%,E$,Z$(E%!G),"")
*
�:G%=�
+�:E%!G+=1:�:�G%�
,�E%!S=D�
-�E%!Sy�
.�J(E%,I):E%!W=0
/
��J(E%,B)
0�
1�
2�:�
3R��Y_(E%)�G%,I%,E$:G%=�:I%=E%!J:E$=$(I%+L):ȕE%!W<>-1�G%�E%!S<>C:�Py(E$,E%!W)�
4�v(E%,E$,�Q,""):G%=�
5!�:�:�(E%!Ly<>0)�G%�(E%!W=-1)�
6
�I%!o�
7�jy(E%,E$)
8�
9
�:�G%�
:�E%!S=I�
;�J(E%,B)
<�
=�:�
>/ݤPy(E$,�x%)�G%:�D(E$):G%=�:�O(E$,"*",x%)�
?�n(E%):�W=Jy�
@"G%=(�k>=�My("CFS#"+E$+"."+�Q))
A�
B
�x%=-1
C	�:=G%
D!��D(�x$)�b(�x$,4),"CFS#")=0�
E
x$=�x$,5)
F�:�
G'��z(E%,qu%,E$)�J(E%,C):�E%!M��w(E%)
H�U(E%,E$):�X_(E%,�S(qu%)):�
I2��l(E%,X%,E$)�Z(X%):�F("Sys",�$):�z(E%,6,E$):�
J2��u(E%,X%,E$)�Z(X%):�F("Sys",�$):�z(E%,7,E$):�
K(��Ry(J%,E$,g%,Wy%,X%,D%,Ay%)�J%��#J%
L;ș&20008,0,E$,g%,Wy%,X%,X%+D%:ș&20008,4,E$,,,,Ay%:�H:�
M/ݤs(E%,E$,R_%)�I%:�D(E$):�P(I%,L+�(E$)+1)�
NI%=0
OC��t(E%,E$):I%!Hy=E%!J:I%!Uy=0:I%!o=R_%:$(I%+L)=E$:E%!J=I%:�R_%�
P�J(E%,D):E%!G=0
Q�
R
�:=(I%=0)
SݤV(E%)�x%,I%:I%=E%!J:�I%�
T
�I%!o�
U�oy(E%):�E%!r�
V�Uy(E%)
W�
X*�:x%=I%!Hy:�Z(I%):E%!J=x%:I%=x%:E%!r=�
Y
�:�I%�
Z�t(E%,$(I%+L))
[
�:=(I%=0)
\;��b(E%)���V(E%):�Vy(E%):�A_(E%,Zy%):�Z(E%):�Zy%=0��Y(0)
]�
^2��c_(Gy%,�ry%)Gy%!T=ry%:Gy%!t=0:�ry%�ry%!t=Gy%
_
ry%=Gy%:�
`=��A_(Gy%,�ry%)�T_%,my%:T_%=Gy%!t:my%=Gy%!T:�my%�my%!t=T_%
a�T_%�T_%!T=my%
b�Gy%=ry%�ry%=my%
c�
d)ݤP(�Xu%,w%)�__%:__%=�Y(Xu%,w%):�__%�
e�V(yy%,�S(4))
f
�:=__%
g0��dy�E%,J_%:J_%=�:E%=Zy%:ȕE%�(�J_%):ȎE%!S�
h�B,D,I:J_%=�
i�:E%=E%!T:�:�J_%�
j	�Y(1)
k
��Y(0)
l�:�
m��Y(N%)�N%<>p�
n+$f_%=A$(N%)+�(0):�hy(-1,V_%,0,0,0):p=N%
o�:�
p5ݤIy(E%)�ny("FConvert",E%+E,256,128,E%!Vy):�E%!E�
q9E%!q=0:E%!s=0:E%!R=0:E%!K=0:E%!r=�:�J(E%,B):�E%!M��Ey
r�wy(E%!E,-1)
s�:=(E%!E=0)
t��Vy(E%)�E%!E�
uș&465c4,Y%,E%+E:�Z(E%!Vy)
v�:�
w��K_(E%,T%,_%)�E$:ȎT%�
x�u,v:E$=�r(E%):�(_%�1)=0�
yE$="CFS#"+E$
z"�:ș&20005,"Filer_OpenDir "+E$
{�P:ȎE%!S�
|#�B,D,I:�J(E%,x):�Wy("uncfs",E%)
}�x:�J(E%,E%!n):�e(E%)
~ �C:�i(E%):�J(E%,E%!n):�e(E%)
�
��Q:�E%!S=C�
�(�i(E%):�J(E%,E%!n):E%!G-=1:�E%!W<-1�
�E%!W+=1
��E%!W-=1
��:�e(E%)
���m(E%)
��
�
�Y:�m(E%)
��:�
�+��e(E%)�Y(1):�O(E%,�):�Oy("uncfs",E%):�
�#��m(E%)�Wy("uncfs",E%):�b(E%):�
�(��J(E%,mJ%)E%!n=E%!S:E%!S=mJ%:ȎmJ%�
�A�D,I,B:�q(E%!E,Q):�Q(E%!E,Y):�Q(E%!E,P):�E(E%!E,P,�E("Paus"))
�=�x:�q(E%!E,Q):�Q(E%!E,Y):�Q(E%!E,P):�E(E%!E,P,�E("Cont"))
�H�d:�Q(E%!E,Q):�q(E%!E,Y):�q(E%!E,P):�E(E%!E,Q,�E("Ok")):�E%!M��w(E%)
�S�C:�Q(E%!E,Q):�Q(E%!E,Y):�Q(E%!E,P):�E(E%!E,P,�E("Skip")):�E(E%!E,Q,�E("Rtry"))
��:�dy:�
�M��q(M%,N%)�Z%:Z%=�A(64):!Z%=M%:Z%!4=N%:ș&400ce,,Z%:�((Z%!24)�(1<<23))=0�
�Jș&400d1,M%,Z%!8,Z%!12,Z%!16,Z%!20:Z%!8=1<<23:Z%!12=1<<23:ș&400cd,,Z%
��:�C(Z%,64):�
�I��Q(M%,N%)�Z%:Z%=�A(64):!Z%=M%:Z%!4=N%:ș&400ce,,Z%:�(Z%!24)�(1<<23)�
�Jș&400d1,M%,Z%!8,Z%!12,Z%!16,Z%!20:Z%!8=0<<23:Z%!12=1<<23:ș&400cd,,Z%
��:�C(Z%,64):�
�*��n(E%)E%!q+=1:�E%!M=0��N(E%!E,X,E%!q)
�%�E%!q=1��E(E%!E,X+1,�E("FScan1"))
�%�E%!q=2��E(E%!E,X+1,�E("FScanN"))
��
���O(E%,gu%)�gu%�
�*E%!r=�:E%!s+=1:�E%!M=0��N(E%!E,U,E%!s)
�%�E%!s=1��E(E%!E,U+1,�E("FConv1"))
�%�E%!s=2��E(E%!E,U+1,�E("FConvN"))
��:�U(E%,""):�
�+��oy(E%)E%!R+=1:�E%!M=0��N(E%!E,H,E%!R)
�%�E%!R=1��E(E%!E,H+1,�E("AScan1"))
�%�E%!R=2��E(E%!E,H+1,�E("AScanN"))
��
�E��Uy(E%)E%!K+=1:�N(E%!E,V,E%!K):�E%!K=1��E(E%!E,V+1,�E("AConv1"))
�%�E%!K=2��E(E%!E,V+1,�E("AConvN"))
��
���t(E%,E$)�E%!M=0�
��E(E%!E,u,�c(E$))
��:�
���U(E%,E$)�E%!M=0�
��E(E%!E,v,�c(E$))
��:�
�ݤc(E$)�(E$)>Xy�
�E$="..."+�E$,Xy-3)
�	�:=E$
�ݤr(E%)�E$,I%:I%=E%!J:�I%�
�E$=$(I%+L)
��E$=$(E%+Zy)
�	�:=E$
���w(E%)E%!M=(E%!M=0):�E%!M�
��Ey
�\��t(E%,�r(E%)):�U(E%,""):�N(E%!E,U,E%!s):�N(E%!E,X,E%!q):�N(E%!E,V,E%!K):�N(E%!E,H,E%!R)
��:�
�c��Ey�E(E%!E,u,"-"):�E(E%!E,v,"-"):�E(E%!E,U,"-"):�E(E%!E,X,"-"):�E(E%!E,V,"-"):�E(E%!E,H,"-"):�
�/��X_(E%,o$)�Z%,eJ%,fJ%,cJ%,g_%:�E%!M��w(E%)
���E(E%!E,Oy,o$):Z%=�A(64):!Z%=E%!E:cJ%=H_%+1:g_%=P_%+1:eJ%=�((1<<C_%)-1):fJ%=�((1<<Dy%)-1):Z%!4=((cJ%-o_%)/2)�eJ%:Z%!16=g_%-((((g_%-68)-Y_%)/2)�fJ%):Z%!12=Z%!4+o_%:Z%!8=Z%!16-Y_%:Z%!20=0:Z%!24=0:Z%!28=-1:ș&400c5,,Z%:�7:�C(Z%,64):�
����i(E%)�Z%:Z%=�A(64):!Z%=E%!E:ș&400cb,,Z%:Z%!12=Z%!4+bJ%:Z%!16=Z%!8+MJ%:Z%!20=OJ%:Z%!24=qJ%:Z%!28=-1:ș&400c5,,Z%:�C(Z%,64):�U(E%,""):�
���`y�V%=0�
�#�EJ%4:!EJ%=0:�a("Choices",EJ%)
�V%=!EJ%
�
�:�V%�
��d:�py(V%):�`(V%,-1)
��:�
���d�V%�
�Xș&465c6,Y%,V%:�I(V%,j_%,!a):�I(V%,v_%,!w):�I(V%,t_%,!_):�I(V%,z_%,!O):�I(V%,x_%,�x)
��:�
�#��by(_%,T%)�by%:�`(V%,-1):ȎT%�
��UJ%:�R:by%=�
��BJ%:�d:by%=�
��JJ%:�R:�Gy:by%=�
��oJ%:�By:�d:by%=�
��:�by%�
��_%�1092��X(V%)
��:�
�e��R�u_%,I$,R$,B$:!a=�B(V%,j_%):!w=�B(V%,v_%):!_=�B(V%,t_%):!O=�B(V%,z_%):u_%=�x:�u_%<>�B(V%,x_%)�
�)I$="TFont":R$="TSystem":�u_%�ȔI$,R$
�[B$=�M(Ky%)+".":I$=B$+I$+�0:R$=B$+R$+�0:B$=B$+"Templates"+�0:ș41,25,B$,I$:ș41,25,R$,B$
��:�
���M_(T%,tJ%)ȎtJ%�
��13:�R:�X(V%)
��27:�X(V%)
��386:�R:�X(V%)
��387:�X(V%)
��388:�R:�Gy:�X(V%)
��389:�By:�X(V%)
�ș&400dc,tJ%
��:�
�{ݤx�G%,F%,Ly%,R%:F%=�A(128):Ly%=0:�ș12,9,Ky%,F%,1,Ly%,128,"TSystem"+�0�,,,R%,Ly%:G%=(R%=1):�(Ly%=-1)�G%:�C(F%,128):=G%
���my�A$:ȎW%!20�
��V%:A$="WinChoices"
��:�A$<>""�
�lA$=�E(A$):W%!16=&400cc:W%!12=W%!8:$(W%+28)=y$+�0:$(W%+36)=A$+�0:W%!0=(36+�(A$)+4)�-4:ș&400e7,17,W%,W%!4
��:�
�
ݤH=19
���Ty(DJ%,cu%)�H<cu%�
�
�1,"EIL1"
�
�:�DJ%<1�
�
�1,"EIL2"
�i�:I_%=DJ%:�S$(I_%-1):�A%(I_%-1):i_%=0:�Yy%256:Q_%=40:z%=0:Vy%=12:aJ%=�:�E$(Q_%-1):dy%=�:Uy%=�:O_%=�:�
���A(J$,yJ%)�Xy(J$,yJ%):�
�Z��Xy(J$,yJ%)�g%,N%,C$,d$:N%=0:g%=�:C$=�J$,1+�J$,".")):ȕN%<i_%�g%:g%=(C$<>S$(N%)):�g%�
�	N%+=1
��:�:�g%�
��N%=I_%�
�
�1,"EIL3"
�O�:S$(N%)=C$:d$="'"+J$+"' does not have a FN_":�:��:�M(d$+C$+"_version")
�RA%(N%)=�("FN_"+C$+"_version"):��:i_%+=1:�:��:�M(d$+"_hard_initialise_"+C$)
�!�("FN_hard_initialise_"+C$)�
��1,"EIL5 "+J$
��:��
��:�yJ%>A%(N%)�
��1,"EIL4 "+J$
��:�
�ݤZ(g$)�:��:�ey
�
=�(g$)
�
��ey�O_%�
�-��,�$+" (evaluating `"+g$+"' ["+�(�)+"])"
�
̅�,�$
��:�
�+ݤU(A%)�S$:ȕ?A%:S$+=�(?A%):A%+=1:�:=S$
�;ݤGy(A%,B%)�S$:ȕB%>=1�?A%:S$+=�(?A%):A%+=1:B%-=1:�:=S$
�.ݤM(A%)�S$:ȕ?A%>31:S$+=�(?A%):A%+=1:�:=S$
�!��s(A%,S$)$A%=S$:A%?�(S$)=0:�
���Zy(A%,S$,B%)�(S$)<=B%�
�($A%=�S$,B%-1):A%?(B%-1)=�(�S$,B%,1))
�$A%=S$:A%?�(S$)=0
�:�
��M(W$)�dy%�
	�Uy%�
��,�$+" ["+Þ+"]."

̅�,�$
�
��aJ%�
�z%=Q_%�
	&E(Q_%-1)="Errors too deep!!!!!":�x

�:��W$,2)=": "�
W$=�W$,�(W$)-2)
�:�Uy%�


E$(z%)=�$
��z%=0�
JE$(z%)="Error `"+�$+"' (line ":E$(z%)+=�(�)+") in ":E$(z%)+="`"+W$+"'"
�E$(z%)="`"+W$+"'"
�
�:z%+=1:��,""
�
�:�
��x�o%,l$:�dy%�
	�Uy%�
 �V(�,�$+" ["+�(�)+"]."):�S:�
��V(�,�$):�=N_%�
�S:�
�
�

��Vy%=-2�

�z%>0�

���,E$(0)
̅��,�$
 �:�
!�:�Vy%=-3�
"8$Yy%="TASK":ș&400c0,200,!Yy%,"LibHandler"+�(0):�z%�
#�o%=0�z%-1:�o%<(z%-1)�
$�g(E$(o%)+" in")
%��g(E$(o%))
&	�:�o%
'��g(�$+" (line "+�(�)+")")
(�:ș&600dd:�
)�:�Vy%>=0�
*�Vy%
+'�:�"An error has occured...":�:�z%�
,6�o%=0�z%-1:�((7-(o%<<1))�6)+1:�E$(o%);:�o%<(z%-1)�
-�" in ";
.	�:�o%
/��$;" (line ";�(�);")"
0�:�:�7:�
1�:�
2f��g(q$)�ZJ%:ZJ%=20+(�(q$)+5)�-4:!Yy%=ZJ%:Yy%!16=&804c0:$(Yy%+20)=q$+�(10)+�(0):ș&600e7,17,Yy%,0:�
3ݤ_CAsm_version=14
4�ݤ_hard_initialise_CAsm�A("<BasicV_Assembler$Lib>.Misc",27):ș5,"RMEnsure CAssembler 0.08 RMLoad System:Modules.CAssembler":ș5,"If ""<CAsm$Dir>""="""" Then Set CAsm$Dir <d>.Library.CAsm":CAsmLibrary_stdlib=1:CAsmLibrary_stdio=2
5�CAsmLibrary_string=3:bi=4:li=5:ru=6:Ei=7:CAsmLibrary_wimp=8:V_=9:CAsmLibrary_message=10:cl=11:lu=12:Il=13:ti=14:gu=15:Zi=16:Q_=17:Uu=18:Rl=19:YJ=20:SJ=21:u_=22:Hl=23:ml=24
6�o_=25:za=26:k=26:GJ=0:HJ=1:Wu=2:AJ=3:M_=4:J_=5:H_=6:Ri=7:Ua=8:py=9:h=10:z=11:l=12:A=13:Z=14:JJ=15:ay=&6d734143:p%=0:Py%=13:j=0:N=0:`=10*1024:fy=`+(1*1024):ry=�:=0
7A��T_(X$)�Z%,k%,Ty%,L%,O%,P%,U%,J$:�:��:ș&400ec,cy%,-1:�H
8Rcy%=�-32768:ș&400ec,cy%+32768,-1�L%:L%+=32768:O%=cy%+32768:P%=0:U%=14:�O%=L%�
9/�1,"Not enough memory to start application"
:
�:�p%<>0�
;
�1,"EIC1"
< �:�q_%k*8:�F$(k):�h_DEFAULT
=3ȕX$<>"":J$=�X$,�X$,",")-1):�:��:�M("EIC2")
>Gk%=�("CAsmLibrary_"+J$):��:Ty%=q_%:Z%=Ty%+(p%*8):ȕZ%>Ty%:�!Ty%=k%�
?Ty%=Z%+1
@�Ty%+=8
A�:�:�Ty%=Z%�
B�p%>=k�
C
�1,"EIC3"
D=�:!Z%=k%:F$(k%)=J$:p%+=1:O%=cy%+32768:P%=0:�Z("FNh_"+J$)
EG�:X$=�X$,�(J$)+2):ȕ�(X$)=�(" "):X$=�X$,2):�:�:ș&400ec,cy%,-1:��:�
F��Jy�R%,Z%,N%,Ey%:�p%=0�
G�h_DEFAULT
H�:Ey%=q_%:N%=p%:�(U%�2)=0�
I)�Z%p%*4:ș79,p%,Z%+&c0000000,3,,Ey%,8
J��:[OPTU%:.Qy DCDay:DCDRy:]:ȕN%>0:[OPTU%:DCD!Ey%:DCDEy%!4:]:Ey%+=8:N%-=1:�:[OPTU%:DCD0:]:[OPTU%:ALIGN:.Ay:]:Z%=P%:�jumpblock_DEFAULT
KIRy=(P%-Z%)>>2:N%=p%:Ey%=q_%:ȕN%>0:Z%=P%:�Z("FNjumpblock_"+F$(!Ey%))
L%Ey%!4=(P%-Z%)>>2:Ey%+=8:N%-=1:�:�
M���__�Ey:[OPTU%:ALIGN:.My:STMFD(A)!,{4-5,Z}:BL P%+(13<<2):.Ey DCDQy-Ey:DCDAy-Ey:DCDj-Ey:DCDN:DCD`:.e:DCD0:DCD0:DCD0:DCD0:LDR A,e
N�LDMFD(A)!,{h,z,l,Z}:MOVpc,Z:BIC 5,Z,#&fc000003:LDMIA5,{0-4}:ADD0,0,5:ADD1,1,5:ADD2,2,5:MOV5,#0:SWI &fcb80:STRvc0,e+(1<<2):STRvc1,e+(3<<2):LDMFD(A)!,{4-5,pc}:.i:�J:MOV2,Z:MOV1,A:MOV0,h
OqSWI &fcb81:MOVvc1,#0:STRvc1,e+(3<<2):MOVpc,2:MOV13,12:]:j=P%:�W:�j:N=(N+3)�-4:P%+=N-1:O%+=N-1:[OPTU%:DCB0:]:�
P��h_�P%<>32768��1,"EIC4"
Qo[OPTU%:ADR4,m:MOV5,#cy:SWI &fcb80:�R("vc",2,tu):Bvc qy:SWI 43:.m:DCDQy-m:DCDAy-m:DCDj-m:DCDN:DCD`:DCDfy:]:�
RsݤJ[OPTU%:STMFD(A)!,{h,z,l,Z}:MOV z,pc:�R("",Z,e):STR A,[Z],#4:LDMIA(Z)!,{h,l,A}:� z,z,#&fc000003:�R Z,Z,z:]:=0
S^��ky(vy%,By%,LJ%)�A("<BasicV$Lib>.Heap",8):�A("<BasicV$Lib>.Message",1):�m(vy%,By%,LJ%,0)
T�My:��i:�x
U�
VTݤm(vy%,By%,LJ%,zy%)�L%,O%,P%,U%,uu%,H%:�DJ:�dJ,vJ,qJ,i_,eJ,aJ:�ey,Iy,ei:�zy%=0�
W:�A("<BasicV$Lib>.Heap",8):�A("<BasicV$Lib>.Message",1)
X~�:�y%vy%:DJ=A:dJ=1<<31:vJ=1<<30:qJ=1<<29:i_=1<<28:eJ=1<<27:aJ=1<<26:ey=1<<17:Iy=256:ei=Iy+ey:ș&606c0:�:��:ș&606c1:�H
Y"H%=vy%:L%=y%+vy%:�By%<>0�By%=4
Z"�U%=8+By%�10+By%�2:�(U%�4)<>0�
[O%=y%:�zy%=1�
\P%=32768
]	�P%=0
^�
_�O%=0:P%=y%
`�:Ȏzy%�
a0�1:�W:�h_:�W:�r:�W:�Jy:j=P%:�W:�j:N=(N+3)�-4
b(�0:�W:�r:�W:�J_:�W:�xy:�W:�Jy:�W:�__
c�2:�W:�r
d�:�U%�4�L%=O%�L%=P%
e�(U%�2)=0�
fș&dcb93,0,y%,L%-y%
g!�:H%=L%-y%:�U%:ș&606c1:�By%�
h�zy%=0�
iMy+=y%:i+=y%
j�
k�:�ry�zy%<>2�
l	�By%�
mH%=Ay:�zy%�H%-=32768
n̅1,"EIC9"
o�
p�:�LJ%�
q`�"Assembled to &";~H%;" = ";((H%*10+512)�1024)/10;"K":�"Could assemble with ";vy%-H%;" less"
r	�:=H%
sݤ_Template_version=21
tbݤ_hard_initialise_Template:Z_%=�:n%=�:i%=�:oy%=�:AJ%=�:Zu%=-1:xu%=1:vy=7:By=16:dy=14:sy=15:=0
u��Hy�N%:�n%<>-1�
v�i%�
wș&665c1,Y%,�,�
x1��N%=0�255:ȕn%?N%:ș&60082,N%:n%?N%-=1:�:�N%
y�
z�:�
{.��Ly�D%,d%,Q%,F%,P$,tu%,Hy%,gy%,x%,R%:�n%�
|�i%�
}oy%=(i%=+1):�oy%�
~	Q%=+1
	�Q%=0
��:Hy%=140+(1<<21):�AJ%�
�O$=�E("MenuFont"):�O$<>""�
��Hy%+=(1<<18)+(1<<19):�G(gy%,8+�(O$)+1):$(gy%+8)=O$:gy%!0=16*�(�E("MenuFontWidth")):gy%!4=16*�(�E("MenuFontHeight")):�E("MenuFontLowRez")="NO"�
�Hy%+=(1<<17)
��Hy%+=(1<<16)
��
��
�*�:ș&465c0,Y%,0,0,Q%,Q%,0,0,Hy%,gy%�n%
�!��G(n%,256):ș&dcb93,0,n%,256
��
�
�n%=-1
�4�:P$=�K("<"+G$+"$Dir>.Sprites"):D%=�I(P$):�D%>0�
�mF%=�A(128):x%=0:�ș12,12,"<"++G$+"$Dir>",F%,1,x%,128,"Sprites*"�,,,R%,x%:�R%=1�F%!20=4089�D%<F%!8�D%=F%!8
�l�x%<0:�C(F%,128):�G(e%,D%+16):e%!0=D%+16:e%!4=0:e%!8=16:e%!12=16:ș&2002e,522,e%,P$�d%;Q%:s$=P$:�F(Q%)�
�*�F("Reason","Sprites"):�y(d%):�L(4):�S
��
�	�e%=0
��:�P_("Templates"):�e%>0�
� �T("ProgInfo",e%,"ProgInfo")
�!��T("ProgInfo",+1,"ProgInfo")
��:s%=0:�Z_%=0�
��Fy
�#�:w_%=�By("Query",tu%,+1):�a_:�
�/��sy:P$=�K("<"+G$+"$Dir>.Sprites"):�P$<>s$�
�0e%!4=0:e%!8=16:e%!12=16:ș46,522,e%,P$:s$=P$
��:�
�.ݤProgInfo(M%)�s(M%!(88+(vy<<5)+20),D$):=0
���Ny(c%,b%,_%,T%)ȎT%�
�!�dy,sy:c%=�G(1,�S(0)):�_%<>1�
��h
��
�
�_%�240�
�W%!0=s%:W%!4=1:ș&400d0,,W%
��
��:�
���Fy�s%=0�
�	�oy%�
�$�L_%4:!L_%=0:�a("ProgInfo",L_%)
�s%=!L_%
���h("ProgInfo",s%)
��
�	��i%�
�	�oy%�
�ș&465c6,Y%,L_%
��ș&465c6,Y%,s%
��
��
��:�
�W��P_(t$)�GJ%,k%,D%,d%,Q%,S%:�lJ%,P$,Xy%,hy%:P$="<"+G$+"$Dir>."+t$:D%=�I(P$):�D%<=0�
�2�F("Reason",t$):�F("Sys","Not found"):�L(4):�S
�M�:�G(k%,D%):�G(Xy%,D%+F):hy%=Xy%+Py:lJ%=Xy%+F:ș&600d9,,P$�d%;Q%:�F(Q%)�
�5�F("Reason","Templates"):�y(d%):�L(4):ș&600da:�S
��:�:��:�n_
�Qx%=0:�hy%!0=�("*"):ș&600db,,lJ%,k%,k%+D%,n%,hy%,x%�d%,,GJ%,,,,x%;Q%:�F(Q%)�
��K(d%):ș&600da:�S
�
�:�x%�
�&�Q%=0�11:�hy%?Q%=13�hy%?Q%=0:Q%=12
�0�Q%:Xy%!by=GJ%-k%:Xy%!g=k%:S%=�v(Xy%):�S%=0�
��L(16):ș&600da:�S
��:S%!c=!uy%:!uy%=S%
�(�:�x%=0:��:ș&400da:�Z(Xy%):�Z(k%):�
�!��n_ș&600da:�M("Template"):�
�'ݤBy(F$,_u%,k_%)=�Jy(F$,_u%,k_%,"")
�2ݤJy(F$,_u%,k_%,W$)�S%,jJ%,J%:S%=�C(F$):�S%=0�
��S
�"�:jJ%=S%+F:jJ%!64=k_%:�W$<>""�
�J%=�Z("FN"+W$)
��:�z(S%,J%)�
��S
��:�a(S%):=J%
�)��T(F$,k_%,W$)�S%,M%:S%=�C(F$):�S%=0�
��S
� �:M%=S%+F:M%!64=k_%:�W$<>""�
� M%=�Z("FN"+W$+"("+�(M%)+")")
��:�
�#ݤh(F$,�Jy%)�N%:=�Qy(F$,Jy%,N%)
�*ݤQy(F$,�Jy%,�iy%)�S%,K%:K%=�:�Jy%<=0�
�S%=�C(F$):�S%�
�K%=�z(S%,Jy%):�K%=��
�iy%=S%!g:�a(S%)
��
�	�K%=�
��
�	��i%�
�ș&465c6,Y%,Jy%
��
�	�:=K%
�Mݤ`(F$)�S%,t$,B_%:S%=!uy%:B_%=�:ȕS%�(�B_%):B_%=(�Gy(S%+Py,12)=F$):�B_%�
�S%=S%!c
��:�:=S%
�ݤC(F$)�S%:S%=�`(F$):�S%=0�
��F("Reason",F$):�L(3)
�	�:=S%
�ݤz(S%,�Jy%)�i%�
�ș&665c3,Y%,S%+F,0�Jy%;S%
��ș&600c1,,S%+F�Jy%;S%
��:S%=�F(S%):�S%�
��K(Jy%):Jy%=0
�	�:=S%
�;��C_(M%,Q%,My%)�J%,X%:X%=A_%<<C_%:J%=M%!8-M%!0:�X%<=J%�
�
M%!0=0
��X%=X%-J%:�My%<0�
�My%=X%+(My%�X%)
��:M%!0=(M%!0+My%*Q%)�X%
��:M%!8=M%!0+J%:�
�C��F_(M%,Q%,My%)�J%,X%:X%=(Fy%<<Dy%)-96:J%=M%!8-M%!0+48:�X%<=J%�
�M%!8=(Fy%<<Dy%)-J%
��X%=X%-J%:�My%<0�
�My%=X%+(My%�X%)
�=�:M%!8=(Fy%<<Dy%)-M%!8:M%!8=(Fy%<<Dy%)-((M%!8+My%*Q%)�X%)
��:M%!0=M%!8-(J%-48):�
�:��a(S%)�Z%:Z%=uy%:ȕ!Z%<>0�!Z%<>S%:Z%=!Z%+c:�:�!Z%=S%�
�!Z%=S%!c:S%!c=0:�Z(S%)
��:�
�ݤi(A%)=�(yy)
�ݤv(A%)A%=�i(A%):�A%=0�
�
�L(16)
�	�:=A%
�!��L_�(U%�2)=0��W_("Template")
� [OPTU%:ALIGN:.yy:�J:B oy:]:�
�|ݤ_Declare_Local_Variables_Template�uy%4:!uy%=0:P%=0:[OPTU%:.c DCD0:.Ny DCD0:.g DCD0:.by DCD0:.Py DCD0:DCD0:DCD0:.F:]:=0
�8��ny(F$,r%,r_%,b_%,�iy%)�e_(F$,r%,r_%,b_%,iy%,"X"):�
�1��e_(F$,r%,r_%,b_%,�iy%,H$)�S%:S%=�C(F$):�S%�
��y_(S%,r%,r_%,b_%,iy%,H$)
��!r%=S%
��:�
�ݤa(F$,r%)�N%:=�_(F$,r%,N%)
�'ݤ_(F$,r%,�iy%)�S%,K%:K%=�:�!r%<=0�
S%=�C(F$):�S%�
K%=�e(S%,r%):�K%=��
iy%=S%!g:�a(S%)
�
	�K%=�
�
	��i%�
ș&465c6,Y%,r%
�
		�:=K%

��g_(S%,r%)S%=�e(S%,r%):�
ݤe(S%,r%)�d%:�i%�
ș&665c3,Y%,S%+F,r%�d%;S%

�ș&600c1,,S%+F�d%;S%
�:!r%=d%:S%=�F(S%):�S%�
�K(d%):!r%=0
	�:=S%
L��y_(S%,r%,r_%,b_%,�iy%,H$)�M%,Q%:!r%=0:Q%=S%!Ny:S%!Ny+=1:S%=�v(S%):�S%�
5M%=S%+F:�C_(M%,Q%,r_%):�F_(M%+4,Q%,b_%):�H$<>"X"�
�M%!56�(1<<8)�
�Zy(M%!72,H$,M%!80)
��Zy(M%+72,H$,12)
�
 �:�g_(S%,r%):iy%=S%!g:�a(S%)
�:�
)ݤh_DEFAULT�:��:�M("@.h.DEFAULT")
nJi=16:dl=1<<30:IJ=1<<29:`u=0:xl=1:La=2:Ea=3:Ca=4:Y_=5:Qa=6:BJ=7:ci=8:r_=9:Da=10:sl=1<<0:cy=1<<1:qi=1<<2:=0
1ݤjumpblock_DEFAULT�:��:�M("@.h.DEFAULT")
m[OPTU%�Py%:.ui DCDx_:.Oi DCDhu:.`_ DCDR_:.__ DCDHi:.Bu DCDB_:.UJ DCDul:.hJ DCDMi:.MJ DCDpu:.qy DCDCi:]:=0
%ݤh_stdio�:��:�M("@.h.stdio")
k_=0:Ii=17:Wi=34:=0
-ݤjumpblock_stdio�:��:�M("@.h.stdio")
 �[OPTU%�Py%:.Kl DCDdi:.Fu DCDrl:.D_ DCD`l:.gi DCDXi:.C_ DCDzJ:.Ru%DCDVu%:.su%DCDzu%:.wu%DCDKu%:.nl DCDRu:.Ql DCDNu:.zi DCDwi:.uJ DCDii:.ou DCDKi:]:=0
!'ݤh_stdlib�:��:�M("@.h.stdlib")
"=0
#/ݤjumpblock_stdlib�:��:�M("@.h.stdlib")
$�[OPTU%�Py%:._y DCDbu:.my DCDSl:.Ta DCDSi:.iy DCDGi:.PJ DCD`J:.L_ DCDXa:.Tl DCDXl:.Yu DCDaa:.q_ DCDEl:.Xu DCD_a:.S_ DCDyJ:.Qu DCDm_:.au DCDI_:.ju DCDAu:.ol DCDNl:.fl DCDfJ:]:=0
%'ݤh_string�:��:�M("@.h.string")
&SP%=0:[OPTU%:.Du DCB0:.e_ DCB0:.Bi DCB0:.CJ DCB0:.zu DCB0:.Ll DCB0:.ql DCB0:]:=0
'/ݤjumpblock_string�:��:�M("@.h.string")
(�[OPTU%�Py%:.ZJ DCDTJ:.lJ DCDvl:.KJ DCDs_:.eu DCDNa:.zl DCDpi:.yi DCDel:.Va DCDMa:.p_ DCDqu:.O_ DCDLi:.fi DCDw_:.mi DCDIu:.ri DCDEu:.Zu DCDwu:.W_ DCDXJ:.`y DCDGu:.cJ DCD_i:.vi DCDMu:.n_ DCDQJ:.ji DCDHu
)�.Za DCDy_:.xu DCDT_:._u DCDYi:.uu DCDGl:.Vi DCDf_:.Cl DCDWJ:.Di DCDb_:.Ai DCDOJ:.il DCDjJ:.wl DCDNJ:.Fi DCDqa:.Jl DCDPu:.gl DCDRa:.Ol DCDg_:.pJ DCDiu:.cu DCDd_:.Cu DCDc_:.P_ DCDgJ:.Lu DCDFJ:.t_ DCDz_:.Fl DCDIa:.mJ DCDbl:.G_ DCD_l:]:=0
*)ݤh_message�:��:�M("@.h.message")
+=0
,1ݤjumpblock_message�:��:�M("@.h.message")
-E[OPTU%�Py%:.ky DCDa_:.A_ DCDl_:.Ga DCDmu:.`i DCDnu:.U_ DCDyu:]:=0
.#ݤh_wimp�:��:�M("@.h.wimp")
/�Vu=12:X_=0:P%=0:[OPTU%:.Dy DCB0:.Zl DCB0:.hy DCB0:.wy DCB0:.hi DCB0:.v_ DCB0:.Oa DCB0:.jy DCB0:.zy DCB0:.iJ DCB0:.Z_ DCB0:.Su DCB0:.Ya DCB0:.Ul DCB0:.j_ DCB0:.bJ DCB0:.sJ DCB0:]:P%=0:[OPTU%:.Cy DCB0
0�.hl DCB0:.ty DCB0:.Yy DCB0:.Ku DCB0:.VJ DCB0:.LJ DCB0:.si DCB0:.wa DCB0:.al DCB0:.tl DCB0:.vu DCB0:]:P%=0:[OPTU%:.Ml DCB0:.Ju DCB0:.Wa DCB0:.kJ DCB0:.N_ DCB0:]:=0
1+ݤjumpblock_wimp�:��:�M("@.h.wimp")
2�[OPTU%�Py%:.Ka DCDWl:.oJ DCDku:.wJ DCDfu:.jl DCDUi:.Wy DCDtJ:.rJ DCDpl:.E_ DCDRJ:.Bl DCDni:.oy DCDh_:.Ja DCDsu:.Fa DCDYl:._J DCDBa:.Tu DCDAl:.Sa DCDDl:.Pi DCDF_:.Pa DCDTi:.Aa DCDxJ:.oi DCDHa:]:=0
3ݤ_ModeInfo_version=6
4!ݤ_hard_initialise_ModeInfo=0
5���qy(l%)ș53,l%,1�,,`_%:`_%+=1:ș53,l%,2�,,d_%:d_%+=1:ș53,l%,3�,,nJ%:nJ%+=1:ș53,l%,4�,,C_%:ș53,l%,5�,,Dy%:ș53,l%,6�,,Cu%:ș53,l%,7�,,Du%:ș53,l%,9�,,PJ%:YJ%=1<<PJ%:ș53,l%,11�,,A_%:A_%+=1:ș53,l%,12�,,Fy%:Fy%+=1:Pu%=A_%�`_%
6>Ju%=Fy%�d_%:H_%=(A_%<<C_%)-1:P_%=(Fy%<<Dy%)-1:Yu%=32�YJ%:�
7ݤ_Wimp_version=50
8/ݤ_hard_initialise_Wimp�d%:�H<12��1,"EIW1"
9Iș&400f2,0�d%:�d%=0��1,"Application needs to be run from the desktop"
:��A("<BasicV$Lib>.Heap",8):�A("<BasicV$Lib>.IntMath",5):�A("<BasicV$Lib>.Message",3):�A("<BasicV$Lib>.Template",7):�A("<BasicV$Lib>.NullReason",1):dy%=�:ay%=3*1024
;��G(fy%,ay%):ay%+=fy%:Ny%=fy%:�G(W%,512):n$="":u$="":Ou%=0:G$="Application":D$="0.00 (01-Jan-1900)":Y%=-1:N_%=2400:yy%=2401:Fu%=16*1024:U$="":Gu%=�:Mu%=0:=0
<:ݤK(e$)�a%,C%,Z$,c%,b%,RJ%:ș&600f2,2�a%;C%:�(C%�1)=0�
=Dș53,-1,4�,,c%:ș53,-1,5�,,b%:ș53,-1,10�,,RJ%:�c%<2�b%<2�RJ%=0�
>Z$="23"
?�Z$=�M(a%)
@�:a%=�(e$+Z$):�a%�
A�#a%:e$+=Z$
B�
C	�:=e$
DݤF(Hy%)=(Hy%�1)<>0
E��`(q%,T%)�T%=-1�
Fș&600d2,q%,-1,0,0,1<<25,-1
G4�ș&600d2,q%,T%,,,-1,�(�Zy(q%,T%)):ș&dcb8d,8,q%
H�:�
I$��wy(q%,eu%)ș&dcb8d,Cy,q%,eu%:�
J��X(q%)�q%>0�ș&dcb8d,Yy,q%
K�
L��py(q%)ș&dcb8d,Cy,q%,-1:�
Mn��hy(q%,T%,hJ%,yu%,`J%)�F%:F%=�A(16):F%!0=q%:F%!4=T%:F%!8=yu%<<hJ%:F%!12=`J%<<hJ%:ș&400cd,,F%:�C(F%,16):�
N&ݤB(q%,T%)ș&dcb8c,zy,q%,T%�T%:=T%
O)��I(q%,T%,Tu%)ș&dcb8c,jy,q%,T%,Tu%:�
PJ��V(wJ%,A$)�F%:F%=�A(300):F%!0=wJ%:$(F%+4)=A$+�(0):�K(F%):�C(F%,300):�
Q��B(A$)�N_%,A$:�
RL��L(wJ%)�F%:F%=�A(300):F%!0=yy%:�o("LE"+�(wJ%),F%+4):�K(F%):�C(F%,300):�
S��K(Hu%)ș&400df,Hu%,1,G$:�
TgݤG(Hy%,A$)�F%,K%:�h:F%=�A(260):!F%=0:$(F%+4)=A$+�(0):ș&400df,F%,(16�Hy%),�L(0)�,K%:�C(F%,260):=K%
U���gy�F%:F%=�A(256):F%?0=1:F%?1=0:F%?2=0:F%?3=0:F%?4=0:F%?5=H_%�256:F%?6=H_%�256:F%?7=P_%�256:F%?8=P_%�256:ș7,21,F%:!F%=w_%:ș&400c6,,F%:�C(F%,256):�
VF��ry(c%,b%,_%,T%)�gy:c%=�Z("FN_Stop_Action_"+j$+"("+�(T%=0)+")"):�
W/ݤLy(V$)ȕ�V$,"."):V$=�V$,�V$,".")+1):�:=V$
X'��E(q%,T%,Y$)ș&dcb8c,hy,q%,T%,Y$:�
Y'��N(q%,N%,R%)ș&dcb8c,wy,q%,N%,R%:�
Z+ݤZy(q%,N%)ș&dcb8c,Dy,q%,N%�q%:=�M(q%)
[&ݤl(q%,N%)ș&dcb8c,Dy,q%,N%�q%:=q%
\8ݤI(K$)�d%,D%,Q%:ș&20008,17,K$�d%,,,,D%;Q%:�F(Q%)�
])�F("Reason",�Ly(K$)):�y(d%):�B(�L(4))
^
�:�d%<>1�
_	D%=-1
`	�:=D%
aݤA(w%)�K%:�(Ny%+w%)<ay%�
bK%=Ny%:Ny%+=w%
c��B("Wimp Stack full")
d	�:=K%
e��vy:Ny%=fy%:�
f$��C(X_%,w%)�(X_%<fy%)�(X_%>ay%)�
g,�B("Release_Stack: Invalid stack chunk")
h��(w%<0)�((X_%+w%)>ay%)�
i+�B("Release_Stack: Invalid chunk size")
j�Ny%-=w%:�Ny%<>X_%�
k �B("Release_Stack: Bad pop")
l�
m�
n�:�
o>��Yy(r$,t%,gJ%,n_%,WJ%,CJ%)�s_(r$,r$,t%,gJ%,n_%,WJ%,CJ%):�
p���s_(r$,H$,t%,gJ%,n_%,WJ%,CJ%)D$=�(t%)+"."+�"0"+�(gJ%),2):D$+=" ("+�"0"+�(n_%),2)+"-":D$+=�"CBJanFebMarAprMayJunJulAugSepOctNovDec",WJ%*3,3):D$+="-"+�"19"+�(CJ%),4)+")":G$=r$:�F("App",G$):�yy(Ky%,G$+"$Dir"):�Ky%=0��1,"EIW5"
q�U$<>""�
r�n_%=�:S_%=W%:t%=�U$,","):ȕt%<>0:S_%!0=�Z(�U$,t%-1)):S_%+=4:U$=�U$,t%+1):t%=�U$,","):�:S_%!0=�Z(U$):S_%!4=0:ș&400c0,300,&4b534154,H$,W%�U_%,Y%
s%�ș&400c0,200,&4b534154,H$�U_%,Y%
t�:��cy
uș&606c0:�U_%<200�
v�N_%,�L(5)
w*�:dy%=�:�Ly:�Ky:dy%=-2:�I_:�ay:�Z_%=0�
x�E(s%,7,D$)
yP�:bu%=-1:hu%=-1:Uu%=-1:nu%=-1:pJ%=�:fu%=-1:Su%=-1:h$="":m$="":�Sy:ș&606c1:�
z��cyș&606c1:�sy%�
{�V(yy%,�$+" ["+Þ+"]")
|��V(yy%,�$)
}�:�S:�:�
~>��yy(�W_%,v$)�w%,Ry%:ș&20023,v$,0,-1,0,1�,,w%,,Ry%:�w%=0�
	W_%=0
���Ry%=1��1,"EIW4"
�5w%=-w%:�G(W_%,w%):ș35,v$,W_%,w%,0,1:W_%?(w%-1)=0
��:�
�ݤ_FileType_version=10
��ݤ_hard_initialise_FileType:ki=-1:xy=8192:ny=4096:Ou=4095:EJ=4093:K_=4091:b=4089:yl=4086:Vl=4076:f=4075:Jy=3478:nJ=3388:ll=3269:Pl=3254:kl=3253:xi=2815:du=2779:Ni=1793:Qi=1296:=0
�ݤ_file_io_version=10
�|ݤ_hard_initialise_file_io�A("<BasicV$Lib>.CheckVars",2):�A("<BasicV$Lib>.string",6):p_%=256+20:�h%p_%:�Eu%9:Eu%?8=13:=0
�;ݤMy(K$)�w%,Ry%:ș8,5,K$�Ry%,,,,w%:�Ry%=0��1,"EIF1 "+K$
�=w%
���f(K$,Nu%)ș8,255,K$,Nu%:�
�CݤO(B$,C$,�x%)�sJ%:ș&2000c,10,B$,h%,1,x%,p_%,C$�,,,sJ%,x%:=sJ%
��ݤN(B$,C$)�Ry%,g%,Wy%,D%,xJ%:ș&20008,5,B$+"."+C$�Ry%,,g%,Wy%,D%,xJ%:h%!0=g%:h%!4=Wy%:h%!8=D%:h%!12=xJ%:h%!16=Ry%:�V_((B$+"."+C$),(h%+20)):=(Ry%=0)
�ݤVy=!h%
�ݤk=h%!8
�ݤQ=�U(h%+20)
�ݤWy=((h%!16)=2)
�*ݤW�K%:K%=�Vy:�(K%�-1048576)=-1048576�
�K%=(K%�&fff00)>>8
�
�K%=-1
�	�:=K%
�ݤ_string_version=7
�:ݤ_hard_initialise_string�A("<BasicV$Lib>.ctype",1):=0
�`ݤb(Z$,a$)�Q%,a%,_%:a%=�(Z$):_%=�(a$):Q%=0:ȕa%>0�_%>0�Q%=0:Q%=�(�T(�(Z$))-�T(�(a$))):�Q%=0�
�%a%-=1:_%-=1:Z$=�Z$,a%):a$=�a$,_%)
��:�:�Q%=0�
�Q%=�(a%-_%)
�	�:=Q%
�"��V_(Y$,X%)$X%=Y$:X%?�(Y$)=0:�
�ݤ_Misc_version=46
�6ݤ_hard_initialise_Misc�N%,F_%,R%:�H<12��1,"EIA1"
�k$="":Au%=100:�ju%16:=0
�;ݤR(z$,_y%,ru%)�E_%,m_%,y_%,a_%,e_%:v%=�Ny(z$):�U%�2=0�
�[OPTU%:DCD0:DCD0:]
�)�E_%=ru%-P%-8:�(E_%)>65535��1,"EIA2"
�,y_%=�(E_%)�255:m_%=�(E_%)�65280:�E_%>=0�
�Ra_%=v%�(&28f0000+(_y%<<12)+y_%):e_%=v%�(&2800c00+(_y%<<16)+(_y%<<12)+(m_%>>8))
�S�a_%=v%�(&24f0000+(_y%<<12)+y_%):e_%=v%�(&2400c00+(_y%<<16)+(_y%<<12)+(m_%>>8))
��:[OPTU%:DCDa_%:DCDe_%:]
��:=0
�8��W_(V$)�TJ%,rJ%,vJ%:TJ%=P%:rJ%=O%:vJ%=U%:�(U%�4)=0�
�	O%=P%
�Q�:P%=0:U%=U%�6:P%=�Z("FN_Declare_Local_Variables_"+V$):P%=TJ%:O%=rJ%:U%=vJ%:�
�ݤNy(z$)�v%:Ȏz$�
��"","  ":v%=14
��"lo":v%=3
��"hs":v%=2
�Dv%=�"eqnecsccmiplvsvchilsgeltgtlealnv",z$):�(v%�2)=0��1,"EIA13"
�v%=(v%-1)>>1
�
�:=v%<<28
�ݤy(a%)�(U%�4)�a%+=y%
�=a%
���W�Ly%:�U%�2�Ly%=50�Ly%=0
�+ș&606c4,((�y(P%)-y%)/(L%-y%)*50)+Ly%:�
�ݤ_Heap_version=9
�ݤ_hard_initialise_Heap=0
�&ݤY(�ey%,A%)ey%=�(uJ%):�!Cy%�ey%=0
�	=!Cy%
���G(�ey%,w%)�Y(ey%,w%)�
�ey%=!Cy%:�!ey%,�U(ey%+4)
��:�
���Z(�A%)�n(A%)�
�A%=!Cy%:�!A%,�U(A%+4)
��:�
�ݤn(�A%)�KJ%:A%=0:=!Cy%
�B��J_[OPTU%:�X(uJ%,_y):�X(KJ%,my):�X(au%,iy):ALIGN:.Cy%DCD0:]:�
�mݤX(�Qu%,du%)[OPTU%:ALIGN:.Qu%:�J:STMFD(A)!,{Z}:MOV Z,#0:STR Z,Cy%:BL du%:STRvs0,Cy%:LDMFD(A)!,{pc}^:]:=0
�ݤ_Message_version=6
�oݤ_hard_initialise_Message:ai=31:ș5,"RMEnsure CAssembler 0.08 RMLoad System:Modules.CAssembler":�ly 256:=0
�Hݤg(f$,Lu%,�D_%)�A%:ș&fcb83,f$+".Messages.",Lu%,0�A%,D_%:�D_%=0��Gy
�=A%
�<ݤAy(J%,T$,h_%)ș&fcb85,T$,h_%,J%�h_%;J%:=h_%�((J%�2)=2)
�;ݤu(J%,T$,q$)�t%:ș&fcb85,T$,q$,J%�t%;J%:=t%�((J%�2)=2)
�/ݤp(J%)�t%:ș&fcb86,J%�t%;J%:=t%�((J%�2)=2)
�;ݤD(J%,T$)�t%:ș&fcb84,T$,ly,256,J%,0�t%,J%:?J%=13:=$ly
�&��zy(J%,T$,Bu%)J%=�Ay(J%,T$,Bu%):�
�#��uy(J%,T$,q$)J%=�u(J%,T$,q$):�
���z_(J%)J%=�p(J%):�
�ݤS(R%)=�D(m%,"E"+�(R%))
�ݤE(_$)=�D(m%,_$)
���_(_$,R%)�zy(m%,_$,R%):�
���F(_$,i$)�uy(m%,_$,i$):�
�'��o(_$,B%)ș&dcb84,_$,B%,256,m%,0:�
���Q_�z_(m%):�
���y(_%)�_%<=0�
��F("Sys",""):�F("SysN","")
�*��F("Sys",�M(_%+4)):�F("SysN",�~(!_%))
��:�
�ݤL(R%)=�D(m%,"LE"+�(R%))
�/��xy[OPTU%:ALIGN:.Gy:�J:B ky:]:�U%�4�Gy+=y%
��
�ݤ_IntMath_version=6
� ݤ_hard_initialise_IntMath=0
�ݤ_NullReason_version=5
�#ݤ_hard_initialise_NullReason=0
�)��ay�`%4:!`%=0:wy%=0:G_%=�:Oy%=6193:�
���Oy(L$,ny%)�G_(L$,ny%,�):�
�\��G_(L$,ny%,c_%)�R%:�G(R%,12+�(L$)+1):$(R%+12)=L$:R%!8=ny%:R%!4=c_%:!R%=!`%:!`%=R%:�Cy:�
���Wy(L$,ny%)�ly(L$,ny%,�):�
�"��ly(L$,ny%,c_%)�R%,Z%:�L$=""�
��B("EIN3"):ȕ!`%:�c(`%):�
�M�Z%=`%:ȕ!Z%:R%=!Z%:�($(R%+12)=L$)�(R%!4=c_%)�(((ny%=0)�c_%)�(R%!8=ny%))�
�
�c(Z%)
�
�Z%=R%
��:�
��:�
���c(Z%)�R%:�Z%=0��B("EIN6")
�R%=!Z%:�R%=0��B("EIN5")
��R%=wy%�
�wy%=!R%:G_%=�
��:!Z%=!R%:�Z(R%):�Cy:�
�
��Cy�!`%�
�Oy%=Oy%�(�1)
��Oy%=Oy%�1
��:�
�5��t_�u%,Z%,s_%,A%:u%=!`%:ȕu%:wy%=u%:G_%=�:�u%!4�
�6s_%=�Z("FN_Null_Reason_"+$(u%+12)+"("+�(u%!8)+")")
�'�s_%=�Z("FN_Null_Reason_"+$(u%+12))
��:�G_%�
�
u%=wy%
��wy%=0:A%=!u%:�s_%�
�+Z%=`%:ȕ!Z%<>u%:Z%=!Z%:�Z%=0��B("EIN2")
��:�c(Z%)
��:u%=A%
�	�:�:�
� ݤ_Null_Reason_�B("EIN1"):=0
�ݤ_CheckVars_version=3
�"ݤ_hard_initialise_CheckVars=0
�ݤ_ctype_version=1
ݤ_hard_initialise_ctype=0
ݤUy(Q%)=Q%-�("A")+�("a")
"ݤSy(Q%)=Q%>=�("A")�Q%<=�("Z")
ݤT(Q%)�K%:�Sy(Q%)�
K%=�Uy(Q%)

�K%=Q%
	�:=K%
:
:
:

��H_�Ay:�
 ��O_�#W%!20,"Run "+�M(Ky%):�
:
:
�
00000000  0d 00 01 0f f4 3e 21 52  75 6e 49 6d 61 67 65 0d  |.....>!RunImage.|
00000010  00 02 30 f4 50 72 6f 64  75 63 65 64 20 62 79 20  |..0.Produced by |
00000020  42 61 73 43 6f 6d 70 72  65 73 73 20 76 31 2e 33  |BasCompress v1.3|
00000030  31 20 28 31 38 20 4a 61  6e 20 31 39 39 33 29 0d  |1 (18 Jan 1993).|
00000040  00 03 53 de 4d 24 28 33  29 3a 4d 24 28 29 3d 22  |..S.M$(3):M$()="|
00000050  7c 22 2c 22 69 63 6f 6e  73 70 72 69 74 65 73 22  ||","iconsprites"|
00000060  2c 22 73 74 72 69 70 63  66 73 22 2c 22 66 6f 72  |,"stripcfs","for|
00000070  63 65 63 66 73 22 3a 79  24 3d 22 75 6e 63 66 73  |cecfs":y$="uncfs|
00000080  22 3a f2 64 5f 28 22 55  6e 43 46 53 22 2c a3 29  |":.d_("UnCFS",.)|
00000090  3a e0 0d 00 04 0d dd f2  52 5f 28 4d 25 29 e1 0d  |:.......R_(M%)..|
000000a0  00 05 47 dd f2 50 79 ea  51 25 3a 21 61 3d b9 3a  |..G..Py.Q%:!a=.:|
000000b0  21 77 3d a3 3a 21 5f 3d  b9 3a 21 4f 3d b9 3a c8  |!w=.:!_=.:!O=.:.|
000000c0  99 26 32 30 30 31 65 2c  31 38 2c 22 43 46 53 55  |.&2001e,18,"CFSU|
000000d0  74 69 6c 22 2b bd 28 30  29 b8 3b 51 25 3a e7 a4  |til"+.(0).;Q%:..|
000000e0  46 28 51 25 29 8c 0d 00  06 11 e7 a4 47 28 32 2c  |F(Q%).......G(2,|
000000f0  a4 53 28 31 35 29 29 0d  00 07 07 cd 3a e1 0d 00  |.S(15)).....:...|
00000100  08 30 dd a4 44 79 28 45  25 2c 45 24 2c 4e 25 29  |.0..Dy(E%,E$,N%)|
00000110  ea 47 25 2c 6c 5f 25 3a  f2 44 28 45 24 29 3a 47  |.G%,l_%:.D(E$):G|
00000120  25 3d a3 3a 6c 5f 25 3d  b9 3a c8 8e b9 ca 0d 00  |%=.:l_%=.:......|
00000130  09 18 c9 a4 4e 28 45 24  2c 5a 24 28 4e 25 29 29  |....N(E$,Z$(N%))|
00000140  3a 6c 5f 25 3d a3 0d 00  0a 0b c9 a4 57 3c 3e 4a  |:l_%=.......W<>J|
00000150  79 0d 00 0b 19 c9 a4 4e  28 22 43 46 53 23 22 2b  |y......N("CFS#"+|
00000160  45 24 2c 5a 24 28 4e 25  29 29 0d 00 0c 0f c9 a4  |E$,Z$(N%))......|
00000170  57 3c 3e 45 25 28 4e 25  29 0d 00 0d 09 7f 47 25  |W<>E%(N%).....G%|
00000180  3d b9 0d 00 0e 0b cb 3a  e7 6c 5f 25 8c 0d 00 0f  |=......:.l_%....|
00000190  0a f2 6e 28 45 25 29 0d  00 10 09 cd 3a 3d 47 25  |..n(E%).....:=G%|
000001a0  0d 00 11 7c dd f2 76 28  45 25 2c 45 24 2c 43 24  |...|..v(E%,E$,C$|
000001b0  2c 4e 24 29 ea 58 25 2c  44 25 2c 4a 25 2c 67 25  |,N$).X%,D%,J%,g%|
000001c0  2c 57 79 25 2c 41 79 25  2c 4d 24 2c 51 25 3a f2  |,Wy%,Ay%,M$,Q%:.|
000001d0  44 28 45 24 29 3a 45 24  2b 3d 22 2e 22 2b 43 24  |D(E$):E$+="."+C$|
000001e0  3a f2 55 28 45 25 2c 45  24 29 3a 4d 24 3d 22 43  |:.U(E%,E$):M$="C|
000001f0  46 53 23 22 2b 45 24 3a  c8 99 38 2c 35 2c 4d 24  |FS#"+E$:..8,5,M$|
00000200  b8 2c 2c 67 25 2c 57 79  25 2c 44 25 2c 41 79 25  |.,,g%,Wy%,D%,Ay%|
00000210  3a e7 28 41 79 25 80 31  29 3d 30 8c 0d 00 12 0f  |:.(Ay%.1)=0.....|
00000220  f2 7a 28 45 25 2c 38 2c  4d 24 29 0d 00 13 12 cc  |.z(E%,8,M$).....|
00000230  e7 a4 50 28 58 25 2c 44  25 2b 31 29 8c 0d 00 14  |..P(X%,D%+1)....|
00000240  0c f2 4f 28 45 25 2c a3  29 0d 00 15 17 cc ea 85  |..O(E%,.).......|
00000250  3a ee 85 ea f7 85 3a f2  5a 28 58 25 29 3a f2 48  |:.....:.Z(X%):.H|
00000260  0d 00 16 1b ea 85 3a ee  85 ea f7 85 3a f2 6c 28  |......:.....:.l(|
00000270  45 25 2c 58 25 2c 4d 24  29 3a e1 0d 00 17 1f f2  |E%,X%,M$):......|
00000280  66 28 4d 24 2c 58 25 29  3a f7 85 3a e7 a4 6a 28  |f(M$,X%):..:..j(|
00000290  58 25 2c 44 25 2c 4e 24  29 8c 0d 00 18 09 4e 24  |X%,D%,N$).....N$|
000002a0  3d 22 22 0d 00 19 1d cd  3a ea 85 3a ee 85 ea f7  |="".....:..:....|
000002b0  85 3a f2 75 28 45 25 2c  58 25 2c 4d 24 29 3a e1  |.:.u(E%,X%,M$):.|
000002c0  0d 00 1a 37 c8 99 31 33  2c 31 33 39 2c 45 24 b8  |...7..13,139,E$.|
000002d0  4a 25 3a ea 85 3a ee 85  ea f7 85 3a f2 52 79 28  |J%:..:.....:.Ry(|
000002e0  4a 25 2c 4d 24 2c 67 25  2c 57 79 25 2c 58 25 2c  |J%,M$,g%,Wy%,X%,|
000002f0  44 25 2c 41 79 25 29 0d  00 1b 0c e7 4e 24 3c 3e  |D%,Ay%).....N$<>|
00000300  22 22 8c 0d 00 1c 16 c8  99 31 32 2c 32 2c 4a 25  |"".......12,2,J%|
00000310  2c 4e 24 2c a9 28 4e 24  29 0d 00 1d 48 cd 3a c8  |,N$,.(N$)...H.:.|
00000320  99 31 32 2c 32 2c 4a 25  2c 58 25 2c 44 25 3a f7  |.12,2,J%,X%,D%:.|
00000330  85 3a d9 23 4a 25 3a c8  99 38 2c 31 2c 45 24 2c  |.:.#J%:..8,1,E$,|
00000340  67 25 2c 57 79 25 2c 2c  41 79 25 3a f7 85 3a f2  |g%,Wy%,,Ay%:..:.|
00000350  4f 28 45 25 2c b9 29 3a  f7 85 3a f2 5a 28 58 25  |O(E%,.):..:.Z(X%|
00000360  29 0d 00 1e 05 cd 0d 00  1f 07 cd 3a e1 0d 00 20  |)..........:... |
00000370  1e dd a4 6a 28 6c 79 25  2c 44 25 2c f8 4e 24 29  |...j(ly%,D%,.N$)|
00000380  ea 47 25 3a e7 4e 24 3d  22 22 8c 0d 00 21 08 47  |.G%:.N$=""...!.G|
00000390  25 3d a3 0d 00 22 4a cc  47 25 3d 44 25 3e 3d a9  |%=..."J.G%=D%>=.|
000003a0  28 4e 24 29 3a 4e 25 3d  31 3a c8 95 4e 25 3c 3d  |(N$):N%=1:..N%<=|
000003b0  a9 28 4e 24 29 80 47 25  3a 47 25 3d 28 97 28 c1  |.(N$).G%:G%=(.(.|
000003c0  4e 24 2c 4e 25 2c 31 29  29 3d 6c 79 25 3f 28 4e  |N$,N%,1))=ly%?(N|
000003d0  25 2d 31 29 29 3a 4e 25  2b 3d 31 3a ce 0d 00 23  |%-1)):N%+=1:...#|
000003e0  09 cd 3a 3d 47 25 0d 00  24 2f dd f2 6a 79 28 45  |..:=G%..$/..jy(E|
000003f0  25 2c 45 24 29 45 25 21  57 3d 2d 32 3a f2 44 28  |%,E$)E%!W=-2:.D(|
00000400  45 24 29 3a 45 24 3d 22  43 46 53 23 22 2b 45 24  |E$):E$="CFS#"+E$|
00000410  3a c8 8e b9 ca 0d 00 25  13 c9 a4 4e 28 45 24 2c  |:......%...N(E$,|
00000420  22 21 42 6f 6f 74 22 29  0d 00 26 0a c9 a4 57 3c  |"!Boot")..&...W<|
00000430  3e 66 0d 00 27 16 7f f2  6e 28 45 25 29 3a f2 71  |>f..'...n(E%):.q|
00000440  5f 28 45 25 2c 45 24 29  0d 00 28 07 cb 3a e1 0d  |_(E%,E$)..(..:..|
00000450  00 29 7b dd f2 71 5f 28  45 25 2c 63 24 29 ea 58  |.){..q_(E%,c$).X|
00000460  25 2c 44 25 2c 4a 25 2c  67 25 2c 57 79 25 2c 41  |%,D%,J%,g%,Wy%,A|
00000470  79 25 2c 51 25 2c 4d 24  3a f2 44 28 63 24 29 3a  |y%,Q%,M$:.D(c$):|
00000480  45 24 3d 63 24 2b 22 2e  21 42 6f 6f 74 22 3a f2  |E$=c$+".!Boot":.|
00000490  55 28 45 25 2c 45 24 29  3a 4d 24 3d 22 43 46 53  |U(E%,E$):M$="CFS|
000004a0  23 22 2b 45 24 3a c8 99  38 2c 35 2c 4d 24 b8 2c  |#"+E$:..8,5,M$.,|
000004b0  2c 67 25 2c 57 79 25 2c  44 25 2c 41 79 25 3a e7  |,g%,Wy%,D%,Ay%:.|
000004c0  28 41 79 25 80 31 29 3d  30 8c 0d 00 2a 0f f2 7a  |(Ay%.1)=0...*..z|
000004d0  28 45 25 2c 38 2c 45 24  29 0d 00 2b 12 cc e7 a4  |(E%,8,E$)..+....|
000004e0  50 28 58 25 2c 44 25 2b  31 29 8c 0d 00 2c 0c f2  |P(X%,D%+1)...,..|
000004f0  4f 28 45 25 2c a3 29 0d  00 2d 17 cc ea 85 3a ee  |O(E%,.)..-....:.|
00000500  85 ea f7 85 3a f2 5a 28  58 25 29 3a f2 48 0d 00  |....:.Z(X%):.H..|
00000510  2e 1b ea 85 3a ee 85 ea  f7 85 3a f2 6c 28 45 25  |....:.....:.l(E%|
00000520  2c 58 25 2c 4d 24 29 3a  e1 0d 00 2f 1d f2 66 28  |,X%,M$):.../..f(|
00000530  4d 24 2c 58 25 29 3a f7  85 3a e7 a4 48 79 28 58  |M$,X%):..:..Hy(X|
00000540  25 2c 44 25 29 8c 0d 00  30 10 e7 ac a4 6f 28 45  |%,D%)...0....o(E|
00000550  25 2c 63 24 29 8c 0d 00  31 1b ea 85 3a ee 85 ea  |%,c$)...1...:...|
00000560  f7 85 3a f2 75 28 45 25  2c 58 25 2c 45 24 29 3a  |..:.u(E%,X%,E$):|
00000570  e1 0d 00 32 18 c8 99 38  2c 36 2c 45 24 3a f7 85  |...2...8,6,E$:..|
00000580  3a f2 4f 28 45 25 2c b9  29 0d 00 33 05 cd 0d 00  |:.O(E%,.)..3....|
00000590  34 0f cd 3a f7 85 3a f2  5a 28 58 25 29 0d 00 35  |4..:..:.Z(X%)..5|
000005a0  05 cd 0d 00 36 11 cd 3a  f2 55 28 45 25 2c 22 22  |....6..:.U(E%,""|
000005b0  29 3a e1 0d 00 37 81 dd  a4 48 79 28 6c 79 25 2c  |):...7...Hy(ly%,|
000005c0  44 25 29 ea 66 25 2c 47  25 2c 51 24 2c 4e 25 3a  |D%).f%,G%,Q$,N%:|
000005d0  66 25 3d 30 3a 47 25 3d  66 25 3c 44 25 3a c8 95  |f%=0:G%=f%<D%:..|
000005e0  47 25 80 a4 74 28 6c 79  25 2c 44 25 2c 66 25 2c  |G%..t(ly%,D%,f%,|
000005f0  51 24 29 3a 4e 25 3d de  28 4d 24 28 29 2c 31 29  |Q$):N%=.(M$(),1)|
00000600  3a c8 95 47 25 80 4e 25  3e 3d 30 3a 47 25 3d 28  |:..G%.N%>=0:G%=(|
00000610  a7 51 24 2c 4d 24 28 4e  25 29 29 3c 3e 31 29 3a  |.Q$,M$(N%))<>1):|
00000620  4e 25 2d 3d 31 3a ce 3a  47 25 3d ac 47 25 3a ce  |N%-=1:.:G%=.G%:.|
00000630  3a 3d 47 25 0d 00 38 88  dd a4 74 28 6c 79 25 2c  |:=G%..8...t(ly%,|
00000640  44 25 2c f8 66 25 2c f8  51 24 29 f5 51 24 3d 22  |D%,.f%,.Q$).Q$="|
00000650  22 3a c8 95 66 25 3c 44  25 80 a4 58 79 28 6c 79  |":..f%<D%..Xy(ly|
00000660  25 3f 66 25 29 3a 66 25  2b 3d 31 3a ce 3a c8 95  |%?f%):f%+=1:.:..|
00000670  66 25 3c 44 25 80 28 ac  a4 64 28 6c 79 25 3f 66  |f%<D%.(..d(ly%?f|
00000680  25 29 29 3a 51 24 2b 3d  a4 46 79 28 6c 79 25 3f  |%)):Q$+=.Fy(ly%?|
00000690  66 25 29 3a 66 25 2b 3d  31 3a ce 3a fd 28 51 24  |f%):f%+=1:.:.(Q$|
000006a0  3d 22 22 29 84 28 97 28  51 24 29 3c 3e 97 28 22  |="").(.(Q$)<>.("|
000006b0  7c 22 29 29 3a 3d 51 24  3c 3e 22 22 0d 00 39 1a  ||")):=Q$<>""..9.|
000006c0  dd a4 58 79 28 51 25 29  ea 47 25 3a 47 25 3d b9  |..Xy(Q%).G%:G%=.|
000006d0  3a c8 8e 51 25 ca 0d 00  3a 09 c9 97 22 2a 22 0d  |:..Q%...:..."*".|
000006e0  00 3b 09 c9 97 22 20 22  0d 00 3c 06 c9 39 0d 00  |.;..." "..<..9..|
000006f0  3d 0e 7f 47 25 3d a4 64  28 51 25 29 0d 00 3e 09  |=..G%=.d(Q%)..>.|
00000700  cb 3a 3d 47 25 0d 00 3f  1d dd a4 64 28 51 25 29  |.:=G%..?...d(Q%)|
00000710  3d 28 28 51 25 3d 31 30  29 84 28 51 25 3d 31 33  |=((Q%=10).(Q%=13|
00000720  29 29 0d 00 40 23 dd a4  46 79 28 51 25 29 e7 51  |))..@#..Fy(Q%).Q|
00000730  25 3e 3d 97 28 22 41 22  29 80 51 25 3c 3d 97 28  |%>=.("A").Q%<=.(|
00000740  22 5a 22 29 8c 0d 00 41  15 51 25 2b 3d 97 28 22  |"Z")...A.Q%+=.("|
00000750  61 22 29 2d 97 28 22 41  22 29 0d 00 42 0c cd 3a  |a")-.("A")..B..:|
00000760  3d bd 28 51 25 29 0d 00  43 58 dd f2 49 5f ea 46  |=.(Q%)..CX..I_.F|
00000770  25 2c 4e 25 2c 46 5f 25  3a 46 5f 25 3d 30 3a e3  |%,N%,F_%:F_%=0:.|
00000780  4e 25 3d 30 b8 de 28 41  24 28 29 2c 31 29 3a c8  |N%=0..(A$(),1):.|
00000790  99 34 36 2c 32 38 30 2c  65 25 2c 41 24 28 4e 25  |.46,280,e%,A$(N%|
000007a0  29 3a e7 46 5f 25 3c a9  28 41 24 28 4e 25 29 29  |):.F_%<.(A$(N%))|
000007b0  8c 46 5f 25 3d a9 28 41  24 28 4e 25 29 29 0d 00  |.F_%=.(A$(N%))..|
000007c0  44 a1 ed 4e 25 3a de 66  5f 25 46 5f 25 2b 32 3a  |D..N%:.f_%F_%+2:|
000007d0  70 3d 30 3a 46 25 3d a4  41 28 35 31 32 29 3a 46  |p=0:F%=.A(512):F|
000007e0  25 21 30 3d 2d 31 3a 46  25 21 34 3d 30 3a 46 25  |%!0=-1:F%!4=0:F%|
000007f0  21 38 3d 30 3a 46 25 21  31 32 3d 36 38 3a 46 25  |!8=0:F%!12=68:F%|
00000800  21 31 36 3d 36 38 3a 46  25 21 32 30 3d 31 32 36  |!16=68:F%!20=126|
00000810  37 34 3a 46 25 21 32 34  3d 66 5f 25 3a 24 66 5f  |74:F%!24=f_%:$f_|
00000820  25 3d 41 24 28 70 29 2b  bd 28 30 29 3a 46 25 21  |%=A$(p)+.(0):F%!|
00000830  32 38 3d 65 25 3a 46 25  21 33 32 3d 46 5f 25 2b  |28=e%:F%!32=F_%+|
00000840  31 3a c8 99 26 34 30 30  63 32 2c 2c 46 25 b8 56  |1:..&400c2,,F%.V|
00000850  5f 25 3a f2 43 28 46 25  2c 35 31 32 29 3a e1 0d  |_%:.C(F%,512):..|
00000860  00 45 34 dd a4 6f 28 45  25 2c 45 24 29 ea 47 25  |.E4..o(E%,E$).G%|
00000870  2c 4d 24 2c 67 25 2c 57  79 25 2c 44 25 2c 41 79  |,M$,g%,Wy%,D%,Ay|
00000880  25 3a 4d 24 3d 22 43 46  53 23 22 2b 45 24 3a c8  |%:M$="CFS#"+E$:.|
00000890  8e b9 ca 0d 00 46 12 c9  a4 4e 28 4d 24 2c 22 21  |.....F...N(M$,"!|
000008a0  52 75 6e 22 29 0d 00 47  1f c9 a4 57 3d 66 3a 47  |Run")..G...W=f:G|
000008b0  25 3d a4 45 79 28 45 25  2c 4d 24 2b 22 2e 21 52  |%=.Ey(E%,M$+".!R|
000008c0  75 6e 22 29 0d 00 48 09  cb 3a 3d 47 25 0d 00 49  |un")..H..:=G%..I|
000008d0  42 dd a4 45 79 28 45 25  2c 4d 24 29 ea 47 25 2c  |B..Ey(E%,M$).G%,|
000008e0  44 25 2c 41 79 25 2c 58  25 3a ea 66 25 2c 51 24  |D%,Ay%,X%:.f%,Q$|
000008f0  2c 4e 25 3a c8 99 38 2c  35 2c 4d 24 b8 2c 2c 2c  |,N%:..8,5,M$.,,,|
00000900  2c 44 25 2c 41 79 25 3a  e7 41 79 25 80 31 8c 0d  |,D%,Ay%:.Ay%.1..|
00000910  00 4a 13 e7 a4 50 28 58  25 2c 44 25 2b 31 29 3d  |.J...P(X%,D%+1)=|
00000920  30 8c 0d 00 4b 16 ea 85  3a ee 85 ea f7 85 3a f2  |0...K...:.....:.|
00000930  5a 28 58 25 29 3a f2 48  0d 00 4c 5a f2 66 28 4d  |Z(X%):.H..LZ.f(M|
00000940  24 2c 58 25 29 3a 66 25  3d 30 3a 47 25 3d 66 25  |$,X%):f%=0:G%=f%|
00000950  3c 44 25 3a c8 95 47 25  80 a4 74 28 58 25 2c 44  |<D%:..G%..t(X%,D|
00000960  25 2c 66 25 2c 51 24 29  3a 47 25 3d 47 25 80 28  |%,f%,Q$):G%=G%.(|
00000970  a7 51 24 2c 22 21 62 6f  6f 74 22 29 3d 30 29 3a  |.Q$,"!boot")=0):|
00000980  ce 3a 47 25 3d ac 47 25  3a f7 85 3a f2 5a 28 58  |.:G%=.G%:..:.Z(X|
00000990  25 29 0d 00 4d 05 cd 0d  00 4e 09 cd 3a 3d 47 25  |%)..M....N..:=G%|
000009a0  0d 00 4f 10 dd f2 41 79  c8 8e 57 25 21 31 36 ca  |..O...Ay..W%!16.|
000009b0  0d 00 50 0d c9 31 32 38  32 3a f2 4e 5f 0d 00 51  |..P..1282:.N_..Q|
000009c0  0f c9 26 34 30 30 63 30  3a f2 53 5f 0d 00 52 0a  |..&400c0:.S_..R.|
000009d0  c9 33 3a f2 66 5f 0d 00  53 0f c9 26 34 30 30 63  |.3:.f_..S..&400c|
000009e0  31 3a f2 53 79 0d 00 54  0a c9 38 3a f2 49 79 0d  |1:.Sy..T..8:.Iy.|
000009f0  00 55 0f c9 26 34 30 30  63 63 3a f2 6d 79 0d 00  |.U..&400cc:.my..|
00000a00  56 0b c9 31 30 3a f2 4f  5f 0d 00 57 09 c9 30 3a  |V..10:.O_..W..0:|
00000a10  f2 53 0d 00 58 07 cb 3a  e1 0d 00 59 16 dd f2 77  |.S..X..:...Y...w|
00000a20  5f c8 99 26 34 30 30 63  35 2c 2c 57 25 3a e1 0d  |_..&400c5,,W%:..|
00000a30  00 5a 16 dd f2 69 79 c8  99 26 34 30 30 63 36 2c  |.Z...iy..&400c6,|
00000a40  2c 57 25 3a e1 0d 00 5b  10 dd f2 62 5f e7 21 57  |,W%:...[...b_.!W|
00000a50  25 3d 56 25 8c 0d 00 5c  13 f2 4d 5f 28 57 25 21  |%=V%...\..M_(W%!|
00000a60  34 2c 57 25 21 32 34 29  0d 00 5d 13 cc c8 99 26  |4,W%!24)..]....&|
00000a70  34 30 30 64 63 2c 57 25  21 32 34 0d 00 5e 07 cd  |400dc,W%!24..^..|
00000a80  3a e1 0d 00 5f 32 dd f2  74 79 ea 51 4a 25 2c 49  |:..._2..ty.QJ%,I|
00000a90  4a 25 3a 49 4a 25 3d b9  3a f5 c8 99 26 34 30 30  |J%:IJ%=.:...&400|
00000aa0  63 37 2c 4f 79 25 2c 57  25 b8 51 4a 25 3a c8 8e  |c7,Oy%,W%.QJ%:..|
00000ab0  51 4a 25 ca 0d 00 60 0a  c9 30 3a f2 74 5f 0d 00  |QJ%...`..0:.t_..|
00000ac0  61 0a c9 32 3a f2 77 5f  0d 00 62 0a c9 33 3a f2  |a..2:.w_..b..3:.|
00000ad0  69 79 0d 00 63 0a c9 36  3a f2 44 5f 0d 00 64 0a  |iy..c..6:.D_..d.|
00000ae0  c9 38 3a f2 62 5f 0d 00  65 0a c9 39 3a f2 72 5f  |.8:.b_..e..9:.r_|
00000af0  0d 00 66 0b c9 31 37 3a  f2 41 79 0d 00 67 0b c9  |..f..17:.Ay..g..|
00000b00  31 38 3a f2 48 5f 0d 00  68 0f cb 3a fd ac 28 49  |18:.H_..h..:..(I|
00000b10  4a 25 29 3a e1 0d 00 69  1f dd f2 5f 79 ea 61 25  |J%):...i..._y.a%|
00000b20  2c 53 4a 25 2c 5a 24 3a  ea dc 3a f7 2b 30 3a e7  |,SJ%,Z$:..:.+0:.|
00000b30  5a 5f 25 8c 0d 00 6a 28  61 25 3d 21 28 a4 43 28  |Z_%...j(a%=!(.C(|
00000b40  22 50 72 6f 67 49 6e 66  6f 22 29 2b 46 2b 38 38  |"ProgInfo")+F+88|
00000b50  2b 28 42 79 3c 3c 35 29  2b 32 30 29 0d 00 6b 11  |+(By<<5)+20)..k.|
00000b60  cc 61 25 3d a4 6c 28 73  25 2c 42 79 29 0d 00 6c  |.a%=.l(s%,By)..l|
00000b70  4c cd 3a f3 5a 24 3a 53  4a 25 3d 97 28 5a 24 29  |L.:.Z$:SJ%=.(Z$)|
00000b80  3a 5a 24 3d c1 5a 24 2c  32 29 3a c8 95 5a 24 3c  |:Z$=.Z$,2):..Z$<|
00000b90  3e 22 22 3a 3f 61 25 3d  97 28 5a 24 29 82 53 4a  |>"":?a%=.(Z$).SJ|
00000ba0  25 3a 5a 24 3d c1 5a 24  2c 32 29 3a 61 25 2b 3d  |%:Z$=.Z$,2):a%+=|
00000bb0  31 3a ce 3a 3f 61 25 3d  30 0d 00 6d 38 dc 22 ce  |1:.:?a%=0..m8.".|
00000bc0  9b a0 bc ab a9 a7 bd ba  ab bc ab aa 22 2c 2c 2c  |............",,,|
00000bd0  2c 2c 2c 2c 2c 2c 2c 2c  2c 2c 2c 2c 2c 2c 2c 2c  |,,,,,,,,,,,,,,,,|
*
00000bf0  2c 0d 00 6e 05 e1 0d 00  6f 2b dd f2 55 5f c8 99  |,..n....o+..U_..|
00000c00  26 34 36 35 63 36 2c 59  25 2c 6a 25 3a c8 99 26  |&465c6,Y%,j%:..&|
00000c10  64 63 62 38 64 2c 74 79  2c 21 6a 25 2c 2d 31 3a  |dcb8d,ty,!j%,-1:|
00000c20  e1 0d 00 70 40 dd f2 78  5f de 6a 25 34 3a 21 6a  |...p@..x_.j%4:!j|
00000c30  25 3d 30 3a f2 54 28 22  53 68 61 72 65 57 61 72  |%=0:.T("ShareWar|
00000c40  65 22 2c 2b 31 2c 22 22  29 3a e7 a4 5f 28 22 53  |e",+1,""):.._("S|
00000c50  68 61 72 65 57 61 72 65  22 2c 6a 25 2c 56 4a 25  |hareWare",j%,VJ%|
00000c60  29 0d 00 71 05 e1 0d 00  72 14 dd f2 64 5f 28 66  |)..q....r...d_(f|
00000c70  24 2c 51 79 25 29 ee 85  f2 78 0d 00 73 7b f2 54  |$,Qy%)...x..s{.T|
00000c80  79 28 32 30 2c 31 32 29  3a 56 79 25 3d 2d 32 3a  |y(20,12):Vy%=-2:|
00000c90  73 79 25 3d a3 3a 55 79  25 3d a3 3a 55 79 25 3d  |sy%=.:Uy%=.:Uy%=|
00000ca0  a3 3a 73 79 25 3d b9 3a  56 79 25 3d 2d 33 3a f2  |.:sy%=.:Vy%=-3:.|
00000cb0  41 28 22 3c 42 61 73 69  63 56 24 4c 69 62 3e 2e  |A("<BasicV$Lib>.|
00000cc0  43 41 73 6d 22 2c 31 29  3a f2 41 28 22 3c 42 61  |CAsm",1):.A("<Ba|
00000cd0  73 69 63 56 24 4c 69 62  3e 2e 54 65 6d 70 6c 61  |sicV$Lib>.Templa|
00000ce0  74 65 22 2c 32 31 29 3a  4f 5f 25 3d 73 79 25 3a  |te",21):O_%=sy%:|
00000cf0  69 25 3d 2b 31 0d 00 74  88 41 4a 25 3d b9 3a 6b  |i%=+1..t.AJ%=.:k|
00000d00  79 25 3d 30 3a 60 79 25  3d 30 3a f2 54 5f 28 22  |y%=0:`y%=0:.T_("|
00000d10  73 74 64 69 6f 2c 20 73  74 64 6c 69 62 2c 20 73  |stdio, stdlib, s|
00000d20  74 72 69 6e 67 2c 20 6d  65 73 73 61 67 65 2c 20  |tring, message, |
00000d30  77 69 6d 70 22 29 3a f2  6b 79 28 32 30 30 30 2c  |wimp"):.ky(2000,|
00000d40  a3 2c a3 29 3a f2 41 28  22 3c 42 61 73 69 63 56  |.,.):.A("<BasicV|
00000d50  24 4c 69 62 3e 2e 4d 6f  64 65 49 6e 66 6f 22 2c  |$Lib>.ModeInfo",|
00000d60  31 29 3a f2 41 28 22 3c  42 61 73 69 63 56 24 4c  |1):.A("<BasicV$L|
00000d70  69 62 3e 2e 57 69 6d 70  22 2c 32 38 29 0d 00 75  |ib>.Wimp",28)..u|
00000d80  7e f2 41 28 22 3c 42 61  73 69 63 56 24 4c 69 62  |~.A("<BasicV$Lib|
00000d90  3e 2e 46 69 6c 65 54 79  70 65 22 2c 32 29 3a f2  |>.FileType",2):.|
00000da0  41 28 22 3c 42 61 73 69  63 56 24 4c 69 62 3e 2e  |A("<BasicV$Lib>.|
00000db0  66 69 6c 65 5f 69 6f 22  2c 39 29 3a f2 41 28 22  |file_io",9):.A("|
00000dc0  3c 42 61 73 69 63 56 24  4c 69 62 3e 2e 73 74 72  |<BasicV$Lib>.str|
00000dd0  69 6e 67 22 2c 36 29 3a  6d 25 3d a4 67 28 22 3c  |ing",6):m%=.g("<|
00000de0  55 6e 43 46 53 24 44 69  72 3e 22 2c 2d 31 2c 44  |UnCFS$Dir>",-1,D|
00000df0  5f 25 29 3a e7 44 5f 25  3e 30 8c 0d 00 76 38 85  |_%):.D_%>0...v8.|
00000e00  21 6d 25 2c 22 55 6e 43  46 53 20 63 61 6e 27 74  |!m%,"UnCFS can't|
00000e10  20 6c 6f 61 64 20 69 74  73 27 20 6d 65 73 73 61  | load its' messa|
00000e20  67 65 20 66 69 6c 65 3a  20 22 2b a4 55 28 6d 25  |ge file: "+.U(m%|
00000e30  2b 34 29 0d 00 77 16 cd  3a e7 51 79 25 8c 51 79  |+4)..w..:.Qy%.Qy|
00000e40  25 3d 32 8b 51 79 25 3d  31 0d 00 78 d8 f2 5f 28  |%=2.Qy%=1..x.._(|
00000e50  22 50 61 74 63 68 69 6e  67 22 2c 51 79 25 29 3a  |"Patching",Qy%):|
00000e60  f2 5f 28 22 70 61 74 63  68 69 6e 67 22 2c 51 79  |._("patching",Qy|
00000e70  25 29 3a f2 5f 28 22 70  61 74 63 68 65 64 22 2c  |%):._("patched",|
00000e80  51 79 25 29 3a f2 5f 28  22 70 61 74 63 68 22 2c  |Qy%):._("patch",|
00000e90  51 79 25 29 3a 62 24 3d  22 46 6f 72 63 65 43 46  |Qy%):b$="ForceCF|
00000ea0  53 22 2b bd 28 31 30 29  3a 4e 4a 25 3d 30 3a 58  |S"+.(10):NJ%=0:X|
00000eb0  4a 25 3d 31 3a 64 4a 25  3d 32 3a 46 4a 25 3d 30  |J%=1:dJ%=2:FJ%=0|
00000ec0  3a 6a 5f 25 3d 30 3a 76  5f 25 3d 31 3a 74 5f 25  |:j_%=0:v_%=1:t_%|
00000ed0  3d 32 3a 7a 5f 25 3d 33  3a 78 5f 25 3d 34 3a 55  |=2:z_%=3:x_%=4:U|
00000ee0  4a 25 3d 36 3a 42 4a 25  3d 37 3a 4a 4a 25 3d 38  |J%=6:BJ%=7:JJ%=8|
00000ef0  3a 6f 4a 25 3d 39 3a 58  79 3d 36 30 2d 31 3a 75  |:oJ%=9:Xy=60-1:u|
00000f00  3d 32 3a 76 3d 34 3a 58  3d 35 3a 55 3d 37 3a 48  |=2:v=4:X=5:U=7:H|
00000f10  3d 39 3a 56 3d 31 31 3a  59 3d 31 33 3a 50 3d 31  |=9:V=11:Y=13:P=1|
00000f20  34 0d 00 79 fd 4f 79 3d  31 37 3a 51 3d 31 38 3a  |4..y.Oy=17:Q=18:|
00000f30  5a 79 25 3d 30 3a de 5a  24 28 35 29 3a 5a 24 28  |Zy%=0:.Z$(5):Z$(|
00000f40  29 3d 22 21 42 6f 6f 74  22 2c 22 21 52 75 6e 22  |)="!Boot","!Run"|
00000f50  2c 22 21 53 70 72 69 74  65 73 32 32 22 2c 22 21  |,"!Sprites22","!|
00000f60  53 70 72 69 74 65 73 32  33 22 2c 22 21 53 70 72  |Sprites23","!Spr|
00000f70  69 74 65 73 33 33 22 2c  22 21 53 70 72 69 74 65  |ites33","!Sprite|
00000f80  73 33 32 22 3a de 45 25  28 de 28 5a 24 28 29 2c  |s32":.E%(.(Z$(),|
00000f90  31 29 29 3a 45 25 28 29  3d 66 2c 66 2c 62 2c 62  |1)):E%()=f,f,b,b|
00000fa0  2c 62 2c 62 3a de 41 24  28 31 29 3a 41 24 28 29  |,b,b:.A$(1):A$()|
00000fb0  3d 22 21 75 6e 63 66 73  22 2c 22 62 75 73 79 22  |="!uncfs","busy"|
00000fc0  3a 57 75 25 3d a3 3a 5a  5f 25 3d b9 3a 6e 25 3d  |:Wu%=.:Z_%=.:n%=|
00000fd0  b9 3a 55 24 3d 22 26 35  30 32 2c 26 34 30 30 63  |.:U$="&502,&400c|
00000fe0  30 2c 33 2c 26 34 30 30  63 31 2c 38 2c 26 34 30  |0,3,&400c1,8,&40|
00000ff0  30 63 63 2c 31 30 22 3a  f2 59 79 28 66 24 2c 31  |0cc,10":.Yy(f$,1|
00001000  2c 32 30 2c 32 33 2c 37  2c 31 39 39 34 29 3a 55  |,20,23,7,1994):U|
00001010  79 25 3d 73 79 25 3a f2  44 79 3a f2 55 5f 0d 00  |y%=sy%:.Dy:.U_..|
00001020  7a 08 ee 85 f2 78 0d 00  7b 13 f2 76 79 3a f5 f2  |z....x..{..vy:..|
00001030  74 79 3a fd a3 3a e0 3a  e1 0d 00 7c e2 dd f2 72  |ty:..:.:...|...r|
00001040  ea 75 79 2c 79 3a 74 3d  30 3c 3c 32 3a 54 3d 31  |.uy,y:t=0<<2:T=1|
00001050  3c 3c 32 3a 4a 3d 32 3c  3c 32 3a 45 3d 33 3c 3c  |<<2:J=2<<2:E=3<<|
00001060  32 3a 71 3d 34 3c 3c 32  3a 73 3d 35 3c 3c 32 3a  |2:q=4<<2:s=5<<2:|
00001070  52 3d 36 3c 3c 32 3a 4b  3d 37 3c 3c 32 3a 53 3d  |R=6<<2:K=7<<2:S=|
00001080  38 3c 3c 32 3a 6e 3d 39  3c 3c 32 3a 47 3d 31 30  |8<<2:n=9<<2:G=10|
00001090  3c 3c 32 3a 57 3d 31 32  3c 3c 32 3a 46 79 3d 31  |<<2:W=12<<2:Fy=1|
000010a0  33 3c 3c 32 3a 53 79 3d  31 34 3c 3c 32 3a 4c 79  |3<<2:Sy=14<<2:Ly|
000010b0  3d 31 35 3c 3c 32 3a 56  79 3d 31 36 3c 3c 32 3a  |=15<<2:Vy=16<<2:|
000010c0  4d 3d 31 37 3c 3c 32 3a  72 3d 31 38 3c 3c 32 3a  |M=17<<2:r=18<<2:|
000010d0  5a 79 3d 31 39 3c 3c 32  3a 55 79 3d 30 3c 3c 32  |Zy=19<<2:Uy=0<<2|
000010e0  3a 48 79 3d 31 3c 3c 32  3a 6f 3d 32 3c 3c 32 3a  |:Hy=1<<2:o=2<<2:|
000010f0  4c 3d 33 3c 3c 32 3a 44  3d 30 3a 49 3d 31 3a 42  |L=3<<2:D=0:I=1:B|
00001100  3d 32 3a 78 3d 33 3a 64  3d 34 3a 43 3d 35 3a 5b  |=2:x=3:d=4:C=5:[|
00001110  4f 50 54 55 25 3a 41 4c  49 47 4e 0d 00 7d a0 2e  |OPTU%:ALIGN..}..|
00001120  75 79 20 45 51 55 53 22  5b 30 2c 77 3e 2c 3e 2c  |uy EQUS"[0,w>,>,|
00001130  3e 22 3a 44 43 42 30 3a  2e 4b 79 20 45 51 55 53  |>":DCB0:.Ky EQUS|
00001140  22 5b 31 30 30 2c 3c 74  3e 22 3a 44 43 42 30 3a  |"[100,<t>":DCB0:|
00001150  41 4c 49 47 4e 3a 2e 79  20 44 43 44 30 3a 2e 61  |ALIGN:.y DCD0:.a|
00001160  20 44 43 44 30 3a 2e 77  20 44 43 44 30 3a 2e 5f  | DCD0:.w DCD0:._|
00001170  20 44 43 44 30 3a 2e 4f  20 44 43 44 30 3a 41 4c  | DCD0:.O DCD0:AL|
00001180  49 47 4e 3a 2e 67 79 3a  a4 4a 3a 53 54 4d 46 44  |IGN:.gy:.J:STMFD|
00001190  28 41 29 21 2c 7b 34 2d  39 2c 5a 7d 3a 4d 4f 56  |(A)!,{4-9,Z}:MOV|
000011a0  31 2c 23 30 3a 41 44 52  30 2c 75 79 3a 42 4c 20  |1,#0:ADR0,uy:BL |
000011b0  57 79 3a 53 54 52 76 63  30 2c 79 0d 00 7e a3 41  |Wy:STRvc0,y..~.A|
000011c0  44 52 76 63 30 2c 79 3a  4c 44 4d 46 44 28 41 29  |DRvc0,y:LDMFD(A)|
000011d0  21 2c 7b 34 2d 39 2c 70  63 7d 3a 2e 54 79 3a a4  |!,{4-9,pc}:.Ty:.|
000011e0  4a 3a 53 54 4d 46 44 28  41 29 21 2c 7b 34 2d 39  |J:STMFD(A)!,{4-9|
000011f0  2c 5a 7d 3a 4c 44 52 30  2c 5b 30 2c 23 4d 5d 3a  |,Z}:LDR0,[0,#M]:|
00001200  53 54 4d 46 44 28 41 29  21 2c 7b 30 7d 3a 4d 4f  |STMFD(A)!,{0}:MO|
00001210  56 31 2c 23 30 3a 41 44  52 30 2c 4b 79 3a 42 4c  |V1,#0:ADR0,Ky:BL|
00001220  20 57 79 3a 41 44 44 20  41 2c 41 2c 23 31 3c 3c  | Wy:ADD A,A,#1<<|
00001230  32 3a 53 54 52 76 63 30  2c 79 3a 41 44 52 76 63  |2:STRvc0,y:ADRvc|
00001240  30 2c 79 3a 4c 44 4d 46  44 28 41 29 21 2c 7b 34  |0,y:LDMFD(A)!,{4|
00001250  2d 39 2c 70 63 7d 3a 5d  3a f2 4c 5f 3a e1 0d 00  |-9,pc}:]:.L_:...|
00001260  7f 08 dd f2 6a e1 0d 00  80 60 dd f2 61 5f 3a 74  |....j....`..a_:t|
00001270  79 25 3d 2d 31 32 33 31  34 3a f2 54 28 22 46 43  |y%=-12314:.T("FC|
00001280  6f 6e 76 65 72 74 22 2c  2b 31 2c 22 53 74 61 74  |onvert",+1,"Stat|
00001290  75 73 57 22 29 3a f2 54  28 22 43 68 6f 69 63 65  |usW"):.T("Choice|
000012a0  73 22 2c 2b 31 2c 22 43  68 6f 69 63 65 73 57 22  |s",+1,"ChoicesW"|
000012b0  29 3a 56 25 3d 30 3a 76  75 25 3d 30 3a f2 78 5f  |):V%=0:vu%=0:.x_|
000012c0  3a f2 5f 79 3a e1 0d 00  81 7d dd a4 53 74 61 74  |:._y:....}..Stat|
000012d0  75 73 57 28 4d 25 29 f2  52 5f 28 4d 25 29 3a 4f  |usW(M%).R_(M%):O|
000012e0  4a 25 3d 4d 25 21 31 36  3a 71 4a 25 3d 4d 25 21  |J%=M%!16:qJ%=M%!|
000012f0  32 30 3a 62 4a 25 3d 4d  25 21 38 2d 4d 25 21 30  |20:bJ%=M%!8-M%!0|
00001300  3a 4d 4a 25 3d 4d 25 21  31 32 2d 4d 25 21 34 3a  |:MJ%=M%!12-M%!4:|
00001310  6f 5f 25 3d 4d 25 21 34  38 2d 4d 25 21 34 30 3a  |o_%=M%!48-M%!40:|
00001320  59 5f 25 3d 4d 25 21 35  32 2d 4d 25 21 34 34 3a  |Y_%=M%!52-M%!44:|
00001330  f2 50 28 4d 25 2c 58 2c  a4 45 28 22 4e 6f 6e 65  |.P(M%,X,.E("None|
00001340  22 29 29 0d 00 82 87 f2  50 28 4d 25 2c 58 2b 31  |")).....P(M%,X+1|
00001350  2c a4 45 28 22 46 53 63  61 6e 30 22 29 29 3a f2  |,.E("FScan0")):.|
00001360  50 28 4d 25 2c 55 2c a4  45 28 22 4e 6f 6e 65 22  |P(M%,U,.E("None"|
00001370  29 29 3a f2 50 28 4d 25  2c 55 2b 31 2c a4 45 28  |)):.P(M%,U+1,.E(|
00001380  22 46 43 6f 6e 76 30 22  29 29 3a f2 50 28 4d 25  |"FConv0")):.P(M%|
00001390  2c 48 2c a4 45 28 22 4e  6f 6e 65 22 29 29 3a f2  |,H,.E("None")):.|
000013a0  50 28 4d 25 2c 48 2b 31  2c a4 45 28 22 41 53 63  |P(M%,H+1,.E("ASc|
000013b0  61 6e 30 22 29 29 3a f2  50 28 4d 25 2c 56 2c a4  |an0")):.P(M%,V,.|
000013c0  45 28 22 4e 6f 6e 65 22  29 29 0d 00 83 84 f2 50  |E("None")).....P|
000013d0  28 4d 25 2c 56 2b 31 2c  a4 45 28 22 41 43 6f 6e  |(M%,V+1,.E("ACon|
000013e0  76 30 22 29 29 3a f2 50  28 4d 25 2c 76 2c 22 22  |v0")):.P(M%,v,""|
000013f0  29 3a f2 50 28 4d 25 2c  75 2c 22 22 29 3a f2 50  |):.P(M%,u,""):.P|
00001400  28 4d 25 2c 59 2c a4 45  28 22 41 62 72 74 22 29  |(M%,Y,.E("Abrt")|
00001410  29 3a f2 50 28 4d 25 2c  76 2d 31 2c a4 45 28 22  |):.P(M%,v-1,.E("|
00001420  50 61 74 63 68 69 6e 67  22 29 29 3a f2 73 28 4d  |Patching")):.s(M|
00001430  25 21 37 32 2c c0 a4 45  28 22 54 69 74 6c 65 22  |%!72,..E("Title"|
00001440  29 2c 4d 25 21 38 30 2d  31 29 29 3a 3d 30 0d 00  |),M%!80-1)):=0..|
00001450  84 36 dd a4 43 68 6f 69  63 65 73 57 28 4d 25 29  |.6..ChoicesW(M%)|
00001460  f2 73 28 4d 25 21 37 32  2c c0 a4 45 28 22 43 68  |.s(M%!72,..E("Ch|
00001470  6f 69 63 65 73 22 29 2c  4d 25 21 38 30 2d 31 29  |oices"),M%!80-1)|
00001480  29 3a 3d 30 0d 00 85 3a  dd f2 50 28 4d 25 2c 4e  |):=0...:..P(M%,N|
00001490  25 2c 59 24 29 4e 25 3d  4d 25 2b 38 38 2b 28 4e  |%,Y$)N%=M%+88+(N|
000014a0  25 2a 33 32 29 3a f2 73  28 4e 25 21 32 30 2c c0  |%*32):.s(N%!20,.|
000014b0  59 24 2c 4e 25 21 32 38  2d 31 29 29 3a e1 0d 00  |Y$,N%!28-1)):...|
000014c0  86 25 dd f2 42 5f 28 63  25 2c 62 25 2c 5f 25 2c  |.%..B_(c%,b%,_%,|
000014d0  54 25 29 63 25 3d a4 47  28 31 2c a4 53 28 32 29  |T%)c%=.G(1,.S(2)|
000014e0  29 3a e1 0d 00 87 19 dd  a4 66 28 4d 25 2c f8 45  |):.......f(M%,.E|
000014f0  25 29 ea 6a 79 25 3a c8  8e 4d 25 ca 0d 00 88 07  |%).jy%:..M%.....|
00001500  c9 2d 32 0d 00 89 07 c9  73 25 0d 00 8a 08 c9 21  |.-2.....s%.....!|
00001510  6a 25 0d 00 8b 07 c9 56  25 0d 00 8c 37 7f 45 25  |j%.....V%...7.E%|
00001520  3d 5a 79 25 3a 6a 79 25  3d a3 3a c8 95 45 25 80  |=Zy%:jy%=.:..E%.|
00001530  ac 6a 79 25 3a 6a 79 25  3d 28 4d 25 3d 45 25 21  |.jy%:jy%=(M%=E%!|
00001540  45 29 3a e7 ac 6a 79 25  8c 45 25 3d 45 25 21 54  |E):..jy%.E%=E%!T|
00001550  0d 00 8d 0b ce 3a e7 6a  79 25 8c 0d 00 8e 0a 4d  |.....:.jy%.....M|
00001560  25 3d 74 79 25 0d 00 8f  05 cd 0d 00 90 09 cb 3a  |%=ty%..........:|
00001570  3d 4d 25 0d 00 91 3c dd  f2 4e 5f ea 41 24 2c 71  |=M%...<..N_.A$,q|
00001580  25 2c 54 25 2c 41 25 2c  4e 25 2c 58 25 2c 45 25  |%,T%,A%,N%,X%,E%|
00001590  3a 41 24 3d 22 22 3a 54  25 3d 57 25 21 33 36 3a  |:A$="":T%=W%!36:|
000015a0  c8 8e a4 66 28 57 25 21  33 32 2c 45 25 29 ca 0d  |...f(W%!32,E%)..|
000015b0  00 92 10 c9 2d 32 3a e7  54 25 3d 56 5f 25 8c 0d  |....-2:.T%=V_%..|
000015c0  00 93 10 41 24 3d 22 49  63 6f 6e 42 61 72 22 0d  |...A$="IconBar".|
000015d0  00 94 05 cd 0d 00 95 15  c9 73 25 3a 41 24 3d 22  |.........s%:A$="|
000015e0  50 72 6f 67 49 6e 66 6f  22 0d 00 96 17 c9 21 6a  |ProgInfo".....!j|
000015f0  25 3a 41 24 3d 22 53 68  61 72 65 57 61 72 65 22  |%:A$="ShareWare"|
00001600  0d 00 97 1c c9 56 25 3a  41 24 3d 22 43 68 6f 69  |.....V%:A$="Choi|
00001610  63 65 73 22 3a e7 54 25  3e 3d 30 8c 0d 00 98 11  |ces":.T%>=0.....|
00001620  41 24 2b 3d 22 2c 22 2b  c3 28 54 25 29 0d 00 99  |A$+=","+.(T%)...|
00001630  05 cd 0d 00 9a 19 c9 74  79 25 3a 41 24 3d 22 53  |.......ty%:A$="S|
00001640  74 61 74 75 73 22 3a e7  54 25 8c 0d 00 9b 11 41  |tatus":.T%.....A|
00001650  24 2b 3d 22 2c 22 2b c3  28 54 25 29 0d 00 9c 0d  |$+=","+.(T%)....|
00001660  cd 3a c8 8e 45 25 21 53  ca 0d 00 9d 13 c9 42 2c  |.:..E%!S......B,|
00001670  44 2c 49 3a 41 24 2b 3d  22 2c 50 22 0d 00 9e 0f  |D,I:A$+=",P"....|
00001680  c9 43 3a 41 24 2b 3d 22  2c 53 22 0d 00 9f 0f c9  |.C:A$+=",S".....|
00001690  78 3a 41 24 2b 3d 22 2c  43 22 0d 00 a0 0f c9 64  |x:A$+=",C".....d|
000016a0  3a 41 24 2b 3d 22 2c 44  22 0d 00 a1 05 cb 0d 00  |:A$+=",D".......|
000016b0  a2 1c 7f e7 28 55 5f 25  3e 32 31 38 29 80 28 57  |....(U_%>218).(W|
000016c0  25 21 33 36 3c 3e 2d 31  29 8c 0d 00 a3 0a 41 24  |%!36<>-1).....A$|
000016d0  3d a4 43 79 0d 00 a4 05  cd 0d 00 a5 0e cb 3a e7  |=.Cy..........:.|
000016e0  41 24 3c 3e 22 22 8c 0d  00 a6 1c f2 6f 28 22 48  |A$<>""......o("H|
000016f0  22 2b 41 24 2c 57 25 2b  32 30 29 3a e7 57 25 3f  |"+A$,W%+20):.W%?|
00001700  32 30 8c 0d 00 a7 4e 57  25 21 31 36 3d 31 32 38  |20....NW%!16=128|
00001710  33 3a 57 25 21 31 32 3d  57 25 21 38 3a 41 25 3d  |3:W%!12=W%!8:A%=|
00001720  57 25 2b 32 30 3a c8 95  3f 41 25 3a 41 25 2b 3d  |W%+20:..?A%:A%+=|
00001730  31 3a ce 3a e7 41 25 3e  3d 28 57 25 2b 32 35 36  |1:.:.A%>=(W%+256|
00001740  29 8c 41 25 3d 57 25 2b  32 35 35 3a 3f 41 25 3d  |).A%=W%+255:?A%=|
00001750  30 0d 00 a8 29 57 25 21  30 3d 28 41 25 2d 57 25  |0...)W%!0=(A%-W%|
00001760  2b 34 29 80 2d 34 3a c8  99 26 34 30 30 65 37 2c  |+4).-4:..&400e7,|
00001770  31 37 2c 57 25 2c 57 25  21 34 0d 00 a9 05 cd 0d  |17,W%,W%!4......|
00001780  00 aa 07 cd 3a e1 0d 00  ab 38 dd a4 43 79 ea 41  |....:....8..Cy.A|
00001790  24 2c 4d 25 3a 4d 25 3d  57 25 2b 34 30 3a c8 99  |$,M%:M%=W%+40:..|
000017a0  26 34 30 30 66 34 2c 31  2c 4d 25 2c 57 25 21 33  |&400f4,1,M%,W%!3|
000017b0  32 2c 57 25 21 33 36 3a  c8 8e 53 79 25 ca 0d 00  |2,W%!36:..Sy%...|
000017c0  ac 0f c9 78 79 25 3a 41  24 3d 22 49 22 0d 00 ad  |...xy%:A$="I"...|
000017d0  0f c9 70 79 25 3a 41 24  3d 22 44 22 0d 00 ae 0e  |..py%:A$="D"....|
000017e0  cb 3a e7 41 24 3c 3e 22  22 8c 0d 00 af 37 41 24  |.:.A$<>""....7A$|
000017f0  3d 22 4d 22 2b 41 24 2b  c3 28 21 4d 25 29 3a c8  |="M"+A$+.(!M%):.|
00001800  95 4d 25 21 34 3c 3e 2d  31 3a 4d 25 2b 3d 34 3a  |.M%!4<>-1:M%+=4:|
00001810  41 24 2b 3d 22 5f 2c 22  2b c3 28 21 4d 25 29 3a  |A$+="_,"+.(!M%):|
00001820  ce 0d 00 b0 09 cd 3a 3d  41 24 0d 00 b1 21 dd f2  |......:=A$...!..|
00001830  53 79 f2 71 79 28 2d 31  29 3a c8 99 26 34 36 35  |Sy.qy(-1):..&465|
00001840  63 32 2c 59 25 3a f2 73  79 3a e1 0d 00 b2 2f dd  |c2,Y%:.sy:..../.|
00001850  f2 53 ee 85 3a ee 85 87  3a 85 a2 31 2c 22 45 72  |.S..:...:..1,"Er|
00001860  72 6f 72 20 69 6e 20 65  72 72 6f 72 20 68 61 6e  |ror in error han|
00001870  64 6c 65 72 3a 20 22 2b  f6 24 0d 00 b3 1b f2 48  |dler: "+.$.....H|
00001880  79 3a f2 51 5f 3a d6 69  3a c8 99 26 34 30 30 64  |y:.Q_:.i:..&400d|
00001890  64 3a e0 3a e1 0d 00 b4  0c dd f2 76 5f e7 a4 77  |d:.:.......v_..w|
000018a0  8c 0d 00 b5 06 f2 53 0d  00 b6 07 cd 3a e1 0d 00  |......S.....:...|
000018b0  b7 42 dd a4 77 ea 71 79  25 2c 45 25 3a 71 79 25  |.B..w.qy%,E%:qy%|
000018c0  3d b9 3a 45 25 3d 5a 79  25 3a c8 95 45 25 80 71  |=.:E%=Zy%:..E%.q|
000018d0  79 25 3a 71 79 25 3d 28  45 25 21 53 3d 64 29 3a  |y%:qy%=(E%!S=d):|
000018e0  45 25 3d 45 25 21 54 3a  ce 3a e7 ac 71 79 25 8c  |E%=E%!T:.:..qy%.|
000018f0  0d 00 b8 17 71 79 25 3d  28 a4 47 28 33 2c a4 53  |....qy%=(.G(3,.S|
00001900  28 35 29 29 3d 31 29 0d  00 b9 0a cd 3a 3d 71 79  |(5))=1).....:=qy|
00001910  25 0d 00 ba 0c dd f2 49  79 e7 a4 77 8c 0d 00 bb  |%......Iy..w....|
00001920  06 f2 53 0d 00 bc 2c cc  57 25 21 31 32 3d 57 25  |..S...,.W%!12=W%|
00001930  21 38 3a 49 75 25 3d 57  25 21 34 3a c8 99 26 34  |!8:Iu%=W%!4:..&4|
00001940  30 30 65 37 2c 31 39 2c  57 25 2c 57 25 21 34 0d  |00e7,19,W%,W%!4.|
00001950  00 bd 07 cd 3a e1 0d 00  be 58 dd f2 44 5f ea 63  |....:....X..D_.c|
00001960  25 2c 62 25 2c 5f 25 2c  4d 25 2c 54 25 2c 46 5f  |%,b%,_%,M%,T%,F_|
00001970  25 2c 58 25 2c 45 25 3a  63 25 3d 57 25 21 30 3a  |%,X%,E%:c%=W%!0:|
00001980  62 25 3d 57 25 21 34 3a  5f 25 3d 57 25 21 38 3a  |b%=W%!4:_%=W%!8:|
00001990  4d 25 3d a4 66 28 57 25  21 31 32 2c 45 25 29 3a  |M%=.f(W%!12,E%):|
000019a0  54 25 3d 57 25 21 31 36  3a c8 8e 5f 25 ca 0d 00  |T%=W%!16:.._%...|
000019b0  bf 0c c9 32 3a c8 8e 4d  25 ca 0d 00 c0 39 c9 2d  |...2:..M%....9.-|
000019c0  32 3a f2 70 3a 62 25 3d  39 36 2b 28 34 34 2a 48  |2:.p:b%=96+(44*H|
000019d0  4a 25 29 2b 28 32 34 2a  6b 4a 25 29 3a c8 99 26  |J%)+(24*kJ%):..&|
000019e0  34 30 30 64 34 2c 2c 49  79 25 2c 63 25 2d 36 34  |400d4,,Iy%,c%-64|
000019f0  2c 62 25 0d 00 c1 0c c9  21 6a 25 3a f2 51 79 0d  |,b%.....!j%:.Qy.|
00001a00  00 c2 26 c9 74 79 25 3a  f2 6b 28 45 25 29 3a c8  |..&.ty%:.k(E%):.|
00001a10  99 26 34 30 30 64 34 2c  2c 49 79 25 2c 63 25 2d  |.&400d4,,Iy%,c%-|
00001a20  36 34 2c 62 25 0d 00 c3  05 cb 0d 00 c4 14 c9 31  |64,b%..........1|
00001a30  2a 31 36 2c 34 2a 31 36  3a c8 8e 4d 25 ca 0d 00  |*16,4*16:..M%...|
00001a40  c5 18 c9 73 25 3a f2 4e  79 28 63 25 2c 62 25 2c  |...s%:.Ny(c%,b%,|
00001a50  5f 25 2c 54 25 29 0d 00  c6 05 cb 0d 00 c7 0a 7f  |_%,T%)..........|
00001a60  c8 8e 4d 25 ca 0d 00 c8  18 c9 2d 32 3a f2 42 5f  |..M%......-2:.B_|
00001a70  28 63 25 2c 62 25 2c 5f  25 2c 54 25 29 0d 00 c9  |(c%,b%,_%,T%)...|
00001a80  19 c9 77 5f 25 3a f2 72  79 28 63 25 2c 62 25 2c  |..w_%:.ry(c%,b%,|
00001a90  5f 25 2c 54 25 29 0d 00  ca 18 c9 73 25 3a f2 4e  |_%,T%).....s%:.N|
00001aa0  79 28 63 25 2c 62 25 2c  5f 25 2c 54 25 29 0d 00  |y(c%,b%,_%,T%)..|
00001ab0  cb 0c c9 21 6a 25 3a f2  51 79 0d 00 cc 16 c9 74  |...!j%:.Qy.....t|
00001ac0  79 25 3a f2 4b 5f 28 45  25 2c 54 25 2c 5f 25 29  |y%:.K_(E%,T%,_%)|
00001ad0  0d 00 cd 12 c9 56 25 3a  f2 62 79 28 5f 25 2c 54  |.....V%:.by(_%,T|
00001ae0  25 29 0d 00 ce 05 cb 0d  00 cf 07 cb 3a e1 0d 00  |%)..........:...|
00001af0  d0 26 dd f2 51 79 c8 99  26 34 36 35 63 34 2c 59  |.&..Qy..&465c4,Y|
00001b00  25 2c 6a 25 3a f2 5a 28  56 4a 25 29 3a 21 6a 25  |%,j%:.Z(VJ%):!j%|
00001b10  3d 30 3a e1 0d 00 d1 2e  dd f2 4b 79 3a 53 79 25  |=0:.......Ky:Sy%|
00001b20  3d a3 3a 78 79 25 3d 26  31 30 34 30 61 33 31 2b  |=.:xy%=&1040a31+|
00001b30  30 3a 70 79 25 3d 26 31  30 34 30 61 33 31 2b 31  |0:py%=&1040a31+1|
00001b40  3a e1 0d 00 d2 2d dd f2  70 ea 41 25 3a 48 4a 25  |:....-..p.A%:HJ%|
00001b50  3d 33 3a 6b 4a 25 3d 30  3a e7 6b 79 25 8c c8 99  |=3:kJ%=0:.ky%...|
00001b60  26 34 36 35 63 38 2c 59  25 2c 6b 79 25 2c a3 0d  |&465c8,Y%,ky%,..|
00001b70  00 d3 36 41 25 3d ba 28  67 79 29 3a 49 79 25 3d  |..6A%=.(gy):Iy%=|
00001b80  21 41 25 3a 6b 79 25 3d  49 79 25 3a c8 99 26 34  |!A%:ky%=Iy%:..&4|
00001b90  36 35 63 37 2c 59 25 2c  6b 79 25 3a 53 79 25 3d  |65c7,Y%,ky%:Sy%=|
00001ba0  78 79 25 3a e1 0d 00 d4  13 dd f2 6b 28 45 25 29  |xy%:.......k(E%)|
00001bb0  ea 41 25 3a e7 45 25 8c  0d 00 d5 0a 4b 5f 25 3d  |.A%:.E%.....K_%=|
00001bc0  45 25 0d 00 d6 1c cd 3a  e7 60 79 25 8c c8 99 26  |E%.....:.`y%...&|
00001bd0  34 36 35 63 38 2c 59 25  2c 60 79 25 2c a3 0d 00  |465c8,Y%,`y%,...|
00001be0  d7 3d 41 25 3d 4b 5f 25  3a 41 25 3d ba 28 54 79  |.=A%=K_%:A%=.(Ty|
00001bf0  29 3a 49 79 25 3d 21 41  25 3a 60 79 25 3d 49 79  |):Iy%=!A%:`y%=Iy|
00001c00  25 3a c8 99 26 34 36 35  63 37 2c 59 25 2c 60 79  |%:..&465c7,Y%,`y|
00001c10  25 3a 53 79 25 3d 70 79  25 3a e1 0d 00 d8 35 dd  |%:Sy%=py%:....5.|
00001c20  f2 53 5f ea 63 25 2c 62  25 2c 4d 5f 25 3a 63 25  |.S_.c%,b%,M_%:c%|
00001c30  3d 57 25 21 32 34 3a 62  25 3d 57 25 21 32 38 3a  |=W%!24:b%=W%!28:|
00001c40  4d 5f 25 3d 57 25 21 33  32 3a c8 8e 53 79 25 ca  |M_%=W%!32:..Sy%.|
00001c50  0d 00 d9 0f c9 78 79 25  3a c8 8e 4d 5f 25 ca 0d  |.....xy%:..M_%..|
00001c60  00 da 13 c9 4e 4a 25 3a  f2 46 79 3a e7 73 25 3e  |....NJ%:.Fy:.s%>|
00001c70  30 8c 0d 00 db 40 f2 45  28 73 25 2c 30 2c a4 45  |0....@.E(s%,0,.E|
00001c80  28 22 41 70 70 22 29 29  3a f2 45 28 73 25 2c 31  |("App")):.E(s%,1|
00001c90  2c a4 45 28 22 50 75 72  70 6f 73 65 22 29 29 3a  |,.E("Purpose")):|
00001ca0  c8 99 26 34 30 30 65 38  2c 2c 73 25 2c 63 25 2c  |..&400e8,,s%,c%,|
00001cb0  62 25 0d 00 dc 05 cd 0d  00 dd 05 cb 0d 00 de 07  |b%..............|
00001cc0  cb 3a e1 0d 00 df 6b dd  f2 72 5f ea 4d 5f 25 2c  |.:....k..r_.M_%,|
00001cd0  46 25 2c 5f 4a 25 2c 7a  4a 25 2c 69 4a 25 2c 41  |F%,_J%,zJ%,iJ%,A|
00001ce0  25 3a 46 25 3d a4 41 28  35 31 32 29 3a c8 99 26  |%:F%=.A(512):..&|
00001cf0  34 30 30 63 66 2c 2c 46  25 3a 5f 4a 25 3d 46 25  |400cf,,F%:_J%=F%|
00001d00  21 30 3a 7a 4a 25 3d 46  25 21 34 3a 69 4a 25 3d  |!0:zJ%=F%!4:iJ%=|
00001d10  46 25 21 38 3a f2 43 28  46 25 2c 35 31 32 29 3a  |F%!8:.C(F%,512):|
00001d20  4d 5f 25 3d 21 57 25 3a  c8 8e 53 79 25 ca 0d 00  |M_%=!W%:..Sy%...|
00001d30  e0 0f c9 78 79 25 3a c8  8e 4d 5f 25 ca 0d 00 e1  |...xy%:..M_%....|
00001d40  0c c9 58 4a 25 3a f2 60  79 0d 00 e2 0c c9 64 4a  |..XJ%:.`y.....dJ|
00001d50  25 3a f2 76 5f 0d 00 e3  05 cb 0d 00 e4 0f c9 70  |%:.v_..........p|
00001d60  79 25 3a c8 8e 4d 5f 25  ca 0d 00 e5 10 c9 46 4a  |y%:..M_%......FJ|
00001d70  25 3a f2 77 28 4b 5f 25  29 0d 00 e6 05 cb 0d 00  |%:.w(K_%).......|
00001d80  e7 0d cb 3a e7 69 4a 25  3d 31 8c 0d 00 e8 0a c8  |...:.iJ%=1......|
00001d90  8e 53 79 25 ca 0d 00 e9  0b c9 78 79 25 3a f2 70  |.Sy%......xy%:.p|
00001da0  0d 00 ea 0e c9 70 79 25  3a f2 6b 28 30 29 0d 00  |.....py%:.k(0)..|
00001db0  eb 1b cb 3a c8 99 26 34  30 30 64 34 2c 2c 49 79  |...:..&400d4,,Iy|
00001dc0  25 2c 5f 4a 25 2c 7a 4a  25 0d 00 ec 07 cc f2 68  |%,_J%,zJ%......h|
00001dd0  0d 00 ed 07 cd 3a e1 0d  00 ee 1b dd f2 68 c8 99  |.....:.......h..|
00001de0  26 34 30 30 64 34 2c 2c  2d 31 3a 53 79 25 3d a3  |&400d4,,-1:Sy%=.|
00001df0  3a e1 0d 00 ef 11 dd f2  48 85 9f 2c a4 71 3a f2  |:.......H..,.q:.|
00001e00  53 3a e1 0d 00 f0 10 dd  a4 71 ea 77 24 3a e7 73  |S:.......q.w$:.s|
00001e10  79 25 8c 0d 00 f1 17 77  24 3d f6 24 2b 22 20 5b  |y%.....w$=.$+" [|
00001e20  22 2b c3 28 9e 29 2b 22  5d 22 0d 00 f2 0a cc 77  |"+.(.)+"]".....w|
00001e30  24 3d f6 24 0d 00 f3 09  cd 3a 3d 77 24 0d 00 f4  |$=.$.....:=w$...|
00001e40  30 dd f2 44 79 ea 4a 25  3a f2 50 79 3a 4a 25 3d  |0..Dy.J%:.Py:J%=|
00001e50  8e 28 a4 4d 28 4b 79 25  29 2b 22 2e 43 68 6f 69  |.(.M(Ky%)+".Choi|
00001e60  63 65 73 22 29 3a e7 4a  25 3c 3e 30 8c 0d 00 f5  |ces"):.J%<>0....|
00001e70  13 ea 85 3a ee 85 ea f7  85 3a d9 23 4a 25 3a e1  |...:.....:.#J%:.|
00001e80  0d 00 f6 2b e8 23 4a 25  2c 21 61 3a e8 23 4a 25  |...+.#J%,!a:.#J%|
00001e90  2c 21 77 3a e8 23 4a 25  2c 21 5f 3a e8 23 4a 25  |,!w:.#J%,!_:.#J%|
00001ea0  2c 21 4f 3a f7 85 3a d9  23 4a 25 0d 00 f7 07 cd  |,!O:..:.#J%.....|
00001eb0  3a e1 0d 00 f8 34 dd f2  47 79 ea 4a 25 3a 4a 25  |:....4..Gy.J%:J%|
00001ec0  3d ae 28 a4 4d 28 4b 79  25 29 2b 22 2e 43 68 6f  |=.(.M(Ky%)+".Cho|
00001ed0  69 63 65 73 22 29 3a ea  85 3a ee 85 ea f7 85 3a  |ices"):..:.....:|
00001ee0  d9 23 4a 25 3a e1 0d 00  f9 2d f1 23 4a 25 2c 21  |.#J%:....-.#J%,!|
00001ef0  61 3a f1 23 4a 25 2c 21  77 3a f1 23 4a 25 2c 21  |a:.#J%,!w:.#J%,!|
00001f00  5f 3a f1 23 4a 25 2c 21  4f 3a f7 85 3a d9 23 4a  |_:.#J%,!O:..:.#J|
00001f10  25 3a e1 0d 00 fa 0d dd  f2 42 79 f2 50 79 3a e1  |%:.......By.Py:.|
00001f20  0d 00 fb 22 dd f2 66 5f  e7 28 28 57 25 21 32 30  |..."..f_.((W%!20|
00001f30  3d 2d 32 29 80 28 57 25  21 32 34 3d 56 5f 25 29  |=-2).(W%!24=V_%)|
00001f40  29 8c 0d 00 fc 0c c8 8e  57 25 21 34 30 ca 0d 00  |).......W%!40...|
00001f50  fd 3f c9 78 79 3a f2 4d  79 28 a4 4d 28 57 25 2b  |.?.xy:.My(.M(W%+|
00001f60  34 34 29 2c b9 29 3a 57  25 21 31 32 3d 57 25 21  |44),.):W%!12=W%!|
00001f70  38 3a 57 25 21 31 36 3d  34 3a c8 99 26 34 30 30  |8:W%!16=4:..&400|
00001f80  65 37 2c 31 37 2c 57 25  2c 57 25 21 34 0d 00 fe  |e7,17,W%,W%!4...|
00001f90  3f c9 6e 79 3a f2 4d 79  28 a4 4d 28 57 25 2b 34  |?.ny:.My(.M(W%+4|
00001fa0  34 29 2c a3 29 3a 57 25  21 31 32 3d 57 25 21 38  |4),.):W%!12=W%!8|
00001fb0  3a 57 25 21 31 36 3d 34  3a c8 99 26 34 30 30 65  |:W%!16=4:..&400e|
00001fc0  37 2c 31 37 2c 57 25 2c  57 25 21 34 0d 00 ff 11  |7,17,W%,W%!4....|
00001fd0  7f e7 a4 47 28 31 2c a4  53 28 33 29 29 0d 01 00  |...G(1,.S(3))...|
00001fe0  05 cb 0d 01 01 07 cd 3a  e1 0d 01 02 2e dd f2 4d  |.......:.......M|
00001ff0  79 28 45 24 2c 52 5f 25  29 ea 45 25 3a f2 44 28  |y(E$,R_%).E%:.D(|
00002000  45 24 29 3a e7 a4 50 28  45 25 2c 5a 79 2b a9 28  |E$):..P(E%,Zy+.(|
00002010  45 24 29 2b 31 29 8c 0d  01 03 52 cc 24 28 45 25  |E$)+1)....R.$(E%|
00002020  2b 5a 79 29 3d 45 24 3a  45 25 21 4a 3d 30 3a 45  |+Zy)=E$:E%!J=0:E|
00002030  25 21 46 79 3d 21 61 3a  45 25 21 4d 3d 21 77 3a  |%!Fy=!a:E%!M=!w:|
00002040  45 25 21 53 79 3d 21 5f  3a 45 25 21 4c 79 3d 21  |E%!Sy=!_:E%!Ly=!|
00002050  4f 3a 45 25 21 45 3d 30  3a 45 25 21 72 3d a3 3a  |O:E%!E=0:E%!r=.:|
00002060  e7 a4 49 79 28 45 25 29  8c 0d 01 04 0a f2 5a 28  |..Iy(E%)......Z(|
00002070  45 25 29 0d 01 05 11 cc  e7 5a 79 25 3d 30 8c f2  |E%)......Zy%=0..|
00002080  59 28 31 29 0d 01 06 1f  f2 63 5f 28 45 25 2c 5a  |Y(1).....c_(E%,Z|
00002090  79 25 29 3a e7 a4 73 28  45 25 2c 45 24 2c 52 5f  |y%):..s(E%,E$,R_|
000020a0  25 29 8c 0d 01 07 0a f2  62 28 45 25 29 0d 01 08  |%)......b(E%)...|
000020b0  0b cc f2 65 28 45 25 29  0d 01 09 05 cd 0d 01 0a  |...e(E%)........|
000020c0  05 cd 0d 01 0b 07 cd 3a  e1 0d 01 0c 4d dd a4 5f  |.......:....M.._|
000020d0  4e 75 6c 6c 5f 52 65 61  73 6f 6e 5f 75 6e 63 66  |Null_Reason_uncf|
000020e0  73 28 45 25 29 ea 47 25  3a c8 99 26 36 30 36 63  |s(E%).G%:..&606c|
000020f0  30 3a c8 99 26 32 30 30  30 36 2c 32 32 39 2c 30  |0:..&20006,229,0|
00002100  2c 30 3a ea 85 3a ee 85  ea f7 85 3a f2 45 5f 28  |,0:..:.....:.E_(|
00002110  45 25 29 3a 3d b9 0d 01  0d 11 47 25 3d a3 3a f5  |E%):=.....G%=.:.|
00002120  c8 8e 45 25 21 53 ca 0d  01 0e 0e c9 42 3a f2 5a  |..E%!S......B:.Z|
00002130  5f 28 45 25 29 0d 01 0f  0e c9 44 3a f2 66 79 28  |_(E%).....D:.fy(|
00002140  45 25 29 0d 01 10 0e c9  49 3a f2 59 5f 28 45 25  |E%).....I:.Y_(E%|
00002150  29 0d 01 11 0f c9 78 2c  64 2c 43 3a 47 25 3d b9  |).....x,d,C:G%=.|
00002160  0d 01 12 32 cb 3a fd 47  25 84 45 25 21 46 79 3a  |...2.:.G%.E%!Fy:|
00002170  f7 85 3a c8 99 26 32 30  30 30 36 2c 32 32 39 2c  |..:..&20006,229,|
00002180  32 35 35 2c 30 3a c8 99  26 36 30 36 63 31 3a 3d  |255,0:..&606c1:=|
00002190  47 25 0d 01 13 2e dd f2  45 5f 28 45 25 29 c8 99  |G%......E_(E%)..|
000021a0  26 36 30 36 63 31 3a c8  99 26 32 30 30 30 36 2c  |&606c1:..&20006,|
000021b0  32 32 39 2c 32 35 35 2c  30 3a e7 9f 3d 31 37 8c  |229,255,0:..=17.|
000021c0  0d 01 14 0c f2 4a 28 45  25 2c 78 29 0d 01 15 14  |.....J(E%,x)....|
000021d0  cc f2 62 28 45 25 29 3a  f2 56 28 9f 2c a4 71 29  |..b(E%):.V(.,.q)|
000021e0  0d 01 16 07 cd 3a e1 0d  01 17 27 dd f2 5a 5f 28  |.....:....'..Z_(|
000021f0  45 25 29 ea 47 25 2c 49  25 2c 45 24 3a 47 25 3d  |E%).G%,I%,E$:G%=|
00002200  a3 3a 49 25 3d 45 25 21  4a 3a e7 49 25 8c 0d 01  |.:I%=E%!J:.I%...|
00002210  18 21 45 24 3d 24 28 49  25 2b 4c 29 3a e7 a4 4f  |.!E$=$(I%+L):..O|
00002220  28 45 24 2c 22 2a 22 2c  49 25 21 55 79 29 8c 0d  |(E$,"*",I%!Uy)..|
00002230  01 19 09 e7 a4 57 79 8c  0d 01 1a 23 e7 a4 73 28  |.....Wy....#..s(|
00002240  45 25 2c 45 24 2b 22 2e  22 2b a4 51 2c 97 28 a4  |E%,E$+"."+.Q,.(.|
00002250  51 29 3d 97 28 22 21 22  29 29 8c 0d 01 1b 0d 47  |Q)=.("!")).....G|
00002260  25 3d a4 56 28 45 25 29  0d 01 1c 05 cd 0d 01 1d  |%=.V(E%)........|
00002270  05 cd 0d 01 1e 0e cc 47  25 3d a4 56 28 45 25 29  |.......G%=.V(E%)|
00002280  0d 01 1f 05 cd 0d 01 20  09 cc 47 25 3d b9 0d 01  |....... ..G%=...|
00002290  21 0a cd 3a e7 47 25 8c  0d 01 22 0d e7 45 25 21  |!..:.G%..."..E%!|
000022a0  53 3c 3e 43 8c 0d 01 23  0c f2 4a 28 45 25 2c 64  |S<>C...#..J(E%,d|
000022b0  29 0d 01 24 05 cd 0d 01  25 07 cd 3a e1 0d 01 26  |)..$....%..:...&|
000022c0  5d dd f2 66 79 28 45 25  29 ea 47 25 2c 49 25 2c  |]..fy(E%).G%,I%,|
000022d0  45 24 3a 47 25 3d b9 3a  49 25 3d 45 25 21 4a 3a  |E$:G%=.:I%=E%!J:|
000022e0  45 24 3d 24 28 49 25 2b  4c 29 3a c8 95 45 25 21  |E$=$(I%+L):..E%!|
000022f0  47 3c de 28 5a 24 28 29  2c 31 29 80 47 25 80 28  |G<.(Z$(),1).G%.(|
00002300  45 25 21 53 3c 3e 43 29  3a e7 a4 44 79 28 45 25  |E%!S<>C):..Dy(E%|
00002310  2c 45 24 2c 45 25 21 47  29 8c 0d 01 27 10 e7 45  |,E$,E%!G)...'..E|
00002320  25 28 45 25 21 47 29 3d  66 8c 0d 01 28 19 f2 76  |%(E%!G)=f...(..v|
00002330  28 45 25 2c 45 24 2c 5a  24 28 45 25 21 47 29 2c  |(E%,E$,Z$(E%!G),|
00002340  62 24 29 0d 01 29 1a cc  f2 76 28 45 25 2c 45 24  |b$)..)...v(E%,E$|
00002350  2c 5a 24 28 45 25 21 47  29 2c 22 22 29 0d 01 2a  |,Z$(E%!G),"")..*|
00002360  0a cd 3a 47 25 3d a3 0d  01 2b 14 cd 3a 45 25 21  |..:G%=...+..:E%!|
00002370  47 2b 3d 31 3a ce 3a e7  47 25 8c 0d 01 2c 0c e7  |G+=1:.:.G%...,..|
00002380  45 25 21 53 3d 44 8c 0d  01 2d 0b e7 45 25 21 53  |E%!S=D...-..E%!S|
00002390  79 8c 0d 01 2e 13 f2 4a  28 45 25 2c 49 29 3a 45  |y......J(E%,I):E|
000023a0  25 21 57 3d 30 0d 01 2f  0d cc f2 4a 28 45 25 2c  |%!W=0../...J(E%,|
000023b0  42 29 0d 01 30 05 cd 0d  01 31 05 cd 0d 01 32 07  |B)..0....1....2.|
000023c0  cd 3a e1 0d 01 33 52 dd  f2 59 5f 28 45 25 29 ea  |.:...3R..Y_(E%).|
000023d0  47 25 2c 49 25 2c 45 24  3a 47 25 3d b9 3a 49 25  |G%,I%,E$:G%=.:I%|
000023e0  3d 45 25 21 4a 3a 45 24  3d 24 28 49 25 2b 4c 29  |=E%!J:E$=$(I%+L)|
000023f0  3a c8 95 45 25 21 57 3c  3e 2d 31 80 47 25 80 45  |:..E%!W<>-1.G%.E|
00002400  25 21 53 3c 3e 43 3a e7  a4 50 79 28 45 24 2c 45  |%!S<>C:..Py(E$,E|
00002410  25 21 57 29 8c 0d 01 34  18 f2 76 28 45 25 2c 45  |%!W)...4..v(E%,E|
00002420  24 2c a4 51 2c 22 22 29  3a 47 25 3d a3 0d 01 35  |$,.Q,""):G%=...5|
00002430  21 cd 3a ce 3a e7 28 45  25 21 4c 79 3c 3e 30 29  |!.:.:.(E%!Ly<>0)|
00002440  80 47 25 80 28 45 25 21  57 3d 2d 31 29 8c 0d 01  |.G%.(E%!W=-1)...|
00002450  36 0a e7 49 25 21 6f 8c  0d 01 37 0e f2 6a 79 28  |6..I%!o...7..jy(|
00002460  45 25 2c 45 24 29 0d 01  38 05 cd 0d 01 39 0a cd  |E%,E$)..8....9..|
00002470  3a e7 47 25 8c 0d 01 3a  0c e7 45 25 21 53 3d 49  |:.G%...:..E%!S=I|
00002480  8c 0d 01 3b 0c f2 4a 28  45 25 2c 42 29 0d 01 3c  |...;..J(E%,B)..<|
00002490  05 cd 0d 01 3d 07 cd 3a  e1 0d 01 3e 2f dd a4 50  |....=..:...>/..P|
000024a0  79 28 45 24 2c f8 78 25  29 ea 47 25 3a f2 44 28  |y(E$,.x%).G%:.D(|
000024b0  45 24 29 3a 47 25 3d a3  3a e7 a4 4f 28 45 24 2c  |E$):G%=.:..O(E$,|
000024c0  22 2a 22 2c 78 25 29 8c  0d 01 3f 12 f2 6e 28 45  |"*",x%)...?..n(E|
000024d0  25 29 3a e7 a4 57 3d 4a  79 8c 0d 01 40 22 47 25  |%):..W=Jy...@"G%|
000024e0  3d 28 a4 6b 3e 3d a4 4d  79 28 22 43 46 53 23 22  |=(.k>=.My("CFS#"|
000024f0  2b 45 24 2b 22 2e 22 2b  a4 51 29 29 0d 01 41 05  |+E$+"."+.Q))..A.|
00002500  cd 0d 01 42 0a cc 78 25  3d 2d 31 0d 01 43 09 cd  |...B..x%=-1..C..|
00002510  3a 3d 47 25 0d 01 44 21  dd f2 44 28 f8 78 24 29  |:=G%..D!..D(.x$)|
00002520  e7 a4 62 28 c0 78 24 2c  34 29 2c 22 43 46 53 23  |..b(.x$,4),"CFS#|
00002530  22 29 3d 30 8c 0d 01 45  0d 78 24 3d c1 78 24 2c  |")=0...E.x$=.x$,|
00002540  35 29 0d 01 46 07 cd 3a  e1 0d 01 47 27 dd f2 7a  |5)..F..:...G'..z|
00002550  28 45 25 2c 71 75 25 2c  45 24 29 f2 4a 28 45 25  |(E%,qu%,E$).J(E%|
00002560  2c 43 29 3a e7 45 25 21  4d 8c f2 77 28 45 25 29  |,C):.E%!M..w(E%)|
00002570  0d 01 48 1f f2 55 28 45  25 2c 45 24 29 3a f2 58  |..H..U(E%,E$):.X|
00002580  5f 28 45 25 2c a4 53 28  71 75 25 29 29 3a e1 0d  |_(E%,.S(qu%)):..|
00002590  01 49 32 dd f2 6c 28 45  25 2c 58 25 2c 45 24 29  |.I2..l(E%,X%,E$)|
000025a0  f2 5a 28 58 25 29 3a f2  46 28 22 53 79 73 22 2c  |.Z(X%):.F("Sys",|
000025b0  f6 24 29 3a f2 7a 28 45  25 2c 36 2c 45 24 29 3a  |.$):.z(E%,6,E$):|
000025c0  e1 0d 01 4a 32 dd f2 75  28 45 25 2c 58 25 2c 45  |...J2..u(E%,X%,E|
000025d0  24 29 f2 5a 28 58 25 29  3a f2 46 28 22 53 79 73  |$).Z(X%):.F("Sys|
000025e0  22 2c f6 24 29 3a f2 7a  28 45 25 2c 37 2c 45 24  |",.$):.z(E%,7,E$|
000025f0  29 3a e1 0d 01 4b 28 dd  f2 52 79 28 4a 25 2c 45  |):...K(..Ry(J%,E|
00002600  24 2c 67 25 2c 57 79 25  2c 58 25 2c 44 25 2c 41  |$,g%,Wy%,X%,D%,A|
00002610  79 25 29 e7 4a 25 8c d9  23 4a 25 0d 01 4c 3b c8  |y%).J%..#J%..L;.|
00002620  99 26 32 30 30 30 38 2c  30 2c 45 24 2c 67 25 2c  |.&20008,0,E$,g%,|
00002630  57 79 25 2c 58 25 2c 58  25 2b 44 25 3a c8 99 26  |Wy%,X%,X%+D%:..&|
00002640  32 30 30 30 38 2c 34 2c  45 24 2c 2c 2c 2c 41 79  |20008,4,E$,,,,Ay|
00002650  25 3a f2 48 3a e1 0d 01  4d 2f dd a4 73 28 45 25  |%:.H:...M/..s(E%|
00002660  2c 45 24 2c 52 5f 25 29  ea 49 25 3a f2 44 28 45  |,E$,R_%).I%:.D(E|
00002670  24 29 3a e7 a4 50 28 49  25 2c 4c 2b a9 28 45 24  |$):..P(I%,L+.(E$|
00002680  29 2b 31 29 8c 0d 01 4e  08 49 25 3d 30 0d 01 4f  |)+1)...N.I%=0..O|
00002690  43 cc f2 74 28 45 25 2c  45 24 29 3a 49 25 21 48  |C..t(E%,E$):I%!H|
000026a0  79 3d 45 25 21 4a 3a 49  25 21 55 79 3d 30 3a 49  |y=E%!J:I%!Uy=0:I|
000026b0  25 21 6f 3d 52 5f 25 3a  24 28 49 25 2b 4c 29 3d  |%!o=R_%:$(I%+L)=|
000026c0  45 24 3a 45 25 21 4a 3d  49 25 3a e7 52 5f 25 8c  |E$:E%!J=I%:.R_%.|
000026d0  0d 01 50 13 f2 4a 28 45  25 2c 44 29 3a 45 25 21  |..P..J(E%,D):E%!|
000026e0  47 3d 30 0d 01 51 05 cd  0d 01 52 0d cd 3a 3d 28  |G=0..Q....R..:=(|
000026f0  49 25 3d 30 29 0d 01 53  1e dd a4 56 28 45 25 29  |I%=0)..S...V(E%)|
00002700  ea 78 25 2c 49 25 3a 49  25 3d 45 25 21 4a 3a e7  |.x%,I%:I%=E%!J:.|
00002710  49 25 8c 0d 01 54 0a e7  49 25 21 6f 8c 0d 01 55  |I%...T..I%!o...U|
00002720  12 f2 6f 79 28 45 25 29  3a e7 45 25 21 72 8c 0d  |..oy(E%):.E%!r..|
00002730  01 56 0b f2 55 79 28 45  25 29 0d 01 57 05 cd 0d  |.V..Uy(E%)..W...|
00002740  01 58 2a cd 3a 78 25 3d  49 25 21 48 79 3a f2 5a  |.X*.:x%=I%!Hy:.Z|
00002750  28 49 25 29 3a 45 25 21  4a 3d 78 25 3a 49 25 3d  |(I%):E%!J=x%:I%=|
00002760  78 25 3a 45 25 21 72 3d  a3 0d 01 59 0a cd 3a e7  |x%:E%!r=...Y..:.|
00002770  49 25 8c 0d 01 5a 12 f2  74 28 45 25 2c 24 28 49  |I%...Z..t(E%,$(I|
00002780  25 2b 4c 29 29 0d 01 5b  0d cd 3a 3d 28 49 25 3d  |%+L))..[..:=(I%=|
00002790  30 29 0d 01 5c 3b dd f2  62 28 45 25 29 f5 fd a4  |0)..\;..b(E%)...|
000027a0  56 28 45 25 29 3a f2 56  79 28 45 25 29 3a f2 41  |V(E%):.Vy(E%):.A|
000027b0  5f 28 45 25 2c 5a 79 25  29 3a f2 5a 28 45 25 29  |_(E%,Zy%):.Z(E%)|
000027c0  3a e7 5a 79 25 3d 30 8c  f2 59 28 30 29 0d 01 5d  |:.Zy%=0..Y(0)..]|
000027d0  05 e1 0d 01 5e 32 dd f2  63 5f 28 47 79 25 2c f8  |....^2..c_(Gy%,.|
000027e0  72 79 25 29 47 79 25 21  54 3d 72 79 25 3a 47 79  |ry%)Gy%!T=ry%:Gy|
000027f0  25 21 74 3d 30 3a e7 72  79 25 8c 72 79 25 21 74  |%!t=0:.ry%.ry%!t|
00002800  3d 47 79 25 0d 01 5f 0d  72 79 25 3d 47 79 25 3a  |=Gy%.._.ry%=Gy%:|
00002810  e1 0d 01 60 3d dd f2 41  5f 28 47 79 25 2c f8 72  |...`=..A_(Gy%,.r|
00002820  79 25 29 ea 54 5f 25 2c  6d 79 25 3a 54 5f 25 3d  |y%).T_%,my%:T_%=|
00002830  47 79 25 21 74 3a 6d 79  25 3d 47 79 25 21 54 3a  |Gy%!t:my%=Gy%!T:|
00002840  e7 6d 79 25 8c 6d 79 25  21 74 3d 54 5f 25 0d 01  |.my%.my%!t=T_%..|
00002850  61 12 e7 54 5f 25 8c 54  5f 25 21 54 3d 6d 79 25  |a..T_%.T_%!T=my%|
00002860  0d 01 62 14 e7 47 79 25  3d 72 79 25 8c 72 79 25  |..b..Gy%=ry%.ry%|
00002870  3d 6d 79 25 0d 01 63 05  e1 0d 01 64 29 dd a4 50  |=my%..c....d)..P|
00002880  28 f8 58 75 25 2c 77 25  29 ea 5f 5f 25 3a 5f 5f  |(.Xu%,w%).__%:__|
00002890  25 3d a4 59 28 58 75 25  2c 77 25 29 3a e7 5f 5f  |%=.Y(Xu%,w%):.__|
000028a0  25 8c 0d 01 65 11 f2 56  28 79 79 25 2c a4 53 28  |%...e..V(yy%,.S(|
000028b0  34 29 29 0d 01 66 0a cd  3a 3d 5f 5f 25 0d 01 67  |4))..f..:=__%..g|
000028c0  30 dd f2 64 79 ea 45 25  2c 4a 5f 25 3a 4a 5f 25  |0..dy.E%,J_%:J_%|
000028d0  3d a3 3a 45 25 3d 5a 79  25 3a c8 95 45 25 80 28  |=.:E%=Zy%:..E%.(|
000028e0  ac 4a 5f 25 29 3a c8 8e  45 25 21 53 ca 0d 01 68  |.J_%):..E%!S...h|
000028f0  10 c9 42 2c 44 2c 49 3a  4a 5f 25 3d b9 0d 01 69  |..B,D,I:J_%=...i|
00002900  15 cb 3a 45 25 3d 45 25  21 54 3a ce 3a e7 4a 5f  |..:E%=E%!T:.:.J_|
00002910  25 8c 0d 01 6a 09 f2 59  28 31 29 0d 01 6b 0a cc  |%...j..Y(1)..k..|
00002920  f2 59 28 30 29 0d 01 6c  07 cd 3a e1 0d 01 6d 12  |.Y(0)..l..:...m.|
00002930  dd f2 59 28 4e 25 29 e7  4e 25 3c 3e 70 8c 0d 01  |..Y(N%).N%<>p...|
00002940  6e 2b 24 66 5f 25 3d 41  24 28 4e 25 29 2b bd 28  |n+$f_%=A$(N%)+.(|
00002950  30 29 3a f2 68 79 28 2d  31 2c 56 5f 25 2c 30 2c  |0):.hy(-1,V_%,0,|
00002960  30 2c 30 29 3a 70 3d 4e  25 0d 01 6f 07 cd 3a e1  |0,0):p=N%..o..:.|
00002970  0d 01 70 35 dd a4 49 79  28 45 25 29 f2 6e 79 28  |..p5..Iy(E%).ny(|
00002980  22 46 43 6f 6e 76 65 72  74 22 2c 45 25 2b 45 2c  |"FConvert",E%+E,|
00002990  32 35 36 2c 31 32 38 2c  45 25 21 56 79 29 3a e7  |256,128,E%!Vy):.|
000029a0  45 25 21 45 8c 0d 01 71  39 45 25 21 71 3d 30 3a  |E%!E...q9E%!q=0:|
000029b0  45 25 21 73 3d 30 3a 45  25 21 52 3d 30 3a 45 25  |E%!s=0:E%!R=0:E%|
000029c0  21 4b 3d 30 3a 45 25 21  72 3d a3 3a f2 4a 28 45  |!K=0:E%!r=.:.J(E|
000029d0  25 2c 42 29 3a e7 45 25  21 4d 8c f2 45 79 0d 01  |%,B):.E%!M..Ey..|
000029e0  72 10 f2 77 79 28 45 25  21 45 2c 2d 31 29 0d 01  |r..wy(E%!E,-1)..|
000029f0  73 0f cd 3a 3d 28 45 25  21 45 3d 30 29 0d 01 74  |s..:=(E%!E=0)..t|
00002a00  12 dd f2 56 79 28 45 25  29 e7 45 25 21 45 8c 0d  |...Vy(E%).E%!E..|
00002a10  01 75 1e c8 99 26 34 36  35 63 34 2c 59 25 2c 45  |.u...&465c4,Y%,E|
00002a20  25 2b 45 3a f2 5a 28 45  25 21 56 79 29 0d 01 76  |%+E:.Z(E%!Vy)..v|
00002a30  07 cd 3a e1 0d 01 77 1b  dd f2 4b 5f 28 45 25 2c  |..:...w...K_(E%,|
00002a40  54 25 2c 5f 25 29 ea 45  24 3a c8 8e 54 25 ca 0d  |T%,_%).E$:..T%..|
00002a50  01 78 1d c9 75 2c 76 3a  45 24 3d a4 72 28 45 25  |.x..u,v:E$=.r(E%|
00002a60  29 3a e7 28 5f 25 80 31  29 3d 30 8c 0d 01 79 10  |):.(_%.1)=0...y.|
00002a70  45 24 3d 22 43 46 53 23  22 2b 45 24 0d 01 7a 22  |E$="CFS#"+E$..z"|
00002a80  cd 3a c8 99 26 32 30 30  30 35 2c 22 46 69 6c 65  |.:..&20005,"File|
00002a90  72 5f 4f 70 65 6e 44 69  72 20 22 2b 45 24 0d 01  |r_OpenDir "+E$..|
00002aa0  7b 0e c9 50 3a c8 8e 45  25 21 53 ca 0d 01 7c 23  |{..P:..E%!S...|#|
00002ab0  c9 42 2c 44 2c 49 3a f2  4a 28 45 25 2c 78 29 3a  |.B,D,I:.J(E%,x):|
00002ac0  f2 57 79 28 22 75 6e 63  66 73 22 2c 45 25 29 0d  |.Wy("uncfs",E%).|
00002ad0  01 7d 19 c9 78 3a f2 4a  28 45 25 2c 45 25 21 6e  |.}..x:.J(E%,E%!n|
00002ae0  29 3a f2 65 28 45 25 29  0d 01 7e 20 c9 43 3a f2  |):.e(E%)..~ .C:.|
00002af0  69 28 45 25 29 3a f2 4a  28 45 25 2c 45 25 21 6e  |i(E%):.J(E%,E%!n|
00002b00  29 3a f2 65 28 45 25 29  0d 01 7f 05 cb 0d 01 80  |):.e(E%)........|
00002b10  0f c9 51 3a e7 45 25 21  53 3d 43 8c 0d 01 81 28  |..Q:.E%!S=C....(|
00002b20  f2 69 28 45 25 29 3a f2  4a 28 45 25 2c 45 25 21  |.i(E%):.J(E%,E%!|
00002b30  6e 29 3a 45 25 21 47 2d  3d 31 3a e7 45 25 21 57  |n):E%!G-=1:.E%!W|
00002b40  3c 2d 31 8c 0d 01 82 0b  45 25 21 57 2b 3d 31 0d  |<-1.....E%!W+=1.|
00002b50  01 83 0c cc 45 25 21 57  2d 3d 31 0d 01 84 0c cd  |....E%!W-=1.....|
00002b60  3a f2 65 28 45 25 29 0d  01 85 0b cc f2 6d 28 45  |:.e(E%)......m(E|
00002b70  25 29 0d 01 86 05 cd 0d  01 87 0d c9 59 3a f2 6d  |%)..........Y:.m|
00002b80  28 45 25 29 0d 01 88 07  cb 3a e1 0d 01 89 2b dd  |(E%).....:....+.|
00002b90  f2 65 28 45 25 29 f2 59  28 31 29 3a f2 4f 28 45  |.e(E%).Y(1):.O(E|
00002ba0  25 2c a3 29 3a f2 4f 79  28 22 75 6e 63 66 73 22  |%,.):.Oy("uncfs"|
00002bb0  2c 45 25 29 3a e1 0d 01  8a 23 dd f2 6d 28 45 25  |,E%):....#..m(E%|
00002bc0  29 f2 57 79 28 22 75 6e  63 66 73 22 2c 45 25 29  |).Wy("uncfs",E%)|
00002bd0  3a f2 62 28 45 25 29 3a  e1 0d 01 8b 28 dd f2 4a  |:.b(E%):....(..J|
00002be0  28 45 25 2c 6d 4a 25 29  45 25 21 6e 3d 45 25 21  |(E%,mJ%)E%!n=E%!|
00002bf0  53 3a 45 25 21 53 3d 6d  4a 25 3a c8 8e 6d 4a 25  |S:E%!S=mJ%:..mJ%|
00002c00  ca 0d 01 8c 41 c9 44 2c  49 2c 42 3a f2 71 28 45  |....A.D,I,B:.q(E|
00002c10  25 21 45 2c 51 29 3a f2  51 28 45 25 21 45 2c 59  |%!E,Q):.Q(E%!E,Y|
00002c20  29 3a f2 51 28 45 25 21  45 2c 50 29 3a f2 45 28  |):.Q(E%!E,P):.E(|
00002c30  45 25 21 45 2c 50 2c a4  45 28 22 50 61 75 73 22  |E%!E,P,.E("Paus"|
00002c40  29 29 0d 01 8d 3d c9 78  3a f2 71 28 45 25 21 45  |))...=.x:.q(E%!E|
00002c50  2c 51 29 3a f2 51 28 45  25 21 45 2c 59 29 3a f2  |,Q):.Q(E%!E,Y):.|
00002c60  51 28 45 25 21 45 2c 50  29 3a f2 45 28 45 25 21  |Q(E%!E,P):.E(E%!|
00002c70  45 2c 50 2c a4 45 28 22  43 6f 6e 74 22 29 29 0d  |E,P,.E("Cont")).|
00002c80  01 8e 48 c9 64 3a f2 51  28 45 25 21 45 2c 51 29  |..H.d:.Q(E%!E,Q)|
00002c90  3a f2 71 28 45 25 21 45  2c 59 29 3a f2 71 28 45  |:.q(E%!E,Y):.q(E|
00002ca0  25 21 45 2c 50 29 3a f2  45 28 45 25 21 45 2c 51  |%!E,P):.E(E%!E,Q|
00002cb0  2c a4 45 28 22 4f 6b 22  29 29 3a e7 45 25 21 4d  |,.E("Ok")):.E%!M|
00002cc0  8c f2 77 28 45 25 29 0d  01 8f 53 c9 43 3a f2 51  |..w(E%)...S.C:.Q|
00002cd0  28 45 25 21 45 2c 51 29  3a f2 51 28 45 25 21 45  |(E%!E,Q):.Q(E%!E|
00002ce0  2c 59 29 3a f2 51 28 45  25 21 45 2c 50 29 3a f2  |,Y):.Q(E%!E,P):.|
00002cf0  45 28 45 25 21 45 2c 50  2c a4 45 28 22 53 6b 69  |E(E%!E,P,.E("Ski|
00002d00  70 22 29 29 3a f2 45 28  45 25 21 45 2c 51 2c a4  |p")):.E(E%!E,Q,.|
00002d10  45 28 22 52 74 72 79 22  29 29 0d 01 90 0b cb 3a  |E("Rtry")).....:|
00002d20  f2 64 79 3a e1 0d 01 91  4d dd f2 71 28 4d 25 2c  |.dy:....M..q(M%,|
00002d30  4e 25 29 ea 5a 25 3a 5a  25 3d a4 41 28 36 34 29  |N%).Z%:Z%=.A(64)|
00002d40  3a 21 5a 25 3d 4d 25 3a  5a 25 21 34 3d 4e 25 3a  |:!Z%=M%:Z%!4=N%:|
00002d50  c8 99 26 34 30 30 63 65  2c 2c 5a 25 3a e7 28 28  |..&400ce,,Z%:.((|
00002d60  5a 25 21 32 34 29 80 28  31 3c 3c 32 33 29 29 3d  |Z%!24).(1<<23))=|
00002d70  30 8c 0d 01 92 4a c8 99  26 34 30 30 64 31 2c 4d  |0....J..&400d1,M|
00002d80  25 2c 5a 25 21 38 2c 5a  25 21 31 32 2c 5a 25 21  |%,Z%!8,Z%!12,Z%!|
00002d90  31 36 2c 5a 25 21 32 30  3a 5a 25 21 38 3d 31 3c  |16,Z%!20:Z%!8=1<|
00002da0  3c 32 33 3a 5a 25 21 31  32 3d 31 3c 3c 32 33 3a  |<23:Z%!12=1<<23:|
00002db0  c8 99 26 34 30 30 63 64  2c 2c 5a 25 0d 01 93 11  |..&400cd,,Z%....|
00002dc0  cd 3a f2 43 28 5a 25 2c  36 34 29 3a e1 0d 01 94  |.:.C(Z%,64):....|
00002dd0  49 dd f2 51 28 4d 25 2c  4e 25 29 ea 5a 25 3a 5a  |I..Q(M%,N%).Z%:Z|
00002de0  25 3d a4 41 28 36 34 29  3a 21 5a 25 3d 4d 25 3a  |%=.A(64):!Z%=M%:|
00002df0  5a 25 21 34 3d 4e 25 3a  c8 99 26 34 30 30 63 65  |Z%!4=N%:..&400ce|
00002e00  2c 2c 5a 25 3a e7 28 5a  25 21 32 34 29 80 28 31  |,,Z%:.(Z%!24).(1|
00002e10  3c 3c 32 33 29 8c 0d 01  95 4a c8 99 26 34 30 30  |<<23)....J..&400|
00002e20  64 31 2c 4d 25 2c 5a 25  21 38 2c 5a 25 21 31 32  |d1,M%,Z%!8,Z%!12|
00002e30  2c 5a 25 21 31 36 2c 5a  25 21 32 30 3a 5a 25 21  |,Z%!16,Z%!20:Z%!|
00002e40  38 3d 30 3c 3c 32 33 3a  5a 25 21 31 32 3d 31 3c  |8=0<<23:Z%!12=1<|
00002e50  3c 32 33 3a c8 99 26 34  30 30 63 64 2c 2c 5a 25  |<23:..&400cd,,Z%|
00002e60  0d 01 96 11 cd 3a f2 43  28 5a 25 2c 36 34 29 3a  |.....:.C(Z%,64):|
00002e70  e1 0d 01 97 2a dd f2 6e  28 45 25 29 45 25 21 71  |....*..n(E%)E%!q|
00002e80  2b 3d 31 3a e7 45 25 21  4d 3d 30 8c f2 4e 28 45  |+=1:.E%!M=0..N(E|
00002e90  25 21 45 2c 58 2c 45 25  21 71 29 0d 01 98 25 e7  |%!E,X,E%!q)...%.|
00002ea0  45 25 21 71 3d 31 8c f2  45 28 45 25 21 45 2c 58  |E%!q=1..E(E%!E,X|
00002eb0  2b 31 2c a4 45 28 22 46  53 63 61 6e 31 22 29 29  |+1,.E("FScan1"))|
00002ec0  0d 01 99 25 e7 45 25 21  71 3d 32 8c f2 45 28 45  |...%.E%!q=2..E(E|
00002ed0  25 21 45 2c 58 2b 31 2c  a4 45 28 22 46 53 63 61  |%!E,X+1,.E("FSca|
00002ee0  6e 4e 22 29 29 0d 01 9a  05 e1 0d 01 9b 14 dd f2  |nN"))...........|
00002ef0  4f 28 45 25 2c 67 75 25  29 e7 67 75 25 8c 0d 01  |O(E%,gu%).gu%...|
00002f00  9c 2a 45 25 21 72 3d b9  3a 45 25 21 73 2b 3d 31  |.*E%!r=.:E%!s+=1|
00002f10  3a e7 45 25 21 4d 3d 30  8c f2 4e 28 45 25 21 45  |:.E%!M=0..N(E%!E|
00002f20  2c 55 2c 45 25 21 73 29  0d 01 9d 25 e7 45 25 21  |,U,E%!s)...%.E%!|
00002f30  73 3d 31 8c f2 45 28 45  25 21 45 2c 55 2b 31 2c  |s=1..E(E%!E,U+1,|
00002f40  a4 45 28 22 46 43 6f 6e  76 31 22 29 29 0d 01 9e  |.E("FConv1"))...|
00002f50  25 e7 45 25 21 73 3d 32  8c f2 45 28 45 25 21 45  |%.E%!s=2..E(E%!E|
00002f60  2c 55 2b 31 2c a4 45 28  22 46 43 6f 6e 76 4e 22  |,U+1,.E("FConvN"|
00002f70  29 29 0d 01 9f 11 cd 3a  f2 55 28 45 25 2c 22 22  |)).....:.U(E%,""|
00002f80  29 3a e1 0d 01 a0 2b dd  f2 6f 79 28 45 25 29 45  |):....+..oy(E%)E|
00002f90  25 21 52 2b 3d 31 3a e7  45 25 21 4d 3d 30 8c f2  |%!R+=1:.E%!M=0..|
00002fa0  4e 28 45 25 21 45 2c 48  2c 45 25 21 52 29 0d 01  |N(E%!E,H,E%!R)..|
00002fb0  a1 25 e7 45 25 21 52 3d  31 8c f2 45 28 45 25 21  |.%.E%!R=1..E(E%!|
00002fc0  45 2c 48 2b 31 2c a4 45  28 22 41 53 63 61 6e 31  |E,H+1,.E("AScan1|
00002fd0  22 29 29 0d 01 a2 25 e7  45 25 21 52 3d 32 8c f2  |"))...%.E%!R=2..|
00002fe0  45 28 45 25 21 45 2c 48  2b 31 2c a4 45 28 22 41  |E(E%!E,H+1,.E("A|
00002ff0  53 63 61 6e 4e 22 29 29  0d 01 a3 05 e1 0d 01 a4  |ScanN"))........|
00003000  45 dd f2 55 79 28 45 25  29 45 25 21 4b 2b 3d 31  |E..Uy(E%)E%!K+=1|
00003010  3a f2 4e 28 45 25 21 45  2c 56 2c 45 25 21 4b 29  |:.N(E%!E,V,E%!K)|
00003020  3a e7 45 25 21 4b 3d 31  8c f2 45 28 45 25 21 45  |:.E%!K=1..E(E%!E|
00003030  2c 56 2b 31 2c a4 45 28  22 41 43 6f 6e 76 31 22  |,V+1,.E("AConv1"|
00003040  29 29 0d 01 a5 25 e7 45  25 21 4b 3d 32 8c f2 45  |))...%.E%!K=2..E|
00003050  28 45 25 21 45 2c 56 2b  31 2c a4 45 28 22 41 43  |(E%!E,V+1,.E("AC|
00003060  6f 6e 76 4e 22 29 29 0d  01 a6 05 e1 0d 01 a7 16  |onvN")).........|
00003070  dd f2 74 28 45 25 2c 45  24 29 e7 45 25 21 4d 3d  |..t(E%,E$).E%!M=|
00003080  30 8c 0d 01 a8 15 f2 45  28 45 25 21 45 2c 75 2c  |0......E(E%!E,u,|
00003090  a4 63 28 45 24 29 29 0d  01 a9 07 cd 3a e1 0d 01  |.c(E$)).....:...|
000030a0  aa 16 dd f2 55 28 45 25  2c 45 24 29 e7 45 25 21  |....U(E%,E$).E%!|
000030b0  4d 3d 30 8c 0d 01 ab 15  f2 45 28 45 25 21 45 2c  |M=0......E(E%!E,|
000030c0  76 2c a4 63 28 45 24 29  29 0d 01 ac 07 cd 3a e1  |v,.c(E$)).....:.|
000030d0  0d 01 ad 15 dd a4 63 28  45 24 29 e7 a9 28 45 24  |......c(E$)..(E$|
000030e0  29 3e 58 79 8c 0d 01 ae  16 45 24 3d 22 2e 2e 2e  |)>Xy.....E$="...|
000030f0  22 2b c2 45 24 2c 58 79  2d 33 29 0d 01 af 09 cd  |"+.E$,Xy-3).....|
00003100  3a 3d 45 24 0d 01 b0 1e  dd a4 72 28 45 25 29 ea  |:=E$......r(E%).|
00003110  45 24 2c 49 25 3a 49 25  3d 45 25 21 4a 3a e7 49  |E$,I%:I%=E%!J:.I|
00003120  25 8c 0d 01 b1 0e 45 24  3d 24 28 49 25 2b 4c 29  |%.....E$=$(I%+L)|
00003130  0d 01 b2 10 cc 45 24 3d  24 28 45 25 2b 5a 79 29  |.....E$=$(E%+Zy)|
00003140  0d 01 b3 09 cd 3a 3d 45  24 0d 01 b4 1f dd f2 77  |.....:=E$......w|
00003150  28 45 25 29 45 25 21 4d  3d 28 45 25 21 4d 3d 30  |(E%)E%!M=(E%!M=0|
00003160  29 3a e7 45 25 21 4d 8c  0d 01 b5 07 f2 45 79 0d  |):.E%!M......Ey.|
00003170  01 b6 5c cc f2 74 28 45  25 2c a4 72 28 45 25 29  |..\..t(E%,.r(E%)|
00003180  29 3a f2 55 28 45 25 2c  22 22 29 3a f2 4e 28 45  |):.U(E%,""):.N(E|
00003190  25 21 45 2c 55 2c 45 25  21 73 29 3a f2 4e 28 45  |%!E,U,E%!s):.N(E|
000031a0  25 21 45 2c 58 2c 45 25  21 71 29 3a f2 4e 28 45  |%!E,X,E%!q):.N(E|
000031b0  25 21 45 2c 56 2c 45 25  21 4b 29 3a f2 4e 28 45  |%!E,V,E%!K):.N(E|
000031c0  25 21 45 2c 48 2c 45 25  21 52 29 0d 01 b7 07 cd  |%!E,H,E%!R).....|
000031d0  3a e1 0d 01 b8 63 dd f2  45 79 f2 45 28 45 25 21  |:....c..Ey.E(E%!|
000031e0  45 2c 75 2c 22 2d 22 29  3a f2 45 28 45 25 21 45  |E,u,"-"):.E(E%!E|
000031f0  2c 76 2c 22 2d 22 29 3a  f2 45 28 45 25 21 45 2c  |,v,"-"):.E(E%!E,|
00003200  55 2c 22 2d 22 29 3a f2  45 28 45 25 21 45 2c 58  |U,"-"):.E(E%!E,X|
00003210  2c 22 2d 22 29 3a f2 45  28 45 25 21 45 2c 56 2c  |,"-"):.E(E%!E,V,|
00003220  22 2d 22 29 3a f2 45 28  45 25 21 45 2c 48 2c 22  |"-"):.E(E%!E,H,"|
00003230  2d 22 29 3a e1 0d 01 b9  2f dd f2 58 5f 28 45 25  |-"):..../..X_(E%|
00003240  2c 6f 24 29 ea 5a 25 2c  65 4a 25 2c 66 4a 25 2c  |,o$).Z%,eJ%,fJ%,|
00003250  63 4a 25 2c 67 5f 25 3a  e7 45 25 21 4d 8c f2 77  |cJ%,g_%:.E%!M..w|
00003260  28 45 25 29 0d 01 ba ea  f2 45 28 45 25 21 45 2c  |(E%).....E(E%!E,|
00003270  4f 79 2c 6f 24 29 3a 5a  25 3d a4 41 28 36 34 29  |Oy,o$):Z%=.A(64)|
00003280  3a 21 5a 25 3d 45 25 21  45 3a 63 4a 25 3d 48 5f  |:!Z%=E%!E:cJ%=H_|
00003290  25 2b 31 3a 67 5f 25 3d  50 5f 25 2b 31 3a 65 4a  |%+1:g_%=P_%+1:eJ|
000032a0  25 3d ac 28 28 31 3c 3c  43 5f 25 29 2d 31 29 3a  |%=.((1<<C_%)-1):|
000032b0  66 4a 25 3d ac 28 28 31  3c 3c 44 79 25 29 2d 31  |fJ%=.((1<<Dy%)-1|
000032c0  29 3a 5a 25 21 34 3d 28  28 63 4a 25 2d 6f 5f 25  |):Z%!4=((cJ%-o_%|
000032d0  29 2f 32 29 80 65 4a 25  3a 5a 25 21 31 36 3d 67  |)/2).eJ%:Z%!16=g|
000032e0  5f 25 2d 28 28 28 28 67  5f 25 2d 36 38 29 2d 59  |_%-((((g_%-68)-Y|
000032f0  5f 25 29 2f 32 29 80 66  4a 25 29 3a 5a 25 21 31  |_%)/2).fJ%):Z%!1|
00003300  32 3d 5a 25 21 34 2b 6f  5f 25 3a 5a 25 21 38 3d  |2=Z%!4+o_%:Z%!8=|
00003310  5a 25 21 31 36 2d 59 5f  25 3a 5a 25 21 32 30 3d  |Z%!16-Y_%:Z%!20=|
00003320  30 3a 5a 25 21 32 34 3d  30 3a 5a 25 21 32 38 3d  |0:Z%!24=0:Z%!28=|
00003330  2d 31 3a c8 99 26 34 30  30 63 35 2c 2c 5a 25 3a  |-1:..&400c5,,Z%:|
00003340  ef 37 3a f2 43 28 5a 25  2c 36 34 29 3a e1 0d 01  |.7:.C(Z%,64):...|
00003350  bb 8c dd f2 69 28 45 25  29 ea 5a 25 3a 5a 25 3d  |....i(E%).Z%:Z%=|
00003360  a4 41 28 36 34 29 3a 21  5a 25 3d 45 25 21 45 3a  |.A(64):!Z%=E%!E:|
00003370  c8 99 26 34 30 30 63 62  2c 2c 5a 25 3a 5a 25 21  |..&400cb,,Z%:Z%!|
00003380  31 32 3d 5a 25 21 34 2b  62 4a 25 3a 5a 25 21 31  |12=Z%!4+bJ%:Z%!1|
00003390  36 3d 5a 25 21 38 2b 4d  4a 25 3a 5a 25 21 32 30  |6=Z%!8+MJ%:Z%!20|
000033a0  3d 4f 4a 25 3a 5a 25 21  32 34 3d 71 4a 25 3a 5a  |=OJ%:Z%!24=qJ%:Z|
000033b0  25 21 32 38 3d 2d 31 3a  c8 99 26 34 30 30 63 35  |%!28=-1:..&400c5|
000033c0  2c 2c 5a 25 3a f2 43 28  5a 25 2c 36 34 29 3a f2  |,,Z%:.C(Z%,64):.|
000033d0  55 28 45 25 2c 22 22 29  3a e1 0d 01 bc 0e dd f2  |U(E%,""):.......|
000033e0  60 79 e7 56 25 3d 30 8c  0d 01 bd 23 de 45 4a 25  |`y.V%=0....#.EJ%|
000033f0  34 3a 21 45 4a 25 3d 30  3a e7 a4 61 28 22 43 68  |4:!EJ%=0:..a("Ch|
00003400  6f 69 63 65 73 22 2c 45  4a 25 29 0d 01 be 0b 56  |oices",EJ%)....V|
00003410  25 3d 21 45 4a 25 0d 01  bf 0a cd 3a e7 56 25 8c  |%=!EJ%.....:.V%.|
00003420  0d 01 c0 18 f2 64 3a f2  70 79 28 56 25 29 3a f2  |.....d:.py(V%):.|
00003430  60 28 56 25 2c 2d 31 29  0d 01 c1 07 cd 3a e1 0d  |`(V%,-1).....:..|
00003440  01 c2 0b dd f2 64 e7 56  25 8c 0d 01 c3 58 c8 99  |.....d.V%....X..|
00003450  26 34 36 35 63 36 2c 59  25 2c 56 25 3a f2 49 28  |&465c6,Y%,V%:.I(|
00003460  56 25 2c 6a 5f 25 2c 21  61 29 3a f2 49 28 56 25  |V%,j_%,!a):.I(V%|
00003470  2c 76 5f 25 2c 21 77 29  3a f2 49 28 56 25 2c 74  |,v_%,!w):.I(V%,t|
00003480  5f 25 2c 21 5f 29 3a f2  49 28 56 25 2c 7a 5f 25  |_%,!_):.I(V%,z_%|
00003490  2c 21 4f 29 3a f2 49 28  56 25 2c 78 5f 25 2c a4  |,!O):.I(V%,x_%,.|
000034a0  78 29 0d 01 c4 07 cd 3a  e1 0d 01 c5 23 dd f2 62  |x).....:....#..b|
000034b0  79 28 5f 25 2c 54 25 29  ea 62 79 25 3a f2 60 28  |y(_%,T%).by%:.`(|
000034c0  56 25 2c 2d 31 29 3a c8  8e 54 25 ca 0d 01 c6 11  |V%,-1):..T%.....|
000034d0  c9 55 4a 25 3a f2 52 3a  62 79 25 3d b9 0d 01 c7  |.UJ%:.R:by%=....|
000034e0  11 c9 42 4a 25 3a f2 64  3a 62 79 25 3d b9 0d 01  |..BJ%:.d:by%=...|
000034f0  c8 15 c9 4a 4a 25 3a f2  52 3a f2 47 79 3a 62 79  |...JJ%:.R:.Gy:by|
00003500  25 3d b9 0d 01 c9 15 c9  6f 4a 25 3a f2 42 79 3a  |%=......oJ%:.By:|
00003510  f2 64 3a 62 79 25 3d b9  0d 01 ca 0b cb 3a e7 62  |.d:by%=......:.b|
00003520  79 25 8c 0d 01 cb 13 e7  5f 25 80 31 30 39 32 8c  |y%......_%.1092.|
00003530  f2 58 28 56 25 29 0d 01  cc 07 cd 3a e1 0d 01 cd  |.X(V%).....:....|
00003540  65 dd f2 52 ea 75 5f 25  2c 49 24 2c 52 24 2c 42  |e..R.u_%,I$,R$,B|
00003550  24 3a 21 61 3d a4 42 28  56 25 2c 6a 5f 25 29 3a  |$:!a=.B(V%,j_%):|
00003560  21 77 3d a4 42 28 56 25  2c 76 5f 25 29 3a 21 5f  |!w=.B(V%,v_%):!_|
00003570  3d a4 42 28 56 25 2c 74  5f 25 29 3a 21 4f 3d a4  |=.B(V%,t_%):!O=.|
00003580  42 28 56 25 2c 7a 5f 25  29 3a 75 5f 25 3d a4 78  |B(V%,z_%):u_%=.x|
00003590  3a e7 75 5f 25 3c 3e a4  42 28 56 25 2c 78 5f 25  |:.u_%<>.B(V%,x_%|
000035a0  29 8c 0d 01 ce 29 49 24  3d 22 54 46 6f 6e 74 22  |)....)I$="TFont"|
000035b0  3a 52 24 3d 22 54 53 79  73 74 65 6d 22 3a e7 ac  |:R$="TSystem":..|
000035c0  75 5f 25 8c c8 94 49 24  2c 52 24 0d 01 cf 5b 42  |u_%...I$,R$...[B|
000035d0  24 3d a4 4d 28 4b 79 25  29 2b 22 2e 22 3a 49 24  |$=.M(Ky%)+".":I$|
000035e0  3d 42 24 2b 49 24 2b bd  30 3a 52 24 3d 42 24 2b  |=B$+I$+.0:R$=B$+|
000035f0  52 24 2b bd 30 3a 42 24  3d 42 24 2b 22 54 65 6d  |R$+.0:B$=B$+"Tem|
00003600  70 6c 61 74 65 73 22 2b  bd 30 3a c8 99 34 31 2c  |plates"+.0:..41,|
00003610  32 35 2c 42 24 2c 49 24  3a c8 99 34 31 2c 32 35  |25,B$,I$:..41,25|
00003620  2c 52 24 2c 42 24 0d 01  d0 07 cd 3a e1 0d 01 d1  |,R$,B$.....:....|
00003630  16 dd f2 4d 5f 28 54 25  2c 74 4a 25 29 c8 8e 74  |...M_(T%,tJ%)..t|
00003640  4a 25 ca 0d 01 d2 11 c9  31 33 3a f2 52 3a f2 58  |J%......13:.R:.X|
00003650  28 56 25 29 0d 01 d3 0e  c9 32 37 3a f2 58 28 56  |(V%).....27:.X(V|
00003660  25 29 0d 01 d4 12 c9 33  38 36 3a f2 52 3a f2 58  |%).....386:.R:.X|
00003670  28 56 25 29 0d 01 d5 0f  c9 33 38 37 3a f2 58 28  |(V%).....387:.X(|
00003680  56 25 29 0d 01 d6 16 c9  33 38 38 3a f2 52 3a f2  |V%).....388:.R:.|
00003690  47 79 3a f2 58 28 56 25  29 0d 01 d7 13 c9 33 38  |Gy:.X(V%).....38|
000036a0  39 3a f2 42 79 3a f2 58  28 56 25 29 0d 01 d8 11  |9:.By:.X(V%)....|
000036b0  7f c8 99 26 34 30 30 64  63 2c 74 4a 25 0d 01 d9  |...&400dc,tJ%...|
000036c0  07 cb 3a e1 0d 01 da 7b  dd a4 78 ea 47 25 2c 46  |..:....{..x.G%,F|
000036d0  25 2c 4c 79 25 2c 52 25  3a 46 25 3d a4 41 28 31  |%,Ly%,R%:F%=.A(1|
000036e0  32 38 29 3a 4c 79 25 3d  30 3a f5 c8 99 31 32 2c  |28):Ly%=0:...12,|
000036f0  39 2c 4b 79 25 2c 46 25  2c 31 2c 4c 79 25 2c 31  |9,Ky%,F%,1,Ly%,1|
00003700  32 38 2c 22 54 53 79 73  74 65 6d 22 2b bd 30 b8  |28,"TSystem"+.0.|
00003710  2c 2c 2c 52 25 2c 4c 79  25 3a 47 25 3d 28 52 25  |,,,R%,Ly%:G%=(R%|
00003720  3d 31 29 3a fd 28 4c 79  25 3d 2d 31 29 84 47 25  |=1):.(Ly%=-1).G%|
00003730  3a f2 43 28 46 25 2c 31  32 38 29 3a 3d 47 25 0d  |:.C(F%,128):=G%.|
00003740  01 db 14 dd f2 6d 79 ea  41 24 3a c8 8e 57 25 21  |.....my.A$:..W%!|
00003750  32 30 ca 0d 01 dc 17 c9  56 25 3a 41 24 3d 22 57  |20......V%:A$="W|
00003760  69 6e 43 68 6f 69 63 65  73 22 0d 01 dd 0e cb 3a  |inChoices".....:|
00003770  e7 41 24 3c 3e 22 22 8c  0d 01 de 6c 41 24 3d a4  |.A$<>""....lA$=.|
00003780  45 28 41 24 29 3a 57 25  21 31 36 3d 26 34 30 30  |E(A$):W%!16=&400|
00003790  63 63 3a 57 25 21 31 32  3d 57 25 21 38 3a 24 28  |cc:W%!12=W%!8:$(|
000037a0  57 25 2b 32 38 29 3d 79  24 2b bd 30 3a 24 28 57  |W%+28)=y$+.0:$(W|
000037b0  25 2b 33 36 29 3d 41 24  2b bd 30 3a 57 25 21 30  |%+36)=A$+.0:W%!0|
000037c0  3d 28 33 36 2b a9 28 41  24 29 2b 34 29 80 2d 34  |=(36+.(A$)+4).-4|
000037d0  3a c8 99 26 34 30 30 65  37 2c 31 37 2c 57 25 2c  |:..&400e7,17,W%,|
000037e0  57 25 21 34 0d 01 df 07  cd 3a e1 0d 01 e0 0a dd  |W%!4.....:......|
000037f0  a4 48 3d 31 39 0d 01 e1  19 dd f2 54 79 28 44 4a  |.H=19......Ty(DJ|
00003800  25 2c 63 75 25 29 e7 a4  48 3c 63 75 25 8c 0d 01  |%,cu%)..H<cu%...|
00003810  e2 0d 85 31 2c 22 45 49  4c 31 22 0d 01 e3 0d cd  |...1,"EIL1".....|
00003820  3a e7 44 4a 25 3c 31 8c  0d 01 e4 0d 85 31 2c 22  |:.DJ%<1......1,"|
00003830  45 49 4c 32 22 0d 01 e5  69 cd 3a 49 5f 25 3d 44  |EIL2"...i.:I_%=D|
00003840  4a 25 3a de 53 24 28 49  5f 25 2d 31 29 3a de 41  |J%:.S$(I_%-1):.A|
00003850  25 28 49 5f 25 2d 31 29  3a 69 5f 25 3d 30 3a de  |%(I_%-1):i_%=0:.|
00003860  59 79 25 32 35 36 3a 51  5f 25 3d 34 30 3a 7a 25  |Yy%256:Q_%=40:z%|
00003870  3d 30 3a 56 79 25 3d 31  32 3a 61 4a 25 3d a3 3a  |=0:Vy%=12:aJ%=.:|
00003880  de 45 24 28 51 5f 25 2d  31 29 3a 64 79 25 3d a3  |.E$(Q_%-1):dy%=.|
00003890  3a 55 79 25 3d a3 3a 4f  5f 25 3d b9 3a e1 0d 01  |:Uy%=.:O_%=.:...|
000038a0  e6 1c dd f2 41 28 4a 24  2c 79 4a 25 29 f2 58 79  |....A(J$,yJ%).Xy|
000038b0  28 4a 24 2c 79 4a 25 29  3a e1 0d 01 e7 5a dd f2  |(J$,yJ%):....Z..|
000038c0  58 79 28 4a 24 2c 79 4a  25 29 ea 67 25 2c 4e 25  |Xy(J$,yJ%).g%,N%|
000038d0  2c 43 24 2c 64 24 3a 4e  25 3d 30 3a 67 25 3d b9  |,C$,d$:N%=0:g%=.|
000038e0  3a 43 24 3d c1 4a 24 2c  31 2b a7 4a 24 2c 22 2e  |:C$=.J$,1+.J$,".|
000038f0  22 29 29 3a c8 95 4e 25  3c 69 5f 25 80 67 25 3a  |")):..N%<i_%.g%:|
00003900  67 25 3d 28 43 24 3c 3e  53 24 28 4e 25 29 29 3a  |g%=(C$<>S$(N%)):|
00003910  e7 67 25 8c 0d 01 e8 09  4e 25 2b 3d 31 0d 01 e9  |.g%.....N%+=1...|
00003920  0c cd 3a ce 3a e7 67 25  8c 0d 01 ea 0c e7 4e 25  |..:.:.g%......N%|
00003930  3d 49 5f 25 8c 0d 01 eb  0d 85 31 2c 22 45 49 4c  |=I_%......1,"EIL|
00003940  33 22 0d 01 ec 4f cd 3a  53 24 28 4e 25 29 3d 43  |3"...O.:S$(N%)=C|
00003950  24 3a 64 24 3d 22 27 22  2b 4a 24 2b 22 27 20 64  |$:d$="'"+J$+"' d|
00003960  6f 65 73 20 6e 6f 74 20  68 61 76 65 20 61 20 46  |oes not have a F|
00003970  4e 5f 22 3a ea 85 3a ee  85 ea f7 85 3a f2 4d 28  |N_":..:.....:.M(|
00003980  64 24 2b 43 24 2b 22 5f  76 65 72 73 69 6f 6e 22  |d$+C$+"_version"|
00003990  29 0d 01 ed 52 41 25 28  4e 25 29 3d a0 28 22 46  |)...RA%(N%)=.("F|
000039a0  4e 5f 22 2b 43 24 2b 22  5f 76 65 72 73 69 6f 6e  |N_"+C$+"_version|
000039b0  22 29 3a f7 85 3a 69 5f  25 2b 3d 31 3a ea 85 3a  |"):..:i_%+=1:..:|
000039c0  ee 85 ea f7 85 3a f2 4d  28 64 24 2b 22 5f 68 61  |.....:.M(d$+"_ha|
000039d0  72 64 5f 69 6e 69 74 69  61 6c 69 73 65 5f 22 2b  |rd_initialise_"+|
000039e0  43 24 29 0d 01 ee 21 e7  a0 28 22 46 4e 5f 68 61  |C$)...!..("FN_ha|
000039f0  72 64 5f 69 6e 69 74 69  61 6c 69 73 65 5f 22 2b  |rd_initialise_"+|
00003a00  43 24 29 8c 0d 01 ef 11  85 31 2c 22 45 49 4c 35  |C$)......1,"EIL5|
00003a10  20 22 2b 4a 24 0d 01 f0  08 cd 3a f7 85 0d 01 f1  | "+J$.....:.....|
00003a20  12 cd 3a e7 79 4a 25 3e  41 25 28 4e 25 29 8c 0d  |..:.yJ%>A%(N%)..|
00003a30  01 f2 11 85 31 2c 22 45  49 4c 34 20 22 2b 4a 24  |....1,"EIL4 "+J$|
00003a40  0d 01 f3 07 cd 3a e1 0d  01 f4 17 dd a4 5a 28 67  |.....:.......Z(g|
00003a50  24 29 ea 85 3a ee 85 ea  f7 85 3a f2 65 79 0d 01  |$)..:.....:.ey..|
00003a60  f5 0a 3d a0 28 67 24 29  0d 01 f6 0d dd f2 65 79  |..=.(g$)......ey|
00003a70  e7 4f 5f 25 8c 0d 01 f7  2d 85 9f 2c f6 24 2b 22  |.O_%....-..,.$+"|
00003a80  20 28 65 76 61 6c 75 61  74 69 6e 67 20 60 22 2b  | (evaluating `"+|
00003a90  67 24 2b 22 27 20 5b 22  2b c3 28 9e 29 2b 22 5d  |g$+"' ["+.(.)+"]|
00003aa0  29 22 0d 01 f8 0a cc 85  9f 2c f6 24 0d 01 f9 07  |)".......,.$....|
00003ab0  cd 3a e1 0d 01 fa 2b dd  a4 55 28 41 25 29 ea 53  |.:....+..U(A%).S|
00003ac0  24 3a c8 95 3f 41 25 3a  53 24 2b 3d bd 28 3f 41  |$:..?A%:S$+=.(?A|
00003ad0  25 29 3a 41 25 2b 3d 31  3a ce 3a 3d 53 24 0d 01  |%):A%+=1:.:=S$..|
00003ae0  fb 3b dd a4 47 79 28 41  25 2c 42 25 29 ea 53 24  |.;..Gy(A%,B%).S$|
00003af0  3a c8 95 42 25 3e 3d 31  80 3f 41 25 3a 53 24 2b  |:..B%>=1.?A%:S$+|
00003b00  3d bd 28 3f 41 25 29 3a  41 25 2b 3d 31 3a 42 25  |=.(?A%):A%+=1:B%|
00003b10  2d 3d 31 3a ce 3a 3d 53  24 0d 01 fc 2e dd a4 4d  |-=1:.:=S$......M|
00003b20  28 41 25 29 ea 53 24 3a  c8 95 3f 41 25 3e 33 31  |(A%).S$:..?A%>31|
00003b30  3a 53 24 2b 3d bd 28 3f  41 25 29 3a 41 25 2b 3d  |:S$+=.(?A%):A%+=|
00003b40  31 3a ce 3a 3d 53 24 0d  01 fd 21 dd f2 73 28 41  |1:.:=S$...!..s(A|
00003b50  25 2c 53 24 29 24 41 25  3d 53 24 3a 41 25 3f a9  |%,S$)$A%=S$:A%?.|
00003b60  28 53 24 29 3d 30 3a e1  0d 01 fe 1d dd f2 5a 79  |(S$)=0:.......Zy|
00003b70  28 41 25 2c 53 24 2c 42  25 29 e7 a9 28 53 24 29  |(A%,S$,B%)..(S$)|
00003b80  3c 3d 42 25 8c 0d 01 ff  28 24 41 25 3d c0 53 24  |<=B%....($A%=.S$|
00003b90  2c 42 25 2d 31 29 3a 41  25 3f 28 42 25 2d 31 29  |,B%-1):A%?(B%-1)|
00003ba0  3d 97 28 c1 53 24 2c 42  25 2c 31 29 29 0d 02 00  |=.(.S$,B%,1))...|
00003bb0  16 cc 24 41 25 3d 53 24  3a 41 25 3f a9 28 53 24  |..$A%=S$:A%?.(S$|
00003bc0  29 3d 30 0d 02 01 07 cd  3a e1 0d 02 02 10 dd f2  |)=0.....:.......|
00003bd0  4d 28 57 24 29 e7 64 79  25 8c 0d 02 03 09 e7 55  |M(W$).dy%......U|
00003be0  79 25 8c 0d 02 04 16 85  9f 2c f6 24 2b 22 20 5b  |y%.......,.$+" [|
00003bf0  22 2b c3 9e 2b 22 5d 2e  22 0d 02 05 0a cc 85 9f  |"+..+"].".......|
00003c00  2c f6 24 0d 02 06 05 cd  0d 02 07 0b cc e7 ac 61  |,.$............a|
00003c10  4a 25 8c 0d 02 08 0c e7  7a 25 3d 51 5f 25 8c 0d  |J%......z%=Q_%..|
00003c20  02 09 26 45 28 51 5f 25  2d 31 29 3d 22 45 72 72  |..&E(Q_%-1)="Err|
00003c30  6f 72 73 20 74 6f 6f 20  64 65 65 70 21 21 21 21  |ors too deep!!!!|
00003c40  21 22 3a f2 78 0d 02 0a  13 cd 3a e7 c2 57 24 2c  |!":.x.....:..W$,|
00003c50  32 29 3d 22 3a 20 22 8c  0d 02 0b 13 57 24 3d c0  |2)=": ".....W$=.|
00003c60  57 24 2c a9 28 57 24 29  2d 32 29 0d 02 0c 0b cd  |W$,.(W$)-2).....|
00003c70  3a e7 55 79 25 8c 0d 02  0d 0d 45 24 28 7a 25 29  |:.Uy%.....E$(z%)|
00003c80  3d f6 24 0d 02 0e 0b cc  e7 7a 25 3d 30 8c 0d 02  |=.$......z%=0...|
00003c90  0f 4a 45 24 28 7a 25 29  3d 22 45 72 72 6f 72 20  |.JE$(z%)="Error |
00003ca0  60 22 2b f6 24 2b 22 27  20 28 6c 69 6e 65 20 22  |`"+.$+"' (line "|
00003cb0  3a 45 24 28 7a 25 29 2b  3d c3 28 9e 29 2b 22 29  |:E$(z%)+=.(.)+")|
00003cc0  20 69 6e 20 22 3a 45 24  28 7a 25 29 2b 3d 22 60  | in ":E$(z%)+="`|
00003cd0  22 2b 57 24 2b 22 27 22  0d 02 10 16 cc 45 24 28  |"+W$+"'".....E$(|
00003ce0  7a 25 29 3d 22 60 22 2b  57 24 2b 22 27 22 0d 02  |z%)="`"+W$+"'"..|
00003cf0  11 05 cd 0d 02 12 11 cd  3a 7a 25 2b 3d 31 3a 85  |........:z%+=1:.|
00003d00  9f 2c 22 22 0d 02 13 05  cd 0d 02 14 07 cd 3a e1  |.,""..........:.|
00003d10  0d 02 15 13 dd f2 78 ea  6f 25 2c 6c 24 3a e7 64  |......x.o%,l$:.d|
00003d20  79 25 8c 0d 02 16 09 e7  55 79 25 8c 0d 02 17 20  |y%......Uy%.... |
00003d30  f2 56 28 9f 2c f6 24 2b  22 20 5b 22 2b c3 28 9e  |.V(.,.$+" ["+.(.|
00003d40  29 2b 22 5d 2e 22 29 3a  f2 53 3a e0 0d 02 18 15  |)+"]."):.S:.....|
00003d50  cc f2 56 28 9f 2c f6 24  29 3a e7 9f 3d 4e 5f 25  |..V(.,.$):..=N_%|
00003d60  8c 0d 02 19 08 f2 53 3a  e0 0d 02 1a 05 cd 0d 02  |......S:........|
00003d70  1b 05 cd 0d 02 1c 0d cc  e7 56 79 25 3d 2d 32 8c  |.........Vy%=-2.|
00003d80  0d 02 1d 0a e7 7a 25 3e  30 8c 0d 02 1e 0d 85 a2  |.....z%>0.......|
00003d90  9f 2c 45 24 28 30 29 0d  02 1f 0b cc 85 a2 9f 2c  |.,E$(0)........,|
00003da0  f6 24 0d 02 20 07 cd 3a  e0 0d 02 21 0e cd 3a e7  |.$.. ..:...!..:.|
00003db0  56 79 25 3d 2d 33 8c 0d  02 22 38 24 59 79 25 3d  |Vy%=-3..."8$Yy%=|
00003dc0  22 54 41 53 4b 22 3a c8  99 26 34 30 30 63 30 2c  |"TASK":..&400c0,|
00003dd0  32 30 30 2c 21 59 79 25  2c 22 4c 69 62 48 61 6e  |200,!Yy%,"LibHan|
00003de0  64 6c 65 72 22 2b bd 28  30 29 3a e7 7a 25 8c 0d  |dler"+.(0):.z%..|
00003df0  02 23 1a e3 6f 25 3d 30  b8 7a 25 2d 31 3a e7 6f  |.#..o%=0.z%-1:.o|
00003e00  25 3c 28 7a 25 2d 31 29  8c 0d 02 24 14 f2 67 28  |%<(z%-1)...$..g(|
00003e10  45 24 28 6f 25 29 2b 22  20 69 6e 22 29 0d 02 25  |E$(o%)+" in")..%|
00003e20  0f cc f2 67 28 45 24 28  6f 25 29 29 0d 02 26 09  |...g(E$(o%))..&.|
00003e30  cd 3a ed 6f 25 0d 02 27  1e cc f2 67 28 f6 24 2b  |.:.o%..'...g(.$+|
00003e40  22 20 28 6c 69 6e 65 20  22 2b c3 28 9e 29 2b 22  |" (line "+.(.)+"|
00003e50  29 22 29 0d 02 28 10 cd  3a c8 99 26 36 30 30 64  |)")..(..:..&600d|
00003e60  64 3a e0 0d 02 29 0e cd  3a e7 56 79 25 3e 3d 30  |d:...)..:.Vy%>=0|
00003e70  8c 0d 02 2a 08 eb 56 79  25 0d 02 2b 27 cd 3a f1  |...*..Vy%..+'.:.|
00003e80  22 41 6e 20 65 72 72 6f  72 20 68 61 73 20 6f 63  |"An error has oc|
00003e90  63 75 72 65 64 2e 2e 2e  22 3a f1 3a e7 7a 25 8c  |cured...":.:.z%.|
00003ea0  0d 02 2c 36 e3 6f 25 3d  30 b8 7a 25 2d 31 3a fb  |..,6.o%=0.z%-1:.|
00003eb0  28 28 37 2d 28 6f 25 3c  3c 31 29 29 80 36 29 2b  |((7-(o%<<1)).6)+|
00003ec0  31 3a f1 45 24 28 6f 25  29 3b 3a e7 6f 25 3c 28  |1:.E$(o%);:.o%<(|
00003ed0  7a 25 2d 31 29 8c 0d 02  2d 0c f1 22 20 69 6e 20  |z%-1)...-.." in |
00003ee0  22 3b 0d 02 2e 09 cd 3a  ed 6f 25 0d 02 2f 1b cc  |";.....:.o%../..|
00003ef0  f1 f6 24 3b 22 20 28 6c  69 6e 65 20 22 3b c3 28  |..$;" (line ";.(|
00003f00  9e 29 3b 22 29 22 0d 02  30 0c cd 3a f1 3a fb 37  |.);")"..0..:.:.7|
00003f10  3a e0 0d 02 31 07 cd 3a  e1 0d 02 32 66 dd f2 67  |:...1..:...2f..g|
00003f20  28 71 24 29 ea 5a 4a 25  3a 5a 4a 25 3d 32 30 2b  |(q$).ZJ%:ZJ%=20+|
00003f30  28 a9 28 71 24 29 2b 35  29 80 2d 34 3a 21 59 79  |(.(q$)+5).-4:!Yy|
00003f40  25 3d 5a 4a 25 3a 59 79  25 21 31 36 3d 26 38 30  |%=ZJ%:Yy%!16=&80|
00003f50  34 63 30 3a 24 28 59 79  25 2b 32 30 29 3d 71 24  |4c0:$(Yy%+20)=q$|
00003f60  2b bd 28 31 30 29 2b bd  28 30 29 3a c8 99 26 36  |+.(10)+.(0):..&6|
00003f70  30 30 65 37 2c 31 37 2c  59 79 25 2c 30 3a e1 0d  |00e7,17,Yy%,0:..|
00003f80  02 33 16 dd a4 5f 43 41  73 6d 5f 76 65 72 73 69  |.3..._CAsm_versi|
00003f90  6f 6e 3d 31 34 0d 02 34  e8 dd a4 5f 68 61 72 64  |on=14..4..._hard|
00003fa0  5f 69 6e 69 74 69 61 6c  69 73 65 5f 43 41 73 6d  |_initialise_CAsm|
00003fb0  f2 41 28 22 3c 42 61 73  69 63 56 5f 41 73 73 65  |.A("<BasicV_Asse|
00003fc0  6d 62 6c 65 72 24 4c 69  62 3e 2e 4d 69 73 63 22  |mbler$Lib>.Misc"|
00003fd0  2c 32 37 29 3a c8 99 35  2c 22 52 4d 45 6e 73 75  |,27):..5,"RMEnsu|
00003fe0  72 65 20 43 41 73 73 65  6d 62 6c 65 72 20 30 2e  |re CAssembler 0.|
00003ff0  30 38 20 52 4d 4c 6f 61  64 20 53 79 73 74 65 6d  |08 RMLoad System|
00004000  3a 4d 6f 64 75 6c 65 73  2e 43 41 73 73 65 6d 62  |:Modules.CAssemb|
00004010  6c 65 72 22 3a c8 99 35  2c 22 49 66 20 22 22 3c  |ler":..5,"If ""<|
00004020  43 41 73 6d 24 44 69 72  3e 22 22 3d 22 22 22 22  |CAsm$Dir>""=""""|
00004030  20 54 68 65 6e 20 53 65  74 20 43 41 73 6d 24 44  | Then Set CAsm$D|
00004040  69 72 20 3c 64 3e 2e 4c  69 62 72 61 72 79 2e 43  |ir <d>.Library.C|
00004050  41 73 6d 22 3a 43 41 73  6d 4c 69 62 72 61 72 79  |Asm":CAsmLibrary|
00004060  5f 73 74 64 6c 69 62 3d  31 3a 43 41 73 6d 4c 69  |_stdlib=1:CAsmLi|
00004070  62 72 61 72 79 5f 73 74  64 69 6f 3d 32 0d 02 35  |brary_stdio=2..5|
00004080  af 43 41 73 6d 4c 69 62  72 61 72 79 5f 73 74 72  |.CAsmLibrary_str|
00004090  69 6e 67 3d 33 3a 62 69  3d 34 3a 6c 69 3d 35 3a  |ing=3:bi=4:li=5:|
000040a0  72 75 3d 36 3a 45 69 3d  37 3a 43 41 73 6d 4c 69  |ru=6:Ei=7:CAsmLi|
000040b0  62 72 61 72 79 5f 77 69  6d 70 3d 38 3a 56 5f 3d  |brary_wimp=8:V_=|
000040c0  39 3a 43 41 73 6d 4c 69  62 72 61 72 79 5f 6d 65  |9:CAsmLibrary_me|
000040d0  73 73 61 67 65 3d 31 30  3a 63 6c 3d 31 31 3a 6c  |ssage=10:cl=11:l|
000040e0  75 3d 31 32 3a 49 6c 3d  31 33 3a 74 69 3d 31 34  |u=12:Il=13:ti=14|
000040f0  3a 67 75 3d 31 35 3a 5a  69 3d 31 36 3a 51 5f 3d  |:gu=15:Zi=16:Q_=|
00004100  31 37 3a 55 75 3d 31 38  3a 52 6c 3d 31 39 3a 59  |17:Uu=18:Rl=19:Y|
00004110  4a 3d 32 30 3a 53 4a 3d  32 31 3a 75 5f 3d 32 32  |J=20:SJ=21:u_=22|
00004120  3a 48 6c 3d 32 33 3a 6d  6c 3d 32 34 0d 02 36 a6  |:Hl=23:ml=24..6.|
00004130  6f 5f 3d 32 35 3a 7a 61  3d 32 36 3a 6b 3d 32 36  |o_=25:za=26:k=26|
00004140  3a 47 4a 3d 30 3a 48 4a  3d 31 3a 57 75 3d 32 3a  |:GJ=0:HJ=1:Wu=2:|
00004150  41 4a 3d 33 3a 4d 5f 3d  34 3a 4a 5f 3d 35 3a 48  |AJ=3:M_=4:J_=5:H|
00004160  5f 3d 36 3a 52 69 3d 37  3a 55 61 3d 38 3a 70 79  |_=6:Ri=7:Ua=8:py|
00004170  3d 39 3a 68 3d 31 30 3a  7a 3d 31 31 3a 6c 3d 31  |=9:h=10:z=11:l=1|
00004180  32 3a 41 3d 31 33 3a 5a  3d 31 34 3a 4a 4a 3d 31  |2:A=13:Z=14:JJ=1|
00004190  35 3a 61 79 3d 26 36 64  37 33 34 31 34 33 3a 70  |5:ay=&6d734143:p|
000041a0  25 3d 30 3a 50 79 25 3d  31 33 3a 6a 3d 30 3a 4e  |%=0:Py%=13:j=0:N|
000041b0  3d 30 3a 60 3d 31 30 2a  31 30 32 34 3a 66 79 3d  |=0:`=10*1024:fy=|
000041c0  60 2b 28 31 2a 31 30 32  34 29 3a 72 79 3d a3 3a  |`+(1*1024):ry=.:|
000041d0  3d 30 0d 02 37 41 dd f2  54 5f 28 58 24 29 ea 5a  |=0..7A..T_(X$).Z|
000041e0  25 2c 6b 25 2c 54 79 25  2c 4c 25 2c 4f 25 2c 50  |%,k%,Ty%,L%,O%,P|
000041f0  25 2c 55 25 2c 4a 24 3a  ea 85 3a ee 85 ea f7 85  |%,U%,J$:..:.....|
00004200  3a c8 99 26 34 30 30 65  63 2c 63 79 25 2c 2d 31  |:..&400ec,cy%,-1|
00004210  3a f2 48 0d 02 38 52 63  79 25 3d 93 2d 33 32 37  |:.H..8Rcy%=.-327|
00004220  36 38 3a c8 99 26 34 30  30 65 63 2c 63 79 25 2b  |68:..&400ec,cy%+|
00004230  33 32 37 36 38 2c 2d 31  b8 4c 25 3a 4c 25 2b 3d  |32768,-1.L%:L%+=|
00004240  33 32 37 36 38 3a 4f 25  3d 63 79 25 2b 33 32 37  |32768:O%=cy%+327|
00004250  36 38 3a 50 25 3d 30 3a  55 25 3d 31 34 3a e7 4f  |68:P%=0:U%=14:.O|
00004260  25 3d 4c 25 8c 0d 02 39  2f 85 31 2c 22 4e 6f 74  |%=L%...9/.1,"Not|
00004270  20 65 6e 6f 75 67 68 20  6d 65 6d 6f 72 79 20 74  | enough memory t|
00004280  6f 20 73 74 61 72 74 20  61 70 70 6c 69 63 61 74  |o start applicat|
00004290  69 6f 6e 22 0d 02 3a 0d  cd 3a e7 70 25 3c 3e 30  |ion"..:..:.p%<>0|
000042a0  8c 0d 02 3b 0d 85 31 2c  22 45 49 43 31 22 0d 02  |...;..1,"EIC1"..|
000042b0  3c 20 cd 3a de 71 5f 25  6b 2a 38 3a de 46 24 28  |< .:.q_%k*8:.F$(|
000042c0  6b 29 3a e7 a4 68 5f 44  45 46 41 55 4c 54 0d 02  |k):..h_DEFAULT..|
000042d0  3d 33 c8 95 58 24 3c 3e  22 22 3a 4a 24 3d c0 58  |=3..X$<>"":J$=.X|
000042e0  24 2c a7 58 24 2c 22 2c  22 29 2d 31 29 3a ea 85  |$,.X$,",")-1):..|
000042f0  3a ee 85 ea f7 85 3a f2  4d 28 22 45 49 43 32 22  |:.....:.M("EIC2"|
00004300  29 0d 02 3e 47 6b 25 3d  a0 28 22 43 41 73 6d 4c  |)..>Gk%=.("CAsmL|
00004310  69 62 72 61 72 79 5f 22  2b 4a 24 29 3a f7 85 3a  |ibrary_"+J$):..:|
00004320  54 79 25 3d 71 5f 25 3a  5a 25 3d 54 79 25 2b 28  |Ty%=q_%:Z%=Ty%+(|
00004330  70 25 2a 38 29 3a c8 95  5a 25 3e 54 79 25 3a e7  |p%*8):..Z%>Ty%:.|
00004340  21 54 79 25 3d 6b 25 8c  0d 02 3f 0c 54 79 25 3d  |!Ty%=k%...?.Ty%=|
00004350  5a 25 2b 31 0d 02 40 0b  cc 54 79 25 2b 3d 38 0d  |Z%+1..@..Ty%+=8.|
00004360  02 41 10 cd 3a ce 3a e7  54 79 25 3d 5a 25 8c 0d  |.A..:.:.Ty%=Z%..|
00004370  02 42 0b e7 70 25 3e 3d  6b 8c 0d 02 43 0d 85 31  |.B..p%>=k...C..1|
00004380  2c 22 45 49 43 33 22 0d  02 44 3d cd 3a 21 5a 25  |,"EIC3"..D=.:!Z%|
00004390  3d 6b 25 3a 46 24 28 6b  25 29 3d 4a 24 3a 70 25  |=k%:F$(k%)=J$:p%|
000043a0  2b 3d 31 3a 4f 25 3d 63  79 25 2b 33 32 37 36 38  |+=1:O%=cy%+32768|
000043b0  3a 50 25 3d 30 3a e7 a4  5a 28 22 46 4e 68 5f 22  |:P%=0:..Z("FNh_"|
000043c0  2b 4a 24 29 0d 02 45 47  cd 3a 58 24 3d c1 58 24  |+J$)..EG.:X$=.X$|
000043d0  2c a9 28 4a 24 29 2b 32  29 3a c8 95 97 28 58 24  |,.(J$)+2):...(X$|
000043e0  29 3d 97 28 22 20 22 29  3a 58 24 3d c1 58 24 2c  |)=.(" "):X$=.X$,|
000043f0  32 29 3a ce 3a ce 3a c8  99 26 34 30 30 65 63 2c  |2):.:.:..&400ec,|
00004400  63 79 25 2c 2d 31 3a f7  85 3a e1 0d 02 46 1c dd  |cy%,-1:..:...F..|
00004410  f2 4a 79 ea 52 25 2c 5a  25 2c 4e 25 2c 45 79 25  |.Jy.R%,Z%,N%,Ey%|
00004420  3a e7 70 25 3d 30 8c 0d  02 47 0f e7 a4 68 5f 44  |:.p%=0...G...h_D|
00004430  45 46 41 55 4c 54 0d 02  48 1e cd 3a 45 79 25 3d  |EFAULT..H..:Ey%=|
00004440  71 5f 25 3a 4e 25 3d 70  25 3a e7 28 55 25 80 32  |q_%:N%=p%:.(U%.2|
00004450  29 3d 30 8c 0d 02 49 29  de 5a 25 70 25 2a 34 3a  |)=0...I).Z%p%*4:|
00004460  c8 99 37 39 2c 70 25 2c  5a 25 2b 26 63 30 30 30  |..79,p%,Z%+&c000|
00004470  30 30 30 30 2c 33 2c 2c  45 79 25 2c 38 0d 02 4a  |0000,3,,Ey%,8..J|
00004480  89 cd 3a 5b 4f 50 54 55  25 3a 2e 51 79 20 44 43  |..:[OPTU%:.Qy DC|
00004490  44 61 79 3a 44 43 44 52  79 3a 5d 3a c8 95 4e 25  |Day:DCDRy:]:..N%|
000044a0  3e 30 3a 5b 4f 50 54 55  25 3a 44 43 44 21 45 79  |>0:[OPTU%:DCD!Ey|
000044b0  25 3a 44 43 44 45 79 25  21 34 3a 5d 3a 45 79 25  |%:DCDEy%!4:]:Ey%|
000044c0  2b 3d 38 3a 4e 25 2d 3d  31 3a ce 3a 5b 4f 50 54  |+=8:N%-=1:.:[OPT|
000044d0  55 25 3a 44 43 44 30 3a  5d 3a 5b 4f 50 54 55 25  |U%:DCD0:]:[OPTU%|
000044e0  3a 41 4c 49 47 4e 3a 2e  41 79 3a 5d 3a 5a 25 3d  |:ALIGN:.Ay:]:Z%=|
000044f0  50 25 3a e7 a4 6a 75 6d  70 62 6c 6f 63 6b 5f 44  |P%:..jumpblock_D|
00004500  45 46 41 55 4c 54 0d 02  4b 49 52 79 3d 28 50 25  |EFAULT..KIRy=(P%|
00004510  2d 5a 25 29 3e 3e 32 3a  4e 25 3d 70 25 3a 45 79  |-Z%)>>2:N%=p%:Ey|
00004520  25 3d 71 5f 25 3a c8 95  4e 25 3e 30 3a 5a 25 3d  |%=q_%:..N%>0:Z%=|
00004530  50 25 3a e7 a4 5a 28 22  46 4e 6a 75 6d 70 62 6c  |P%:..Z("FNjumpbl|
00004540  6f 63 6b 5f 22 2b 46 24  28 21 45 79 25 29 29 0d  |ock_"+F$(!Ey%)).|
00004550  02 4c 25 45 79 25 21 34  3d 28 50 25 2d 5a 25 29  |.L%Ey%!4=(P%-Z%)|
00004560  3e 3e 32 3a 45 79 25 2b  3d 38 3a 4e 25 2d 3d 31  |>>2:Ey%+=8:N%-=1|
00004570  3a ce 3a e1 0d 02 4d 83  dd f2 5f 5f ea 45 79 3a  |:.:...M...__.Ey:|
00004580  5b 4f 50 54 55 25 3a 41  4c 49 47 4e 3a 2e 4d 79  |[OPTU%:ALIGN:.My|
00004590  3a 53 54 4d 46 44 28 41  29 21 2c 7b 34 2d 35 2c  |:STMFD(A)!,{4-5,|
000045a0  5a 7d 3a 42 4c 20 50 25  2b 28 31 33 3c 3c 32 29  |Z}:BL P%+(13<<2)|
000045b0  3a 2e 45 79 20 44 43 44  51 79 2d 45 79 3a 44 43  |:.Ey DCDQy-Ey:DC|
000045c0  44 41 79 2d 45 79 3a 44  43 44 6a 2d 45 79 3a 44  |DAy-Ey:DCDj-Ey:D|
000045d0  43 44 4e 3a 44 43 44 60  3a 2e 65 3a 44 43 44 30  |CDN:DCD`:.e:DCD0|
000045e0  3a 44 43 44 30 3a 44 43  44 30 3a 44 43 44 30 3a  |:DCD0:DCD0:DCD0:|
000045f0  4c 44 52 20 41 2c 65 0d  02 4e bb 4c 44 4d 46 44  |LDR A,e..N.LDMFD|
00004600  28 41 29 21 2c 7b 68 2c  7a 2c 6c 2c 5a 7d 3a 4d  |(A)!,{h,z,l,Z}:M|
00004610  4f 56 70 63 2c 5a 3a 42  49 43 20 35 2c 5a 2c 23  |OVpc,Z:BIC 5,Z,#|
00004620  26 66 63 30 30 30 30 30  33 3a 4c 44 4d 49 41 35  |&fc000003:LDMIA5|
00004630  2c 7b 30 2d 34 7d 3a 41  44 44 30 2c 30 2c 35 3a  |,{0-4}:ADD0,0,5:|
00004640  41 44 44 31 2c 31 2c 35  3a 41 44 44 32 2c 32 2c  |ADD1,1,5:ADD2,2,|
00004650  35 3a 4d 4f 56 35 2c 23  30 3a 53 57 49 20 26 66  |5:MOV5,#0:SWI &f|
00004660  63 62 38 30 3a 53 54 52  76 63 30 2c 65 2b 28 31  |cb80:STRvc0,e+(1|
00004670  3c 3c 32 29 3a 53 54 52  76 63 31 2c 65 2b 28 33  |<<2):STRvc1,e+(3|
00004680  3c 3c 32 29 3a 4c 44 4d  46 44 28 41 29 21 2c 7b  |<<2):LDMFD(A)!,{|
00004690  34 2d 35 2c 70 63 7d 3a  2e 69 3a a4 4a 3a 4d 4f  |4-5,pc}:.i:.J:MO|
000046a0  56 32 2c 5a 3a 4d 4f 56  31 2c 41 3a 4d 4f 56 30  |V2,Z:MOV1,A:MOV0|
000046b0  2c 68 0d 02 4f 71 53 57  49 20 26 66 63 62 38 31  |,h..OqSWI &fcb81|
000046c0  3a 4d 4f 56 76 63 31 2c  23 30 3a 53 54 52 76 63  |:MOVvc1,#0:STRvc|
000046d0  31 2c 65 2b 28 33 3c 3c  32 29 3a 4d 4f 56 70 63  |1,e+(3<<2):MOVpc|
000046e0  2c 32 3a 4d 4f 56 31 33  2c 31 32 3a 5d 3a 6a 3d  |,2:MOV13,12:]:j=|
000046f0  50 25 3a f2 57 3a f2 6a  3a 4e 3d 28 4e 2b 33 29  |P%:.W:.j:N=(N+3)|
00004700  80 2d 34 3a 50 25 2b 3d  4e 2d 31 3a 4f 25 2b 3d  |.-4:P%+=N-1:O%+=|
00004710  4e 2d 31 3a 5b 4f 50 54  55 25 3a 44 43 42 30 3a  |N-1:[OPTU%:DCB0:|
00004720  5d 3a e1 0d 02 50 1c dd  f2 68 5f e7 50 25 3c 3e  |]:...P...h_.P%<>|
00004730  33 32 37 36 38 8c 85 31  2c 22 45 49 43 34 22 0d  |32768..1,"EIC4".|
00004740  02 51 6f 5b 4f 50 54 55  25 3a 41 44 52 34 2c 6d  |.Qo[OPTU%:ADR4,m|
00004750  3a 4d 4f 56 35 2c 23 63  79 3a 53 57 49 20 26 66  |:MOV5,#cy:SWI &f|
00004760  63 62 38 30 3a a4 52 28  22 76 63 22 2c 32 2c 74  |cb80:.R("vc",2,t|
00004770  75 29 3a 42 76 63 20 71  79 3a 53 57 49 20 34 33  |u):Bvc qy:SWI 43|
00004780  3a 2e 6d 3a 44 43 44 51  79 2d 6d 3a 44 43 44 41  |:.m:DCDQy-m:DCDA|
00004790  79 2d 6d 3a 44 43 44 6a  2d 6d 3a 44 43 44 4e 3a  |y-m:DCDj-m:DCDN:|
000047a0  44 43 44 60 3a 44 43 44  66 79 3a 5d 3a e1 0d 02  |DCD`:DCDfy:]:...|
000047b0  52 73 dd a4 4a 5b 4f 50  54 55 25 3a 53 54 4d 46  |Rs..J[OPTU%:STMF|
000047c0  44 28 41 29 21 2c 7b 68  2c 7a 2c 6c 2c 5a 7d 3a  |D(A)!,{h,z,l,Z}:|
000047d0  4d 4f 56 20 7a 2c 70 63  3a a4 52 28 22 22 2c 5a  |MOV z,pc:.R("",Z|
000047e0  2c 65 29 3a 53 54 52 20  41 2c 5b 5a 5d 2c 23 34  |,e):STR A,[Z],#4|
000047f0  3a 4c 44 4d 49 41 28 5a  29 21 2c 7b 68 2c 6c 2c  |:LDMIA(Z)!,{h,l,|
00004800  41 7d 3a 80 20 7a 2c 7a  2c 23 26 66 63 30 30 30  |A}:. z,z,#&fc000|
00004810  30 30 33 3a 84 52 20 5a  2c 5a 2c 7a 3a 5d 3a 3d  |003:.R Z,Z,z:]:=|
00004820  30 0d 02 53 5e dd f2 6b  79 28 76 79 25 2c 42 79  |0..S^..ky(vy%,By|
00004830  25 2c 4c 4a 25 29 f2 41  28 22 3c 42 61 73 69 63  |%,LJ%).A("<Basic|
00004840  56 24 4c 69 62 3e 2e 48  65 61 70 22 2c 38 29 3a  |V$Lib>.Heap",8):|
00004850  f2 41 28 22 3c 42 61 73  69 63 56 24 4c 69 62 3e  |.A("<BasicV$Lib>|
00004860  2e 4d 65 73 73 61 67 65  22 2c 31 29 3a e7 a4 6d  |.Message",1):..m|
00004870  28 76 79 25 2c 42 79 25  2c 4c 4a 25 2c 30 29 0d  |(vy%,By%,LJ%,0).|
00004880  02 54 0f d6 4d 79 3a ee  85 d6 69 3a f2 78 0d 02  |.T..My:...i:.x..|
00004890  55 05 e1 0d 02 56 54 dd  a4 6d 28 76 79 25 2c 42  |U....VT..m(vy%,B|
000048a0  79 25 2c 4c 4a 25 2c 7a  79 25 29 ea 4c 25 2c 4f  |y%,LJ%,zy%).L%,O|
000048b0  25 2c 50 25 2c 55 25 2c  75 75 25 2c 48 25 3a ea  |%,P%,U%,uu%,H%:.|
000048c0  44 4a 3a ea 64 4a 2c 76  4a 2c 71 4a 2c 69 5f 2c  |DJ:.dJ,vJ,qJ,i_,|
000048d0  65 4a 2c 61 4a 3a ea 65  79 2c 49 79 2c 65 69 3a  |eJ,aJ:.ey,Iy,ei:|
000048e0  e7 7a 79 25 3d 30 8c 0d  02 57 3a f2 41 28 22 3c  |.zy%=0...W:.A("<|
000048f0  42 61 73 69 63 56 24 4c  69 62 3e 2e 48 65 61 70  |BasicV$Lib>.Heap|
00004900  22 2c 38 29 3a f2 41 28  22 3c 42 61 73 69 63 56  |",8):.A("<BasicV|
00004910  24 4c 69 62 3e 2e 4d 65  73 73 61 67 65 22 2c 31  |$Lib>.Message",1|
00004920  29 0d 02 58 7e cd 3a de  79 25 76 79 25 3a 44 4a  |)..X~.:.y%vy%:DJ|
00004930  3d 41 3a 64 4a 3d 31 3c  3c 33 31 3a 76 4a 3d 31  |=A:dJ=1<<31:vJ=1|
00004940  3c 3c 33 30 3a 71 4a 3d  31 3c 3c 32 39 3a 69 5f  |<<30:qJ=1<<29:i_|
00004950  3d 31 3c 3c 32 38 3a 65  4a 3d 31 3c 3c 32 37 3a  |=1<<28:eJ=1<<27:|
00004960  61 4a 3d 31 3c 3c 32 36  3a 65 79 3d 31 3c 3c 31  |aJ=1<<26:ey=1<<1|
00004970  37 3a 49 79 3d 32 35 36  3a 65 69 3d 49 79 2b 65  |7:Iy=256:ei=Iy+e|
00004980  79 3a c8 99 26 36 30 36  63 30 3a ea 85 3a ee 85  |y:..&606c0:..:..|
00004990  ea f7 85 3a c8 99 26 36  30 36 63 31 3a f2 48 0d  |...:..&606c1:.H.|
000049a0  02 59 22 48 25 3d 76 79  25 3a 4c 25 3d 79 25 2b  |.Y"H%=vy%:L%=y%+|
000049b0  76 79 25 3a e7 42 79 25  3c 3e 30 8c 42 79 25 3d  |vy%:.By%<>0.By%=|
000049c0  34 0d 02 5a 22 e3 55 25  3d 38 2b 42 79 25 b8 31  |4..Z".U%=8+By%.1|
000049d0  30 2b 42 79 25 88 32 3a  e7 28 55 25 80 34 29 3c  |0+By%.2:.(U%.4)<|
000049e0  3e 30 8c 0d 02 5b 11 4f  25 3d 79 25 3a e7 7a 79  |>0...[.O%=y%:.zy|
000049f0  25 3d 31 8c 0d 02 5c 0c  50 25 3d 33 32 37 36 38  |%=1...\.P%=32768|
00004a00  0d 02 5d 09 cc 50 25 3d  30 0d 02 5e 05 cd 0d 02  |..]..P%=0..^....|
00004a10  5f 0f cc 4f 25 3d 30 3a  50 25 3d 79 25 0d 02 60  |_..O%=0:P%=y%..`|
00004a20  0c cd 3a c8 8e 7a 79 25  ca 0d 02 61 30 c9 31 3a  |..:..zy%...a0.1:|
00004a30  f2 57 3a f2 68 5f 3a f2  57 3a f2 72 3a f2 57 3a  |.W:.h_:.W:.r:.W:|
00004a40  f2 4a 79 3a 6a 3d 50 25  3a f2 57 3a f2 6a 3a 4e  |.Jy:j=P%:.W:.j:N|
00004a50  3d 28 4e 2b 33 29 80 2d  34 0d 02 62 28 c9 30 3a  |=(N+3).-4..b(.0:|
00004a60  f2 57 3a f2 72 3a f2 57  3a f2 4a 5f 3a f2 57 3a  |.W:.r:.W:.J_:.W:|
00004a70  f2 78 79 3a f2 57 3a f2  4a 79 3a f2 57 3a f2 5f  |.xy:.W:.Jy:.W:._|
00004a80  5f 0d 02 63 0c c9 32 3a  f2 57 3a f2 72 0d 02 64  |_..c..2:.W:.r..d|
00004a90  17 cb 3a e7 55 25 80 34  8c 4c 25 3d 4f 25 8b 4c  |..:.U%.4.L%=O%.L|
00004aa0  25 3d 50 25 0d 02 65 0e  e7 28 55 25 80 32 29 3d  |%=P%..e..(U%.2)=|
00004ab0  30 8c 0d 02 66 17 c8 99  26 64 63 62 39 33 2c 30  |0...f...&dcb93,0|
00004ac0  2c 79 25 2c 4c 25 2d 79  25 0d 02 67 21 cd 3a 48  |,y%,L%-y%..g!.:H|
00004ad0  25 3d 4c 25 2d 79 25 3a  ed 55 25 3a c8 99 26 36  |%=L%-y%:.U%:..&6|
00004ae0  30 36 63 31 3a e7 42 79  25 8c 0d 02 68 0b e7 7a  |06c1:.By%...h..z|
00004af0  79 25 3d 30 8c 0d 02 69  10 4d 79 2b 3d 79 25 3a  |y%=0...i.My+=y%:|
00004b00  69 2b 3d 79 25 0d 02 6a  05 cd 0d 02 6b 11 cd 3a  |i+=y%..j....k..:|
00004b10  e7 72 79 80 7a 79 25 3c  3e 32 8c 0d 02 6c 09 e7  |.ry.zy%<>2...l..|
00004b20  42 79 25 8c 0d 02 6d 18  48 25 3d 41 79 3a e7 7a  |By%...m.H%=Ay:.z|
00004b30  79 25 8c 48 25 2d 3d 33  32 37 36 38 0d 02 6e 0e  |y%.H%-=32768..n.|
00004b40  cc 85 31 2c 22 45 49 43  39 22 0d 02 6f 05 cd 0d  |..1,"EIC9"..o...|
00004b50  02 70 0b cd 3a e7 4c 4a  25 8c 0d 02 71 60 f1 22  |.p..:.LJ%...q`."|
00004b60  41 73 73 65 6d 62 6c 65  64 20 74 6f 20 26 22 3b  |Assembled to &";|
00004b70  7e 48 25 3b 22 20 3d 20  22 3b 28 28 48 25 2a 31  |~H%;" = ";((H%*1|
00004b80  30 2b 35 31 32 29 81 31  30 32 34 29 2f 31 30 3b  |0+512).1024)/10;|
00004b90  22 4b 22 3a f1 22 43 6f  75 6c 64 20 61 73 73 65  |"K":."Could asse|
00004ba0  6d 62 6c 65 20 77 69 74  68 20 22 3b 76 79 25 2d  |mble with ";vy%-|
00004bb0  48 25 3b 22 20 6c 65 73  73 22 0d 02 72 09 cd 3a  |H%;" less"..r..:|
00004bc0  3d 48 25 0d 02 73 1a dd  a4 5f 54 65 6d 70 6c 61  |=H%..s..._Templa|
00004bd0  74 65 5f 76 65 72 73 69  6f 6e 3d 32 31 0d 02 74  |te_version=21..t|
00004be0  62 dd a4 5f 68 61 72 64  5f 69 6e 69 74 69 61 6c  |b.._hard_initial|
00004bf0  69 73 65 5f 54 65 6d 70  6c 61 74 65 3a 5a 5f 25  |ise_Template:Z_%|
00004c00  3d a3 3a 6e 25 3d a3 3a  69 25 3d a3 3a 6f 79 25  |=.:n%=.:i%=.:oy%|
00004c10  3d a3 3a 41 4a 25 3d a3  3a 5a 75 25 3d 2d 31 3a  |=.:AJ%=.:Zu%=-1:|
00004c20  78 75 25 3d 31 3a 76 79  3d 37 3a 42 79 3d 31 36  |xu%=1:vy=7:By=16|
00004c30  3a 64 79 3d 31 34 3a 73  79 3d 31 35 3a 3d 30 0d  |:dy=14:sy=15:=0.|
00004c40  02 75 14 dd f2 48 79 ea  4e 25 3a e7 6e 25 3c 3e  |.u...Hy.N%:.n%<>|
00004c50  2d 31 8c 0d 02 76 08 e7  69 25 8c 0d 02 77 13 c8  |-1...v..i%...w..|
00004c60  99 26 36 36 35 63 31 2c  59 25 2c b9 2c a3 0d 02  |.&665c1,Y%,.,...|
00004c70  78 31 cc e3 4e 25 3d 30  b8 32 35 35 3a c8 95 6e  |x1..N%=0.255:..n|
00004c80  25 3f 4e 25 3a c8 99 26  36 30 30 38 32 2c 4e 25  |%?N%:..&60082,N%|
00004c90  3a 6e 25 3f 4e 25 2d 3d  31 3a ce 3a ed 4e 25 0d  |:n%?N%-=1:.:.N%.|
00004ca0  02 79 05 cd 0d 02 7a 07  cd 3a e1 0d 02 7b 2e dd  |.y....z..:...{..|
00004cb0  f2 4c 79 ea 44 25 2c 64  25 2c 51 25 2c 46 25 2c  |.Ly.D%,d%,Q%,F%,|
00004cc0  50 24 2c 74 75 25 2c 48  79 25 2c 67 79 25 2c 78  |P$,tu%,Hy%,gy%,x|
00004cd0  25 2c 52 25 3a e7 6e 25  8c 0d 02 7c 08 e7 69 25  |%,R%:.n%...|..i%|
00004ce0  8c 0d 02 7d 15 6f 79 25  3d 28 69 25 3d 2b 31 29  |...}.oy%=(i%=+1)|
00004cf0  3a e7 6f 79 25 8c 0d 02  7e 09 51 25 3d 2b 31 0d  |:.oy%...~.Q%=+1.|
00004d00  02 7f 09 cc 51 25 3d 30  0d 02 80 1b cd 3a 48 79  |....Q%=0.....:Hy|
00004d10  25 3d 31 34 30 2b 28 31  3c 3c 32 31 29 3a e7 41  |%=140+(1<<21):.A|
00004d20  4a 25 8c 0d 02 81 1e 4f  24 3d a4 45 28 22 4d 65  |J%.....O$=.E("Me|
00004d30  6e 75 46 6f 6e 74 22 29  3a e7 4f 24 3c 3e 22 22  |nuFont"):.O$<>""|
00004d40  8c 0d 02 82 93 48 79 25  2b 3d 28 31 3c 3c 31 38  |.....Hy%+=(1<<18|
00004d50  29 2b 28 31 3c 3c 31 39  29 3a f2 47 28 67 79 25  |)+(1<<19):.G(gy%|
00004d60  2c 38 2b a9 28 4f 24 29  2b 31 29 3a 24 28 67 79  |,8+.(O$)+1):$(gy|
00004d70  25 2b 38 29 3d 4f 24 3a  67 79 25 21 30 3d 31 36  |%+8)=O$:gy%!0=16|
00004d80  2a bb 28 a4 45 28 22 4d  65 6e 75 46 6f 6e 74 57  |*.(.E("MenuFontW|
00004d90  69 64 74 68 22 29 29 3a  67 79 25 21 34 3d 31 36  |idth")):gy%!4=16|
00004da0  2a bb 28 a4 45 28 22 4d  65 6e 75 46 6f 6e 74 48  |*.(.E("MenuFontH|
00004db0  65 69 67 68 74 22 29 29  3a e7 a4 45 28 22 4d 65  |eight")):..E("Me|
00004dc0  6e 75 46 6f 6e 74 4c 6f  77 52 65 7a 22 29 3d 22  |nuFontLowRez")="|
00004dd0  4e 4f 22 8c 0d 02 83 10  48 79 25 2b 3d 28 31 3c  |NO".....Hy%+=(1<|
00004de0  3c 31 37 29 0d 02 84 11  cc 48 79 25 2b 3d 28 31  |<17).....Hy%+=(1|
00004df0  3c 3c 31 36 29 0d 02 85  05 cd 0d 02 86 05 cd 0d  |<<16)...........|
00004e00  02 87 2a cd 3a c8 99 26  34 36 35 63 30 2c 59 25  |..*.:..&465c0,Y%|
00004e10  2c 30 2c 30 2c 51 25 2c  51 25 2c 30 2c 30 2c 48  |,0,0,Q%,Q%,0,0,H|
00004e20  79 25 2c 67 79 25 b8 6e  25 0d 02 88 21 cc f2 47  |y%,gy%.n%...!..G|
00004e30  28 6e 25 2c 32 35 36 29  3a c8 99 26 64 63 62 39  |(n%,256):..&dcb9|
00004e40  33 2c 30 2c 6e 25 2c 32  35 36 0d 02 89 05 cd 0d  |3,0,n%,256......|
00004e50  02 8a 0a cc 6e 25 3d 2d  31 0d 02 8b 34 cd 3a 50  |....n%=-1...4.:P|
00004e60  24 3d a4 4b 28 22 3c 22  2b 47 24 2b 22 24 44 69  |$=.K("<"+G$+"$Di|
00004e70  72 3e 2e 53 70 72 69 74  65 73 22 29 3a 44 25 3d  |r>.Sprites"):D%=|
00004e80  a4 49 28 50 24 29 3a e7  44 25 3e 30 8c 0d 02 8c  |.I(P$):.D%>0....|
00004e90  6d 46 25 3d a4 41 28 31  32 38 29 3a 78 25 3d 30  |mF%=.A(128):x%=0|
00004ea0  3a f5 c8 99 31 32 2c 31  32 2c 22 3c 22 2b 2b 47  |:...12,12,"<"++G|
00004eb0  24 2b 22 24 44 69 72 3e  22 2c 46 25 2c 31 2c 78  |$+"$Dir>",F%,1,x|
00004ec0  25 2c 31 32 38 2c 22 53  70 72 69 74 65 73 2a 22  |%,128,"Sprites*"|
00004ed0  b8 2c 2c 2c 52 25 2c 78  25 3a e7 52 25 3d 31 80  |.,,,R%,x%:.R%=1.|
00004ee0  46 25 21 32 30 3d 34 30  38 39 80 44 25 3c 46 25  |F%!20=4089.D%<F%|
00004ef0  21 38 8c 44 25 3d 46 25  21 38 0d 02 8d 6c fd 78  |!8.D%=F%!8...l.x|
00004f00  25 3c 30 3a f2 43 28 46  25 2c 31 32 38 29 3a f2  |%<0:.C(F%,128):.|
00004f10  47 28 65 25 2c 44 25 2b  31 36 29 3a 65 25 21 30  |G(e%,D%+16):e%!0|
00004f20  3d 44 25 2b 31 36 3a 65  25 21 34 3d 30 3a 65 25  |=D%+16:e%!4=0:e%|
00004f30  21 38 3d 31 36 3a 65 25  21 31 32 3d 31 36 3a c8  |!8=16:e%!12=16:.|
00004f40  99 26 32 30 30 32 65 2c  35 32 32 2c 65 25 2c 50  |.&2002e,522,e%,P|
00004f50  24 b8 64 25 3b 51 25 3a  73 24 3d 50 24 3a e7 a4  |$.d%;Q%:s$=P$:..|
00004f60  46 28 51 25 29 8c 0d 02  8e 2a f2 46 28 22 52 65  |F(Q%)....*.F("Re|
00004f70  61 73 6f 6e 22 2c 22 53  70 72 69 74 65 73 22 29  |ason","Sprites")|
00004f80  3a f2 79 28 64 25 29 3a  f2 4c 28 34 29 3a f2 53  |:.y(d%):.L(4):.S|
00004f90  0d 02 8f 05 cd 0d 02 90  09 cc 65 25 3d 30 0d 02  |..........e%=0..|
00004fa0  91 1d cd 3a f2 50 5f 28  22 54 65 6d 70 6c 61 74  |...:.P_("Templat|
00004fb0  65 73 22 29 3a e7 65 25  3e 30 8c 0d 02 92 20 f2  |es"):.e%>0.... .|
00004fc0  54 28 22 50 72 6f 67 49  6e 66 6f 22 2c 65 25 2c  |T("ProgInfo",e%,|
00004fd0  22 50 72 6f 67 49 6e 66  6f 22 29 0d 02 93 21 cc  |"ProgInfo")...!.|
00004fe0  f2 54 28 22 50 72 6f 67  49 6e 66 6f 22 2c 2b 31  |.T("ProgInfo",+1|
00004ff0  2c 22 50 72 6f 67 49 6e  66 6f 22 29 0d 02 94 12  |,"ProgInfo")....|
00005000  cd 3a 73 25 3d 30 3a e7  5a 5f 25 3d 30 8c 0d 02  |.:s%=0:.Z_%=0...|
00005010  95 07 f2 46 79 0d 02 96  23 cd 3a 77 5f 25 3d a4  |...Fy...#.:w_%=.|
00005020  42 79 28 22 51 75 65 72  79 22 2c 74 75 25 2c 2b  |By("Query",tu%,+|
00005030  31 29 3a f2 61 5f 3a e1  0d 02 97 2f dd f2 73 79  |1):.a_:..../..sy|
00005040  3a 50 24 3d a4 4b 28 22  3c 22 2b 47 24 2b 22 24  |:P$=.K("<"+G$+"$|
00005050  44 69 72 3e 2e 53 70 72  69 74 65 73 22 29 3a e7  |Dir>.Sprites"):.|
00005060  50 24 3c 3e 73 24 8c 0d  02 98 30 65 25 21 34 3d  |P$<>s$....0e%!4=|
00005070  30 3a 65 25 21 38 3d 31  36 3a 65 25 21 31 32 3d  |0:e%!8=16:e%!12=|
00005080  31 36 3a c8 99 34 36 2c  35 32 32 2c 65 25 2c 50  |16:..46,522,e%,P|
00005090  24 3a 73 24 3d 50 24 0d  02 99 07 cd 3a e1 0d 02  |$:s$=P$.....:...|
000050a0  9a 2e dd a4 50 72 6f 67  49 6e 66 6f 28 4d 25 29  |....ProgInfo(M%)|
000050b0  f2 73 28 4d 25 21 28 38  38 2b 28 76 79 3c 3c 35  |.s(M%!(88+(vy<<5|
000050c0  29 2b 32 30 29 2c 44 24  29 3a 3d 30 0d 02 9b 1a  |)+20),D$):=0....|
000050d0  dd f2 4e 79 28 63 25 2c  62 25 2c 5f 25 2c 54 25  |..Ny(c%,b%,_%,T%|
000050e0  29 c8 8e 54 25 ca 0d 02  9c 21 c9 64 79 2c 73 79  |)..T%....!.dy,sy|
000050f0  3a 63 25 3d a4 47 28 31  2c a4 53 28 30 29 29 3a  |:c%=.G(1,.S(0)):|
00005100  e7 5f 25 3c 3e 31 8c 0d  02 9d 06 f2 68 0d 02 9e  |._%<>1......h...|
00005110  05 cd 0d 02 9f 0d 7f e7  5f 25 80 32 34 30 8c 0d  |........_%.240..|
00005120  02 a0 1f 57 25 21 30 3d  73 25 3a 57 25 21 34 3d  |...W%!0=s%:W%!4=|
00005130  31 3a c8 99 26 34 30 30  64 30 2c 2c 57 25 0d 02  |1:..&400d0,,W%..|
00005140  a1 05 cd 0d 02 a2 07 cb  3a e1 0d 02 a3 0e dd f2  |........:.......|
00005150  46 79 e7 73 25 3d 30 8c  0d 02 a4 09 e7 6f 79 25  |Fy.s%=0......oy%|
00005160  8c 0d 02 a5 24 de 4c 5f  25 34 3a 21 4c 5f 25 3d  |....$.L_%4:!L_%=|
00005170  30 3a e7 a4 61 28 22 50  72 6f 67 49 6e 66 6f 22  |0:..a("ProgInfo"|
00005180  2c 4c 5f 25 29 0d 02 a6  0b 73 25 3d 21 4c 5f 25  |,L_%)....s%=!L_%|
00005190  0d 02 a7 17 cc e7 a4 68  28 22 50 72 6f 67 49 6e  |.......h("ProgIn|
000051a0  66 6f 22 2c 73 25 29 0d  02 a8 05 cd 0d 02 a9 09  |fo",s%).........|
000051b0  cc e7 69 25 8c 0d 02 aa  09 e7 6f 79 25 8c 0d 02  |..i%......oy%...|
000051c0  ab 13 c8 99 26 34 36 35  63 36 2c 59 25 2c 4c 5f  |....&465c6,Y%,L_|
000051d0  25 0d 02 ac 13 cc c8 99  26 34 36 35 63 36 2c 59  |%.......&465c6,Y|
000051e0  25 2c 73 25 0d 02 ad 05  cd 0d 02 ae 05 cd 0d 02  |%,s%............|
000051f0  af 07 cd 3a e1 0d 02 b0  57 dd f2 50 5f 28 74 24  |...:....W..P_(t$|
00005200  29 ea 47 4a 25 2c 6b 25  2c 44 25 2c 64 25 2c 51  |).GJ%,k%,D%,d%,Q|
00005210  25 2c 53 25 3a ea 6c 4a  25 2c 50 24 2c 58 79 25  |%,S%:.lJ%,P$,Xy%|
00005220  2c 68 79 25 3a 50 24 3d  22 3c 22 2b 47 24 2b 22  |,hy%:P$="<"+G$+"|
00005230  24 44 69 72 3e 2e 22 2b  74 24 3a 44 25 3d a4 49  |$Dir>."+t$:D%=.I|
00005240  28 50 24 29 3a e7 44 25  3c 3d 30 8c 0d 02 b1 32  |(P$):.D%<=0....2|
00005250  f2 46 28 22 52 65 61 73  6f 6e 22 2c 74 24 29 3a  |.F("Reason",t$):|
00005260  f2 46 28 22 53 79 73 22  2c 22 4e 6f 74 20 66 6f  |.F("Sys","Not fo|
00005270  75 6e 64 22 29 3a f2 4c  28 34 29 3a f2 53 0d 02  |und"):.L(4):.S..|
00005280  b2 4d cd 3a f2 47 28 6b  25 2c 44 25 29 3a f2 47  |.M.:.G(k%,D%):.G|
00005290  28 58 79 25 2c 44 25 2b  46 29 3a 68 79 25 3d 58  |(Xy%,D%+F):hy%=X|
000052a0  79 25 2b 50 79 3a 6c 4a  25 3d 58 79 25 2b 46 3a  |y%+Py:lJ%=Xy%+F:|
000052b0  c8 99 26 36 30 30 64 39  2c 2c 50 24 b8 64 25 3b  |..&600d9,,P$.d%;|
000052c0  51 25 3a e7 a4 46 28 51  25 29 8c 0d 02 b3 35 f2  |Q%:..F(Q%)....5.|
000052d0  46 28 22 52 65 61 73 6f  6e 22 2c 22 54 65 6d 70  |F("Reason","Temp|
000052e0  6c 61 74 65 73 22 29 3a  f2 79 28 64 25 29 3a f2  |lates"):.y(d%):.|
000052f0  4c 28 34 29 3a c8 99 26  36 30 30 64 61 3a f2 53  |L(4):..&600da:.S|
00005300  0d 02 b4 12 cd 3a ea 85  3a ee 85 ea f7 85 3a f2  |.....:..:.....:.|
00005310  6e 5f 0d 02 b5 51 78 25  3d 30 3a f5 68 79 25 21  |n_...Qx%=0:.hy%!|
00005320  30 3d 97 28 22 2a 22 29  3a c8 99 26 36 30 30 64  |0=.("*"):..&600d|
00005330  62 2c 2c 6c 4a 25 2c 6b  25 2c 6b 25 2b 44 25 2c  |b,,lJ%,k%,k%+D%,|
00005340  6e 25 2c 68 79 25 2c 78  25 b8 64 25 2c 2c 47 4a  |n%,hy%,x%.d%,,GJ|
00005350  25 2c 2c 2c 2c 78 25 3b  51 25 3a e7 a4 46 28 51  |%,,,,x%;Q%:..F(Q|
00005360  25 29 8c 0d 02 b6 16 f2  4b 28 64 25 29 3a c8 99  |%)......K(d%):..|
00005370  26 36 30 30 64 61 3a f2  53 0d 02 b7 0a cd 3a e7  |&600da:.S.....:.|
00005380  78 25 8c 0d 02 b8 26 e3  51 25 3d 30 b8 31 31 3a  |x%....&.Q%=0.11:|
00005390  e7 68 79 25 3f 51 25 3d  31 33 8c 68 79 25 3f 51  |.hy%?Q%=13.hy%?Q|
000053a0  25 3d 30 3a 51 25 3d 31  32 0d 02 b9 30 ed 51 25  |%=0:Q%=12...0.Q%|
000053b0  3a 58 79 25 21 62 79 3d  47 4a 25 2d 6b 25 3a 58  |:Xy%!by=GJ%-k%:X|
000053c0  79 25 21 67 3d 6b 25 3a  53 25 3d a4 76 28 58 79  |y%!g=k%:S%=.v(Xy|
000053d0  25 29 3a e7 53 25 3d 30  8c 0d 02 ba 16 f2 4c 28  |%):.S%=0......L(|
000053e0  31 36 29 3a c8 99 26 36  30 30 64 61 3a f2 53 0d  |16):..&600da:.S.|
000053f0  02 bb 17 cd 3a 53 25 21  63 3d 21 75 79 25 3a 21  |....:S%!c=!uy%:!|
00005400  75 79 25 3d 53 25 0d 02  bc 28 cd 3a fd 78 25 3d  |uy%=S%...(.:.x%=|
00005410  30 3a f7 85 3a c8 99 26  34 30 30 64 61 3a f2 5a  |0:..:..&400da:.Z|
00005420  28 58 79 25 29 3a f2 5a  28 6b 25 29 3a e1 0d 02  |(Xy%):.Z(k%):...|
00005430  bd 21 dd f2 6e 5f c8 99  26 36 30 30 64 61 3a f2  |.!..n_..&600da:.|
00005440  4d 28 22 54 65 6d 70 6c  61 74 65 22 29 3a e1 0d  |M("Template"):..|
00005450  02 be 27 dd a4 42 79 28  46 24 2c 5f 75 25 2c 6b  |..'..By(F$,_u%,k|
00005460  5f 25 29 3d a4 4a 79 28  46 24 2c 5f 75 25 2c 6b  |_%)=.Jy(F$,_u%,k|
00005470  5f 25 2c 22 22 29 0d 02  bf 32 dd a4 4a 79 28 46  |_%,"")...2..Jy(F|
00005480  24 2c 5f 75 25 2c 6b 5f  25 2c 57 24 29 ea 53 25  |$,_u%,k_%,W$).S%|
00005490  2c 6a 4a 25 2c 4a 25 3a  53 25 3d a4 43 28 46 24  |,jJ%,J%:S%=.C(F$|
000054a0  29 3a e7 53 25 3d 30 8c  0d 02 c0 06 f2 53 0d 02  |):.S%=0......S..|
000054b0  c1 22 cd 3a 6a 4a 25 3d  53 25 2b 46 3a 6a 4a 25  |.".:jJ%=S%+F:jJ%|
000054c0  21 36 34 3d 6b 5f 25 3a  e7 57 24 3c 3e 22 22 8c  |!64=k_%:.W$<>"".|
000054d0  0d 02 c2 12 4a 25 3d a4  5a 28 22 46 4e 22 2b 57  |....J%=.Z("FN"+W|
000054e0  24 29 0d 02 c3 11 cd 3a  e7 a4 7a 28 53 25 2c 4a  |$).....:..z(S%,J|
000054f0  25 29 8c 0d 02 c4 06 f2  53 0d 02 c5 10 cd 3a f2  |%)......S.....:.|
00005500  61 28 53 25 29 3a 3d 4a  25 0d 02 c6 29 dd f2 54  |a(S%):=J%...)..T|
00005510  28 46 24 2c 6b 5f 25 2c  57 24 29 ea 53 25 2c 4d  |(F$,k_%,W$).S%,M|
00005520  25 3a 53 25 3d a4 43 28  46 24 29 3a e7 53 25 3d  |%:S%=.C(F$):.S%=|
00005530  30 8c 0d 02 c7 06 f2 53  0d 02 c8 20 cd 3a 4d 25  |0......S... .:M%|
00005540  3d 53 25 2b 46 3a 4d 25  21 36 34 3d 6b 5f 25 3a  |=S%+F:M%!64=k_%:|
00005550  e7 57 24 3c 3e 22 22 8c  0d 02 c9 20 4d 25 3d a4  |.W$<>"".... M%=.|
00005560  5a 28 22 46 4e 22 2b 57  24 2b 22 28 22 2b c3 28  |Z("FN"+W$+"("+.(|
00005570  4d 25 29 2b 22 29 22 29  0d 02 ca 07 cd 3a e1 0d  |M%)+")").....:..|
00005580  02 cb 23 dd a4 68 28 46  24 2c f8 4a 79 25 29 ea  |..#..h(F$,.Jy%).|
00005590  4e 25 3a 3d a4 51 79 28  46 24 2c 4a 79 25 2c 4e  |N%:=.Qy(F$,Jy%,N|
000055a0  25 29 0d 02 cc 2a dd a4  51 79 28 46 24 2c f8 4a  |%)...*..Qy(F$,.J|
000055b0  79 25 2c f8 69 79 25 29  ea 53 25 2c 4b 25 3a 4b  |y%,.iy%).S%,K%:K|
000055c0  25 3d a3 3a e7 4a 79 25  3c 3d 30 8c 0d 02 cd 12  |%=.:.Jy%<=0.....|
000055d0  53 25 3d a4 43 28 46 24  29 3a e7 53 25 8c 0d 02  |S%=.C(F$):.S%...|
000055e0  ce 18 4b 25 3d a4 7a 28  53 25 2c 4a 79 25 29 3a  |..K%=.z(S%,Jy%):|
000055f0  e7 4b 25 3d a3 8c 0d 02  cf 13 69 79 25 3d 53 25  |.K%=......iy%=S%|
00005600  21 67 3a f2 61 28 53 25  29 0d 02 d0 05 cd 0d 02  |!g:.a(S%).......|
00005610  d1 09 cc 4b 25 3d b9 0d  02 d2 05 cd 0d 02 d3 09  |...K%=..........|
00005620  cc e7 69 25 8c 0d 02 d4  13 c8 99 26 34 36 35 63  |..i%.......&465c|
00005630  36 2c 59 25 2c 4a 79 25  0d 02 d5 05 cd 0d 02 d6  |6,Y%,Jy%........|
00005640  09 cd 3a 3d 4b 25 0d 02  d7 4d dd a4 60 28 46 24  |..:=K%...M..`(F$|
00005650  29 ea 53 25 2c 74 24 2c  42 5f 25 3a 53 25 3d 21  |).S%,t$,B_%:S%=!|
00005660  75 79 25 3a 42 5f 25 3d  a3 3a c8 95 53 25 80 28  |uy%:B_%=.:..S%.(|
00005670  ac 42 5f 25 29 3a 42 5f  25 3d 28 a4 47 79 28 53  |.B_%):B_%=(.Gy(S|
00005680  25 2b 50 79 2c 31 32 29  3d 46 24 29 3a e7 ac 42  |%+Py,12)=F$):..B|
00005690  5f 25 8c 0d 02 d8 0b 53  25 3d 53 25 21 63 0d 02  |_%.....S%=S%!c..|
000056a0  d9 0b cd 3a ce 3a 3d 53  25 0d 02 da 1f dd a4 43  |...:.:=S%......C|
000056b0  28 46 24 29 ea 53 25 3a  53 25 3d a4 60 28 46 24  |(F$).S%:S%=.`(F$|
000056c0  29 3a e7 53 25 3d 30 8c  0d 02 db 19 f2 46 28 22  |):.S%=0......F("|
000056d0  52 65 61 73 6f 6e 22 2c  46 24 29 3a f2 4c 28 33  |Reason",F$):.L(3|
000056e0  29 0d 02 dc 09 cd 3a 3d  53 25 0d 02 dd 14 dd a4  |).....:=S%......|
000056f0  7a 28 53 25 2c f8 4a 79  25 29 e7 69 25 8c 0d 02  |z(S%,.Jy%).i%...|
00005700  de 1d c8 99 26 36 36 35  63 33 2c 59 25 2c 53 25  |....&665c3,Y%,S%|
00005710  2b 46 2c 30 b8 4a 79 25  3b 53 25 0d 02 df 1a cc  |+F,0.Jy%;S%.....|
00005720  c8 99 26 36 30 30 63 31  2c 2c 53 25 2b 46 b8 4a  |..&600c1,,S%+F.J|
00005730  79 25 3b 53 25 0d 02 e0  14 cd 3a 53 25 3d a4 46  |y%;S%.....:S%=.F|
00005740  28 53 25 29 3a e7 53 25  8c 0d 02 e1 11 f2 4b 28  |(S%):.S%......K(|
00005750  4a 79 25 29 3a 4a 79 25  3d 30 0d 02 e2 09 cd 3a  |Jy%):Jy%=0.....:|
00005760  3d 53 25 0d 02 e3 3b dd  f2 43 5f 28 4d 25 2c 51  |=S%...;..C_(M%,Q|
00005770  25 2c 4d 79 25 29 ea 4a  25 2c 58 25 3a 58 25 3d  |%,My%).J%,X%:X%=|
00005780  41 5f 25 3c 3c 43 5f 25  3a 4a 25 3d 4d 25 21 38  |A_%<<C_%:J%=M%!8|
00005790  2d 4d 25 21 30 3a e7 58  25 3c 3d 4a 25 8c 0d 02  |-M%!0:.X%<=J%...|
000057a0  e4 0a 4d 25 21 30 3d 30  0d 02 e5 15 cc 58 25 3d  |..M%!0=0.....X%=|
000057b0  58 25 2d 4a 25 3a e7 4d  79 25 3c 30 8c 0d 02 e6  |X%-J%:.My%<0....|
000057c0  13 4d 79 25 3d 58 25 2b  28 4d 79 25 83 58 25 29  |.My%=X%+(My%.X%)|
000057d0  0d 02 e7 1b cd 3a 4d 25  21 30 3d 28 4d 25 21 30  |.....:M%!0=(M%!0|
000057e0  2b 4d 79 25 2a 51 25 29  83 58 25 0d 02 e8 14 cd  |+My%*Q%).X%.....|
000057f0  3a 4d 25 21 38 3d 4d 25  21 30 2b 4a 25 3a e1 0d  |:M%!8=M%!0+J%:..|
00005800  02 e9 43 dd f2 46 5f 28  4d 25 2c 51 25 2c 4d 79  |..C..F_(M%,Q%,My|
00005810  25 29 ea 4a 25 2c 58 25  3a 58 25 3d 28 46 79 25  |%).J%,X%:X%=(Fy%|
00005820  3c 3c 44 79 25 29 2d 39  36 3a 4a 25 3d 4d 25 21  |<<Dy%)-96:J%=M%!|
00005830  38 2d 4d 25 21 30 2b 34  38 3a e7 58 25 3c 3d 4a  |8-M%!0+48:.X%<=J|
00005840  25 8c 0d 02 ea 16 4d 25  21 38 3d 28 46 79 25 3c  |%.....M%!8=(Fy%<|
00005850  3c 44 79 25 29 2d 4a 25  0d 02 eb 15 cc 58 25 3d  |<Dy%)-J%.....X%=|
00005860  58 25 2d 4a 25 3a e7 4d  79 25 3c 30 8c 0d 02 ec  |X%-J%:.My%<0....|
00005870  13 4d 79 25 3d 58 25 2b  28 4d 79 25 83 58 25 29  |.My%=X%+(My%.X%)|
00005880  0d 02 ed 3d cd 3a 4d 25  21 38 3d 28 46 79 25 3c  |...=.:M%!8=(Fy%<|
00005890  3c 44 79 25 29 2d 4d 25  21 38 3a 4d 25 21 38 3d  |<Dy%)-M%!8:M%!8=|
000058a0  28 46 79 25 3c 3c 44 79  25 29 2d 28 28 4d 25 21  |(Fy%<<Dy%)-((M%!|
000058b0  38 2b 4d 79 25 2a 51 25  29 83 58 25 29 0d 02 ee  |8+My%*Q%).X%)...|
000058c0  19 cd 3a 4d 25 21 30 3d  4d 25 21 38 2d 28 4a 25  |..:M%!0=M%!8-(J%|
000058d0  2d 34 38 29 3a e1 0d 02  ef 3a dd f2 61 28 53 25  |-48):....:..a(S%|
000058e0  29 ea 5a 25 3a 5a 25 3d  75 79 25 3a c8 95 21 5a  |).Z%:Z%=uy%:..!Z|
000058f0  25 3c 3e 30 80 21 5a 25  3c 3e 53 25 3a 5a 25 3d  |%<>0.!Z%<>S%:Z%=|
00005900  21 5a 25 2b 63 3a ce 3a  e7 21 5a 25 3d 53 25 8c  |!Z%+c:.:.!Z%=S%.|
00005910  0d 02 f0 1a 21 5a 25 3d  53 25 21 63 3a 53 25 21  |....!Z%=S%!c:S%!|
00005920  63 3d 30 3a f2 5a 28 53  25 29 0d 02 f1 07 cd 3a  |c=0:.Z(S%).....:|
00005930  e1 0d 02 f2 11 dd a4 69  28 41 25 29 3d ba 28 79  |.......i(A%)=.(y|
00005940  79 29 0d 02 f3 1b dd a4  76 28 41 25 29 41 25 3d  |y)......v(A%)A%=|
00005950  a4 69 28 41 25 29 3a e7  41 25 3d 30 8c 0d 02 f4  |.i(A%):.A%=0....|
00005960  0a f2 4c 28 31 36 29 0d  02 f5 09 cd 3a 3d 41 25  |..L(16).....:=A%|
00005970  0d 02 f6 21 dd f2 4c 5f  e7 28 55 25 80 32 29 3d  |...!..L_.(U%.2)=|
00005980  30 8c f2 57 5f 28 22 54  65 6d 70 6c 61 74 65 22  |0..W_("Template"|
00005990  29 0d 02 f7 20 5b 4f 50  54 55 25 3a 41 4c 49 47  |)... [OPTU%:ALIG|
000059a0  4e 3a 2e 79 79 3a a4 4a  3a 42 20 6f 79 3a 5d 3a  |N:.yy:.J:B oy:]:|
000059b0  e1 0d 02 f8 7c dd a4 5f  44 65 63 6c 61 72 65 5f  |....|.._Declare_|
000059c0  4c 6f 63 61 6c 5f 56 61  72 69 61 62 6c 65 73 5f  |Local_Variables_|
000059d0  54 65 6d 70 6c 61 74 65  de 75 79 25 34 3a 21 75  |Template.uy%4:!u|
000059e0  79 25 3d 30 3a 50 25 3d  30 3a 5b 4f 50 54 55 25  |y%=0:P%=0:[OPTU%|
000059f0  3a 2e 63 20 44 43 44 30  3a 2e 4e 79 20 44 43 44  |:.c DCD0:.Ny DCD|
00005a00  30 3a 2e 67 20 44 43 44  30 3a 2e 62 79 20 44 43  |0:.g DCD0:.by DC|
00005a10  44 30 3a 2e 50 79 20 44  43 44 30 3a 44 43 44 30  |D0:.Py DCD0:DCD0|
00005a20  3a 44 43 44 30 3a 2e 46  3a 5d 3a 3d 30 0d 02 f9  |:DCD0:.F:]:=0...|
00005a30  38 dd f2 6e 79 28 46 24  2c 72 25 2c 72 5f 25 2c  |8..ny(F$,r%,r_%,|
00005a40  62 5f 25 2c f8 69 79 25  29 f2 65 5f 28 46 24 2c  |b_%,.iy%).e_(F$,|
00005a50  72 25 2c 72 5f 25 2c 62  5f 25 2c 69 79 25 2c 22  |r%,r_%,b_%,iy%,"|
00005a60  58 22 29 3a e1 0d 02 fa  31 dd f2 65 5f 28 46 24  |X"):....1..e_(F$|
00005a70  2c 72 25 2c 72 5f 25 2c  62 5f 25 2c f8 69 79 25  |,r%,r_%,b_%,.iy%|
00005a80  2c 48 24 29 ea 53 25 3a  53 25 3d a4 43 28 46 24  |,H$).S%:S%=.C(F$|
00005a90  29 3a e7 53 25 8c 0d 02  fb 1d f2 79 5f 28 53 25  |):.S%......y_(S%|
00005aa0  2c 72 25 2c 72 5f 25 2c  62 5f 25 2c 69 79 25 2c  |,r%,r_%,b_%,iy%,|
00005ab0  48 24 29 0d 02 fc 0b cc  21 72 25 3d 53 25 0d 02  |H$).....!r%=S%..|
00005ac0  fd 07 cd 3a e1 0d 02 fe  1f dd a4 61 28 46 24 2c  |...:.......a(F$,|
00005ad0  72 25 29 ea 4e 25 3a 3d  a4 5f 28 46 24 2c 72 25  |r%).N%:=._(F$,r%|
00005ae0  2c 4e 25 29 0d 02 ff 27  dd a4 5f 28 46 24 2c 72  |,N%)...'.._(F$,r|
00005af0  25 2c f8 69 79 25 29 ea  53 25 2c 4b 25 3a 4b 25  |%,.iy%).S%,K%:K%|
00005b00  3d a3 3a e7 21 72 25 3c  3d 30 8c 0d 03 00 12 53  |=.:.!r%<=0.....S|
00005b10  25 3d a4 43 28 46 24 29  3a e7 53 25 8c 0d 03 01  |%=.C(F$):.S%....|
00005b20  17 4b 25 3d a4 65 28 53  25 2c 72 25 29 3a e7 4b  |.K%=.e(S%,r%):.K|
00005b30  25 3d a3 8c 0d 03 02 13  69 79 25 3d 53 25 21 67  |%=......iy%=S%!g|
00005b40  3a f2 61 28 53 25 29 0d  03 03 05 cd 0d 03 04 09  |:.a(S%).........|
00005b50  cc 4b 25 3d b9 0d 03 05  05 cd 0d 03 06 09 cc e7  |.K%=............|
00005b60  69 25 8c 0d 03 07 12 c8  99 26 34 36 35 63 36 2c  |i%.......&465c6,|
00005b70  59 25 2c 72 25 0d 03 08  05 cd 0d 03 09 09 cd 3a  |Y%,r%..........:|
00005b80  3d 4b 25 0d 03 0a 1d dd  f2 67 5f 28 53 25 2c 72  |=K%......g_(S%,r|
00005b90  25 29 53 25 3d a4 65 28  53 25 2c 72 25 29 3a e1  |%)S%=.e(S%,r%):.|
00005ba0  0d 03 0b 16 dd a4 65 28  53 25 2c 72 25 29 ea 64  |......e(S%,r%).d|
00005bb0  25 3a e7 69 25 8c 0d 03  0c 1d c8 99 26 36 36 35  |%:.i%.......&665|
00005bc0  63 33 2c 59 25 2c 53 25  2b 46 2c 72 25 b8 64 25  |c3,Y%,S%+F,r%.d%|
00005bd0  3b 53 25 0d 03 0d 19 cc  c8 99 26 36 30 30 63 31  |;S%.......&600c1|
00005be0  2c 2c 53 25 2b 46 b8 64  25 3b 53 25 0d 03 0e 1b  |,,S%+F.d%;S%....|
00005bf0  cd 3a 21 72 25 3d 64 25  3a 53 25 3d a4 46 28 53  |.:!r%=d%:S%=.F(S|
00005c00  25 29 3a e7 53 25 8c 0d  03 0f 10 f2 4b 28 64 25  |%):.S%......K(d%|
00005c10  29 3a 21 72 25 3d 30 0d  03 10 09 cd 3a 3d 53 25  |):!r%=0.....:=S%|
00005c20  0d 03 11 4c dd f2 79 5f  28 53 25 2c 72 25 2c 72  |...L..y_(S%,r%,r|
00005c30  5f 25 2c 62 5f 25 2c f8  69 79 25 2c 48 24 29 ea  |_%,b_%,.iy%,H$).|
00005c40  4d 25 2c 51 25 3a 21 72  25 3d 30 3a 51 25 3d 53  |M%,Q%:!r%=0:Q%=S|
00005c50  25 21 4e 79 3a 53 25 21  4e 79 2b 3d 31 3a 53 25  |%!Ny:S%!Ny+=1:S%|
00005c60  3d a4 76 28 53 25 29 3a  e7 53 25 8c 0d 03 12 35  |=.v(S%):.S%....5|
00005c70  4d 25 3d 53 25 2b 46 3a  f2 43 5f 28 4d 25 2c 51  |M%=S%+F:.C_(M%,Q|
00005c80  25 2c 72 5f 25 29 3a f2  46 5f 28 4d 25 2b 34 2c  |%,r_%):.F_(M%+4,|
00005c90  51 25 2c 62 5f 25 29 3a  e7 48 24 3c 3e 22 58 22  |Q%,b_%):.H$<>"X"|
00005ca0  8c 0d 03 13 12 e7 4d 25  21 35 36 80 28 31 3c 3c  |......M%!56.(1<<|
00005cb0  38 29 8c 0d 03 14 17 f2  5a 79 28 4d 25 21 37 32  |8)......Zy(M%!72|
00005cc0  2c 48 24 2c 4d 25 21 38  30 29 0d 03 15 15 cc f2  |,H$,M%!80)......|
00005cd0  5a 79 28 4d 25 2b 37 32  2c 48 24 2c 31 32 29 0d  |Zy(M%+72,H$,12).|
00005ce0  03 16 05 cd 0d 03 17 20  cd 3a f2 67 5f 28 53 25  |....... .:.g_(S%|
00005cf0  2c 72 25 29 3a 69 79 25  3d 53 25 21 67 3a f2 61  |,r%):iy%=S%!g:.a|
00005d00  28 53 25 29 0d 03 18 07  cd 3a e1 0d 03 19 29 dd  |(S%).....:....).|
00005d10  a4 68 5f 44 45 46 41 55  4c 54 ea 85 3a ee 85 ea  |.h_DEFAULT..:...|
00005d20  f7 85 3a f2 4d 28 22 40  2e 68 2e 44 45 46 41 55  |..:.M("@.h.DEFAU|
00005d30  4c 54 22 29 0d 03 1a 6e  4a 69 3d 31 36 3a 64 6c  |LT")...nJi=16:dl|
00005d40  3d 31 3c 3c 33 30 3a 49  4a 3d 31 3c 3c 32 39 3a  |=1<<30:IJ=1<<29:|
00005d50  60 75 3d 30 3a 78 6c 3d  31 3a 4c 61 3d 32 3a 45  |`u=0:xl=1:La=2:E|
00005d60  61 3d 33 3a 43 61 3d 34  3a 59 5f 3d 35 3a 51 61  |a=3:Ca=4:Y_=5:Qa|
00005d70  3d 36 3a 42 4a 3d 37 3a  63 69 3d 38 3a 72 5f 3d  |=6:BJ=7:ci=8:r_=|
00005d80  39 3a 44 61 3d 31 30 3a  73 6c 3d 31 3c 3c 30 3a  |9:Da=10:sl=1<<0:|
00005d90  63 79 3d 31 3c 3c 31 3a  71 69 3d 31 3c 3c 32 3a  |cy=1<<1:qi=1<<2:|
00005da0  3d 30 0d 03 1b 31 dd a4  6a 75 6d 70 62 6c 6f 63  |=0...1..jumpbloc|
00005db0  6b 5f 44 45 46 41 55 4c  54 ea 85 3a ee 85 ea f7  |k_DEFAULT..:....|
00005dc0  85 3a f2 4d 28 22 40 2e  68 2e 44 45 46 41 55 4c  |.:.M("@.h.DEFAUL|
00005dd0  54 22 29 0d 03 1c 6d 5b  4f 50 54 55 25 80 50 79  |T")...m[OPTU%.Py|
00005de0  25 3a 2e 75 69 20 44 43  44 78 5f 3a 2e 4f 69 20  |%:.ui DCDx_:.Oi |
00005df0  44 43 44 68 75 3a 2e 60  5f 20 44 43 44 52 5f 3a  |DCDhu:.`_ DCDR_:|
00005e00  2e 5f 5f 20 44 43 44 48  69 3a 2e 42 75 20 44 43  |.__ DCDHi:.Bu DC|
00005e10  44 42 5f 3a 2e 55 4a 20  44 43 44 75 6c 3a 2e 68  |DB_:.UJ DCDul:.h|
00005e20  4a 20 44 43 44 4d 69 3a  2e 4d 4a 20 44 43 44 70  |J DCDMi:.MJ DCDp|
00005e30  75 3a 2e 71 79 20 44 43  44 43 69 3a 5d 3a 3d 30  |u:.qy DCDCi:]:=0|
00005e40  0d 03 1d 25 dd a4 68 5f  73 74 64 69 6f ea 85 3a  |...%..h_stdio..:|
00005e50  ee 85 ea f7 85 3a f2 4d  28 22 40 2e 68 2e 73 74  |.....:.M("@.h.st|
00005e60  64 69 6f 22 29 0d 03 1e  17 6b 5f 3d 30 3a 49 69  |dio")....k_=0:Ii|
00005e70  3d 31 37 3a 57 69 3d 33  34 3a 3d 30 0d 03 1f 2d  |=17:Wi=34:=0...-|
00005e80  dd a4 6a 75 6d 70 62 6c  6f 63 6b 5f 73 74 64 69  |..jumpblock_stdi|
00005e90  6f ea 85 3a ee 85 ea f7  85 3a f2 4d 28 22 40 2e  |o..:.....:.M("@.|
00005ea0  68 2e 73 74 64 69 6f 22  29 0d 03 20 98 5b 4f 50  |h.stdio").. .[OP|
00005eb0  54 55 25 80 50 79 25 3a  2e 4b 6c 20 44 43 44 64  |TU%.Py%:.Kl DCDd|
00005ec0  69 3a 2e 46 75 20 44 43  44 72 6c 3a 2e 44 5f 20  |i:.Fu DCDrl:.D_ |
00005ed0  44 43 44 60 6c 3a 2e 67  69 20 44 43 44 58 69 3a  |DCD`l:.gi DCDXi:|
00005ee0  2e 43 5f 20 44 43 44 7a  4a 3a 2e 52 75 25 44 43  |.C_ DCDzJ:.Ru%DC|
00005ef0  44 56 75 25 3a 2e 73 75  25 44 43 44 7a 75 25 3a  |DVu%:.su%DCDzu%:|
00005f00  2e 77 75 25 44 43 44 4b  75 25 3a 2e 6e 6c 20 44  |.wu%DCDKu%:.nl D|
00005f10  43 44 52 75 3a 2e 51 6c  20 44 43 44 4e 75 3a 2e  |CDRu:.Ql DCDNu:.|
00005f20  7a 69 20 44 43 44 77 69  3a 2e 75 4a 20 44 43 44  |zi DCDwi:.uJ DCD|
00005f30  69 69 3a 2e 6f 75 20 44  43 44 4b 69 3a 5d 3a 3d  |ii:.ou DCDKi:]:=|
00005f40  30 0d 03 21 27 dd a4 68  5f 73 74 64 6c 69 62 ea  |0..!'..h_stdlib.|
00005f50  85 3a ee 85 ea f7 85 3a  f2 4d 28 22 40 2e 68 2e  |.:.....:.M("@.h.|
00005f60  73 74 64 6c 69 62 22 29  0d 03 22 06 3d 30 0d 03  |stdlib")..".=0..|
00005f70  23 2f dd a4 6a 75 6d 70  62 6c 6f 63 6b 5f 73 74  |#/..jumpblock_st|
00005f80  64 6c 69 62 ea 85 3a ee  85 ea f7 85 3a f2 4d 28  |dlib..:.....:.M(|
00005f90  22 40 2e 68 2e 73 74 64  6c 69 62 22 29 0d 03 24  |"@.h.stdlib")..$|
00005fa0  b3 5b 4f 50 54 55 25 80  50 79 25 3a 2e 5f 79 20  |.[OPTU%.Py%:._y |
00005fb0  44 43 44 62 75 3a 2e 6d  79 20 44 43 44 53 6c 3a  |DCDbu:.my DCDSl:|
00005fc0  2e 54 61 20 44 43 44 53  69 3a 2e 69 79 20 44 43  |.Ta DCDSi:.iy DC|
00005fd0  44 47 69 3a 2e 50 4a 20  44 43 44 60 4a 3a 2e 4c  |DGi:.PJ DCD`J:.L|
00005fe0  5f 20 44 43 44 58 61 3a  2e 54 6c 20 44 43 44 58  |_ DCDXa:.Tl DCDX|
00005ff0  6c 3a 2e 59 75 20 44 43  44 61 61 3a 2e 71 5f 20  |l:.Yu DCDaa:.q_ |
00006000  44 43 44 45 6c 3a 2e 58  75 20 44 43 44 5f 61 3a  |DCDEl:.Xu DCD_a:|
00006010  2e 53 5f 20 44 43 44 79  4a 3a 2e 51 75 20 44 43  |.S_ DCDyJ:.Qu DC|
00006020  44 6d 5f 3a 2e 61 75 20  44 43 44 49 5f 3a 2e 6a  |Dm_:.au DCDI_:.j|
00006030  75 20 44 43 44 41 75 3a  2e 6f 6c 20 44 43 44 4e  |u DCDAu:.ol DCDN|
00006040  6c 3a 2e 66 6c 20 44 43  44 66 4a 3a 5d 3a 3d 30  |l:.fl DCDfJ:]:=0|
00006050  0d 03 25 27 dd a4 68 5f  73 74 72 69 6e 67 ea 85  |..%'..h_string..|
00006060  3a ee 85 ea f7 85 3a f2  4d 28 22 40 2e 68 2e 73  |:.....:.M("@.h.s|
00006070  74 72 69 6e 67 22 29 0d  03 26 53 50 25 3d 30 3a  |tring")..&SP%=0:|
00006080  5b 4f 50 54 55 25 3a 2e  44 75 20 44 43 42 30 3a  |[OPTU%:.Du DCB0:|
00006090  2e 65 5f 20 44 43 42 30  3a 2e 42 69 20 44 43 42  |.e_ DCB0:.Bi DCB|
000060a0  30 3a 2e 43 4a 20 44 43  42 30 3a 2e 7a 75 20 44  |0:.CJ DCB0:.zu D|
000060b0  43 42 30 3a 2e 4c 6c 20  44 43 42 30 3a 2e 71 6c  |CB0:.Ll DCB0:.ql|
000060c0  20 44 43 42 30 3a 5d 3a  3d 30 0d 03 27 2f dd a4  | DCB0:]:=0..'/..|
000060d0  6a 75 6d 70 62 6c 6f 63  6b 5f 73 74 72 69 6e 67  |jumpblock_string|
000060e0  ea 85 3a ee 85 ea f7 85  3a f2 4d 28 22 40 2e 68  |..:.....:.M("@.h|
000060f0  2e 73 74 72 69 6e 67 22  29 0d 03 28 cc 5b 4f 50  |.string")..(.[OP|
00006100  54 55 25 80 50 79 25 3a  2e 5a 4a 20 44 43 44 54  |TU%.Py%:.ZJ DCDT|
00006110  4a 3a 2e 6c 4a 20 44 43  44 76 6c 3a 2e 4b 4a 20  |J:.lJ DCDvl:.KJ |
00006120  44 43 44 73 5f 3a 2e 65  75 20 44 43 44 4e 61 3a  |DCDs_:.eu DCDNa:|
00006130  2e 7a 6c 20 44 43 44 70  69 3a 2e 79 69 20 44 43  |.zl DCDpi:.yi DC|
00006140  44 65 6c 3a 2e 56 61 20  44 43 44 4d 61 3a 2e 70  |Del:.Va DCDMa:.p|
00006150  5f 20 44 43 44 71 75 3a  2e 4f 5f 20 44 43 44 4c  |_ DCDqu:.O_ DCDL|
00006160  69 3a 2e 66 69 20 44 43  44 77 5f 3a 2e 6d 69 20  |i:.fi DCDw_:.mi |
00006170  44 43 44 49 75 3a 2e 72  69 20 44 43 44 45 75 3a  |DCDIu:.ri DCDEu:|
00006180  2e 5a 75 20 44 43 44 77  75 3a 2e 57 5f 20 44 43  |.Zu DCDwu:.W_ DC|
00006190  44 58 4a 3a 2e 60 79 20  44 43 44 47 75 3a 2e 63  |DXJ:.`y DCDGu:.c|
000061a0  4a 20 44 43 44 5f 69 3a  2e 76 69 20 44 43 44 4d  |J DCD_i:.vi DCDM|
000061b0  75 3a 2e 6e 5f 20 44 43  44 51 4a 3a 2e 6a 69 20  |u:.n_ DCDQJ:.ji |
000061c0  44 43 44 48 75 0d 03 29  ee 2e 5a 61 20 44 43 44  |DCDHu..)..Za DCD|
000061d0  79 5f 3a 2e 78 75 20 44  43 44 54 5f 3a 2e 5f 75  |y_:.xu DCDT_:._u|
000061e0  20 44 43 44 59 69 3a 2e  75 75 20 44 43 44 47 6c  | DCDYi:.uu DCDGl|
000061f0  3a 2e 56 69 20 44 43 44  66 5f 3a 2e 43 6c 20 44  |:.Vi DCDf_:.Cl D|
00006200  43 44 57 4a 3a 2e 44 69  20 44 43 44 62 5f 3a 2e  |CDWJ:.Di DCDb_:.|
00006210  41 69 20 44 43 44 4f 4a  3a 2e 69 6c 20 44 43 44  |Ai DCDOJ:.il DCD|
00006220  6a 4a 3a 2e 77 6c 20 44  43 44 4e 4a 3a 2e 46 69  |jJ:.wl DCDNJ:.Fi|
00006230  20 44 43 44 71 61 3a 2e  4a 6c 20 44 43 44 50 75  | DCDqa:.Jl DCDPu|
00006240  3a 2e 67 6c 20 44 43 44  52 61 3a 2e 4f 6c 20 44  |:.gl DCDRa:.Ol D|
00006250  43 44 67 5f 3a 2e 70 4a  20 44 43 44 69 75 3a 2e  |CDg_:.pJ DCDiu:.|
00006260  63 75 20 44 43 44 64 5f  3a 2e 43 75 20 44 43 44  |cu DCDd_:.Cu DCD|
00006270  63 5f 3a 2e 50 5f 20 44  43 44 67 4a 3a 2e 4c 75  |c_:.P_ DCDgJ:.Lu|
00006280  20 44 43 44 46 4a 3a 2e  74 5f 20 44 43 44 7a 5f  | DCDFJ:.t_ DCDz_|
00006290  3a 2e 46 6c 20 44 43 44  49 61 3a 2e 6d 4a 20 44  |:.Fl DCDIa:.mJ D|
000062a0  43 44 62 6c 3a 2e 47 5f  20 44 43 44 5f 6c 3a 5d  |CDbl:.G_ DCD_l:]|
000062b0  3a 3d 30 0d 03 2a 29 dd  a4 68 5f 6d 65 73 73 61  |:=0..*)..h_messa|
000062c0  67 65 ea 85 3a ee 85 ea  f7 85 3a f2 4d 28 22 40  |ge..:.....:.M("@|
000062d0  2e 68 2e 6d 65 73 73 61  67 65 22 29 0d 03 2b 06  |.h.message")..+.|
000062e0  3d 30 0d 03 2c 31 dd a4  6a 75 6d 70 62 6c 6f 63  |=0..,1..jumpbloc|
000062f0  6b 5f 6d 65 73 73 61 67  65 ea 85 3a ee 85 ea f7  |k_message..:....|
00006300  85 3a f2 4d 28 22 40 2e  68 2e 6d 65 73 73 61 67  |.:.M("@.h.messag|
00006310  65 22 29 0d 03 2d 45 5b  4f 50 54 55 25 80 50 79  |e")..-E[OPTU%.Py|
00006320  25 3a 2e 6b 79 20 44 43  44 61 5f 3a 2e 41 5f 20  |%:.ky DCDa_:.A_ |
00006330  44 43 44 6c 5f 3a 2e 47  61 20 44 43 44 6d 75 3a  |DCDl_:.Ga DCDmu:|
00006340  2e 60 69 20 44 43 44 6e  75 3a 2e 55 5f 20 44 43  |.`i DCDnu:.U_ DC|
00006350  44 79 75 3a 5d 3a 3d 30  0d 03 2e 23 dd a4 68 5f  |Dyu:]:=0...#..h_|
00006360  77 69 6d 70 ea 85 3a ee  85 ea f7 85 3a f2 4d 28  |wimp..:.....:.M(|
00006370  22 40 2e 68 2e 77 69 6d  70 22 29 0d 03 2f ca 56  |"@.h.wimp")../.V|
00006380  75 3d 31 32 3a 58 5f 3d  30 3a 50 25 3d 30 3a 5b  |u=12:X_=0:P%=0:[|
00006390  4f 50 54 55 25 3a 2e 44  79 20 44 43 42 30 3a 2e  |OPTU%:.Dy DCB0:.|
000063a0  5a 6c 20 44 43 42 30 3a  2e 68 79 20 44 43 42 30  |Zl DCB0:.hy DCB0|
000063b0  3a 2e 77 79 20 44 43 42  30 3a 2e 68 69 20 44 43  |:.wy DCB0:.hi DC|
000063c0  42 30 3a 2e 76 5f 20 44  43 42 30 3a 2e 4f 61 20  |B0:.v_ DCB0:.Oa |
000063d0  44 43 42 30 3a 2e 6a 79  20 44 43 42 30 3a 2e 7a  |DCB0:.jy DCB0:.z|
000063e0  79 20 44 43 42 30 3a 2e  69 4a 20 44 43 42 30 3a  |y DCB0:.iJ DCB0:|
000063f0  2e 5a 5f 20 44 43 42 30  3a 2e 53 75 20 44 43 42  |.Z_ DCB0:.Su DCB|
00006400  30 3a 2e 59 61 20 44 43  42 30 3a 2e 55 6c 20 44  |0:.Ya DCB0:.Ul D|
00006410  43 42 30 3a 2e 6a 5f 20  44 43 42 30 3a 2e 62 4a  |CB0:.j_ DCB0:.bJ|
00006420  20 44 43 42 30 3a 2e 73  4a 20 44 43 42 30 3a 5d  | DCB0:.sJ DCB0:]|
00006430  3a 50 25 3d 30 3a 5b 4f  50 54 55 25 3a 2e 43 79  |:P%=0:[OPTU%:.Cy|
00006440  20 44 43 42 30 0d 03 30  a6 2e 68 6c 20 44 43 42  | DCB0..0..hl DCB|
00006450  30 3a 2e 74 79 20 44 43  42 30 3a 2e 59 79 20 44  |0:.ty DCB0:.Yy D|
00006460  43 42 30 3a 2e 4b 75 20  44 43 42 30 3a 2e 56 4a  |CB0:.Ku DCB0:.VJ|
00006470  20 44 43 42 30 3a 2e 4c  4a 20 44 43 42 30 3a 2e  | DCB0:.LJ DCB0:.|
00006480  73 69 20 44 43 42 30 3a  2e 77 61 20 44 43 42 30  |si DCB0:.wa DCB0|
00006490  3a 2e 61 6c 20 44 43 42  30 3a 2e 74 6c 20 44 43  |:.al DCB0:.tl DC|
000064a0  42 30 3a 2e 76 75 20 44  43 42 30 3a 5d 3a 50 25  |B0:.vu DCB0:]:P%|
000064b0  3d 30 3a 5b 4f 50 54 55  25 3a 2e 4d 6c 20 44 43  |=0:[OPTU%:.Ml DC|
000064c0  42 30 3a 2e 4a 75 20 44  43 42 30 3a 2e 57 61 20  |B0:.Ju DCB0:.Wa |
000064d0  44 43 42 30 3a 2e 6b 4a  20 44 43 42 30 3a 2e 4e  |DCB0:.kJ DCB0:.N|
000064e0  5f 20 44 43 42 30 3a 5d  3a 3d 30 0d 03 31 2b dd  |_ DCB0:]:=0..1+.|
000064f0  a4 6a 75 6d 70 62 6c 6f  63 6b 5f 77 69 6d 70 ea  |.jumpblock_wimp.|
00006500  85 3a ee 85 ea f7 85 3a  f2 4d 28 22 40 2e 68 2e  |.:.....:.M("@.h.|
00006510  77 69 6d 70 22 29 0d 03  32 c7 5b 4f 50 54 55 25  |wimp")..2.[OPTU%|
00006520  80 50 79 25 3a 2e 4b 61  20 44 43 44 57 6c 3a 2e  |.Py%:.Ka DCDWl:.|
00006530  6f 4a 20 44 43 44 6b 75  3a 2e 77 4a 20 44 43 44  |oJ DCDku:.wJ DCD|
00006540  66 75 3a 2e 6a 6c 20 44  43 44 55 69 3a 2e 57 79  |fu:.jl DCDUi:.Wy|
00006550  20 44 43 44 74 4a 3a 2e  72 4a 20 44 43 44 70 6c  | DCDtJ:.rJ DCDpl|
00006560  3a 2e 45 5f 20 44 43 44  52 4a 3a 2e 42 6c 20 44  |:.E_ DCDRJ:.Bl D|
00006570  43 44 6e 69 3a 2e 6f 79  20 44 43 44 68 5f 3a 2e  |CDni:.oy DCDh_:.|
00006580  4a 61 20 44 43 44 73 75  3a 2e 46 61 20 44 43 44  |Ja DCDsu:.Fa DCD|
00006590  59 6c 3a 2e 5f 4a 20 44  43 44 42 61 3a 2e 54 75  |Yl:._J DCDBa:.Tu|
000065a0  20 44 43 44 41 6c 3a 2e  53 61 20 44 43 44 44 6c  | DCDAl:.Sa DCDDl|
000065b0  3a 2e 50 69 20 44 43 44  46 5f 3a 2e 50 61 20 44  |:.Pi DCDF_:.Pa D|
000065c0  43 44 54 69 3a 2e 41 61  20 44 43 44 78 4a 3a 2e  |CDTi:.Aa DCDxJ:.|
000065d0  6f 69 20 44 43 44 48 61  3a 5d 3a 3d 30 0d 03 33  |oi DCDHa:]:=0..3|
000065e0  19 dd a4 5f 4d 6f 64 65  49 6e 66 6f 5f 76 65 72  |..._ModeInfo_ver|
000065f0  73 69 6f 6e 3d 36 0d 03  34 21 dd a4 5f 68 61 72  |sion=6..4!.._har|
00006600  64 5f 69 6e 69 74 69 61  6c 69 73 65 5f 4d 6f 64  |d_initialise_Mod|
00006610  65 49 6e 66 6f 3d 30 0d  03 35 e7 dd f2 71 79 28  |eInfo=0..5...qy(|
00006620  6c 25 29 c8 99 35 33 2c  6c 25 2c 31 b8 2c 2c 60  |l%)..53,l%,1.,,`|
00006630  5f 25 3a 60 5f 25 2b 3d  31 3a c8 99 35 33 2c 6c  |_%:`_%+=1:..53,l|
00006640  25 2c 32 b8 2c 2c 64 5f  25 3a 64 5f 25 2b 3d 31  |%,2.,,d_%:d_%+=1|
00006650  3a c8 99 35 33 2c 6c 25  2c 33 b8 2c 2c 6e 4a 25  |:..53,l%,3.,,nJ%|
00006660  3a 6e 4a 25 2b 3d 31 3a  c8 99 35 33 2c 6c 25 2c  |:nJ%+=1:..53,l%,|
00006670  34 b8 2c 2c 43 5f 25 3a  c8 99 35 33 2c 6c 25 2c  |4.,,C_%:..53,l%,|
00006680  35 b8 2c 2c 44 79 25 3a  c8 99 35 33 2c 6c 25 2c  |5.,,Dy%:..53,l%,|
00006690  36 b8 2c 2c 43 75 25 3a  c8 99 35 33 2c 6c 25 2c  |6.,,Cu%:..53,l%,|
000066a0  37 b8 2c 2c 44 75 25 3a  c8 99 35 33 2c 6c 25 2c  |7.,,Du%:..53,l%,|
000066b0  39 b8 2c 2c 50 4a 25 3a  59 4a 25 3d 31 3c 3c 50  |9.,,PJ%:YJ%=1<<P|
000066c0  4a 25 3a c8 99 35 33 2c  6c 25 2c 31 31 b8 2c 2c  |J%:..53,l%,11.,,|
000066d0  41 5f 25 3a 41 5f 25 2b  3d 31 3a c8 99 35 33 2c  |A_%:A_%+=1:..53,|
000066e0  6c 25 2c 31 32 b8 2c 2c  46 79 25 3a 46 79 25 2b  |l%,12.,,Fy%:Fy%+|
000066f0  3d 31 3a 50 75 25 3d 41  5f 25 81 60 5f 25 0d 03  |=1:Pu%=A_%.`_%..|
00006700  36 3e 4a 75 25 3d 46 79  25 81 64 5f 25 3a 48 5f  |6>Ju%=Fy%.d_%:H_|
00006710  25 3d 28 41 5f 25 3c 3c  43 5f 25 29 2d 31 3a 50  |%=(A_%<<C_%)-1:P|
00006720  5f 25 3d 28 46 79 25 3c  3c 44 79 25 29 2d 31 3a  |_%=(Fy%<<Dy%)-1:|
00006730  59 75 25 3d 33 32 81 59  4a 25 3a e1 0d 03 37 16  |Yu%=32.YJ%:...7.|
00006740  dd a4 5f 57 69 6d 70 5f  76 65 72 73 69 6f 6e 3d  |.._Wimp_version=|
00006750  35 30 0d 03 38 2f dd a4  5f 68 61 72 64 5f 69 6e  |50..8/.._hard_in|
00006760  69 74 69 61 6c 69 73 65  5f 57 69 6d 70 ea 64 25  |itialise_Wimp.d%|
00006770  3a e7 a4 48 3c 31 32 8c  85 31 2c 22 45 49 57 31  |:..H<12..1,"EIW1|
00006780  22 0d 03 39 49 c8 99 26  34 30 30 66 32 2c 30 b8  |"..9I..&400f2,0.|
00006790  64 25 3a e7 64 25 3d 30  8c 85 31 2c 22 41 70 70  |d%:.d%=0..1,"App|
000067a0  6c 69 63 61 74 69 6f 6e  20 6e 65 65 64 73 20 74  |lication needs t|
000067b0  6f 20 62 65 20 72 75 6e  20 66 72 6f 6d 20 74 68  |o be run from th|
000067c0  65 20 64 65 73 6b 74 6f  70 22 0d 03 3a a6 f2 41  |e desktop"..:..A|
000067d0  28 22 3c 42 61 73 69 63  56 24 4c 69 62 3e 2e 48  |("<BasicV$Lib>.H|
000067e0  65 61 70 22 2c 38 29 3a  f2 41 28 22 3c 42 61 73  |eap",8):.A("<Bas|
000067f0  69 63 56 24 4c 69 62 3e  2e 49 6e 74 4d 61 74 68  |icV$Lib>.IntMath|
00006800  22 2c 35 29 3a f2 41 28  22 3c 42 61 73 69 63 56  |",5):.A("<BasicV|
00006810  24 4c 69 62 3e 2e 4d 65  73 73 61 67 65 22 2c 33  |$Lib>.Message",3|
00006820  29 3a f2 41 28 22 3c 42  61 73 69 63 56 24 4c 69  |):.A("<BasicV$Li|
00006830  62 3e 2e 54 65 6d 70 6c  61 74 65 22 2c 37 29 3a  |b>.Template",7):|
00006840  f2 41 28 22 3c 42 61 73  69 63 56 24 4c 69 62 3e  |.A("<BasicV$Lib>|
00006850  2e 4e 75 6c 6c 52 65 61  73 6f 6e 22 2c 31 29 3a  |.NullReason",1):|
00006860  64 79 25 3d a3 3a 61 79  25 3d 33 2a 31 30 32 34  |dy%=.:ay%=3*1024|
00006870  0d 03 3b 9f f2 47 28 66  79 25 2c 61 79 25 29 3a  |..;..G(fy%,ay%):|
00006880  61 79 25 2b 3d 66 79 25  3a 4e 79 25 3d 66 79 25  |ay%+=fy%:Ny%=fy%|
00006890  3a f2 47 28 57 25 2c 35  31 32 29 3a 6e 24 3d 22  |:.G(W%,512):n$="|
000068a0  22 3a 75 24 3d 22 22 3a  4f 75 25 3d 30 3a 47 24  |":u$="":Ou%=0:G$|
000068b0  3d 22 41 70 70 6c 69 63  61 74 69 6f 6e 22 3a 44  |="Application":D|
000068c0  24 3d 22 30 2e 30 30 20  28 30 31 2d 4a 61 6e 2d  |$="0.00 (01-Jan-|
000068d0  31 39 30 30 29 22 3a 59  25 3d 2d 31 3a 4e 5f 25  |1900)":Y%=-1:N_%|
000068e0  3d 32 34 30 30 3a 79 79  25 3d 32 34 30 31 3a 46  |=2400:yy%=2401:F|
000068f0  75 25 3d 31 36 2a 31 30  32 34 3a 55 24 3d 22 22  |u%=16*1024:U$=""|
00006900  3a 47 75 25 3d b9 3a 4d  75 25 3d 30 3a 3d 30 0d  |:Gu%=.:Mu%=0:=0.|
00006910  03 3c 3a dd a4 4b 28 65  24 29 ea 61 25 2c 43 25  |.<:..K(e$).a%,C%|
00006920  2c 5a 24 2c 63 25 2c 62  25 2c 52 4a 25 3a c8 99  |,Z$,c%,b%,RJ%:..|
00006930  26 36 30 30 66 32 2c 32  b8 61 25 3b 43 25 3a e7  |&600f2,2.a%;C%:.|
00006940  28 43 25 80 31 29 3d 30  8c 0d 03 3d 44 c8 99 35  |(C%.1)=0...=D..5|
00006950  33 2c 2d 31 2c 34 b8 2c  2c 63 25 3a c8 99 35 33  |3,-1,4.,,c%:..53|
00006960  2c 2d 31 2c 35 b8 2c 2c  62 25 3a c8 99 35 33 2c  |,-1,5.,,b%:..53,|
00006970  2d 31 2c 31 30 b8 2c 2c  52 4a 25 3a e7 63 25 3c  |-1,10.,,RJ%:.c%<|
00006980  32 80 62 25 3c 32 80 52  4a 25 3d 30 8c 0d 03 3e  |2.b%<2.RJ%=0...>|
00006990  0b 5a 24 3d 22 32 33 22  0d 03 3f 0e cc 5a 24 3d  |.Z$="23"..?..Z$=|
000069a0  a4 4d 28 61 25 29 0d 03  40 16 cd 3a 61 25 3d 8e  |.M(a%)..@..:a%=.|
000069b0  28 65 24 2b 5a 24 29 3a  e7 61 25 8c 0d 03 41 0f  |(e$+Z$):.a%...A.|
000069c0  d9 23 61 25 3a 65 24 2b  3d 5a 24 0d 03 42 05 cd  |.#a%:e$+=Z$..B..|
000069d0  0d 03 43 09 cd 3a 3d 65  24 0d 03 44 17 dd a4 46  |..C..:=e$..D...F|
000069e0  28 48 79 25 29 3d 28 48  79 25 80 31 29 3c 3e 30  |(Hy%)=(Hy%.1)<>0|
000069f0  0d 03 45 15 dd f2 60 28  71 25 2c 54 25 29 e7 54  |..E...`(q%,T%).T|
00006a00  25 3d 2d 31 8c 0d 03 46  1f c8 99 26 36 30 30 64  |%=-1...F...&600d|
00006a10  32 2c 71 25 2c 2d 31 2c  30 2c 30 2c 31 3c 3c 32  |2,q%,-1,0,0,1<<2|
00006a20  35 2c 2d 31 0d 03 47 34  cc c8 99 26 36 30 30 64  |5,-1..G4...&600d|
00006a30  32 2c 71 25 2c 54 25 2c  2c 2c 2d 31 2c a9 28 a4  |2,q%,T%,,,-1,.(.|
00006a40  5a 79 28 71 25 2c 54 25  29 29 3a c8 99 26 64 63  |Zy(q%,T%)):..&dc|
00006a50  62 38 64 2c 38 2c 71 25  0d 03 48 07 cd 3a e1 0d  |b8d,8,q%..H..:..|
00006a60  03 49 24 dd f2 77 79 28  71 25 2c 65 75 25 29 c8  |.I$..wy(q%,eu%).|
00006a70  99 26 64 63 62 38 64 2c  43 79 2c 71 25 2c 65 75  |.&dcb8d,Cy,q%,eu|
00006a80  25 3a e1 0d 03 4a 1f dd  f2 58 28 71 25 29 e7 71  |%:...J...X(q%).q|
00006a90  25 3e 30 8c c8 99 26 64  63 62 38 64 2c 59 79 2c  |%>0...&dcb8d,Yy,|
00006aa0  71 25 0d 03 4b 05 e1 0d  03 4c 1f dd f2 70 79 28  |q%..K....L...py(|
00006ab0  71 25 29 c8 99 26 64 63  62 38 64 2c 43 79 2c 71  |q%)..&dcb8d,Cy,q|
00006ac0  25 2c 2d 31 3a e1 0d 03  4d 6e dd f2 68 79 28 71  |%,-1:...Mn..hy(q|
00006ad0  25 2c 54 25 2c 68 4a 25  2c 79 75 25 2c 60 4a 25  |%,T%,hJ%,yu%,`J%|
00006ae0  29 ea 46 25 3a 46 25 3d  a4 41 28 31 36 29 3a 46  |).F%:F%=.A(16):F|
00006af0  25 21 30 3d 71 25 3a 46  25 21 34 3d 54 25 3a 46  |%!0=q%:F%!4=T%:F|
00006b00  25 21 38 3d 79 75 25 3c  3c 68 4a 25 3a 46 25 21  |%!8=yu%<<hJ%:F%!|
00006b10  31 32 3d 60 4a 25 3c 3c  68 4a 25 3a c8 99 26 34  |12=`J%<<hJ%:..&4|
00006b20  30 30 63 64 2c 2c 46 25  3a f2 43 28 46 25 2c 31  |00cd,,F%:.C(F%,1|
00006b30  36 29 3a e1 0d 03 4e 26  dd a4 42 28 71 25 2c 54  |6):...N&..B(q%,T|
00006b40  25 29 c8 99 26 64 63 62  38 63 2c 7a 79 2c 71 25  |%)..&dcb8c,zy,q%|
00006b50  2c 54 25 b8 54 25 3a 3d  54 25 0d 03 4f 29 dd f2  |,T%.T%:=T%..O)..|
00006b60  49 28 71 25 2c 54 25 2c  54 75 25 29 c8 99 26 64  |I(q%,T%,Tu%)..&d|
00006b70  63 62 38 63 2c 6a 79 2c  71 25 2c 54 25 2c 54 75  |cb8c,jy,q%,T%,Tu|
00006b80  25 3a e1 0d 03 50 4a dd  f2 56 28 77 4a 25 2c 41  |%:...PJ..V(wJ%,A|
00006b90  24 29 ea 46 25 3a 46 25  3d a4 41 28 33 30 30 29  |$).F%:F%=.A(300)|
00006ba0  3a 46 25 21 30 3d 77 4a  25 3a 24 28 46 25 2b 34  |:F%!0=wJ%:$(F%+4|
00006bb0  29 3d 41 24 2b bd 28 30  29 3a f2 4b 28 46 25 29  |)=A$+.(0):.K(F%)|
00006bc0  3a f2 43 28 46 25 2c 33  30 30 29 3a e1 0d 03 51  |:.C(F%,300):...Q|
00006bd0  14 dd f2 42 28 41 24 29  85 4e 5f 25 2c 41 24 3a  |...B(A$).N_%,A$:|
00006be0  e1 0d 03 52 4c dd f2 4c  28 77 4a 25 29 ea 46 25  |...RL..L(wJ%).F%|
00006bf0  3a 46 25 3d a4 41 28 33  30 30 29 3a 46 25 21 30  |:F%=.A(300):F%!0|
00006c00  3d 79 79 25 3a f2 6f 28  22 4c 45 22 2b c3 28 77  |=yy%:.o("LE"+.(w|
00006c10  4a 25 29 2c 46 25 2b 34  29 3a f2 4b 28 46 25 29  |J%),F%+4):.K(F%)|
00006c20  3a f2 43 28 46 25 2c 33  30 30 29 3a e1 0d 03 53  |:.C(F%,300):...S|
00006c30  1f dd f2 4b 28 48 75 25  29 c8 99 26 34 30 30 64  |...K(Hu%)..&400d|
00006c40  66 2c 48 75 25 2c 31 2c  47 24 3a e1 0d 03 54 67  |f,Hu%,1,G$:...Tg|
00006c50  dd a4 47 28 48 79 25 2c  41 24 29 ea 46 25 2c 4b  |..G(Hy%,A$).F%,K|
00006c60  25 3a f2 68 3a 46 25 3d  a4 41 28 32 36 30 29 3a  |%:.h:F%=.A(260):|
00006c70  21 46 25 3d 30 3a 24 28  46 25 2b 34 29 3d 41 24  |!F%=0:$(F%+4)=A$|
00006c80  2b bd 28 30 29 3a c8 99  26 34 30 30 64 66 2c 46  |+.(0):..&400df,F|
00006c90  25 2c 28 31 36 84 48 79  25 29 2c a4 4c 28 30 29  |%,(16.Hy%),.L(0)|
00006ca0  b8 2c 4b 25 3a f2 43 28  46 25 2c 32 36 30 29 3a  |.,K%:.C(F%,260):|
00006cb0  3d 4b 25 0d 03 55 99 dd  f2 67 79 ea 46 25 3a 46  |=K%..U...gy.F%:F|
00006cc0  25 3d a4 41 28 32 35 36  29 3a 46 25 3f 30 3d 31  |%=.A(256):F%?0=1|
00006cd0  3a 46 25 3f 31 3d 30 3a  46 25 3f 32 3d 30 3a 46  |:F%?1=0:F%?2=0:F|
00006ce0  25 3f 33 3d 30 3a 46 25  3f 34 3d 30 3a 46 25 3f  |%?3=0:F%?4=0:F%?|
00006cf0  35 3d 48 5f 25 83 32 35  36 3a 46 25 3f 36 3d 48  |5=H_%.256:F%?6=H|
00006d00  5f 25 81 32 35 36 3a 46  25 3f 37 3d 50 5f 25 83  |_%.256:F%?7=P_%.|
00006d10  32 35 36 3a 46 25 3f 38  3d 50 5f 25 81 32 35 36  |256:F%?8=P_%.256|
00006d20  3a c8 99 37 2c 32 31 2c  46 25 3a 21 46 25 3d 77  |:..7,21,F%:!F%=w|
00006d30  5f 25 3a c8 99 26 34 30  30 63 36 2c 2c 46 25 3a  |_%:..&400c6,,F%:|
00006d40  f2 43 28 46 25 2c 32 35  36 29 3a e1 0d 03 56 46  |.C(F%,256):...VF|
00006d50  dd f2 72 79 28 63 25 2c  62 25 2c 5f 25 2c 54 25  |..ry(c%,b%,_%,T%|
00006d60  29 f2 67 79 3a 63 25 3d  a4 5a 28 22 46 4e 5f 53  |).gy:c%=.Z("FN_S|
00006d70  74 6f 70 5f 41 63 74 69  6f 6e 5f 22 2b 6a 24 2b  |top_Action_"+j$+|
00006d80  22 28 22 2b c3 28 54 25  3d 30 29 2b 22 29 22 29  |"("+.(T%=0)+")")|
00006d90  3a e1 0d 03 57 2f dd a4  4c 79 28 56 24 29 c8 95  |:...W/..Ly(V$)..|
00006da0  a7 56 24 2c 22 2e 22 29  3a 56 24 3d c1 56 24 2c  |.V$,"."):V$=.V$,|
00006db0  a7 56 24 2c 22 2e 22 29  2b 31 29 3a ce 3a 3d 56  |.V$,".")+1):.:=V|
00006dc0  24 0d 03 58 27 dd f2 45  28 71 25 2c 54 25 2c 59  |$..X'..E(q%,T%,Y|
00006dd0  24 29 c8 99 26 64 63 62  38 63 2c 68 79 2c 71 25  |$)..&dcb8c,hy,q%|
00006de0  2c 54 25 2c 59 24 3a e1  0d 03 59 27 dd f2 4e 28  |,T%,Y$:...Y'..N(|
00006df0  71 25 2c 4e 25 2c 52 25  29 c8 99 26 64 63 62 38  |q%,N%,R%)..&dcb8|
00006e00  63 2c 77 79 2c 71 25 2c  4e 25 2c 52 25 3a e1 0d  |c,wy,q%,N%,R%:..|
00006e10  03 5a 2b dd a4 5a 79 28  71 25 2c 4e 25 29 c8 99  |.Z+..Zy(q%,N%)..|
00006e20  26 64 63 62 38 63 2c 44  79 2c 71 25 2c 4e 25 b8  |&dcb8c,Dy,q%,N%.|
00006e30  71 25 3a 3d a4 4d 28 71  25 29 0d 03 5b 26 dd a4  |q%:=.M(q%)..[&..|
00006e40  6c 28 71 25 2c 4e 25 29  c8 99 26 64 63 62 38 63  |l(q%,N%)..&dcb8c|
00006e50  2c 44 79 2c 71 25 2c 4e  25 b8 71 25 3a 3d 71 25  |,Dy,q%,N%.q%:=q%|
00006e60  0d 03 5c 38 dd a4 49 28  4b 24 29 ea 64 25 2c 44  |..\8..I(K$).d%,D|
00006e70  25 2c 51 25 3a c8 99 26  32 30 30 30 38 2c 31 37  |%,Q%:..&20008,17|
00006e80  2c 4b 24 b8 64 25 2c 2c  2c 2c 44 25 3b 51 25 3a  |,K$.d%,,,,D%;Q%:|
00006e90  e7 a4 46 28 51 25 29 8c  0d 03 5d 29 f2 46 28 22  |..F(Q%)...]).F("|
00006ea0  52 65 61 73 6f 6e 22 2c  a4 4c 79 28 4b 24 29 29  |Reason",.Ly(K$))|
00006eb0  3a f2 79 28 64 25 29 3a  f2 42 28 a4 4c 28 34 29  |:.y(d%):.B(.L(4)|
00006ec0  29 0d 03 5e 0d cd 3a e7  64 25 3c 3e 31 8c 0d 03  |)..^..:.d%<>1...|
00006ed0  5f 09 44 25 3d 2d 31 0d  03 60 09 cd 3a 3d 44 25  |_.D%=-1..`..:=D%|
00006ee0  0d 03 61 1d dd a4 41 28  77 25 29 ea 4b 25 3a e7  |..a...A(w%).K%:.|
00006ef0  28 4e 79 25 2b 77 25 29  3c 61 79 25 8c 0d 03 62  |(Ny%+w%)<ay%...b|
00006f00  12 4b 25 3d 4e 79 25 3a  4e 79 25 2b 3d 77 25 0d  |.K%=Ny%:Ny%+=w%.|
00006f10  03 63 1a cc f2 42 28 22  57 69 6d 70 20 53 74 61  |.c...B("Wimp Sta|
00006f20  63 6b 20 66 75 6c 6c 22  29 0d 03 64 09 cd 3a 3d  |ck full")..d..:=|
00006f30  4b 25 0d 03 65 12 dd f2  76 79 3a 4e 79 25 3d 66  |K%..e...vy:Ny%=f|
00006f40  79 25 3a e1 0d 03 66 24  dd f2 43 28 58 5f 25 2c  |y%:...f$..C(X_%,|
00006f50  77 25 29 e7 28 58 5f 25  3c 66 79 25 29 84 28 58  |w%).(X_%<fy%).(X|
00006f60  5f 25 3e 61 79 25 29 8c  0d 03 67 2c f2 42 28 22  |_%>ay%)...g,.B("|
00006f70  52 65 6c 65 61 73 65 5f  53 74 61 63 6b 3a 20 49  |Release_Stack: I|
00006f80  6e 76 61 6c 69 64 20 73  74 61 63 6b 20 63 68 75  |nvalid stack chu|
00006f90  6e 6b 22 29 0d 03 68 1c  cc e7 28 77 25 3c 30 29  |nk")..h...(w%<0)|
00006fa0  84 28 28 58 5f 25 2b 77  25 29 3e 61 79 25 29 8c  |.((X_%+w%)>ay%).|
00006fb0  0d 03 69 2b f2 42 28 22  52 65 6c 65 61 73 65 5f  |..i+.B("Release_|
00006fc0  53 74 61 63 6b 3a 20 49  6e 76 61 6c 69 64 20 63  |Stack: Invalid c|
00006fd0  68 75 6e 6b 20 73 69 7a  65 22 29 0d 03 6a 17 cc  |hunk size")..j..|
00006fe0  4e 79 25 2d 3d 77 25 3a  e7 4e 79 25 3c 3e 58 5f  |Ny%-=w%:.Ny%<>X_|
00006ff0  25 8c 0d 03 6b 20 f2 42  28 22 52 65 6c 65 61 73  |%...k .B("Releas|
00007000  65 5f 53 74 61 63 6b 3a  20 42 61 64 20 70 6f 70  |e_Stack: Bad pop|
00007010  22 29 0d 03 6c 05 cd 0d  03 6d 05 cd 0d 03 6e 07  |")..l....m....n.|
00007020  cd 3a e1 0d 03 6f 3e dd  f2 59 79 28 72 24 2c 74  |.:...o>..Yy(r$,t|
00007030  25 2c 67 4a 25 2c 6e 5f  25 2c 57 4a 25 2c 43 4a  |%,gJ%,n_%,WJ%,CJ|
00007040  25 29 f2 73 5f 28 72 24  2c 72 24 2c 74 25 2c 67  |%).s_(r$,r$,t%,g|
00007050  4a 25 2c 6e 5f 25 2c 57  4a 25 2c 43 4a 25 29 3a  |J%,n_%,WJ%,CJ%):|
00007060  e1 0d 03 70 e3 dd f2 73  5f 28 72 24 2c 48 24 2c  |...p...s_(r$,H$,|
00007070  74 25 2c 67 4a 25 2c 6e  5f 25 2c 57 4a 25 2c 43  |t%,gJ%,n_%,WJ%,C|
00007080  4a 25 29 44 24 3d c3 28  74 25 29 2b 22 2e 22 2b  |J%)D$=.(t%)+"."+|
00007090  c2 22 30 22 2b c3 28 67  4a 25 29 2c 32 29 3a 44  |."0"+.(gJ%),2):D|
000070a0  24 2b 3d 22 20 28 22 2b  c2 22 30 22 2b c3 28 6e  |$+=" ("+."0"+.(n|
000070b0  5f 25 29 2c 32 29 2b 22  2d 22 3a 44 24 2b 3d c1  |_%),2)+"-":D$+=.|
000070c0  22 43 42 4a 61 6e 46 65  62 4d 61 72 41 70 72 4d  |"CBJanFebMarAprM|
000070d0  61 79 4a 75 6e 4a 75 6c  41 75 67 53 65 70 4f 63  |ayJunJulAugSepOc|
000070e0  74 4e 6f 76 44 65 63 22  2c 57 4a 25 2a 33 2c 33  |tNovDec",WJ%*3,3|
000070f0  29 3a 44 24 2b 3d 22 2d  22 2b c2 22 31 39 22 2b  |):D$+="-"+."19"+|
00007100  c3 28 43 4a 25 29 2c 34  29 2b 22 29 22 3a 47 24  |.(CJ%),4)+")":G$|
00007110  3d 72 24 3a f2 46 28 22  41 70 70 22 2c 47 24 29  |=r$:.F("App",G$)|
00007120  3a f2 79 79 28 4b 79 25  2c 47 24 2b 22 24 44 69  |:.yy(Ky%,G$+"$Di|
00007130  72 22 29 3a e7 4b 79 25  3d 30 8c 85 31 2c 22 45  |r"):.Ky%=0..1,"E|
00007140  49 57 35 22 0d 03 71 0c  e7 55 24 3c 3e 22 22 8c  |IW5"..q..U$<>"".|
00007150  0d 03 72 93 6e 5f 25 3d  a3 3a 53 5f 25 3d 57 25  |..r.n_%=.:S_%=W%|
00007160  3a 74 25 3d a7 55 24 2c  22 2c 22 29 3a c8 95 74  |:t%=.U$,","):..t|
00007170  25 3c 3e 30 3a 53 5f 25  21 30 3d a4 5a 28 c0 55  |%<>0:S_%!0=.Z(.U|
00007180  24 2c 74 25 2d 31 29 29  3a 53 5f 25 2b 3d 34 3a  |$,t%-1)):S_%+=4:|
00007190  55 24 3d c1 55 24 2c 74  25 2b 31 29 3a 74 25 3d  |U$=.U$,t%+1):t%=|
000071a0  a7 55 24 2c 22 2c 22 29  3a ce 3a 53 5f 25 21 30  |.U$,","):.:S_%!0|
000071b0  3d a4 5a 28 55 24 29 3a  53 5f 25 21 34 3d 30 3a  |=.Z(U$):S_%!4=0:|
000071c0  c8 99 26 34 30 30 63 30  2c 33 30 30 2c 26 34 62  |..&400c0,300,&4b|
000071d0  35 33 34 31 35 34 2c 48  24 2c 57 25 b8 55 5f 25  |534154,H$,W%.U_%|
000071e0  2c 59 25 0d 03 73 25 cc  c8 99 26 34 30 30 63 30  |,Y%..s%...&400c0|
000071f0  2c 32 30 30 2c 26 34 62  35 33 34 31 35 34 2c 48  |,200,&4b534154,H|
00007200  24 b8 55 5f 25 2c 59 25  0d 03 74 0b cd 3a ee 85  |$.U_%,Y%..t..:..|
00007210  f2 63 79 0d 03 75 16 c8  99 26 36 30 36 63 30 3a  |.cy..u...&606c0:|
00007220  e7 55 5f 25 3c 32 30 30  8c 0d 03 76 0e 85 4e 5f  |.U_%<200...v..N_|
00007230  25 2c a4 4c 28 35 29 0d  03 77 2a cd 3a 64 79 25  |%,.L(5)..w*.:dy%|
00007240  3d b9 3a f2 4c 79 3a f2  4b 79 3a 64 79 25 3d 2d  |=.:.Ly:.Ky:dy%=-|
00007250  32 3a f2 49 5f 3a f2 61  79 3a e7 5a 5f 25 3d 30  |2:.I_:.ay:.Z_%=0|
00007260  8c 0d 03 78 0f f2 45 28  73 25 2c 37 2c 44 24 29  |...x..E(s%,7,D$)|
00007270  0d 03 79 50 cd 3a 62 75  25 3d 2d 31 3a 68 75 25  |..yP.:bu%=-1:hu%|
00007280  3d 2d 31 3a 55 75 25 3d  2d 31 3a 6e 75 25 3d 2d  |=-1:Uu%=-1:nu%=-|
00007290  31 3a 70 4a 25 3d a3 3a  66 75 25 3d 2d 31 3a 53  |1:pJ%=.:fu%=-1:S|
000072a0  75 25 3d 2d 31 3a 68 24  3d 22 22 3a 6d 24 3d 22  |u%=-1:h$="":m$="|
000072b0  22 3a f2 53 79 3a c8 99  26 36 30 36 63 31 3a e1  |":.Sy:..&606c1:.|
000072c0  0d 03 7a 16 dd f2 63 79  c8 99 26 36 30 36 63 31  |..z...cy..&606c1|
000072d0  3a e7 73 79 25 8c 0d 03  7b 1a f2 56 28 79 79 25  |:.sy%...{..V(yy%|
000072e0  2c f6 24 2b 22 20 5b 22  2b c3 9e 2b 22 5d 22 29  |,.$+" ["+..+"]")|
000072f0  0d 03 7c 0f cc f2 56 28  79 79 25 2c f6 24 29 0d  |..|...V(yy%,.$).|
00007300  03 7d 0c cd 3a f2 53 3a  e0 3a e1 0d 03 7e 3e dd  |.}..:.S:.:...~>.|
00007310  f2 79 79 28 f8 57 5f 25  2c 76 24 29 ea 77 25 2c  |.yy(.W_%,v$).w%,|
00007320  52 79 25 3a c8 99 26 32  30 30 32 33 2c 76 24 2c  |Ry%:..&20023,v$,|
00007330  30 2c 2d 31 2c 30 2c 31  b8 2c 2c 77 25 2c 2c 52  |0,-1,0,1.,,w%,,R|
00007340  79 25 3a e7 77 25 3d 30  8c 0d 03 7f 09 57 5f 25  |y%:.w%=0.....W_%|
00007350  3d 30 0d 03 80 15 cc e7  52 79 25 3d 31 8c 85 31  |=0......Ry%=1..1|
00007360  2c 22 45 49 57 34 22 0d  03 81 35 77 25 3d 2d 77  |,"EIW4"...5w%=-w|
00007370  25 3a f2 47 28 57 5f 25  2c 77 25 29 3a c8 99 33  |%:.G(W_%,w%):..3|
00007380  35 2c 76 24 2c 57 5f 25  2c 77 25 2c 30 2c 31 3a  |5,v$,W_%,w%,0,1:|
00007390  57 5f 25 3f 28 77 25 2d  31 29 3d 30 0d 03 82 07  |W_%?(w%-1)=0....|
000073a0  cd 3a e1 0d 03 83 1a dd  a4 5f 46 69 6c 65 54 79  |.:......._FileTy|
000073b0  70 65 5f 76 65 72 73 69  6f 6e 3d 31 30 0d 03 84  |pe_version=10...|
000073c0  b6 dd a4 5f 68 61 72 64  5f 69 6e 69 74 69 61 6c  |..._hard_initial|
000073d0  69 73 65 5f 46 69 6c 65  54 79 70 65 3a 6b 69 3d  |ise_FileType:ki=|
000073e0  2d 31 3a 78 79 3d 38 31  39 32 3a 6e 79 3d 34 30  |-1:xy=8192:ny=40|
000073f0  39 36 3a 4f 75 3d 34 30  39 35 3a 45 4a 3d 34 30  |96:Ou=4095:EJ=40|
00007400  39 33 3a 4b 5f 3d 34 30  39 31 3a 62 3d 34 30 38  |93:K_=4091:b=408|
00007410  39 3a 79 6c 3d 34 30 38  36 3a 56 6c 3d 34 30 37  |9:yl=4086:Vl=407|
00007420  36 3a 66 3d 34 30 37 35  3a 4a 79 3d 33 34 37 38  |6:f=4075:Jy=3478|
00007430  3a 6e 4a 3d 33 33 38 38  3a 6c 6c 3d 33 32 36 39  |:nJ=3388:ll=3269|
00007440  3a 50 6c 3d 33 32 35 34  3a 6b 6c 3d 33 32 35 33  |:Pl=3254:kl=3253|
00007450  3a 78 69 3d 32 38 31 35  3a 64 75 3d 32 37 37 39  |:xi=2815:du=2779|
00007460  3a 4e 69 3d 31 37 39 33  3a 51 69 3d 31 32 39 36  |:Ni=1793:Qi=1296|
00007470  3a 3d 30 0d 03 85 19 dd  a4 5f 66 69 6c 65 5f 69  |:=0......_file_i|
00007480  6f 5f 76 65 72 73 69 6f  6e 3d 31 30 0d 03 86 7c  |o_version=10...||
00007490  dd a4 5f 68 61 72 64 5f  69 6e 69 74 69 61 6c 69  |.._hard_initiali|
000074a0  73 65 5f 66 69 6c 65 5f  69 6f f2 41 28 22 3c 42  |se_file_io.A("<B|
000074b0  61 73 69 63 56 24 4c 69  62 3e 2e 43 68 65 63 6b  |asicV$Lib>.Check|
000074c0  56 61 72 73 22 2c 32 29  3a f2 41 28 22 3c 42 61  |Vars",2):.A("<Ba|
000074d0  73 69 63 56 24 4c 69 62  3e 2e 73 74 72 69 6e 67  |sicV$Lib>.string|
000074e0  22 2c 36 29 3a 70 5f 25  3d 32 35 36 2b 32 30 3a  |",6):p_%=256+20:|
000074f0  de 68 25 70 5f 25 3a de  45 75 25 39 3a 45 75 25  |.h%p_%:.Eu%9:Eu%|
00007500  3f 38 3d 31 33 3a 3d 30  0d 03 87 3b dd a4 4d 79  |?8=13:=0...;..My|
00007510  28 4b 24 29 ea 77 25 2c  52 79 25 3a c8 99 38 2c  |(K$).w%,Ry%:..8,|
00007520  35 2c 4b 24 b8 52 79 25  2c 2c 2c 2c 77 25 3a e7  |5,K$.Ry%,,,,w%:.|
00007530  52 79 25 3d 30 8c 85 31  2c 22 45 49 46 31 20 22  |Ry%=0..1,"EIF1 "|
00007540  2b 4b 24 0d 03 88 07 3d  77 25 0d 03 89 1f dd f2  |+K$....=w%......|
00007550  66 28 4b 24 2c 4e 75 25  29 c8 99 38 2c 32 35 35  |f(K$,Nu%)..8,255|
00007560  2c 4b 24 2c 4e 75 25 3a  e1 0d 03 8a 43 dd a4 4f  |,K$,Nu%:....C..O|
00007570  28 42 24 2c 43 24 2c f8  78 25 29 ea 73 4a 25 3a  |(B$,C$,.x%).sJ%:|
00007580  c8 99 26 32 30 30 30 63  2c 31 30 2c 42 24 2c 68  |..&2000c,10,B$,h|
00007590  25 2c 31 2c 78 25 2c 70  5f 25 2c 43 24 b8 2c 2c  |%,1,x%,p_%,C$.,,|
000075a0  2c 73 4a 25 2c 78 25 3a  3d 73 4a 25 0d 03 8b 97  |,sJ%,x%:=sJ%....|
000075b0  dd a4 4e 28 42 24 2c 43  24 29 ea 52 79 25 2c 67  |..N(B$,C$).Ry%,g|
000075c0  25 2c 57 79 25 2c 44 25  2c 78 4a 25 3a c8 99 26  |%,Wy%,D%,xJ%:..&|
000075d0  32 30 30 30 38 2c 35 2c  42 24 2b 22 2e 22 2b 43  |20008,5,B$+"."+C|
000075e0  24 b8 52 79 25 2c 2c 67  25 2c 57 79 25 2c 44 25  |$.Ry%,,g%,Wy%,D%|
000075f0  2c 78 4a 25 3a 68 25 21  30 3d 67 25 3a 68 25 21  |,xJ%:h%!0=g%:h%!|
00007600  34 3d 57 79 25 3a 68 25  21 38 3d 44 25 3a 68 25  |4=Wy%:h%!8=D%:h%|
00007610  21 31 32 3d 78 4a 25 3a  68 25 21 31 36 3d 52 79  |!12=xJ%:h%!16=Ry|
00007620  25 3a f2 56 5f 28 28 42  24 2b 22 2e 22 2b 43 24  |%:.V_((B$+"."+C$|
00007630  29 2c 28 68 25 2b 32 30  29 29 3a 3d 28 52 79 25  |),(h%+20)):=(Ry%|
00007640  3d 30 29 0d 03 8c 0c dd  a4 56 79 3d 21 68 25 0d  |=0)......Vy=!h%.|
00007650  03 8d 0c dd a4 6b 3d 68  25 21 38 0d 03 8e 11 dd  |.....k=h%!8.....|
00007660  a4 51 3d a4 55 28 68 25  2b 32 30 29 0d 03 8f 14  |.Q=.U(h%+20)....|
00007670  dd a4 57 79 3d 28 28 68  25 21 31 36 29 3d 32 29  |..Wy=((h%!16)=2)|
00007680  0d 03 90 2a dd a4 57 ea  4b 25 3a 4b 25 3d a4 56  |...*..W.K%:K%=.V|
00007690  79 3a e7 28 4b 25 80 2d  31 30 34 38 35 37 36 29  |y:.(K%.-1048576)|
000076a0  3d 2d 31 30 34 38 35 37  36 8c 0d 03 91 15 4b 25  |=-1048576.....K%|
000076b0  3d 28 4b 25 80 26 66 66  66 30 30 29 3e 3e 38 0d  |=(K%.&fff00)>>8.|
000076c0  03 92 0a cc 4b 25 3d 2d  31 0d 03 93 09 cd 3a 3d  |....K%=-1.....:=|
000076d0  4b 25 0d 03 94 17 dd a4  5f 73 74 72 69 6e 67 5f  |K%......_string_|
000076e0  76 65 72 73 69 6f 6e 3d  37 0d 03 95 3a dd a4 5f  |version=7...:.._|
000076f0  68 61 72 64 5f 69 6e 69  74 69 61 6c 69 73 65 5f  |hard_initialise_|
00007700  73 74 72 69 6e 67 f2 41  28 22 3c 42 61 73 69 63  |string.A("<Basic|
00007710  56 24 4c 69 62 3e 2e 63  74 79 70 65 22 2c 31 29  |V$Lib>.ctype",1)|
00007720  3a 3d 30 0d 03 96 60 dd  a4 62 28 5a 24 2c 61 24  |:=0...`..b(Z$,a$|
00007730  29 ea 51 25 2c 61 25 2c  5f 25 3a 61 25 3d a9 28  |).Q%,a%,_%:a%=.(|
00007740  5a 24 29 3a 5f 25 3d a9  28 61 24 29 3a 51 25 3d  |Z$):_%=.(a$):Q%=|
00007750  30 3a c8 95 61 25 3e 30  80 5f 25 3e 30 80 51 25  |0:..a%>0._%>0.Q%|
00007760  3d 30 3a 51 25 3d b4 28  a4 54 28 97 28 5a 24 29  |=0:Q%=.(.T(.(Z$)|
00007770  29 2d a4 54 28 97 28 61  24 29 29 29 3a e7 51 25  |)-.T(.(a$))):.Q%|
00007780  3d 30 8c 0d 03 97 25 61  25 2d 3d 31 3a 5f 25 2d  |=0....%a%-=1:_%-|
00007790  3d 31 3a 5a 24 3d c2 5a  24 2c 61 25 29 3a 61 24  |=1:Z$=.Z$,a%):a$|
000077a0  3d c2 61 24 2c 5f 25 29  0d 03 98 0e cd 3a ce 3a  |=.a$,_%).....:.:|
000077b0  e7 51 25 3d 30 8c 0d 03  99 0f 51 25 3d b4 28 61  |.Q%=0.....Q%=.(a|
000077c0  25 2d 5f 25 29 0d 03 9a  09 cd 3a 3d 51 25 0d 03  |%-_%).....:=Q%..|
000077d0  9b 22 dd f2 56 5f 28 59  24 2c 58 25 29 24 58 25  |."..V_(Y$,X%)$X%|
000077e0  3d 59 24 3a 58 25 3f a9  28 59 24 29 3d 30 3a e1  |=Y$:X%?.(Y$)=0:.|
000077f0  0d 03 9c 16 dd a4 5f 4d  69 73 63 5f 76 65 72 73  |......_Misc_vers|
00007800  69 6f 6e 3d 34 36 0d 03  9d 36 dd a4 5f 68 61 72  |ion=46...6.._har|
00007810  64 5f 69 6e 69 74 69 61  6c 69 73 65 5f 4d 69 73  |d_initialise_Mis|
00007820  63 ea 4e 25 2c 46 5f 25  2c 52 25 3a e7 a4 48 3c  |c.N%,F_%,R%:..H<|
00007830  31 32 8c 85 31 2c 22 45  49 41 31 22 0d 03 9e 1b  |12..1,"EIA1"....|
00007840  6b 24 3d 22 22 3a 41 75  25 3d 31 30 30 3a de 6a  |k$="":Au%=100:.j|
00007850  75 25 31 36 3a 3d 30 0d  03 9f 3b dd a4 52 28 7a  |u%16:=0...;..R(z|
00007860  24 2c 5f 79 25 2c 72 75  25 29 ea 45 5f 25 2c 6d  |$,_y%,ru%).E_%,m|
00007870  5f 25 2c 79 5f 25 2c 61  5f 25 2c 65 5f 25 3a 76  |_%,y_%,a_%,e_%:v|
00007880  25 3d a4 4e 79 28 7a 24  29 3a e7 55 25 80 32 3d  |%=.Ny(z$):.U%.2=|
00007890  30 8c 0d 03 a0 16 5b 4f  50 54 55 25 3a 44 43 44  |0.....[OPTU%:DCD|
000078a0  30 3a 44 43 44 30 3a 5d  0d 03 a1 29 cc 45 5f 25  |0:DCD0:]...).E_%|
000078b0  3d 72 75 25 2d 50 25 2d  38 3a e7 94 28 45 5f 25  |=ru%-P%-8:..(E_%|
000078c0  29 3e 36 35 35 33 35 8c  85 31 2c 22 45 49 41 32  |)>65535..1,"EIA2|
000078d0  22 0d 03 a2 2c 79 5f 25  3d 94 28 45 5f 25 29 80  |"...,y_%=.(E_%).|
000078e0  32 35 35 3a 6d 5f 25 3d  94 28 45 5f 25 29 80 36  |255:m_%=.(E_%).6|
000078f0  35 32 38 30 3a e7 45 5f  25 3e 3d 30 8c 0d 03 a3  |5280:.E_%>=0....|
00007900  52 61 5f 25 3d 76 25 84  28 26 32 38 66 30 30 30  |Ra_%=v%.(&28f000|
00007910  30 2b 28 5f 79 25 3c 3c  31 32 29 2b 79 5f 25 29  |0+(_y%<<12)+y_%)|
00007920  3a 65 5f 25 3d 76 25 84  28 26 32 38 30 30 63 30  |:e_%=v%.(&2800c0|
00007930  30 2b 28 5f 79 25 3c 3c  31 36 29 2b 28 5f 79 25  |0+(_y%<<16)+(_y%|
00007940  3c 3c 31 32 29 2b 28 6d  5f 25 3e 3e 38 29 29 0d  |<<12)+(m_%>>8)).|
00007950  03 a4 53 cc 61 5f 25 3d  76 25 84 28 26 32 34 66  |..S.a_%=v%.(&24f|
00007960  30 30 30 30 2b 28 5f 79  25 3c 3c 31 32 29 2b 79  |0000+(_y%<<12)+y|
00007970  5f 25 29 3a 65 5f 25 3d  76 25 84 28 26 32 34 30  |_%):e_%=v%.(&240|
00007980  30 63 30 30 2b 28 5f 79  25 3c 3c 31 36 29 2b 28  |0c00+(_y%<<16)+(|
00007990  5f 79 25 3c 3c 31 32 29  2b 28 6d 5f 25 3e 3e 38  |_y%<<12)+(m_%>>8|
000079a0  29 29 0d 03 a5 1c cd 3a  5b 4f 50 54 55 25 3a 44  |)).....:[OPTU%:D|
000079b0  43 44 61 5f 25 3a 44 43  44 65 5f 25 3a 5d 0d 03  |CDa_%:DCDe_%:]..|
000079c0  a6 08 cd 3a 3d 30 0d 03  a7 38 dd f2 57 5f 28 56  |...:=0...8..W_(V|
000079d0  24 29 ea 54 4a 25 2c 72  4a 25 2c 76 4a 25 3a 54  |$).TJ%,rJ%,vJ%:T|
000079e0  4a 25 3d 50 25 3a 72 4a  25 3d 4f 25 3a 76 4a 25  |J%=P%:rJ%=O%:vJ%|
000079f0  3d 55 25 3a e7 28 55 25  80 34 29 3d 30 8c 0d 03  |=U%:.(U%.4)=0...|
00007a00  a8 09 4f 25 3d 50 25 0d  03 a9 51 cd 3a 50 25 3d  |..O%=P%...Q.:P%=|
00007a10  30 3a 55 25 3d 55 25 84  36 3a 50 25 3d a4 5a 28  |0:U%=U%.6:P%=.Z(|
00007a20  22 46 4e 5f 44 65 63 6c  61 72 65 5f 4c 6f 63 61  |"FN_Declare_Loca|
00007a30  6c 5f 56 61 72 69 61 62  6c 65 73 5f 22 2b 56 24  |l_Variables_"+V$|
00007a40  29 3a 50 25 3d 54 4a 25  3a 4f 25 3d 72 4a 25 3a  |):P%=TJ%:O%=rJ%:|
00007a50  55 25 3d 76 4a 25 3a e1  0d 03 aa 15 dd a4 4e 79  |U%=vJ%:.......Ny|
00007a60  28 7a 24 29 ea 76 25 3a  c8 8e 7a 24 ca 0d 03 ab  |(z$).v%:..z$....|
00007a70  12 c9 22 22 2c 22 20 20  22 3a 76 25 3d 31 34 0d  |.."","  ":v%=14.|
00007a80  03 ac 0e c9 22 6c 6f 22  3a 76 25 3d 33 0d 03 ad  |...."lo":v%=3...|
00007a90  0e c9 22 68 73 22 3a 76  25 3d 32 0d 03 ae 44 7f  |.."hs":v%=2...D.|
00007aa0  76 25 3d a7 22 65 71 6e  65 63 73 63 63 6d 69 70  |v%=."eqnecsccmip|
00007ab0  6c 76 73 76 63 68 69 6c  73 67 65 6c 74 67 74 6c  |lvsvchilsgeltgtl|
00007ac0  65 61 6c 6e 76 22 2c 7a  24 29 3a e7 28 76 25 83  |ealnv",z$):.(v%.|
00007ad0  32 29 3d 30 8c 85 31 2c  22 45 49 41 31 33 22 0d  |2)=0..1,"EIA13".|
00007ae0  03 af 10 76 25 3d 28 76  25 2d 31 29 3e 3e 31 0d  |...v%=(v%-1)>>1.|
00007af0  03 b0 0d cb 3a 3d 76 25  3c 3c 32 38 0d 03 b1 19  |....:=v%<<28....|
00007b00  dd a4 79 28 61 25 29 e7  28 55 25 80 34 29 8c 61  |..y(a%).(U%.4).a|
00007b10  25 2b 3d 79 25 0d 03 b2  07 3d 61 25 0d 03 b3 1e  |%+=y%....=a%....|
00007b20  dd f2 57 ea 4c 79 25 3a  e7 55 25 80 32 8c 4c 79  |..W.Ly%:.U%.2.Ly|
00007b30  25 3d 35 30 8b 4c 79 25  3d 30 0d 03 b4 2b c8 99  |%=50.Ly%=0...+..|
00007b40  26 36 30 36 63 34 2c 28  28 a4 79 28 50 25 29 2d  |&606c4,((.y(P%)-|
00007b50  79 25 29 2f 28 4c 25 2d  79 25 29 2a 35 30 29 2b  |y%)/(L%-y%)*50)+|
00007b60  4c 79 25 3a e1 0d 03 b5  15 dd a4 5f 48 65 61 70  |Ly%:......._Heap|
00007b70  5f 76 65 72 73 69 6f 6e  3d 39 0d 03 b6 1d dd a4  |_version=9......|
00007b80  5f 68 61 72 64 5f 69 6e  69 74 69 61 6c 69 73 65  |_hard_initialise|
00007b90  5f 48 65 61 70 3d 30 0d  03 b7 26 dd a4 59 28 f8  |_Heap=0...&..Y(.|
00007ba0  65 79 25 2c 41 25 29 65  79 25 3d ba 28 75 4a 25  |ey%,A%)ey%=.(uJ%|
00007bb0  29 3a e7 21 43 79 25 8c  65 79 25 3d 30 0d 03 b8  |):.!Cy%.ey%=0...|
00007bc0  09 3d 21 43 79 25 0d 03  b9 1c dd f2 47 28 f8 65  |.=!Cy%......G(.e|
00007bd0  79 25 2c 77 25 29 e7 a4  59 28 65 79 25 2c 77 25  |y%,w%)..Y(ey%,w%|
00007be0  29 8c 0d 03 ba 1c 65 79  25 3d 21 43 79 25 3a 85  |).....ey%=!Cy%:.|
00007bf0  21 65 79 25 2c a4 55 28  65 79 25 2b 34 29 0d 03  |!ey%,.U(ey%+4)..|
00007c00  bb 07 cd 3a e1 0d 03 bc  14 dd f2 5a 28 f8 41 25  |...:.......Z(.A%|
00007c10  29 e7 a4 6e 28 41 25 29  8c 0d 03 bd 19 41 25 3d  |)..n(A%).....A%=|
00007c20  21 43 79 25 3a 85 21 41  25 2c a4 55 28 41 25 2b  |!Cy%:.!A%,.U(A%+|
00007c30  34 29 0d 03 be 07 cd 3a  e1 0d 03 bf 1b dd a4 6e  |4).....:.......n|
00007c40  28 f8 41 25 29 d6 4b 4a  25 3a 41 25 3d 30 3a 3d  |(.A%).KJ%:A%=0:=|
00007c50  21 43 79 25 0d 03 c0 42  dd f2 4a 5f 5b 4f 50 54  |!Cy%...B..J_[OPT|
00007c60  55 25 3a a4 58 28 75 4a  25 2c 5f 79 29 3a a4 58  |U%:.X(uJ%,_y):.X|
00007c70  28 4b 4a 25 2c 6d 79 29  3a a4 58 28 61 75 25 2c  |(KJ%,my):.X(au%,|
00007c80  69 79 29 3a 41 4c 49 47  4e 3a 2e 43 79 25 44 43  |iy):ALIGN:.Cy%DC|
00007c90  44 30 3a 5d 3a e1 0d 03  c1 6d dd a4 58 28 f8 51  |D0:]:....m..X(.Q|
00007ca0  75 25 2c 64 75 25 29 5b  4f 50 54 55 25 3a 41 4c  |u%,du%)[OPTU%:AL|
00007cb0  49 47 4e 3a 2e 51 75 25  3a a4 4a 3a 53 54 4d 46  |IGN:.Qu%:.J:STMF|
00007cc0  44 28 41 29 21 2c 7b 5a  7d 3a 4d 4f 56 20 5a 2c  |D(A)!,{Z}:MOV Z,|
00007cd0  23 30 3a 53 54 52 20 5a  2c 43 79 25 3a 42 4c 20  |#0:STR Z,Cy%:BL |
00007ce0  64 75 25 3a 53 54 52 76  73 30 2c 43 79 25 3a 4c  |du%:STRvs0,Cy%:L|
00007cf0  44 4d 46 44 28 41 29 21  2c 7b 70 63 7d 5e 3a 5d  |DMFD(A)!,{pc}^:]|
00007d00  3a 3d 30 0d 03 c2 18 dd  a4 5f 4d 65 73 73 61 67  |:=0......_Messag|
00007d10  65 5f 76 65 72 73 69 6f  6e 3d 36 0d 03 c3 6f dd  |e_version=6...o.|
00007d20  a4 5f 68 61 72 64 5f 69  6e 69 74 69 61 6c 69 73  |._hard_initialis|
00007d30  65 5f 4d 65 73 73 61 67  65 3a 61 69 3d 33 31 3a  |e_Message:ai=31:|
00007d40  c8 99 35 2c 22 52 4d 45  6e 73 75 72 65 20 43 41  |..5,"RMEnsure CA|
00007d50  73 73 65 6d 62 6c 65 72  20 30 2e 30 38 20 52 4d  |ssembler 0.08 RM|
00007d60  4c 6f 61 64 20 53 79 73  74 65 6d 3a 4d 6f 64 75  |Load System:Modu|
00007d70  6c 65 73 2e 43 41 73 73  65 6d 62 6c 65 72 22 3a  |les.CAssembler":|
00007d80  de 6c 79 20 32 35 36 3a  3d 30 0d 03 c4 48 dd a4  |.ly 256:=0...H..|
00007d90  67 28 66 24 2c 4c 75 25  2c f8 44 5f 25 29 ea 41  |g(f$,Lu%,.D_%).A|
00007da0  25 3a c8 99 26 66 63 62  38 33 2c 66 24 2b 22 2e  |%:..&fcb83,f$+".|
00007db0  4d 65 73 73 61 67 65 73  2e 22 2c 4c 75 25 2c 30  |Messages.",Lu%,0|
00007dc0  b8 41 25 2c 44 5f 25 3a  e7 44 5f 25 3d 30 8c d6  |.A%,D_%:.D_%=0..|
00007dd0  47 79 0d 03 c5 07 3d 41  25 0d 03 c6 3c dd a4 41  |Gy....=A%...<..A|
00007de0  79 28 4a 25 2c 54 24 2c  68 5f 25 29 c8 99 26 66  |y(J%,T$,h_%)..&f|
00007df0  63 62 38 35 2c 54 24 2c  68 5f 25 2c 4a 25 b8 68  |cb85,T$,h_%,J%.h|
00007e00  5f 25 3b 4a 25 3a 3d 68  5f 25 80 28 28 4a 25 80  |_%;J%:=h_%.((J%.|
00007e10  32 29 3d 32 29 0d 03 c7  3b dd a4 75 28 4a 25 2c  |2)=2)...;..u(J%,|
00007e20  54 24 2c 71 24 29 ea 74  25 3a c8 99 26 66 63 62  |T$,q$).t%:..&fcb|
00007e30  38 35 2c 54 24 2c 71 24  2c 4a 25 b8 74 25 3b 4a  |85,T$,q$,J%.t%;J|
00007e40  25 3a 3d 74 25 80 28 28  4a 25 80 32 29 3d 32 29  |%:=t%.((J%.2)=2)|
00007e50  0d 03 c8 2f dd a4 70 28  4a 25 29 ea 74 25 3a c8  |.../..p(J%).t%:.|
00007e60  99 26 66 63 62 38 36 2c  4a 25 b8 74 25 3b 4a 25  |.&fcb86,J%.t%;J%|
00007e70  3a 3d 74 25 80 28 28 4a  25 80 32 29 3d 32 29 0d  |:=t%.((J%.2)=2).|
00007e80  03 c9 3b dd a4 44 28 4a  25 2c 54 24 29 ea 74 25  |..;..D(J%,T$).t%|
00007e90  3a c8 99 26 66 63 62 38  34 2c 54 24 2c 6c 79 2c  |:..&fcb84,T$,ly,|
00007ea0  32 35 36 2c 4a 25 2c 30  b8 74 25 2c 4a 25 3a 3f  |256,J%,0.t%,J%:?|
00007eb0  4a 25 3d 31 33 3a 3d 24  6c 79 0d 03 ca 26 dd f2  |J%=13:=$ly...&..|
00007ec0  7a 79 28 4a 25 2c 54 24  2c 42 75 25 29 4a 25 3d  |zy(J%,T$,Bu%)J%=|
00007ed0  a4 41 79 28 4a 25 2c 54  24 2c 42 75 25 29 3a e1  |.Ay(J%,T$,Bu%):.|
00007ee0  0d 03 cb 23 dd f2 75 79  28 4a 25 2c 54 24 2c 71  |...#..uy(J%,T$,q|
00007ef0  24 29 4a 25 3d a4 75 28  4a 25 2c 54 24 2c 71 24  |$)J%=.u(J%,T$,q$|
00007f00  29 3a e1 0d 03 cc 17 dd  f2 7a 5f 28 4a 25 29 4a  |):.......z_(J%)J|
00007f10  25 3d a4 70 28 4a 25 29  3a e1 0d 03 cd 1c dd a4  |%=.p(J%):.......|
00007f20  53 28 52 25 29 3d a4 44  28 6d 25 2c 22 45 22 2b  |S(R%)=.D(m%,"E"+|
00007f30  c3 28 52 25 29 29 0d 03  ce 15 dd a4 45 28 5f 24  |.(R%))......E(_$|
00007f40  29 3d a4 44 28 6d 25 2c  5f 24 29 0d 03 cf 1d dd  |)=.D(m%,_$).....|
00007f50  f2 5f 28 5f 24 2c 52 25  29 f2 7a 79 28 6d 25 2c  |._(_$,R%).zy(m%,|
00007f60  5f 24 2c 52 25 29 3a e1  0d 03 d0 1d dd f2 46 28  |_$,R%):.......F(|
00007f70  5f 24 2c 69 24 29 f2 75  79 28 6d 25 2c 5f 24 2c  |_$,i$).uy(m%,_$,|
00007f80  69 24 29 3a e1 0d 03 d1  27 dd f2 6f 28 5f 24 2c  |i$):....'..o(_$,|
00007f90  42 25 29 c8 99 26 64 63  62 38 34 2c 5f 24 2c 42  |B%)..&dcb84,_$,B|
00007fa0  25 2c 32 35 36 2c 6d 25  2c 30 3a e1 0d 03 d2 11  |%,256,m%,0:.....|
00007fb0  dd f2 51 5f f2 7a 5f 28  6d 25 29 3a e1 0d 03 d3  |..Q_.z_(m%):....|
00007fc0  12 dd f2 79 28 5f 25 29  e7 5f 25 3c 3d 30 8c 0d  |...y(_%)._%<=0..|
00007fd0  03 d4 1e f2 46 28 22 53  79 73 22 2c 22 22 29 3a  |....F("Sys",""):|
00007fe0  f2 46 28 22 53 79 73 4e  22 2c 22 22 29 0d 03 d5  |.F("SysN","")...|
00007ff0  2a cc f2 46 28 22 53 79  73 22 2c a4 4d 28 5f 25  |*..F("Sys",.M(_%|
00008000  2b 34 29 29 3a f2 46 28  22 53 79 73 4e 22 2c c3  |+4)):.F("SysN",.|
00008010  7e 28 21 5f 25 29 29 0d  03 d6 07 cd 3a e1 0d 03  |~(!_%)).....:...|
00008020  d7 1d dd a4 4c 28 52 25  29 3d a4 44 28 6d 25 2c  |....L(R%)=.D(m%,|
00008030  22 4c 45 22 2b c3 28 52  25 29 29 0d 03 d8 2f dd  |"LE"+.(R%)).../.|
00008040  f2 78 79 5b 4f 50 54 55  25 3a 41 4c 49 47 4e 3a  |.xy[OPTU%:ALIGN:|
00008050  2e 47 79 3a a4 4a 3a 42  20 6b 79 3a 5d 3a e7 55  |.Gy:.J:B ky:]:.U|
00008060  25 80 34 8c 47 79 2b 3d  79 25 0d 03 d9 05 e1 0d  |%.4.Gy+=y%......|
00008070  03 da 18 dd a4 5f 49 6e  74 4d 61 74 68 5f 76 65  |....._IntMath_ve|
00008080  72 73 69 6f 6e 3d 36 0d  03 db 20 dd a4 5f 68 61  |rsion=6... .._ha|
00008090  72 64 5f 69 6e 69 74 69  61 6c 69 73 65 5f 49 6e  |rd_initialise_In|
000080a0  74 4d 61 74 68 3d 30 0d  03 dc 1b dd a4 5f 4e 75  |tMath=0......_Nu|
000080b0  6c 6c 52 65 61 73 6f 6e  5f 76 65 72 73 69 6f 6e  |llReason_version|
000080c0  3d 35 0d 03 dd 23 dd a4  5f 68 61 72 64 5f 69 6e  |=5...#.._hard_in|
000080d0  69 74 69 61 6c 69 73 65  5f 4e 75 6c 6c 52 65 61  |itialise_NullRea|
000080e0  73 6f 6e 3d 30 0d 03 de  29 dd f2 61 79 de 60 25  |son=0...)..ay.`%|
000080f0  34 3a 21 60 25 3d 30 3a  77 79 25 3d 30 3a 47 5f  |4:!`%=0:wy%=0:G_|
00008100  25 3d a3 3a 4f 79 25 3d  36 31 39 33 3a e1 0d 03  |%=.:Oy%=6193:...|
00008110  df 1f dd f2 4f 79 28 4c  24 2c 6e 79 25 29 f2 47  |....Oy(L$,ny%).G|
00008120  5f 28 4c 24 2c 6e 79 25  2c b9 29 3a e1 0d 03 e0  |_(L$,ny%,.):....|
00008130  5c dd f2 47 5f 28 4c 24  2c 6e 79 25 2c 63 5f 25  |\..G_(L$,ny%,c_%|
00008140  29 ea 52 25 3a f2 47 28  52 25 2c 31 32 2b a9 28  |).R%:.G(R%,12+.(|
00008150  4c 24 29 2b 31 29 3a 24  28 52 25 2b 31 32 29 3d  |L$)+1):$(R%+12)=|
00008160  4c 24 3a 52 25 21 38 3d  6e 79 25 3a 52 25 21 34  |L$:R%!8=ny%:R%!4|
00008170  3d 63 5f 25 3a 21 52 25  3d 21 60 25 3a 21 60 25  |=c_%:!R%=!`%:!`%|
00008180  3d 52 25 3a f2 43 79 3a  e1 0d 03 e1 1f dd f2 57  |=R%:.Cy:.......W|
00008190  79 28 4c 24 2c 6e 79 25  29 f2 6c 79 28 4c 24 2c  |y(L$,ny%).ly(L$,|
000081a0  6e 79 25 2c b9 29 3a e1  0d 03 e2 22 dd f2 6c 79  |ny%,.):...."..ly|
000081b0  28 4c 24 2c 6e 79 25 2c  63 5f 25 29 ea 52 25 2c  |(L$,ny%,c_%).R%,|
000081c0  5a 25 3a e7 4c 24 3d 22  22 8c 0d 03 e3 1d f2 42  |Z%:.L$=""......B|
000081d0  28 22 45 49 4e 33 22 29  3a c8 95 21 60 25 3a f2  |("EIN3"):..!`%:.|
000081e0  63 28 60 25 29 3a ce 0d  03 e4 4d cc 5a 25 3d 60  |c(`%):....M.Z%=`|
000081f0  25 3a c8 95 21 5a 25 3a  52 25 3d 21 5a 25 3a e7  |%:..!Z%:R%=!Z%:.|
00008200  28 24 28 52 25 2b 31 32  29 3d 4c 24 29 80 28 52  |($(R%+12)=L$).(R|
00008210  25 21 34 3d 63 5f 25 29  80 28 28 28 6e 79 25 3d  |%!4=c_%).(((ny%=|
00008220  30 29 80 63 5f 25 29 84  28 52 25 21 38 3d 6e 79  |0).c_%).(R%!8=ny|
00008230  25 29 29 8c 0d 03 e5 0a  f2 63 28 5a 25 29 0d 03  |%))......c(Z%)..|
00008240  e6 0a cc 5a 25 3d 52 25  0d 03 e7 07 cd 3a ce 0d  |...Z%=R%.....:..|
00008250  03 e8 07 cd 3a e1 0d 03  e9 1f dd f2 63 28 5a 25  |....:.......c(Z%|
00008260  29 ea 52 25 3a e7 5a 25  3d 30 8c f2 42 28 22 45  |).R%:.Z%=0..B("E|
00008270  49 4e 36 22 29 0d 03 ea  1b 52 25 3d 21 5a 25 3a  |IN6")....R%=!Z%:|
00008280  e7 52 25 3d 30 8c f2 42  28 22 45 49 4e 35 22 29  |.R%=0..B("EIN5")|
00008290  0d 03 eb 0c e7 52 25 3d  77 79 25 8c 0d 03 ec 11  |.....R%=wy%.....|
000082a0  77 79 25 3d 21 52 25 3a  47 5f 25 3d b9 0d 03 ed  |wy%=!R%:G_%=....|
000082b0  1a cd 3a 21 5a 25 3d 21  52 25 3a f2 5a 28 52 25  |..:!Z%=!R%:.Z(R%|
000082c0  29 3a f2 43 79 3a e1 0d  03 ee 0d dd f2 43 79 e7  |):.Cy:.......Cy.|
000082d0  21 60 25 8c 0d 03 ef 10  4f 79 25 3d 4f 79 25 80  |!`%.....Oy%=Oy%.|
000082e0  28 ac 31 29 0d 03 f0 0e  cc 4f 79 25 3d 4f 79 25  |(.1).....Oy%=Oy%|
000082f0  84 31 0d 03 f1 07 cd 3a  e1 0d 03 f2 35 dd f2 74  |.1.....:....5..t|
00008300  5f ea 75 25 2c 5a 25 2c  73 5f 25 2c 41 25 3a 75  |_.u%,Z%,s_%,A%:u|
00008310  25 3d 21 60 25 3a c8 95  75 25 3a 77 79 25 3d 75  |%=!`%:..u%:wy%=u|
00008320  25 3a 47 5f 25 3d a3 3a  e7 75 25 21 34 8c 0d 03  |%:G_%=.:.u%!4...|
00008330  f3 36 73 5f 25 3d a4 5a  28 22 46 4e 5f 4e 75 6c  |.6s_%=.Z("FN_Nul|
00008340  6c 5f 52 65 61 73 6f 6e  5f 22 2b 24 28 75 25 2b  |l_Reason_"+$(u%+|
00008350  31 32 29 2b 22 28 22 2b  c3 28 75 25 21 38 29 2b  |12)+"("+.(u%!8)+|
00008360  22 29 22 29 0d 03 f4 27  cc 73 5f 25 3d a4 5a 28  |")")...'.s_%=.Z(|
00008370  22 46 4e 5f 4e 75 6c 6c  5f 52 65 61 73 6f 6e 5f  |"FN_Null_Reason_|
00008380  22 2b 24 28 75 25 2b 31  32 29 29 0d 03 f5 0b cd  |"+$(u%+12)).....|
00008390  3a e7 47 5f 25 8c 0d 03  f6 0a 75 25 3d 77 79 25  |:.G_%.....u%=wy%|
000083a0  0d 03 f7 17 cc 77 79 25  3d 30 3a 41 25 3d 21 75  |.....wy%=0:A%=!u|
000083b0  25 3a e7 73 5f 25 8c 0d  03 f8 2b 5a 25 3d 60 25  |%:.s_%....+Z%=`%|
000083c0  3a c8 95 21 5a 25 3c 3e  75 25 3a 5a 25 3d 21 5a  |:..!Z%<>u%:Z%=!Z|
000083d0  25 3a e7 5a 25 3d 30 8c  f2 42 28 22 45 49 4e 32  |%:.Z%=0..B("EIN2|
000083e0  22 29 0d 03 f9 0c ce 3a  f2 63 28 5a 25 29 0d 03  |").....:.c(Z%)..|
000083f0  fa 0b cd 3a 75 25 3d 41  25 0d 03 fb 09 cd 3a ce  |...:u%=A%.....:.|
00008400  3a e1 0d 03 fc 20 dd a4  5f 4e 75 6c 6c 5f 52 65  |:.... .._Null_Re|
00008410  61 73 6f 6e 5f f2 42 28  22 45 49 4e 31 22 29 3a  |ason_.B("EIN1"):|
00008420  3d 30 0d 03 fd 1a dd a4  5f 43 68 65 63 6b 56 61  |=0......_CheckVa|
00008430  72 73 5f 76 65 72 73 69  6f 6e 3d 33 0d 03 fe 22  |rs_version=3..."|
00008440  dd a4 5f 68 61 72 64 5f  69 6e 69 74 69 61 6c 69  |.._hard_initiali|
00008450  73 65 5f 43 68 65 63 6b  56 61 72 73 3d 30 0d 03  |se_CheckVars=0..|
00008460  ff 16 dd a4 5f 63 74 79  70 65 5f 76 65 72 73 69  |...._ctype_versi|
00008470  6f 6e 3d 31 0d 04 00 1e  dd a4 5f 68 61 72 64 5f  |on=1......_hard_|
00008480  69 6e 69 74 69 61 6c 69  73 65 5f 63 74 79 70 65  |initialise_ctype|
00008490  3d 30 0d 04 01 1d dd a4  55 79 28 51 25 29 3d 51  |=0......Uy(Q%)=Q|
000084a0  25 2d 97 28 22 41 22 29  2b 97 28 22 61 22 29 0d  |%-.("A")+.("a").|
000084b0  04 02 22 dd a4 53 79 28  51 25 29 3d 51 25 3e 3d  |.."..Sy(Q%)=Q%>=|
000084c0  97 28 22 41 22 29 80 51  25 3c 3d 97 28 22 5a 22  |.("A").Q%<=.("Z"|
000084d0  29 0d 04 03 18 dd a4 54  28 51 25 29 ea 4b 25 3a  |)......T(Q%).K%:|
000084e0  e7 a4 53 79 28 51 25 29  8c 0d 04 04 0e 4b 25 3d  |..Sy(Q%).....K%=|
000084f0  a4 55 79 28 51 25 29 0d  04 05 0a cc 4b 25 3d 51  |.Uy(Q%).....K%=Q|
00008500  25 0d 04 06 09 cd 3a 3d  4b 25 0d 05 18 05 3a 0d  |%.....:=K%....:.|
00008510  05 19 05 3a 0d 05 1a 05  3a 0d 05 1b 0d dd f2 48  |...:....:......H|
00008520  5f f2 41 79 3a e1 0d 05  1c 20 dd f2 4f 5f d5 23  |_.Ay:.... ..O_.#|
00008530  57 25 21 32 30 2c 22 52  75 6e 20 22 2b a4 4d 28  |W%!20,"Run "+.M(|
00008540  4b 79 25 29 3a e1 0d 05  1d 05 3a 0d 05 1e 05 3a  |Ky%):.....:....:|
00008550  0d ff                                             |..|
00008552