Home » Archimedes archive » Archimedes World » AW-1995-02-Disc1.adf » Disk1Feb95 » !AWFeb95/Goodies/BasicComp/!BC/!fe/!RunImage

!AWFeb95/Goodies/BasicComp/!BC/!fe/!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-1995-02-Disc1.adf » Disk1Feb95
Filename: !AWFeb95/Goodies/BasicComp/!BC/!fe/!RunImage
Read OK:
File size: 8C77 bytes
Load address: 0000
Exec address: 0000
File contents
    1REM>!RunImage
    2REMProduced by BasCompress v1.31 (18 Jan 1993)
    3ONERRORPROCY
    4PROCly(20,12):ey%=-2:C_%=FALSE:dy%=FALSE:PROCS("<BasicV$Lib>.CAsm",1):PROCS("<BasicV$Lib>.Template",12):xJ%=C_%:Zy%=TRUE:j_%=15:LJ%=TRUE:eu%=0:k%=1:x%=2:Cy%=3:ly%=4:y%=5:tJ%=6:Su%=7:oJ%=0:My%=1:fy%=2:Lu%=3:HJ%=4:JJ%=0:qJ%=1:QJ%=2:l_%=3:f_%=4
    5c_%=5:OJ%=6:k_%=0:zJ%=1:YJ%=2:Gy%=3:U_%=4:q_%=5:m_%=6:Ul%=0:sJ%=1:cJ%=2:KJ%=3:MJ%=4:eJ%=5:AJ%=6:b_%=0:i_%=1:DJ%=2:UJ%=0:Qy%=1:Pu%=2:wJ%=0:Q_%=1:pJ%=2
    6PROCE_("stdio, stdlib, string, message, wimp"):PROCq_(2000,FALSE,FALSE):PROCS("<BasicV$Lib>.FileType",1):PROCS("<BasicV$Lib>.IntMath",4):PROCS("<BasicV$Lib>.ModeInfo",1):PROCS("<BasicV$Lib>.Wimp",35):p%=FN`("<BasCompressFE$Dir>",-1,z_%):IFz_%>0THEN
    7ERROR!p%,"BasCompressFE can't load its' message file: "+FNL(p%+4)
    8ENDIF:uy%=3:Dy%=23:Hl%=8:w%=4:Mu%=0:oy%=1:lJ%=3:ky%=4:qu%=6:ny%=7:mu%=9:O_%=10:IJ%=0:`_%=1:rJ%=2:fJ%=3:CJ%=4:ZJ%=5:iJ%=7:Tu%=8:mJ%=9:gu%=10:Xu%=11:x=0:z=1:xy=2:Iy=3:hy=4:Vy=4:M=8
    9J=-1:I=0:ry=1:F_=2:G=1:N=2:W=3:r=4:p=0:Hy=11:wy=22:j$="":f$="":H_%=0:X_%=0:DIMM%(w%):DIMS%(w%):DIMZ%(w%):w_%=-1:r_%=-1:t$="":Z=G:u_%=-1:Y=p:Ll%=FALSE:S_%=FALSE:l%=TRUE:v_%=FALSE
   10D$="&502,1,2,3,&400C0,&400C1,8,&400CC,10":PROCHy("BasCompressFE",1,40,17,7,1994):dy%=C_%:PROCL_:CALL_y:CALL_y:PROCg:IFFNZy(T%)
   11ONERRORPROCY
   12PROCR_:REPEATPROCC_:UNTILFALSE:END
   13DEFPROCxLOCALW_,L:IFS%AND2THEN
   14M%=P%:Bu%=S%:O%=P%:P%=0:S%=S%OR4:[OPTS%:ALIGN:]:P%=M%:S%=Bu%
   15ENDIF:[OPTS%:ALIGN:.D:.Qy DCD0:.Gy DCD0:.i DCD0:.P DCD0:DCD0:.Uy DCD0:DCD0:.n DCD0:.Jy DCD0:.Ey DCD0:.Fy DCD0:.Cy DCD0:DCD0:DCD0:DCD0:DCD0:DCD0:.Py DCD0
   16.g DCD0:DCD0:.Sy DCD0:.Ay DCD0:.u DCD0:.c DCD0:.h DCD0:.v DCD0:.b DCD0:.Xy DCD0:.t DCD0:.l DCD0:.f DCD0:DCD0:DCD0:DCD0:DCD0:DCD0:.m DCD0:.My DCD0:DCD0:.o DCD0:.e DCD0:.V DCD0:.q DCD0:.w DCD0:.O DCD0:.qy:ALIGN:.yy:FNE(k%,JJ%):FNE(k%,qJ%)
   17FNE(k%,QJ%):FNE(k%,l_%):FNs(k%,f_%):FNE(k%,f_%):FNs(k%,c_%):FNE(k%,c_%):FNE(k%,OJ%):FNE(x%,zJ%):FNE(x%,YJ%):FNF(x%,Gy%,0):FNF(x%,Gy%,1):FNF(x%,Gy%,2):FNF(x%,Gy%,3):FNF(x%,Gy%,4):FNF(x%,Gy%,5):FNF(x%,Gy%,m_%):FNF(x%,U_%,0):FNF(x%,U_%,1):FNE(x%,q_%):FNE(Cy%,sJ%)
   18FNE(Cy%,cJ%):FNE(Cy%,KJ%):FNE(Cy%,MJ%):FNE(Cy%,eJ%):FNE(Cy%,AJ%):FNE(ly%,b_%):FNE(ly%,i_%):FNY(y%,My%,UJ%):FNJ(y%,My%,Qy%,0):FNJ(y%,My%,Qy%,1):FNJ(y%,My%,Qy%,2):FNJ(y%,My%,Qy%,3):FNJ(y%,My%,Qy%,4):FNJ(y%,My%,Qy%,5)
   19FNY(y%,fy%,wJ%):FNJ(y%,fy%,Q_%,0):FNJ(y%,fy%,Q_%,1):FNE(y%,HJ%):DCB203:.W_:EQUS"[0,w>,m>,m>,m>,m>,m>,d>,>":DCB0
   20EQUS"[100,>,>,>,>,>,d>,>":DCB0:EQUS"[200,w>,>,>,m>,m>,m>":DCB0:EQUS"[300,>,>,>,>,>,>,>":DCB0:EQUS"[400,>,>":DCB0:EQUS"[250,i4":DCB0:EQUS"[500,w>,>,>,>,>,>,>":DCB0:EQUS"[600,>,>,i256":DCB0:EQUS"[700,w>,m>,m>,w>,>":DCB0:EQUS"[800,m>,m>,w>":DCB0
   21EQUS"[900,>,>,>,>,>":DCB0:EQUS"[300,>,>,>,>,>,>":DCB0:EQUS"[1000,m>,m>,w>":DCB0:EQUS"[900,>,>,>,>,>":DCB0:EQUS"[400,>,>":DCB0:ALIGN:.L DCD0:DCD0:DCD0:.jy EQUS"A0-9;":.Dy EQUS"Pptr_write"+CHR$0:._y:FNX
   22STMFD(A)!,{4-9,E}:ADR1,L+4:FNk("",0,W_):BL dy:LDMvsFD(A)!,{4-9,pc}:STR0,L:ADR2,Dy:LDR1,[0,#FNU(x%)+4]:LDR1,[1,#FNU(q_%)+4]:ADR2,jy:STR2,[1,#FNU(0)+12+4]
   23LDR1,[0,#FNU(ly%)+4]:ADR2,Dy:STR2,[1,#FNU(DJ%)+12+4]:ADR0,L:LDMFD(A)!,{4-9,pc}:.E_:STMFD(A)!,{E}:ADR0,yy:ADR1,D:LDR2,L:BL cy:ADRvc0,L:LDMFD(A)!,{pc}:]:PROCjy:PROCQ_:ENDPROC
   24DEFPROCjENDPROC
   25DEFPROCuy:K%=FNT("Order",f%):T%=FNO("Control",0,+1):e%=FNT("SaveAs",+1):X%=FNT("Choices",f%):PROChy:ENDPROC
   26DEFPROCoy(Q%,V%,I%,F%)IF(I%AND1)THEN
   27IFNOTFNZ(t$)THEN
   28Q%=FNv(t$)
   29ENDIF
   30ELSESYS&465c6,Y%,T%:PROCH_(T%,-1)
   31ENDIF:ENDPROC
   32DEFPROCrySYS&400c5,,W%:ENDPROC
   33DEFPROCsySYS&400c6,,W%:ENDPROC
   34DEFPROCT_LOCALGJ%:LOCALERROR:SYS&606c0:ONERRORLOCALRESTOREERROR:SYS&606c1:PROCL
   35SYS&400c8,,W%TOGJ%:WHILEGJ%:SYS&400ca,,W%TOGJ%:ENDWHILE:RESTOREERROR:SYS&606c1:ENDPROC
   36DEFPROCs_LOCALU%,F%,g%:U%=W%!0:F%=W%!4:g%=W%!24:CASEU%OF
   37WHENe%:PROCJ_(F%,g%)
   38WHENT%:PROCBy(F%,g%)
   39WHENX%:PROCx_(F%,g%)
   40OTHERWISESYS&400dc,g%
   41ENDCASE:ENDPROC
   42DEFPROCmPROCF:ENDPROC
   43DEFPROCOyLOCALZ$,U%,F%,A%,E%,Wy%:Z$="":U%=W%!32:F%=W%!36:CASEU%OF
   44WHEN-2:IFF%=_J%THEN
   45Z$="IconBar"
   46ELSEZ$=FNb
   47ENDIF
   48WHENu%:Z$="ProgInfo"
   49WHENK%:Z$="Order":IFFNe(F%)THEN
   50PROCk(F%,E%,Wy%):IFWy%=MTHEN
   51Z$+=",R"
   52ELSEZ$+=","+CHR$(ASC("A")+Wy%)
   53ENDIF
   54ELSEZ$+=",_"
   55ENDIF
   56WHENT%:Z$="Control":IFF%=-1THEN
   57Z$+=",_"
   58ELSEZ$+=","+STR$(F%)
   59ENDIF
   60WHENX%:Z$="Choices":Z$+=","+STR$(F%)
   61WHENe%:PROCl("SaveAsType",Z):Z$="SaveAs"
   62OTHERWISEIF(P_%>218)AND(W%!36<>-1)THEN
   63Z$=FNb
   64ENDIF
   65ENDCASE:IFZ$<>""THEN
   66PROCo("H"+Z$,W%+20):IFW%?20THEN
   67W%!16=1283:W%!12=W%!8:A%=W%+20:WHILE?A%:A%+=1:ENDWHILE:IFA%>=(W%+256)THENA%=W%+255:?A%=0
   68W%!0=(A%-W%+4)AND-4:SYS&400e7,17,W%,W%!4
   69ENDIF
   70ENDIF:ENDPROC
   71DEFFNbLOCALZ$,D%:D%=W%+40:SYS&400f4,1,D%,W%!32,W%!36:CASERy%OF
   72WHENsy%:Z$="I"
   73ENDCASE:IFZ$<>""THEN
   74Z$="M"+Z$+STR$(!D%):WHILED%!4<>-1:D%+=4:Z$+="_,"+STR$(!D%):ENDWHILE
   75ENDIF:=Z$
   76DEFPROCpPROCby(-1):SYS&465c2,Y%:PROCQy:ENDPROC
   77DEFPROCFONERRORPRINT"Error in error handler: ";REPORT$:END
   78PROCny:PROCK_:CALLZy:SYS&400dd:END:ENDPROC
   79DEFPROCRyLOCALQ%,V%,I%,D%,F%,_%,Wy%:Q%=W%!0:V%=W%!4:I%=W%!8:D%=W%!12:F%=W%!16:CASEI%OF
   80WHEN2:CASED%OF
   81WHEN-2:PROC_:V%=96+(44*Hu%)+(24*Wu%):SYS&400d4,,c%,Q%-64,V%
   82WHENT%:PROC_:SYS&400d4,,c%,Q%-64,V%
   83ENDCASE
   84WHEN1*16,4*16:CASED%OF
   85WHENT%:CASEF%OF
   86WHENlJ%:Z=G:PROCa(D%,F%,I%,"FileName_Control")
   87WHENqu%:Z=N:PROCa(D%,F%,I%,"FileName_Control")
   88WHENMu%:Z=W:PROCa(D%,F%,I%,"FileName_Control")
   89ENDCASE
   90WHENe%:CASEF%OF
   91WHEN1:PROCa(D%,F%,I%,"FileName_SaveAs")
   92ENDCASE
   93WHENu%:PROCCy(Q%,V%,I%,F%)
   94ENDCASE
   95OTHERWISECASED%OF
   96WHEN-2:PROCoy(Q%,V%,I%,F%)
   97WHENh_%:PROCG_(Q%,V%,I%,F%)
   98WHENe%:PROCGy(Q%,V%,I%,F%)
   99WHENu%:PROCCy(Q%,V%,I%,F%)
  100WHENK%:PROCO_(Q%,V%,I%,F%)
  101WHENT%:PROCiy(Q%,V%,I%,F%)
  102WHENX%:PROCPy(Q%,V%,I%,F%)
  103ENDCASE
  104ENDCASE:ENDPROC
  105DEFPROCky:Ry%=FALSE:sy%=&1040a31+0:ENDPROC
  106DEFPROC_LOCALA%:Hu%=8:Wu%=1:A%=USR(E_):c%=!A%:IFNOTv_%THEN
  107PROCpy(c%,"1,2,23,24,25,3,4,5,51,510,511,52,520,521"):v_%=TRUE
  108ENDIF:X_%=A%!4:H_%=A%!8:$X_%=STR$(By):$H_%=H$:Ry%=sy%:ENDPROC
  109DEFPROCqyLOCALQ%,V%,R_%,Ay%,o%,m%:Q%=W%!24:V%=W%!28:R_%=W%!32:Ay%=W%!36:o%=W%!40:m%=by%:CASERy%OF
  110WHENsy%:CASER_%OF
  111WHENeu%:PROCn:SYS&400e8,,u%,Q%,V%
  112WHENx%:CASEAy%OF
  113WHENk_%:Z=W:PROCR:SYS&400e8,,e%,Q%,V%
  114ENDCASE
  115WHENCy%:CASEAy%OF
  116WHENk_%:Z=G:PROCR:SYS&400e8,,e%,Q%,V%
  117ENDCASE
  118WHENy%:CASEAy%OF
  119WHENoJ%:Z=N:PROCR:SYS&400e8,,e%,Q%,V%
  120WHENMy%:CASEo%OF
  121WHENPu%:Y=Hy:PROCd(S%()):SYS&400e8,,K%,Q%,V%
  122ENDCASE
  123WHENfy%:CASEo%OF
  124WHENpJ%:Y=wy:PROCd(M%()):SYS&400e8,,K%,Q%,V%
  125ENDCASE
  126WHENLu%:Y=p:PROCd(Z%()):SYS&400e8,,K%,Q%,V%
  127ENDCASE
  128ENDCASE
  129ENDCASE:ENDPROC
  130DEFPROCM_LOCALR_%,Z%,nJ%,jJ%,Nu%,Ay%,A%,o%:LOCALNy%:Z%=FNA(512):SYS&400cf,,Z%:nJ%=Z%!0:jJ%=Z%!4:Nu%=Z%!8:PROCM(Z%,512):R_%=!W%:Ay%=W%!4:o%=W%!8:Ny%=W%!12:CASERy%OF
  131WHENsy%:CASER_%OF
  132WHENk%:CASEAy%OF
  133WHENJJ%:PROCE(Qy)
  134WHENqJ%:PROCE(Gy)
  135WHENQJ%:PROCE(i)
  136WHENl_%:PROCE(P):PROCE(P+4):PROCE(P+12)
  137WHENf_%:PROCE(Uy)
  138WHENc_%:PROCE(n)
  139WHENOJ%:PROCE(Jy)
  140ENDCASE
  141WHENx%:CASEAy%OF
  142WHENzJ%:PROCE(Ey)
  143WHENYJ%:PROCE(Fy)
  144WHENGy%:CASEo%OF
  145WHENm_%:PROCE(Py)
  146WHEN-1
  147OTHERWISEPROCE(Cy+(o%<<2))
  148ENDCASE
  149WHENU_%:IFo%<>-1THEN
  150PROCE(g+(o%<<2))
  151ENDIF
  152WHENq_%:CASEo%OF
  153WHEN-1:PROCE(Sy)
  154WHEN0:By=VAL($X_%)
  155ENDCASE
  156ENDCASE
  157WHENCy%:CASEAy%OF
  158WHENsJ%:PROCE(Ay)
  159WHENcJ%:PROCE(u)
  160WHENKJ%:PROCE(c)
  161WHENMJ%:PROCE(h)
  162WHENeJ%:PROCE(v)
  163WHENAJ%:PROCE(b)
  164ENDCASE
  165WHENly%:CASEAy%OF
  166WHENDJ%:PROCs($H_%)
  167WHENb_%:PROCE(Xy)
  168WHENi_%:PROCE(t)
  169ENDCASE
  170WHENy%:CASEAy%OF
  171WHENMy%:CASEo%OF
  172WHENUJ%:IFNy%<>-1THEN
  173!l=Ny%
  174ENDIF
  175WHENQy%:IFNy%<>-1THEN
  176PROCE(f+(Ny%<<2))
  177ENDIF
  178ENDCASE
  179WHENfy%:CASEo%OF
  180WHENwJ%:IFNy%<>-1THEN
  181!m=Ny%
  182ENDIF
  183WHENQ_%:IFNy%<>-1THEN
  184PROCE(My+(Ny%<<2))
  185ENDIF
  186ENDCASE
  187WHENHJ%:PROCE(o)
  188ENDCASE
  189WHENtJ%:PROCV_
  190WHENSu%:PROCm
  191ENDCASE
  192ENDCASE:IFNu%=1THEN
  193CASERy%OF
  194WHENsy%:PROC_
  195ENDCASE:SYS&400d4,,c%,nJ%,jJ%
  196ELSEPROCQ
  197ENDIF:ENDPROC
  198DEFPROCQSYS&400d4,,-1:Ry%=FALSE:ENDPROC
  199DEFPROCE(t%)!t%=(!t%=0):ENDPROC
  200DEFPROCs(E$)IFE$=""THEN
  201E$=f$
  202ENDIF:H$=E$:PROCU(T%,O_%,H$):ENDPROC
  203DEFPROCAy(E$)IFE$=""THEN
  204E$=a$
  205ENDIF:F$=E$:PROCU(T%,oy%,E$):ENDPROC
  206DEFPROCe_(E$)IFE$=""THEN
  207E$=_$
  208ENDIF:J$=E$:PROCU(T%,ny%,E$):ENDPROC
  209DEFPROCYy(E$)IFE$=""THEN
  210E$=O$
  211ENDIF:C$=E$:PROCU(T%,ky%,E$):ENDPROC
  212DEFPROCLIFC_%THEN
  213ERRORERR,REPORT$+" ["+STR$(ERL)+"]"
  214ELSEERRORERR,REPORT$
  215ENDIF:PROCF:ENDPROC
  216DEFPROCL_LOCALG%,q$,al%:PROCe:H$=f$:F$=a$:J$=_$:C$=O$:G%=OPENIN("<BasCompressFE$Dir>.Choices"):IFG%THEN
  217LOCALERROR:ONERRORLOCALRESTOREERROR:CLOSE#G%:ENDPROC
  218SYS12,4,G%,D,qy-D:PROCr(G%,M%()):PROCr(G%,S%()):PROCr(G%,Z%()):INPUT#G%,C$:O$=FNM(C$):INPUT#G%,J$:_$=FNM(J$):INPUT#G%,F$:a$=FNM(F$):RESTOREERROR:CLOSE#G%
  219ENDIF:ENDPROC
  220DEFPROCr(G%,RETURNE%())LOCALE%:FORE%=0TOw%-1:INPUT#G%,E%(E%):NEXTE%:ENDPROC
  221DEFPROCO(_u)LOCALG%:G%=OPENOUT("<BasCompressFE$Dir>.Choices"):IFG%THEN
  222LOCALERROR:ONERRORLOCALRESTOREERROR:CLOSE#G%:PROCL
  223SYS12,2,G%,D,qy-D:PROCc(G%,M%()):PROCc(G%,S%()):PROCc(G%,Z%()):IF_uTHEN
  224PRINT#G%,C$:PRINT#G%,J$:PRINT#G%,F$
  225ELSEPRINT#G%,FNM(C$):PRINT#G%,FNM(J$):PRINT#G%,FNM(F$)
  226ENDIF:RESTOREERROR:CLOSE#G%
  227ENDIF:ENDPROC
  228DEFPROCc(G%,E%())LOCALE%:FORE%=0TOw%-1:PRINT#G%,E%(E%):NEXTE%:ENDPROC
  229DEFPROCeLOCALF:!Qy=FALSE:!Gy=TRUE:!i=TRUE:!P=TRUE:P!4=(!P=0):P!12=(!P=0):!Uy=TRUE:!n=TRUE:!Jy=FALSE:!Ey=TRUE:!Fy=TRUE:FORF=0TO5:Cy!(F<<2)=TRUE:NEXTF:FORF=0TO1:g!(F<<2)=TRUE:NEXTF:!Py=FALSE:!Sy=FALSE:By=16:!Ay=TRUE:!u=TRUE:!c=TRUE:!h=TRUE:!v=TRUE:!b=FALSE:!Xy=FALSE:!t=FALSE:!l=3:FORF=0TO5:f!(F<<2)=TRUE:NEXTF:!m=3:FORF=0TO1:My!(F<<2)=TRUE:NEXTF:!o=FALSE
  230!e=FALSE:!V=TRUE:!q=TRUE:!w=FALSE:!O=FALSE:M%()=J:S%()=J:Z%()=J:M%()=x,z:S%()=x,z:Z%()=x,z,Iy:O$="Log":a$="Output":_$="XRef":ENDPROC
  231DEFPROCgSYS&465c6,Y%,T%:PROCz(T%,O_%,H$,f$):PROCz(T%,ky%,C$,O$):PROCz(T%,ny%,J$,_$):PROCz(T%,oy%,F$,a$):ENDPROC
  232DEFPROCiy(Q%,V%,I%,F%)ENDPROC
  233DEFPROCBy(F%,g%)CASEg%OF
  234WHEN13,398,399:CASEF%OF
  235WHENky%:Z=G
  236WHENny%:Z=N
  237WHENoy%:Z=W
  238WHENO_%:Z=r
  239ENDCASE:PROCK(FNC(T%,F%)):IFg%=398THENPROCyy(T%,F%)
  240IFg%=399THENPROCzy(T%,F%)
  241IFg%=13THENPROCwy
  242WHEN27:PROCg
  243OTHERWISESYS&400dc,g%
  244ENDCASE:ENDPROC
  245DEFPROCV_PROCy:PROCWy(X%):PROCFy(X%,-1):ENDPROC
  246DEFPROCyIFFND("Choices",X%)THEN
  247ELSESYS&465c6,Y%,X%:PROCA(X%,IJ%,!e):PROCA(X%,`_%,!V):PROCA(X%,rJ%,!q):PROCA(X%,fJ%,!w):PROCA(X%,CJ%,!O):PROCA(X%,ZJ%,FNz)
  248ENDIF:ENDPROC
  249DEFPROCPy(Q%,V%,I%,F%)LOCAL_y%:PROCFy(X%,-1):CASEF%OF
  250WHENXu%:PROCN:_y%=TRUE
  251WHENgu%:PROCy:_y%=TRUE
  252WHENmJ%:PROCN:PROCO(TRUE):_y%=TRUE
  253WHENTu%:PROCN:PROCO(FALSE):_y%=TRUE
  254WHENiJ%:PROCe:PROCy:_y%=TRUE
  255ENDCASE:IF_y%THEN
  256IFI%AND1092THENPROCG(X%)
  257ENDIF:ENDPROC
  258DEFPROCNLOCALo_%,s$,w$,T$:!e=FNW(X%,IJ%):!V=FNW(X%,`_%):!q=FNW(X%,rJ%):!w=FNW(X%,fJ%):!O=FNW(X%,CJ%):o_%=FNz:IFo_%<>FNW(X%,ZJ%)THEN
  259s$="TFont":w$="TSystem":IFNOTo_%THENSWAPs$,w$
  260T$=FNP(M_%)+".":s$=T$+s$+CHR$0:w$=T$+w$+CHR$0:T$=T$+"Templates"+CHR$0:SYS41,25,T$,s$:SYS41,25,w$,T$
  261ENDIF:ENDPROC
  262DEFPROCx_(F%,g%)CASEg%OF
  263WHEN13:PROCN:PROCG(X%)
  264WHEN27:PROCG(X%)
  265WHEN386:PROCe:PROCG(X%)
  266WHEN387:PROCN:PROCO(FALSE):PROCG(X%)
  267WHEN388:PROCN:PROCO(TRUE):PROCG(X%)
  268WHEN389:PROCG(X%)
  269WHEN390:PROCN:PROCG(X%)
  270OTHERWISESYS&400dc,g%
  271ENDCASE:ENDPROC
  272DEFFNzLOCALWJ%,Z%,Py%,R%:Z%=FNA(128):Py%=0:REPEATSYS12,9,M_%,Z%,1,Py%,128,"TSystem"+CHR$0TO,,,R%,Py%:WJ%=(R%=1):UNTIL(Py%=-1)ORWJ%:PROCM(Z%,128):=WJ%
  273DEFPROCd(E%())LOCALE%,_%,N%:IFFND("Order",K%)THEN
  274ELSESYS&465c6,Y%,K%:E%=0:WHILEE%<w%ANDE%(E%)<>J:_%=E%(E%)AND(NOTM):FORN%=0TOVy:PROCA(K%,FNQ(N%,E%),_%=N%):NEXTN%:PROCA(K%,Dy%+E%,E%(E%)ANDM):E%+=1:ENDWHILE:WHILEE%<w%:FORN%=0TOVy:PROCA(K%,FNQ(N%,E%),FALSE):NEXTN%:PROCA(K%,Dy%+E%,FALSE):E%+=1:ENDWHILE
  275ENDIF:ENDPROC
  276DEFPROCO_(Q%,V%,I%,F%)CASEYOF
  277WHENp:PROCv(Z%(),I%,F%)
  278WHENwy:PROCv(M%(),I%,F%)
  279WHENHy:PROCv(S%(),I%,F%)
  280ENDCASE:ENDPROC
  281DEFPROCv(RETURNE%(),I%,F%):LOCALE%,N%,Wy%,d%,_%:IFFNe(F%)THEN
  282PROCk(F%,E%,Wy%):_%=NOTM:IF(E%(E%)AND_%)=Wy%THEN
  283IFFNW(K%,F%)=FALSETHEN
  284PROCSy(E%(),E%)
  285ENDIF
  286ELSEIFWy%=MTHEN
  287IFE%(E%)=JTHEN
  288PROCA(K%,F%,FALSE)
  289ELSEE%(E%)=E%(E%)EORM:PROCu(E%(),E%)
  290ENDIF
  291ELSEIFE%(E%)=JTHEN
  292E%(E%)=Wy%
  293ELSEE%(E%)=(E%(E%)ANDM)ORWy%
  294ENDIF:PROCu(E%(),E%):N%=0:d%=FALSE:REPEATIFN%<>E%THEN
  295d%=((E%(N%)AND_%)=Wy%):IFd%THEN
  296PROCDy(E%(),E%)
  297ENDIF
  298ENDIF:N%+=1:UNTILd%ORN%>=w%
  299ENDIF
  300ENDIF
  301ENDIF:ENDPROC
  302DEFPROCu(RETURNE%(),RETURNE%):LOCALd%:d%=(E%<=0):WHILENOTd%:d%=(E%(E%-1)<>J):IFNOTd%THEN
  303E%-=1:PROCSy(E%(),E%):d%=(E%<=0)
  304ENDIF:ENDWHILE:ENDPROC
  305DEFPROCSy(RETURNE%(),E%):LOCALN%,d%,Y_%:N%=E%:REPEATE%(N%)=J:PROCA(K%,Dy%+N%,FALSE):N%+=1:d%=(N%>=w%):IFNOTd%THEN
  306d%=(E%(N%)=J):IFNOTd%THEN
  307E%(N%-1)=E%(N%):PROCA(K%,FNQ(E%(N%),N%-1),TRUE):PROCA(K%,FNQ(E%(N%),N%),FALSE):Y_%=E%(N%)ANDM:PROCA(K%,Dy%+N%-1,Y_%)
  308ENDIF
  309ENDIF:UNTILd%:ENDPROC
  310DEFPROCDy(RETURNE%(),N%):LOCALE%,d%:E%=0:d%=FALSE:WHILEFNJy(E%(),E%):E%+=1:ENDWHILE:PROCA(K%,FNQ(E%(N%),N%),FALSE):E%(N%)=E%OR(E%(N%)ANDM):PROCA(K%,FNQ(E%(N%),N%),TRUE):ENDPROC
  311DEFFNJy(E%(),E%):LOCALs_%,N%:N%=0:s_%=FALSE:WHILEN%<w%AND(NOTs_%):s_%=((E%(N%)AND(NOTM))=E%):N%+=1:ENDWHILE:=s_%
  312DEFFNe(F%)=(F%>=uy%)AND(F%<(Dy%+w%))
  313DEFPROCk(F%,RETURNgJ%,RETURNaJ%)IFF%>=Dy%THEN
  314aJ%=M
  315ELSEaJ%=(F%-uy%)DIVw%
  316ENDIF:gJ%=(F%-uy%)MODw%:ENDPROC
  317DEFFNQ(aJ%,gJ%)=(((aJ%AND(NOTM))*w%)+uy%)+gJ%
  318DEFPROCJ_(F%,g%)CASEg%OF
  319WHEN13,398:PROCK(FNC(e%,2)):PROCQ
  320WHEN27:PROCQ
  321OTHERWISESYS&400dc,g%
  322ENDCASE:ENDPROC
  323DEFPROCGy(Q%,V%,I%,F%)CASEF%OF
  324WHEN0:PROCK(FNC(e%,2)):IFI%AND1THEN
  325PROC_:SYS&400d4,,c%
  326ELSEPROCQ
  327ENDIF
  328ENDCASE:ENDPROC
  329DEFPROCRIFFND("SaveAs",e%)THEN
  330ELSESYS&465c6,Y%,e%:PROCU(e%,2,FNr):IFZ=WTHEN
  331PROCMy(e%,1,"file_"+STR$~(y))
  332ELSEPROCMy(e%,1,"file_"+STR$~(a))
  333ENDIF
  334ENDIF:ENDPROC
  335DEFFNrLOCALM$:CASEZOF
  336WHENG:M$=C$
  337WHENN:M$=J$
  338WHENW:M$=F$
  339WHENr:M$=H$
  340ENDCASE:=M$
  341DEFPROCz(D%,E%,M$,Ay$)IFM$=""THENM$=Ay$
  342PROCU(D%,E%,M$):ENDPROC
  343DEFFN_Dragged_FileName_ControlCASEZOF
  344WHENG:PROCI(FNC(T%,ky%))
  345WHENN:PROCI(FNC(T%,ny%))
  346WHENW:PROCI(FNC(T%,oy%))
  347ENDCASE:=0
  348DEFFN_Dragged_FileName_SaveAsPROCI(FNC(e%,2)):=0
  349DEFPROCI(S$)LOCALD%,E%,Z%,Q%,V%:Z%=FNA(320):SYS&400cf,,Z%:D%=Z%!12:E%=Z%!16:IF(D%<>-2)AND(D%<>T%)THEN
  350IFS$=""THEN
  351CASEZOF
  352WHENG:S$=O$
  353WHENN:S$=_$
  354WHENW:S$=a$
  355ENDCASE
  356ELSES$=FNM(S$)
  357ENDIF:Q%=!Z%:V%=Z%!4:!Z%=(LEN(S$)+48)AND-4:Z%!12=0:Z%!16=1:Z%!20=D%:Z%!24=E%:Z%!28=Q%:Z%!32=V%:Z%!36=-1:Z%!40=a:$(Z%+44)=S$+CHR$(0):SYS&400e7,17,Z%,D%,E%:u_%=Z%!8
  358ENDIF:PROCM(Z%,320):ENDPROC
  359DEFPROCK(S$)IFS$<>FNrTHEN
  360CASEZOF
  361WHENG:PROCYy(S$)
  362WHENN:PROCe_(S$)
  363WHENW:PROCAy(S$)
  364WHENr:PROCs(S$)
  365ENDCASE
  366ENDIF:PROCR:PROCg:ENDPROC
  367DEFPROCW_CASEW%!12OF
  368WHEN0:CASEW%!8OF
  369WHENw_%:SYS&400de,"/"+C$:w_%=-1
  370WHENr_%:SYS&400de,"/"+J$:r_%=-1
  371ENDCASE
  372ENDCASE:ENDPROC
  373DEFPROC`yLOCALW_%,p$,U%,F%,Q%,V%:p$=FNP(W%+44):W_%=W%!40:U%=W%!20:F%=W%!24:Q%=W%!28:V%=W%!32:CASEW_%OF
  374WHENy:PROCxy
  375ENDCASE:ENDPROC
  376DEFPROCB_LOCALW_%,d$,U%,F%,Q%,V%:U%=W%!20:F%=W%!24:Q%=W%!28:V%=W%!32:W_%=W%!40:d$=FNL(W%+44):CASEW_%OF
  377WHENy:Q%=FNv(d$)
  378WHENa:IFNOTFNZ(d$)THEN
  379PROCs(d$)
  380ENDIF
  381OTHERWISEPROCD(yy%,FNw(1))
  382ENDCASE:ENDPROC
  383DEFPROCa_LOCALS$,N_%:IF(W%!12)<>u_%THEN
  384PROCP(10)
  385ELSEN_%=TRUE:S$=FNP(W%+44):CASEW%!40OF
  386WHENa:PROCK(S$):N_%=FALSE
  387OTHERWISEPROCP(10):N_%=FALSE
  388ENDCASE:IFN_%THEN
  389W%!12=Gu%:W%!16=3:SYS&400e7,18,W%,W%!20,W%!24:Ku%=W%!8
  390ENDIF
  391ENDIF:ENDPROC
  392DEFFN_(P$)LOCALE%,M%:IFP$<>""THEN
  393FORE%=1TOLEN(P$):M%=INSTR("ABCDEFGHIJKLMNOPQRSTUVWXYZ",MID$(P$,E%,1)):IFM%>0THENMID$(P$,E%,1)=CHR$(M%+ASC("a")-1)
  394NEXTE%
  395ENDIF:=P$
  396DEFFNZ(M$)=(FNM(M$)="")OR(FN_(M$)=j$)OR(INSTR(M$,".")<1)
  397DEFFNv(Y$)LOCALA$,E%:IF!OAND(NOTFNZ(F$))THEN
  398E%=INSTR(Y$,"."):IFE%>0THEN
  399A$=LEFT$(F$,LEN(F$)-LEN(FNM(F$)))+FNM(Y$):PROCAy(A$)
  400ENDIF
  401ENDIF:t$=Y$:A$="":IF!Qy<>0THENA$+=" -MultiDEF"
  402IF!Gy<>0THENA$+=" -WEndRtn"
  403IF!i<>0THENA$+=" -Number"
  404IF!P=0THENA$+=" -SWI"
  405IF!Uy=0THENA$+=" -SWIBad"
  406IF!n=0THENA$+=" -SWIExist"
  407IF!Jy<>0THENA$+=" -Library"
  408IF!Fy=0THENA$+=" -Unused"
  409IF!Py<>0THENA$+=" -EVariable"
  410IFNOTFNZ(F$)THEN
  411IF!Ey=0THENA$+=" -Single"
  412A$+=" -ReduceVar "+FNx(Cy):A$+=" -ReduceRtn "+FNc(g):IF!Sy<>0THENA$+=" -ListOut "+STR$(By)
  413ENDIF:IFNOTFNZ(C$)THEN
  414IF!Ay=0THENA$+=" -Stats"
  415IF!u=0THENA$+=" -EVAL"
  416IF!c=0THENA$+=" -DATA"
  417IF!h=0THENA$+=" -READ"
  418IF!v=0THENA$+=" -GOTO"
  419IF!b<>0THENA$+=" -List"
  420ENDIF:IFNOTFNZ(H$)THEN
  421IF!Xy<>0THENA$+=" -UnusedS"
  422IF!t<>0THENA$+=" -WSpLabel"
  423ENDIF:IFFNZ(J$)THEN
  424A$+=" -XRef 0"
  425ELSEA$+=" -XVar "+STR$(!l):A$+=" -XIncVar "+FNx(f):A$+=" -XRtn "+STR$(!m):A$+=" -XIncRtn "+FNc(My):A$+=" -SRef "+FNI(Z%()):A$+=" -SVar "+FNI(S%()):A$+=" -SRtn "+FNI(M%()):IF!o=0THENA$+=" -Deleted"
  426ENDIF:PROCt("BasCompress$Options",A$):PROCq("BasCompress$Special",H$):PROCq("BasCompress$XRef",J$):PROCq("BasCompress$Out",F$):PROCq("BasCompress$Log",C$):IF!wTHEN
  427PROCt("Main",Y$):Y$="<Main>"
  428ENDIF:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCX(I):PROCL
  429IFFNZ(C$)THEN
  430PROCX(F_):SYS&400de,"BasCompress "+Y$+" { > null: }"
  431ELSEPROCX(ry):SYS&400de,"BasCompress "+Y$
  432ENDIF:RESTOREERROR:PROCX(I):IF((!V)<>0)AND(NOTFNZ(C$))THEN
  433PROCi(w_%,C$)
  434ENDIF:IF((!q)<>0)AND(NOTFNZ(J$))THEN
  435PROCi(r_%,J$)
  436ENDIF:IF((!e)<>0)AND(NOTFNZ(F$))THEN
  437SYS&400de,F$
  438ENDIF:=0
  439DEFPROCi(RETURNnu%,q$)LOCALM%,Vy%,Py%,Vu%:SYS8,5,q$TOPy%,,Vy%,,z%:IFPy%<>0THEN
  440M%=FNA(256):M%!20=-1:M%!28=0:M%!32=0:M%!36=z%:M%!40=(Vy%AND&fff00)>>8:PROCV(M%+44,q$):M%!0=(LEN(q$)+1+3+44)AND(NOT3):M%!12=0:M%!16=5:SYS&400e7,18,M%,0:nu%=M%!8:PROCM(M%,256)
  441ENDIF:ENDPROC
  442DEFPROCt(z$,r$)LOCALM%:M%=FNA(512):PROCV(M%,z$):PROCV(M%+256,r$):SYS36,M%,M%+256,LEN(r$),0,0:PROCM(M%,512):ENDPROC
  443DEFPROCq(z$,r$)IFFNZ(r$)THEN
  444SYS&20024,z$,0,-1,0,2
  445ELSEPROCt(z$,r$)
  446ENDIF:ENDPROC
  447DEFFNI(E%())LOCALE%,N%,E$,P$:E$="":E%=0:N%=TRUE:WHILEN%ANDE%<w%:CASEE%(E%)AND(NOTM)OF
  448WHENx:P$="N"
  449WHENhy:P$="D"
  450WHENxy:P$="U"
  451WHENz:P$="T"
  452WHENIy:P$="P"
  453OTHERWISEN%=FALSE
  454ENDCASE:IFN%THEN
  455IFE%(E%)ANDMTHEN
  456E$+=FN_(P$)
  457ELSEE$+=P$
  458ENDIF:E%+=1
  459ENDIF:ENDWHILE:IFLEN(E$)=0THENE$=""""""
  460=E$
  461DEFFNx(S)LOCALE$:E$="":IFS!0THENE$+="i"
  462IFS!4THENE$+="r"
  463IFS!8THENE$+="s"
  464IFS!12THENE$+="I"
  465IFS!16THENE$+="R"
  466IFS!20THENE$+="S"
  467IFLEN(E$)=0THENE$=""""""
  468=E$
  469DEFFNc(S)LOCALE$:E$="":IFS!0THENE$+="p"
  470IFS!4THENE$+="f"
  471IFLEN(E$)=0THENE$=""""""
  472=E$
  473DEFPROCZyCASEW%!16OF
  474WHEN1282:PROCOy
  475WHEN1:PROC`y
  476WHEN2:PROCa_
  477WHEN3:PROCB_
  478WHEN&400c0:PROCqy
  479WHEN&400c1:PROCp
  480WHEN8:PROCm
  481WHEN&400cc:PROCTy
  482WHEN10:PROCZ_
  483WHEN0:PROCF
  484ENDCASE:ENDPROC
  485DEFPROCTyLOCALZ$:CASEW%!20OF
  486WHENX%:Z$="WinChoices"
  487WHENT%:Z$="WinControl"
  488ENDCASE:IFZ$<>""THEN
  489Z$=FNG(Z$):W%!16=&400cc:W%!12=W%!8:$(W%+28)="bascomp"+CHR$0:$(W%+36)=Z$+CHR$0:W%!0=(36+LEN(Z$)+4)AND-4:SYS&400e7,17,W%,W%!4
  490ENDIF:ENDPROC
  491DEFFNK=19
  492DEFPROCly(bJ%,Fl%)IFFNK<Fl%THEN
  493ERROR1,"EIL1"
  494ENDIF:IFbJ%<1THEN
  495ERROR1,"EIL2"
  496ENDIF:__%=bJ%:DIMA$(__%-1):DIMF%(__%-1):XJ%=0:DIMvy%256:L_%=40:s%=0:ey%=12:Eu%=FALSE:DIME$(L_%-1):qy%=FALSE:dy%=FALSE:xJ%=TRUE:ENDPROC
  497DEFPROCS(G$,Ju%)PROCX_(G$,Ju%):ENDPROC
  498DEFPROCX_(G$,Ju%)LOCALVy%,E%,R$,h$:E%=0:Vy%=TRUE:R$=MID$(G$,1+INSTR(G$,".")):WHILEE%<XJ%ANDVy%:Vy%=(R$<>A$(E%)):IFVy%THEN
  499E%+=1
  500ENDIF:ENDWHILE:IFVy%THEN
  501IFE%=__%THEN
  502ERROR1,"EIL3"
  503ENDIF:A$(E%)=R$:h$="'"+G$+"' does not have a FN_":LOCALERROR:ONERRORLOCALRESTOREERROR:PROCZ(h$+R$+"_version")
  504F%(E%)=EVAL("FN_"+R$+"_version"):RESTOREERROR:XJ%+=1:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCZ(h$+"_hard_initialise_"+R$)
  505IFEVAL("FN_hard_initialise_"+R$)THEN
  506ERROR1,"EIL5 "+G$
  507ENDIF:RESTOREERROR
  508ENDIF:IFJu%>F%(E%)THEN
  509ERROR1,"EIL4 "+G$
  510ENDIF:ENDPROC
  511DEFFNS(u$)LOCALERROR:ONERRORLOCALRESTOREERROR:PROCty
  512=EVAL(u$)
  513DEFPROCtyIFxJ%THEN
  514ERRORERR,REPORT$+" (evaluating `"+u$+"' ["+STR$(ERL)+"])"
  515ELSEERRORERR,REPORT$
  516ENDIF:ENDPROC
  517DEFFNL(A%)LOCALL$:WHILE?A%:L$+=CHR$(?A%):A%+=1:ENDWHILE:=L$
  518DEFFNn(A%,B%)LOCALL$:WHILEB%>=1AND?A%:L$+=CHR$(?A%):A%+=1:B%-=1:ENDWHILE:=L$
  519DEFFNP(A%)LOCALL$:WHILE?A%>31:L$+=CHR$(?A%):A%+=1:ENDWHILE:=L$
  520DEFPROCV(A%,L$)$A%=L$:A%?LEN(L$)=0:ENDPROC
  521DEFPROCZ(Q$)IFqy%THEN
  522IFdy%THEN
  523ERRORERR,REPORT$+" ["+STR$ERL+"]."
  524ELSEERRORERR,REPORT$
  525ENDIF
  526ELSEIFNOTEu%THEN
  527IFs%=L_%THEN
  528E(L_%-1)="Errors too deep!!!!!":PROCY
  529ENDIF:IFRIGHT$(Q$,2)=": "THEN
  530Q$=LEFT$(Q$,LEN(Q$)-2)
  531ENDIF:IFdy%THEN
  532E$(s%)=REPORT$
  533ELSEIFs%=0THEN
  534E$(s%)="Error `"+REPORT$+"' (line ":E$(s%)+=STR$(ERL)+") in ":E$(s%)+="`"+Q$+"'"
  535ELSEE$(s%)="`"+Q$+"'"
  536ENDIF
  537ENDIF:s%+=1:ERRORERR,""
  538ENDIF
  539ENDIF:ENDPROC
  540DEFPROCYLOCALSy%,Zy$:IFqy%THEN
  541IFdy%THEN
  542PROCD(ERR,REPORT$+" ["+STR$(ERL)+"]."):PROCF:END
  543ELSEPROCD(ERR,REPORT$):IFERR=by%THEN
  544PROCF:END
  545ENDIF
  546ENDIF
  547ELSEIFey%=-2THEN
  548IFs%>0THEN
  549ERROREXTERR,E$(0)
  550ELSEERROREXTERR,REPORT$
  551ENDIF:END
  552ENDIF:IFey%=-3THEN
  553$vy%="TASK":SYS&400c0,200,!vy%,"LibHandler"+CHR$(0):IFs%THEN
  554FORSy%=0TOs%-1:IFSy%<(s%-1)THEN
  555PROCf(E$(Sy%)+" in")
  556ELSEPROCf(E$(Sy%))
  557ENDIF:NEXTSy%
  558ELSEPROCf(REPORT$+" (line "+STR$(ERL)+")")
  559ENDIF:SYS&600dd:END
  560ENDIF:IFey%>=0THEN
  561MODEey%
  562ENDIF:PRINT"An error has occured...":PRINT:IFs%THEN
  563FORSy%=0TOs%-1:COLOUR((7-(Sy%<<1))AND6)+1:PRINTE$(Sy%);:IFSy%<(s%-1)THEN
  564PRINT" in ";
  565ENDIF:NEXTSy%
  566ELSEPRINTREPORT$;" (line ";STR$(ERL);")"
  567ENDIF:PRINT:COLOUR7:END
  568ENDIF:ENDPROC
  569DEFPROCf(g$)LOCALIu%:Iu%=20+(LEN(g$)+5)AND-4:!vy%=Iu%:vy%!16=&804c0:$(vy%+20)=g$+CHR$(10)+CHR$(0):SYS&600e7,17,vy%,0:ENDPROC
  570DEFFN_CAsm_version=14
  571DEFFN_hard_initialise_CAsmPROCS("<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
  572CAsmLibrary_string=3:XJ=4:gi=5:Pa=6:xl=7:CAsmLibrary_wimp=8:ua=9:CAsmLibrary_message=10:ql=11:Al=12:vl=13:_i=14:ju=15:il=16:_a=17:qu=18:Tl=19:dJ=20:h_=21:u_=22:bl=23:Bi=24
  573o_=25:`a=26:`=26:LJ=0:_J=1:Lu=2:BJ=3:I_=4:Y_=5:a_=6:wi=7:Ha=8:ea=9:T=10:Q=11:j=12:A=13:E=14:SJ=15:ny=&6d734143:Fy%=0:Iy%=13:R=0:B=0:d=10*1024:M_=d+(1*1024):oy=FALSE:=0
  574DEFPROCE_(V$)LOCALM%,`%,q%,L%,O%,P%,S%,G$:LOCALERROR:ONERRORLOCALRESTOREERROR:SYS&400ec,zy%,-1:PROCL
  575zy%=HIMEM-32768:SYS&400ec,zy%+32768,-1TOL%:L%+=32768:O%=zy%+32768:P%=0:S%=14:IFO%=L%THEN
  576ERROR1,"Not enough memory to start application"
  577ENDIF:IFFy%<>0THEN
  578ERROR1,"EIC1"
  579ENDIF:DIMn_%`*8:DIMZ$(`):IFFNh_DEFAULT
  580WHILEV$<>"":G$=LEFT$(V$,INSTR(V$,",")-1):LOCALERROR:ONERRORLOCALRESTOREERROR:PROCZ("EIC2")
  581`%=EVAL("CAsmLibrary_"+G$):RESTOREERROR:q%=n_%:M%=q%+(Fy%*8):WHILEM%>q%:IF!q%=`%THEN
  582q%=M%+1
  583ELSEq%+=8
  584ENDIF:ENDWHILE:IFq%=M%THEN
  585IFFy%>=`THEN
  586ERROR1,"EIC3"
  587ENDIF:!M%=`%:Z$(`%)=G$:Fy%+=1:O%=zy%+32768:P%=0:IFFNS("FNh_"+G$)
  588ENDIF:V$=MID$(V$,LEN(G$)+2):WHILEASC(V$)=ASC(" "):V$=MID$(V$,2):ENDWHILE:ENDWHILE:SYS&400ec,zy%,-1:RESTOREERROR:ENDPROC
  589DEFPROC`LOCALR%,M%,E%,Jy%:IFFy%=0THEN
  590IFFNh_DEFAULT
  591ENDIF:Jy%=n_%:E%=Fy%:IF(S%AND2)=0THEN
  592DIMM%Fy%*4:SYS79,Fy%,M%+&c0000000,3,,Jy%,8
  593ENDIF:[OPTS%:.Ly DCDny:DCDty:]:WHILEE%>0:[OPTS%:DCD!Jy%:DCDJy%!4:]:Jy%+=8:E%-=1:ENDWHILE:[OPTS%:DCD0:]:[OPTS%:ALIGN:.Wy:]:M%=P%:IFFNjumpblock_DEFAULT
  594ty=(P%-M%)>>2:E%=Fy%:Jy%=n_%:WHILEE%>0:M%=P%:IFFNS("FNjumpblock_"+Z$(!Jy%))
  595Jy%!4=(P%-M%)>>2:Jy%+=8:E%-=1:ENDWHILE:ENDPROC
  596DEFPROCgyLOCALX:[OPTS%:ALIGN:.Yy:STMFD(A)!,{4-5,E}:BL P%+(13<<2):.X DCDLy-X:DCDWy-X:DCDR-X:DCDB:DCDd:.U:DCD0:DCD0:DCD0:DCD0:LDR A,U
  597LDMFD(A)!,{T,Q,j,E}:MOVpc,E:BIC 5,E,#&fc000003:LDMIA5,{0-4}:ADD0,0,5:ADD1,1,5:ADD2,2,5:MOV5,#0:SWI &fcb80:STRvc0,U+(1<<2):STRvc1,U+(3<<2):LDMFD(A)!,{4-5,pc}:.Zy:FNX:MOV2,E:MOV1,A:MOV0,T
  598SWI &fcb81:MOVvc1,#0:STRvc1,U+(3<<2):MOVpc,2:MOV13,12:]:R=P%:PROCC:PROCj:B=(B+3)AND-4:P%+=B-1:O%+=B-1:[OPTS%:DCB0:]:ENDPROC
  599DEFPROCw_IFP%<>32768THENERROR1,"EIC4"
  600[OPTS%:ADR4,_:MOV5,#ky:SWI &fcb80:FNf("vc",2,tu):Bvc G_:SWI 43:._:DCDLy-_:DCDWy-_:DCDR-_:DCDB:DCDd:DCDM_:]:ENDPROC
  601DEFFNX[OPTS%:STMFD(A)!,{T,Q,j,E}:MOV Q,pc:FNf("",E,U):STR A,[E],#4:LDMIA(E)!,{T,j,A}:AND Q,Q,#&fc000003:ORR E,E,Q:]:=0
  602DEFPROCq_(E_%,Ky%,yJ%)PROCS("<BasicV$Lib>.Heap",8):PROCS("<BasicV$Lib>.Message",1):IFFNEy(E_%,Ky%,yJ%,0)
  603CALLYy:ONERRORCALLZy:PROCY
  604ENDPROC
  605DEFFNEy(E_%,Ky%,yJ%,ay%)LOCALL%,O%,P%,S%,sl%,H%:LOCALmJ:LOCALuJ,i_,cJ,kJ,EJ,vJ:LOCAL`y,gy,Yi:IFay%=0THEN
  606PROCS("<BasicV$Lib>.Heap",8):PROCS("<BasicV$Lib>.Message",1)
  607ENDIF:DIMn%E_%:mJ=A:uJ=1<<31:i_=1<<30:cJ=1<<29:kJ=1<<28:EJ=1<<27:vJ=1<<26:`y=1<<17:gy=256:Yi=gy+`y:SYS&606c0:LOCALERROR:ONERRORLOCALRESTOREERROR:SYS&606c1:PROCL
  608H%=E_%:L%=n%+E_%:IFKy%<>0THENKy%=4
  609FORS%=8+Ky%TO10+Ky%STEP2:IF(S%AND4)<>0THEN
  610O%=n%:IFay%=1THEN
  611P%=32768
  612ELSEP%=0
  613ENDIF
  614ELSEO%=0:P%=n%
  615ENDIF:CASEay%OF
  616WHEN1:PROCC:PROCw_:PROCC:PROCx:PROCC:PROC`:R=P%:PROCC:PROCj:B=(B+3)AND-4
  617WHEN0:PROCC:PROCx:PROCC:PROCU_:PROCC:PROCN_:PROCC:PROC`:PROCC:PROCgy
  618WHEN2:PROCC:PROCx
  619ENDCASE:IFS%AND4THENL%=O%ELSEL%=P%
  620IF(S%AND2)=0THEN
  621SYS&dcb93,0,n%,L%-n%
  622ENDIF:H%=L%-n%:NEXTS%:SYS&606c1:IFKy%THEN
  623IFay%=0THEN
  624Yy+=n%:Zy+=n%
  625ENDIF
  626ENDIF:IFoyANDay%<>2THEN
  627IFKy%THEN
  628H%=Wy:IFay%THENH%-=32768
  629ELSEERROR1,"EIC9"
  630ENDIF
  631ENDIF:IFyJ%THEN
  632PRINT"Assembled to &";~H%;" = ";((H%*10+512)DIV1024)/10;"K":PRINT"Could assemble with ";E_%-H%;" less"
  633ENDIF:=H%
  634DEFFN_Template_version=21
  635DEFFN_hard_initialise_Template:S_%=FALSE:l%=FALSE:Zy%=FALSE:jy%=FALSE:LJ%=FALSE:ry%=-1:j_%=1:iy=7:Oy=16:A_=14:py=15:=0
  636DEFPROCnyLOCALE%:IFl%<>-1THEN
  637IFZy%THEN
  638SYS&665c1,Y%,TRUE,FALSE
  639ELSEFORE%=0TO255:WHILEl%?E%:SYS&60082,E%:l%?E%-=1:ENDWHILE:NEXTE%
  640ENDIF
  641ENDIF:ENDPROC
  642DEFPROCvyLOCALz%,v%,a%,Z%,N$,Jl%,Yy%,F_%,By%,R%:IFl%THEN
  643IFZy%THEN
  644jy%=(Zy%=+1):IFjy%THEN
  645a%=+1
  646ELSEa%=0
  647ENDIF:Yy%=140+(1<<21):IFLJ%THEN
  648v$=FNG("MenuFont"):IFv$<>""THEN
  649Yy%+=(1<<18)+(1<<19):PROCB(F_%,8+LEN(v$)+1):$(F_%+8)=v$:F_%!0=16*VAL(FNG("MenuFontWidth")):F_%!4=16*VAL(FNG("MenuFontHeight")):IFFNG("MenuFontLowRez")="NO"THEN
  650Yy%+=(1<<17)
  651ELSEYy%+=(1<<16)
  652ENDIF
  653ENDIF
  654ENDIF:SYS&465c0,Y%,0,0,a%,a%,0,0,Yy%,F_%TOl%
  655ELSEPROCB(l%,256):SYS&dcb93,0,l%,256
  656ENDIF
  657ELSEl%=-1
  658ENDIF:N$=FNd("<"+X$+"$Dir>.Sprites"):z%=FNg(N$):IFz%>0THEN
  659Z%=FNA(128):By%=0:REPEATSYS12,12,"<"++X$+"$Dir>",Z%,1,By%,128,"Sprites*"TO,,,R%,By%:IFR%=1ANDZ%!20=4089ANDz%<Z%!8THENz%=Z%!8
  660UNTILBy%<0:PROCM(Z%,128):PROCB(f%,z%+16):f%!0=z%+16:f%!4=0:f%!8=16:f%!12=16:SYS&2002e,522,f%,N$TOv%;a%:b$=N$:IFFNN(a%)THEN
  661PROCJ("Reason","Sprites"):PROCb(v%):PROCP(4):PROCF
  662ENDIF
  663ELSEf%=0
  664ENDIF:PROC_y("Templates"):IFf%>0THEN
  665PROCh("ProgInfo",f%,"ProgInfo")
  666ELSEPROCh("ProgInfo",+1,"ProgInfo")
  667ENDIF:u%=0:IFS_%=0THEN
  668PROCn
  669ENDIF:h_%=FNO("Query",Jl%,+1):PROCuy:ENDPROC
  670DEFPROCQy:N$=FNd("<"+X$+"$Dir>.Sprites"):IFN$<>b$THEN
  671f%!4=0:f%!8=16:f%!12=16:SYS46,522,f%,N$:b$=N$
  672ENDIF:ENDPROC
  673DEFFNProgInfo(D%)PROCV(D%!(88+(iy<<5)+20),K$):=0
  674DEFPROCCy(Q%,V%,I%,F%)CASEF%OF
  675WHENA_,py:Q%=FNp(1,FNw(0)):IFI%<>1THEN
  676PROCQ
  677ENDIF
  678OTHERWISEIFI%AND240THEN
  679W%!0=u%:W%!4=1:SYS&400d0,,W%
  680ENDIF
  681ENDCASE:ENDPROC
  682DEFPROCnIFu%=0THEN
  683IFjy%THEN
  684DIMT_%4:!T_%=0:IFFNi("ProgInfo",T_%)
  685u%=!T_%
  686ELSEIFFND("ProgInfo",u%)
  687ENDIF
  688ELSEIFZy%THEN
  689IFjy%THEN
  690SYS&465c6,Y%,T_%
  691ELSESYS&465c6,Y%,u%
  692ENDIF
  693ENDIF
  694ENDIF:ENDPROC
  695DEFPROC_y(E$)LOCALtu%,`%,z%,v%,a%,J%:LOCAL_u%,N$,Ly%,iy%:N$="<"+X$+"$Dir>."+E$:z%=FNg(N$):IFz%<=0THEN
  696PROCJ("Reason",E$):PROCJ("Sys","Not found"):PROCP(4):PROCF
  697ENDIF:PROCB(`%,z%):PROCB(Ly%,z%+C):iy%=Ly%+Ty:_u%=Ly%+C:SYS&600d9,,N$TOv%;a%:IFFNN(a%)THEN
  698PROCJ("Reason","Templates"):PROCb(v%):PROCP(4):SYS&600da:PROCF
  699ENDIF:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCVy
  700By%=0:REPEATiy%!0=ASC("*"):SYS&600db,,_u%,`%,`%+z%,l%,iy%,By%TOv%,,tu%,,,,By%;a%:IFFNN(a%)THEN
  701PROCH(v%):SYS&600da:PROCF
  702ENDIF:IFBy%THEN
  703FORa%=0TO11:IFiy%?a%=13THENiy%?a%=0:a%=12
  704NEXTa%:Ly%!fy=tu%-`%:Ly%!Ny=`%:J%=FNh(Ly%):IFJ%=0THEN
  705PROCP(16):SYS&600da:PROCF
  706ENDIF:J%!H=!py%:!py%=J%
  707ENDIF:UNTILBy%=0:RESTOREERROR:SYS&400da:PROCT(Ly%):PROCT(`%):ENDPROC
  708DEFPROCVySYS&600da:PROCZ("Template"):ENDPROC
  709DEFFNO(B$,lu%,e_%)=FNm(B$,lu%,e_%,"")
  710DEFFNm(B$,lu%,e_%,Q$)LOCALJ%,Du%,G%:J%=FNB(B$):IFJ%=0THEN
  711PROCF
  712ENDIF:Du%=J%+C:Du%!64=e_%:IFQ$<>""THEN
  713G%=FNS("FN"+Q$)
  714ENDIF:IFFNt(J%,G%)THEN
  715PROCF
  716ENDIF:PROCw(J%):=G%
  717DEFPROCh(B$,e_%,Q$)LOCALJ%,D%:J%=FNB(B$):IFJ%=0THEN
  718PROCF
  719ENDIF:D%=J%+C:D%!64=e_%:IFQ$<>""THEN
  720D%=FNS("FN"+Q$+"("+STR$(D%)+")")
  721ENDIF:ENDPROC
  722DEFFNT(B$,e_%)LOCALJ%,D%:J%=FNB(B$):IFJ%=0THEN
  723PROCF
  724ENDIF:D%=J%+C:D%!64=e_%:=0
  725DEFFND(B$,RETURNXy%)LOCALE%:=FNy(B$,Xy%,E%)
  726DEFFNy(B$,RETURNXy%,RETURNCu%)LOCALJ%,b%:b%=FALSE:IFXy%<=0THEN
  727J%=FNB(B$):IFJ%THEN
  728b%=FNt(J%,Xy%):IFb%=FALSETHEN
  729Cu%=J%!Ny:PROCw(J%)
  730ENDIF
  731ELSEb%=TRUE
  732ENDIF
  733ELSEIFZy%THEN
  734SYS&465c6,Y%,Xy%
  735ENDIF
  736ENDIF:=b%
  737DEFFNAy(B$)LOCALJ%,E$,m%:J%=!py%:m%=FALSE:WHILEJ%AND(NOTm%):m%=(FNn(J%+Ty,12)=B$):IFNOTm%THEN
  738J%=J%!H
  739ENDIF:ENDWHILE:=J%
  740DEFFNB(B$)LOCALJ%:J%=FNAy(B$):IFJ%=0THEN
  741PROCJ("Reason",B$):PROCP(3)
  742ENDIF:=J%
  743DEFFNt(J%,RETURNXy%)IFZy%THEN
  744SYS&665c3,Y%,J%+C,0TOXy%;J%
  745ELSESYS&600c1,,J%+CTOXy%;J%
  746ENDIF:J%=FNN(J%):IFJ%THEN
  747PROCH(Xy%):Xy%=0
  748ENDIF:=J%
  749DEFPROCw(J%)LOCALM%:M%=py%:WHILE!M%<>0AND!M%<>J%:M%=!M%+H:ENDWHILE:IF!M%=J%THEN
  750!M%=J%!H:J%!H=0:PROCT(J%)
  751ENDIF:ENDPROC
  752DEFFNSy(A%)=USR(by)
  753DEFFNh(A%)A%=FNSy(A%):IFA%=0THEN
  754PROCP(16)
  755ENDIF:=A%
  756DEFPROCjyIF(S%AND2)=0THENPROCLy("Template")
  757[OPTS%:ALIGN:.by:FNX:B vy:]:ENDPROC
  758DEFFN_Declare_Local_Variables_TemplateDIMpy%4:!py%=0:P%=0:[OPTS%:.H DCD0:.Tu DCD0:.Ny DCD0:.fy DCD0:.Ty DCD0:DCD0:DCD0:.C:]:=0
  759DEFFNi(B$,Ty%)LOCALE%:=FNBy(B$,Ty%,E%)
  760DEFFNBy(B$,Ty%,RETURNCu%)LOCALJ%,b%:b%=FALSE:IF!Ty%<=0THEN
  761J%=FNB(B$):IFJ%THEN
  762b%=FNMy(J%,Ty%):IFb%=FALSETHEN
  763Cu%=J%!Ny:PROCw(J%)
  764ENDIF
  765ELSEb%=TRUE
  766ENDIF
  767ELSEIFZy%THEN
  768SYS&465c6,Y%,Ty%
  769ENDIF
  770ENDIF:=b%
  771DEFFNMy(J%,Ty%)LOCALv%:IFZy%THEN
  772SYS&665c3,Y%,J%+C,Ty%TOv%;J%
  773ELSESYS&600c1,,J%+CTOv%;J%
  774ENDIF:!Ty%=v%:J%=FNN(J%):IFJ%THEN
  775PROCH(v%):!Ty%=0
  776ENDIF:=J%
  777DEFPROCpy(c%,U$)LOCAL_%:PROCEy(c%):WHILEU$<>"":_%=INSTR(U$,","):IF_%>1THEN
  778PROCJy(c%,LEFT$(U$,_%-1)):U$=MID$(U$,_%+1)
  779ELSEPROCJy(c%,U$):U$=""
  780ENDIF:ENDWHILE:ENDPROC
  781DEFPROCJy(c%,U$)LOCALE%:FORE%=1TOLEN(U$):c%+=28+(24*(ASC(MID$(U$,E%,1))-ASC("0"))):c%=c%!4:NEXTE%:PROCEy(c%):ENDPROC
  782DEFPROCEy(c%)IFry%=-1THEN
  783DIMC%(j_%):ry%=0
  784ENDIF:IFry%>=DIM(C%(),1)THENERROR1,"ET1"
  785C%(ry%)=c%:ry%+=1:SYS&465c7,Y%,c%:ENDPROC
  786DEFFNE(S,s)[OPTS%:DCBS:DCBs:DCB128:]:=0
  787DEFFNF(S,s,ay)[OPTS%:DCBS:DCBs:DCBay:DCB128:]:=0
  788DEFFNJ(S,s,ay,OJ)[OPTS%:DCBS:DCBs:DCBay:DCBOJ:DCB128:]:=0
  789DEFFNs(S,s)[OPTS%:DCBS:DCBs:DCB130:]:=0
  790DEFFNY(S,s,ay)[OPTS%:DCBS:DCBs:DCBay:DCB129:]:=0
  791DEFFNU(K)IFK>=0THENK=(K*24)+28ELSEK=0
  792=K
  793DEFPROCQ_LOCALX,k,sy:[OPTS%:ALIGN:.cy:STMFD(A)!,{4-9,E}:MOV5,0:MOV6,1:MOV8,2:MOV7,#24:.k LDRB E,[5],#1:TEQ E,#203:LDMeqFD(A)!,{4-9,pc}:MOV4,8:.sy ADD4,4,#28:MLA 4,E,7,4:LDRB E,[5],#1:CMP E,#128
  794LDRlo4,[4,#4]:Blo sy:LDR0,[6],#4:Beq ey:CMP E,#130:Beq U_:.aa:LDR4,[4,#4]:ADD4,4,#28:MOV1,#0:.X TEQ0,1:LDR2,[4,#0]:ORReq2,2,#1:BICne 2,2,#1:STR2,[4],#24:TST2,#128:ADDeq1,1,#1:Beq X
  795B k:.U_:TEQ0,#0:LDR0,[4,#8]:BICeq 0,0,#1<<22:ORRne0,0,#1<<22:STR0,[4,#8]:B k:.ey:TEQ0,#0:LDR0,[4,#0]:BICeq 0,0,#1:ORRne0,0,#1:STR0,[4,#0]:B k:]:ENDPROC
  796DEFFNh_DEFAULTLOCALERROR:ONERRORLOCALRESTOREERROR:PROCZ("@.h.DEFAULT")
  797du=16:kl=1<<30:TJ=1<<29:Sl=0:pl=1:ga=2:Aa=3:za=4:q_=5:ca=6:JJ=7:qi=8:Pu=9:ta=10:ll=1<<0:ky=1<<1:Vi=1<<2:=0
  798DEFFNjumpblock_DEFAULTLOCALERROR:ONERRORLOCALRESTOREERROR:PROCZ("@.h.DEFAULT")
  799[OPTS%ANDIy%:.Ga DCDd_:.Eu DCDuu:.`_ DCDx_:.T_ DCDci:.Ou DCDva:.WJ DCDou:.n_ DCDgl:.y_ DCDMl:.G_ DCDvu:]:=0
  800DEFFNh_stdioLOCALERROR:ONERRORLOCALRESTOREERROR:PROCZ("@.h.stdio")
  801ZJ=0:Fi=17:Oi=34:=0
  802DEFFNjumpblock_stdioLOCALERROR:ONERRORLOCALRESTOREERROR:PROCZ("@.h.stdio")
  803[OPTS%ANDIy%:.cl DCDli:.w_ DCDAi:.Da DCDLi:.ai DCDxi:.X_ DCDtJ:.iu%DCDju%:.Ml%DCDEl%:.Zl%DCDku%:.dl DCDYu:.Il DCDei:.zJ DCDIi:.ni DCDri:.El DCDCu:]:=0
  804DEFFNh_stdlibLOCALERROR:ONERRORLOCALRESTOREERROR:PROCZ("@.h.stdlib")
  805=0
  806DEFFNjumpblock_stdlibLOCALERROR:ONERRORLOCALRESTOREERROR:PROCZ("@.h.stdlib")
  807[OPTS%ANDIy%:.uy DCDmu:.S_ DCDXl:.Ri DCDjl:.C_ DCDKu:.QJ DCDNu:.Ua DCDnJ:.rl DCDhl:.ra DCDpa:.ia DCDFl:.su DCDlJ:.Ja DCDNJ:.R_ DCDiJ:.Ya DCDV_:.iu DCDUu:.Qi DCDRl:.VJ DCDja:]:=0
  808DEFFNh_stringLOCALERROR:ONERRORLOCALRESTOREERROR:PROCZ("@.h.string")
  809P%=0:[OPTS%:.Ju DCB0:.f_ DCB0:.ml DCB0:.eJ DCB0:.gu DCB0:.Dl DCB0:.Ql DCB0:]:=0
  810DEFFNjumpblock_stringLOCALERROR:ONERRORLOCALRESTOREERROR:PROCZ("@.h.string")
  811[OPTS%ANDIy%:.MJ DCDqJ:.Wu DCDZi:.sJ DCDv_:.La DCDZa:.Jl DCDti:.di DCDwl:.Fa DCDfJ:.CJ DCDKi:.c_ DCDGu:.Ea DCDXu:.Qa DCDru:.KJ DCDQu:.RJ DCDRa:.wu DCDrJ:.na DCDK_:.jJ DCDUi:.Ma DCDe_:.m_ DCDaJ:.Na DCDD_
  812.ji DCDz_:.bu DCDO_:.au DCDNi:.pu DCDLl:.Hi DCDt_:.Ul DCDFJ:.`l DCDk_:.fl DCDxJ:.sl DCDhi:.el DCDHJ:.Si DCDla:.Hl DCD__:.Yl DCDzu:.Kl DCDp_:.Hu DCDNl:.hu DCDb_:.Ru DCDr_:.H_ DCDpJ:.eu DCDIJ:.Mu DCDVu:.Ei DCDCa:.Su DCD`u:.fa DCDul:]:=0
  813DEFFNh_messageLOCALERROR:ONERRORLOCALRESTOREERROR:PROCZ("@.h.message")
  814=0
  815DEFFNjumpblock_messageLOCALERROR:ONERRORLOCALRESTOREERROR:PROCZ("@.h.message")
  816[OPTS%ANDIy%:.B_ DCDoa:.L_ DCDl_:.yJ DCDku:.oi DCDGi:.Ta DCDlu:]:=0
  817DEFFNh_wimpLOCALERROR:ONERRORLOCALRESTOREERROR:PROCZ("@.h.wimp")
  818cu=12:Va=0:P%=0:[OPTS%:.zy DCB0:.Cl DCB0:.P_ DCB0:.s_ DCB0:.wJ DCB0:.Ky DCB0:.ka DCB0:.Q_ DCB0:.my DCB0:.Fu DCB0:.ya DCB0:.fi DCB0:.oJ DCB0:.nl DCB0:.j_ DCB0:.mi DCB0:.bJ DCB0:]:P%=0:[OPTS%:.N_ DCB0
  819.al DCB0:.Z_ DCB0:.J_ DCB0:.fu DCB0:.YJ DCB0:.GJ DCB0:.bi DCB0:.En DCB0:.Pl DCB0:.Mi DCB0:.nu DCB0:]:P%=0:[OPTS%:.Wl DCB0:.Zu DCB0:.`i DCB0:.g_ DCB0:.xa DCB0:]:=0
  820DEFFNjumpblock_wimpLOCALERROR:ONERRORLOCALRESTOREERROR:PROCZ("@.h.wimp")
  821[OPTS%ANDIy%:.ma DCDGl:.Du DCDWi:.gJ DCDSa:.zl DCDsi:.dy DCD`J:.ki DCDDi:.Ka DCDUJ:.ol DCDWa:.vy DCDAu:.wa DCDIa:.ii DCDOl:.PJ DCDpi:.xu DCDZl:.Oa DCDVl:.Pi DCDha:.sa DCDJi:.yi DCDhJ:.vi DCDba:]:=0
  822DEFPROChyLOCALj%,Y_%,W$:LOCALDATA:RESTORE+0:IFS_%THEN
  823j%=!(FNB("ProgInfo")+C+88+(Oy<<5)+20)
  824ELSEj%=FNFy(u%,Oy)
  825ENDIF:READW$:Y_%=ASC(W$):W$=MID$(W$,2):WHILEW$<>"":?j%=ASC(W$)EORY_%:W$=MID$(W$,2):j%+=1:ENDWHILE:?j%=0
  826DATA"ӆ�����������",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  827ENDPROC
  828DEFPROCUyLOCALZ%:wy%=13:DIMa_%wy%:DIM`J%LEN (X$)+2+1:Z%=FNA(512):Z%!0=-1:Z%!4=0:Z%!8=-16:Z%!12=68+(wy%-5)*8*2:Z%!16=84:Z%!20=&1700312b:Z%!24=a_%:$a_%="":$`J%="S!BC":Z%!28=`J%:Z%!32=wy%:SYS&400c2,,Z%TO_J%:PROCM(Z%,512):PROCX(I):ENDPROC
  829DEFPROCX(Fu%)IFFu%<>ITHEN
  830PROCl("IconBar",Fu%+1):$a_%=LEFT$(FNG("IconBar"),wy%-1)
  831ELSE$a_%=LEFT$("UnRegistered",wy%-1)
  832ENDIF:PROCcy(-1,_J%,0,0,0):ENDPROC
  833DEFFN_FileType_version=10
  834DEFFN_hard_initialise_FileType:Xa=-1:Ba=8192:qa=4096:a=4095:AJ=4093:y=4091:_l=4089:Ci=4086:tl=4076:da=4075:DJ=3478:Bu=3388:Xi=3269:Bl=3254:yl=3253:Ti=2815:yu=2779:zi=1793:Iu=1296:=0
  835DEFFN_IntMath_version=6
  836DEFFN_hard_initialise_IntMath=0
  837DEFFN_ModeInfo_version=6
  838DEFFN_hard_initialise_ModeInfo=0
  839DEFPROCby(Ey%)SYS53,Ey%,1TO,,TJ%:TJ%+=1:SYS53,Ey%,2TO,,FJ%:FJ%+=1:SYS53,Ey%,3TO,,Qu%:Qu%+=1:SYS53,Ey%,4TO,,au%:SYS53,Ey%,5TO,,zu%:SYS53,Ey%,6TO,,Xl%:SYS53,Ey%,7TO,,uu%:SYS53,Ey%,9TO,,xu%:Ru%=1<<xu%:SYS53,Ey%,11TO,,I_%:I_%+=1:SYS53,Ey%,12TO,,J_%:J_%+=1:Rl%=I_%DIVTJ%
  840Cl%=J_%DIVFJ%:x_%=(I_%<<au%)-1:d_%=(J_%<<zu%)-1:ou%=32DIVRu%:ENDPROC
  841DEFFN_Wimp_version=50
  842DEFFN_hard_initialise_WimpLOCALv%:IFFNK<12THENERROR1,"EIW1"
  843SYS&400f2,0TOv%:IFv%=0THENERROR1,"Application needs to be run from the desktop"
  844PROCS("<BasicV$Lib>.Heap",8):PROCS("<BasicV$Lib>.IntMath",5):PROCS("<BasicV$Lib>.Message",3):PROCS("<BasicV$Lib>.Template",7):PROCS("<BasicV$Lib>.NullReason",1):qy%=FALSE:ty%=3*1024
  845PROCB(`y%,ty%):ty%+=`y%:Hy%=`y%:PROCB(W%,512):k$="":e$="":SJ%=0:X$="Application":K$="0.00 (01-Jan-1900)":Y%=-1:by%=2400:yy%=2401:Vl%=16*1024:D$="":Ou%=TRUE:hy%=0:=0
  846DEFFNd(y$)LOCALj%,C%,W$,Q%,V%,vJ%:SYS&600f2,2TOj%;C%:IF(C%AND1)=0THEN
  847SYS53,-1,4TO,,Q%:SYS53,-1,5TO,,V%:SYS53,-1,10TO,,vJ%:IFQ%<2ANDV%<2ANDvJ%=0THEN
  848W$="23"
  849ELSEW$=FNP(j%)
  850ENDIF:j%=OPENIN(y$+W$):IFj%THEN
  851CLOSE#j%:y$+=W$
  852ENDIF
  853ENDIF:=y$
  854DEFFNN(Yy%)=(Yy%AND1)<>0
  855DEFPROCFy(U%,F%)IFF%=-1THEN
  856SYS&600d2,U%,-1,0,0,1<<25,-1
  857ELSESYS&600d2,U%,F%,,,-1,LEN(FNC(U%,F%)):SYS&dcb8d,8,U%
  858ENDIF:ENDPROC
  859DEFPROCwySYS&400d2,-1,-1:ENDPROC
  860DEFPROCG(U%)IFU%>0THENSYS&dcb8d,J_,U%
  861ENDPROC
  862DEFPROCWy(U%)SYS&dcb8d,N_,U%,-1:ENDPROC
  863DEFFNZy(U%)SYS&dcb8d,Z_,U%,-1:=TRUE
  864DEFPROCH_(U%,Kl%)LOCALM%:M%=FNA(128):!M%=U%:SYS&400cb,,M%:M%!28=Kl%:SYS&400e7,2,M%,U%:PROCM(M%,128):ENDPROC
  865DEFPROCcy(U%,F%,Zu%,Pl%,Nl%)LOCALZ%:Z%=FNA(16):Z%!0=U%:Z%!4=F%:Z%!8=Pl%<<Zu%:Z%!12=Nl%<<Zu%:SYS&400cd,,Z%:PROCM(Z%,16):ENDPROC
  866DEFFNW(U%,F%)SYS&dcb8c,my,U%,F%TOF%:=F%
  867DEFPROCA(U%,F%,Gl%)SYS&dcb8c,Q_,U%,F%,Gl%:ENDPROC
  868DEFPROCMy(U%,F%,n$)LOCALZ%,ql%,xl%,_l%,wl%,Ol%,Yl%:Z%=FNA(64):!Z%=U%:Z%!4=F%:SYS&400ce,,Z%:IF((Z%!24)AND259)<>2THEN
  869PROCW("Bad rename icon to "+n$)
  870ENDIF:SYS&400c4,,Z%:$(Z%+28)=n$:Z%!4=U%:SYS&400c2,,Z%+4:SYS&400d1,U%,Z%!8,Z%!12,Z%!16,Z%!20:PROCM(Z%,64):ENDPROC
  871DEFPROCyy(U%,E%)SYS&dcb8c,Ky,U%,E%,+1:ENDPROC
  872DEFPROCzy(U%,E%)SYS&dcb8c,Ky,U%,E%,-1:ENDPROC
  873DEFPROCD(Au%,Z$)LOCALZ%:Z%=FNA(300):Z%!0=Au%:$(Z%+4)=Z$+CHR$(0):PROCH(Z%):PROCM(Z%,300):ENDPROC
  874DEFPROCW(Z$)ERRORby%,Z$:ENDPROC
  875DEFPROCP(Au%)LOCALZ%:Z%=FNA(300):Z%!0=yy%:PROCo("LE"+STR$(Au%),Z%+4):PROCH(Z%):PROCM(Z%,300):ENDPROC
  876DEFPROCH(hu%)SYS&400df,hu%,1,X$:ENDPROC
  877DEFFNp(Yy%,Z$)LOCALZ%,b%:PROCQ:Z%=FNA(260):!Z%=0:$(Z%+4)=Z$+CHR$(0):SYS&400df,Z%,(16ORYy%),FNH(0)TO,b%:PROCM(Z%,260):=b%
  878DEFPROCNyLOCALZ%:Z%=FNA(256):Z%?0=1:Z%?1=0:Z%?2=0:Z%?3=0:Z%?4=0:Z%?5=x_%MOD256:Z%?6=x_%DIV256:Z%?7=d_%MOD256:Z%?8=d_%DIV256:SYS7,21,Z%:!Z%=h_%:SYS&400c6,,Z%:PROCM(Z%,256):ENDPROC
  879DEFPROCG_(Q%,V%,I%,F%)PROCNy:Q%=FNS("FN_Stop_Action_"+l$+"("+STR$(F%=0)+")"):ENDPROC
  880DEFFNM(M$)WHILEINSTR(M$,"."):M$=MID$(M$,INSTR(M$,".")+1):ENDWHILE:=M$
  881DEFPROCU(U%,F%,P$)SYS&dcb8c,P_,U%,F%,P$:ENDPROC
  882DEFFNC(U%,E%)SYS&dcb8c,zy,U%,E%TOU%:=FNP(U%)
  883DEFFNFy(U%,E%)SYS&dcb8c,zy,U%,E%TOU%:=U%
  884DEFFNg(S$)LOCALv%,z%,a%:SYS&20008,17,S$TOv%,,,,z%;a%:IFFNN(a%)THEN
  885PROCJ("Reason",FNM(S$)):PROCb(v%):PROCW(FNH(4))
  886ENDIF:IFv%<>1THEN
  887z%=-1
  888ENDIF:=z%
  889DEFFNA(h%)LOCALb%:IF(Hy%+h%)<ty%THEN
  890b%=Hy%:Hy%+=h%
  891ELSEPROCW("Wimp Stack full")
  892ENDIF:=b%
  893DEFPROCR_:Hy%=`y%:ENDPROC
  894DEFPROCM(B_%,h%)IF(B_%<`y%)OR(B_%>ty%)THEN
  895PROCW("Release_Stack: Invalid stack chunk")
  896ELSEIF(h%<0)OR((B_%+h%)>ty%)THEN
  897PROCW("Release_Stack: Invalid chunk size")
  898ELSEHy%-=h%:IFHy%<>B_%THEN
  899PROCW("Release_Stack: Bad pop")
  900ENDIF
  901ENDIF
  902ENDIF:ENDPROC
  903DEFPROCHy(q$,t%,cu%,VJ%,ru%,su%)PROCz_(q$,q$,t%,cu%,VJ%,ru%,su%):ENDPROC
  904DEFPROCz_(q$,m$,t%,cu%,VJ%,ru%,su%)K$=STR$(t%)+"."+RIGHT$("0"+STR$(cu%),2):K$+=" ("+RIGHT$("0"+STR$(VJ%),2)+"-":K$+=MID$("CBJanFebMarAprMayJunJulAugSepOctNovDec",ru%*3,3):K$+="-"+RIGHT$("19"+STR$(su%),4)+")":X$=q$:PROCJ("App",X$):PROCIy(M_%,X$+"$Dir"):IFM_%=0THENERROR1,"EIW5"
  905IFD$<>""THEN
  906VJ%=FALSE:A_%=W%:t%=INSTR(D$,","):WHILEt%<>0:A_%!0=FNS(LEFT$(D$,t%-1)):A_%+=4:D$=MID$(D$,t%+1):t%=INSTR(D$,","):ENDWHILE:A_%!0=FNS(D$):A_%!4=0:SYS&400c0,300,&4b534154,m$,W%TOP_%,Y%
  907ELSESYS&400c0,200,&4b534154,m$TOP_%,Y%
  908ENDIF:ONERRORPROC__
  909SYS&606c0:IFP_%<200THEN
  910ERRORby%,FNH(5)
  911ENDIF:qy%=TRUE:PROCvy:PROCky:qy%=-2:PROCUy:PROCmy:IFS_%=0THEN
  912PROCU(u%,7,K$)
  913ENDIF:Ku%=-1:Gu%=-1:uJ%=-1:Ql%=-1:Bl%=FALSE:pu%=-1:Wl%=-1:i$="":`$="":PROCp:SYS&606c1:ENDPROC
  914DEFPROC__SYS&606c1:IFC_%THEN
  915PROCD(yy%,REPORT$+" ["+STR$ERL+"]")
  916ELSEPROCD(yy%,REPORT$)
  917ENDIF:PROCF:END:ENDPROC
  918DEFPROCIy(RETURNG_%,z$)LOCALh%,Vu%:SYS&20023,z$,0,-1,0,1TO,,h%,,Vu%:IFh%=0THEN
  919G_%=0
  920ELSEIFVu%=1THENERROR1,"EIW4"
  921h%=-h%:PROCB(G_%,h%):SYS35,z$,G_%,h%,0,1:G_%?(h%-1)=0
  922ENDIF:ENDPROC
  923DEFPROCC_LOCALdu%,hJ%:hJ%=TRUE:REPEATSYS&400c7,cy%,W%TOdu%:CASEdu%OF
  924WHEN0:PROCY_
  925WHEN1:PROCT_
  926WHEN2:PROCry
  927WHEN3:PROCsy
  928WHEN4:PROCey
  929WHEN5:PROCD_
  930WHEN6:PROCRy
  931WHEN7:PROCA_
  932WHEN8:PROCs_
  933WHEN9:PROCM_
  934WHEN10:PROCF_
  935WHEN11:PROCP_
  936WHEN12:PROCd_
  937WHEN17:PROCZy
  938WHEN18:PROCI_
  939WHEN19:PROCW_
  940ENDCASE:UNTILNOT(hJ%):ENDPROC
  941DEFPROCeyENDPROC
  942DEFPROCD_ENDPROC
  943DEFPROCF_ENDPROC
  944DEFPROCP_ENDPROC
  945DEFPROCd_ENDPROC
  946DEFPROCA_LOCALQ%:Q%=FNS("FN_Dragged_"+e$):IFSJ%<>(1*16)THEN
  947PROCQ
  948ENDIF:IFhy%THEN
  949SYS&42401
  950ELSESYS&400d0,,-1
  951ENDIF:e$="":ENDPROC
  952DEFPROCa(U%,F%,Il%,Q$)LOCALM%,q%,t_%,g_%:LOCALm%,p_%,dJ%:M%=FNA(64):q%=FNA(256):M%!0=U%:M%!4=F%:SYS&400ce,,M%:q%!0=U%:SYS&400cb,,q%:t_%=q%!20:g_%=q%!24:M%!0=U%:M%!4=5:M%!8+=q%!4-t_%:M%!12+=q%!16-g_%:M%!16+=q%!4-t_%:M%!20+=q%!16-g_%:IFOu%THEN
  953SYS6,161,28TO,,m%:hy%=((m%AND2)=2)
  954ELSEhy%=FALSE
  955ENDIF:IFhy%THEN
  956m%=M%!24:IF(m%AND2)=0THENERROR1,"EIW2"
  957IFm%AND256THEN
  958dJ%=M%!28:p_%=M%!32:IFm%!36THENERROR1,"EIW3"
  959ELSEdJ%=M%+28:p_%=1
  960ENDIF:SYS&42400,133,p_%,dJ%,M%+8
  961ELSEM%!24=0:M%!28=0:M%!32=x_%:M%!36=d_%:SYS&400d0,,M%
  962ENDIF:PROCM(q%,256):PROCM(M%,64):e$=Q$:SJ%=Il%:ENDPROC
  963DEFPROCI_PROCZy:ENDPROC
  964DEFPROCZ_BPUT#W%!20,"Run "+FNP(M_%):ENDPROC
  965DEFPROCxyLOCALzl%:SYS&20023,"Wimp$Scrap",0,-1,0,3TO,,fu%:IFfu%=0THEN
  966PROCP(8)
  967ELSE$(W%+44)="<Wimp$Scrap>"+CHR$(0):W%!36=-1:W%!16=2:W%!12=W%!8:W%!0=60:SYS&400e7,17,W%,W%!4:uJ%=W%!8
  968ENDIF:ENDPROC
  969DEFFN_Misc_version=46
  970DEFFN_hard_initialise_MiscLOCALE%,_%,R%:IFFNK<12THENERROR1,"EIA1"
  971Ey$="":Dl%=100:DIMmy%16:=0
  972DEFFNf(I$,Oy%,K_%)LOCALZ_%,NJ%,EJ%,PJ%,BJ%:r%=FNq(I$):IFS%AND2=0THEN
  973[OPTS%:DCD0:DCD0:]
  974ELSEZ_%=K_%-P%-8:IFABS(Z_%)>65535THENERROR1,"EIA2"
  975EJ%=ABS(Z_%)AND255:NJ%=ABS(Z_%)AND65280:IFZ_%>=0THEN
  976PJ%=r%OR(&28f0000+(Oy%<<12)+EJ%):BJ%=r%OR(&2800c00+(Oy%<<16)+(Oy%<<12)+(NJ%>>8))
  977ELSEPJ%=r%OR(&24f0000+(Oy%<<12)+EJ%):BJ%=r%OR(&2400c00+(Oy%<<16)+(Oy%<<12)+(NJ%>>8))
  978ENDIF:[OPTS%:DCDPJ%:DCDBJ%:]
  979ENDIF:=0
  980DEFPROCLy(M$)LOCALwu%,vu%,Yu%:wu%=P%:vu%=O%:Yu%=S%:IF(S%AND4)=0THEN
  981O%=P%
  982ENDIF:P%=0:S%=S%OR6:P%=FNS("FN_Declare_Local_Variables_"+M$):P%=wu%:O%=vu%:S%=Yu%:ENDPROC
  983DEFPROCS_(I$,R%)LOCALM%,r%:IFI$<>""THEN
  984r%=FNq(I$):M%=FNa(P%):FORE%=1TOR%:M%-=4:!M%=(!M%AND&fffffff)+r%:NEXTE%
  985ENDIF:ENDPROC
  986DEFFNq(I$)LOCALr%:CASEI$OF
  987WHEN"","  ":r%=14
  988WHEN"lo":r%=3
  989WHEN"hs":r%=2
  990OTHERWISEr%=INSTR("eqnecsccmiplvsvchilsgeltgtlealnv",I$):IF(r%MOD2)=0THENERROR1,"EIA13"
  991r%=(r%-1)>>1
  992ENDCASE:=r%<<28
  993DEFFNWy(Q%,RETURNA%())SYS&dcb92,Q%,my%TOQ%:A%(0)=!my%:A%(1)=my%!4:A%(2)=my%!8:A%(3)=my%!12:=Q%
  994DEFFNu(I$,_%,R%,Q%,Al%)LOCALA%(),E%,N%:DIMA%(4):E%=FNWy(ABS(Q%),A%()):N%=E%:IFQ%<0THEN
  995WHILEE%>1:E%-=1:[OPTS%:ADD _%,R%,#A%(E%):]:R%=_%:ENDWHILE:[OPTS%:ADD _%,R%,#A%(0):]
  996ELSEWHILEE%>1:E%-=1:[OPTS%:SUB _%,R%,#A%(E%):]:R%=_%:ENDWHILE:[OPTS%:SUB _%,R%,#A%(0):]
  997ENDIF:IFAl%THEN
  998IFS%AND4THEN_%=O%ELSE_%=P%
  999_%!-4+=1<<20
 1000ENDIF:PROCS_(I$,N%):=0
 1001DEFFNk(I$,Oy%,K_%)K_%-=P%+8:IFK_%>=0THENERROR1,"EIA14"
 1002=FNu(I$,Oy%,15,-K_%,FALSE)
 1003DEFFNa(j%)IF(S%AND4)THENj%+=n%
 1004=j%
 1005DEFPROCCLOCALPy%:IFS%AND2THENPy%=50ELSEPy%=0
 1006SYS&606c4,((FNa(P%)-n%)/(L%-n%)*50)+Py%:ENDPROC
 1007DEFFN_Heap_version=9
 1008DEFFN_hard_initialise_Heap=0
 1009DEFFNl(RETURNgy%,A%)gy%=USR(Uu%):IF!Uy%THENgy%=0
 1010=!Uy%
 1011DEFPROCB(RETURNgy%,h%)IFFNl(gy%,h%)THEN
 1012gy%=!Uy%:ERROR!gy%,FNL(gy%+4)
 1013ENDIF:ENDPROC
 1014DEFPROCT(RETURNA%)IFFNj(A%)THEN
 1015A%=!Uy%:ERROR!A%,FNL(A%+4)
 1016ENDIF:ENDPROC
 1017DEFFNj(RETURNA%)CALLkJ%:A%=0:=!Uy%
 1018DEFPROCU_[OPTS%:FNV(Uu%,uy):FNV(kJ%,S_):FNV(`u%,C_):ALIGN:.Uy%DCD0:]:ENDPROC
 1019DEFFNV(RETURNTl%,Sl%)[OPTS%:ALIGN:.Tl%:FNX:STMFD(A)!,{E}:MOV E,#0:STR E,Uy%:BL Sl%:STRvs0,Uy%:LDMFD(A)!,{pc}^:]:=0
 1020DEFFN_Message_version=6
 1021DEFFN_hard_initialise_Message:ui=31:SYS5,"RMEnsure CAssembler 0.08 RMLoad System:Modules.CAssembler":DIMly 256:=0
 1022DEFFN`(o$,yu%,RETURNz_%)LOCALA%:SYS&fcb83,o$+".Messages.",yu%,0TOA%,z_%:IFz_%=0THENCALLRy
 1023=A%
 1024DEFFNPy(G%,x$,y_%)SYS&fcb85,x$,y_%,G%TOy_%;G%:=y_%AND((G%AND2)=2)
 1025DEFFNo(G%,x$,g$)LOCALt%:SYS&fcb85,x$,g$,G%TOt%;G%:=t%AND((G%AND2)=2)
 1026DEFFNCy(G%)LOCALt%:SYS&fcb86,G%TOt%;G%:=t%AND((G%AND2)=2)
 1027DEFFNR(G%,x$)LOCALt%:SYS&fcb84,x$,ly,256,G%,0TOt%,G%:?G%=13:=$ly
 1028DEFPROCfy(G%,x$,bu%)G%=FNPy(G%,x$,bu%):ENDPROC
 1029DEFPROCXy(G%,x$,g$)G%=FNo(G%,x$,g$):ENDPROC
 1030DEFPROCdy(G%)G%=FNCy(G%):ENDPROC
 1031DEFFNw(R%)=FNR(p%,"E"+STR$(R%))
 1032DEFFNG(c$)=FNR(p%,c$)
 1033DEFPROCl(c$,R%)PROCfy(p%,c$,R%):ENDPROC
 1034DEFPROCJ(c$,U$)PROCXy(p%,c$,U$):ENDPROC
 1035DEFPROCo(c$,B%)SYS&dcb84,c$,B%,256,p%,0:ENDPROC
 1036DEFPROCK_PROCdy(p%):ENDPROC
 1037DEFPROCb(I%)IFI%<=0THEN
 1038PROCJ("Sys",""):PROCJ("SysN","")
 1039ELSEPROCJ("Sys",FNP(I%+4)):PROCJ("SysN",STR$~(!I%))
 1040ENDIF:ENDPROC
 1041DEFFNH(R%)=FNR(p%,"LE"+STR$(R%))
 1042DEFPROCN_[OPTS%:ALIGN:.Ry:FNX:B B_:]:IFS%AND4THENRy+=n%
 1043ENDPROC
 1044DEFFN_NullReason_version=5
 1045DEFFN_hard_initialise_NullReason=0
 1046DEFPROCmyDIMV_%4:!V_%=0:xy%=0:D_%=FALSE:cy%=6193:ENDPROC
 1047DEFPROCKy(M%)LOCALR%:IFM%=0THENPROCW("EIN6")
 1048R%=!M%:IFR%=0THENPROCW("EIN5")
 1049IFR%=xy%THEN
 1050xy%=!R%:D_%=TRUE
 1051ENDIF:!M%=!R%:PROCT(R%):PROCay:ENDPROC
 1052DEFPROCayIF!V_%THEN
 1053cy%=cy%AND(NOT1)
 1054ELSEcy%=cy%OR1
 1055ENDIF:ENDPROC
 1056DEFPROCY_LOCALi%,M%,RJ%,A%:i%=!V_%:WHILEi%:xy%=i%:D_%=FALSE:IFi%!4THEN
 1057RJ%=FNS("FN_Null_Reason_"+$(i%+12)+"("+STR$(i%!8)+")")
 1058ELSERJ%=FNS("FN_Null_Reason_"+$(i%+12))
 1059ENDIF:IFD_%THEN
 1060i%=xy%
 1061ELSExy%=0:A%=!i%:IFRJ%THEN
 1062M%=V_%:WHILE!M%<>i%:M%=!M%:IFM%=0THENPROCW("EIN2")
 1063ENDWHILE:PROCKy(M%)
 1064ENDIF:i%=A%
 1065ENDIF:ENDWHILE:ENDPROC
 2357:
 2358:
 2359:
 2360:
 2361:
�>!RunImage
0�Produced by BasCompress v1.31 (18 Jan 1993)
��Y
��ly(20,12):ey%=-2:C_%=�:dy%=�:�S("<BasicV$Lib>.CAsm",1):�S("<BasicV$Lib>.Template",12):xJ%=C_%:Zy%=�:j_%=15:LJ%=�:eu%=0:k%=1:x%=2:Cy%=3:ly%=4:y%=5:tJ%=6:Su%=7:oJ%=0:My%=1:fy%=2:Lu%=3:HJ%=4:JJ%=0:qJ%=1:QJ%=2:l_%=3:f_%=4
�c_%=5:OJ%=6:k_%=0:zJ%=1:YJ%=2:Gy%=3:U_%=4:q_%=5:m_%=6:Ul%=0:sJ%=1:cJ%=2:KJ%=3:MJ%=4:eJ%=5:AJ%=6:b_%=0:i_%=1:DJ%=2:UJ%=0:Qy%=1:Pu%=2:wJ%=0:Q_%=1:pJ%=2
��E_("stdio, stdlib, string, message, wimp"):�q_(2000,�,�):�S("<BasicV$Lib>.FileType",1):�S("<BasicV$Lib>.IntMath",4):�S("<BasicV$Lib>.ModeInfo",1):�S("<BasicV$Lib>.Wimp",35):p%=�`("<BasCompressFE$Dir>",-1,z_%):�z_%>0�
@�!p%,"BasCompressFE can't load its' message file: "+�L(p%+4)
��:uy%=3:Dy%=23:Hl%=8:w%=4:Mu%=0:oy%=1:lJ%=3:ky%=4:qu%=6:ny%=7:mu%=9:O_%=10:IJ%=0:`_%=1:rJ%=2:fJ%=3:CJ%=4:ZJ%=5:iJ%=7:Tu%=8:mJ%=9:gu%=10:Xu%=11:x=0:z=1:xy=2:Iy=3:hy=4:Vy=4:M=8
	�J=-1:I=0:ry=1:F_=2:G=1:N=2:W=3:r=4:p=0:Hy=11:wy=22:j$="":f$="":H_%=0:X_%=0:�M%(w%):�S%(w%):�Z%(w%):w_%=-1:r_%=-1:t$="":Z=G:u_%=-1:Y=p:Ll%=�:S_%=�:l%=�:v_%=�

qD$="&502,1,2,3,&400C0,&400C1,8,&400CC,10":�Hy("BasCompressFE",1,40,17,7,1994):dy%=C_%:�L_:�_y:�_y:�g:�Zy(T%)
��Y
�R_:��C_:��:�

��x�W_,L:�S%�2�
?M%=P%:Bu%=S%:O%=P%:P%=0:S%=S%�4:[OPTS%:ALIGN:]:P%=M%:S%=Bu%
��:[OPTS%:ALIGN:.D:.Qy DCD0:.Gy DCD0:.i DCD0:.P DCD0:DCD0:.Uy DCD0:DCD0:.n DCD0:.Jy DCD0:.Ey DCD0:.Fy DCD0:.Cy DCD0:DCD0:DCD0:DCD0:DCD0:DCD0:.Py DCD0
�.g DCD0:DCD0:.Sy DCD0:.Ay DCD0:.u DCD0:.c DCD0:.h DCD0:.v DCD0:.b DCD0:.Xy DCD0:.t DCD0:.l DCD0:.f DCD0:DCD0:DCD0:DCD0:DCD0:DCD0:.m DCD0:.My DCD0:DCD0:.o DCD0:.e DCD0:.V DCD0:.q DCD0:.w DCD0:.O DCD0:.qy:ALIGN:.yy:�E(k%,JJ%):�E(k%,qJ%)
�E(k%,QJ%):�E(k%,l_%):�s(k%,f_%):�E(k%,f_%):�s(k%,c_%):�E(k%,c_%):�E(k%,OJ%):�E(x%,zJ%):�E(x%,YJ%):�F(x%,Gy%,0):�F(x%,Gy%,1):�F(x%,Gy%,2):�F(x%,Gy%,3):�F(x%,Gy%,4):�F(x%,Gy%,5):�F(x%,Gy%,m_%):�F(x%,U_%,0):�F(x%,U_%,1):�E(x%,q_%):�E(Cy%,sJ%)
̤E(Cy%,cJ%):�E(Cy%,KJ%):�E(Cy%,MJ%):�E(Cy%,eJ%):�E(Cy%,AJ%):�E(ly%,b_%):�E(ly%,i_%):�Y(y%,My%,UJ%):�J(y%,My%,Qy%,0):�J(y%,My%,Qy%,1):�J(y%,My%,Qy%,2):�J(y%,My%,Qy%,3):�J(y%,My%,Qy%,4):�J(y%,My%,Qy%,5)
o�Y(y%,fy%,wJ%):�J(y%,fy%,Q_%,0):�J(y%,fy%,Q_%,1):�E(y%,HJ%):DCB203:.W_:EQUS"[0,w>,m>,m>,m>,m>,m>,d>,>":DCB0
�EQUS"[100,>,>,>,>,>,d>,>":DCB0:EQUS"[200,w>,>,>,m>,m>,m>":DCB0:EQUS"[300,>,>,>,>,>,>,>":DCB0:EQUS"[400,>,>":DCB0:EQUS"[250,i4":DCB0:EQUS"[500,w>,>,>,>,>,>,>":DCB0:EQUS"[600,>,>,i256":DCB0:EQUS"[700,w>,m>,m>,w>,>":DCB0:EQUS"[800,m>,m>,w>":DCB0
�EQUS"[900,>,>,>,>,>":DCB0:EQUS"[300,>,>,>,>,>,>":DCB0:EQUS"[1000,m>,m>,w>":DCB0:EQUS"[900,>,>,>,>,>":DCB0:EQUS"[400,>,>":DCB0:ALIGN:.L DCD0:DCD0:DCD0:.jy EQUS"A0-9;":.Dy EQUS"Pptr_write"+�0:._y:�X
�STMFD(A)!,{4-9,E}:ADR1,L+4:�k("",0,W_):BL dy:LDMvsFD(A)!,{4-9,pc}:STR0,L:ADR2,Dy:LDR1,[0,#�U(x%)+4]:LDR1,[1,#�U(q_%)+4]:ADR2,jy:STR2,[1,#�U(0)+12+4]
�LDR1,[0,#�U(ly%)+4]:ADR2,Dy:STR2,[1,#�U(DJ%)+12+4]:ADR0,L:LDMFD(A)!,{4-9,pc}:.E_:STMFD(A)!,{E}:ADR0,yy:ADR1,D:LDR2,L:BL cy:ADRvc0,L:LDMFD(A)!,{pc}:]:�jy:�Q_:�
��j�
]��uy:K%=�T("Order",f%):T%=�O("Control",0,+1):e%=�T("SaveAs",+1):X%=�T("Choices",f%):�hy:�
��oy(Q%,V%,I%,F%)�(I%�1)�

笤Z(t$)�

Q%=�v(t$)
�
�ș&465c6,Y%,T%:�H_(T%,-1)
�:�
 ��ryș&400c5,,W%:�
!��syș&400c6,,W%:�
"*��T_�GJ%:�:ș&606c0:��:ș&606c1:�L
#;ș&400c8,,W%�GJ%:ȕGJ%:ș&400ca,,W%�GJ%:�:��:ș&606c1:�
$0��s_�U%,F%,g%:U%=W%!0:F%=W%!4:g%=W%!24:ȎU%�
%�e%:�J_(F%,g%)
&�T%:�By(F%,g%)
'�X%:�x_(F%,g%)
(ș&400dc,g%
)�:�
*��m�F:�
+9��Oy�Z$,U%,F%,A%,E%,Wy%:Z$="":U%=W%!32:F%=W%!36:ȎU%�
,�-2:�F%=_J%�
-Z$="IconBar"
.
�Z$=�b
/�
0�u%:Z$="ProgInfo"
1�K%:Z$="Order":�e(F%)�
2�k(F%,E%,Wy%):�Wy%=M�
3Z$+=",R"
4�Z$+=","+�(�("A")+Wy%)
5�
6
�Z$+=",_"
7�
8�T%:Z$="Control":�F%=-1�
9Z$+=",_"
:�Z$+=","+�(F%)
;�
<"�X%:Z$="Choices":Z$+=","+�(F%)
=&�e%:�l("SaveAsType",Z):Z$="SaveAs"
>�(P_%>218)�(W%!36<>-1)�
?	Z$=�b
@�
A�:�Z$<>""�
B�o("H"+Z$,W%+20):�W%?20�
CNW%!16=1283:W%!12=W%!8:A%=W%+20:ȕ?A%:A%+=1:�:�A%>=(W%+256)�A%=W%+255:?A%=0
D)W%!0=(A%-W%+4)�-4:ș&400e7,17,W%,W%!4
E�
F�:�
G7ݤb�Z$,D%:D%=W%+40:ș&400f4,1,D%,W%!32,W%!36:ȎRy%�
H�sy%:Z$="I"
I�:�Z$<>""�
J7Z$="M"+Z$+�(!D%):ȕD%!4<>-1:D%+=4:Z$+="_,"+�(!D%):�
K	�:=Z$
L ��p�by(-1):ș&465c2,Y%:�Qy:�
M)��F��"Error in error handler: ";�$:�
N�ny:�K_:�Zy:ș&400dd:�:�
ON��Ry�Q%,V%,I%,D%,F%,_%,Wy%:Q%=W%!0:V%=W%!4:I%=W%!8:D%=W%!12:F%=W%!16:ȎI%�
P�2:ȎD%�
Q8�-2:�_:V%=96+(44*Hu%)+(24*Wu%):ș&400d4,,c%,Q%-64,V%
R �T%:�_:ș&400d4,,c%,Q%-64,V%
S�
T�1*16,4*16:ȎD%�
U
�T%:ȎF%�
V,�lJ%:Z=G:�a(D%,F%,I%,"FileName_Control")
W,�qu%:Z=N:�a(D%,F%,I%,"FileName_Control")
X,�Mu%:Z=W:�a(D%,F%,I%,"FileName_Control")
Y�
Z
�e%:ȎF%�
[%�1:�a(D%,F%,I%,"FileName_SaveAs")
\�
]�u%:�Cy(Q%,V%,I%,F%)
^�
_
ȎD%�
`�-2:�oy(Q%,V%,I%,F%)
a�h_%:�G_(Q%,V%,I%,F%)
b�e%:�Gy(Q%,V%,I%,F%)
c�u%:�Cy(Q%,V%,I%,F%)
d�K%:�O_(Q%,V%,I%,F%)
e�T%:�iy(Q%,V%,I%,F%)
f�X%:�Py(Q%,V%,I%,F%)
g�
h�:�
i��ky:Ry%=�:sy%=&1040a31+0:�
j-��_�A%:Hu%=8:Wu%=1:A%=�(E_):c%=!A%:�v_%�
k<�py(c%,"1,2,23,24,25,3,4,5,51,510,511,52,520,521"):v_%=�
l4�:X_%=A%!4:H_%=A%!8:$X_%=�(By):$H_%=H$:Ry%=sy%:�
mY��qy�Q%,V%,R_%,Ay%,o%,m%:Q%=W%!24:V%=W%!28:R_%=W%!32:Ay%=W%!36:o%=W%!40:m%=by%:ȎRy%�
n�sy%:ȎR_%�
o�eu%:�n:ș&400e8,,u%,Q%,V%
p�x%:ȎAy%�
q"�k_%:Z=W:�R:ș&400e8,,e%,Q%,V%
r�
s�Cy%:ȎAy%�
t"�k_%:Z=G:�R:ș&400e8,,e%,Q%,V%
u�
v�y%:ȎAy%�
w"�oJ%:Z=N:�R:ș&400e8,,e%,Q%,V%
x�My%:Ȏo%�
y)�Pu%:Y=Hy:�d(S%()):ș&400e8,,K%,Q%,V%
z�
{�fy%:Ȏo%�
|)�pJ%:Y=wy:�d(M%()):ș&400e8,,K%,Q%,V%
}�
~(�Lu%:Y=p:�d(Z%()):ș&400e8,,K%,Q%,V%
�
��
��:�
����M_�R_%,Z%,nJ%,jJ%,Nu%,Ay%,A%,o%:�Ny%:Z%=�A(512):ș&400cf,,Z%:nJ%=Z%!0:jJ%=Z%!4:Nu%=Z%!8:�M(Z%,512):R_%=!W%:Ay%=W%!4:o%=W%!8:Ny%=W%!12:ȎRy%�
��sy%:ȎR_%�
��k%:ȎAy%�
��JJ%:�E(Qy)
��qJ%:�E(Gy)
��QJ%:�E(i)
��l_%:�E(P):�E(P+4):�E(P+12)
��f_%:�E(Uy)
��c_%:�E(n)
��OJ%:�E(Jy)
��
��x%:ȎAy%�
��zJ%:�E(Ey)
��YJ%:�E(Fy)
��Gy%:Ȏo%�
��m_%:�E(Py)
��-1
��E(Cy+(o%<<2))
��
��U_%:�o%<>-1�
��E(g+(o%<<2))
��
��q_%:Ȏo%�
��-1:�E(Sy)
��0:By=�($X_%)
��
��
��Cy%:ȎAy%�
��sJ%:�E(Ay)
��cJ%:�E(u)
��KJ%:�E(c)
��MJ%:�E(h)
��eJ%:�E(v)
��AJ%:�E(b)
��
��ly%:ȎAy%�
��DJ%:�s($H_%)
��b_%:�E(Xy)
��i_%:�E(t)
��
��y%:ȎAy%�
��My%:Ȏo%�
��UJ%:�Ny%<>-1�
�
!l=Ny%
��
��Qy%:�Ny%<>-1�
��E(f+(Ny%<<2))
��
��
��fy%:Ȏo%�
��wJ%:�Ny%<>-1�
�
!m=Ny%
��
��Q_%:�Ny%<>-1�
��E(My+(Ny%<<2))
��
��
��HJ%:�E(o)
��
��tJ%:�V_
��Su%:�m
��
�
�:�Nu%=1�
�
ȎRy%�
��sy%:�_
��:ș&400d4,,c%,nJ%,jJ%
���Q
��:�
���Qș&400d4,,-1:Ry%=�:�
���E(t%)!t%=(!t%=0):�
���s(E$)�E$=""�
�	E$=f$
��:H$=E$:�U(T%,O_%,H$):�
���Ay(E$)�E$=""�
�	E$=a$
��:F$=E$:�U(T%,oy%,E$):�
���e_(E$)�E$=""�
�	E$=_$
��:J$=E$:�U(T%,ny%,E$):�
���Yy(E$)�E$=""�
�	E$=O$
��:C$=E$:�U(T%,ky%,E$):�
���L�C_%�
���,�$+" ["+�(�)+"]"
�
̅�,�$
�
�:�F:�
�V��L_�G%,q$,al%:�e:H$=f$:F$=a$:J$=_$:C$=O$:G%=�("<BasCompressFE$Dir>.Choices"):�G%�
��:��:�#G%:�
�vș12,4,G%,D,qy-D:�r(G%,M%()):�r(G%,S%()):�r(G%,Z%()):�#G%,C$:O$=�M(C$):�#G%,J$:_$=�M(J$):�#G%,F$:a$=�M(F$):��:�#G%
��:�
�1��r(G%,�E%())�E%:�E%=0�w%-1:�#G%,E%(E%):�E%:�
�7��O(_u)�G%:G%=�("<BasCompressFE$Dir>.Choices"):�G%�
��:��:�#G%:�L
�=ș12,2,G%,D,qy-D:�c(G%,M%()):�c(G%,S%()):�c(G%,Z%()):�_u�
��#G%,C$:�#G%,J$:�#G%,F$
�(��#G%,�M(C$):�#G%,�M(J$):�#G%,�M(F$)
�
�:��:�#G%
��:�
�0��c(G%,E%())�E%:�E%=0�w%-1:�#G%,E%(E%):�E%:�
����e�F:!Qy=�:!Gy=�:!i=�:!P=�:P!4=(!P=0):P!12=(!P=0):!Uy=�:!n=�:!Jy=�:!Ey=�:!Fy=�:�F=0�5:Cy!(F<<2)=�:�F:�F=0�1:g!(F<<2)=�:�F:!Py=�:!Sy=�:By=16:!Ay=�:!u=�:!c=�:!h=�:!v=�:!b=�:!Xy=�:!t=�:!l=3:�F=0�5:f!(F<<2)=�:�F:!m=3:�F=0�1:My!(F<<2)=�:�F:!o=�
�p!e=�:!V=�:!q=�:!w=�:!O=�:M%()=J:S%()=J:Z%()=J:M%()=x,z:S%()=x,z:Z%()=x,z,Iy:O$="Log":a$="Output":_$="XRef":�
�[��gș&465c6,Y%,T%:�z(T%,O_%,H$,f$):�z(T%,ky%,C$,O$):�z(T%,ny%,J$,_$):�z(T%,oy%,F$,a$):�
���iy(Q%,V%,I%,F%)�
���By(F%,g%)Ȏg%�
��13,398,399:ȎF%�
��ky%:Z=G
��ny%:Z=N
��oy%:Z=W
��O_%:Z=r
�&�:�K(�C(T%,F%)):�g%=398��yy(T%,F%)
��g%=399��zy(T%,F%)
��g%=13��wy
�
�27:�g
�ș&400dc,g%
��:�
���V_�y:�Wy(X%):�Fy(X%,-1):�
���y�D("Choices",X%)�
�g�ș&465c6,Y%,X%:�A(X%,IJ%,!e):�A(X%,`_%,!V):�A(X%,rJ%,!q):�A(X%,fJ%,!w):�A(X%,CJ%,!O):�A(X%,ZJ%,�z)
��:�
�*��Py(Q%,V%,I%,F%)�_y%:�Fy(X%,-1):ȎF%�
��Xu%:�N:_y%=�
��gu%:�y:_y%=�
��mJ%:�N:�O(�):_y%=�
��Tu%:�N:�O(�):_y%=�
��iJ%:�e:�y:_y%=�
��:�_y%�
�I%�1092��G(X%)
�:�
s��N�o_%,s$,w$,T$:!e=�W(X%,IJ%):!V=�W(X%,`_%):!q=�W(X%,rJ%):!w=�W(X%,fJ%):!O=�W(X%,CJ%):o_%=�z:�o_%<>�W(X%,ZJ%)�
)s$="TFont":w$="TSystem":�o_%�Ȕs$,w$
[T$=�P(M_%)+".":s$=T$+s$+�0:w$=T$+w$+�0:T$=T$+"Templates"+�0:ș41,25,T$,s$:ș41,25,w$,T$
�:�
��x_(F%,g%)Ȏg%�
�13:�N:�G(X%)
�27:�G(X%)
	�386:�e:�G(X%)

�387:�N:�O(�):�G(X%)
�388:�N:�O(�):�G(X%)
�389:�G(X%)

�390:�N:�G(X%)
ș&400dc,g%
�:�
ݤz�WJ%,Z%,Py%,R%:Z%=�A(128):Py%=0:�ș12,9,M_%,Z%,1,Py%,128,"TSystem"+�0�,,,R%,Py%:WJ%=(R%=1):�(Py%=-1)�WJ%:�M(Z%,128):=WJ%
'��d(E%())�E%,_%,N%:�D("Order",K%)�
��ș&465c6,Y%,K%:E%=0:ȕE%<w%�E%(E%)<>J:_%=E%(E%)�(�M):�N%=0�Vy:�A(K%,�Q(N%,E%),_%=N%):�N%:�A(K%,Dy%+E%,E%(E%)�M):E%+=1:�:ȕE%<w%:�N%=0�Vy:�A(K%,�Q(N%,E%),�):�N%:�A(K%,Dy%+E%,�):E%+=1:�
�:�
��O_(Q%,V%,I%,F%)ȎY�
�p:�v(Z%(),I%,F%)
�wy:�v(M%(),I%,F%)
�Hy:�v(S%(),I%,F%)
�:�
.��v(�E%(),I%,F%):�E%,N%,Wy%,d%,_%:�e(F%)�
)�k(F%,E%,Wy%):_%=�M:�(E%(E%)�_%)=Wy%�
�W(K%,F%)=��
�Sy(E%(),E%)
�
��Wy%=M�
�E%(E%)=J�
 �A(K%,F%,�)
! �E%(E%)=E%(E%)�M:�u(E%(),E%)
"�
#��E%(E%)=J�
$E%(E%)=Wy%
%�E%(E%)=(E%(E%)�M)�Wy%
&%�:�u(E%(),E%):N%=0:d%=�:��N%<>E%�
'd%=((E%(N%)�_%)=Wy%):�d%�
(�Dy(E%(),E%)
)�
*�:N%+=1:�d%�N%>=w%
+�
,�
-�:�
.>��u(�E%(),�E%):�d%:d%=(E%<=0):ȕ�d%:d%=(E%(E%-1)<>J):�d%�
/!E%-=1:�Sy(E%(),E%):d%=(E%<=0)
0	�:�:�
1U��Sy(�E%(),E%):�N%,d%,Y_%:N%=E%:�E%(N%)=J:�A(K%,Dy%+N%,�):N%+=1:d%=(N%>=w%):�d%�
2d%=(E%(N%)=J):�d%�
3dE%(N%-1)=E%(N%):�A(K%,�Q(E%(N%),N%-1),�):�A(K%,�Q(E%(N%),N%),�):Y_%=E%(N%)�M:�A(K%,Dy%+N%-1,Y_%)
4�
5�:�d%:�
6��Dy(�E%(),N%):�E%,d%:E%=0:d%=�:ȕ�Jy(E%(),E%):E%+=1:�:�A(K%,�Q(E%(N%),N%),�):E%(N%)=E%�(E%(N%)�M):�A(K%,�Q(E%(N%),N%),�):�
7WݤJy(E%(),E%):�s_%,N%:N%=0:s_%=�:ȕN%<w%�(�s_%):s_%=((E%(N%)�(�M))=E%):N%+=1:�:=s_%
8#ݤe(F%)=(F%>=uy%)�(F%<(Dy%+w%))
9��k(F%,�gJ%,�aJ%)�F%>=Dy%�
:	aJ%=M
;�aJ%=(F%-uy%)�w%
<�:gJ%=(F%-uy%)�w%:�
=*ݤQ(aJ%,gJ%)=(((aJ%�(�M))*w%)+uy%)+gJ%
>��J_(F%,g%)Ȏg%�
?�13,398:�K(�C(e%,2)):�Q
@
�27:�Q
Aș&400dc,g%
B�:�
C��Gy(Q%,V%,I%,F%)ȎF%�
D�0:�K(�C(e%,2)):�I%�1�
E�_:ș&400d4,,c%
F��Q
G�
H�:�
I��R�D("SaveAs",e%)�
J%�ș&465c6,Y%,e%:�U(e%,2,�r):�Z=W�
K�My(e%,1,"file_"+�~(y))
L��My(e%,1,"file_"+�~(a))
M�
N�:�
Oݤr�M$:ȎZ�
P�G:M$=C$
Q�N:M$=J$
R�W:M$=F$
S�r:M$=H$
T	�:=M$
U"��z(D%,E%,M$,Ay$)�M$=""�M$=Ay$
V�U(D%,E%,M$):�
W#ݤ_Dragged_FileName_ControlȎZ�
X�G:�I(�C(T%,ky%))
Y�N:�I(�C(T%,ny%))
Z�W:�I(�C(T%,oy%))
[�:=0
\-ݤ_Dragged_FileName_SaveAs�I(�C(e%,2)):=0
]X��I(S$)�D%,E%,Z%,Q%,V%:Z%=�A(320):ș&400cf,,Z%:D%=Z%!12:E%=Z%!16:�(D%<>-2)�(D%<>T%)�
^�S$=""�
_ȎZ�
`�G:S$=O$
a�N:S$=_$
b�W:S$=a$
c�
d�S$=�M(S$)
e��:Q%=!Z%:V%=Z%!4:!Z%=(�(S$)+48)�-4:Z%!12=0:Z%!16=1:Z%!20=D%:Z%!24=E%:Z%!28=Q%:Z%!32=V%:Z%!36=-1:Z%!40=a:$(Z%+44)=S$+�(0):ș&400e7,17,Z%,D%,E%:u_%=Z%!8
f�:�M(Z%,320):�
g��K(S$)�S$<>�r�
hȎZ�
i�G:�Yy(S$)
j�N:�e_(S$)
k�W:�Ay(S$)
l
�r:�s(S$)
m�
n
�:�R:�g:�
o��W_ȎW%!12�
p�0:ȎW%!8�
q�w_%:ș&400de,"/"+C$:w_%=-1
r�r_%:ș&400de,"/"+J$:r_%=-1
s�
t�:�
u]��`y�W_%,p$,U%,F%,Q%,V%:p$=�P(W%+44):W_%=W%!40:U%=W%!20:F%=W%!24:Q%=W%!28:V%=W%!32:ȎW_%�
v
�y:�xy
w�:�
x]��B_�W_%,d$,U%,F%,Q%,V%:U%=W%!20:F%=W%!24:Q%=W%!28:V%=W%!32:W_%=W%!40:d$=�L(W%+44):ȎW_%�
y�y:Q%=�v(d$)
z�a:笤Z(d$)�
{
�s(d$)
|�
}�D(yy%,�w(1))
~�:�
��a_�S$,N_%:�(W%!12)<>u_%�
�
�P(10)
� �N_%=�:S$=�P(W%+44):ȎW%!40�
��a:�K(S$):N_%=�
��P(10):N_%=�
��:�N_%�
�9W%!12=Gu%:W%!16=3:ș&400e7,18,W%,W%!20,W%!24:Ku%=W%!8
��
��:�
�ݤ_(P$)�E%,M%:�P$<>""�
�Z�E%=1��(P$):M%=�"ABCDEFGHIJKLMNOPQRSTUVWXYZ",�P$,E%,1)):�M%>0��P$,E%,1)=�(M%+�("a")-1)
��E%
�	�:=P$
�0ݤZ(M$)=(�M(M$)="")�(�_(M$)=j$)�(�M$,".")<1)
� ݤv(Y$)�A$,E%:�!O�(��Z(F$))�
�E%=�Y$,"."):�E%>0�
�*A$=�F$,�(F$)-�(�M(F$)))+�M(Y$):�Ay(A$)
��
�*�:t$=Y$:A$="":�!Qy<>0�A$+=" -MultiDEF"
��!Gy<>0�A$+=" -WEndRtn"
��!i<>0�A$+=" -Number"
��!P=0�A$+=" -SWI"
��!Uy=0�A$+=" -SWIBad"
��!n=0�A$+=" -SWIExist"
��!Jy<>0�A$+=" -Library"
��!Fy=0�A$+=" -Unused"
��!Py<>0�A$+=" -EVariable"
�
笤Z(F$)�
��!Ey=0�A$+=" -Single"
�UA$+=" -ReduceVar "+�x(Cy):A$+=" -ReduceRtn "+�c(g):�!Sy<>0�A$+=" -ListOut "+�(By)
��:笤Z(C$)�
��!Ay=0�A$+=" -Stats"
��!u=0�A$+=" -EVAL"
��!c=0�A$+=" -DATA"
��!h=0�A$+=" -READ"
��!v=0�A$+=" -GOTO"
��!b<>0�A$+=" -List"
��:笤Z(H$)�
��!Xy<>0�A$+=" -UnusedS"
��!t<>0�A$+=" -WSpLabel"
��:�Z(J$)�
�A$+=" -XRef 0"
���A$+=" -XVar "+�(!l):A$+=" -XIncVar "+�x(f):A$+=" -XRtn "+�(!m):A$+=" -XIncRtn "+�c(My):A$+=" -SRef "+�I(Z%()):A$+=" -SVar "+�I(S%()):A$+=" -SRtn "+�I(M%()):�!o=0�A$+=" -Deleted"
���:�t("BasCompress$Options",A$):�q("BasCompress$Special",H$):�q("BasCompress$XRef",J$):�q("BasCompress$Out",F$):�q("BasCompress$Log",C$):�!w�
��t("Main",Y$):Y$="<Main>"
��:�:��:�X(I):�L
��Z(C$)�
�4�X(F_):ș&400de,"BasCompress "+Y$+" { > null: }"
�&��X(ry):ș&400de,"BasCompress "+Y$
�$�:��:�X(I):�((!V)<>0)�(��Z(C$))�
��i(w_%,C$)
��:�((!q)<>0)�(��Z(J$))�
��i(r_%,J$)
��:�((!e)<>0)�(��Z(F$))�
�ș&400de,F$
��:=0
�>��i(�nu%,q$)�M%,Vy%,Py%,Vu%:ș8,5,q$�Py%,,Vy%,,z%:�Py%<>0�
��M%=�A(256):M%!20=-1:M%!28=0:M%!32=0:M%!36=z%:M%!40=(Vy%�&fff00)>>8:�V(M%+44,q$):M%!0=(�(q$)+1+3+44)�(�3):M%!12=0:M%!16=5:ș&400e7,18,M%,0:nu%=M%!8:�M(M%,256)
��:�
�Z��t(z$,r$)�M%:M%=�A(512):�V(M%,z$):�V(M%+256,r$):ș36,M%,M%+256,�(r$),0,0:�M(M%,512):�
���q(z$,r$)�Z(r$)�
�ș&20024,z$,0,-1,0,2
���t(z$,r$)
��:�
�CݤI(E%())�E%,N%,E$,P$:E$="":E%=0:N%=�:ȕN%�E%<w%:ȎE%(E%)�(�M)�
�
�x:P$="N"
��hy:P$="D"
��xy:P$="U"
�
�z:P$="T"
��Iy:P$="P"
�	N%=�
�
�:�N%�
��E%(E%)�M�
�E$+=�_(P$)
��E$+=P$
��:E%+=1
��:�:�(E$)=0�E$=""""""
�=E$
� ݤx(S)�E$:E$="":�S!0�E$+="i"
��S!4�E$+="r"
��S!8�E$+="s"
��S!12�E$+="I"
��S!16�E$+="R"
��S!20�E$+="S"
��(E$)=0�E$=""""""
�=E$
� ݤc(S)�E$:E$="":�S!0�E$+="p"
��S!4�E$+="f"
��(E$)=0�E$=""""""
�=E$
���ZyȎW%!16�
�
�1282:�Oy
�
�1:�`y
�
�2:�a_
�
�3:�B_
��&400c0:�qy
��&400c1:�p
�	�8:�m
��&400cc:�Ty
��10:�Z_
�	�0:�F
��:�
���Ty�Z$:ȎW%!20�
��X%:Z$="WinChoices"
��T%:Z$="WinControl"
��:�Z$<>""�
�sZ$=�G(Z$):W%!16=&400cc:W%!12=W%!8:$(W%+28)="bascomp"+�0:$(W%+36)=Z$+�0:W%!0=(36+�(Z$)+4)�-4:ș&400e7,17,W%,W%!4
��:�
�
ݤK=19
���ly(bJ%,Fl%)�K<Fl%�
�
�1,"EIL1"
�
�:�bJ%<1�
�
�1,"EIL2"
�i�:__%=bJ%:�A$(__%-1):�F%(__%-1):XJ%=0:�vy%256:L_%=40:s%=0:ey%=12:Eu%=�:�E$(L_%-1):qy%=�:dy%=�:xJ%=�:�
���S(G$,Ju%)�X_(G$,Ju%):�
�_��X_(G$,Ju%)�Vy%,E%,R$,h$:E%=0:Vy%=�:R$=�G$,1+�G$,".")):ȕE%<XJ%�Vy%:Vy%=(R$<>A$(E%)):�Vy%�
�	E%+=1
�
�:�:�Vy%�
��E%=__%�
�
�1,"EIL3"
�O�:A$(E%)=R$:h$="'"+G$+"' does not have a FN_":�:��:�Z(h$+R$+"_version")
�RF%(E%)=�("FN_"+R$+"_version"):��:XJ%+=1:�:��:�Z(h$+"_hard_initialise_"+R$)
�!�("FN_hard_initialise_"+R$)�
��1,"EIL5 "+G$
��:��
��:�Ju%>F%(E%)�
��1,"EIL4 "+G$
��:�
�ݤS(u$)�:��:�ty

=�(u$)

��ty�xJ%�
-��,�$+" (evaluating `"+u$+"' ["+�(�)+"])"

̅�,�$
�:�
+ݤL(A%)�L$:ȕ?A%:L$+=�(?A%):A%+=1:�:=L$
:ݤn(A%,B%)�L$:ȕB%>=1�?A%:L$+=�(?A%):A%+=1:B%-=1:�:=L$
.ݤP(A%)�L$:ȕ?A%>31:L$+=�(?A%):A%+=1:�:=L$
!��V(A%,L$)$A%=L$:A%?�(L$)=0:�
	��Z(Q$)�qy%�

	�dy%�
��,�$+" ["+Þ+"]."

̅�,�$

�
��Eu%�
�s%=L_%�
&E(L_%-1)="Errors too deep!!!!!":�Y
�:��Q$,2)=": "�
Q$=�Q$,�(Q$)-2)
�:�dy%�

E$(s%)=�$
��s%=0�
JE$(s%)="Error `"+�$+"' (line ":E$(s%)+=�(�)+") in ":E$(s%)+="`"+Q$+"'"
�E$(s%)="`"+Q$+"'"
�
�:s%+=1:��,""
�
�:�
��Y�Sy%,Zy$:�qy%�
	�dy%�
 �D(�,�$+" ["+�(�)+"]."):�F:�
��D(�,�$):�=by%�
 �F:�
!�
"�
#
��ey%=-2�
$
�s%>0�
%
���,E$(0)
&̅��,�$
'�:�
(�:�ey%=-3�
)8$vy%="TASK":ș&400c0,200,!vy%,"LibHandler"+�(0):�s%�
*�Sy%=0�s%-1:�Sy%<(s%-1)�
+�f(E$(Sy%)+" in")
,��f(E$(Sy%))
-
�:�Sy%
.��f(�$+" (line "+�(�)+")")
/�:ș&600dd:�
0�:�ey%>=0�
1�ey%
2'�:�"An error has occured...":�:�s%�
3:�Sy%=0�s%-1:�((7-(Sy%<<1))�6)+1:�E$(Sy%);:�Sy%<(s%-1)�
4�" in ";
5
�:�Sy%
6��$;" (line ";�(�);")"
7�:�:�7:�
8�:�
9f��f(g$)�Iu%:Iu%=20+(�(g$)+5)�-4:!vy%=Iu%:vy%!16=&804c0:$(vy%+20)=g$+�(10)+�(0):ș&600e7,17,vy%,0:�
:ݤ_CAsm_version=14
;�ݤ_hard_initialise_CAsm�S("<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
<�CAsmLibrary_string=3:XJ=4:gi=5:Pa=6:xl=7:CAsmLibrary_wimp=8:ua=9:CAsmLibrary_message=10:ql=11:Al=12:vl=13:_i=14:ju=15:il=16:_a=17:qu=18:Tl=19:dJ=20:h_=21:u_=22:bl=23:Bi=24
=�o_=25:`a=26:`=26:LJ=0:_J=1:Lu=2:BJ=3:I_=4:Y_=5:a_=6:wi=7:Ha=8:ea=9:T=10:Q=11:j=12:A=13:E=14:SJ=15:ny=&6d734143:Fy%=0:Iy%=13:R=0:B=0:d=10*1024:M_=d+(1*1024):oy=�:=0
>@��E_(V$)�M%,`%,q%,L%,O%,P%,S%,G$:�:��:ș&400ec,zy%,-1:�L
?Rzy%=�-32768:ș&400ec,zy%+32768,-1�L%:L%+=32768:O%=zy%+32768:P%=0:S%=14:�O%=L%�
@/�1,"Not enough memory to start application"
A�:�Fy%<>0�
B
�1,"EIC1"
C �:�n_%`*8:�Z$(`):�h_DEFAULT
D3ȕV$<>"":G$=�V$,�V$,",")-1):�:��:�Z("EIC2")
ED`%=�("CAsmLibrary_"+G$):��:q%=n_%:M%=q%+(Fy%*8):ȕM%>q%:�!q%=`%�
Fq%=M%+1
G
�q%+=8
H�:�:�q%=M%�
I�Fy%>=`�
J
�1,"EIC3"
K>�:!M%=`%:Z$(`%)=G$:Fy%+=1:O%=zy%+32768:P%=0:�S("FNh_"+G$)
LG�:V$=�V$,�(G$)+2):ȕ�(V$)=�(" "):V$=�V$,2):�:�:ș&400ec,zy%,-1:��:�
M��`�R%,M%,E%,Jy%:�Fy%=0�
N�h_DEFAULT
O�:Jy%=n_%:E%=Fy%:�(S%�2)=0�
P+�M%Fy%*4:ș79,Fy%,M%+&c0000000,3,,Jy%,8
Q��:[OPTS%:.Ly DCDny:DCDty:]:ȕE%>0:[OPTS%:DCD!Jy%:DCDJy%!4:]:Jy%+=8:E%-=1:�:[OPTS%:DCD0:]:[OPTS%:ALIGN:.Wy:]:M%=P%:�jumpblock_DEFAULT
RJty=(P%-M%)>>2:E%=Fy%:Jy%=n_%:ȕE%>0:M%=P%:�S("FNjumpblock_"+Z$(!Jy%))
S%Jy%!4=(P%-M%)>>2:Jy%+=8:E%-=1:�:�
T~��gy�X:[OPTS%:ALIGN:.Yy:STMFD(A)!,{4-5,E}:BL P%+(13<<2):.X DCDLy-X:DCDWy-X:DCDR-X:DCDB:DCDd:.U:DCD0:DCD0:DCD0:DCD0:LDR A,U
U�LDMFD(A)!,{T,Q,j,E}:MOVpc,E:BIC 5,E,#&fc000003:LDMIA5,{0-4}:ADD0,0,5:ADD1,1,5:ADD2,2,5:MOV5,#0:SWI &fcb80:STRvc0,U+(1<<2):STRvc1,U+(3<<2):LDMFD(A)!,{4-5,pc}:.Zy:�X:MOV2,E:MOV1,A:MOV0,T
VqSWI &fcb81:MOVvc1,#0:STRvc1,U+(3<<2):MOVpc,2:MOV13,12:]:R=P%:�C:�j:B=(B+3)�-4:P%+=B-1:O%+=B-1:[OPTS%:DCB0:]:�
W��w_�P%<>32768��1,"EIC4"
Xo[OPTS%:ADR4,_:MOV5,#ky:SWI &fcb80:�f("vc",2,tu):Bvc G_:SWI 43:._:DCDLy-_:DCDWy-_:DCDR-_:DCDB:DCDd:DCDM_:]:�
YsݤX[OPTS%:STMFD(A)!,{T,Q,j,E}:MOV Q,pc:�f("",E,U):STR A,[E],#4:LDMIA(E)!,{T,j,A}:� Q,Q,#&fc000003:�R E,E,Q:]:=0
Z_��q_(E_%,Ky%,yJ%)�S("<BasicV$Lib>.Heap",8):�S("<BasicV$Lib>.Message",1):�Ey(E_%,Ky%,yJ%,0)
[�Yy:��Zy:�Y
\�
]UݤEy(E_%,Ky%,yJ%,ay%)�L%,O%,P%,S%,sl%,H%:�mJ:�uJ,i_,cJ,kJ,EJ,vJ:�`y,gy,Yi:�ay%=0�
^:�S("<BasicV$Lib>.Heap",8):�S("<BasicV$Lib>.Message",1)
_~�:�n%E_%:mJ=A:uJ=1<<31:i_=1<<30:cJ=1<<29:kJ=1<<28:EJ=1<<27:vJ=1<<26:`y=1<<17:gy=256:Yi=gy+`y:ș&606c0:�:��:ș&606c1:�L
`"H%=E_%:L%=n%+E_%:�Ky%<>0�Ky%=4
a"�S%=8+Ky%�10+Ky%�2:�(S%�4)<>0�
bO%=n%:�ay%=1�
cP%=32768
d	�P%=0
e�
f�O%=0:P%=n%
g�:Ȏay%�
h/�1:�C:�w_:�C:�x:�C:�`:R=P%:�C:�j:B=(B+3)�-4
i'�0:�C:�x:�C:�U_:�C:�N_:�C:�`:�C:�gy
j�2:�C:�x
k�:�S%�4�L%=O%�L%=P%
l�(S%�2)=0�
mș&dcb93,0,n%,L%-n%
n!�:H%=L%-n%:�S%:ș&606c1:�Ky%�
o�ay%=0�
pYy+=n%:Zy+=n%
q�
r�:�oy�ay%<>2�
s	�Ky%�
tH%=Wy:�ay%�H%-=32768
u̅1,"EIC9"
v�
w�:�yJ%�
x`�"Assembled to &";~H%;" = ";((H%*10+512)�1024)/10;"K":�"Could assemble with ";E_%-H%;" less"
y	�:=H%
zݤ_Template_version=21
{cݤ_hard_initialise_Template:S_%=�:l%=�:Zy%=�:jy%=�:LJ%=�:ry%=-1:j_%=1:iy=7:Oy=16:A_=14:py=15:=0
|��ny�E%:�l%<>-1�
}	�Zy%�
~ș&665c1,Y%,�,�
1��E%=0�255:ȕl%?E%:ș&60082,E%:l%?E%-=1:�:�E%
��
��:�
�/��vy�z%,v%,a%,Z%,N$,Jl%,Yy%,F_%,By%,R%:�l%�
�	�Zy%�
�jy%=(Zy%=+1):�jy%�
�	a%=+1
�	�a%=0
��:Yy%=140+(1<<21):�LJ%�
�v$=�G("MenuFont"):�v$<>""�
��Yy%+=(1<<18)+(1<<19):�B(F_%,8+�(v$)+1):$(F_%+8)=v$:F_%!0=16*�(�G("MenuFontWidth")):F_%!4=16*�(�G("MenuFontHeight")):�G("MenuFontLowRez")="NO"�
�Yy%+=(1<<17)
��Yy%+=(1<<16)
��
��
�*�:ș&465c0,Y%,0,0,a%,a%,0,0,Yy%,F_%�l%
�!��B(l%,256):ș&dcb93,0,l%,256
��
�
�l%=-1
�4�:N$=�d("<"+X$+"$Dir>.Sprites"):z%=�g(N$):�z%>0�
�pZ%=�A(128):By%=0:�ș12,12,"<"++X$+"$Dir>",Z%,1,By%,128,"Sprites*"�,,,R%,By%:�R%=1�Z%!20=4089�z%<Z%!8�z%=Z%!8
�m�By%<0:�M(Z%,128):�B(f%,z%+16):f%!0=z%+16:f%!4=0:f%!8=16:f%!12=16:ș&2002e,522,f%,N$�v%;a%:b$=N$:�N(a%)�
�*�J("Reason","Sprites"):�b(v%):�P(4):�F
��
�	�f%=0
��:�_y("Templates"):�f%>0�
� �h("ProgInfo",f%,"ProgInfo")
�!��h("ProgInfo",+1,"ProgInfo")
��:u%=0:�S_%=0�
��n
�"�:h_%=�O("Query",Jl%,+1):�uy:�
�/��Qy:N$=�d("<"+X$+"$Dir>.Sprites"):�N$<>b$�
�0f%!4=0:f%!8=16:f%!12=16:ș46,522,f%,N$:b$=N$
��:�
�.ݤProgInfo(D%)�V(D%!(88+(iy<<5)+20),K$):=0
���Cy(Q%,V%,I%,F%)ȎF%�
�!�A_,py:Q%=�p(1,�w(0)):�I%<>1�
��Q
��
�
�I%�240�
�W%!0=u%:W%!4=1:ș&400d0,,W%
��
��:�
�
��n�u%=0�
�	�jy%�
�$�T_%4:!T_%=0:�i("ProgInfo",T_%)
�u%=!T_%
���D("ProgInfo",u%)
��
�
��Zy%�
�	�jy%�
�ș&465c6,Y%,T_%
��ș&465c6,Y%,u%
��
��
��:�
�W��_y(E$)�tu%,`%,z%,v%,a%,J%:�_u%,N$,Ly%,iy%:N$="<"+X$+"$Dir>."+E$:z%=�g(N$):�z%<=0�
�2�J("Reason",E$):�J("Sys","Not found"):�P(4):�F
�M�:�B(`%,z%):�B(Ly%,z%+C):iy%=Ly%+Ty:_u%=Ly%+C:ș&600d9,,N$�v%;a%:�N(a%)�
�5�J("Reason","Templates"):�b(v%):�P(4):ș&600da:�F
��:�:��:�Vy
�TBy%=0:�iy%!0=�("*"):ș&600db,,_u%,`%,`%+z%,l%,iy%,By%�v%,,tu%,,,,By%;a%:�N(a%)�
��H(v%):ș&600da:�F
��:�By%�
�&�a%=0�11:�iy%?a%=13�iy%?a%=0:a%=12
�1�a%:Ly%!fy=tu%-`%:Ly%!Ny=`%:J%=�h(Ly%):�J%=0�
��P(16):ș&600da:�F
��:J%!H=!py%:!py%=J%
�)�:�By%=0:��:ș&400da:�T(Ly%):�T(`%):�
�!��Vyș&600da:�Z("Template"):�
�%ݤO(B$,lu%,e_%)=�m(B$,lu%,e_%,"")
�1ݤm(B$,lu%,e_%,Q$)�J%,Du%,G%:J%=�B(B$):�J%=0�
��F
�"�:Du%=J%+C:Du%!64=e_%:�Q$<>""�
�G%=�S("FN"+Q$)
��:�t(J%,G%)�
��F
��:�w(J%):=G%
�)��h(B$,e_%,Q$)�J%,D%:J%=�B(B$):�J%=0�
��F
� �:D%=J%+C:D%!64=e_%:�Q$<>""�
� D%=�S("FN"+Q$+"("+�(D%)+")")
��:�
�&ݤT(B$,e_%)�J%,D%:J%=�B(B$):�J%=0�
��F
��:D%=J%+C:D%!64=e_%:=0
�"ݤD(B$,�Xy%)�E%:=�y(B$,Xy%,E%)
�)ݤy(B$,�Xy%,�Cu%)�J%,b%:b%=�:�Xy%<=0�
�J%=�B(B$):�J%�
�b%=�t(J%,Xy%):�b%=��
�Cu%=J%!Ny:�w(J%)
��
�	�b%=�
��
�
��Zy%�
�ș&465c6,Y%,Xy%
��
�	�:=b%
�HݤAy(B$)�J%,E$,m%:J%=!py%:m%=�:ȕJ%�(�m%):m%=(�n(J%+Ty,12)=B$):�m%�
�J%=J%!H
��:�:=J%
� ݤB(B$)�J%:J%=�Ay(B$):�J%=0�
��J("Reason",B$):�P(3)
�	�:=J%
�ݤt(J%,�Xy%)�Zy%�
�ș&665c3,Y%,J%+C,0�Xy%;J%
��ș&600c1,,J%+C�Xy%;J%
��:J%=�N(J%):�J%�
��H(Xy%):Xy%=0
�	�:=J%
�:��w(J%)�M%:M%=py%:ȕ!M%<>0�!M%<>J%:M%=!M%+H:�:�!M%=J%�
�!M%=J%!H:J%!H=0:�T(J%)
��:�
�ݤSy(A%)=�(by)
�ݤh(A%)A%=�Sy(A%):�A%=0�
�
�P(16)
�	�:=A%
�!��jy�(S%�2)=0��Ly("Template")
� [OPTS%:ALIGN:.by:�X:B vy:]:�
�}ݤ_Declare_Local_Variables_Template�py%4:!py%=0:P%=0:[OPTS%:.H DCD0:.Tu DCD0:.Ny DCD0:.fy DCD0:.Ty DCD0:DCD0:DCD0:.C:]:=0
�"ݤi(B$,Ty%)�E%:=�By(B$,Ty%,E%)
�*ݤBy(B$,Ty%,�Cu%)�J%,b%:b%=�:�!Ty%<=0�
�J%=�B(B$):�J%�
�b%=�My(J%,Ty%):�b%=��
�Cu%=J%!Ny:�w(J%)
��
�	�b%=�
��
�
��Zy%�
ș&465c6,Y%,Ty%
�
	�:=b%
ݤMy(J%,Ty%)�v%:�Zy%�
ș&665c3,Y%,J%+C,Ty%�v%;J%
�ș&600c1,,J%+C�v%;J%
�:!Ty%=v%:J%=�N(J%):�J%�
�H(v%):!Ty%=0
	�:=J%
	6��py(c%,U$)�_%:�Ey(c%):ȕU$<>"":_%=�U$,","):�_%>1�

"�Jy(c%,�U$,_%-1)):U$=�U$,_%+1)
��Jy(c%,U$):U$=""
	�:�:�

V��Jy(c%,U$)�E%:�E%=1��(U$):c%+=28+(24*(�(�U$,E%,1))-�("0"))):c%=c%!4:�E%:�Ey(c%):�
��Ey(c%)�ry%=-1�
�C%(j_%):ry%=0
�:�ry%>=�(C%(),1)��1,"ET1"
&C%(ry%)=c%:ry%+=1:ș&465c7,Y%,c%:�
(ݤE(S,s)[OPTS%:DCBS:DCBs:DCB128:]:=0
1ݤF(S,s,ay)[OPTS%:DCBS:DCBs:DCBay:DCB128:]:=0
:ݤJ(S,s,ay,OJ)[OPTS%:DCBS:DCBs:DCBay:DCBOJ:DCB128:]:=0
(ݤs(S,s)[OPTS%:DCBS:DCBs:DCB130:]:=0
1ݤY(S,s,ay)[OPTS%:DCBS:DCBs:DCBay:DCB129:]:=0
ݤU(K)�K>=0�K=(K*24)+28�K=0
=K
���Q_�X,k,sy:[OPTS%:ALIGN:.cy:STMFD(A)!,{4-9,E}:MOV5,0:MOV6,1:MOV8,2:MOV7,#24:.k LDRB E,[5],#1:TEQ E,#203:LDMeqFD(A)!,{4-9,pc}:MOV4,8:.sy ADD4,4,#28:MLA 4,E,7,4:LDRB E,[5],#1:CMP E,#128
�LDRlo4,[4,#4]:Blo sy:LDR0,[6],#4:Beq ey:CMP E,#130:Beq U_:.aa:LDR4,[4,#4]:ADD4,4,#28:MOV1,#0:.X TEQ0,1:LDR2,[4,#0]:�Req2,2,#1:BICne 2,2,#1:STR2,[4],#24:TST2,#128:ADDeq1,1,#1:Beq X
�B k:.U_:TEQ0,#0:LDR0,[4,#8]:BICeq 0,0,#1<<22:�Rne0,0,#1<<22:STR0,[4,#8]:B k:.ey:TEQ0,#0:LDR0,[4,#0]:BICeq 0,0,#1:�Rne0,0,#1:STR0,[4,#0]:B k:]:�
)ݤh_DEFAULT�:��:�Z("@.h.DEFAULT")
ndu=16:kl=1<<30:TJ=1<<29:Sl=0:pl=1:ga=2:Aa=3:za=4:q_=5:ca=6:JJ=7:qi=8:Pu=9:ta=10:ll=1<<0:ky=1<<1:Vi=1<<2:=0
1ݤjumpblock_DEFAULT�:��:�Z("@.h.DEFAULT")
m[OPTS%�Iy%:.Ga DCDd_:.Eu DCDuu:.`_ DCDx_:.T_ DCDci:.Ou DCDva:.WJ DCDou:.n_ DCDgl:.y_ DCDMl:.G_ DCDvu:]:=0
 %ݤh_stdio�:��:�Z("@.h.stdio")
!ZJ=0:Fi=17:Oi=34:=0
"-ݤjumpblock_stdio�:��:�Z("@.h.stdio")
#�[OPTS%�Iy%:.cl DCDli:.w_ DCDAi:.Da DCDLi:.ai DCDxi:.X_ DCDtJ:.iu%DCDju%:.Ml%DCDEl%:.Zl%DCDku%:.dl DCDYu:.Il DCDei:.zJ DCDIi:.ni DCDri:.El DCDCu:]:=0
$'ݤh_stdlib�:��:�Z("@.h.stdlib")
%=0
&/ݤjumpblock_stdlib�:��:�Z("@.h.stdlib")
'�[OPTS%�Iy%:.uy DCDmu:.S_ DCDXl:.Ri DCDjl:.C_ DCDKu:.QJ DCDNu:.Ua DCDnJ:.rl DCDhl:.ra DCDpa:.ia DCDFl:.su DCDlJ:.Ja DCDNJ:.R_ DCDiJ:.Ya DCDV_:.iu DCDUu:.Qi DCDRl:.VJ DCDja:]:=0
('ݤh_string�:��:�Z("@.h.string")
)SP%=0:[OPTS%:.Ju DCB0:.f_ DCB0:.ml DCB0:.eJ DCB0:.gu DCB0:.Dl DCB0:.Ql DCB0:]:=0
*/ݤjumpblock_string�:��:�Z("@.h.string")
+�[OPTS%�Iy%:.MJ DCDqJ:.Wu DCDZi:.sJ DCDv_:.La DCDZa:.Jl DCDti:.di DCDwl:.Fa DCDfJ:.CJ DCDKi:.c_ DCDGu:.Ea DCDXu:.Qa DCDru:.KJ DCDQu:.RJ DCDRa:.wu DCDrJ:.na DCDK_:.jJ DCDUi:.Ma DCDe_:.m_ DCDaJ:.Na DCDD_
,�.ji DCDz_:.bu DCDO_:.au DCDNi:.pu DCDLl:.Hi DCDt_:.Ul DCDFJ:.`l DCDk_:.fl DCDxJ:.sl DCDhi:.el DCDHJ:.Si DCDla:.Hl DCD__:.Yl DCDzu:.Kl DCDp_:.Hu DCDNl:.hu DCDb_:.Ru DCDr_:.H_ DCDpJ:.eu DCDIJ:.Mu DCDVu:.Ei DCDCa:.Su DCD`u:.fa DCDul:]:=0
-)ݤh_message�:��:�Z("@.h.message")
.=0
/1ݤjumpblock_message�:��:�Z("@.h.message")
0E[OPTS%�Iy%:.B_ DCDoa:.L_ DCDl_:.yJ DCDku:.oi DCDGi:.Ta DCDlu:]:=0
1#ݤh_wimp�:��:�Z("@.h.wimp")
2�cu=12:Va=0:P%=0:[OPTS%:.zy DCB0:.Cl DCB0:.P_ DCB0:.s_ DCB0:.wJ DCB0:.Ky DCB0:.ka DCB0:.Q_ DCB0:.my DCB0:.Fu DCB0:.ya DCB0:.fi DCB0:.oJ DCB0:.nl DCB0:.j_ DCB0:.mi DCB0:.bJ DCB0:]:P%=0:[OPTS%:.N_ DCB0
3�.al DCB0:.Z_ DCB0:.J_ DCB0:.fu DCB0:.YJ DCB0:.GJ DCB0:.bi DCB0:.En DCB0:.Pl DCB0:.Mi DCB0:.nu DCB0:]:P%=0:[OPTS%:.Wl DCB0:.Zu DCB0:.`i DCB0:.g_ DCB0:.xa DCB0:]:=0
4+ݤjumpblock_wimp�:��:�Z("@.h.wimp")
5�[OPTS%�Iy%:.ma DCDGl:.Du DCDWi:.gJ DCDSa:.zl DCDsi:.dy DCD`J:.ki DCDDi:.Ka DCDUJ:.ol DCDWa:.vy DCDAu:.wa DCDIa:.ii DCDOl:.PJ DCDpi:.xu DCDZl:.Oa DCDVl:.Pi DCDha:.sa DCDJi:.yi DCDhJ:.vi DCDba:]:=0
6��hy�j%,Y_%,W$:��:�+0:�S_%�
7(j%=!(�B("ProgInfo")+C+88+(Oy<<5)+20)
8�j%=�Fy(u%,Oy)
9L�:�W$:Y_%=�(W$):W$=�W$,2):ȕW$<>"":?j%=�(W$)�Y_%:W$=�W$,2):j%+=1:�:?j%=0
:8�"ӆ�����������",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
;�
<���Uy�Z%:wy%=13:�a_%wy%:�`J%� (X$)+2+1:Z%=�A(512):Z%!0=-1:Z%!4=0:Z%!8=-16:Z%!12=68+(wy%-5)*8*2:Z%!16=84:Z%!20=&1700312b:Z%!24=a_%:$a_%="":$`J%="S!BC":Z%!28=`J%:Z%!32=wy%:ș&400c2,,Z%�_J%:�M(Z%,512):�X(I):�
=��X(Fu%)�Fu%<>I�
>2�l("IconBar",Fu%+1):$a_%=��G("IconBar"),wy%-1)
? �$a_%=�"UnRegistered",wy%-1)
@�:�cy(-1,_J%,0,0,0):�
Aݤ_FileType_version=10
B�ݤ_hard_initialise_FileType:Xa=-1:Ba=8192:qa=4096:a=4095:AJ=4093:y=4091:_l=4089:Ci=4086:tl=4076:da=4075:DJ=3478:Bu=3388:Xi=3269:Bl=3254:yl=3253:Ti=2815:yu=2779:zi=1793:Iu=1296:=0
Cݤ_IntMath_version=6
D ݤ_hard_initialise_IntMath=0
Eݤ_ModeInfo_version=6
F!ݤ_hard_initialise_ModeInfo=0
G���by(Ey%)ș53,Ey%,1�,,TJ%:TJ%+=1:ș53,Ey%,2�,,FJ%:FJ%+=1:ș53,Ey%,3�,,Qu%:Qu%+=1:ș53,Ey%,4�,,au%:ș53,Ey%,5�,,zu%:ș53,Ey%,6�,,Xl%:ș53,Ey%,7�,,uu%:ș53,Ey%,9�,,xu%:Ru%=1<<xu%:ș53,Ey%,11�,,I_%:I_%+=1:ș53,Ey%,12�,,J_%:J_%+=1:Rl%=I_%�TJ%
H>Cl%=J_%�FJ%:x_%=(I_%<<au%)-1:d_%=(J_%<<zu%)-1:ou%=32�Ru%:�
Iݤ_Wimp_version=50
J/ݤ_hard_initialise_Wimp�v%:�K<12��1,"EIW1"
KIș&400f2,0�v%:�v%=0��1,"Application needs to be run from the desktop"
L��S("<BasicV$Lib>.Heap",8):�S("<BasicV$Lib>.IntMath",5):�S("<BasicV$Lib>.Message",3):�S("<BasicV$Lib>.Template",7):�S("<BasicV$Lib>.NullReason",1):qy%=�:ty%=3*1024
M��B(`y%,ty%):ty%+=`y%:Hy%=`y%:�B(W%,512):k$="":e$="":SJ%=0:X$="Application":K$="0.00 (01-Jan-1900)":Y%=-1:by%=2400:yy%=2401:Vl%=16*1024:D$="":Ou%=�:hy%=0:=0
N:ݤd(y$)�j%,C%,W$,Q%,V%,vJ%:ș&600f2,2�j%;C%:�(C%�1)=0�
ODș53,-1,4�,,Q%:ș53,-1,5�,,V%:ș53,-1,10�,,vJ%:�Q%<2�V%<2�vJ%=0�
PW$="23"
Q�W$=�P(j%)
R�:j%=�(y$+W$):�j%�
S�#j%:y$+=W$
T�
U	�:=y$
VݤN(Yy%)=(Yy%�1)<>0
W��Fy(U%,F%)�F%=-1�
Xș&600d2,U%,-1,0,0,1<<25,-1
Y3�ș&600d2,U%,F%,,,-1,�(�C(U%,F%)):ș&dcb8d,8,U%
Z�:�
[��wyș&400d2,-1,-1:�
\��G(U%)�U%>0�ș&dcb8d,J_,U%
]�
^��Wy(U%)ș&dcb8d,N_,U%,-1:�
_ ݤZy(U%)ș&dcb8d,Z_,U%,-1:=�
`Z��H_(U%,Kl%)�M%:M%=�A(128):!M%=U%:ș&400cb,,M%:M%!28=Kl%:ș&400e7,2,M%,U%:�M(M%,128):�
an��cy(U%,F%,Zu%,Pl%,Nl%)�Z%:Z%=�A(16):Z%!0=U%:Z%!4=F%:Z%!8=Pl%<<Zu%:Z%!12=Nl%<<Zu%:ș&400cd,,Z%:�M(Z%,16):�
b&ݤW(U%,F%)ș&dcb8c,my,U%,F%�F%:=F%
c)��A(U%,F%,Gl%)ș&dcb8c,Q_,U%,F%,Gl%:�
df��My(U%,F%,n$)�Z%,ql%,xl%,_l%,wl%,Ol%,Yl%:Z%=�A(64):!Z%=U%:Z%!4=F%:ș&400ce,,Z%:�((Z%!24)�259)<>2�
e �W("Bad rename icon to "+n$)
fd�:ș&400c4,,Z%:$(Z%+28)=n$:Z%!4=U%:ș&400c2,,Z%+4:ș&400d1,U%,Z%!8,Z%!12,Z%!16,Z%!20:�M(Z%,64):�
g%��yy(U%,E%)ș&dcb8c,Ky,U%,E%,+1:�
h%��zy(U%,E%)ș&dcb8c,Ky,U%,E%,-1:�
iJ��D(Au%,Z$)�Z%:Z%=�A(300):Z%!0=Au%:$(Z%+4)=Z$+�(0):�H(Z%):�M(Z%,300):�
j��W(Z$)�by%,Z$:�
kL��P(Au%)�Z%:Z%=�A(300):Z%!0=yy%:�o("LE"+�(Au%),Z%+4):�H(Z%):�M(Z%,300):�
l��H(hu%)ș&400df,hu%,1,X$:�
mgݤp(Yy%,Z$)�Z%,b%:�Q:Z%=�A(260):!Z%=0:$(Z%+4)=Z$+�(0):ș&400df,Z%,(16�Yy%),�H(0)�,b%:�M(Z%,260):=b%
n���Ny�Z%:Z%=�A(256):Z%?0=1:Z%?1=0:Z%?2=0:Z%?3=0:Z%?4=0:Z%?5=x_%�256:Z%?6=x_%�256:Z%?7=d_%�256:Z%?8=d_%�256:ș7,21,Z%:!Z%=h_%:ș&400c6,,Z%:�M(Z%,256):�
oF��G_(Q%,V%,I%,F%)�Ny:Q%=�S("FN_Stop_Action_"+l$+"("+�(F%=0)+")"):�
p.ݤM(M$)ȕ�M$,"."):M$=�M$,�M$,".")+1):�:=M$
q'��U(U%,F%,P$)ș&dcb8c,P_,U%,F%,P$:�
r*ݤC(U%,E%)ș&dcb8c,zy,U%,E%�U%:=�P(U%)
s'ݤFy(U%,E%)ș&dcb8c,zy,U%,E%�U%:=U%
t8ݤg(S$)�v%,z%,a%:ș&20008,17,S$�v%,,,,z%;a%:�N(a%)�
u(�J("Reason",�M(S$)):�b(v%):�W(�H(4))
v
�:�v%<>1�
w	z%=-1
x	�:=z%
yݤA(h%)�b%:�(Hy%+h%)<ty%�
zb%=Hy%:Hy%+=h%
{��W("Wimp Stack full")
|	�:=b%
}��R_:Hy%=`y%:�
~$��M(B_%,h%)�(B_%<`y%)�(B_%>ty%)�
,�W("Release_Stack: Invalid stack chunk")
���(h%<0)�((B_%+h%)>ty%)�
�+�W("Release_Stack: Invalid chunk size")
��Hy%-=h%:�Hy%<>B_%�
� �W("Release_Stack: Bad pop")
��
��
��:�
�>��Hy(q$,t%,cu%,VJ%,ru%,su%)�z_(q$,q$,t%,cu%,VJ%,ru%,su%):�
����z_(q$,m$,t%,cu%,VJ%,ru%,su%)K$=�(t%)+"."+�"0"+�(cu%),2):K$+=" ("+�"0"+�(VJ%),2)+"-":K$+=�"CBJanFebMarAprMayJunJulAugSepOctNovDec",ru%*3,3):K$+="-"+�"19"+�(su%),4)+")":X$=q$:�J("App",X$):�Iy(M_%,X$+"$Dir"):�M_%=0��1,"EIW5"
��D$<>""�
��VJ%=�:A_%=W%:t%=�D$,","):ȕt%<>0:A_%!0=�S(�D$,t%-1)):A_%+=4:D$=�D$,t%+1):t%=�D$,","):�:A_%!0=�S(D$):A_%!4=0:ș&400c0,300,&4b534154,m$,W%�P_%,Y%
�%�ș&400c0,200,&4b534154,m$�P_%,Y%
��:��__
�ș&606c0:�P_%<200�
��by%,�H(5)
�*�:qy%=�:�vy:�ky:qy%=-2:�Uy:�my:�S_%=0�
��U(u%,7,K$)
�O�:Ku%=-1:Gu%=-1:uJ%=-1:Ql%=-1:Bl%=�:pu%=-1:Wl%=-1:i$="":`$="":�p:ș&606c1:�
���__ș&606c1:�C_%�
��D(yy%,�$+" ["+Þ+"]")
���D(yy%,�$)
��:�F:�:�
�>��Iy(�G_%,z$)�h%,Vu%:ș&20023,z$,0,-1,0,1�,,h%,,Vu%:�h%=0�
�	G_%=0
���Vu%=1��1,"EIW4"
�5h%=-h%:�B(G_%,h%):ș35,z$,G_%,h%,0,1:G_%?(h%-1)=0
��:�
�2��C_�du%,hJ%:hJ%=�:�ș&400c7,cy%,W%�du%:Ȏdu%�
�
�0:�Y_
�
�1:�T_
�
�2:�ry
�
�3:�sy
�
�4:�ey
�
�5:�D_
�
�6:�Ry
�
�7:�A_
�
�8:�s_
�
�9:�M_
��10:�F_
��11:�P_
��12:�d_
��17:�Zy
��18:�I_
��19:�W_
��:��(hJ%):�
�	��ey�
�	��D_�
�	��F_�
�	��P_�
�	��d_�
�1��A_�Q%:Q%=�S("FN_Dragged_"+e$):�SJ%<>(1*16)�
��Q
��:�hy%�
�ș&42401
��ș&400d0,,-1
�
�:e$="":�
����a(U%,F%,Il%,Q$)�M%,q%,t_%,g_%:�m%,p_%,dJ%:M%=�A(64):q%=�A(256):M%!0=U%:M%!4=F%:ș&400ce,,M%:q%!0=U%:ș&400cb,,q%:t_%=q%!20:g_%=q%!24:M%!0=U%:M%!4=5:M%!8+=q%!4-t_%:M%!12+=q%!16-g_%:M%!16+=q%!4-t_%:M%!20+=q%!16-g_%:�Ou%�
�"ș6,161,28�,,m%:hy%=((m%�2)=2)
�
�hy%=�
��:�hy%�
� m%=M%!24:�(m%�2)=0��1,"EIW2"
��m%�256�
�(dJ%=M%!28:p_%=M%!32:�m%!36��1,"EIW3"
��dJ%=M%+28:p_%=1
��:ș&42400,133,p_%,dJ%,M%+8
�5�M%!24=0:M%!28=0:M%!32=x_%:M%!36=d_%:ș&400d0,,M%
�*�:�M(q%,256):�M(M%,64):e$=Q$:SJ%=Il%:�
�
��I_�Zy:�
� ��Z_�#W%!20,"Run "+�P(M_%):�
�9��xy�zl%:ș&20023,"Wimp$Scrap",0,-1,0,3�,,fu%:�fu%=0�
�	�P(8)
�b�$(W%+44)="<Wimp$Scrap>"+�(0):W%!36=-1:W%!16=2:W%!12=W%!8:W%!0=60:ș&400e7,17,W%,W%!4:uJ%=W%!8
��:�
�ݤ_Misc_version=46
�5ݤ_hard_initialise_Misc�E%,_%,R%:�K<12��1,"EIA1"
�Ey$="":Dl%=100:�my%16:=0
�:ݤf(I$,Oy%,K_%)�Z_%,NJ%,EJ%,PJ%,BJ%:r%=�q(I$):�S%�2=0�
�[OPTS%:DCD0:DCD0:]
�)�Z_%=K_%-P%-8:�(Z_%)>65535��1,"EIA2"
�,EJ%=�(Z_%)�255:NJ%=�(Z_%)�65280:�Z_%>=0�
�RPJ%=r%�(&28f0000+(Oy%<<12)+EJ%):BJ%=r%�(&2800c00+(Oy%<<16)+(Oy%<<12)+(NJ%>>8))
�S�PJ%=r%�(&24f0000+(Oy%<<12)+EJ%):BJ%=r%�(&2400c00+(Oy%<<16)+(Oy%<<12)+(NJ%>>8))
��:[OPTS%:DCDPJ%:DCDBJ%:]
��:=0
�8��Ly(M$)�wu%,vu%,Yu%:wu%=P%:vu%=O%:Yu%=S%:�(S%�4)=0�
�	O%=P%
�Q�:P%=0:S%=S%�6:P%=�S("FN_Declare_Local_Variables_"+M$):P%=wu%:O%=vu%:S%=Yu%:�
���S_(I$,R%)�M%,r%:�I$<>""�
�@r%=�q(I$):M%=�a(P%):�E%=1�R%:M%-=4:!M%=(!M%�&fffffff)+r%:�E%
��:�
�ݤq(I$)�r%:ȎI$�
��"","  ":r%=14
��"lo":r%=3
��"hs":r%=2
�Dr%=�"eqnecsccmiplvsvchilsgeltgtlealnv",I$):�(r%�2)=0��1,"EIA13"
�r%=(r%-1)>>1
�
�:=r%<<28
�XݤWy(Q%,�A%())ș&dcb92,Q%,my%�Q%:A%(0)=!my%:A%(1)=my%!4:A%(2)=my%!8:A%(3)=my%!12:=Q%
�Jݤu(I$,_%,R%,Q%,Al%)�A%(),E%,N%:�A%(4):E%=�Wy(�(Q%),A%()):N%=E%:�Q%<0�
�MȕE%>1:E%-=1:[OPTS%:ADD _%,R%,#A%(E%):]:R%=_%:�:[OPTS%:ADD _%,R%,#A%(0):]
�N�ȕE%>1:E%-=1:[OPTS%:SUB _%,R%,#A%(E%):]:R%=_%:�:[OPTS%:SUB _%,R%,#A%(0):]
��:�Al%�
��S%�4�_%=O%�_%=P%
�_%!-4+=1<<20
��:�S_(I$,N%):=0
�/ݤk(I$,Oy%,K_%)K_%-=P%+8:�K_%>=0��1,"EIA14"
�=�u(I$,Oy%,15,-K_%,�)
�ݤa(j%)�(S%�4)�j%+=n%
�=j%
���C�Py%:�S%�2�Py%=50�Py%=0
�+ș&606c4,((�a(P%)-n%)/(L%-n%)*50)+Py%:�
�ݤ_Heap_version=9
�ݤ_hard_initialise_Heap=0
�&ݤl(�gy%,A%)gy%=�(Uu%):�!Uy%�gy%=0
�	=!Uy%
���B(�gy%,h%)�l(gy%,h%)�
�gy%=!Uy%:�!gy%,�L(gy%+4)
��:�
���T(�A%)�j(A%)�
�A%=!Uy%:�!A%,�L(A%+4)
��:�
�ݤj(�A%)�kJ%:A%=0:=!Uy%
�B��U_[OPTS%:�V(Uu%,uy):�V(kJ%,S_):�V(`u%,C_):ALIGN:.Uy%DCD0:]:�
�mݤV(�Tl%,Sl%)[OPTS%:ALIGN:.Tl%:�X:STMFD(A)!,{E}:MOV E,#0:STR E,Uy%:BL Sl%:STRvs0,Uy%:LDMFD(A)!,{pc}^:]:=0
�ݤ_Message_version=6
�oݤ_hard_initialise_Message:ui=31:ș5,"RMEnsure CAssembler 0.08 RMLoad System:Modules.CAssembler":�ly 256:=0
�Hݤ`(o$,yu%,�z_%)�A%:ș&fcb83,o$+".Messages.",yu%,0�A%,z_%:�z_%=0��Ry
�=A%
<ݤPy(G%,x$,y_%)ș&fcb85,x$,y_%,G%�y_%;G%:=y_%�((G%�2)=2)
;ݤo(G%,x$,g$)�t%:ș&fcb85,x$,g$,G%�t%;G%:=t%�((G%�2)=2)
0ݤCy(G%)�t%:ș&fcb86,G%�t%;G%:=t%�((G%�2)=2)
;ݤR(G%,x$)�t%:ș&fcb84,x$,ly,256,G%,0�t%,G%:?G%=13:=$ly
&��fy(G%,x$,bu%)G%=�Py(G%,x$,bu%):�
#��Xy(G%,x$,g$)G%=�o(G%,x$,g$):�
��dy(G%)G%=�Cy(G%):�
ݤw(R%)=�R(p%,"E"+�(R%))
ݤG(c$)=�R(p%,c$)
	��l(c$,R%)�fy(p%,c$,R%):�

��J(c$,U$)�Xy(p%,c$,U$):�
'��o(c$,B%)ș&dcb84,c$,B%,256,p%,0:�
��K_�dy(p%):�

��b(I%)�I%<=0�
�J("Sys",""):�J("SysN","")
*��J("Sys",�P(I%+4)):�J("SysN",�~(!I%))
�:�
ݤH(R%)=�R(p%,"LE"+�(R%))
/��N_[OPTS%:ALIGN:.Ry:�X:B B_:]:�S%�4�Ry+=n%
�
ݤ_NullReason_version=5
#ݤ_hard_initialise_NullReason=0
+��my�V_%4:!V_%=0:xy%=0:D_%=�:cy%=6193:�
 ��Ky(M%)�R%:�M%=0��W("EIN6")
R%=!M%:�R%=0��W("EIN5")
�R%=xy%�
xy%=!R%:D_%=�
�:!M%=!R%:�T(R%):�ay:�
��ay�!V_%�
cy%=cy%�(�1)
�cy%=cy%�1
�:�
 6��Y_�i%,M%,RJ%,A%:i%=!V_%:ȕi%:xy%=i%:D_%=�:�i%!4�
!6RJ%=�S("FN_Null_Reason_"+$(i%+12)+"("+�(i%!8)+")")
"'�RJ%=�S("FN_Null_Reason_"+$(i%+12))
#�:�D_%�
$
i%=xy%
%�xy%=0:A%=!i%:�RJ%�
&,M%=V_%:ȕ!M%<>i%:M%=!M%:�M%=0��W("EIN2")
'
�:�Ky(M%)
(�:i%=A%
)	�:�:�
	5:
	6:
	7:
	8:
	9:
�
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 08 ee 85 f2 59 0d  00 04 de f2 6c 79 28 32  |......Y.....ly(2|
00000050  30 2c 31 32 29 3a 65 79  25 3d 2d 32 3a 43 5f 25  |0,12):ey%=-2:C_%|
00000060  3d a3 3a 64 79 25 3d a3  3a f2 53 28 22 3c 42 61  |=.:dy%=.:.S("<Ba|
00000070  73 69 63 56 24 4c 69 62  3e 2e 43 41 73 6d 22 2c  |sicV$Lib>.CAsm",|
00000080  31 29 3a f2 53 28 22 3c  42 61 73 69 63 56 24 4c  |1):.S("<BasicV$L|
00000090  69 62 3e 2e 54 65 6d 70  6c 61 74 65 22 2c 31 32  |ib>.Template",12|
000000a0  29 3a 78 4a 25 3d 43 5f  25 3a 5a 79 25 3d b9 3a  |):xJ%=C_%:Zy%=.:|
000000b0  6a 5f 25 3d 31 35 3a 4c  4a 25 3d b9 3a 65 75 25  |j_%=15:LJ%=.:eu%|
000000c0  3d 30 3a 6b 25 3d 31 3a  78 25 3d 32 3a 43 79 25  |=0:k%=1:x%=2:Cy%|
000000d0  3d 33 3a 6c 79 25 3d 34  3a 79 25 3d 35 3a 74 4a  |=3:ly%=4:y%=5:tJ|
000000e0  25 3d 36 3a 53 75 25 3d  37 3a 6f 4a 25 3d 30 3a  |%=6:Su%=7:oJ%=0:|
000000f0  4d 79 25 3d 31 3a 66 79  25 3d 32 3a 4c 75 25 3d  |My%=1:fy%=2:Lu%=|
00000100  33 3a 48 4a 25 3d 34 3a  4a 4a 25 3d 30 3a 71 4a  |3:HJ%=4:JJ%=0:qJ|
00000110  25 3d 31 3a 51 4a 25 3d  32 3a 6c 5f 25 3d 33 3a  |%=1:QJ%=2:l_%=3:|
00000120  66 5f 25 3d 34 0d 00 05  99 63 5f 25 3d 35 3a 4f  |f_%=4....c_%=5:O|
00000130  4a 25 3d 36 3a 6b 5f 25  3d 30 3a 7a 4a 25 3d 31  |J%=6:k_%=0:zJ%=1|
00000140  3a 59 4a 25 3d 32 3a 47  79 25 3d 33 3a 55 5f 25  |:YJ%=2:Gy%=3:U_%|
00000150  3d 34 3a 71 5f 25 3d 35  3a 6d 5f 25 3d 36 3a 55  |=4:q_%=5:m_%=6:U|
00000160  6c 25 3d 30 3a 73 4a 25  3d 31 3a 63 4a 25 3d 32  |l%=0:sJ%=1:cJ%=2|
00000170  3a 4b 4a 25 3d 33 3a 4d  4a 25 3d 34 3a 65 4a 25  |:KJ%=3:MJ%=4:eJ%|
00000180  3d 35 3a 41 4a 25 3d 36  3a 62 5f 25 3d 30 3a 69  |=5:AJ%=6:b_%=0:i|
00000190  5f 25 3d 31 3a 44 4a 25  3d 32 3a 55 4a 25 3d 30  |_%=1:DJ%=2:UJ%=0|
000001a0  3a 51 79 25 3d 31 3a 50  75 25 3d 32 3a 77 4a 25  |:Qy%=1:Pu%=2:wJ%|
000001b0  3d 30 3a 51 5f 25 3d 31  3a 70 4a 25 3d 32 0d 00  |=0:Q_%=1:pJ%=2..|
000001c0  06 dd f2 45 5f 28 22 73  74 64 69 6f 2c 20 73 74  |...E_("stdio, st|
000001d0  64 6c 69 62 2c 20 73 74  72 69 6e 67 2c 20 6d 65  |dlib, string, me|
000001e0  73 73 61 67 65 2c 20 77  69 6d 70 22 29 3a f2 71  |ssage, wimp"):.q|
000001f0  5f 28 32 30 30 30 2c a3  2c a3 29 3a f2 53 28 22  |_(2000,.,.):.S("|
00000200  3c 42 61 73 69 63 56 24  4c 69 62 3e 2e 46 69 6c  |<BasicV$Lib>.Fil|
00000210  65 54 79 70 65 22 2c 31  29 3a f2 53 28 22 3c 42  |eType",1):.S("<B|
00000220  61 73 69 63 56 24 4c 69  62 3e 2e 49 6e 74 4d 61  |asicV$Lib>.IntMa|
00000230  74 68 22 2c 34 29 3a f2  53 28 22 3c 42 61 73 69  |th",4):.S("<Basi|
00000240  63 56 24 4c 69 62 3e 2e  4d 6f 64 65 49 6e 66 6f  |cV$Lib>.ModeInfo|
00000250  22 2c 31 29 3a f2 53 28  22 3c 42 61 73 69 63 56  |",1):.S("<BasicV|
00000260  24 4c 69 62 3e 2e 57 69  6d 70 22 2c 33 35 29 3a  |$Lib>.Wimp",35):|
00000270  70 25 3d a4 60 28 22 3c  42 61 73 43 6f 6d 70 72  |p%=.`("<BasCompr|
00000280  65 73 73 46 45 24 44 69  72 3e 22 2c 2d 31 2c 7a  |essFE$Dir>",-1,z|
00000290  5f 25 29 3a e7 7a 5f 25  3e 30 8c 0d 00 07 40 85  |_%):.z_%>0....@.|
000002a0  21 70 25 2c 22 42 61 73  43 6f 6d 70 72 65 73 73  |!p%,"BasCompress|
000002b0  46 45 20 63 61 6e 27 74  20 6c 6f 61 64 20 69 74  |FE can't load it|
000002c0  73 27 20 6d 65 73 73 61  67 65 20 66 69 6c 65 3a  |s' message file:|
000002d0  20 22 2b a4 4c 28 70 25  2b 34 29 0d 00 08 b2 cd  | "+.L(p%+4).....|
000002e0  3a 75 79 25 3d 33 3a 44  79 25 3d 32 33 3a 48 6c  |:uy%=3:Dy%=23:Hl|
000002f0  25 3d 38 3a 77 25 3d 34  3a 4d 75 25 3d 30 3a 6f  |%=8:w%=4:Mu%=0:o|
00000300  79 25 3d 31 3a 6c 4a 25  3d 33 3a 6b 79 25 3d 34  |y%=1:lJ%=3:ky%=4|
00000310  3a 71 75 25 3d 36 3a 6e  79 25 3d 37 3a 6d 75 25  |:qu%=6:ny%=7:mu%|
00000320  3d 39 3a 4f 5f 25 3d 31  30 3a 49 4a 25 3d 30 3a  |=9:O_%=10:IJ%=0:|
00000330  60 5f 25 3d 31 3a 72 4a  25 3d 32 3a 66 4a 25 3d  |`_%=1:rJ%=2:fJ%=|
00000340  33 3a 43 4a 25 3d 34 3a  5a 4a 25 3d 35 3a 69 4a  |3:CJ%=4:ZJ%=5:iJ|
00000350  25 3d 37 3a 54 75 25 3d  38 3a 6d 4a 25 3d 39 3a  |%=7:Tu%=8:mJ%=9:|
00000360  67 75 25 3d 31 30 3a 58  75 25 3d 31 31 3a 78 3d  |gu%=10:Xu%=11:x=|
00000370  30 3a 7a 3d 31 3a 78 79  3d 32 3a 49 79 3d 33 3a  |0:z=1:xy=2:Iy=3:|
00000380  68 79 3d 34 3a 56 79 3d  34 3a 4d 3d 38 0d 00 09  |hy=4:Vy=4:M=8...|
00000390  a0 4a 3d 2d 31 3a 49 3d  30 3a 72 79 3d 31 3a 46  |.J=-1:I=0:ry=1:F|
000003a0  5f 3d 32 3a 47 3d 31 3a  4e 3d 32 3a 57 3d 33 3a  |_=2:G=1:N=2:W=3:|
000003b0  72 3d 34 3a 70 3d 30 3a  48 79 3d 31 31 3a 77 79  |r=4:p=0:Hy=11:wy|
000003c0  3d 32 32 3a 6a 24 3d 22  22 3a 66 24 3d 22 22 3a  |=22:j$="":f$="":|
000003d0  48 5f 25 3d 30 3a 58 5f  25 3d 30 3a de 4d 25 28  |H_%=0:X_%=0:.M%(|
000003e0  77 25 29 3a de 53 25 28  77 25 29 3a de 5a 25 28  |w%):.S%(w%):.Z%(|
000003f0  77 25 29 3a 77 5f 25 3d  2d 31 3a 72 5f 25 3d 2d  |w%):w_%=-1:r_%=-|
00000400  31 3a 74 24 3d 22 22 3a  5a 3d 47 3a 75 5f 25 3d  |1:t$="":Z=G:u_%=|
00000410  2d 31 3a 59 3d 70 3a 4c  6c 25 3d a3 3a 53 5f 25  |-1:Y=p:Ll%=.:S_%|
00000420  3d a3 3a 6c 25 3d b9 3a  76 5f 25 3d a3 0d 00 0a  |=.:l%=.:v_%=....|
00000430  71 44 24 3d 22 26 35 30  32 2c 31 2c 32 2c 33 2c  |qD$="&502,1,2,3,|
00000440  26 34 30 30 43 30 2c 26  34 30 30 43 31 2c 38 2c  |&400C0,&400C1,8,|
00000450  26 34 30 30 43 43 2c 31  30 22 3a f2 48 79 28 22  |&400CC,10":.Hy("|
00000460  42 61 73 43 6f 6d 70 72  65 73 73 46 45 22 2c 31  |BasCompressFE",1|
00000470  2c 34 30 2c 31 37 2c 37  2c 31 39 39 34 29 3a 64  |,40,17,7,1994):d|
00000480  79 25 3d 43 5f 25 3a f2  4c 5f 3a d6 5f 79 3a d6  |y%=C_%:.L_:._y:.|
00000490  5f 79 3a f2 67 3a e7 a4  5a 79 28 54 25 29 0d 00  |_y:.g:..Zy(T%)..|
000004a0  0b 08 ee 85 f2 59 0d 00  0c 11 f2 52 5f 3a f5 f2  |.....Y.....R_:..|
000004b0  43 5f 3a fd a3 3a e0 0d  00 0d 13 dd f2 78 ea 57  |C_:..:.......x.W|
000004c0  5f 2c 4c 3a e7 53 25 80  32 8c 0d 00 0e 3f 4d 25  |_,L:.S%.2....?M%|
000004d0  3d 50 25 3a 42 75 25 3d  53 25 3a 4f 25 3d 50 25  |=P%:Bu%=S%:O%=P%|
000004e0  3a 50 25 3d 30 3a 53 25  3d 53 25 84 34 3a 5b 4f  |:P%=0:S%=S%.4:[O|
000004f0  50 54 53 25 3a 41 4c 49  47 4e 3a 5d 3a 50 25 3d  |PTS%:ALIGN:]:P%=|
00000500  4d 25 3a 53 25 3d 42 75  25 0d 00 0f 98 cd 3a 5b  |M%:S%=Bu%.....:[|
00000510  4f 50 54 53 25 3a 41 4c  49 47 4e 3a 2e 44 3a 2e  |OPTS%:ALIGN:.D:.|
00000520  51 79 20 44 43 44 30 3a  2e 47 79 20 44 43 44 30  |Qy DCD0:.Gy DCD0|
00000530  3a 2e 69 20 44 43 44 30  3a 2e 50 20 44 43 44 30  |:.i DCD0:.P DCD0|
00000540  3a 44 43 44 30 3a 2e 55  79 20 44 43 44 30 3a 44  |:DCD0:.Uy DCD0:D|
00000550  43 44 30 3a 2e 6e 20 44  43 44 30 3a 2e 4a 79 20  |CD0:.n DCD0:.Jy |
00000560  44 43 44 30 3a 2e 45 79  20 44 43 44 30 3a 2e 46  |DCD0:.Ey DCD0:.F|
00000570  79 20 44 43 44 30 3a 2e  43 79 20 44 43 44 30 3a  |y DCD0:.Cy DCD0:|
00000580  44 43 44 30 3a 44 43 44  30 3a 44 43 44 30 3a 44  |DCD0:DCD0:DCD0:D|
00000590  43 44 30 3a 44 43 44 30  3a 2e 50 79 20 44 43 44  |CD0:DCD0:.Py DCD|
000005a0  30 0d 00 10 ee 2e 67 20  44 43 44 30 3a 44 43 44  |0.....g DCD0:DCD|
000005b0  30 3a 2e 53 79 20 44 43  44 30 3a 2e 41 79 20 44  |0:.Sy DCD0:.Ay D|
000005c0  43 44 30 3a 2e 75 20 44  43 44 30 3a 2e 63 20 44  |CD0:.u DCD0:.c D|
000005d0  43 44 30 3a 2e 68 20 44  43 44 30 3a 2e 76 20 44  |CD0:.h DCD0:.v D|
000005e0  43 44 30 3a 2e 62 20 44  43 44 30 3a 2e 58 79 20  |CD0:.b DCD0:.Xy |
000005f0  44 43 44 30 3a 2e 74 20  44 43 44 30 3a 2e 6c 20  |DCD0:.t DCD0:.l |
00000600  44 43 44 30 3a 2e 66 20  44 43 44 30 3a 44 43 44  |DCD0:.f DCD0:DCD|
00000610  30 3a 44 43 44 30 3a 44  43 44 30 3a 44 43 44 30  |0:DCD0:DCD0:DCD0|
00000620  3a 44 43 44 30 3a 2e 6d  20 44 43 44 30 3a 2e 4d  |:DCD0:.m DCD0:.M|
00000630  79 20 44 43 44 30 3a 44  43 44 30 3a 2e 6f 20 44  |y DCD0:DCD0:.o D|
00000640  43 44 30 3a 2e 65 20 44  43 44 30 3a 2e 56 20 44  |CD0:.e DCD0:.V D|
00000650  43 44 30 3a 2e 71 20 44  43 44 30 3a 2e 77 20 44  |CD0:.q DCD0:.w D|
00000660  43 44 30 3a 2e 4f 20 44  43 44 30 3a 2e 71 79 3a  |CD0:.O DCD0:.qy:|
00000670  41 4c 49 47 4e 3a 2e 79  79 3a a4 45 28 6b 25 2c  |ALIGN:.yy:.E(k%,|
00000680  4a 4a 25 29 3a a4 45 28  6b 25 2c 71 4a 25 29 0d  |JJ%):.E(k%,qJ%).|
00000690  00 11 f4 a4 45 28 6b 25  2c 51 4a 25 29 3a a4 45  |....E(k%,QJ%):.E|
000006a0  28 6b 25 2c 6c 5f 25 29  3a a4 73 28 6b 25 2c 66  |(k%,l_%):.s(k%,f|
000006b0  5f 25 29 3a a4 45 28 6b  25 2c 66 5f 25 29 3a a4  |_%):.E(k%,f_%):.|
000006c0  73 28 6b 25 2c 63 5f 25  29 3a a4 45 28 6b 25 2c  |s(k%,c_%):.E(k%,|
000006d0  63 5f 25 29 3a a4 45 28  6b 25 2c 4f 4a 25 29 3a  |c_%):.E(k%,OJ%):|
000006e0  a4 45 28 78 25 2c 7a 4a  25 29 3a a4 45 28 78 25  |.E(x%,zJ%):.E(x%|
000006f0  2c 59 4a 25 29 3a a4 46  28 78 25 2c 47 79 25 2c  |,YJ%):.F(x%,Gy%,|
00000700  30 29 3a a4 46 28 78 25  2c 47 79 25 2c 31 29 3a  |0):.F(x%,Gy%,1):|
00000710  a4 46 28 78 25 2c 47 79  25 2c 32 29 3a a4 46 28  |.F(x%,Gy%,2):.F(|
00000720  78 25 2c 47 79 25 2c 33  29 3a a4 46 28 78 25 2c  |x%,Gy%,3):.F(x%,|
00000730  47 79 25 2c 34 29 3a a4  46 28 78 25 2c 47 79 25  |Gy%,4):.F(x%,Gy%|
00000740  2c 35 29 3a a4 46 28 78  25 2c 47 79 25 2c 6d 5f  |,5):.F(x%,Gy%,m_|
00000750  25 29 3a a4 46 28 78 25  2c 55 5f 25 2c 30 29 3a  |%):.F(x%,U_%,0):|
00000760  a4 46 28 78 25 2c 55 5f  25 2c 31 29 3a a4 45 28  |.F(x%,U_%,1):.E(|
00000770  78 25 2c 71 5f 25 29 3a  a4 45 28 43 79 25 2c 73  |x%,q_%):.E(Cy%,s|
00000780  4a 25 29 0d 00 12 cc a4  45 28 43 79 25 2c 63 4a  |J%).....E(Cy%,cJ|
00000790  25 29 3a a4 45 28 43 79  25 2c 4b 4a 25 29 3a a4  |%):.E(Cy%,KJ%):.|
000007a0  45 28 43 79 25 2c 4d 4a  25 29 3a a4 45 28 43 79  |E(Cy%,MJ%):.E(Cy|
000007b0  25 2c 65 4a 25 29 3a a4  45 28 43 79 25 2c 41 4a  |%,eJ%):.E(Cy%,AJ|
000007c0  25 29 3a a4 45 28 6c 79  25 2c 62 5f 25 29 3a a4  |%):.E(ly%,b_%):.|
000007d0  45 28 6c 79 25 2c 69 5f  25 29 3a a4 59 28 79 25  |E(ly%,i_%):.Y(y%|
000007e0  2c 4d 79 25 2c 55 4a 25  29 3a a4 4a 28 79 25 2c  |,My%,UJ%):.J(y%,|
000007f0  4d 79 25 2c 51 79 25 2c  30 29 3a a4 4a 28 79 25  |My%,Qy%,0):.J(y%|
00000800  2c 4d 79 25 2c 51 79 25  2c 31 29 3a a4 4a 28 79  |,My%,Qy%,1):.J(y|
00000810  25 2c 4d 79 25 2c 51 79  25 2c 32 29 3a a4 4a 28  |%,My%,Qy%,2):.J(|
00000820  79 25 2c 4d 79 25 2c 51  79 25 2c 33 29 3a a4 4a  |y%,My%,Qy%,3):.J|
00000830  28 79 25 2c 4d 79 25 2c  51 79 25 2c 34 29 3a a4  |(y%,My%,Qy%,4):.|
00000840  4a 28 79 25 2c 4d 79 25  2c 51 79 25 2c 35 29 0d  |J(y%,My%,Qy%,5).|
00000850  00 13 6f a4 59 28 79 25  2c 66 79 25 2c 77 4a 25  |..o.Y(y%,fy%,wJ%|
00000860  29 3a a4 4a 28 79 25 2c  66 79 25 2c 51 5f 25 2c  |):.J(y%,fy%,Q_%,|
00000870  30 29 3a a4 4a 28 79 25  2c 66 79 25 2c 51 5f 25  |0):.J(y%,fy%,Q_%|
00000880  2c 31 29 3a a4 45 28 79  25 2c 48 4a 25 29 3a 44  |,1):.E(y%,HJ%):D|
00000890  43 42 32 30 33 3a 2e 57  5f 3a 45 51 55 53 22 5b  |CB203:.W_:EQUS"[|
000008a0  30 2c 77 3e 2c 6d 3e 2c  6d 3e 2c 6d 3e 2c 6d 3e  |0,w>,m>,m>,m>,m>|
000008b0  2c 6d 3e 2c 64 3e 2c 3e  22 3a 44 43 42 30 0d 00  |,m>,d>,>":DCB0..|
000008c0  14 f6 45 51 55 53 22 5b  31 30 30 2c 3e 2c 3e 2c  |..EQUS"[100,>,>,|
000008d0  3e 2c 3e 2c 3e 2c 64 3e  2c 3e 22 3a 44 43 42 30  |>,>,>,d>,>":DCB0|
000008e0  3a 45 51 55 53 22 5b 32  30 30 2c 77 3e 2c 3e 2c  |:EQUS"[200,w>,>,|
000008f0  3e 2c 6d 3e 2c 6d 3e 2c  6d 3e 22 3a 44 43 42 30  |>,m>,m>,m>":DCB0|
00000900  3a 45 51 55 53 22 5b 33  30 30 2c 3e 2c 3e 2c 3e  |:EQUS"[300,>,>,>|
00000910  2c 3e 2c 3e 2c 3e 2c 3e  22 3a 44 43 42 30 3a 45  |,>,>,>,>":DCB0:E|
00000920  51 55 53 22 5b 34 30 30  2c 3e 2c 3e 22 3a 44 43  |QUS"[400,>,>":DC|
00000930  42 30 3a 45 51 55 53 22  5b 32 35 30 2c 69 34 22  |B0:EQUS"[250,i4"|
00000940  3a 44 43 42 30 3a 45 51  55 53 22 5b 35 30 30 2c  |:DCB0:EQUS"[500,|
00000950  77 3e 2c 3e 2c 3e 2c 3e  2c 3e 2c 3e 2c 3e 22 3a  |w>,>,>,>,>,>,>":|
00000960  44 43 42 30 3a 45 51 55  53 22 5b 36 30 30 2c 3e  |DCB0:EQUS"[600,>|
00000970  2c 3e 2c 69 32 35 36 22  3a 44 43 42 30 3a 45 51  |,>,i256":DCB0:EQ|
00000980  55 53 22 5b 37 30 30 2c  77 3e 2c 6d 3e 2c 6d 3e  |US"[700,w>,m>,m>|
00000990  2c 77 3e 2c 3e 22 3a 44  43 42 30 3a 45 51 55 53  |,w>,>":DCB0:EQUS|
000009a0  22 5b 38 30 30 2c 6d 3e  2c 6d 3e 2c 77 3e 22 3a  |"[800,m>,m>,w>":|
000009b0  44 43 42 30 0d 00 15 c8  45 51 55 53 22 5b 39 30  |DCB0....EQUS"[90|
000009c0  30 2c 3e 2c 3e 2c 3e 2c  3e 2c 3e 22 3a 44 43 42  |0,>,>,>,>,>":DCB|
000009d0  30 3a 45 51 55 53 22 5b  33 30 30 2c 3e 2c 3e 2c  |0:EQUS"[300,>,>,|
000009e0  3e 2c 3e 2c 3e 2c 3e 22  3a 44 43 42 30 3a 45 51  |>,>,>,>":DCB0:EQ|
000009f0  55 53 22 5b 31 30 30 30  2c 6d 3e 2c 6d 3e 2c 77  |US"[1000,m>,m>,w|
00000a00  3e 22 3a 44 43 42 30 3a  45 51 55 53 22 5b 39 30  |>":DCB0:EQUS"[90|
00000a10  30 2c 3e 2c 3e 2c 3e 2c  3e 2c 3e 22 3a 44 43 42  |0,>,>,>,>,>":DCB|
00000a20  30 3a 45 51 55 53 22 5b  34 30 30 2c 3e 2c 3e 22  |0:EQUS"[400,>,>"|
00000a30  3a 44 43 42 30 3a 41 4c  49 47 4e 3a 2e 4c 20 44  |:DCB0:ALIGN:.L D|
00000a40  43 44 30 3a 44 43 44 30  3a 44 43 44 30 3a 2e 6a  |CD0:DCD0:DCD0:.j|
00000a50  79 20 45 51 55 53 22 41  30 2d 39 3b 22 3a 2e 44  |y EQUS"A0-9;":.D|
00000a60  79 20 45 51 55 53 22 50  70 74 72 5f 77 72 69 74  |y EQUS"Pptr_writ|
00000a70  65 22 2b bd 30 3a 2e 5f  79 3a a4 58 0d 00 16 98  |e"+.0:._y:.X....|
00000a80  53 54 4d 46 44 28 41 29  21 2c 7b 34 2d 39 2c 45  |STMFD(A)!,{4-9,E|
00000a90  7d 3a 41 44 52 31 2c 4c  2b 34 3a a4 6b 28 22 22  |}:ADR1,L+4:.k(""|
00000aa0  2c 30 2c 57 5f 29 3a 42  4c 20 64 79 3a 4c 44 4d  |,0,W_):BL dy:LDM|
00000ab0  76 73 46 44 28 41 29 21  2c 7b 34 2d 39 2c 70 63  |vsFD(A)!,{4-9,pc|
00000ac0  7d 3a 53 54 52 30 2c 4c  3a 41 44 52 32 2c 44 79  |}:STR0,L:ADR2,Dy|
00000ad0  3a 4c 44 52 31 2c 5b 30  2c 23 a4 55 28 78 25 29  |:LDR1,[0,#.U(x%)|
00000ae0  2b 34 5d 3a 4c 44 52 31  2c 5b 31 2c 23 a4 55 28  |+4]:LDR1,[1,#.U(|
00000af0  71 5f 25 29 2b 34 5d 3a  41 44 52 32 2c 6a 79 3a  |q_%)+4]:ADR2,jy:|
00000b00  53 54 52 32 2c 5b 31 2c  23 a4 55 28 30 29 2b 31  |STR2,[1,#.U(0)+1|
00000b10  32 2b 34 5d 0d 00 17 a2  4c 44 52 31 2c 5b 30 2c  |2+4]....LDR1,[0,|
00000b20  23 a4 55 28 6c 79 25 29  2b 34 5d 3a 41 44 52 32  |#.U(ly%)+4]:ADR2|
00000b30  2c 44 79 3a 53 54 52 32  2c 5b 31 2c 23 a4 55 28  |,Dy:STR2,[1,#.U(|
00000b40  44 4a 25 29 2b 31 32 2b  34 5d 3a 41 44 52 30 2c  |DJ%)+12+4]:ADR0,|
00000b50  4c 3a 4c 44 4d 46 44 28  41 29 21 2c 7b 34 2d 39  |L:LDMFD(A)!,{4-9|
00000b60  2c 70 63 7d 3a 2e 45 5f  3a 53 54 4d 46 44 28 41  |,pc}:.E_:STMFD(A|
00000b70  29 21 2c 7b 45 7d 3a 41  44 52 30 2c 79 79 3a 41  |)!,{E}:ADR0,yy:A|
00000b80  44 52 31 2c 44 3a 4c 44  52 32 2c 4c 3a 42 4c 20  |DR1,D:LDR2,L:BL |
00000b90  63 79 3a 41 44 52 76 63  30 2c 4c 3a 4c 44 4d 46  |cy:ADRvc0,L:LDMF|
00000ba0  44 28 41 29 21 2c 7b 70  63 7d 3a 5d 3a f2 6a 79  |D(A)!,{pc}:]:.jy|
00000bb0  3a f2 51 5f 3a e1 0d 00  18 08 dd f2 6a e1 0d 00  |:.Q_:.......j...|
00000bc0  19 5d dd f2 75 79 3a 4b  25 3d a4 54 28 22 4f 72  |.]..uy:K%=.T("Or|
00000bd0  64 65 72 22 2c 66 25 29  3a 54 25 3d a4 4f 28 22  |der",f%):T%=.O("|
00000be0  43 6f 6e 74 72 6f 6c 22  2c 30 2c 2b 31 29 3a 65  |Control",0,+1):e|
00000bf0  25 3d a4 54 28 22 53 61  76 65 41 73 22 2c 2b 31  |%=.T("SaveAs",+1|
00000c00  29 3a 58 25 3d a4 54 28  22 43 68 6f 69 63 65 73  |):X%=.T("Choices|
00000c10  22 2c 66 25 29 3a f2 68  79 3a e1 0d 00 1a 1d dd  |",f%):.hy:......|
00000c20  f2 6f 79 28 51 25 2c 56  25 2c 49 25 2c 46 25 29  |.oy(Q%,V%,I%,F%)|
00000c30  e7 28 49 25 80 31 29 8c  0d 00 1b 0d e7 ac a4 5a  |.(I%.1)........Z|
00000c40  28 74 24 29 8c 0d 00 1c  0d 51 25 3d a4 76 28 74  |(t$).....Q%=.v(t|
00000c50  24 29 0d 00 1d 05 cd 0d  00 1e 1e cc c8 99 26 34  |$)............&4|
00000c60  36 35 63 36 2c 59 25 2c  54 25 3a f2 48 5f 28 54  |65c6,Y%,T%:.H_(T|
00000c70  25 2c 2d 31 29 0d 00 1f  07 cd 3a e1 0d 00 20 16  |%,-1).....:... .|
00000c80  dd f2 72 79 c8 99 26 34  30 30 63 35 2c 2c 57 25  |..ry..&400c5,,W%|
00000c90  3a e1 0d 00 21 16 dd f2  73 79 c8 99 26 34 30 30  |:...!...sy..&400|
00000ca0  63 36 2c 2c 57 25 3a e1  0d 00 22 2a dd f2 54 5f  |c6,,W%:..."*..T_|
00000cb0  ea 47 4a 25 3a ea 85 3a  c8 99 26 36 30 36 63 30  |.GJ%:..:..&606c0|
00000cc0  3a ee 85 ea f7 85 3a c8  99 26 36 30 36 63 31 3a  |:.....:..&606c1:|
00000cd0  f2 4c 0d 00 23 3b c8 99  26 34 30 30 63 38 2c 2c  |.L..#;..&400c8,,|
00000ce0  57 25 b8 47 4a 25 3a c8  95 47 4a 25 3a c8 99 26  |W%.GJ%:..GJ%:..&|
00000cf0  34 30 30 63 61 2c 2c 57  25 b8 47 4a 25 3a ce 3a  |400ca,,W%.GJ%:.:|
00000d00  f7 85 3a c8 99 26 36 30  36 63 31 3a e1 0d 00 24  |..:..&606c1:...$|
00000d10  30 dd f2 73 5f ea 55 25  2c 46 25 2c 67 25 3a 55  |0..s_.U%,F%,g%:U|
00000d20  25 3d 57 25 21 30 3a 46  25 3d 57 25 21 34 3a 67  |%=W%!0:F%=W%!4:g|
00000d30  25 3d 57 25 21 32 34 3a  c8 8e 55 25 ca 0d 00 25  |%=W%!24:..U%...%|
00000d40  12 c9 65 25 3a f2 4a 5f  28 46 25 2c 67 25 29 0d  |..e%:.J_(F%,g%).|
00000d50  00 26 12 c9 54 25 3a f2  42 79 28 46 25 2c 67 25  |.&..T%:.By(F%,g%|
00000d60  29 0d 00 27 12 c9 58 25  3a f2 78 5f 28 46 25 2c  |)..'..X%:.x_(F%,|
00000d70  67 25 29 0d 00 28 10 7f  c8 99 26 34 30 30 64 63  |g%)..(....&400dc|
00000d80  2c 67 25 0d 00 29 07 cb  3a e1 0d 00 2a 0b dd f2  |,g%..)..:...*...|
00000d90  6d f2 46 3a e1 0d 00 2b  39 dd f2 4f 79 ea 5a 24  |m.F:...+9..Oy.Z$|
00000da0  2c 55 25 2c 46 25 2c 41  25 2c 45 25 2c 57 79 25  |,U%,F%,A%,E%,Wy%|
00000db0  3a 5a 24 3d 22 22 3a 55  25 3d 57 25 21 33 32 3a  |:Z$="":U%=W%!32:|
00000dc0  46 25 3d 57 25 21 33 36  3a c8 8e 55 25 ca 0d 00  |F%=W%!36:..U%...|
00000dd0  2c 10 c9 2d 32 3a e7 46  25 3d 5f 4a 25 8c 0d 00  |,..-2:.F%=_J%...|
00000de0  2d 10 5a 24 3d 22 49 63  6f 6e 42 61 72 22 0d 00  |-.Z$="IconBar"..|
00000df0  2e 0a cc 5a 24 3d a4 62  0d 00 2f 05 cd 0d 00 30  |...Z$=.b../....0|
00000e00  15 c9 75 25 3a 5a 24 3d  22 50 72 6f 67 49 6e 66  |..u%:Z$="ProgInf|
00000e10  6f 22 0d 00 31 1b c9 4b  25 3a 5a 24 3d 22 4f 72  |o"..1..K%:Z$="Or|
00000e20  64 65 72 22 3a e7 a4 65  28 46 25 29 8c 0d 00 32  |der":..e(F%)...2|
00000e30  19 f2 6b 28 46 25 2c 45  25 2c 57 79 25 29 3a e7  |..k(F%,E%,Wy%):.|
00000e40  57 79 25 3d 4d 8c 0d 00  33 0c 5a 24 2b 3d 22 2c  |Wy%=M...3.Z$+=",|
00000e50  52 22 0d 00 34 1a cc 5a  24 2b 3d 22 2c 22 2b bd  |R"..4..Z$+=","+.|
00000e60  28 97 28 22 41 22 29 2b  57 79 25 29 0d 00 35 05  |(.("A")+Wy%)..5.|
00000e70  cd 0d 00 36 0d cc 5a 24  2b 3d 22 2c 5f 22 0d 00  |...6..Z$+=",_"..|
00000e80  37 05 cd 0d 00 38 1c c9  54 25 3a 5a 24 3d 22 43  |7....8..T%:Z$="C|
00000e90  6f 6e 74 72 6f 6c 22 3a  e7 46 25 3d 2d 31 8c 0d  |ontrol":.F%=-1..|
00000ea0  00 39 0c 5a 24 2b 3d 22  2c 5f 22 0d 00 3a 12 cc  |.9.Z$+=",_"..:..|
00000eb0  5a 24 2b 3d 22 2c 22 2b  c3 28 46 25 29 0d 00 3b  |Z$+=","+.(F%)..;|
00000ec0  05 cd 0d 00 3c 22 c9 58  25 3a 5a 24 3d 22 43 68  |....<".X%:Z$="Ch|
00000ed0  6f 69 63 65 73 22 3a 5a  24 2b 3d 22 2c 22 2b c3  |oices":Z$+=","+.|
00000ee0  28 46 25 29 0d 00 3d 26  c9 65 25 3a f2 6c 28 22  |(F%)..=&.e%:.l("|
00000ef0  53 61 76 65 41 73 54 79  70 65 22 2c 5a 29 3a 5a  |SaveAsType",Z):Z|
00000f00  24 3d 22 53 61 76 65 41  73 22 0d 00 3e 1c 7f e7  |$="SaveAs"..>...|
00000f10  28 50 5f 25 3e 32 31 38  29 80 28 57 25 21 33 36  |(P_%>218).(W%!36|
00000f20  3c 3e 2d 31 29 8c 0d 00  3f 09 5a 24 3d a4 62 0d  |<>-1)...?.Z$=.b.|
00000f30  00 40 05 cd 0d 00 41 0e  cb 3a e7 5a 24 3c 3e 22  |.@....A..:.Z$<>"|
00000f40  22 8c 0d 00 42 1c f2 6f  28 22 48 22 2b 5a 24 2c  |"...B..o("H"+Z$,|
00000f50  57 25 2b 32 30 29 3a e7  57 25 3f 32 30 8c 0d 00  |W%+20):.W%?20...|
00000f60  43 4e 57 25 21 31 36 3d  31 32 38 33 3a 57 25 21  |CNW%!16=1283:W%!|
00000f70  31 32 3d 57 25 21 38 3a  41 25 3d 57 25 2b 32 30  |12=W%!8:A%=W%+20|
00000f80  3a c8 95 3f 41 25 3a 41  25 2b 3d 31 3a ce 3a e7  |:..?A%:A%+=1:.:.|
00000f90  41 25 3e 3d 28 57 25 2b  32 35 36 29 8c 41 25 3d  |A%>=(W%+256).A%=|
00000fa0  57 25 2b 32 35 35 3a 3f  41 25 3d 30 0d 00 44 29  |W%+255:?A%=0..D)|
00000fb0  57 25 21 30 3d 28 41 25  2d 57 25 2b 34 29 80 2d  |W%!0=(A%-W%+4).-|
00000fc0  34 3a c8 99 26 34 30 30  65 37 2c 31 37 2c 57 25  |4:..&400e7,17,W%|
00000fd0  2c 57 25 21 34 0d 00 45  05 cd 0d 00 46 07 cd 3a  |,W%!4..E....F..:|
00000fe0  e1 0d 00 47 37 dd a4 62  ea 5a 24 2c 44 25 3a 44  |...G7..b.Z$,D%:D|
00000ff0  25 3d 57 25 2b 34 30 3a  c8 99 26 34 30 30 66 34  |%=W%+40:..&400f4|
00001000  2c 31 2c 44 25 2c 57 25  21 33 32 2c 57 25 21 33  |,1,D%,W%!32,W%!3|
00001010  36 3a c8 8e 52 79 25 ca  0d 00 48 0f c9 73 79 25  |6:..Ry%...H..sy%|
00001020  3a 5a 24 3d 22 49 22 0d  00 49 0e cb 3a e7 5a 24  |:Z$="I"..I..:.Z$|
00001030  3c 3e 22 22 8c 0d 00 4a  37 5a 24 3d 22 4d 22 2b  |<>""...J7Z$="M"+|
00001040  5a 24 2b c3 28 21 44 25  29 3a c8 95 44 25 21 34  |Z$+.(!D%):..D%!4|
00001050  3c 3e 2d 31 3a 44 25 2b  3d 34 3a 5a 24 2b 3d 22  |<>-1:D%+=4:Z$+="|
00001060  5f 2c 22 2b c3 28 21 44  25 29 3a ce 0d 00 4b 09  |_,"+.(!D%):...K.|
00001070  cd 3a 3d 5a 24 0d 00 4c  20 dd f2 70 f2 62 79 28  |.:=Z$..L ..p.by(|
00001080  2d 31 29 3a c8 99 26 34  36 35 63 32 2c 59 25 3a  |-1):..&465c2,Y%:|
00001090  f2 51 79 3a e1 0d 00 4d  29 dd f2 46 ee 85 f1 22  |.Qy:...M)..F..."|
000010a0  45 72 72 6f 72 20 69 6e  20 65 72 72 6f 72 20 68  |Error in error h|
000010b0  61 6e 64 6c 65 72 3a 20  22 3b f6 24 3a e0 0d 00  |andler: ";.$:...|
000010c0  4e 1c f2 6e 79 3a f2 4b  5f 3a d6 5a 79 3a c8 99  |N..ny:.K_:.Zy:..|
000010d0  26 34 30 30 64 64 3a e0  3a e1 0d 00 4f 4e dd f2  |&400dd:.:...ON..|
000010e0  52 79 ea 51 25 2c 56 25  2c 49 25 2c 44 25 2c 46  |Ry.Q%,V%,I%,D%,F|
000010f0  25 2c 5f 25 2c 57 79 25  3a 51 25 3d 57 25 21 30  |%,_%,Wy%:Q%=W%!0|
00001100  3a 56 25 3d 57 25 21 34  3a 49 25 3d 57 25 21 38  |:V%=W%!4:I%=W%!8|
00001110  3a 44 25 3d 57 25 21 31  32 3a 46 25 3d 57 25 21  |:D%=W%!12:F%=W%!|
00001120  31 36 3a c8 8e 49 25 ca  0d 00 50 0c c9 32 3a c8  |16:..I%...P..2:.|
00001130  8e 44 25 ca 0d 00 51 38  c9 2d 32 3a f2 5f 3a 56  |.D%...Q8.-2:._:V|
00001140  25 3d 39 36 2b 28 34 34  2a 48 75 25 29 2b 28 32  |%=96+(44*Hu%)+(2|
00001150  34 2a 57 75 25 29 3a c8  99 26 34 30 30 64 34 2c  |4*Wu%):..&400d4,|
00001160  2c 63 25 2c 51 25 2d 36  34 2c 56 25 0d 00 52 20  |,c%,Q%-64,V%..R |
00001170  c9 54 25 3a f2 5f 3a c8  99 26 34 30 30 64 34 2c  |.T%:._:..&400d4,|
00001180  2c 63 25 2c 51 25 2d 36  34 2c 56 25 0d 00 53 05  |,c%,Q%-64,V%..S.|
00001190  cb 0d 00 54 14 c9 31 2a  31 36 2c 34 2a 31 36 3a  |...T..1*16,4*16:|
000011a0  c8 8e 44 25 ca 0d 00 55  0d c9 54 25 3a c8 8e 46  |..D%...U..T%:..F|
000011b0  25 ca 0d 00 56 2c c9 6c  4a 25 3a 5a 3d 47 3a f2  |%...V,.lJ%:Z=G:.|
000011c0  61 28 44 25 2c 46 25 2c  49 25 2c 22 46 69 6c 65  |a(D%,F%,I%,"File|
000011d0  4e 61 6d 65 5f 43 6f 6e  74 72 6f 6c 22 29 0d 00  |Name_Control")..|
000011e0  57 2c c9 71 75 25 3a 5a  3d 4e 3a f2 61 28 44 25  |W,.qu%:Z=N:.a(D%|
000011f0  2c 46 25 2c 49 25 2c 22  46 69 6c 65 4e 61 6d 65  |,F%,I%,"FileName|
00001200  5f 43 6f 6e 74 72 6f 6c  22 29 0d 00 58 2c c9 4d  |_Control")..X,.M|
00001210  75 25 3a 5a 3d 57 3a f2  61 28 44 25 2c 46 25 2c  |u%:Z=W:.a(D%,F%,|
00001220  49 25 2c 22 46 69 6c 65  4e 61 6d 65 5f 43 6f 6e  |I%,"FileName_Con|
00001230  74 72 6f 6c 22 29 0d 00  59 05 cb 0d 00 5a 0d c9  |trol")..Y....Z..|
00001240  65 25 3a c8 8e 46 25 ca  0d 00 5b 25 c9 31 3a f2  |e%:..F%...[%.1:.|
00001250  61 28 44 25 2c 46 25 2c  49 25 2c 22 46 69 6c 65  |a(D%,F%,I%,"File|
00001260  4e 61 6d 65 5f 53 61 76  65 41 73 22 29 0d 00 5c  |Name_SaveAs")..\|
00001270  05 cb 0d 00 5d 18 c9 75  25 3a f2 43 79 28 51 25  |....]..u%:.Cy(Q%|
00001280  2c 56 25 2c 49 25 2c 46  25 29 0d 00 5e 05 cb 0d  |,V%,I%,F%)..^...|
00001290  00 5f 0a 7f c8 8e 44 25  ca 0d 00 60 18 c9 2d 32  |._....D%...`..-2|
000012a0  3a f2 6f 79 28 51 25 2c  56 25 2c 49 25 2c 46 25  |:.oy(Q%,V%,I%,F%|
000012b0  29 0d 00 61 19 c9 68 5f  25 3a f2 47 5f 28 51 25  |)..a..h_%:.G_(Q%|
000012c0  2c 56 25 2c 49 25 2c 46  25 29 0d 00 62 18 c9 65  |,V%,I%,F%)..b..e|
000012d0  25 3a f2 47 79 28 51 25  2c 56 25 2c 49 25 2c 46  |%:.Gy(Q%,V%,I%,F|
000012e0  25 29 0d 00 63 18 c9 75  25 3a f2 43 79 28 51 25  |%)..c..u%:.Cy(Q%|
000012f0  2c 56 25 2c 49 25 2c 46  25 29 0d 00 64 18 c9 4b  |,V%,I%,F%)..d..K|
00001300  25 3a f2 4f 5f 28 51 25  2c 56 25 2c 49 25 2c 46  |%:.O_(Q%,V%,I%,F|
00001310  25 29 0d 00 65 18 c9 54  25 3a f2 69 79 28 51 25  |%)..e..T%:.iy(Q%|
00001320  2c 56 25 2c 49 25 2c 46  25 29 0d 00 66 18 c9 58  |,V%,I%,F%)..f..X|
00001330  25 3a f2 50 79 28 51 25  2c 56 25 2c 49 25 2c 46  |%:.Py(Q%,V%,I%,F|
00001340  25 29 0d 00 67 05 cb 0d  00 68 07 cb 3a e1 0d 00  |%)..g....h..:...|
00001350  69 1f dd f2 6b 79 3a 52  79 25 3d a3 3a 73 79 25  |i...ky:Ry%=.:sy%|
00001360  3d 26 31 30 34 30 61 33  31 2b 30 3a e1 0d 00 6a  |=&1040a31+0:...j|
00001370  2d dd f2 5f ea 41 25 3a  48 75 25 3d 38 3a 57 75  |-.._.A%:Hu%=8:Wu|
00001380  25 3d 31 3a 41 25 3d ba  28 45 5f 29 3a 63 25 3d  |%=1:A%=.(E_):c%=|
00001390  21 41 25 3a e7 ac 76 5f  25 8c 0d 00 6b 3c f2 70  |!A%:..v_%...k<.p|
000013a0  79 28 63 25 2c 22 31 2c  32 2c 32 33 2c 32 34 2c  |y(c%,"1,2,23,24,|
000013b0  32 35 2c 33 2c 34 2c 35  2c 35 31 2c 35 31 30 2c  |25,3,4,5,51,510,|
000013c0  35 31 31 2c 35 32 2c 35  32 30 2c 35 32 31 22 29  |511,52,520,521")|
000013d0  3a 76 5f 25 3d b9 0d 00  6c 34 cd 3a 58 5f 25 3d  |:v_%=...l4.:X_%=|
000013e0  41 25 21 34 3a 48 5f 25  3d 41 25 21 38 3a 24 58  |A%!4:H_%=A%!8:$X|
000013f0  5f 25 3d c3 28 42 79 29  3a 24 48 5f 25 3d 48 24  |_%=.(By):$H_%=H$|
00001400  3a 52 79 25 3d 73 79 25  3a e1 0d 00 6d 59 dd f2  |:Ry%=sy%:...mY..|
00001410  71 79 ea 51 25 2c 56 25  2c 52 5f 25 2c 41 79 25  |qy.Q%,V%,R_%,Ay%|
00001420  2c 6f 25 2c 6d 25 3a 51  25 3d 57 25 21 32 34 3a  |,o%,m%:Q%=W%!24:|
00001430  56 25 3d 57 25 21 32 38  3a 52 5f 25 3d 57 25 21  |V%=W%!28:R_%=W%!|
00001440  33 32 3a 41 79 25 3d 57  25 21 33 36 3a 6f 25 3d  |32:Ay%=W%!36:o%=|
00001450  57 25 21 34 30 3a 6d 25  3d 62 79 25 3a c8 8e 52  |W%!40:m%=by%:..R|
00001460  79 25 ca 0d 00 6e 0f c9  73 79 25 3a c8 8e 52 5f  |y%...n..sy%:..R_|
00001470  25 ca 0d 00 6f 1e c9 65  75 25 3a f2 6e 3a c8 99  |%...o..eu%:.n:..|
00001480  26 34 30 30 65 38 2c 2c  75 25 2c 51 25 2c 56 25  |&400e8,,u%,Q%,V%|
00001490  0d 00 70 0e c9 78 25 3a  c8 8e 41 79 25 ca 0d 00  |..p..x%:..Ay%...|
000014a0  71 22 c9 6b 5f 25 3a 5a  3d 57 3a f2 52 3a c8 99  |q".k_%:Z=W:.R:..|
000014b0  26 34 30 30 65 38 2c 2c  65 25 2c 51 25 2c 56 25  |&400e8,,e%,Q%,V%|
000014c0  0d 00 72 05 cb 0d 00 73  0f c9 43 79 25 3a c8 8e  |..r....s..Cy%:..|
000014d0  41 79 25 ca 0d 00 74 22  c9 6b 5f 25 3a 5a 3d 47  |Ay%...t".k_%:Z=G|
000014e0  3a f2 52 3a c8 99 26 34  30 30 65 38 2c 2c 65 25  |:.R:..&400e8,,e%|
000014f0  2c 51 25 2c 56 25 0d 00  75 05 cb 0d 00 76 0e c9  |,Q%,V%..u....v..|
00001500  79 25 3a c8 8e 41 79 25  ca 0d 00 77 22 c9 6f 4a  |y%:..Ay%...w".oJ|
00001510  25 3a 5a 3d 4e 3a f2 52  3a c8 99 26 34 30 30 65  |%:Z=N:.R:..&400e|
00001520  38 2c 2c 65 25 2c 51 25  2c 56 25 0d 00 78 0e c9  |8,,e%,Q%,V%..x..|
00001530  4d 79 25 3a c8 8e 6f 25  ca 0d 00 79 29 c9 50 75  |My%:..o%...y).Pu|
00001540  25 3a 59 3d 48 79 3a f2  64 28 53 25 28 29 29 3a  |%:Y=Hy:.d(S%()):|
00001550  c8 99 26 34 30 30 65 38  2c 2c 4b 25 2c 51 25 2c  |..&400e8,,K%,Q%,|
00001560  56 25 0d 00 7a 05 cb 0d  00 7b 0e c9 66 79 25 3a  |V%..z....{..fy%:|
00001570  c8 8e 6f 25 ca 0d 00 7c  29 c9 70 4a 25 3a 59 3d  |..o%...|).pJ%:Y=|
00001580  77 79 3a f2 64 28 4d 25  28 29 29 3a c8 99 26 34  |wy:.d(M%()):..&4|
00001590  30 30 65 38 2c 2c 4b 25  2c 51 25 2c 56 25 0d 00  |00e8,,K%,Q%,V%..|
000015a0  7d 05 cb 0d 00 7e 28 c9  4c 75 25 3a 59 3d 70 3a  |}....~(.Lu%:Y=p:|
000015b0  f2 64 28 5a 25 28 29 29  3a c8 99 26 34 30 30 65  |.d(Z%()):..&400e|
000015c0  38 2c 2c 4b 25 2c 51 25  2c 56 25 0d 00 7f 05 cb  |8,,K%,Q%,V%.....|
000015d0  0d 00 80 05 cb 0d 00 81  07 cb 3a e1 0d 00 82 92  |..........:.....|
000015e0  dd f2 4d 5f ea 52 5f 25  2c 5a 25 2c 6e 4a 25 2c  |..M_.R_%,Z%,nJ%,|
000015f0  6a 4a 25 2c 4e 75 25 2c  41 79 25 2c 41 25 2c 6f  |jJ%,Nu%,Ay%,A%,o|
00001600  25 3a ea 4e 79 25 3a 5a  25 3d a4 41 28 35 31 32  |%:.Ny%:Z%=.A(512|
00001610  29 3a c8 99 26 34 30 30  63 66 2c 2c 5a 25 3a 6e  |):..&400cf,,Z%:n|
00001620  4a 25 3d 5a 25 21 30 3a  6a 4a 25 3d 5a 25 21 34  |J%=Z%!0:jJ%=Z%!4|
00001630  3a 4e 75 25 3d 5a 25 21  38 3a f2 4d 28 5a 25 2c  |:Nu%=Z%!8:.M(Z%,|
00001640  35 31 32 29 3a 52 5f 25  3d 21 57 25 3a 41 79 25  |512):R_%=!W%:Ay%|
00001650  3d 57 25 21 34 3a 6f 25  3d 57 25 21 38 3a 4e 79  |=W%!4:o%=W%!8:Ny|
00001660  25 3d 57 25 21 31 32 3a  c8 8e 52 79 25 ca 0d 00  |%=W%!12:..Ry%...|
00001670  83 0f c9 73 79 25 3a c8  8e 52 5f 25 ca 0d 00 84  |...sy%:..R_%....|
00001680  0e c9 6b 25 3a c8 8e 41  79 25 ca 0d 00 85 0f c9  |..k%:..Ay%......|
00001690  4a 4a 25 3a f2 45 28 51  79 29 0d 00 86 0f c9 71  |JJ%:.E(Qy).....q|
000016a0  4a 25 3a f2 45 28 47 79  29 0d 00 87 0e c9 51 4a  |J%:.E(Gy).....QJ|
000016b0  25 3a f2 45 28 69 29 0d  00 88 1f c9 6c 5f 25 3a  |%:.E(i).....l_%:|
000016c0  f2 45 28 50 29 3a f2 45  28 50 2b 34 29 3a f2 45  |.E(P):.E(P+4):.E|
000016d0  28 50 2b 31 32 29 0d 00  89 0f c9 66 5f 25 3a f2  |(P+12).....f_%:.|
000016e0  45 28 55 79 29 0d 00 8a  0e c9 63 5f 25 3a f2 45  |E(Uy).....c_%:.E|
000016f0  28 6e 29 0d 00 8b 0f c9  4f 4a 25 3a f2 45 28 4a  |(n).....OJ%:.E(J|
00001700  79 29 0d 00 8c 05 cb 0d  00 8d 0e c9 78 25 3a c8  |y)..........x%:.|
00001710  8e 41 79 25 ca 0d 00 8e  0f c9 7a 4a 25 3a f2 45  |.Ay%......zJ%:.E|
00001720  28 45 79 29 0d 00 8f 0f  c9 59 4a 25 3a f2 45 28  |(Ey).....YJ%:.E(|
00001730  46 79 29 0d 00 90 0e c9  47 79 25 3a c8 8e 6f 25  |Fy).....Gy%:..o%|
00001740  ca 0d 00 91 0f c9 6d 5f  25 3a f2 45 28 50 79 29  |......m_%:.E(Py)|
00001750  0d 00 92 07 c9 2d 31 0d  00 93 13 7f f2 45 28 43  |.....-1......E(C|
00001760  79 2b 28 6f 25 3c 3c 32  29 29 0d 00 94 05 cb 0d  |y+(o%<<2))......|
00001770  00 95 11 c9 55 5f 25 3a  e7 6f 25 3c 3e 2d 31 8c  |....U_%:.o%<>-1.|
00001780  0d 00 96 11 f2 45 28 67  2b 28 6f 25 3c 3c 32 29  |.....E(g+(o%<<2)|
00001790  29 0d 00 97 05 cd 0d 00  98 0e c9 71 5f 25 3a c8  |)..........q_%:.|
000017a0  8e 6f 25 ca 0d 00 99 0e  c9 2d 31 3a f2 45 28 53  |.o%......-1:.E(S|
000017b0  79 29 0d 00 9a 11 c9 30  3a 42 79 3d bb 28 24 58  |y).....0:By=.($X|
000017c0  5f 25 29 0d 00 9b 05 cb  0d 00 9c 05 cb 0d 00 9d  |_%).............|
000017d0  0f c9 43 79 25 3a c8 8e  41 79 25 ca 0d 00 9e 0f  |..Cy%:..Ay%.....|
000017e0  c9 73 4a 25 3a f2 45 28  41 79 29 0d 00 9f 0e c9  |.sJ%:.E(Ay).....|
000017f0  63 4a 25 3a f2 45 28 75  29 0d 00 a0 0e c9 4b 4a  |cJ%:.E(u).....KJ|
00001800  25 3a f2 45 28 63 29 0d  00 a1 0e c9 4d 4a 25 3a  |%:.E(c).....MJ%:|
00001810  f2 45 28 68 29 0d 00 a2  0e c9 65 4a 25 3a f2 45  |.E(h).....eJ%:.E|
00001820  28 76 29 0d 00 a3 0e c9  41 4a 25 3a f2 45 28 62  |(v).....AJ%:.E(b|
00001830  29 0d 00 a4 05 cb 0d 00  a5 0f c9 6c 79 25 3a c8  |)..........ly%:.|
00001840  8e 41 79 25 ca 0d 00 a6  11 c9 44 4a 25 3a f2 73  |.Ay%......DJ%:.s|
00001850  28 24 48 5f 25 29 0d 00  a7 0f c9 62 5f 25 3a f2  |($H_%).....b_%:.|
00001860  45 28 58 79 29 0d 00 a8  0e c9 69 5f 25 3a f2 45  |E(Xy).....i_%:.E|
00001870  28 74 29 0d 00 a9 05 cb  0d 00 aa 0e c9 79 25 3a  |(t)..........y%:|
00001880  c8 8e 41 79 25 ca 0d 00  ab 0e c9 4d 79 25 3a c8  |..Ay%......My%:.|
00001890  8e 6f 25 ca 0d 00 ac 12  c9 55 4a 25 3a e7 4e 79  |.o%......UJ%:.Ny|
000018a0  25 3c 3e 2d 31 8c 0d 00  ad 0a 21 6c 3d 4e 79 25  |%<>-1.....!l=Ny%|
000018b0  0d 00 ae 05 cd 0d 00 af  12 c9 51 79 25 3a e7 4e  |..........Qy%:.N|
000018c0  79 25 3c 3e 2d 31 8c 0d  00 b0 12 f2 45 28 66 2b  |y%<>-1......E(f+|
000018d0  28 4e 79 25 3c 3c 32 29  29 0d 00 b1 05 cd 0d 00  |(Ny%<<2)).......|
000018e0  b2 05 cb 0d 00 b3 0e c9  66 79 25 3a c8 8e 6f 25  |........fy%:..o%|
000018f0  ca 0d 00 b4 12 c9 77 4a  25 3a e7 4e 79 25 3c 3e  |......wJ%:.Ny%<>|
00001900  2d 31 8c 0d 00 b5 0a 21  6d 3d 4e 79 25 0d 00 b6  |-1.....!m=Ny%...|
00001910  05 cd 0d 00 b7 12 c9 51  5f 25 3a e7 4e 79 25 3c  |.......Q_%:.Ny%<|
00001920  3e 2d 31 8c 0d 00 b8 13  f2 45 28 4d 79 2b 28 4e  |>-1......E(My+(N|
00001930  79 25 3c 3c 32 29 29 0d  00 b9 05 cd 0d 00 ba 05  |y%<<2)).........|
00001940  cb 0d 00 bb 0e c9 48 4a  25 3a f2 45 28 6f 29 0d  |......HJ%:.E(o).|
00001950  00 bc 05 cb 0d 00 bd 0c  c9 74 4a 25 3a f2 56 5f  |.........tJ%:.V_|
00001960  0d 00 be 0b c9 53 75 25  3a f2 6d 0d 00 bf 05 cb  |.....Su%:.m.....|
00001970  0d 00 c0 0d cb 3a e7 4e  75 25 3d 31 8c 0d 00 c1  |.....:.Nu%=1....|
00001980  0a c8 8e 52 79 25 ca 0d  00 c2 0b c9 73 79 25 3a  |...Ry%......sy%:|
00001990  f2 5f 0d 00 c3 1a cb 3a  c8 99 26 34 30 30 64 34  |._.....:..&400d4|
000019a0  2c 2c 63 25 2c 6e 4a 25  2c 6a 4a 25 0d 00 c4 07  |,,c%,nJ%,jJ%....|
000019b0  cc f2 51 0d 00 c5 07 cd  3a e1 0d 00 c6 1b dd f2  |..Q.....:.......|
000019c0  51 c8 99 26 34 30 30 64  34 2c 2c 2d 31 3a 52 79  |Q..&400d4,,-1:Ry|
000019d0  25 3d a3 3a e1 0d 00 c7  18 dd f2 45 28 74 25 29  |%=.:.......E(t%)|
000019e0  21 74 25 3d 28 21 74 25  3d 30 29 3a e1 0d 00 c8  |!t%=(!t%=0):....|
000019f0  12 dd f2 73 28 45 24 29  e7 45 24 3d 22 22 8c 0d  |...s(E$).E$=""..|
00001a00  00 c9 09 45 24 3d 66 24  0d 00 ca 1b cd 3a 48 24  |...E$=f$.....:H$|
00001a10  3d 45 24 3a f2 55 28 54  25 2c 4f 5f 25 2c 48 24  |=E$:.U(T%,O_%,H$|
00001a20  29 3a e1 0d 00 cb 13 dd  f2 41 79 28 45 24 29 e7  |):.......Ay(E$).|
00001a30  45 24 3d 22 22 8c 0d 00  cc 09 45 24 3d 61 24 0d  |E$="".....E$=a$.|
00001a40  00 cd 1b cd 3a 46 24 3d  45 24 3a f2 55 28 54 25  |....:F$=E$:.U(T%|
00001a50  2c 6f 79 25 2c 45 24 29  3a e1 0d 00 ce 13 dd f2  |,oy%,E$):.......|
00001a60  65 5f 28 45 24 29 e7 45  24 3d 22 22 8c 0d 00 cf  |e_(E$).E$=""....|
00001a70  09 45 24 3d 5f 24 0d 00  d0 1b cd 3a 4a 24 3d 45  |.E$=_$.....:J$=E|
00001a80  24 3a f2 55 28 54 25 2c  6e 79 25 2c 45 24 29 3a  |$:.U(T%,ny%,E$):|
00001a90  e1 0d 00 d1 13 dd f2 59  79 28 45 24 29 e7 45 24  |.......Yy(E$).E$|
00001aa0  3d 22 22 8c 0d 00 d2 09  45 24 3d 4f 24 0d 00 d3  |="".....E$=O$...|
00001ab0  1b cd 3a 43 24 3d 45 24  3a f2 55 28 54 25 2c 6b  |..:C$=E$:.U(T%,k|
00001ac0  79 25 2c 45 24 29 3a e1  0d 00 d4 0c dd f2 4c e7  |y%,E$):.......L.|
00001ad0  43 5f 25 8c 0d 00 d5 17  85 9f 2c f6 24 2b 22 20  |C_%.......,.$+" |
00001ae0  5b 22 2b c3 28 9e 29 2b  22 5d 22 0d 00 d6 0a cc  |["+.(.)+"]".....|
00001af0  85 9f 2c f6 24 0d 00 d7  0a cd 3a f2 46 3a e1 0d  |..,.$.....:.F:..|
00001b00  00 d8 56 dd f2 4c 5f ea  47 25 2c 71 24 2c 61 6c  |..V..L_.G%,q$,al|
00001b10  25 3a f2 65 3a 48 24 3d  66 24 3a 46 24 3d 61 24  |%:.e:H$=f$:F$=a$|
00001b20  3a 4a 24 3d 5f 24 3a 43  24 3d 4f 24 3a 47 25 3d  |:J$=_$:C$=O$:G%=|
00001b30  8e 28 22 3c 42 61 73 43  6f 6d 70 72 65 73 73 46  |.("<BasCompressF|
00001b40  45 24 44 69 72 3e 2e 43  68 6f 69 63 65 73 22 29  |E$Dir>.Choices")|
00001b50  3a e7 47 25 8c 0d 00 d9  13 ea 85 3a ee 85 ea f7  |:.G%.......:....|
00001b60  85 3a d9 23 47 25 3a e1  0d 00 da 76 c8 99 31 32  |.:.#G%:....v..12|
00001b70  2c 34 2c 47 25 2c 44 2c  71 79 2d 44 3a f2 72 28  |,4,G%,D,qy-D:.r(|
00001b80  47 25 2c 4d 25 28 29 29  3a f2 72 28 47 25 2c 53  |G%,M%()):.r(G%,S|
00001b90  25 28 29 29 3a f2 72 28  47 25 2c 5a 25 28 29 29  |%()):.r(G%,Z%())|
00001ba0  3a e8 23 47 25 2c 43 24  3a 4f 24 3d a4 4d 28 43  |:.#G%,C$:O$=.M(C|
00001bb0  24 29 3a e8 23 47 25 2c  4a 24 3a 5f 24 3d a4 4d  |$):.#G%,J$:_$=.M|
00001bc0  28 4a 24 29 3a e8 23 47  25 2c 46 24 3a 61 24 3d  |(J$):.#G%,F$:a$=|
00001bd0  a4 4d 28 46 24 29 3a f7  85 3a d9 23 47 25 0d 00  |.M(F$):..:.#G%..|
00001be0  db 07 cd 3a e1 0d 00 dc  31 dd f2 72 28 47 25 2c  |...:....1..r(G%,|
00001bf0  f8 45 25 28 29 29 ea 45  25 3a e3 45 25 3d 30 b8  |.E%()).E%:.E%=0.|
00001c00  77 25 2d 31 3a e8 23 47  25 2c 45 25 28 45 25 29  |w%-1:.#G%,E%(E%)|
00001c10  3a ed 45 25 3a e1 0d 00  dd 37 dd f2 4f 28 5f 75  |:.E%:....7..O(_u|
00001c20  29 ea 47 25 3a 47 25 3d  ae 28 22 3c 42 61 73 43  |).G%:G%=.("<BasC|
00001c30  6f 6d 70 72 65 73 73 46  45 24 44 69 72 3e 2e 43  |ompressFE$Dir>.C|
00001c40  68 6f 69 63 65 73 22 29  3a e7 47 25 8c 0d 00 de  |hoices"):.G%....|
00001c50  14 ea 85 3a ee 85 ea f7  85 3a d9 23 47 25 3a f2  |...:.....:.#G%:.|
00001c60  4c 0d 00 df 3d c8 99 31  32 2c 32 2c 47 25 2c 44  |L...=..12,2,G%,D|
00001c70  2c 71 79 2d 44 3a f2 63  28 47 25 2c 4d 25 28 29  |,qy-D:.c(G%,M%()|
00001c80  29 3a f2 63 28 47 25 2c  53 25 28 29 29 3a f2 63  |):.c(G%,S%()):.c|
00001c90  28 47 25 2c 5a 25 28 29  29 3a e7 5f 75 8c 0d 00  |(G%,Z%()):._u...|
00001ca0  e0 1b f1 23 47 25 2c 43  24 3a f1 23 47 25 2c 4a  |...#G%,C$:.#G%,J|
00001cb0  24 3a f1 23 47 25 2c 46  24 0d 00 e1 28 cc f1 23  |$:.#G%,F$...(..#|
00001cc0  47 25 2c a4 4d 28 43 24  29 3a f1 23 47 25 2c a4  |G%,.M(C$):.#G%,.|
00001cd0  4d 28 4a 24 29 3a f1 23  47 25 2c a4 4d 28 46 24  |M(J$):.#G%,.M(F$|
00001ce0  29 0d 00 e2 0d cd 3a f7  85 3a d9 23 47 25 0d 00  |).....:..:.#G%..|
00001cf0  e3 07 cd 3a e1 0d 00 e4  30 dd f2 63 28 47 25 2c  |...:....0..c(G%,|
00001d00  45 25 28 29 29 ea 45 25  3a e3 45 25 3d 30 b8 77  |E%()).E%:.E%=0.w|
00001d10  25 2d 31 3a f1 23 47 25  2c 45 25 28 45 25 29 3a  |%-1:.#G%,E%(E%):|
00001d20  ed 45 25 3a e1 0d 00 e5  f4 dd f2 65 ea 46 3a 21  |.E%:.......e.F:!|
00001d30  51 79 3d a3 3a 21 47 79  3d b9 3a 21 69 3d b9 3a  |Qy=.:!Gy=.:!i=.:|
00001d40  21 50 3d b9 3a 50 21 34  3d 28 21 50 3d 30 29 3a  |!P=.:P!4=(!P=0):|
00001d50  50 21 31 32 3d 28 21 50  3d 30 29 3a 21 55 79 3d  |P!12=(!P=0):!Uy=|
00001d60  b9 3a 21 6e 3d b9 3a 21  4a 79 3d a3 3a 21 45 79  |.:!n=.:!Jy=.:!Ey|
00001d70  3d b9 3a 21 46 79 3d b9  3a e3 46 3d 30 b8 35 3a  |=.:!Fy=.:.F=0.5:|
00001d80  43 79 21 28 46 3c 3c 32  29 3d b9 3a ed 46 3a e3  |Cy!(F<<2)=.:.F:.|
00001d90  46 3d 30 b8 31 3a 67 21  28 46 3c 3c 32 29 3d b9  |F=0.1:g!(F<<2)=.|
00001da0  3a ed 46 3a 21 50 79 3d  a3 3a 21 53 79 3d a3 3a  |:.F:!Py=.:!Sy=.:|
00001db0  42 79 3d 31 36 3a 21 41  79 3d b9 3a 21 75 3d b9  |By=16:!Ay=.:!u=.|
00001dc0  3a 21 63 3d b9 3a 21 68  3d b9 3a 21 76 3d b9 3a  |:!c=.:!h=.:!v=.:|
00001dd0  21 62 3d a3 3a 21 58 79  3d a3 3a 21 74 3d a3 3a  |!b=.:!Xy=.:!t=.:|
00001de0  21 6c 3d 33 3a e3 46 3d  30 b8 35 3a 66 21 28 46  |!l=3:.F=0.5:f!(F|
00001df0  3c 3c 32 29 3d b9 3a ed  46 3a 21 6d 3d 33 3a e3  |<<2)=.:.F:!m=3:.|
00001e00  46 3d 30 b8 31 3a 4d 79  21 28 46 3c 3c 32 29 3d  |F=0.1:My!(F<<2)=|
00001e10  b9 3a ed 46 3a 21 6f 3d  a3 0d 00 e6 70 21 65 3d  |.:.F:!o=....p!e=|
00001e20  a3 3a 21 56 3d b9 3a 21  71 3d b9 3a 21 77 3d a3  |.:!V=.:!q=.:!w=.|
00001e30  3a 21 4f 3d a3 3a 4d 25  28 29 3d 4a 3a 53 25 28  |:!O=.:M%()=J:S%(|
00001e40  29 3d 4a 3a 5a 25 28 29  3d 4a 3a 4d 25 28 29 3d  |)=J:Z%()=J:M%()=|
00001e50  78 2c 7a 3a 53 25 28 29  3d 78 2c 7a 3a 5a 25 28  |x,z:S%()=x,z:Z%(|
00001e60  29 3d 78 2c 7a 2c 49 79  3a 4f 24 3d 22 4c 6f 67  |)=x,z,Iy:O$="Log|
00001e70  22 3a 61 24 3d 22 4f 75  74 70 75 74 22 3a 5f 24  |":a$="Output":_$|
00001e80  3d 22 58 52 65 66 22 3a  e1 0d 00 e7 5b dd f2 67  |="XRef":....[..g|
00001e90  c8 99 26 34 36 35 63 36  2c 59 25 2c 54 25 3a f2  |..&465c6,Y%,T%:.|
00001ea0  7a 28 54 25 2c 4f 5f 25  2c 48 24 2c 66 24 29 3a  |z(T%,O_%,H$,f$):|
00001eb0  f2 7a 28 54 25 2c 6b 79  25 2c 43 24 2c 4f 24 29  |.z(T%,ky%,C$,O$)|
00001ec0  3a f2 7a 28 54 25 2c 6e  79 25 2c 4a 24 2c 5f 24  |:.z(T%,ny%,J$,_$|
00001ed0  29 3a f2 7a 28 54 25 2c  6f 79 25 2c 46 24 2c 61  |):.z(T%,oy%,F$,a|
00001ee0  24 29 3a e1 0d 00 e8 16  dd f2 69 79 28 51 25 2c  |$):.......iy(Q%,|
00001ef0  56 25 2c 49 25 2c 46 25  29 e1 0d 00 e9 14 dd f2  |V%,I%,F%).......|
00001f00  42 79 28 46 25 2c 67 25  29 c8 8e 67 25 ca 0d 00  |By(F%,g%)..g%...|
00001f10  ea 15 c9 31 33 2c 33 39  38 2c 33 39 39 3a c8 8e  |...13,398,399:..|
00001f20  46 25 ca 0d 00 eb 0c c9  6b 79 25 3a 5a 3d 47 0d  |F%......ky%:Z=G.|
00001f30  00 ec 0c c9 6e 79 25 3a  5a 3d 4e 0d 00 ed 0c c9  |....ny%:Z=N.....|
00001f40  6f 79 25 3a 5a 3d 57 0d  00 ee 0c c9 4f 5f 25 3a  |oy%:Z=W.....O_%:|
00001f50  5a 3d 72 0d 00 ef 26 cb  3a f2 4b 28 a4 43 28 54  |Z=r...&.:.K(.C(T|
00001f60  25 2c 46 25 29 29 3a e7  67 25 3d 33 39 38 8c f2  |%,F%)):.g%=398..|
00001f70  79 79 28 54 25 2c 46 25  29 0d 00 f0 16 e7 67 25  |yy(T%,F%).....g%|
00001f80  3d 33 39 39 8c f2 7a 79  28 54 25 2c 46 25 29 0d  |=399..zy(T%,F%).|
00001f90  00 f1 0e e7 67 25 3d 31  33 8c f2 77 79 0d 00 f2  |....g%=13..wy...|
00001fa0  0a c9 32 37 3a f2 67 0d  00 f3 10 7f c8 99 26 34  |..27:.g.......&4|
00001fb0  30 30 64 63 2c 67 25 0d  00 f4 07 cb 3a e1 0d 00  |00dc,g%.....:...|
00001fc0  f5 1f dd f2 56 5f f2 79  3a f2 57 79 28 58 25 29  |....V_.y:.Wy(X%)|
00001fd0  3a f2 46 79 28 58 25 2c  2d 31 29 3a e1 0d 00 f6  |:.Fy(X%,-1):....|
00001fe0  19 dd f2 79 e7 a4 44 28  22 43 68 6f 69 63 65 73  |...y..D("Choices|
00001ff0  22 2c 58 25 29 8c 0d 00  f7 67 cc c8 99 26 34 36  |",X%)....g...&46|
00002000  35 63 36 2c 59 25 2c 58  25 3a f2 41 28 58 25 2c  |5c6,Y%,X%:.A(X%,|
00002010  49 4a 25 2c 21 65 29 3a  f2 41 28 58 25 2c 60 5f  |IJ%,!e):.A(X%,`_|
00002020  25 2c 21 56 29 3a f2 41  28 58 25 2c 72 4a 25 2c  |%,!V):.A(X%,rJ%,|
00002030  21 71 29 3a f2 41 28 58  25 2c 66 4a 25 2c 21 77  |!q):.A(X%,fJ%,!w|
00002040  29 3a f2 41 28 58 25 2c  43 4a 25 2c 21 4f 29 3a  |):.A(X%,CJ%,!O):|
00002050  f2 41 28 58 25 2c 5a 4a  25 2c a4 7a 29 0d 00 f8  |.A(X%,ZJ%,.z)...|
00002060  07 cd 3a e1 0d 00 f9 2a  dd f2 50 79 28 51 25 2c  |..:....*..Py(Q%,|
00002070  56 25 2c 49 25 2c 46 25  29 ea 5f 79 25 3a f2 46  |V%,I%,F%)._y%:.F|
00002080  79 28 58 25 2c 2d 31 29  3a c8 8e 46 25 ca 0d 00  |y(X%,-1):..F%...|
00002090  fa 11 c9 58 75 25 3a f2  4e 3a 5f 79 25 3d b9 0d  |...Xu%:.N:_y%=..|
000020a0  00 fb 11 c9 67 75 25 3a  f2 79 3a 5f 79 25 3d b9  |....gu%:.y:_y%=.|
000020b0  0d 00 fc 17 c9 6d 4a 25  3a f2 4e 3a f2 4f 28 b9  |.....mJ%:.N:.O(.|
000020c0  29 3a 5f 79 25 3d b9 0d  00 fd 17 c9 54 75 25 3a  |):_y%=......Tu%:|
000020d0  f2 4e 3a f2 4f 28 a3 29  3a 5f 79 25 3d b9 0d 00  |.N:.O(.):_y%=...|
000020e0  fe 14 c9 69 4a 25 3a f2  65 3a f2 79 3a 5f 79 25  |...iJ%:.e:.y:_y%|
000020f0  3d b9 0d 00 ff 0b cb 3a  e7 5f 79 25 8c 0d 01 00  |=......:._y%....|
00002100  13 e7 49 25 80 31 30 39  32 8c f2 47 28 58 25 29  |..I%.1092..G(X%)|
00002110  0d 01 01 07 cd 3a e1 0d  01 02 73 dd f2 4e ea 6f  |.....:....s..N.o|
00002120  5f 25 2c 73 24 2c 77 24  2c 54 24 3a 21 65 3d a4  |_%,s$,w$,T$:!e=.|
00002130  57 28 58 25 2c 49 4a 25  29 3a 21 56 3d a4 57 28  |W(X%,IJ%):!V=.W(|
00002140  58 25 2c 60 5f 25 29 3a  21 71 3d a4 57 28 58 25  |X%,`_%):!q=.W(X%|
00002150  2c 72 4a 25 29 3a 21 77  3d a4 57 28 58 25 2c 66  |,rJ%):!w=.W(X%,f|
00002160  4a 25 29 3a 21 4f 3d a4  57 28 58 25 2c 43 4a 25  |J%):!O=.W(X%,CJ%|
00002170  29 3a 6f 5f 25 3d a4 7a  3a e7 6f 5f 25 3c 3e a4  |):o_%=.z:.o_%<>.|
00002180  57 28 58 25 2c 5a 4a 25  29 8c 0d 01 03 29 73 24  |W(X%,ZJ%)....)s$|
00002190  3d 22 54 46 6f 6e 74 22  3a 77 24 3d 22 54 53 79  |="TFont":w$="TSy|
000021a0  73 74 65 6d 22 3a e7 ac  6f 5f 25 8c c8 94 73 24  |stem":..o_%...s$|
000021b0  2c 77 24 0d 01 04 5b 54  24 3d a4 50 28 4d 5f 25  |,w$...[T$=.P(M_%|
000021c0  29 2b 22 2e 22 3a 73 24  3d 54 24 2b 73 24 2b bd  |)+".":s$=T$+s$+.|
000021d0  30 3a 77 24 3d 54 24 2b  77 24 2b bd 30 3a 54 24  |0:w$=T$+w$+.0:T$|
000021e0  3d 54 24 2b 22 54 65 6d  70 6c 61 74 65 73 22 2b  |=T$+"Templates"+|
000021f0  bd 30 3a c8 99 34 31 2c  32 35 2c 54 24 2c 73 24  |.0:..41,25,T$,s$|
00002200  3a c8 99 34 31 2c 32 35  2c 77 24 2c 54 24 0d 01  |:..41,25,w$,T$..|
00002210  05 07 cd 3a e1 0d 01 06  14 dd f2 78 5f 28 46 25  |...:.......x_(F%|
00002220  2c 67 25 29 c8 8e 67 25  ca 0d 01 07 11 c9 31 33  |,g%)..g%......13|
00002230  3a f2 4e 3a f2 47 28 58  25 29 0d 01 08 0e c9 32  |:.N:.G(X%).....2|
00002240  37 3a f2 47 28 58 25 29  0d 01 09 12 c9 33 38 36  |7:.G(X%).....386|
00002250  3a f2 65 3a f2 47 28 58  25 29 0d 01 0a 18 c9 33  |:.e:.G(X%).....3|
00002260  38 37 3a f2 4e 3a f2 4f  28 a3 29 3a f2 47 28 58  |87:.N:.O(.):.G(X|
00002270  25 29 0d 01 0b 18 c9 33  38 38 3a f2 4e 3a f2 4f  |%).....388:.N:.O|
00002280  28 b9 29 3a f2 47 28 58  25 29 0d 01 0c 0f c9 33  |(.):.G(X%).....3|
00002290  38 39 3a f2 47 28 58 25  29 0d 01 0d 12 c9 33 39  |89:.G(X%).....39|
000022a0  30 3a f2 4e 3a f2 47 28  58 25 29 0d 01 0e 10 7f  |0:.N:.G(X%).....|
000022b0  c8 99 26 34 30 30 64 63  2c 67 25 0d 01 0f 07 cb  |..&400dc,g%.....|
000022c0  3a e1 0d 01 10 7f dd a4  7a ea 57 4a 25 2c 5a 25  |:.......z.WJ%,Z%|
000022d0  2c 50 79 25 2c 52 25 3a  5a 25 3d a4 41 28 31 32  |,Py%,R%:Z%=.A(12|
000022e0  38 29 3a 50 79 25 3d 30  3a f5 c8 99 31 32 2c 39  |8):Py%=0:...12,9|
000022f0  2c 4d 5f 25 2c 5a 25 2c  31 2c 50 79 25 2c 31 32  |,M_%,Z%,1,Py%,12|
00002300  38 2c 22 54 53 79 73 74  65 6d 22 2b bd 30 b8 2c  |8,"TSystem"+.0.,|
00002310  2c 2c 52 25 2c 50 79 25  3a 57 4a 25 3d 28 52 25  |,,R%,Py%:WJ%=(R%|
00002320  3d 31 29 3a fd 28 50 79  25 3d 2d 31 29 84 57 4a  |=1):.(Py%=-1).WJ|
00002330  25 3a f2 4d 28 5a 25 2c  31 32 38 29 3a 3d 57 4a  |%:.M(Z%,128):=WJ|
00002340  25 0d 01 11 27 dd f2 64  28 45 25 28 29 29 ea 45  |%...'..d(E%()).E|
00002350  25 2c 5f 25 2c 4e 25 3a  e7 a4 44 28 22 4f 72 64  |%,_%,N%:..D("Ord|
00002360  65 72 22 2c 4b 25 29 8c  0d 01 12 bc cc c8 99 26  |er",K%)........&|
00002370  34 36 35 63 36 2c 59 25  2c 4b 25 3a 45 25 3d 30  |465c6,Y%,K%:E%=0|
00002380  3a c8 95 45 25 3c 77 25  80 45 25 28 45 25 29 3c  |:..E%<w%.E%(E%)<|
00002390  3e 4a 3a 5f 25 3d 45 25  28 45 25 29 80 28 ac 4d  |>J:_%=E%(E%).(.M|
000023a0  29 3a e3 4e 25 3d 30 b8  56 79 3a f2 41 28 4b 25  |):.N%=0.Vy:.A(K%|
000023b0  2c a4 51 28 4e 25 2c 45  25 29 2c 5f 25 3d 4e 25  |,.Q(N%,E%),_%=N%|
000023c0  29 3a ed 4e 25 3a f2 41  28 4b 25 2c 44 79 25 2b  |):.N%:.A(K%,Dy%+|
000023d0  45 25 2c 45 25 28 45 25  29 80 4d 29 3a 45 25 2b  |E%,E%(E%).M):E%+|
000023e0  3d 31 3a ce 3a c8 95 45  25 3c 77 25 3a e3 4e 25  |=1:.:..E%<w%:.N%|
000023f0  3d 30 b8 56 79 3a f2 41  28 4b 25 2c a4 51 28 4e  |=0.Vy:.A(K%,.Q(N|
00002400  25 2c 45 25 29 2c a3 29  3a ed 4e 25 3a f2 41 28  |%,E%),.):.N%:.A(|
00002410  4b 25 2c 44 79 25 2b 45  25 2c a3 29 3a 45 25 2b  |K%,Dy%+E%,.):E%+|
00002420  3d 31 3a ce 0d 01 13 07  cd 3a e1 0d 01 14 19 dd  |=1:......:......|
00002430  f2 4f 5f 28 51 25 2c 56  25 2c 49 25 2c 46 25 29  |.O_(Q%,V%,I%,F%)|
00002440  c8 8e 59 ca 0d 01 15 15  c9 70 3a f2 76 28 5a 25  |..Y......p:.v(Z%|
00002450  28 29 2c 49 25 2c 46 25  29 0d 01 16 16 c9 77 79  |(),I%,F%).....wy|
00002460  3a f2 76 28 4d 25 28 29  2c 49 25 2c 46 25 29 0d  |:.v(M%(),I%,F%).|
00002470  01 17 16 c9 48 79 3a f2  76 28 53 25 28 29 2c 49  |....Hy:.v(S%(),I|
00002480  25 2c 46 25 29 0d 01 18  07 cb 3a e1 0d 01 19 2e  |%,F%).....:.....|
00002490  dd f2 76 28 f8 45 25 28  29 2c 49 25 2c 46 25 29  |..v(.E%(),I%,F%)|
000024a0  3a ea 45 25 2c 4e 25 2c  57 79 25 2c 64 25 2c 5f  |:.E%,N%,Wy%,d%,_|
000024b0  25 3a e7 a4 65 28 46 25  29 8c 0d 01 1a 29 f2 6b  |%:..e(F%)....).k|
000024c0  28 46 25 2c 45 25 2c 57  79 25 29 3a 5f 25 3d ac  |(F%,E%,Wy%):_%=.|
000024d0  4d 3a e7 28 45 25 28 45  25 29 80 5f 25 29 3d 57  |M:.(E%(E%)._%)=W|
000024e0  79 25 8c 0d 01 1b 11 e7  a4 57 28 4b 25 2c 46 25  |y%.......W(K%,F%|
000024f0  29 3d a3 8c 0d 01 1c 10  f2 53 79 28 45 25 28 29  |)=.......Sy(E%()|
00002500  2c 45 25 29 0d 01 1d 05  cd 0d 01 1e 0c cc e7 57  |,E%)...........W|
00002510  79 25 3d 4d 8c 0d 01 1f  0e e7 45 25 28 45 25 29  |y%=M......E%(E%)|
00002520  3d 4a 8c 0d 01 20 0f f2  41 28 4b 25 2c 46 25 2c  |=J... ..A(K%,F%,|
00002530  a3 29 0d 01 21 20 cc 45  25 28 45 25 29 3d 45 25  |.)..! .E%(E%)=E%|
00002540  28 45 25 29 82 4d 3a f2  75 28 45 25 28 29 2c 45  |(E%).M:.u(E%(),E|
00002550  25 29 0d 01 22 05 cd 0d  01 23 0f cc e7 45 25 28  |%).."....#...E%(|
00002560  45 25 29 3d 4a 8c 0d 01  24 0e 45 25 28 45 25 29  |E%)=J...$.E%(E%)|
00002570  3d 57 79 25 0d 01 25 1a  cc 45 25 28 45 25 29 3d  |=Wy%..%..E%(E%)=|
00002580  28 45 25 28 45 25 29 80  4d 29 84 57 79 25 0d 01  |(E%(E%).M).Wy%..|
00002590  26 25 cd 3a f2 75 28 45  25 28 29 2c 45 25 29 3a  |&%.:.u(E%(),E%):|
000025a0  4e 25 3d 30 3a 64 25 3d  a3 3a f5 e7 4e 25 3c 3e  |N%=0:d%=.:..N%<>|
000025b0  45 25 8c 0d 01 27 1d 64  25 3d 28 28 45 25 28 4e  |E%...'.d%=((E%(N|
000025c0  25 29 80 5f 25 29 3d 57  79 25 29 3a e7 64 25 8c  |%)._%)=Wy%):.d%.|
000025d0  0d 01 28 10 f2 44 79 28  45 25 28 29 2c 45 25 29  |..(..Dy(E%(),E%)|
000025e0  0d 01 29 05 cd 0d 01 2a  16 cd 3a 4e 25 2b 3d 31  |..)....*..:N%+=1|
000025f0  3a fd 64 25 84 4e 25 3e  3d 77 25 0d 01 2b 05 cd  |:.d%.N%>=w%..+..|
00002600  0d 01 2c 05 cd 0d 01 2d  07 cd 3a e1 0d 01 2e 3e  |..,....-..:....>|
00002610  dd f2 75 28 f8 45 25 28  29 2c f8 45 25 29 3a ea  |..u(.E%(),.E%):.|
00002620  64 25 3a 64 25 3d 28 45  25 3c 3d 30 29 3a c8 95  |d%:d%=(E%<=0):..|
00002630  ac 64 25 3a 64 25 3d 28  45 25 28 45 25 2d 31 29  |.d%:d%=(E%(E%-1)|
00002640  3c 3e 4a 29 3a e7 ac 64  25 8c 0d 01 2f 21 45 25  |<>J):..d%.../!E%|
00002650  2d 3d 31 3a f2 53 79 28  45 25 28 29 2c 45 25 29  |-=1:.Sy(E%(),E%)|
00002660  3a 64 25 3d 28 45 25 3c  3d 30 29 0d 01 30 09 cd  |:d%=(E%<=0)..0..|
00002670  3a ce 3a e1 0d 01 31 55  dd f2 53 79 28 f8 45 25  |:.:...1U..Sy(.E%|
00002680  28 29 2c 45 25 29 3a ea  4e 25 2c 64 25 2c 59 5f  |(),E%):.N%,d%,Y_|
00002690  25 3a 4e 25 3d 45 25 3a  f5 45 25 28 4e 25 29 3d  |%:N%=E%:.E%(N%)=|
000026a0  4a 3a f2 41 28 4b 25 2c  44 79 25 2b 4e 25 2c a3  |J:.A(K%,Dy%+N%,.|
000026b0  29 3a 4e 25 2b 3d 31 3a  64 25 3d 28 4e 25 3e 3d  |):N%+=1:d%=(N%>=|
000026c0  77 25 29 3a e7 ac 64 25  8c 0d 01 32 17 64 25 3d  |w%):..d%...2.d%=|
000026d0  28 45 25 28 4e 25 29 3d  4a 29 3a e7 ac 64 25 8c  |(E%(N%)=J):..d%.|
000026e0  0d 01 33 64 45 25 28 4e  25 2d 31 29 3d 45 25 28  |..3dE%(N%-1)=E%(|
000026f0  4e 25 29 3a f2 41 28 4b  25 2c a4 51 28 45 25 28  |N%):.A(K%,.Q(E%(|
00002700  4e 25 29 2c 4e 25 2d 31  29 2c b9 29 3a f2 41 28  |N%),N%-1),.):.A(|
00002710  4b 25 2c a4 51 28 45 25  28 4e 25 29 2c 4e 25 29  |K%,.Q(E%(N%),N%)|
00002720  2c a3 29 3a 59 5f 25 3d  45 25 28 4e 25 29 80 4d  |,.):Y_%=E%(N%).M|
00002730  3a f2 41 28 4b 25 2c 44  79 25 2b 4e 25 2d 31 2c  |:.A(K%,Dy%+N%-1,|
00002740  59 5f 25 29 0d 01 34 05  cd 0d 01 35 0b cd 3a fd  |Y_%)..4....5..:.|
00002750  64 25 3a e1 0d 01 36 7f  dd f2 44 79 28 f8 45 25  |d%:...6...Dy(.E%|
00002760  28 29 2c 4e 25 29 3a ea  45 25 2c 64 25 3a 45 25  |(),N%):.E%,d%:E%|
00002770  3d 30 3a 64 25 3d a3 3a  c8 95 a4 4a 79 28 45 25  |=0:d%=.:...Jy(E%|
00002780  28 29 2c 45 25 29 3a 45  25 2b 3d 31 3a ce 3a f2  |(),E%):E%+=1:.:.|
00002790  41 28 4b 25 2c a4 51 28  45 25 28 4e 25 29 2c 4e  |A(K%,.Q(E%(N%),N|
000027a0  25 29 2c a3 29 3a 45 25  28 4e 25 29 3d 45 25 84  |%),.):E%(N%)=E%.|
000027b0  28 45 25 28 4e 25 29 80  4d 29 3a f2 41 28 4b 25  |(E%(N%).M):.A(K%|
000027c0  2c a4 51 28 45 25 28 4e  25 29 2c 4e 25 29 2c b9  |,.Q(E%(N%),N%),.|
000027d0  29 3a e1 0d 01 37 57 dd  a4 4a 79 28 45 25 28 29  |):...7W..Jy(E%()|
000027e0  2c 45 25 29 3a ea 73 5f  25 2c 4e 25 3a 4e 25 3d  |,E%):.s_%,N%:N%=|
000027f0  30 3a 73 5f 25 3d a3 3a  c8 95 4e 25 3c 77 25 80  |0:s_%=.:..N%<w%.|
00002800  28 ac 73 5f 25 29 3a 73  5f 25 3d 28 28 45 25 28  |(.s_%):s_%=((E%(|
00002810  4e 25 29 80 28 ac 4d 29  29 3d 45 25 29 3a 4e 25  |N%).(.M))=E%):N%|
00002820  2b 3d 31 3a ce 3a 3d 73  5f 25 0d 01 38 23 dd a4  |+=1:.:=s_%..8#..|
00002830  65 28 46 25 29 3d 28 46  25 3e 3d 75 79 25 29 80  |e(F%)=(F%>=uy%).|
00002840  28 46 25 3c 28 44 79 25  2b 77 25 29 29 0d 01 39  |(F%<(Dy%+w%))..9|
00002850  1e dd f2 6b 28 46 25 2c  f8 67 4a 25 2c f8 61 4a  |...k(F%,.gJ%,.aJ|
00002860  25 29 e7 46 25 3e 3d 44  79 25 8c 0d 01 3a 09 61  |%).F%>=Dy%...:.a|
00002870  4a 25 3d 4d 0d 01 3b 14  cc 61 4a 25 3d 28 46 25  |J%=M..;..aJ%=(F%|
00002880  2d 75 79 25 29 81 77 25  0d 01 3c 17 cd 3a 67 4a  |-uy%).w%..<..:gJ|
00002890  25 3d 28 46 25 2d 75 79  25 29 83 77 25 3a e1 0d  |%=(F%-uy%).w%:..|
000028a0  01 3d 2a dd a4 51 28 61  4a 25 2c 67 4a 25 29 3d  |.=*..Q(aJ%,gJ%)=|
000028b0  28 28 28 61 4a 25 80 28  ac 4d 29 29 2a 77 25 29  |(((aJ%.(.M))*w%)|
000028c0  2b 75 79 25 29 2b 67 4a  25 0d 01 3e 14 dd f2 4a  |+uy%)+gJ%..>...J|
000028d0  5f 28 46 25 2c 67 25 29  c8 8e 67 25 ca 0d 01 3f  |_(F%,g%)..g%...?|
000028e0  1b c9 31 33 2c 33 39 38  3a f2 4b 28 a4 43 28 65  |..13,398:.K(.C(e|
000028f0  25 2c 32 29 29 3a f2 51  0d 01 40 0a c9 32 37 3a  |%,2)):.Q..@..27:|
00002900  f2 51 0d 01 41 10 7f c8  99 26 34 30 30 64 63 2c  |.Q..A....&400dc,|
00002910  67 25 0d 01 42 07 cb 3a  e1 0d 01 43 1a dd f2 47  |g%..B..:...C...G|
00002920  79 28 51 25 2c 56 25 2c  49 25 2c 46 25 29 c8 8e  |y(Q%,V%,I%,F%)..|
00002930  46 25 ca 0d 01 44 1a c9  30 3a f2 4b 28 a4 43 28  |F%...D..0:.K(.C(|
00002940  65 25 2c 32 29 29 3a e7  49 25 80 31 8c 0d 01 45  |e%,2)):.I%.1...E|
00002950  13 f2 5f 3a c8 99 26 34  30 30 64 34 2c 2c 63 25  |.._:..&400d4,,c%|
00002960  0d 01 46 07 cc f2 51 0d  01 47 05 cd 0d 01 48 07  |..F...Q..G....H.|
00002970  cb 3a e1 0d 01 49 18 dd  f2 52 e7 a4 44 28 22 53  |.:...I...R..D("S|
00002980  61 76 65 41 73 22 2c 65  25 29 8c 0d 01 4a 25 cc  |aveAs",e%)...J%.|
00002990  c8 99 26 34 36 35 63 36  2c 59 25 2c 65 25 3a f2  |..&465c6,Y%,e%:.|
000029a0  55 28 65 25 2c 32 2c a4  72 29 3a e7 5a 3d 57 8c  |U(e%,2,.r):.Z=W.|
000029b0  0d 01 4b 1b f2 4d 79 28  65 25 2c 31 2c 22 66 69  |..K..My(e%,1,"fi|
000029c0  6c 65 5f 22 2b c3 7e 28  79 29 29 0d 01 4c 1c cc  |le_"+.~(y))..L..|
000029d0  f2 4d 79 28 65 25 2c 31  2c 22 66 69 6c 65 5f 22  |.My(e%,1,"file_"|
000029e0  2b c3 7e 28 61 29 29 0d  01 4d 05 cd 0d 01 4e 07  |+.~(a))..M....N.|
000029f0  cd 3a e1 0d 01 4f 0f dd  a4 72 ea 4d 24 3a c8 8e  |.:...O...r.M$:..|
00002a00  5a ca 0d 01 50 0c c9 47  3a 4d 24 3d 43 24 0d 01  |Z...P..G:M$=C$..|
00002a10  51 0c c9 4e 3a 4d 24 3d  4a 24 0d 01 52 0c c9 57  |Q..N:M$=J$..R..W|
00002a20  3a 4d 24 3d 46 24 0d 01  53 0c c9 72 3a 4d 24 3d  |:M$=F$..S..r:M$=|
00002a30  48 24 0d 01 54 09 cb 3a  3d 4d 24 0d 01 55 22 dd  |H$..T..:=M$..U".|
00002a40  f2 7a 28 44 25 2c 45 25  2c 4d 24 2c 41 79 24 29  |.z(D%,E%,M$,Ay$)|
00002a50  e7 4d 24 3d 22 22 8c 4d  24 3d 41 79 24 0d 01 56  |.M$="".M$=Ay$..V|
00002a60  12 f2 55 28 44 25 2c 45  25 2c 4d 24 29 3a e1 0d  |..U(D%,E%,M$):..|
00002a70  01 57 23 dd a4 5f 44 72  61 67 67 65 64 5f 46 69  |.W#.._Dragged_Fi|
00002a80  6c 65 4e 61 6d 65 5f 43  6f 6e 74 72 6f 6c c8 8e  |leName_Control..|
00002a90  5a ca 0d 01 58 15 c9 47  3a f2 49 28 a4 43 28 54  |Z...X..G:.I(.C(T|
00002aa0  25 2c 6b 79 25 29 29 0d  01 59 15 c9 4e 3a f2 49  |%,ky%))..Y..N:.I|
00002ab0  28 a4 43 28 54 25 2c 6e  79 25 29 29 0d 01 5a 15  |(.C(T%,ny%))..Z.|
00002ac0  c9 57 3a f2 49 28 a4 43  28 54 25 2c 6f 79 25 29  |.W:.I(.C(T%,oy%)|
00002ad0  29 0d 01 5b 08 cb 3a 3d  30 0d 01 5c 2d dd a4 5f  |)..[..:=0..\-.._|
00002ae0  44 72 61 67 67 65 64 5f  46 69 6c 65 4e 61 6d 65  |Dragged_FileName|
00002af0  5f 53 61 76 65 41 73 f2  49 28 a4 43 28 65 25 2c  |_SaveAs.I(.C(e%,|
00002b00  32 29 29 3a 3d 30 0d 01  5d 58 dd f2 49 28 53 24  |2)):=0..]X..I(S$|
00002b10  29 ea 44 25 2c 45 25 2c  5a 25 2c 51 25 2c 56 25  |).D%,E%,Z%,Q%,V%|
00002b20  3a 5a 25 3d a4 41 28 33  32 30 29 3a c8 99 26 34  |:Z%=.A(320):..&4|
00002b30  30 30 63 66 2c 2c 5a 25  3a 44 25 3d 5a 25 21 31  |00cf,,Z%:D%=Z%!1|
00002b40  32 3a 45 25 3d 5a 25 21  31 36 3a e7 28 44 25 3c  |2:E%=Z%!16:.(D%<|
00002b50  3e 2d 32 29 80 28 44 25  3c 3e 54 25 29 8c 0d 01  |>-2).(D%<>T%)...|
00002b60  5e 0b e7 53 24 3d 22 22  8c 0d 01 5f 08 c8 8e 5a  |^..S$=""..._...Z|
00002b70  ca 0d 01 60 0c c9 47 3a  53 24 3d 4f 24 0d 01 61  |...`..G:S$=O$..a|
00002b80  0c c9 4e 3a 53 24 3d 5f  24 0d 01 62 0c c9 57 3a  |..N:S$=_$..b..W:|
00002b90  53 24 3d 61 24 0d 01 63  05 cb 0d 01 64 0e cc 53  |S$=a$..c....d..S|
00002ba0  24 3d a4 4d 28 53 24 29  0d 01 65 9a cd 3a 51 25  |$=.M(S$)..e..:Q%|
00002bb0  3d 21 5a 25 3a 56 25 3d  5a 25 21 34 3a 21 5a 25  |=!Z%:V%=Z%!4:!Z%|
00002bc0  3d 28 a9 28 53 24 29 2b  34 38 29 80 2d 34 3a 5a  |=(.(S$)+48).-4:Z|
00002bd0  25 21 31 32 3d 30 3a 5a  25 21 31 36 3d 31 3a 5a  |%!12=0:Z%!16=1:Z|
00002be0  25 21 32 30 3d 44 25 3a  5a 25 21 32 34 3d 45 25  |%!20=D%:Z%!24=E%|
00002bf0  3a 5a 25 21 32 38 3d 51  25 3a 5a 25 21 33 32 3d  |:Z%!28=Q%:Z%!32=|
00002c00  56 25 3a 5a 25 21 33 36  3d 2d 31 3a 5a 25 21 34  |V%:Z%!36=-1:Z%!4|
00002c10  30 3d 61 3a 24 28 5a 25  2b 34 34 29 3d 53 24 2b  |0=a:$(Z%+44)=S$+|
00002c20  bd 28 30 29 3a c8 99 26  34 30 30 65 37 2c 31 37  |.(0):..&400e7,17|
00002c30  2c 5a 25 2c 44 25 2c 45  25 3a 75 5f 25 3d 5a 25  |,Z%,D%,E%:u_%=Z%|
00002c40  21 38 0d 01 66 12 cd 3a  f2 4d 28 5a 25 2c 33 32  |!8..f..:.M(Z%,32|
00002c50  30 29 3a e1 0d 01 67 13  dd f2 4b 28 53 24 29 e7  |0):...g...K(S$).|
00002c60  53 24 3c 3e a4 72 8c 0d  01 68 08 c8 8e 5a ca 0d  |S$<>.r...h...Z..|
00002c70  01 69 0e c9 47 3a f2 59  79 28 53 24 29 0d 01 6a  |.i..G:.Yy(S$)..j|
00002c80  0e c9 4e 3a f2 65 5f 28  53 24 29 0d 01 6b 0e c9  |..N:.e_(S$)..k..|
00002c90  57 3a f2 41 79 28 53 24  29 0d 01 6c 0d c9 72 3a  |W:.Ay(S$)..l..r:|
00002ca0  f2 73 28 53 24 29 0d 01  6d 05 cb 0d 01 6e 0d cd  |.s(S$)..m....n..|
00002cb0  3a f2 52 3a f2 67 3a e1  0d 01 6f 10 dd f2 57 5f  |:.R:.g:...o...W_|
00002cc0  c8 8e 57 25 21 31 32 ca  0d 01 70 0e c9 30 3a c8  |..W%!12...p..0:.|
00002cd0  8e 57 25 21 38 ca 0d 01  71 1f c9 77 5f 25 3a c8  |.W%!8...q..w_%:.|
00002ce0  99 26 34 30 30 64 65 2c  22 2f 22 2b 43 24 3a 77  |.&400de,"/"+C$:w|
00002cf0  5f 25 3d 2d 31 0d 01 72  1f c9 72 5f 25 3a c8 99  |_%=-1..r..r_%:..|
00002d00  26 34 30 30 64 65 2c 22  2f 22 2b 4a 24 3a 72 5f  |&400de,"/"+J$:r_|
00002d10  25 3d 2d 31 0d 01 73 05  cb 0d 01 74 07 cb 3a e1  |%=-1..s....t..:.|
00002d20  0d 01 75 5d dd f2 60 79  ea 57 5f 25 2c 70 24 2c  |..u]..`y.W_%,p$,|
00002d30  55 25 2c 46 25 2c 51 25  2c 56 25 3a 70 24 3d a4  |U%,F%,Q%,V%:p$=.|
00002d40  50 28 57 25 2b 34 34 29  3a 57 5f 25 3d 57 25 21  |P(W%+44):W_%=W%!|
00002d50  34 30 3a 55 25 3d 57 25  21 32 30 3a 46 25 3d 57  |40:U%=W%!20:F%=W|
00002d60  25 21 32 34 3a 51 25 3d  57 25 21 32 38 3a 56 25  |%!24:Q%=W%!28:V%|
00002d70  3d 57 25 21 33 32 3a c8  8e 57 5f 25 ca 0d 01 76  |=W%!32:..W_%...v|
00002d80  0a c9 79 3a f2 78 79 0d  01 77 07 cb 3a e1 0d 01  |..y:.xy..w..:...|
00002d90  78 5d dd f2 42 5f ea 57  5f 25 2c 64 24 2c 55 25  |x]..B_.W_%,d$,U%|
00002da0  2c 46 25 2c 51 25 2c 56  25 3a 55 25 3d 57 25 21  |,F%,Q%,V%:U%=W%!|
00002db0  32 30 3a 46 25 3d 57 25  21 32 34 3a 51 25 3d 57  |20:F%=W%!24:Q%=W|
00002dc0  25 21 32 38 3a 56 25 3d  57 25 21 33 32 3a 57 5f  |%!28:V%=W%!32:W_|
00002dd0  25 3d 57 25 21 34 30 3a  64 24 3d a4 4c 28 57 25  |%=W%!40:d$=.L(W%|
00002de0  2b 34 34 29 3a c8 8e 57  5f 25 ca 0d 01 79 10 c9  |+44):..W_%...y..|
00002df0  79 3a 51 25 3d a4 76 28  64 24 29 0d 01 7a 10 c9  |y:Q%=.v(d$)..z..|
00002e00  61 3a e7 ac a4 5a 28 64  24 29 8c 0d 01 7b 0a f2  |a:...Z(d$)...{..|
00002e10  73 28 64 24 29 0d 01 7c  05 cd 0d 01 7d 12 7f f2  |s(d$)..|....}...|
00002e20  44 28 79 79 25 2c a4 77  28 31 29 29 0d 01 7e 07  |D(yy%,.w(1))..~.|
00002e30  cb 3a e1 0d 01 7f 1e dd  f2 61 5f ea 53 24 2c 4e  |.:.......a_.S$,N|
00002e40  5f 25 3a e7 28 57 25 21  31 32 29 3c 3e 75 5f 25  |_%:.(W%!12)<>u_%|
00002e50  8c 0d 01 80 0a f2 50 28  31 30 29 0d 01 81 20 cc  |......P(10)... .|
00002e60  4e 5f 25 3d b9 3a 53 24  3d a4 50 28 57 25 2b 34  |N_%=.:S$=.P(W%+4|
00002e70  34 29 3a c8 8e 57 25 21  34 30 ca 0d 01 82 13 c9  |4):..W%!40......|
00002e80  61 3a f2 4b 28 53 24 29  3a 4e 5f 25 3d a3 0d 01  |a:.K(S$):N_%=...|
00002e90  83 11 7f f2 50 28 31 30  29 3a 4e 5f 25 3d a3 0d  |....P(10):N_%=..|
00002ea0  01 84 0b cb 3a e7 4e 5f  25 8c 0d 01 85 39 57 25  |....:.N_%....9W%|
00002eb0  21 31 32 3d 47 75 25 3a  57 25 21 31 36 3d 33 3a  |!12=Gu%:W%!16=3:|
00002ec0  c8 99 26 34 30 30 65 37  2c 31 38 2c 57 25 2c 57  |..&400e7,18,W%,W|
00002ed0  25 21 32 30 2c 57 25 21  32 34 3a 4b 75 25 3d 57  |%!20,W%!24:Ku%=W|
00002ee0  25 21 38 0d 01 86 05 cd  0d 01 87 07 cd 3a e1 0d  |%!8..........:..|
00002ef0  01 88 1a dd a4 5f 28 50  24 29 ea 45 25 2c 4d 25  |....._(P$).E%,M%|
00002f00  3a e7 50 24 3c 3e 22 22  8c 0d 01 89 5a e3 45 25  |:.P$<>""....Z.E%|
00002f10  3d 31 b8 a9 28 50 24 29  3a 4d 25 3d a7 22 41 42  |=1..(P$):M%=."AB|
00002f20  43 44 45 46 47 48 49 4a  4b 4c 4d 4e 4f 50 51 52  |CDEFGHIJKLMNOPQR|
00002f30  53 54 55 56 57 58 59 5a  22 2c c1 50 24 2c 45 25  |STUVWXYZ",.P$,E%|
00002f40  2c 31 29 29 3a e7 4d 25  3e 30 8c c1 50 24 2c 45  |,1)):.M%>0..P$,E|
00002f50  25 2c 31 29 3d bd 28 4d  25 2b 97 28 22 61 22 29  |%,1)=.(M%+.("a")|
00002f60  2d 31 29 0d 01 8a 07 ed  45 25 0d 01 8b 09 cd 3a  |-1).....E%.....:|
00002f70  3d 50 24 0d 01 8c 30 dd  a4 5a 28 4d 24 29 3d 28  |=P$...0..Z(M$)=(|
00002f80  a4 4d 28 4d 24 29 3d 22  22 29 84 28 a4 5f 28 4d  |.M(M$)="").(._(M|
00002f90  24 29 3d 6a 24 29 84 28  a7 4d 24 2c 22 2e 22 29  |$)=j$).(.M$,".")|
00002fa0  3c 31 29 0d 01 8d 20 dd  a4 76 28 59 24 29 ea 41  |<1)... ..v(Y$).A|
00002fb0  24 2c 45 25 3a e7 21 4f  80 28 ac a4 5a 28 46 24  |$,E%:.!O.(..Z(F$|
00002fc0  29 29 8c 0d 01 8e 16 45  25 3d a7 59 24 2c 22 2e  |)).....E%=.Y$,".|
00002fd0  22 29 3a e7 45 25 3e 30  8c 0d 01 8f 2a 41 24 3d  |"):.E%>0....*A$=|
00002fe0  c0 46 24 2c a9 28 46 24  29 2d a9 28 a4 4d 28 46  |.F$,.(F$)-.(.M(F|
00002ff0  24 29 29 29 2b a4 4d 28  59 24 29 3a f2 41 79 28  |$)))+.M(Y$):.Ay(|
00003000  41 24 29 0d 01 90 05 cd  0d 01 91 2a cd 3a 74 24  |A$)........*.:t$|
00003010  3d 59 24 3a 41 24 3d 22  22 3a e7 21 51 79 3c 3e  |=Y$:A$="":.!Qy<>|
00003020  30 8c 41 24 2b 3d 22 20  2d 4d 75 6c 74 69 44 45  |0.A$+=" -MultiDE|
00003030  46 22 0d 01 92 1b e7 21  47 79 3c 3e 30 8c 41 24  |F".....!Gy<>0.A$|
00003040  2b 3d 22 20 2d 57 45 6e  64 52 74 6e 22 0d 01 93  |+=" -WEndRtn"...|
00003050  19 e7 21 69 3c 3e 30 8c  41 24 2b 3d 22 20 2d 4e  |..!i<>0.A$+=" -N|
00003060  75 6d 62 65 72 22 0d 01  94 15 e7 21 50 3d 30 8c  |umber".....!P=0.|
00003070  41 24 2b 3d 22 20 2d 53  57 49 22 0d 01 95 19 e7  |A$+=" -SWI".....|
00003080  21 55 79 3d 30 8c 41 24  2b 3d 22 20 2d 53 57 49  |!Uy=0.A$+=" -SWI|
00003090  42 61 64 22 0d 01 96 1a  e7 21 6e 3d 30 8c 41 24  |Bad".....!n=0.A$|
000030a0  2b 3d 22 20 2d 53 57 49  45 78 69 73 74 22 0d 01  |+=" -SWIExist"..|
000030b0  97 1b e7 21 4a 79 3c 3e  30 8c 41 24 2b 3d 22 20  |...!Jy<>0.A$+=" |
000030c0  2d 4c 69 62 72 61 72 79  22 0d 01 98 19 e7 21 46  |-Library".....!F|
000030d0  79 3d 30 8c 41 24 2b 3d  22 20 2d 55 6e 75 73 65  |y=0.A$+=" -Unuse|
000030e0  64 22 0d 01 99 1d e7 21  50 79 3c 3e 30 8c 41 24  |d".....!Py<>0.A$|
000030f0  2b 3d 22 20 2d 45 56 61  72 69 61 62 6c 65 22 0d  |+=" -EVariable".|
00003100  01 9a 0d e7 ac a4 5a 28  46 24 29 8c 0d 01 9b 19  |......Z(F$).....|
00003110  e7 21 45 79 3d 30 8c 41  24 2b 3d 22 20 2d 53 69  |.!Ey=0.A$+=" -Si|
00003120  6e 67 6c 65 22 0d 01 9c  55 41 24 2b 3d 22 20 2d  |ngle"...UA$+=" -|
00003130  52 65 64 75 63 65 56 61  72 20 22 2b a4 78 28 43  |ReduceVar "+.x(C|
00003140  79 29 3a 41 24 2b 3d 22  20 2d 52 65 64 75 63 65  |y):A$+=" -Reduce|
00003150  52 74 6e 20 22 2b a4 63  28 67 29 3a e7 21 53 79  |Rtn "+.c(g):.!Sy|
00003160  3c 3e 30 8c 41 24 2b 3d  22 20 2d 4c 69 73 74 4f  |<>0.A$+=" -ListO|
00003170  75 74 20 22 2b c3 28 42  79 29 0d 01 9d 0f cd 3a  |ut "+.(By).....:|
00003180  e7 ac a4 5a 28 43 24 29  8c 0d 01 9e 18 e7 21 41  |...Z(C$)......!A|
00003190  79 3d 30 8c 41 24 2b 3d  22 20 2d 53 74 61 74 73  |y=0.A$+=" -Stats|
000031a0  22 0d 01 9f 16 e7 21 75  3d 30 8c 41 24 2b 3d 22  |".....!u=0.A$+="|
000031b0  20 2d 45 56 41 4c 22 0d  01 a0 16 e7 21 63 3d 30  | -EVAL".....!c=0|
000031c0  8c 41 24 2b 3d 22 20 2d  44 41 54 41 22 0d 01 a1  |.A$+=" -DATA"...|
000031d0  16 e7 21 68 3d 30 8c 41  24 2b 3d 22 20 2d 52 45  |..!h=0.A$+=" -RE|
000031e0  41 44 22 0d 01 a2 16 e7  21 76 3d 30 8c 41 24 2b  |AD".....!v=0.A$+|
000031f0  3d 22 20 2d 47 4f 54 4f  22 0d 01 a3 17 e7 21 62  |=" -GOTO".....!b|
00003200  3c 3e 30 8c 41 24 2b 3d  22 20 2d 4c 69 73 74 22  |<>0.A$+=" -List"|
00003210  0d 01 a4 0f cd 3a e7 ac  a4 5a 28 48 24 29 8c 0d  |.....:...Z(H$)..|
00003220  01 a5 1b e7 21 58 79 3c  3e 30 8c 41 24 2b 3d 22  |....!Xy<>0.A$+="|
00003230  20 2d 55 6e 75 73 65 64  53 22 0d 01 a6 1b e7 21  | -UnusedS".....!|
00003240  74 3c 3e 30 8c 41 24 2b  3d 22 20 2d 57 53 70 4c  |t<>0.A$+=" -WSpL|
00003250  61 62 65 6c 22 0d 01 a7  0e cd 3a e7 a4 5a 28 4a  |abel".....:..Z(J|
00003260  24 29 8c 0d 01 a8 12 41  24 2b 3d 22 20 2d 58 52  |$).....A$+=" -XR|
00003270  65 66 20 30 22 0d 01 a9  b6 cc 41 24 2b 3d 22 20  |ef 0".....A$+=" |
00003280  2d 58 56 61 72 20 22 2b  c3 28 21 6c 29 3a 41 24  |-XVar "+.(!l):A$|
00003290  2b 3d 22 20 2d 58 49 6e  63 56 61 72 20 22 2b a4  |+=" -XIncVar "+.|
000032a0  78 28 66 29 3a 41 24 2b  3d 22 20 2d 58 52 74 6e  |x(f):A$+=" -XRtn|
000032b0  20 22 2b c3 28 21 6d 29  3a 41 24 2b 3d 22 20 2d  | "+.(!m):A$+=" -|
000032c0  58 49 6e 63 52 74 6e 20  22 2b a4 63 28 4d 79 29  |XIncRtn "+.c(My)|
000032d0  3a 41 24 2b 3d 22 20 2d  53 52 65 66 20 22 2b a4  |:A$+=" -SRef "+.|
000032e0  49 28 5a 25 28 29 29 3a  41 24 2b 3d 22 20 2d 53  |I(Z%()):A$+=" -S|
000032f0  56 61 72 20 22 2b a4 49  28 53 25 28 29 29 3a 41  |Var "+.I(S%()):A|
00003300  24 2b 3d 22 20 2d 53 52  74 6e 20 22 2b a4 49 28  |$+=" -SRtn "+.I(|
00003310  4d 25 28 29 29 3a e7 21  6f 3d 30 8c 41 24 2b 3d  |M%()):.!o=0.A$+=|
00003320  22 20 2d 44 65 6c 65 74  65 64 22 0d 01 aa 90 cd  |" -Deleted".....|
00003330  3a f2 74 28 22 42 61 73  43 6f 6d 70 72 65 73 73  |:.t("BasCompress|
00003340  24 4f 70 74 69 6f 6e 73  22 2c 41 24 29 3a f2 71  |$Options",A$):.q|
00003350  28 22 42 61 73 43 6f 6d  70 72 65 73 73 24 53 70  |("BasCompress$Sp|
00003360  65 63 69 61 6c 22 2c 48  24 29 3a f2 71 28 22 42  |ecial",H$):.q("B|
00003370  61 73 43 6f 6d 70 72 65  73 73 24 58 52 65 66 22  |asCompress$XRef"|
00003380  2c 4a 24 29 3a f2 71 28  22 42 61 73 43 6f 6d 70  |,J$):.q("BasComp|
00003390  72 65 73 73 24 4f 75 74  22 2c 46 24 29 3a f2 71  |ress$Out",F$):.q|
000033a0  28 22 42 61 73 43 6f 6d  70 72 65 73 73 24 4c 6f  |("BasCompress$Lo|
000033b0  67 22 2c 43 24 29 3a e7  21 77 8c 0d 01 ab 1d f2  |g",C$):.!w......|
000033c0  74 28 22 4d 61 69 6e 22  2c 59 24 29 3a 59 24 3d  |t("Main",Y$):Y$=|
000033d0  22 3c 4d 61 69 6e 3e 22  0d 01 ac 17 cd 3a ea 85  |"<Main>".....:..|
000033e0  3a ee 85 ea f7 85 3a f2  58 28 49 29 3a f2 4c 0d  |:.....:.X(I):.L.|
000033f0  01 ad 0c e7 a4 5a 28 43  24 29 8c 0d 01 ae 34 f2  |.....Z(C$)....4.|
00003400  58 28 46 5f 29 3a c8 99  26 34 30 30 64 65 2c 22  |X(F_):..&400de,"|
00003410  42 61 73 43 6f 6d 70 72  65 73 73 20 22 2b 59 24  |BasCompress "+Y$|
00003420  2b 22 20 7b 20 3e 20 6e  75 6c 6c 3a 20 7d 22 0d  |+" { > null: }".|
00003430  01 af 26 cc f2 58 28 72  79 29 3a c8 99 26 34 30  |..&..X(ry):..&40|
00003440  30 64 65 2c 22 42 61 73  43 6f 6d 70 72 65 73 73  |0de,"BasCompress|
00003450  20 22 2b 59 24 0d 01 b0  24 cd 3a f7 85 3a f2 58  | "+Y$...$.:..:.X|
00003460  28 49 29 3a e7 28 28 21  56 29 3c 3e 30 29 80 28  |(I):.((!V)<>0).(|
00003470  ac a4 5a 28 43 24 29 29  8c 0d 01 b1 0e f2 69 28  |..Z(C$))......i(|
00003480  77 5f 25 2c 43 24 29 0d  01 b2 1b cd 3a e7 28 28  |w_%,C$).....:.((|
00003490  21 71 29 3c 3e 30 29 80  28 ac a4 5a 28 4a 24 29  |!q)<>0).(..Z(J$)|
000034a0  29 8c 0d 01 b3 0e f2 69  28 72 5f 25 2c 4a 24 29  |)......i(r_%,J$)|
000034b0  0d 01 b4 1b cd 3a e7 28  28 21 65 29 3c 3e 30 29  |.....:.((!e)<>0)|
000034c0  80 28 ac a4 5a 28 46 24  29 29 8c 0d 01 b5 0f c8  |.(..Z(F$))......|
000034d0  99 26 34 30 30 64 65 2c  46 24 0d 01 b6 08 cd 3a  |.&400de,F$.....:|
000034e0  3d 30 0d 01 b7 3e dd f2  69 28 f8 6e 75 25 2c 71  |=0...>..i(.nu%,q|
000034f0  24 29 ea 4d 25 2c 56 79  25 2c 50 79 25 2c 56 75  |$).M%,Vy%,Py%,Vu|
00003500  25 3a c8 99 38 2c 35 2c  71 24 b8 50 79 25 2c 2c  |%:..8,5,q$.Py%,,|
00003510  56 79 25 2c 2c 7a 25 3a  e7 50 79 25 3c 3e 30 8c  |Vy%,,z%:.Py%<>0.|
00003520  0d 01 b8 a1 4d 25 3d a4  41 28 32 35 36 29 3a 4d  |....M%=.A(256):M|
00003530  25 21 32 30 3d 2d 31 3a  4d 25 21 32 38 3d 30 3a  |%!20=-1:M%!28=0:|
00003540  4d 25 21 33 32 3d 30 3a  4d 25 21 33 36 3d 7a 25  |M%!32=0:M%!36=z%|
00003550  3a 4d 25 21 34 30 3d 28  56 79 25 80 26 66 66 66  |:M%!40=(Vy%.&fff|
00003560  30 30 29 3e 3e 38 3a f2  56 28 4d 25 2b 34 34 2c  |00)>>8:.V(M%+44,|
00003570  71 24 29 3a 4d 25 21 30  3d 28 a9 28 71 24 29 2b  |q$):M%!0=(.(q$)+|
00003580  31 2b 33 2b 34 34 29 80  28 ac 33 29 3a 4d 25 21  |1+3+44).(.3):M%!|
00003590  31 32 3d 30 3a 4d 25 21  31 36 3d 35 3a c8 99 26  |12=0:M%!16=5:..&|
000035a0  34 30 30 65 37 2c 31 38  2c 4d 25 2c 30 3a 6e 75  |400e7,18,M%,0:nu|
000035b0  25 3d 4d 25 21 38 3a f2  4d 28 4d 25 2c 32 35 36  |%=M%!8:.M(M%,256|
000035c0  29 0d 01 b9 07 cd 3a e1  0d 01 ba 5a dd f2 74 28  |).....:....Z..t(|
000035d0  7a 24 2c 72 24 29 ea 4d  25 3a 4d 25 3d a4 41 28  |z$,r$).M%:M%=.A(|
000035e0  35 31 32 29 3a f2 56 28  4d 25 2c 7a 24 29 3a f2  |512):.V(M%,z$):.|
000035f0  56 28 4d 25 2b 32 35 36  2c 72 24 29 3a c8 99 33  |V(M%+256,r$):..3|
00003600  36 2c 4d 25 2c 4d 25 2b  32 35 36 2c a9 28 72 24  |6,M%,M%+256,.(r$|
00003610  29 2c 30 2c 30 3a f2 4d  28 4d 25 2c 35 31 32 29  |),0,0:.M(M%,512)|
00003620  3a e1 0d 01 bb 16 dd f2  71 28 7a 24 2c 72 24 29  |:.......q(z$,r$)|
00003630  e7 a4 5a 28 72 24 29 8c  0d 01 bc 18 c8 99 26 32  |..Z(r$).......&2|
00003640  30 30 32 34 2c 7a 24 2c  30 2c 2d 31 2c 30 2c 32  |0024,z$,0,-1,0,2|
00003650  0d 01 bd 0e cc f2 74 28  7a 24 2c 72 24 29 0d 01  |......t(z$,r$)..|
00003660  be 07 cd 3a e1 0d 01 bf  43 dd a4 49 28 45 25 28  |...:....C..I(E%(|
00003670  29 29 ea 45 25 2c 4e 25  2c 45 24 2c 50 24 3a 45  |)).E%,N%,E$,P$:E|
00003680  24 3d 22 22 3a 45 25 3d  30 3a 4e 25 3d b9 3a c8  |$="":E%=0:N%=.:.|
00003690  95 4e 25 80 45 25 3c 77  25 3a c8 8e 45 25 28 45  |.N%.E%<w%:..E%(E|
000036a0  25 29 80 28 ac 4d 29 ca  0d 01 c0 0d c9 78 3a 50  |%).(.M)......x:P|
000036b0  24 3d 22 4e 22 0d 01 c1  0e c9 68 79 3a 50 24 3d  |$="N".....hy:P$=|
000036c0  22 44 22 0d 01 c2 0e c9  78 79 3a 50 24 3d 22 55  |"D".....xy:P$="U|
000036d0  22 0d 01 c3 0d c9 7a 3a  50 24 3d 22 54 22 0d 01  |".....z:P$="T"..|
000036e0  c4 0e c9 49 79 3a 50 24  3d 22 50 22 0d 01 c5 09  |...Iy:P$="P"....|
000036f0  7f 4e 25 3d a3 0d 01 c6  0a cb 3a e7 4e 25 8c 0d  |.N%=......:.N%..|
00003700  01 c7 0e e7 45 25 28 45  25 29 80 4d 8c 0d 01 c8  |....E%(E%).M....|
00003710  0e 45 24 2b 3d a4 5f 28  50 24 29 0d 01 c9 0b cc  |.E$+=._(P$).....|
00003720  45 24 2b 3d 50 24 0d 01  ca 0b cd 3a 45 25 2b 3d  |E$+=P$.....:E%+=|
00003730  31 0d 01 cb 1a cd 3a ce  3a e7 a9 28 45 24 29 3d  |1.....:.:..(E$)=|
00003740  30 8c 45 24 3d 22 22 22  22 22 22 0d 01 cc 07 3d  |0.E$=""""""....=|
00003750  45 24 0d 01 cd 20 dd a4  78 28 53 29 ea 45 24 3a  |E$... ..x(S).E$:|
00003760  45 24 3d 22 22 3a e7 53  21 30 8c 45 24 2b 3d 22  |E$="":.S!0.E$+="|
00003770  69 22 0d 01 ce 10 e7 53  21 34 8c 45 24 2b 3d 22  |i".....S!4.E$+="|
00003780  72 22 0d 01 cf 10 e7 53  21 38 8c 45 24 2b 3d 22  |r".....S!8.E$+="|
00003790  73 22 0d 01 d0 11 e7 53  21 31 32 8c 45 24 2b 3d  |s".....S!12.E$+=|
000037a0  22 49 22 0d 01 d1 11 e7  53 21 31 36 8c 45 24 2b  |"I".....S!16.E$+|
000037b0  3d 22 52 22 0d 01 d2 11  e7 53 21 32 30 8c 45 24  |="R".....S!20.E$|
000037c0  2b 3d 22 53 22 0d 01 d3  16 e7 a9 28 45 24 29 3d  |+="S"......(E$)=|
000037d0  30 8c 45 24 3d 22 22 22  22 22 22 0d 01 d4 07 3d  |0.E$=""""""....=|
000037e0  45 24 0d 01 d5 20 dd a4  63 28 53 29 ea 45 24 3a  |E$... ..c(S).E$:|
000037f0  45 24 3d 22 22 3a e7 53  21 30 8c 45 24 2b 3d 22  |E$="":.S!0.E$+="|
00003800  70 22 0d 01 d6 10 e7 53  21 34 8c 45 24 2b 3d 22  |p".....S!4.E$+="|
00003810  66 22 0d 01 d7 16 e7 a9  28 45 24 29 3d 30 8c 45  |f"......(E$)=0.E|
00003820  24 3d 22 22 22 22 22 22  0d 01 d8 07 3d 45 24 0d  |$=""""""....=E$.|
00003830  01 d9 10 dd f2 5a 79 c8  8e 57 25 21 31 36 ca 0d  |.....Zy..W%!16..|
00003840  01 da 0d c9 31 32 38 32  3a f2 4f 79 0d 01 db 0a  |....1282:.Oy....|
00003850  c9 31 3a f2 60 79 0d 01  dc 0a c9 32 3a f2 61 5f  |.1:.`y.....2:.a_|
00003860  0d 01 dd 0a c9 33 3a f2  42 5f 0d 01 de 0f c9 26  |.....3:.B_.....&|
00003870  34 30 30 63 30 3a f2 71  79 0d 01 df 0e c9 26 34  |400c0:.qy.....&4|
00003880  30 30 63 31 3a f2 70 0d  01 e0 09 c9 38 3a f2 6d  |00c1:.p.....8:.m|
00003890  0d 01 e1 0f c9 26 34 30  30 63 63 3a f2 54 79 0d  |.....&400cc:.Ty.|
000038a0  01 e2 0b c9 31 30 3a f2  5a 5f 0d 01 e3 09 c9 30  |....10:.Z_.....0|
000038b0  3a f2 46 0d 01 e4 07 cb  3a e1 0d 01 e5 14 dd f2  |:.F.....:.......|
000038c0  54 79 ea 5a 24 3a c8 8e  57 25 21 32 30 ca 0d 01  |Ty.Z$:..W%!20...|
000038d0  e6 17 c9 58 25 3a 5a 24  3d 22 57 69 6e 43 68 6f  |...X%:Z$="WinCho|
000038e0  69 63 65 73 22 0d 01 e7  17 c9 54 25 3a 5a 24 3d  |ices".....T%:Z$=|
000038f0  22 57 69 6e 43 6f 6e 74  72 6f 6c 22 0d 01 e8 0e  |"WinControl"....|
00003900  cb 3a e7 5a 24 3c 3e 22  22 8c 0d 01 e9 73 5a 24  |.:.Z$<>""....sZ$|
00003910  3d a4 47 28 5a 24 29 3a  57 25 21 31 36 3d 26 34  |=.G(Z$):W%!16=&4|
00003920  30 30 63 63 3a 57 25 21  31 32 3d 57 25 21 38 3a  |00cc:W%!12=W%!8:|
00003930  24 28 57 25 2b 32 38 29  3d 22 62 61 73 63 6f 6d  |$(W%+28)="bascom|
00003940  70 22 2b bd 30 3a 24 28  57 25 2b 33 36 29 3d 5a  |p"+.0:$(W%+36)=Z|
00003950  24 2b bd 30 3a 57 25 21  30 3d 28 33 36 2b a9 28  |$+.0:W%!0=(36+.(|
00003960  5a 24 29 2b 34 29 80 2d  34 3a c8 99 26 34 30 30  |Z$)+4).-4:..&400|
00003970  65 37 2c 31 37 2c 57 25  2c 57 25 21 34 0d 01 ea  |e7,17,W%,W%!4...|
00003980  07 cd 3a e1 0d 01 eb 0a  dd a4 4b 3d 31 39 0d 01  |..:.......K=19..|
00003990  ec 19 dd f2 6c 79 28 62  4a 25 2c 46 6c 25 29 e7  |....ly(bJ%,Fl%).|
000039a0  a4 4b 3c 46 6c 25 8c 0d  01 ed 0d 85 31 2c 22 45  |.K<Fl%......1,"E|
000039b0  49 4c 31 22 0d 01 ee 0d  cd 3a e7 62 4a 25 3c 31  |IL1".....:.bJ%<1|
000039c0  8c 0d 01 ef 0d 85 31 2c  22 45 49 4c 32 22 0d 01  |......1,"EIL2"..|
000039d0  f0 69 cd 3a 5f 5f 25 3d  62 4a 25 3a de 41 24 28  |.i.:__%=bJ%:.A$(|
000039e0  5f 5f 25 2d 31 29 3a de  46 25 28 5f 5f 25 2d 31  |__%-1):.F%(__%-1|
000039f0  29 3a 58 4a 25 3d 30 3a  de 76 79 25 32 35 36 3a  |):XJ%=0:.vy%256:|
00003a00  4c 5f 25 3d 34 30 3a 73  25 3d 30 3a 65 79 25 3d  |L_%=40:s%=0:ey%=|
00003a10  31 32 3a 45 75 25 3d a3  3a de 45 24 28 4c 5f 25  |12:Eu%=.:.E$(L_%|
00003a20  2d 31 29 3a 71 79 25 3d  a3 3a 64 79 25 3d a3 3a  |-1):qy%=.:dy%=.:|
00003a30  78 4a 25 3d b9 3a e1 0d  01 f1 1c dd f2 53 28 47  |xJ%=.:.......S(G|
00003a40  24 2c 4a 75 25 29 f2 58  5f 28 47 24 2c 4a 75 25  |$,Ju%).X_(G$,Ju%|
00003a50  29 3a e1 0d 01 f2 5f dd  f2 58 5f 28 47 24 2c 4a  |):...._..X_(G$,J|
00003a60  75 25 29 ea 56 79 25 2c  45 25 2c 52 24 2c 68 24  |u%).Vy%,E%,R$,h$|
00003a70  3a 45 25 3d 30 3a 56 79  25 3d b9 3a 52 24 3d c1  |:E%=0:Vy%=.:R$=.|
00003a80  47 24 2c 31 2b a7 47 24  2c 22 2e 22 29 29 3a c8  |G$,1+.G$,".")):.|
00003a90  95 45 25 3c 58 4a 25 80  56 79 25 3a 56 79 25 3d  |.E%<XJ%.Vy%:Vy%=|
00003aa0  28 52 24 3c 3e 41 24 28  45 25 29 29 3a e7 56 79  |(R$<>A$(E%)):.Vy|
00003ab0  25 8c 0d 01 f3 09 45 25  2b 3d 31 0d 01 f4 0d cd  |%.....E%+=1.....|
00003ac0  3a ce 3a e7 56 79 25 8c  0d 01 f5 0c e7 45 25 3d  |:.:.Vy%......E%=|
00003ad0  5f 5f 25 8c 0d 01 f6 0d  85 31 2c 22 45 49 4c 33  |__%......1,"EIL3|
00003ae0  22 0d 01 f7 4f cd 3a 41  24 28 45 25 29 3d 52 24  |"...O.:A$(E%)=R$|
00003af0  3a 68 24 3d 22 27 22 2b  47 24 2b 22 27 20 64 6f  |:h$="'"+G$+"' do|
00003b00  65 73 20 6e 6f 74 20 68  61 76 65 20 61 20 46 4e  |es not have a FN|
00003b10  5f 22 3a ea 85 3a ee 85  ea f7 85 3a f2 5a 28 68  |_":..:.....:.Z(h|
00003b20  24 2b 52 24 2b 22 5f 76  65 72 73 69 6f 6e 22 29  |$+R$+"_version")|
00003b30  0d 01 f8 52 46 25 28 45  25 29 3d a0 28 22 46 4e  |...RF%(E%)=.("FN|
00003b40  5f 22 2b 52 24 2b 22 5f  76 65 72 73 69 6f 6e 22  |_"+R$+"_version"|
00003b50  29 3a f7 85 3a 58 4a 25  2b 3d 31 3a ea 85 3a ee  |):..:XJ%+=1:..:.|
00003b60  85 ea f7 85 3a f2 5a 28  68 24 2b 22 5f 68 61 72  |....:.Z(h$+"_har|
00003b70  64 5f 69 6e 69 74 69 61  6c 69 73 65 5f 22 2b 52  |d_initialise_"+R|
00003b80  24 29 0d 01 f9 21 e7 a0  28 22 46 4e 5f 68 61 72  |$)...!..("FN_har|
00003b90  64 5f 69 6e 69 74 69 61  6c 69 73 65 5f 22 2b 52  |d_initialise_"+R|
00003ba0  24 29 8c 0d 01 fa 11 85  31 2c 22 45 49 4c 35 20  |$)......1,"EIL5 |
00003bb0  22 2b 47 24 0d 01 fb 08  cd 3a f7 85 0d 01 fc 12  |"+G$.....:......|
00003bc0  cd 3a e7 4a 75 25 3e 46  25 28 45 25 29 8c 0d 01  |.:.Ju%>F%(E%)...|
00003bd0  fd 11 85 31 2c 22 45 49  4c 34 20 22 2b 47 24 0d  |...1,"EIL4 "+G$.|
00003be0  01 fe 07 cd 3a e1 0d 01  ff 17 dd a4 53 28 75 24  |....:.......S(u$|
00003bf0  29 ea 85 3a ee 85 ea f7  85 3a f2 74 79 0d 02 00  |)..:.....:.ty...|
00003c00  0a 3d a0 28 75 24 29 0d  02 01 0d dd f2 74 79 e7  |.=.(u$)......ty.|
00003c10  78 4a 25 8c 0d 02 02 2d  85 9f 2c f6 24 2b 22 20  |xJ%....-..,.$+" |
00003c20  28 65 76 61 6c 75 61 74  69 6e 67 20 60 22 2b 75  |(evaluating `"+u|
00003c30  24 2b 22 27 20 5b 22 2b  c3 28 9e 29 2b 22 5d 29  |$+"' ["+.(.)+"])|
00003c40  22 0d 02 03 0a cc 85 9f  2c f6 24 0d 02 04 07 cd  |".......,.$.....|
00003c50  3a e1 0d 02 05 2b dd a4  4c 28 41 25 29 ea 4c 24  |:....+..L(A%).L$|
00003c60  3a c8 95 3f 41 25 3a 4c  24 2b 3d bd 28 3f 41 25  |:..?A%:L$+=.(?A%|
00003c70  29 3a 41 25 2b 3d 31 3a  ce 3a 3d 4c 24 0d 02 06  |):A%+=1:.:=L$...|
00003c80  3a dd a4 6e 28 41 25 2c  42 25 29 ea 4c 24 3a c8  |:..n(A%,B%).L$:.|
00003c90  95 42 25 3e 3d 31 80 3f  41 25 3a 4c 24 2b 3d bd  |.B%>=1.?A%:L$+=.|
00003ca0  28 3f 41 25 29 3a 41 25  2b 3d 31 3a 42 25 2d 3d  |(?A%):A%+=1:B%-=|
00003cb0  31 3a ce 3a 3d 4c 24 0d  02 07 2e dd a4 50 28 41  |1:.:=L$......P(A|
00003cc0  25 29 ea 4c 24 3a c8 95  3f 41 25 3e 33 31 3a 4c  |%).L$:..?A%>31:L|
00003cd0  24 2b 3d bd 28 3f 41 25  29 3a 41 25 2b 3d 31 3a  |$+=.(?A%):A%+=1:|
00003ce0  ce 3a 3d 4c 24 0d 02 08  21 dd f2 56 28 41 25 2c  |.:=L$...!..V(A%,|
00003cf0  4c 24 29 24 41 25 3d 4c  24 3a 41 25 3f a9 28 4c  |L$)$A%=L$:A%?.(L|
00003d00  24 29 3d 30 3a e1 0d 02  09 10 dd f2 5a 28 51 24  |$)=0:.......Z(Q$|
00003d10  29 e7 71 79 25 8c 0d 02  0a 09 e7 64 79 25 8c 0d  |).qy%......dy%..|
00003d20  02 0b 16 85 9f 2c f6 24  2b 22 20 5b 22 2b c3 9e  |.....,.$+" ["+..|
00003d30  2b 22 5d 2e 22 0d 02 0c  0a cc 85 9f 2c f6 24 0d  |+"].".......,.$.|
00003d40  02 0d 05 cd 0d 02 0e 0b  cc e7 ac 45 75 25 8c 0d  |...........Eu%..|
00003d50  02 0f 0c e7 73 25 3d 4c  5f 25 8c 0d 02 10 26 45  |....s%=L_%....&E|
00003d60  28 4c 5f 25 2d 31 29 3d  22 45 72 72 6f 72 73 20  |(L_%-1)="Errors |
00003d70  74 6f 6f 20 64 65 65 70  21 21 21 21 21 22 3a f2  |too deep!!!!!":.|
00003d80  59 0d 02 11 13 cd 3a e7  c2 51 24 2c 32 29 3d 22  |Y.....:..Q$,2)="|
00003d90  3a 20 22 8c 0d 02 12 13  51 24 3d c0 51 24 2c a9  |: ".....Q$=.Q$,.|
00003da0  28 51 24 29 2d 32 29 0d  02 13 0b cd 3a e7 64 79  |(Q$)-2).....:.dy|
00003db0  25 8c 0d 02 14 0d 45 24  28 73 25 29 3d f6 24 0d  |%.....E$(s%)=.$.|
00003dc0  02 15 0b cc e7 73 25 3d  30 8c 0d 02 16 4a 45 24  |.....s%=0....JE$|
00003dd0  28 73 25 29 3d 22 45 72  72 6f 72 20 60 22 2b f6  |(s%)="Error `"+.|
00003de0  24 2b 22 27 20 28 6c 69  6e 65 20 22 3a 45 24 28  |$+"' (line ":E$(|
00003df0  73 25 29 2b 3d c3 28 9e  29 2b 22 29 20 69 6e 20  |s%)+=.(.)+") in |
00003e00  22 3a 45 24 28 73 25 29  2b 3d 22 60 22 2b 51 24  |":E$(s%)+="`"+Q$|
00003e10  2b 22 27 22 0d 02 17 16  cc 45 24 28 73 25 29 3d  |+"'".....E$(s%)=|
00003e20  22 60 22 2b 51 24 2b 22  27 22 0d 02 18 05 cd 0d  |"`"+Q$+"'"......|
00003e30  02 19 11 cd 3a 73 25 2b  3d 31 3a 85 9f 2c 22 22  |....:s%+=1:..,""|
00003e40  0d 02 1a 05 cd 0d 02 1b  07 cd 3a e1 0d 02 1c 15  |..........:.....|
00003e50  dd f2 59 ea 53 79 25 2c  5a 79 24 3a e7 71 79 25  |..Y.Sy%,Zy$:.qy%|
00003e60  8c 0d 02 1d 09 e7 64 79  25 8c 0d 02 1e 20 f2 44  |......dy%.... .D|
00003e70  28 9f 2c f6 24 2b 22 20  5b 22 2b c3 28 9e 29 2b  |(.,.$+" ["+.(.)+|
00003e80  22 5d 2e 22 29 3a f2 46  3a e0 0d 02 1f 15 cc f2  |"]."):.F:.......|
00003e90  44 28 9f 2c f6 24 29 3a  e7 9f 3d 62 79 25 8c 0d  |D(.,.$):..=by%..|
00003ea0  02 20 08 f2 46 3a e0 0d  02 21 05 cd 0d 02 22 05  |. ..F:...!....".|
00003eb0  cd 0d 02 23 0d cc e7 65  79 25 3d 2d 32 8c 0d 02  |...#...ey%=-2...|
00003ec0  24 0a e7 73 25 3e 30 8c  0d 02 25 0d 85 a2 9f 2c  |$..s%>0...%....,|
00003ed0  45 24 28 30 29 0d 02 26  0b cc 85 a2 9f 2c f6 24  |E$(0)..&.....,.$|
00003ee0  0d 02 27 07 cd 3a e0 0d  02 28 0e cd 3a e7 65 79  |..'..:...(..:.ey|
00003ef0  25 3d 2d 33 8c 0d 02 29  38 24 76 79 25 3d 22 54  |%=-3...)8$vy%="T|
00003f00  41 53 4b 22 3a c8 99 26  34 30 30 63 30 2c 32 30  |ASK":..&400c0,20|
00003f10  30 2c 21 76 79 25 2c 22  4c 69 62 48 61 6e 64 6c  |0,!vy%,"LibHandl|
00003f20  65 72 22 2b bd 28 30 29  3a e7 73 25 8c 0d 02 2a  |er"+.(0):.s%...*|
00003f30  1c e3 53 79 25 3d 30 b8  73 25 2d 31 3a e7 53 79  |..Sy%=0.s%-1:.Sy|
00003f40  25 3c 28 73 25 2d 31 29  8c 0d 02 2b 15 f2 66 28  |%<(s%-1)...+..f(|
00003f50  45 24 28 53 79 25 29 2b  22 20 69 6e 22 29 0d 02  |E$(Sy%)+" in")..|
00003f60  2c 10 cc f2 66 28 45 24  28 53 79 25 29 29 0d 02  |,...f(E$(Sy%))..|
00003f70  2d 0a cd 3a ed 53 79 25  0d 02 2e 1e cc f2 66 28  |-..:.Sy%......f(|
00003f80  f6 24 2b 22 20 28 6c 69  6e 65 20 22 2b c3 28 9e  |.$+" (line "+.(.|
00003f90  29 2b 22 29 22 29 0d 02  2f 10 cd 3a c8 99 26 36  |)+")")../..:..&6|
00003fa0  30 30 64 64 3a e0 0d 02  30 0e cd 3a e7 65 79 25  |00dd:...0..:.ey%|
00003fb0  3e 3d 30 8c 0d 02 31 08  eb 65 79 25 0d 02 32 27  |>=0...1..ey%..2'|
00003fc0  cd 3a f1 22 41 6e 20 65  72 72 6f 72 20 68 61 73  |.:."An error has|
00003fd0  20 6f 63 63 75 72 65 64  2e 2e 2e 22 3a f1 3a e7  | occured...":.:.|
00003fe0  73 25 8c 0d 02 33 3a e3  53 79 25 3d 30 b8 73 25  |s%...3:.Sy%=0.s%|
00003ff0  2d 31 3a fb 28 28 37 2d  28 53 79 25 3c 3c 31 29  |-1:.((7-(Sy%<<1)|
00004000  29 80 36 29 2b 31 3a f1  45 24 28 53 79 25 29 3b  |).6)+1:.E$(Sy%);|
00004010  3a e7 53 79 25 3c 28 73  25 2d 31 29 8c 0d 02 34  |:.Sy%<(s%-1)...4|
00004020  0c f1 22 20 69 6e 20 22  3b 0d 02 35 0a cd 3a ed  |.." in ";..5..:.|
00004030  53 79 25 0d 02 36 1b cc  f1 f6 24 3b 22 20 28 6c  |Sy%..6....$;" (l|
00004040  69 6e 65 20 22 3b c3 28  9e 29 3b 22 29 22 0d 02  |ine ";.(.);")"..|
00004050  37 0c cd 3a f1 3a fb 37  3a e0 0d 02 38 07 cd 3a  |7..:.:.7:...8..:|
00004060  e1 0d 02 39 66 dd f2 66  28 67 24 29 ea 49 75 25  |...9f..f(g$).Iu%|
00004070  3a 49 75 25 3d 32 30 2b  28 a9 28 67 24 29 2b 35  |:Iu%=20+(.(g$)+5|
00004080  29 80 2d 34 3a 21 76 79  25 3d 49 75 25 3a 76 79  |).-4:!vy%=Iu%:vy|
00004090  25 21 31 36 3d 26 38 30  34 63 30 3a 24 28 76 79  |%!16=&804c0:$(vy|
000040a0  25 2b 32 30 29 3d 67 24  2b bd 28 31 30 29 2b bd  |%+20)=g$+.(10)+.|
000040b0  28 30 29 3a c8 99 26 36  30 30 65 37 2c 31 37 2c  |(0):..&600e7,17,|
000040c0  76 79 25 2c 30 3a e1 0d  02 3a 16 dd a4 5f 43 41  |vy%,0:...:..._CA|
000040d0  73 6d 5f 76 65 72 73 69  6f 6e 3d 31 34 0d 02 3b  |sm_version=14..;|
000040e0  e8 dd a4 5f 68 61 72 64  5f 69 6e 69 74 69 61 6c  |..._hard_initial|
000040f0  69 73 65 5f 43 41 73 6d  f2 53 28 22 3c 42 61 73  |ise_CAsm.S("<Bas|
00004100  69 63 56 5f 41 73 73 65  6d 62 6c 65 72 24 4c 69  |icV_Assembler$Li|
00004110  62 3e 2e 4d 69 73 63 22  2c 32 37 29 3a c8 99 35  |b>.Misc",27):..5|
00004120  2c 22 52 4d 45 6e 73 75  72 65 20 43 41 73 73 65  |,"RMEnsure CAsse|
00004130  6d 62 6c 65 72 20 30 2e  30 38 20 52 4d 4c 6f 61  |mbler 0.08 RMLoa|
00004140  64 20 53 79 73 74 65 6d  3a 4d 6f 64 75 6c 65 73  |d System:Modules|
00004150  2e 43 41 73 73 65 6d 62  6c 65 72 22 3a c8 99 35  |.CAssembler":..5|
00004160  2c 22 49 66 20 22 22 3c  43 41 73 6d 24 44 69 72  |,"If ""<CAsm$Dir|
00004170  3e 22 22 3d 22 22 22 22  20 54 68 65 6e 20 53 65  |>""="""" Then Se|
00004180  74 20 43 41 73 6d 24 44  69 72 20 3c 64 3e 2e 4c  |t CAsm$Dir <d>.L|
00004190  69 62 72 61 72 79 2e 43  41 73 6d 22 3a 43 41 73  |ibrary.CAsm":CAs|
000041a0  6d 4c 69 62 72 61 72 79  5f 73 74 64 6c 69 62 3d  |mLibrary_stdlib=|
000041b0  31 3a 43 41 73 6d 4c 69  62 72 61 72 79 5f 73 74  |1:CAsmLibrary_st|
000041c0  64 69 6f 3d 32 0d 02 3c  af 43 41 73 6d 4c 69 62  |dio=2..<.CAsmLib|
000041d0  72 61 72 79 5f 73 74 72  69 6e 67 3d 33 3a 58 4a  |rary_string=3:XJ|
000041e0  3d 34 3a 67 69 3d 35 3a  50 61 3d 36 3a 78 6c 3d  |=4:gi=5:Pa=6:xl=|
000041f0  37 3a 43 41 73 6d 4c 69  62 72 61 72 79 5f 77 69  |7:CAsmLibrary_wi|
00004200  6d 70 3d 38 3a 75 61 3d  39 3a 43 41 73 6d 4c 69  |mp=8:ua=9:CAsmLi|
00004210  62 72 61 72 79 5f 6d 65  73 73 61 67 65 3d 31 30  |brary_message=10|
00004220  3a 71 6c 3d 31 31 3a 41  6c 3d 31 32 3a 76 6c 3d  |:ql=11:Al=12:vl=|
00004230  31 33 3a 5f 69 3d 31 34  3a 6a 75 3d 31 35 3a 69  |13:_i=14:ju=15:i|
00004240  6c 3d 31 36 3a 5f 61 3d  31 37 3a 71 75 3d 31 38  |l=16:_a=17:qu=18|
00004250  3a 54 6c 3d 31 39 3a 64  4a 3d 32 30 3a 68 5f 3d  |:Tl=19:dJ=20:h_=|
00004260  32 31 3a 75 5f 3d 32 32  3a 62 6c 3d 32 33 3a 42  |21:u_=22:bl=23:B|
00004270  69 3d 32 34 0d 02 3d a7  6f 5f 3d 32 35 3a 60 61  |i=24..=.o_=25:`a|
00004280  3d 32 36 3a 60 3d 32 36  3a 4c 4a 3d 30 3a 5f 4a  |=26:`=26:LJ=0:_J|
00004290  3d 31 3a 4c 75 3d 32 3a  42 4a 3d 33 3a 49 5f 3d  |=1:Lu=2:BJ=3:I_=|
000042a0  34 3a 59 5f 3d 35 3a 61  5f 3d 36 3a 77 69 3d 37  |4:Y_=5:a_=6:wi=7|
000042b0  3a 48 61 3d 38 3a 65 61  3d 39 3a 54 3d 31 30 3a  |:Ha=8:ea=9:T=10:|
000042c0  51 3d 31 31 3a 6a 3d 31  32 3a 41 3d 31 33 3a 45  |Q=11:j=12:A=13:E|
000042d0  3d 31 34 3a 53 4a 3d 31  35 3a 6e 79 3d 26 36 64  |=14:SJ=15:ny=&6d|
000042e0  37 33 34 31 34 33 3a 46  79 25 3d 30 3a 49 79 25  |734143:Fy%=0:Iy%|
000042f0  3d 31 33 3a 52 3d 30 3a  42 3d 30 3a 64 3d 31 30  |=13:R=0:B=0:d=10|
00004300  2a 31 30 32 34 3a 4d 5f  3d 64 2b 28 31 2a 31 30  |*1024:M_=d+(1*10|
00004310  32 34 29 3a 6f 79 3d a3  3a 3d 30 0d 02 3e 40 dd  |24):oy=.:=0..>@.|
00004320  f2 45 5f 28 56 24 29 ea  4d 25 2c 60 25 2c 71 25  |.E_(V$).M%,`%,q%|
00004330  2c 4c 25 2c 4f 25 2c 50  25 2c 53 25 2c 47 24 3a  |,L%,O%,P%,S%,G$:|
00004340  ea 85 3a ee 85 ea f7 85  3a c8 99 26 34 30 30 65  |..:.....:..&400e|
00004350  63 2c 7a 79 25 2c 2d 31  3a f2 4c 0d 02 3f 52 7a  |c,zy%,-1:.L..?Rz|
00004360  79 25 3d 93 2d 33 32 37  36 38 3a c8 99 26 34 30  |y%=.-32768:..&40|
00004370  30 65 63 2c 7a 79 25 2b  33 32 37 36 38 2c 2d 31  |0ec,zy%+32768,-1|
00004380  b8 4c 25 3a 4c 25 2b 3d  33 32 37 36 38 3a 4f 25  |.L%:L%+=32768:O%|
00004390  3d 7a 79 25 2b 33 32 37  36 38 3a 50 25 3d 30 3a  |=zy%+32768:P%=0:|
000043a0  53 25 3d 31 34 3a e7 4f  25 3d 4c 25 8c 0d 02 40  |S%=14:.O%=L%...@|
000043b0  2f 85 31 2c 22 4e 6f 74  20 65 6e 6f 75 67 68 20  |/.1,"Not enough |
000043c0  6d 65 6d 6f 72 79 20 74  6f 20 73 74 61 72 74 20  |memory to start |
000043d0  61 70 70 6c 69 63 61 74  69 6f 6e 22 0d 02 41 0e  |application"..A.|
000043e0  cd 3a e7 46 79 25 3c 3e  30 8c 0d 02 42 0d 85 31  |.:.Fy%<>0...B..1|
000043f0  2c 22 45 49 43 31 22 0d  02 43 20 cd 3a de 6e 5f  |,"EIC1"..C .:.n_|
00004400  25 60 2a 38 3a de 5a 24  28 60 29 3a e7 a4 68 5f  |%`*8:.Z$(`):..h_|
00004410  44 45 46 41 55 4c 54 0d  02 44 33 c8 95 56 24 3c  |DEFAULT..D3..V$<|
00004420  3e 22 22 3a 47 24 3d c0  56 24 2c a7 56 24 2c 22  |>"":G$=.V$,.V$,"|
00004430  2c 22 29 2d 31 29 3a ea  85 3a ee 85 ea f7 85 3a  |,")-1):..:.....:|
00004440  f2 5a 28 22 45 49 43 32  22 29 0d 02 45 44 60 25  |.Z("EIC2")..ED`%|
00004450  3d a0 28 22 43 41 73 6d  4c 69 62 72 61 72 79 5f  |=.("CAsmLibrary_|
00004460  22 2b 47 24 29 3a f7 85  3a 71 25 3d 6e 5f 25 3a  |"+G$):..:q%=n_%:|
00004470  4d 25 3d 71 25 2b 28 46  79 25 2a 38 29 3a c8 95  |M%=q%+(Fy%*8):..|
00004480  4d 25 3e 71 25 3a e7 21  71 25 3d 60 25 8c 0d 02  |M%>q%:.!q%=`%...|
00004490  46 0b 71 25 3d 4d 25 2b  31 0d 02 47 0a cc 71 25  |F.q%=M%+1..G..q%|
000044a0  2b 3d 38 0d 02 48 0f cd  3a ce 3a e7 71 25 3d 4d  |+=8..H..:.:.q%=M|
000044b0  25 8c 0d 02 49 0c e7 46  79 25 3e 3d 60 8c 0d 02  |%...I..Fy%>=`...|
000044c0  4a 0d 85 31 2c 22 45 49  43 33 22 0d 02 4b 3e cd  |J..1,"EIC3"..K>.|
000044d0  3a 21 4d 25 3d 60 25 3a  5a 24 28 60 25 29 3d 47  |:!M%=`%:Z$(`%)=G|
000044e0  24 3a 46 79 25 2b 3d 31  3a 4f 25 3d 7a 79 25 2b  |$:Fy%+=1:O%=zy%+|
000044f0  33 32 37 36 38 3a 50 25  3d 30 3a e7 a4 53 28 22  |32768:P%=0:..S("|
00004500  46 4e 68 5f 22 2b 47 24  29 0d 02 4c 47 cd 3a 56  |FNh_"+G$)..LG.:V|
00004510  24 3d c1 56 24 2c a9 28  47 24 29 2b 32 29 3a c8  |$=.V$,.(G$)+2):.|
00004520  95 97 28 56 24 29 3d 97  28 22 20 22 29 3a 56 24  |..(V$)=.(" "):V$|
00004530  3d c1 56 24 2c 32 29 3a  ce 3a ce 3a c8 99 26 34  |=.V$,2):.:.:..&4|
00004540  30 30 65 63 2c 7a 79 25  2c 2d 31 3a f7 85 3a e1  |00ec,zy%,-1:..:.|
00004550  0d 02 4d 1c dd f2 60 ea  52 25 2c 4d 25 2c 45 25  |..M...`.R%,M%,E%|
00004560  2c 4a 79 25 3a e7 46 79  25 3d 30 8c 0d 02 4e 0f  |,Jy%:.Fy%=0...N.|
00004570  e7 a4 68 5f 44 45 46 41  55 4c 54 0d 02 4f 1f cd  |..h_DEFAULT..O..|
00004580  3a 4a 79 25 3d 6e 5f 25  3a 45 25 3d 46 79 25 3a  |:Jy%=n_%:E%=Fy%:|
00004590  e7 28 53 25 80 32 29 3d  30 8c 0d 02 50 2b de 4d  |.(S%.2)=0...P+.M|
000045a0  25 46 79 25 2a 34 3a c8  99 37 39 2c 46 79 25 2c  |%Fy%*4:..79,Fy%,|
000045b0  4d 25 2b 26 63 30 30 30  30 30 30 30 2c 33 2c 2c  |M%+&c0000000,3,,|
000045c0  4a 79 25 2c 38 0d 02 51  89 cd 3a 5b 4f 50 54 53  |Jy%,8..Q..:[OPTS|
000045d0  25 3a 2e 4c 79 20 44 43  44 6e 79 3a 44 43 44 74  |%:.Ly DCDny:DCDt|
000045e0  79 3a 5d 3a c8 95 45 25  3e 30 3a 5b 4f 50 54 53  |y:]:..E%>0:[OPTS|
000045f0  25 3a 44 43 44 21 4a 79  25 3a 44 43 44 4a 79 25  |%:DCD!Jy%:DCDJy%|
00004600  21 34 3a 5d 3a 4a 79 25  2b 3d 38 3a 45 25 2d 3d  |!4:]:Jy%+=8:E%-=|
00004610  31 3a ce 3a 5b 4f 50 54  53 25 3a 44 43 44 30 3a  |1:.:[OPTS%:DCD0:|
00004620  5d 3a 5b 4f 50 54 53 25  3a 41 4c 49 47 4e 3a 2e  |]:[OPTS%:ALIGN:.|
00004630  57 79 3a 5d 3a 4d 25 3d  50 25 3a e7 a4 6a 75 6d  |Wy:]:M%=P%:..jum|
00004640  70 62 6c 6f 63 6b 5f 44  45 46 41 55 4c 54 0d 02  |pblock_DEFAULT..|
00004650  52 4a 74 79 3d 28 50 25  2d 4d 25 29 3e 3e 32 3a  |RJty=(P%-M%)>>2:|
00004660  45 25 3d 46 79 25 3a 4a  79 25 3d 6e 5f 25 3a c8  |E%=Fy%:Jy%=n_%:.|
00004670  95 45 25 3e 30 3a 4d 25  3d 50 25 3a e7 a4 53 28  |.E%>0:M%=P%:..S(|
00004680  22 46 4e 6a 75 6d 70 62  6c 6f 63 6b 5f 22 2b 5a  |"FNjumpblock_"+Z|
00004690  24 28 21 4a 79 25 29 29  0d 02 53 25 4a 79 25 21  |$(!Jy%))..S%Jy%!|
000046a0  34 3d 28 50 25 2d 4d 25  29 3e 3e 32 3a 4a 79 25  |4=(P%-M%)>>2:Jy%|
000046b0  2b 3d 38 3a 45 25 2d 3d  31 3a ce 3a e1 0d 02 54  |+=8:E%-=1:.:...T|
000046c0  7e dd f2 67 79 ea 58 3a  5b 4f 50 54 53 25 3a 41  |~..gy.X:[OPTS%:A|
000046d0  4c 49 47 4e 3a 2e 59 79  3a 53 54 4d 46 44 28 41  |LIGN:.Yy:STMFD(A|
000046e0  29 21 2c 7b 34 2d 35 2c  45 7d 3a 42 4c 20 50 25  |)!,{4-5,E}:BL P%|
000046f0  2b 28 31 33 3c 3c 32 29  3a 2e 58 20 44 43 44 4c  |+(13<<2):.X DCDL|
00004700  79 2d 58 3a 44 43 44 57  79 2d 58 3a 44 43 44 52  |y-X:DCDWy-X:DCDR|
00004710  2d 58 3a 44 43 44 42 3a  44 43 44 64 3a 2e 55 3a  |-X:DCDB:DCDd:.U:|
00004720  44 43 44 30 3a 44 43 44  30 3a 44 43 44 30 3a 44  |DCD0:DCD0:DCD0:D|
00004730  43 44 30 3a 4c 44 52 20  41 2c 55 0d 02 55 bc 4c  |CD0:LDR A,U..U.L|
00004740  44 4d 46 44 28 41 29 21  2c 7b 54 2c 51 2c 6a 2c  |DMFD(A)!,{T,Q,j,|
00004750  45 7d 3a 4d 4f 56 70 63  2c 45 3a 42 49 43 20 35  |E}:MOVpc,E:BIC 5|
00004760  2c 45 2c 23 26 66 63 30  30 30 30 30 33 3a 4c 44  |,E,#&fc000003:LD|
00004770  4d 49 41 35 2c 7b 30 2d  34 7d 3a 41 44 44 30 2c  |MIA5,{0-4}:ADD0,|
00004780  30 2c 35 3a 41 44 44 31  2c 31 2c 35 3a 41 44 44  |0,5:ADD1,1,5:ADD|
00004790  32 2c 32 2c 35 3a 4d 4f  56 35 2c 23 30 3a 53 57  |2,2,5:MOV5,#0:SW|
000047a0  49 20 26 66 63 62 38 30  3a 53 54 52 76 63 30 2c  |I &fcb80:STRvc0,|
000047b0  55 2b 28 31 3c 3c 32 29  3a 53 54 52 76 63 31 2c  |U+(1<<2):STRvc1,|
000047c0  55 2b 28 33 3c 3c 32 29  3a 4c 44 4d 46 44 28 41  |U+(3<<2):LDMFD(A|
000047d0  29 21 2c 7b 34 2d 35 2c  70 63 7d 3a 2e 5a 79 3a  |)!,{4-5,pc}:.Zy:|
000047e0  a4 58 3a 4d 4f 56 32 2c  45 3a 4d 4f 56 31 2c 41  |.X:MOV2,E:MOV1,A|
000047f0  3a 4d 4f 56 30 2c 54 0d  02 56 71 53 57 49 20 26  |:MOV0,T..VqSWI &|
00004800  66 63 62 38 31 3a 4d 4f  56 76 63 31 2c 23 30 3a  |fcb81:MOVvc1,#0:|
00004810  53 54 52 76 63 31 2c 55  2b 28 33 3c 3c 32 29 3a  |STRvc1,U+(3<<2):|
00004820  4d 4f 56 70 63 2c 32 3a  4d 4f 56 31 33 2c 31 32  |MOVpc,2:MOV13,12|
00004830  3a 5d 3a 52 3d 50 25 3a  f2 43 3a f2 6a 3a 42 3d  |:]:R=P%:.C:.j:B=|
00004840  28 42 2b 33 29 80 2d 34  3a 50 25 2b 3d 42 2d 31  |(B+3).-4:P%+=B-1|
00004850  3a 4f 25 2b 3d 42 2d 31  3a 5b 4f 50 54 53 25 3a  |:O%+=B-1:[OPTS%:|
00004860  44 43 42 30 3a 5d 3a e1  0d 02 57 1c dd f2 77 5f  |DCB0:]:...W...w_|
00004870  e7 50 25 3c 3e 33 32 37  36 38 8c 85 31 2c 22 45  |.P%<>32768..1,"E|
00004880  49 43 34 22 0d 02 58 6f  5b 4f 50 54 53 25 3a 41  |IC4"..Xo[OPTS%:A|
00004890  44 52 34 2c 5f 3a 4d 4f  56 35 2c 23 6b 79 3a 53  |DR4,_:MOV5,#ky:S|
000048a0  57 49 20 26 66 63 62 38  30 3a a4 66 28 22 76 63  |WI &fcb80:.f("vc|
000048b0  22 2c 32 2c 74 75 29 3a  42 76 63 20 47 5f 3a 53  |",2,tu):Bvc G_:S|
000048c0  57 49 20 34 33 3a 2e 5f  3a 44 43 44 4c 79 2d 5f  |WI 43:._:DCDLy-_|
000048d0  3a 44 43 44 57 79 2d 5f  3a 44 43 44 52 2d 5f 3a  |:DCDWy-_:DCDR-_:|
000048e0  44 43 44 42 3a 44 43 44  64 3a 44 43 44 4d 5f 3a  |DCDB:DCDd:DCDM_:|
000048f0  5d 3a e1 0d 02 59 73 dd  a4 58 5b 4f 50 54 53 25  |]:...Ys..X[OPTS%|
00004900  3a 53 54 4d 46 44 28 41  29 21 2c 7b 54 2c 51 2c  |:STMFD(A)!,{T,Q,|
00004910  6a 2c 45 7d 3a 4d 4f 56  20 51 2c 70 63 3a a4 66  |j,E}:MOV Q,pc:.f|
00004920  28 22 22 2c 45 2c 55 29  3a 53 54 52 20 41 2c 5b  |("",E,U):STR A,[|
00004930  45 5d 2c 23 34 3a 4c 44  4d 49 41 28 45 29 21 2c  |E],#4:LDMIA(E)!,|
00004940  7b 54 2c 6a 2c 41 7d 3a  80 20 51 2c 51 2c 23 26  |{T,j,A}:. Q,Q,#&|
00004950  66 63 30 30 30 30 30 33  3a 84 52 20 45 2c 45 2c  |fc000003:.R E,E,|
00004960  51 3a 5d 3a 3d 30 0d 02  5a 5f dd f2 71 5f 28 45  |Q:]:=0..Z_..q_(E|
00004970  5f 25 2c 4b 79 25 2c 79  4a 25 29 f2 53 28 22 3c  |_%,Ky%,yJ%).S("<|
00004980  42 61 73 69 63 56 24 4c  69 62 3e 2e 48 65 61 70  |BasicV$Lib>.Heap|
00004990  22 2c 38 29 3a f2 53 28  22 3c 42 61 73 69 63 56  |",8):.S("<BasicV|
000049a0  24 4c 69 62 3e 2e 4d 65  73 73 61 67 65 22 2c 31  |$Lib>.Message",1|
000049b0  29 3a e7 a4 45 79 28 45  5f 25 2c 4b 79 25 2c 79  |):..Ey(E_%,Ky%,y|
000049c0  4a 25 2c 30 29 0d 02 5b  10 d6 59 79 3a ee 85 d6  |J%,0)..[..Yy:...|
000049d0  5a 79 3a f2 59 0d 02 5c  05 e1 0d 02 5d 55 dd a4  |Zy:.Y..\....]U..|
000049e0  45 79 28 45 5f 25 2c 4b  79 25 2c 79 4a 25 2c 61  |Ey(E_%,Ky%,yJ%,a|
000049f0  79 25 29 ea 4c 25 2c 4f  25 2c 50 25 2c 53 25 2c  |y%).L%,O%,P%,S%,|
00004a00  73 6c 25 2c 48 25 3a ea  6d 4a 3a ea 75 4a 2c 69  |sl%,H%:.mJ:.uJ,i|
00004a10  5f 2c 63 4a 2c 6b 4a 2c  45 4a 2c 76 4a 3a ea 60  |_,cJ,kJ,EJ,vJ:.`|
00004a20  79 2c 67 79 2c 59 69 3a  e7 61 79 25 3d 30 8c 0d  |y,gy,Yi:.ay%=0..|
00004a30  02 5e 3a f2 53 28 22 3c  42 61 73 69 63 56 24 4c  |.^:.S("<BasicV$L|
00004a40  69 62 3e 2e 48 65 61 70  22 2c 38 29 3a f2 53 28  |ib>.Heap",8):.S(|
00004a50  22 3c 42 61 73 69 63 56  24 4c 69 62 3e 2e 4d 65  |"<BasicV$Lib>.Me|
00004a60  73 73 61 67 65 22 2c 31  29 0d 02 5f 7e cd 3a de  |ssage",1).._~.:.|
00004a70  6e 25 45 5f 25 3a 6d 4a  3d 41 3a 75 4a 3d 31 3c  |n%E_%:mJ=A:uJ=1<|
00004a80  3c 33 31 3a 69 5f 3d 31  3c 3c 33 30 3a 63 4a 3d  |<31:i_=1<<30:cJ=|
00004a90  31 3c 3c 32 39 3a 6b 4a  3d 31 3c 3c 32 38 3a 45  |1<<29:kJ=1<<28:E|
00004aa0  4a 3d 31 3c 3c 32 37 3a  76 4a 3d 31 3c 3c 32 36  |J=1<<27:vJ=1<<26|
00004ab0  3a 60 79 3d 31 3c 3c 31  37 3a 67 79 3d 32 35 36  |:`y=1<<17:gy=256|
00004ac0  3a 59 69 3d 67 79 2b 60  79 3a c8 99 26 36 30 36  |:Yi=gy+`y:..&606|
00004ad0  63 30 3a ea 85 3a ee 85  ea f7 85 3a c8 99 26 36  |c0:..:.....:..&6|
00004ae0  30 36 63 31 3a f2 4c 0d  02 60 22 48 25 3d 45 5f  |06c1:.L..`"H%=E_|
00004af0  25 3a 4c 25 3d 6e 25 2b  45 5f 25 3a e7 4b 79 25  |%:L%=n%+E_%:.Ky%|
00004b00  3c 3e 30 8c 4b 79 25 3d  34 0d 02 61 22 e3 53 25  |<>0.Ky%=4..a".S%|
00004b10  3d 38 2b 4b 79 25 b8 31  30 2b 4b 79 25 88 32 3a  |=8+Ky%.10+Ky%.2:|
00004b20  e7 28 53 25 80 34 29 3c  3e 30 8c 0d 02 62 11 4f  |.(S%.4)<>0...b.O|
00004b30  25 3d 6e 25 3a e7 61 79  25 3d 31 8c 0d 02 63 0c  |%=n%:.ay%=1...c.|
00004b40  50 25 3d 33 32 37 36 38  0d 02 64 09 cc 50 25 3d  |P%=32768..d..P%=|
00004b50  30 0d 02 65 05 cd 0d 02  66 0f cc 4f 25 3d 30 3a  |0..e....f..O%=0:|
00004b60  50 25 3d 6e 25 0d 02 67  0c cd 3a c8 8e 61 79 25  |P%=n%..g..:..ay%|
00004b70  ca 0d 02 68 2f c9 31 3a  f2 43 3a f2 77 5f 3a f2  |...h/.1:.C:.w_:.|
00004b80  43 3a f2 78 3a f2 43 3a  f2 60 3a 52 3d 50 25 3a  |C:.x:.C:.`:R=P%:|
00004b90  f2 43 3a f2 6a 3a 42 3d  28 42 2b 33 29 80 2d 34  |.C:.j:B=(B+3).-4|
00004ba0  0d 02 69 27 c9 30 3a f2  43 3a f2 78 3a f2 43 3a  |..i'.0:.C:.x:.C:|
00004bb0  f2 55 5f 3a f2 43 3a f2  4e 5f 3a f2 43 3a f2 60  |.U_:.C:.N_:.C:.`|
00004bc0  3a f2 43 3a f2 67 79 0d  02 6a 0c c9 32 3a f2 43  |:.C:.gy..j..2:.C|
00004bd0  3a f2 78 0d 02 6b 17 cb  3a e7 53 25 80 34 8c 4c  |:.x..k..:.S%.4.L|
00004be0  25 3d 4f 25 8b 4c 25 3d  50 25 0d 02 6c 0e e7 28  |%=O%.L%=P%..l..(|
00004bf0  53 25 80 32 29 3d 30 8c  0d 02 6d 17 c8 99 26 64  |S%.2)=0...m...&d|
00004c00  63 62 39 33 2c 30 2c 6e  25 2c 4c 25 2d 6e 25 0d  |cb93,0,n%,L%-n%.|
00004c10  02 6e 21 cd 3a 48 25 3d  4c 25 2d 6e 25 3a ed 53  |.n!.:H%=L%-n%:.S|
00004c20  25 3a c8 99 26 36 30 36  63 31 3a e7 4b 79 25 8c  |%:..&606c1:.Ky%.|
00004c30  0d 02 6f 0b e7 61 79 25  3d 30 8c 0d 02 70 11 59  |..o..ay%=0...p.Y|
00004c40  79 2b 3d 6e 25 3a 5a 79  2b 3d 6e 25 0d 02 71 05  |y+=n%:Zy+=n%..q.|
00004c50  cd 0d 02 72 11 cd 3a e7  6f 79 80 61 79 25 3c 3e  |...r..:.oy.ay%<>|
00004c60  32 8c 0d 02 73 09 e7 4b  79 25 8c 0d 02 74 18 48  |2...s..Ky%...t.H|
00004c70  25 3d 57 79 3a e7 61 79  25 8c 48 25 2d 3d 33 32  |%=Wy:.ay%.H%-=32|
00004c80  37 36 38 0d 02 75 0e cc  85 31 2c 22 45 49 43 39  |768..u...1,"EIC9|
00004c90  22 0d 02 76 05 cd 0d 02  77 0b cd 3a e7 79 4a 25  |"..v....w..:.yJ%|
00004ca0  8c 0d 02 78 60 f1 22 41  73 73 65 6d 62 6c 65 64  |...x`."Assembled|
00004cb0  20 74 6f 20 26 22 3b 7e  48 25 3b 22 20 3d 20 22  | to &";~H%;" = "|
00004cc0  3b 28 28 48 25 2a 31 30  2b 35 31 32 29 81 31 30  |;((H%*10+512).10|
00004cd0  32 34 29 2f 31 30 3b 22  4b 22 3a f1 22 43 6f 75  |24)/10;"K":."Cou|
00004ce0  6c 64 20 61 73 73 65 6d  62 6c 65 20 77 69 74 68  |ld assemble with|
00004cf0  20 22 3b 45 5f 25 2d 48  25 3b 22 20 6c 65 73 73  | ";E_%-H%;" less|
00004d00  22 0d 02 79 09 cd 3a 3d  48 25 0d 02 7a 1a dd a4  |"..y..:=H%..z...|
00004d10  5f 54 65 6d 70 6c 61 74  65 5f 76 65 72 73 69 6f  |_Template_versio|
00004d20  6e 3d 32 31 0d 02 7b 63  dd a4 5f 68 61 72 64 5f  |n=21..{c.._hard_|
00004d30  69 6e 69 74 69 61 6c 69  73 65 5f 54 65 6d 70 6c  |initialise_Templ|
00004d40  61 74 65 3a 53 5f 25 3d  a3 3a 6c 25 3d a3 3a 5a  |ate:S_%=.:l%=.:Z|
00004d50  79 25 3d a3 3a 6a 79 25  3d a3 3a 4c 4a 25 3d a3  |y%=.:jy%=.:LJ%=.|
00004d60  3a 72 79 25 3d 2d 31 3a  6a 5f 25 3d 31 3a 69 79  |:ry%=-1:j_%=1:iy|
00004d70  3d 37 3a 4f 79 3d 31 36  3a 41 5f 3d 31 34 3a 70  |=7:Oy=16:A_=14:p|
00004d80  79 3d 31 35 3a 3d 30 0d  02 7c 14 dd f2 6e 79 ea  |y=15:=0..|...ny.|
00004d90  45 25 3a e7 6c 25 3c 3e  2d 31 8c 0d 02 7d 09 e7  |E%:.l%<>-1...}..|
00004da0  5a 79 25 8c 0d 02 7e 13  c8 99 26 36 36 35 63 31  |Zy%...~...&665c1|
00004db0  2c 59 25 2c b9 2c a3 0d  02 7f 31 cc e3 45 25 3d  |,Y%,.,....1..E%=|
00004dc0  30 b8 32 35 35 3a c8 95  6c 25 3f 45 25 3a c8 99  |0.255:..l%?E%:..|
00004dd0  26 36 30 30 38 32 2c 45  25 3a 6c 25 3f 45 25 2d  |&60082,E%:l%?E%-|
00004de0  3d 31 3a ce 3a ed 45 25  0d 02 80 05 cd 0d 02 81  |=1:.:.E%........|
00004df0  07 cd 3a e1 0d 02 82 2f  dd f2 76 79 ea 7a 25 2c  |..:..../..vy.z%,|
00004e00  76 25 2c 61 25 2c 5a 25  2c 4e 24 2c 4a 6c 25 2c  |v%,a%,Z%,N$,Jl%,|
00004e10  59 79 25 2c 46 5f 25 2c  42 79 25 2c 52 25 3a e7  |Yy%,F_%,By%,R%:.|
00004e20  6c 25 8c 0d 02 83 09 e7  5a 79 25 8c 0d 02 84 16  |l%......Zy%.....|
00004e30  6a 79 25 3d 28 5a 79 25  3d 2b 31 29 3a e7 6a 79  |jy%=(Zy%=+1):.jy|
00004e40  25 8c 0d 02 85 09 61 25  3d 2b 31 0d 02 86 09 cc  |%.....a%=+1.....|
00004e50  61 25 3d 30 0d 02 87 1b  cd 3a 59 79 25 3d 31 34  |a%=0.....:Yy%=14|
00004e60  30 2b 28 31 3c 3c 32 31  29 3a e7 4c 4a 25 8c 0d  |0+(1<<21):.LJ%..|
00004e70  02 88 1e 76 24 3d a4 47  28 22 4d 65 6e 75 46 6f  |...v$=.G("MenuFo|
00004e80  6e 74 22 29 3a e7 76 24  3c 3e 22 22 8c 0d 02 89  |nt"):.v$<>""....|
00004e90  93 59 79 25 2b 3d 28 31  3c 3c 31 38 29 2b 28 31  |.Yy%+=(1<<18)+(1|
00004ea0  3c 3c 31 39 29 3a f2 42  28 46 5f 25 2c 38 2b a9  |<<19):.B(F_%,8+.|
00004eb0  28 76 24 29 2b 31 29 3a  24 28 46 5f 25 2b 38 29  |(v$)+1):$(F_%+8)|
00004ec0  3d 76 24 3a 46 5f 25 21  30 3d 31 36 2a bb 28 a4  |=v$:F_%!0=16*.(.|
00004ed0  47 28 22 4d 65 6e 75 46  6f 6e 74 57 69 64 74 68  |G("MenuFontWidth|
00004ee0  22 29 29 3a 46 5f 25 21  34 3d 31 36 2a bb 28 a4  |")):F_%!4=16*.(.|
00004ef0  47 28 22 4d 65 6e 75 46  6f 6e 74 48 65 69 67 68  |G("MenuFontHeigh|
00004f00  74 22 29 29 3a e7 a4 47  28 22 4d 65 6e 75 46 6f  |t")):..G("MenuFo|
00004f10  6e 74 4c 6f 77 52 65 7a  22 29 3d 22 4e 4f 22 8c  |ntLowRez")="NO".|
00004f20  0d 02 8a 10 59 79 25 2b  3d 28 31 3c 3c 31 37 29  |....Yy%+=(1<<17)|
00004f30  0d 02 8b 11 cc 59 79 25  2b 3d 28 31 3c 3c 31 36  |.....Yy%+=(1<<16|
00004f40  29 0d 02 8c 05 cd 0d 02  8d 05 cd 0d 02 8e 2a cd  |).............*.|
00004f50  3a c8 99 26 34 36 35 63  30 2c 59 25 2c 30 2c 30  |:..&465c0,Y%,0,0|
00004f60  2c 61 25 2c 61 25 2c 30  2c 30 2c 59 79 25 2c 46  |,a%,a%,0,0,Yy%,F|
00004f70  5f 25 b8 6c 25 0d 02 8f  21 cc f2 42 28 6c 25 2c  |_%.l%...!..B(l%,|
00004f80  32 35 36 29 3a c8 99 26  64 63 62 39 33 2c 30 2c  |256):..&dcb93,0,|
00004f90  6c 25 2c 32 35 36 0d 02  90 05 cd 0d 02 91 0a cc  |l%,256..........|
00004fa0  6c 25 3d 2d 31 0d 02 92  34 cd 3a 4e 24 3d a4 64  |l%=-1...4.:N$=.d|
00004fb0  28 22 3c 22 2b 58 24 2b  22 24 44 69 72 3e 2e 53  |("<"+X$+"$Dir>.S|
00004fc0  70 72 69 74 65 73 22 29  3a 7a 25 3d a4 67 28 4e  |prites"):z%=.g(N|
00004fd0  24 29 3a e7 7a 25 3e 30  8c 0d 02 93 70 5a 25 3d  |$):.z%>0....pZ%=|
00004fe0  a4 41 28 31 32 38 29 3a  42 79 25 3d 30 3a f5 c8  |.A(128):By%=0:..|
00004ff0  99 31 32 2c 31 32 2c 22  3c 22 2b 2b 58 24 2b 22  |.12,12,"<"++X$+"|
00005000  24 44 69 72 3e 22 2c 5a  25 2c 31 2c 42 79 25 2c  |$Dir>",Z%,1,By%,|
00005010  31 32 38 2c 22 53 70 72  69 74 65 73 2a 22 b8 2c  |128,"Sprites*".,|
00005020  2c 2c 52 25 2c 42 79 25  3a e7 52 25 3d 31 80 5a  |,,R%,By%:.R%=1.Z|
00005030  25 21 32 30 3d 34 30 38  39 80 7a 25 3c 5a 25 21  |%!20=4089.z%<Z%!|
00005040  38 8c 7a 25 3d 5a 25 21  38 0d 02 94 6d fd 42 79  |8.z%=Z%!8...m.By|
00005050  25 3c 30 3a f2 4d 28 5a  25 2c 31 32 38 29 3a f2  |%<0:.M(Z%,128):.|
00005060  42 28 66 25 2c 7a 25 2b  31 36 29 3a 66 25 21 30  |B(f%,z%+16):f%!0|
00005070  3d 7a 25 2b 31 36 3a 66  25 21 34 3d 30 3a 66 25  |=z%+16:f%!4=0:f%|
00005080  21 38 3d 31 36 3a 66 25  21 31 32 3d 31 36 3a c8  |!8=16:f%!12=16:.|
00005090  99 26 32 30 30 32 65 2c  35 32 32 2c 66 25 2c 4e  |.&2002e,522,f%,N|
000050a0  24 b8 76 25 3b 61 25 3a  62 24 3d 4e 24 3a e7 a4  |$.v%;a%:b$=N$:..|
000050b0  4e 28 61 25 29 8c 0d 02  95 2a f2 4a 28 22 52 65  |N(a%)....*.J("Re|
000050c0  61 73 6f 6e 22 2c 22 53  70 72 69 74 65 73 22 29  |ason","Sprites")|
000050d0  3a f2 62 28 76 25 29 3a  f2 50 28 34 29 3a f2 46  |:.b(v%):.P(4):.F|
000050e0  0d 02 96 05 cd 0d 02 97  09 cc 66 25 3d 30 0d 02  |..........f%=0..|
000050f0  98 1d cd 3a f2 5f 79 28  22 54 65 6d 70 6c 61 74  |...:._y("Templat|
00005100  65 73 22 29 3a e7 66 25  3e 30 8c 0d 02 99 20 f2  |es"):.f%>0.... .|
00005110  68 28 22 50 72 6f 67 49  6e 66 6f 22 2c 66 25 2c  |h("ProgInfo",f%,|
00005120  22 50 72 6f 67 49 6e 66  6f 22 29 0d 02 9a 21 cc  |"ProgInfo")...!.|
00005130  f2 68 28 22 50 72 6f 67  49 6e 66 6f 22 2c 2b 31  |.h("ProgInfo",+1|
00005140  2c 22 50 72 6f 67 49 6e  66 6f 22 29 0d 02 9b 12  |,"ProgInfo")....|
00005150  cd 3a 75 25 3d 30 3a e7  53 5f 25 3d 30 8c 0d 02  |.:u%=0:.S_%=0...|
00005160  9c 06 f2 6e 0d 02 9d 22  cd 3a 68 5f 25 3d a4 4f  |...n...".:h_%=.O|
00005170  28 22 51 75 65 72 79 22  2c 4a 6c 25 2c 2b 31 29  |("Query",Jl%,+1)|
00005180  3a f2 75 79 3a e1 0d 02  9e 2f dd f2 51 79 3a 4e  |:.uy:..../..Qy:N|
00005190  24 3d a4 64 28 22 3c 22  2b 58 24 2b 22 24 44 69  |$=.d("<"+X$+"$Di|
000051a0  72 3e 2e 53 70 72 69 74  65 73 22 29 3a e7 4e 24  |r>.Sprites"):.N$|
000051b0  3c 3e 62 24 8c 0d 02 9f  30 66 25 21 34 3d 30 3a  |<>b$....0f%!4=0:|
000051c0  66 25 21 38 3d 31 36 3a  66 25 21 31 32 3d 31 36  |f%!8=16:f%!12=16|
000051d0  3a c8 99 34 36 2c 35 32  32 2c 66 25 2c 4e 24 3a  |:..46,522,f%,N$:|
000051e0  62 24 3d 4e 24 0d 02 a0  07 cd 3a e1 0d 02 a1 2e  |b$=N$.....:.....|
000051f0  dd a4 50 72 6f 67 49 6e  66 6f 28 44 25 29 f2 56  |..ProgInfo(D%).V|
00005200  28 44 25 21 28 38 38 2b  28 69 79 3c 3c 35 29 2b  |(D%!(88+(iy<<5)+|
00005210  32 30 29 2c 4b 24 29 3a  3d 30 0d 02 a2 1a dd f2  |20),K$):=0......|
00005220  43 79 28 51 25 2c 56 25  2c 49 25 2c 46 25 29 c8  |Cy(Q%,V%,I%,F%).|
00005230  8e 46 25 ca 0d 02 a3 21  c9 41 5f 2c 70 79 3a 51  |.F%....!.A_,py:Q|
00005240  25 3d a4 70 28 31 2c a4  77 28 30 29 29 3a e7 49  |%=.p(1,.w(0)):.I|
00005250  25 3c 3e 31 8c 0d 02 a4  06 f2 51 0d 02 a5 05 cd  |%<>1......Q.....|
00005260  0d 02 a6 0d 7f e7 49 25  80 32 34 30 8c 0d 02 a7  |......I%.240....|
00005270  1f 57 25 21 30 3d 75 25  3a 57 25 21 34 3d 31 3a  |.W%!0=u%:W%!4=1:|
00005280  c8 99 26 34 30 30 64 30  2c 2c 57 25 0d 02 a8 05  |..&400d0,,W%....|
00005290  cd 0d 02 a9 07 cb 3a e1  0d 02 aa 0d dd f2 6e e7  |......:.......n.|
000052a0  75 25 3d 30 8c 0d 02 ab  09 e7 6a 79 25 8c 0d 02  |u%=0......jy%...|
000052b0  ac 24 de 54 5f 25 34 3a  21 54 5f 25 3d 30 3a e7  |.$.T_%4:!T_%=0:.|
000052c0  a4 69 28 22 50 72 6f 67  49 6e 66 6f 22 2c 54 5f  |.i("ProgInfo",T_|
000052d0  25 29 0d 02 ad 0b 75 25  3d 21 54 5f 25 0d 02 ae  |%)....u%=!T_%...|
000052e0  17 cc e7 a4 44 28 22 50  72 6f 67 49 6e 66 6f 22  |....D("ProgInfo"|
000052f0  2c 75 25 29 0d 02 af 05  cd 0d 02 b0 0a cc e7 5a  |,u%)...........Z|
00005300  79 25 8c 0d 02 b1 09 e7  6a 79 25 8c 0d 02 b2 13  |y%......jy%.....|
00005310  c8 99 26 34 36 35 63 36  2c 59 25 2c 54 5f 25 0d  |..&465c6,Y%,T_%.|
00005320  02 b3 13 cc c8 99 26 34  36 35 63 36 2c 59 25 2c  |......&465c6,Y%,|
00005330  75 25 0d 02 b4 05 cd 0d  02 b5 05 cd 0d 02 b6 07  |u%..............|
00005340  cd 3a e1 0d 02 b7 57 dd  f2 5f 79 28 45 24 29 ea  |.:....W.._y(E$).|
00005350  74 75 25 2c 60 25 2c 7a  25 2c 76 25 2c 61 25 2c  |tu%,`%,z%,v%,a%,|
00005360  4a 25 3a ea 5f 75 25 2c  4e 24 2c 4c 79 25 2c 69  |J%:._u%,N$,Ly%,i|
00005370  79 25 3a 4e 24 3d 22 3c  22 2b 58 24 2b 22 24 44  |y%:N$="<"+X$+"$D|
00005380  69 72 3e 2e 22 2b 45 24  3a 7a 25 3d a4 67 28 4e  |ir>."+E$:z%=.g(N|
00005390  24 29 3a e7 7a 25 3c 3d  30 8c 0d 02 b8 32 f2 4a  |$):.z%<=0....2.J|
000053a0  28 22 52 65 61 73 6f 6e  22 2c 45 24 29 3a f2 4a  |("Reason",E$):.J|
000053b0  28 22 53 79 73 22 2c 22  4e 6f 74 20 66 6f 75 6e  |("Sys","Not foun|
000053c0  64 22 29 3a f2 50 28 34  29 3a f2 46 0d 02 b9 4d  |d"):.P(4):.F...M|
000053d0  cd 3a f2 42 28 60 25 2c  7a 25 29 3a f2 42 28 4c  |.:.B(`%,z%):.B(L|
000053e0  79 25 2c 7a 25 2b 43 29  3a 69 79 25 3d 4c 79 25  |y%,z%+C):iy%=Ly%|
000053f0  2b 54 79 3a 5f 75 25 3d  4c 79 25 2b 43 3a c8 99  |+Ty:_u%=Ly%+C:..|
00005400  26 36 30 30 64 39 2c 2c  4e 24 b8 76 25 3b 61 25  |&600d9,,N$.v%;a%|
00005410  3a e7 a4 4e 28 61 25 29  8c 0d 02 ba 35 f2 4a 28  |:..N(a%)....5.J(|
00005420  22 52 65 61 73 6f 6e 22  2c 22 54 65 6d 70 6c 61  |"Reason","Templa|
00005430  74 65 73 22 29 3a f2 62  28 76 25 29 3a f2 50 28  |tes"):.b(v%):.P(|
00005440  34 29 3a c8 99 26 36 30  30 64 61 3a f2 46 0d 02  |4):..&600da:.F..|
00005450  bb 12 cd 3a ea 85 3a ee  85 ea f7 85 3a f2 56 79  |...:..:.....:.Vy|
00005460  0d 02 bc 54 42 79 25 3d  30 3a f5 69 79 25 21 30  |...TBy%=0:.iy%!0|
00005470  3d 97 28 22 2a 22 29 3a  c8 99 26 36 30 30 64 62  |=.("*"):..&600db|
00005480  2c 2c 5f 75 25 2c 60 25  2c 60 25 2b 7a 25 2c 6c  |,,_u%,`%,`%+z%,l|
00005490  25 2c 69 79 25 2c 42 79  25 b8 76 25 2c 2c 74 75  |%,iy%,By%.v%,,tu|
000054a0  25 2c 2c 2c 2c 42 79 25  3b 61 25 3a e7 a4 4e 28  |%,,,,By%;a%:..N(|
000054b0  61 25 29 8c 0d 02 bd 16  f2 48 28 76 25 29 3a c8  |a%)......H(v%):.|
000054c0  99 26 36 30 30 64 61 3a  f2 46 0d 02 be 0b cd 3a  |.&600da:.F.....:|
000054d0  e7 42 79 25 8c 0d 02 bf  26 e3 61 25 3d 30 b8 31  |.By%....&.a%=0.1|
000054e0  31 3a e7 69 79 25 3f 61  25 3d 31 33 8c 69 79 25  |1:.iy%?a%=13.iy%|
000054f0  3f 61 25 3d 30 3a 61 25  3d 31 32 0d 02 c0 31 ed  |?a%=0:a%=12...1.|
00005500  61 25 3a 4c 79 25 21 66  79 3d 74 75 25 2d 60 25  |a%:Ly%!fy=tu%-`%|
00005510  3a 4c 79 25 21 4e 79 3d  60 25 3a 4a 25 3d a4 68  |:Ly%!Ny=`%:J%=.h|
00005520  28 4c 79 25 29 3a e7 4a  25 3d 30 8c 0d 02 c1 16  |(Ly%):.J%=0.....|
00005530  f2 50 28 31 36 29 3a c8  99 26 36 30 30 64 61 3a  |.P(16):..&600da:|
00005540  f2 46 0d 02 c2 17 cd 3a  4a 25 21 48 3d 21 70 79  |.F.....:J%!H=!py|
00005550  25 3a 21 70 79 25 3d 4a  25 0d 02 c3 29 cd 3a fd  |%:!py%=J%...).:.|
00005560  42 79 25 3d 30 3a f7 85  3a c8 99 26 34 30 30 64  |By%=0:..:..&400d|
00005570  61 3a f2 54 28 4c 79 25  29 3a f2 54 28 60 25 29  |a:.T(Ly%):.T(`%)|
00005580  3a e1 0d 02 c4 21 dd f2  56 79 c8 99 26 36 30 30  |:....!..Vy..&600|
00005590  64 61 3a f2 5a 28 22 54  65 6d 70 6c 61 74 65 22  |da:.Z("Template"|
000055a0  29 3a e1 0d 02 c5 25 dd  a4 4f 28 42 24 2c 6c 75  |):....%..O(B$,lu|
000055b0  25 2c 65 5f 25 29 3d a4  6d 28 42 24 2c 6c 75 25  |%,e_%)=.m(B$,lu%|
000055c0  2c 65 5f 25 2c 22 22 29  0d 02 c6 31 dd a4 6d 28  |,e_%,"")...1..m(|
000055d0  42 24 2c 6c 75 25 2c 65  5f 25 2c 51 24 29 ea 4a  |B$,lu%,e_%,Q$).J|
000055e0  25 2c 44 75 25 2c 47 25  3a 4a 25 3d a4 42 28 42  |%,Du%,G%:J%=.B(B|
000055f0  24 29 3a e7 4a 25 3d 30  8c 0d 02 c7 06 f2 46 0d  |$):.J%=0......F.|
00005600  02 c8 22 cd 3a 44 75 25  3d 4a 25 2b 43 3a 44 75  |..".:Du%=J%+C:Du|
00005610  25 21 36 34 3d 65 5f 25  3a e7 51 24 3c 3e 22 22  |%!64=e_%:.Q$<>""|
00005620  8c 0d 02 c9 12 47 25 3d  a4 53 28 22 46 4e 22 2b  |.....G%=.S("FN"+|
00005630  51 24 29 0d 02 ca 11 cd  3a e7 a4 74 28 4a 25 2c  |Q$).....:..t(J%,|
00005640  47 25 29 8c 0d 02 cb 06  f2 46 0d 02 cc 10 cd 3a  |G%)......F.....:|
00005650  f2 77 28 4a 25 29 3a 3d  47 25 0d 02 cd 29 dd f2  |.w(J%):=G%...)..|
00005660  68 28 42 24 2c 65 5f 25  2c 51 24 29 ea 4a 25 2c  |h(B$,e_%,Q$).J%,|
00005670  44 25 3a 4a 25 3d a4 42  28 42 24 29 3a e7 4a 25  |D%:J%=.B(B$):.J%|
00005680  3d 30 8c 0d 02 ce 06 f2  46 0d 02 cf 20 cd 3a 44  |=0......F... .:D|
00005690  25 3d 4a 25 2b 43 3a 44  25 21 36 34 3d 65 5f 25  |%=J%+C:D%!64=e_%|
000056a0  3a e7 51 24 3c 3e 22 22  8c 0d 02 d0 20 44 25 3d  |:.Q$<>"".... D%=|
000056b0  a4 53 28 22 46 4e 22 2b  51 24 2b 22 28 22 2b c3  |.S("FN"+Q$+"("+.|
000056c0  28 44 25 29 2b 22 29 22  29 0d 02 d1 07 cd 3a e1  |(D%)+")").....:.|
000056d0  0d 02 d2 26 dd a4 54 28  42 24 2c 65 5f 25 29 ea  |...&..T(B$,e_%).|
000056e0  4a 25 2c 44 25 3a 4a 25  3d a4 42 28 42 24 29 3a  |J%,D%:J%=.B(B$):|
000056f0  e7 4a 25 3d 30 8c 0d 02  d3 06 f2 46 0d 02 d4 1a  |.J%=0......F....|
00005700  cd 3a 44 25 3d 4a 25 2b  43 3a 44 25 21 36 34 3d  |.:D%=J%+C:D%!64=|
00005710  65 5f 25 3a 3d 30 0d 02  d5 22 dd a4 44 28 42 24  |e_%:=0..."..D(B$|
00005720  2c f8 58 79 25 29 ea 45  25 3a 3d a4 79 28 42 24  |,.Xy%).E%:=.y(B$|
00005730  2c 58 79 25 2c 45 25 29  0d 02 d6 29 dd a4 79 28  |,Xy%,E%)...)..y(|
00005740  42 24 2c f8 58 79 25 2c  f8 43 75 25 29 ea 4a 25  |B$,.Xy%,.Cu%).J%|
00005750  2c 62 25 3a 62 25 3d a3  3a e7 58 79 25 3c 3d 30  |,b%:b%=.:.Xy%<=0|
00005760  8c 0d 02 d7 12 4a 25 3d  a4 42 28 42 24 29 3a e7  |.....J%=.B(B$):.|
00005770  4a 25 8c 0d 02 d8 18 62  25 3d a4 74 28 4a 25 2c  |J%.....b%=.t(J%,|
00005780  58 79 25 29 3a e7 62 25  3d a3 8c 0d 02 d9 14 43  |Xy%):.b%=......C|
00005790  75 25 3d 4a 25 21 4e 79  3a f2 77 28 4a 25 29 0d  |u%=J%!Ny:.w(J%).|
000057a0  02 da 05 cd 0d 02 db 09  cc 62 25 3d b9 0d 02 dc  |.........b%=....|
000057b0  05 cd 0d 02 dd 0a cc e7  5a 79 25 8c 0d 02 de 13  |........Zy%.....|
000057c0  c8 99 26 34 36 35 63 36  2c 59 25 2c 58 79 25 0d  |..&465c6,Y%,Xy%.|
000057d0  02 df 05 cd 0d 02 e0 09  cd 3a 3d 62 25 0d 02 e1  |.........:=b%...|
000057e0  48 dd a4 41 79 28 42 24  29 ea 4a 25 2c 45 24 2c  |H..Ay(B$).J%,E$,|
000057f0  6d 25 3a 4a 25 3d 21 70  79 25 3a 6d 25 3d a3 3a  |m%:J%=!py%:m%=.:|
00005800  c8 95 4a 25 80 28 ac 6d  25 29 3a 6d 25 3d 28 a4  |..J%.(.m%):m%=(.|
00005810  6e 28 4a 25 2b 54 79 2c  31 32 29 3d 42 24 29 3a  |n(J%+Ty,12)=B$):|
00005820  e7 ac 6d 25 8c 0d 02 e2  0b 4a 25 3d 4a 25 21 48  |..m%.....J%=J%!H|
00005830  0d 02 e3 0b cd 3a ce 3a  3d 4a 25 0d 02 e4 20 dd  |.....:.:=J%... .|
00005840  a4 42 28 42 24 29 ea 4a  25 3a 4a 25 3d a4 41 79  |.B(B$).J%:J%=.Ay|
00005850  28 42 24 29 3a e7 4a 25  3d 30 8c 0d 02 e5 19 f2  |(B$):.J%=0......|
00005860  4a 28 22 52 65 61 73 6f  6e 22 2c 42 24 29 3a f2  |J("Reason",B$):.|
00005870  50 28 33 29 0d 02 e6 09  cd 3a 3d 4a 25 0d 02 e7  |P(3).....:=J%...|
00005880  15 dd a4 74 28 4a 25 2c  f8 58 79 25 29 e7 5a 79  |...t(J%,.Xy%).Zy|
00005890  25 8c 0d 02 e8 1d c8 99  26 36 36 35 63 33 2c 59  |%.......&665c3,Y|
000058a0  25 2c 4a 25 2b 43 2c 30  b8 58 79 25 3b 4a 25 0d  |%,J%+C,0.Xy%;J%.|
000058b0  02 e9 1a cc c8 99 26 36  30 30 63 31 2c 2c 4a 25  |......&600c1,,J%|
000058c0  2b 43 b8 58 79 25 3b 4a  25 0d 02 ea 14 cd 3a 4a  |+C.Xy%;J%.....:J|
000058d0  25 3d a4 4e 28 4a 25 29  3a e7 4a 25 8c 0d 02 eb  |%=.N(J%):.J%....|
000058e0  11 f2 48 28 58 79 25 29  3a 58 79 25 3d 30 0d 02  |..H(Xy%):Xy%=0..|
000058f0  ec 09 cd 3a 3d 4a 25 0d  02 ed 3a dd f2 77 28 4a  |...:=J%...:..w(J|
00005900  25 29 ea 4d 25 3a 4d 25  3d 70 79 25 3a c8 95 21  |%).M%:M%=py%:..!|
00005910  4d 25 3c 3e 30 80 21 4d  25 3c 3e 4a 25 3a 4d 25  |M%<>0.!M%<>J%:M%|
00005920  3d 21 4d 25 2b 48 3a ce  3a e7 21 4d 25 3d 4a 25  |=!M%+H:.:.!M%=J%|
00005930  8c 0d 02 ee 1a 21 4d 25  3d 4a 25 21 48 3a 4a 25  |.....!M%=J%!H:J%|
00005940  21 48 3d 30 3a f2 54 28  4a 25 29 0d 02 ef 07 cd  |!H=0:.T(J%).....|
00005950  3a e1 0d 02 f0 12 dd a4  53 79 28 41 25 29 3d ba  |:.......Sy(A%)=.|
00005960  28 62 79 29 0d 02 f1 1c  dd a4 68 28 41 25 29 41  |(by)......h(A%)A|
00005970  25 3d a4 53 79 28 41 25  29 3a e7 41 25 3d 30 8c  |%=.Sy(A%):.A%=0.|
00005980  0d 02 f2 0a f2 50 28 31  36 29 0d 02 f3 09 cd 3a  |.....P(16).....:|
00005990  3d 41 25 0d 02 f4 21 dd  f2 6a 79 e7 28 53 25 80  |=A%...!..jy.(S%.|
000059a0  32 29 3d 30 8c f2 4c 79  28 22 54 65 6d 70 6c 61  |2)=0..Ly("Templa|
000059b0  74 65 22 29 0d 02 f5 20  5b 4f 50 54 53 25 3a 41  |te")... [OPTS%:A|
000059c0  4c 49 47 4e 3a 2e 62 79  3a a4 58 3a 42 20 76 79  |LIGN:.by:.X:B vy|
000059d0  3a 5d 3a e1 0d 02 f6 7d  dd a4 5f 44 65 63 6c 61  |:]:....}.._Decla|
000059e0  72 65 5f 4c 6f 63 61 6c  5f 56 61 72 69 61 62 6c  |re_Local_Variabl|
000059f0  65 73 5f 54 65 6d 70 6c  61 74 65 de 70 79 25 34  |es_Template.py%4|
00005a00  3a 21 70 79 25 3d 30 3a  50 25 3d 30 3a 5b 4f 50  |:!py%=0:P%=0:[OP|
00005a10  54 53 25 3a 2e 48 20 44  43 44 30 3a 2e 54 75 20  |TS%:.H DCD0:.Tu |
00005a20  44 43 44 30 3a 2e 4e 79  20 44 43 44 30 3a 2e 66  |DCD0:.Ny DCD0:.f|
00005a30  79 20 44 43 44 30 3a 2e  54 79 20 44 43 44 30 3a  |y DCD0:.Ty DCD0:|
00005a40  44 43 44 30 3a 44 43 44  30 3a 2e 43 3a 5d 3a 3d  |DCD0:DCD0:.C:]:=|
00005a50  30 0d 02 f7 22 dd a4 69  28 42 24 2c 54 79 25 29  |0..."..i(B$,Ty%)|
00005a60  ea 45 25 3a 3d a4 42 79  28 42 24 2c 54 79 25 2c  |.E%:=.By(B$,Ty%,|
00005a70  45 25 29 0d 02 f8 2a dd  a4 42 79 28 42 24 2c 54  |E%)...*..By(B$,T|
00005a80  79 25 2c f8 43 75 25 29  ea 4a 25 2c 62 25 3a 62  |y%,.Cu%).J%,b%:b|
00005a90  25 3d a3 3a e7 21 54 79  25 3c 3d 30 8c 0d 02 f9  |%=.:.!Ty%<=0....|
00005aa0  12 4a 25 3d a4 42 28 42  24 29 3a e7 4a 25 8c 0d  |.J%=.B(B$):.J%..|
00005ab0  02 fa 19 62 25 3d a4 4d  79 28 4a 25 2c 54 79 25  |...b%=.My(J%,Ty%|
00005ac0  29 3a e7 62 25 3d a3 8c  0d 02 fb 14 43 75 25 3d  |):.b%=......Cu%=|
00005ad0  4a 25 21 4e 79 3a f2 77  28 4a 25 29 0d 02 fc 05  |J%!Ny:.w(J%)....|
00005ae0  cd 0d 02 fd 09 cc 62 25  3d b9 0d 02 fe 05 cd 0d  |......b%=.......|
00005af0  02 ff 0a cc e7 5a 79 25  8c 0d 03 00 13 c8 99 26  |.....Zy%.......&|
00005b00  34 36 35 63 36 2c 59 25  2c 54 79 25 0d 03 01 05  |465c6,Y%,Ty%....|
00005b10  cd 0d 03 02 09 cd 3a 3d  62 25 0d 03 03 19 dd a4  |......:=b%......|
00005b20  4d 79 28 4a 25 2c 54 79  25 29 ea 76 25 3a e7 5a  |My(J%,Ty%).v%:.Z|
00005b30  79 25 8c 0d 03 04 1e c8  99 26 36 36 35 63 33 2c  |y%.......&665c3,|
00005b40  59 25 2c 4a 25 2b 43 2c  54 79 25 b8 76 25 3b 4a  |Y%,J%+C,Ty%.v%;J|
00005b50  25 0d 03 05 19 cc c8 99  26 36 30 30 63 31 2c 2c  |%.......&600c1,,|
00005b60  4a 25 2b 43 b8 76 25 3b  4a 25 0d 03 06 1c cd 3a  |J%+C.v%;J%.....:|
00005b70  21 54 79 25 3d 76 25 3a  4a 25 3d a4 4e 28 4a 25  |!Ty%=v%:J%=.N(J%|
00005b80  29 3a e7 4a 25 8c 0d 03  07 11 f2 48 28 76 25 29  |):.J%......H(v%)|
00005b90  3a 21 54 79 25 3d 30 0d  03 08 09 cd 3a 3d 4a 25  |:!Ty%=0.....:=J%|
00005ba0  0d 03 09 36 dd f2 70 79  28 63 25 2c 55 24 29 ea  |...6..py(c%,U$).|
00005bb0  5f 25 3a f2 45 79 28 63  25 29 3a c8 95 55 24 3c  |_%:.Ey(c%):..U$<|
00005bc0  3e 22 22 3a 5f 25 3d a7  55 24 2c 22 2c 22 29 3a  |>"":_%=.U$,","):|
00005bd0  e7 5f 25 3e 31 8c 0d 03  0a 22 f2 4a 79 28 63 25  |._%>1....".Jy(c%|
00005be0  2c c0 55 24 2c 5f 25 2d  31 29 29 3a 55 24 3d c1  |,.U$,_%-1)):U$=.|
00005bf0  55 24 2c 5f 25 2b 31 29  0d 03 0b 15 cc f2 4a 79  |U$,_%+1)......Jy|
00005c00  28 63 25 2c 55 24 29 3a  55 24 3d 22 22 0d 03 0c  |(c%,U$):U$=""...|
00005c10  09 cd 3a ce 3a e1 0d 03  0d 56 dd f2 4a 79 28 63  |..:.:....V..Jy(c|
00005c20  25 2c 55 24 29 ea 45 25  3a e3 45 25 3d 31 b8 a9  |%,U$).E%:.E%=1..|
00005c30  28 55 24 29 3a 63 25 2b  3d 32 38 2b 28 32 34 2a  |(U$):c%+=28+(24*|
00005c40  28 97 28 c1 55 24 2c 45  25 2c 31 29 29 2d 97 28  |(.(.U$,E%,1))-.(|
00005c50  22 30 22 29 29 29 3a 63  25 3d 63 25 21 34 3a ed  |"0"))):c%=c%!4:.|
00005c60  45 25 3a f2 45 79 28 63  25 29 3a e1 0d 03 0e 14  |E%:.Ey(c%):.....|
00005c70  dd f2 45 79 28 63 25 29  e7 72 79 25 3d 2d 31 8c  |..Ey(c%).ry%=-1.|
00005c80  0d 03 0f 12 de 43 25 28  6a 5f 25 29 3a 72 79 25  |.....C%(j_%):ry%|
00005c90  3d 30 0d 03 10 1e cd 3a  e7 72 79 25 3e 3d de 28  |=0.....:.ry%>=.(|
00005ca0  43 25 28 29 2c 31 29 8c  85 31 2c 22 45 54 31 22  |C%(),1)..1,"ET1"|
00005cb0  0d 03 11 26 43 25 28 72  79 25 29 3d 63 25 3a 72  |...&C%(ry%)=c%:r|
00005cc0  79 25 2b 3d 31 3a c8 99  26 34 36 35 63 37 2c 59  |y%+=1:..&465c7,Y|
00005cd0  25 2c 63 25 3a e1 0d 03  12 28 dd a4 45 28 53 2c  |%,c%:....(..E(S,|
00005ce0  73 29 5b 4f 50 54 53 25  3a 44 43 42 53 3a 44 43  |s)[OPTS%:DCBS:DC|
00005cf0  42 73 3a 44 43 42 31 32  38 3a 5d 3a 3d 30 0d 03  |Bs:DCB128:]:=0..|
00005d00  13 31 dd a4 46 28 53 2c  73 2c 61 79 29 5b 4f 50  |.1..F(S,s,ay)[OP|
00005d10  54 53 25 3a 44 43 42 53  3a 44 43 42 73 3a 44 43  |TS%:DCBS:DCBs:DC|
00005d20  42 61 79 3a 44 43 42 31  32 38 3a 5d 3a 3d 30 0d  |Bay:DCB128:]:=0.|
00005d30  03 14 3a dd a4 4a 28 53  2c 73 2c 61 79 2c 4f 4a  |..:..J(S,s,ay,OJ|
00005d40  29 5b 4f 50 54 53 25 3a  44 43 42 53 3a 44 43 42  |)[OPTS%:DCBS:DCB|
00005d50  73 3a 44 43 42 61 79 3a  44 43 42 4f 4a 3a 44 43  |s:DCBay:DCBOJ:DC|
00005d60  42 31 32 38 3a 5d 3a 3d  30 0d 03 15 28 dd a4 73  |B128:]:=0...(..s|
00005d70  28 53 2c 73 29 5b 4f 50  54 53 25 3a 44 43 42 53  |(S,s)[OPTS%:DCBS|
00005d80  3a 44 43 42 73 3a 44 43  42 31 33 30 3a 5d 3a 3d  |:DCBs:DCB130:]:=|
00005d90  30 0d 03 16 31 dd a4 59  28 53 2c 73 2c 61 79 29  |0...1..Y(S,s,ay)|
00005da0  5b 4f 50 54 53 25 3a 44  43 42 53 3a 44 43 42 73  |[OPTS%:DCBS:DCBs|
00005db0  3a 44 43 42 61 79 3a 44  43 42 31 32 39 3a 5d 3a  |:DCBay:DCB129:]:|
00005dc0  3d 30 0d 03 17 1f dd a4  55 28 4b 29 e7 4b 3e 3d  |=0......U(K).K>=|
00005dd0  30 8c 4b 3d 28 4b 2a 32  34 29 2b 32 38 8b 4b 3d  |0.K=(K*24)+28.K=|
00005de0  30 0d 03 18 06 3d 4b 0d  03 19 bc dd f2 51 5f ea  |0....=K......Q_.|
00005df0  58 2c 6b 2c 73 79 3a 5b  4f 50 54 53 25 3a 41 4c  |X,k,sy:[OPTS%:AL|
00005e00  49 47 4e 3a 2e 63 79 3a  53 54 4d 46 44 28 41 29  |IGN:.cy:STMFD(A)|
00005e10  21 2c 7b 34 2d 39 2c 45  7d 3a 4d 4f 56 35 2c 30  |!,{4-9,E}:MOV5,0|
00005e20  3a 4d 4f 56 36 2c 31 3a  4d 4f 56 38 2c 32 3a 4d  |:MOV6,1:MOV8,2:M|
00005e30  4f 56 37 2c 23 32 34 3a  2e 6b 20 4c 44 52 42 20  |OV7,#24:.k LDRB |
00005e40  45 2c 5b 35 5d 2c 23 31  3a 54 45 51 20 45 2c 23  |E,[5],#1:TEQ E,#|
00005e50  32 30 33 3a 4c 44 4d 65  71 46 44 28 41 29 21 2c  |203:LDMeqFD(A)!,|
00005e60  7b 34 2d 39 2c 70 63 7d  3a 4d 4f 56 34 2c 38 3a  |{4-9,pc}:MOV4,8:|
00005e70  2e 73 79 20 41 44 44 34  2c 34 2c 23 32 38 3a 4d  |.sy ADD4,4,#28:M|
00005e80  4c 41 20 34 2c 45 2c 37  2c 34 3a 4c 44 52 42 20  |LA 4,E,7,4:LDRB |
00005e90  45 2c 5b 35 5d 2c 23 31  3a 43 4d 50 20 45 2c 23  |E,[5],#1:CMP E,#|
00005ea0  31 32 38 0d 03 1a b7 4c  44 52 6c 6f 34 2c 5b 34  |128....LDRlo4,[4|
00005eb0  2c 23 34 5d 3a 42 6c 6f  20 73 79 3a 4c 44 52 30  |,#4]:Blo sy:LDR0|
00005ec0  2c 5b 36 5d 2c 23 34 3a  42 65 71 20 65 79 3a 43  |,[6],#4:Beq ey:C|
00005ed0  4d 50 20 45 2c 23 31 33  30 3a 42 65 71 20 55 5f  |MP E,#130:Beq U_|
00005ee0  3a 2e 61 61 3a 4c 44 52  34 2c 5b 34 2c 23 34 5d  |:.aa:LDR4,[4,#4]|
00005ef0  3a 41 44 44 34 2c 34 2c  23 32 38 3a 4d 4f 56 31  |:ADD4,4,#28:MOV1|
00005f00  2c 23 30 3a 2e 58 20 54  45 51 30 2c 31 3a 4c 44  |,#0:.X TEQ0,1:LD|
00005f10  52 32 2c 5b 34 2c 23 30  5d 3a 84 52 65 71 32 2c  |R2,[4,#0]:.Req2,|
00005f20  32 2c 23 31 3a 42 49 43  6e 65 20 32 2c 32 2c 23  |2,#1:BICne 2,2,#|
00005f30  31 3a 53 54 52 32 2c 5b  34 5d 2c 23 32 34 3a 54  |1:STR2,[4],#24:T|
00005f40  53 54 32 2c 23 31 32 38  3a 41 44 44 65 71 31 2c  |ST2,#128:ADDeq1,|
00005f50  31 2c 23 31 3a 42 65 71  20 58 0d 03 1b 93 42 20  |1,#1:Beq X....B |
00005f60  6b 3a 2e 55 5f 3a 54 45  51 30 2c 23 30 3a 4c 44  |k:.U_:TEQ0,#0:LD|
00005f70  52 30 2c 5b 34 2c 23 38  5d 3a 42 49 43 65 71 20  |R0,[4,#8]:BICeq |
00005f80  30 2c 30 2c 23 31 3c 3c  32 32 3a 84 52 6e 65 30  |0,0,#1<<22:.Rne0|
00005f90  2c 30 2c 23 31 3c 3c 32  32 3a 53 54 52 30 2c 5b  |,0,#1<<22:STR0,[|
00005fa0  34 2c 23 38 5d 3a 42 20  6b 3a 2e 65 79 3a 54 45  |4,#8]:B k:.ey:TE|
00005fb0  51 30 2c 23 30 3a 4c 44  52 30 2c 5b 34 2c 23 30  |Q0,#0:LDR0,[4,#0|
00005fc0  5d 3a 42 49 43 65 71 20  30 2c 30 2c 23 31 3a 84  |]:BICeq 0,0,#1:.|
00005fd0  52 6e 65 30 2c 30 2c 23  31 3a 53 54 52 30 2c 5b  |Rne0,0,#1:STR0,[|
00005fe0  34 2c 23 30 5d 3a 42 20  6b 3a 5d 3a e1 0d 03 1c  |4,#0]:B k:]:....|
00005ff0  29 dd a4 68 5f 44 45 46  41 55 4c 54 ea 85 3a ee  |)..h_DEFAULT..:.|
00006000  85 ea f7 85 3a f2 5a 28  22 40 2e 68 2e 44 45 46  |....:.Z("@.h.DEF|
00006010  41 55 4c 54 22 29 0d 03  1d 6e 64 75 3d 31 36 3a  |AULT")...ndu=16:|
00006020  6b 6c 3d 31 3c 3c 33 30  3a 54 4a 3d 31 3c 3c 32  |kl=1<<30:TJ=1<<2|
00006030  39 3a 53 6c 3d 30 3a 70  6c 3d 31 3a 67 61 3d 32  |9:Sl=0:pl=1:ga=2|
00006040  3a 41 61 3d 33 3a 7a 61  3d 34 3a 71 5f 3d 35 3a  |:Aa=3:za=4:q_=5:|
00006050  63 61 3d 36 3a 4a 4a 3d  37 3a 71 69 3d 38 3a 50  |ca=6:JJ=7:qi=8:P|
00006060  75 3d 39 3a 74 61 3d 31  30 3a 6c 6c 3d 31 3c 3c  |u=9:ta=10:ll=1<<|
00006070  30 3a 6b 79 3d 31 3c 3c  31 3a 56 69 3d 31 3c 3c  |0:ky=1<<1:Vi=1<<|
00006080  32 3a 3d 30 0d 03 1e 31  dd a4 6a 75 6d 70 62 6c  |2:=0...1..jumpbl|
00006090  6f 63 6b 5f 44 45 46 41  55 4c 54 ea 85 3a ee 85  |ock_DEFAULT..:..|
000060a0  ea f7 85 3a f2 5a 28 22  40 2e 68 2e 44 45 46 41  |...:.Z("@.h.DEFA|
000060b0  55 4c 54 22 29 0d 03 1f  6d 5b 4f 50 54 53 25 80  |ULT")...m[OPTS%.|
000060c0  49 79 25 3a 2e 47 61 20  44 43 44 64 5f 3a 2e 45  |Iy%:.Ga DCDd_:.E|
000060d0  75 20 44 43 44 75 75 3a  2e 60 5f 20 44 43 44 78  |u DCDuu:.`_ DCDx|
000060e0  5f 3a 2e 54 5f 20 44 43  44 63 69 3a 2e 4f 75 20  |_:.T_ DCDci:.Ou |
000060f0  44 43 44 76 61 3a 2e 57  4a 20 44 43 44 6f 75 3a  |DCDva:.WJ DCDou:|
00006100  2e 6e 5f 20 44 43 44 67  6c 3a 2e 79 5f 20 44 43  |.n_ DCDgl:.y_ DC|
00006110  44 4d 6c 3a 2e 47 5f 20  44 43 44 76 75 3a 5d 3a  |DMl:.G_ DCDvu:]:|
00006120  3d 30 0d 03 20 25 dd a4  68 5f 73 74 64 69 6f ea  |=0.. %..h_stdio.|
00006130  85 3a ee 85 ea f7 85 3a  f2 5a 28 22 40 2e 68 2e  |.:.....:.Z("@.h.|
00006140  73 74 64 69 6f 22 29 0d  03 21 17 5a 4a 3d 30 3a  |stdio")..!.ZJ=0:|
00006150  46 69 3d 31 37 3a 4f 69  3d 33 34 3a 3d 30 0d 03  |Fi=17:Oi=34:=0..|
00006160  22 2d dd a4 6a 75 6d 70  62 6c 6f 63 6b 5f 73 74  |"-..jumpblock_st|
00006170  64 69 6f ea 85 3a ee 85  ea f7 85 3a f2 5a 28 22  |dio..:.....:.Z("|
00006180  40 2e 68 2e 73 74 64 69  6f 22 29 0d 03 23 98 5b  |@.h.stdio")..#.[|
00006190  4f 50 54 53 25 80 49 79  25 3a 2e 63 6c 20 44 43  |OPTS%.Iy%:.cl DC|
000061a0  44 6c 69 3a 2e 77 5f 20  44 43 44 41 69 3a 2e 44  |Dli:.w_ DCDAi:.D|
000061b0  61 20 44 43 44 4c 69 3a  2e 61 69 20 44 43 44 78  |a DCDLi:.ai DCDx|
000061c0  69 3a 2e 58 5f 20 44 43  44 74 4a 3a 2e 69 75 25  |i:.X_ DCDtJ:.iu%|
000061d0  44 43 44 6a 75 25 3a 2e  4d 6c 25 44 43 44 45 6c  |DCDju%:.Ml%DCDEl|
000061e0  25 3a 2e 5a 6c 25 44 43  44 6b 75 25 3a 2e 64 6c  |%:.Zl%DCDku%:.dl|
000061f0  20 44 43 44 59 75 3a 2e  49 6c 20 44 43 44 65 69  | DCDYu:.Il DCDei|
00006200  3a 2e 7a 4a 20 44 43 44  49 69 3a 2e 6e 69 20 44  |:.zJ DCDIi:.ni D|
00006210  43 44 72 69 3a 2e 45 6c  20 44 43 44 43 75 3a 5d  |CDri:.El DCDCu:]|
00006220  3a 3d 30 0d 03 24 27 dd  a4 68 5f 73 74 64 6c 69  |:=0..$'..h_stdli|
00006230  62 ea 85 3a ee 85 ea f7  85 3a f2 5a 28 22 40 2e  |b..:.....:.Z("@.|
00006240  68 2e 73 74 64 6c 69 62  22 29 0d 03 25 06 3d 30  |h.stdlib")..%.=0|
00006250  0d 03 26 2f dd a4 6a 75  6d 70 62 6c 6f 63 6b 5f  |..&/..jumpblock_|
00006260  73 74 64 6c 69 62 ea 85  3a ee 85 ea f7 85 3a f2  |stdlib..:.....:.|
00006270  5a 28 22 40 2e 68 2e 73  74 64 6c 69 62 22 29 0d  |Z("@.h.stdlib").|
00006280  03 27 b3 5b 4f 50 54 53  25 80 49 79 25 3a 2e 75  |.'.[OPTS%.Iy%:.u|
00006290  79 20 44 43 44 6d 75 3a  2e 53 5f 20 44 43 44 58  |y DCDmu:.S_ DCDX|
000062a0  6c 3a 2e 52 69 20 44 43  44 6a 6c 3a 2e 43 5f 20  |l:.Ri DCDjl:.C_ |
000062b0  44 43 44 4b 75 3a 2e 51  4a 20 44 43 44 4e 75 3a  |DCDKu:.QJ DCDNu:|
000062c0  2e 55 61 20 44 43 44 6e  4a 3a 2e 72 6c 20 44 43  |.Ua DCDnJ:.rl DC|
000062d0  44 68 6c 3a 2e 72 61 20  44 43 44 70 61 3a 2e 69  |Dhl:.ra DCDpa:.i|
000062e0  61 20 44 43 44 46 6c 3a  2e 73 75 20 44 43 44 6c  |a DCDFl:.su DCDl|
000062f0  4a 3a 2e 4a 61 20 44 43  44 4e 4a 3a 2e 52 5f 20  |J:.Ja DCDNJ:.R_ |
00006300  44 43 44 69 4a 3a 2e 59  61 20 44 43 44 56 5f 3a  |DCDiJ:.Ya DCDV_:|
00006310  2e 69 75 20 44 43 44 55  75 3a 2e 51 69 20 44 43  |.iu DCDUu:.Qi DC|
00006320  44 52 6c 3a 2e 56 4a 20  44 43 44 6a 61 3a 5d 3a  |DRl:.VJ DCDja:]:|
00006330  3d 30 0d 03 28 27 dd a4  68 5f 73 74 72 69 6e 67  |=0..('..h_string|
00006340  ea 85 3a ee 85 ea f7 85  3a f2 5a 28 22 40 2e 68  |..:.....:.Z("@.h|
00006350  2e 73 74 72 69 6e 67 22  29 0d 03 29 53 50 25 3d  |.string")..)SP%=|
00006360  30 3a 5b 4f 50 54 53 25  3a 2e 4a 75 20 44 43 42  |0:[OPTS%:.Ju DCB|
00006370  30 3a 2e 66 5f 20 44 43  42 30 3a 2e 6d 6c 20 44  |0:.f_ DCB0:.ml D|
00006380  43 42 30 3a 2e 65 4a 20  44 43 42 30 3a 2e 67 75  |CB0:.eJ DCB0:.gu|
00006390  20 44 43 42 30 3a 2e 44  6c 20 44 43 42 30 3a 2e  | DCB0:.Dl DCB0:.|
000063a0  51 6c 20 44 43 42 30 3a  5d 3a 3d 30 0d 03 2a 2f  |Ql DCB0:]:=0..*/|
000063b0  dd a4 6a 75 6d 70 62 6c  6f 63 6b 5f 73 74 72 69  |..jumpblock_stri|
000063c0  6e 67 ea 85 3a ee 85 ea  f7 85 3a f2 5a 28 22 40  |ng..:.....:.Z("@|
000063d0  2e 68 2e 73 74 72 69 6e  67 22 29 0d 03 2b cc 5b  |.h.string")..+.[|
000063e0  4f 50 54 53 25 80 49 79  25 3a 2e 4d 4a 20 44 43  |OPTS%.Iy%:.MJ DC|
000063f0  44 71 4a 3a 2e 57 75 20  44 43 44 5a 69 3a 2e 73  |DqJ:.Wu DCDZi:.s|
00006400  4a 20 44 43 44 76 5f 3a  2e 4c 61 20 44 43 44 5a  |J DCDv_:.La DCDZ|
00006410  61 3a 2e 4a 6c 20 44 43  44 74 69 3a 2e 64 69 20  |a:.Jl DCDti:.di |
00006420  44 43 44 77 6c 3a 2e 46  61 20 44 43 44 66 4a 3a  |DCDwl:.Fa DCDfJ:|
00006430  2e 43 4a 20 44 43 44 4b  69 3a 2e 63 5f 20 44 43  |.CJ DCDKi:.c_ DC|
00006440  44 47 75 3a 2e 45 61 20  44 43 44 58 75 3a 2e 51  |DGu:.Ea DCDXu:.Q|
00006450  61 20 44 43 44 72 75 3a  2e 4b 4a 20 44 43 44 51  |a DCDru:.KJ DCDQ|
00006460  75 3a 2e 52 4a 20 44 43  44 52 61 3a 2e 77 75 20  |u:.RJ DCDRa:.wu |
00006470  44 43 44 72 4a 3a 2e 6e  61 20 44 43 44 4b 5f 3a  |DCDrJ:.na DCDK_:|
00006480  2e 6a 4a 20 44 43 44 55  69 3a 2e 4d 61 20 44 43  |.jJ DCDUi:.Ma DC|
00006490  44 65 5f 3a 2e 6d 5f 20  44 43 44 61 4a 3a 2e 4e  |De_:.m_ DCDaJ:.N|
000064a0  61 20 44 43 44 44 5f 0d  03 2c ee 2e 6a 69 20 44  |a DCDD_..,..ji D|
000064b0  43 44 7a 5f 3a 2e 62 75  20 44 43 44 4f 5f 3a 2e  |CDz_:.bu DCDO_:.|
000064c0  61 75 20 44 43 44 4e 69  3a 2e 70 75 20 44 43 44  |au DCDNi:.pu DCD|
000064d0  4c 6c 3a 2e 48 69 20 44  43 44 74 5f 3a 2e 55 6c  |Ll:.Hi DCDt_:.Ul|
000064e0  20 44 43 44 46 4a 3a 2e  60 6c 20 44 43 44 6b 5f  | DCDFJ:.`l DCDk_|
000064f0  3a 2e 66 6c 20 44 43 44  78 4a 3a 2e 73 6c 20 44  |:.fl DCDxJ:.sl D|
00006500  43 44 68 69 3a 2e 65 6c  20 44 43 44 48 4a 3a 2e  |CDhi:.el DCDHJ:.|
00006510  53 69 20 44 43 44 6c 61  3a 2e 48 6c 20 44 43 44  |Si DCDla:.Hl DCD|
00006520  5f 5f 3a 2e 59 6c 20 44  43 44 7a 75 3a 2e 4b 6c  |__:.Yl DCDzu:.Kl|
00006530  20 44 43 44 70 5f 3a 2e  48 75 20 44 43 44 4e 6c  | DCDp_:.Hu DCDNl|
00006540  3a 2e 68 75 20 44 43 44  62 5f 3a 2e 52 75 20 44  |:.hu DCDb_:.Ru D|
00006550  43 44 72 5f 3a 2e 48 5f  20 44 43 44 70 4a 3a 2e  |CDr_:.H_ DCDpJ:.|
00006560  65 75 20 44 43 44 49 4a  3a 2e 4d 75 20 44 43 44  |eu DCDIJ:.Mu DCD|
00006570  56 75 3a 2e 45 69 20 44  43 44 43 61 3a 2e 53 75  |Vu:.Ei DCDCa:.Su|
00006580  20 44 43 44 60 75 3a 2e  66 61 20 44 43 44 75 6c  | DCD`u:.fa DCDul|
00006590  3a 5d 3a 3d 30 0d 03 2d  29 dd a4 68 5f 6d 65 73  |:]:=0..-)..h_mes|
000065a0  73 61 67 65 ea 85 3a ee  85 ea f7 85 3a f2 5a 28  |sage..:.....:.Z(|
000065b0  22 40 2e 68 2e 6d 65 73  73 61 67 65 22 29 0d 03  |"@.h.message")..|
000065c0  2e 06 3d 30 0d 03 2f 31  dd a4 6a 75 6d 70 62 6c  |..=0../1..jumpbl|
000065d0  6f 63 6b 5f 6d 65 73 73  61 67 65 ea 85 3a ee 85  |ock_message..:..|
000065e0  ea f7 85 3a f2 5a 28 22  40 2e 68 2e 6d 65 73 73  |...:.Z("@.h.mess|
000065f0  61 67 65 22 29 0d 03 30  45 5b 4f 50 54 53 25 80  |age")..0E[OPTS%.|
00006600  49 79 25 3a 2e 42 5f 20  44 43 44 6f 61 3a 2e 4c  |Iy%:.B_ DCDoa:.L|
00006610  5f 20 44 43 44 6c 5f 3a  2e 79 4a 20 44 43 44 6b  |_ DCDl_:.yJ DCDk|
00006620  75 3a 2e 6f 69 20 44 43  44 47 69 3a 2e 54 61 20  |u:.oi DCDGi:.Ta |
00006630  44 43 44 6c 75 3a 5d 3a  3d 30 0d 03 31 23 dd a4  |DCDlu:]:=0..1#..|
00006640  68 5f 77 69 6d 70 ea 85  3a ee 85 ea f7 85 3a f2  |h_wimp..:.....:.|
00006650  5a 28 22 40 2e 68 2e 77  69 6d 70 22 29 0d 03 32  |Z("@.h.wimp")..2|
00006660  ca 63 75 3d 31 32 3a 56  61 3d 30 3a 50 25 3d 30  |.cu=12:Va=0:P%=0|
00006670  3a 5b 4f 50 54 53 25 3a  2e 7a 79 20 44 43 42 30  |:[OPTS%:.zy DCB0|
00006680  3a 2e 43 6c 20 44 43 42  30 3a 2e 50 5f 20 44 43  |:.Cl DCB0:.P_ DC|
00006690  42 30 3a 2e 73 5f 20 44  43 42 30 3a 2e 77 4a 20  |B0:.s_ DCB0:.wJ |
000066a0  44 43 42 30 3a 2e 4b 79  20 44 43 42 30 3a 2e 6b  |DCB0:.Ky DCB0:.k|
000066b0  61 20 44 43 42 30 3a 2e  51 5f 20 44 43 42 30 3a  |a DCB0:.Q_ DCB0:|
000066c0  2e 6d 79 20 44 43 42 30  3a 2e 46 75 20 44 43 42  |.my DCB0:.Fu DCB|
000066d0  30 3a 2e 79 61 20 44 43  42 30 3a 2e 66 69 20 44  |0:.ya DCB0:.fi D|
000066e0  43 42 30 3a 2e 6f 4a 20  44 43 42 30 3a 2e 6e 6c  |CB0:.oJ DCB0:.nl|
000066f0  20 44 43 42 30 3a 2e 6a  5f 20 44 43 42 30 3a 2e  | DCB0:.j_ DCB0:.|
00006700  6d 69 20 44 43 42 30 3a  2e 62 4a 20 44 43 42 30  |mi DCB0:.bJ DCB0|
00006710  3a 5d 3a 50 25 3d 30 3a  5b 4f 50 54 53 25 3a 2e  |:]:P%=0:[OPTS%:.|
00006720  4e 5f 20 44 43 42 30 0d  03 33 a6 2e 61 6c 20 44  |N_ DCB0..3..al D|
00006730  43 42 30 3a 2e 5a 5f 20  44 43 42 30 3a 2e 4a 5f  |CB0:.Z_ DCB0:.J_|
00006740  20 44 43 42 30 3a 2e 66  75 20 44 43 42 30 3a 2e  | DCB0:.fu DCB0:.|
00006750  59 4a 20 44 43 42 30 3a  2e 47 4a 20 44 43 42 30  |YJ DCB0:.GJ DCB0|
00006760  3a 2e 62 69 20 44 43 42  30 3a 2e 45 6e 20 44 43  |:.bi DCB0:.En DC|
00006770  42 30 3a 2e 50 6c 20 44  43 42 30 3a 2e 4d 69 20  |B0:.Pl DCB0:.Mi |
00006780  44 43 42 30 3a 2e 6e 75  20 44 43 42 30 3a 5d 3a  |DCB0:.nu DCB0:]:|
00006790  50 25 3d 30 3a 5b 4f 50  54 53 25 3a 2e 57 6c 20  |P%=0:[OPTS%:.Wl |
000067a0  44 43 42 30 3a 2e 5a 75  20 44 43 42 30 3a 2e 60  |DCB0:.Zu DCB0:.`|
000067b0  69 20 44 43 42 30 3a 2e  67 5f 20 44 43 42 30 3a  |i DCB0:.g_ DCB0:|
000067c0  2e 78 61 20 44 43 42 30  3a 5d 3a 3d 30 0d 03 34  |.xa DCB0:]:=0..4|
000067d0  2b dd a4 6a 75 6d 70 62  6c 6f 63 6b 5f 77 69 6d  |+..jumpblock_wim|
000067e0  70 ea 85 3a ee 85 ea f7  85 3a f2 5a 28 22 40 2e  |p..:.....:.Z("@.|
000067f0  68 2e 77 69 6d 70 22 29  0d 03 35 c7 5b 4f 50 54  |h.wimp")..5.[OPT|
00006800  53 25 80 49 79 25 3a 2e  6d 61 20 44 43 44 47 6c  |S%.Iy%:.ma DCDGl|
00006810  3a 2e 44 75 20 44 43 44  57 69 3a 2e 67 4a 20 44  |:.Du DCDWi:.gJ D|
00006820  43 44 53 61 3a 2e 7a 6c  20 44 43 44 73 69 3a 2e  |CDSa:.zl DCDsi:.|
00006830  64 79 20 44 43 44 60 4a  3a 2e 6b 69 20 44 43 44  |dy DCD`J:.ki DCD|
00006840  44 69 3a 2e 4b 61 20 44  43 44 55 4a 3a 2e 6f 6c  |Di:.Ka DCDUJ:.ol|
00006850  20 44 43 44 57 61 3a 2e  76 79 20 44 43 44 41 75  | DCDWa:.vy DCDAu|
00006860  3a 2e 77 61 20 44 43 44  49 61 3a 2e 69 69 20 44  |:.wa DCDIa:.ii D|
00006870  43 44 4f 6c 3a 2e 50 4a  20 44 43 44 70 69 3a 2e  |CDOl:.PJ DCDpi:.|
00006880  78 75 20 44 43 44 5a 6c  3a 2e 4f 61 20 44 43 44  |xu DCDZl:.Oa DCD|
00006890  56 6c 3a 2e 50 69 20 44  43 44 68 61 3a 2e 73 61  |Vl:.Pi DCDha:.sa|
000068a0  20 44 43 44 4a 69 3a 2e  79 69 20 44 43 44 68 4a  | DCDJi:.yi DCDhJ|
000068b0  3a 2e 76 69 20 44 43 44  62 61 3a 5d 3a 3d 30 0d  |:.vi DCDba:]:=0.|
000068c0  03 36 1f dd f2 68 79 ea  6a 25 2c 59 5f 25 2c 57  |.6...hy.j%,Y_%,W|
000068d0  24 3a ea dc 3a f7 2b 30  3a e7 53 5f 25 8c 0d 03  |$:..:.+0:.S_%...|
000068e0  37 28 6a 25 3d 21 28 a4  42 28 22 50 72 6f 67 49  |7(j%=!(.B("ProgI|
000068f0  6e 66 6f 22 29 2b 43 2b  38 38 2b 28 4f 79 3c 3c  |nfo")+C+88+(Oy<<|
00006900  35 29 2b 32 30 29 0d 03  38 12 cc 6a 25 3d a4 46  |5)+20)..8..j%=.F|
00006910  79 28 75 25 2c 4f 79 29  0d 03 39 4c cd 3a f3 57  |y(u%,Oy)..9L.:.W|
00006920  24 3a 59 5f 25 3d 97 28  57 24 29 3a 57 24 3d c1  |$:Y_%=.(W$):W$=.|
00006930  57 24 2c 32 29 3a c8 95  57 24 3c 3e 22 22 3a 3f  |W$,2):..W$<>"":?|
00006940  6a 25 3d 97 28 57 24 29  82 59 5f 25 3a 57 24 3d  |j%=.(W$).Y_%:W$=|
00006950  c1 57 24 2c 32 29 3a 6a  25 2b 3d 31 3a ce 3a 3f  |.W$,2):j%+=1:.:?|
00006960  6a 25 3d 30 0d 03 3a 38  dc 22 d3 86 bd a1 b6 b4  |j%=0..:8."......|
00006970  ba a0 a7 b6 a1 b6 b7 22  2c 2c 2c 2c 2c 2c 2c 2c  |.......",,,,,,,,|
00006980  2c 2c 2c 2c 2c 2c 2c 2c  2c 2c 2c 2c 2c 2c 2c 2c  |,,,,,,,,,,,,,,,,|
00006990  2c 2c 2c 2c 2c 2c 2c 2c  2c 2c 2c 2c 0d 03 3b 05  |,,,,,,,,,,,,..;.|
000069a0  e1 0d 03 3c d0 dd f2 55  79 ea 5a 25 3a 77 79 25  |...<...Uy.Z%:wy%|
000069b0  3d 31 33 3a de 61 5f 25  77 79 25 3a de 60 4a 25  |=13:.a_%wy%:.`J%|
000069c0  a9 20 28 58 24 29 2b 32  2b 31 3a 5a 25 3d a4 41  |. (X$)+2+1:Z%=.A|
000069d0  28 35 31 32 29 3a 5a 25  21 30 3d 2d 31 3a 5a 25  |(512):Z%!0=-1:Z%|
000069e0  21 34 3d 30 3a 5a 25 21  38 3d 2d 31 36 3a 5a 25  |!4=0:Z%!8=-16:Z%|
000069f0  21 31 32 3d 36 38 2b 28  77 79 25 2d 35 29 2a 38  |!12=68+(wy%-5)*8|
00006a00  2a 32 3a 5a 25 21 31 36  3d 38 34 3a 5a 25 21 32  |*2:Z%!16=84:Z%!2|
00006a10  30 3d 26 31 37 30 30 33  31 32 62 3a 5a 25 21 32  |0=&1700312b:Z%!2|
00006a20  34 3d 61 5f 25 3a 24 61  5f 25 3d 22 22 3a 24 60  |4=a_%:$a_%="":$`|
00006a30  4a 25 3d 22 53 21 42 43  22 3a 5a 25 21 32 38 3d  |J%="S!BC":Z%!28=|
00006a40  60 4a 25 3a 5a 25 21 33  32 3d 77 79 25 3a c8 99  |`J%:Z%!32=wy%:..|
00006a50  26 34 30 30 63 32 2c 2c  5a 25 b8 5f 4a 25 3a f2  |&400c2,,Z%._J%:.|
00006a60  4d 28 5a 25 2c 35 31 32  29 3a f2 58 28 49 29 3a  |M(Z%,512):.X(I):|
00006a70  e1 0d 03 3d 14 dd f2 58  28 46 75 25 29 e7 46 75  |...=...X(Fu%).Fu|
00006a80  25 3c 3e 49 8c 0d 03 3e  32 f2 6c 28 22 49 63 6f  |%<>I...>2.l("Ico|
00006a90  6e 42 61 72 22 2c 46 75  25 2b 31 29 3a 24 61 5f  |nBar",Fu%+1):$a_|
00006aa0  25 3d c0 a4 47 28 22 49  63 6f 6e 42 61 72 22 29  |%=..G("IconBar")|
00006ab0  2c 77 79 25 2d 31 29 0d  03 3f 20 cc 24 61 5f 25  |,wy%-1)..? .$a_%|
00006ac0  3d c0 22 55 6e 52 65 67  69 73 74 65 72 65 64 22  |=."UnRegistered"|
00006ad0  2c 77 79 25 2d 31 29 0d  03 40 19 cd 3a f2 63 79  |,wy%-1)..@..:.cy|
00006ae0  28 2d 31 2c 5f 4a 25 2c  30 2c 30 2c 30 29 3a e1  |(-1,_J%,0,0,0):.|
00006af0  0d 03 41 1a dd a4 5f 46  69 6c 65 54 79 70 65 5f  |..A..._FileType_|
00006b00  76 65 72 73 69 6f 6e 3d  31 30 0d 03 42 b6 dd a4  |version=10..B...|
00006b10  5f 68 61 72 64 5f 69 6e  69 74 69 61 6c 69 73 65  |_hard_initialise|
00006b20  5f 46 69 6c 65 54 79 70  65 3a 58 61 3d 2d 31 3a  |_FileType:Xa=-1:|
00006b30  42 61 3d 38 31 39 32 3a  71 61 3d 34 30 39 36 3a  |Ba=8192:qa=4096:|
00006b40  61 3d 34 30 39 35 3a 41  4a 3d 34 30 39 33 3a 79  |a=4095:AJ=4093:y|
00006b50  3d 34 30 39 31 3a 5f 6c  3d 34 30 38 39 3a 43 69  |=4091:_l=4089:Ci|
00006b60  3d 34 30 38 36 3a 74 6c  3d 34 30 37 36 3a 64 61  |=4086:tl=4076:da|
00006b70  3d 34 30 37 35 3a 44 4a  3d 33 34 37 38 3a 42 75  |=4075:DJ=3478:Bu|
00006b80  3d 33 33 38 38 3a 58 69  3d 33 32 36 39 3a 42 6c  |=3388:Xi=3269:Bl|
00006b90  3d 33 32 35 34 3a 79 6c  3d 33 32 35 33 3a 54 69  |=3254:yl=3253:Ti|
00006ba0  3d 32 38 31 35 3a 79 75  3d 32 37 37 39 3a 7a 69  |=2815:yu=2779:zi|
00006bb0  3d 31 37 39 33 3a 49 75  3d 31 32 39 36 3a 3d 30  |=1793:Iu=1296:=0|
00006bc0  0d 03 43 18 dd a4 5f 49  6e 74 4d 61 74 68 5f 76  |..C..._IntMath_v|
00006bd0  65 72 73 69 6f 6e 3d 36  0d 03 44 20 dd a4 5f 68  |ersion=6..D .._h|
00006be0  61 72 64 5f 69 6e 69 74  69 61 6c 69 73 65 5f 49  |ard_initialise_I|
00006bf0  6e 74 4d 61 74 68 3d 30  0d 03 45 19 dd a4 5f 4d  |ntMath=0..E..._M|
00006c00  6f 64 65 49 6e 66 6f 5f  76 65 72 73 69 6f 6e 3d  |odeInfo_version=|
00006c10  36 0d 03 46 21 dd a4 5f  68 61 72 64 5f 69 6e 69  |6..F!.._hard_ini|
00006c20  74 69 61 6c 69 73 65 5f  4d 6f 64 65 49 6e 66 6f  |tialise_ModeInfo|
00006c30  3d 30 0d 03 47 f2 dd f2  62 79 28 45 79 25 29 c8  |=0..G...by(Ey%).|
00006c40  99 35 33 2c 45 79 25 2c  31 b8 2c 2c 54 4a 25 3a  |.53,Ey%,1.,,TJ%:|
00006c50  54 4a 25 2b 3d 31 3a c8  99 35 33 2c 45 79 25 2c  |TJ%+=1:..53,Ey%,|
00006c60  32 b8 2c 2c 46 4a 25 3a  46 4a 25 2b 3d 31 3a c8  |2.,,FJ%:FJ%+=1:.|
00006c70  99 35 33 2c 45 79 25 2c  33 b8 2c 2c 51 75 25 3a  |.53,Ey%,3.,,Qu%:|
00006c80  51 75 25 2b 3d 31 3a c8  99 35 33 2c 45 79 25 2c  |Qu%+=1:..53,Ey%,|
00006c90  34 b8 2c 2c 61 75 25 3a  c8 99 35 33 2c 45 79 25  |4.,,au%:..53,Ey%|
00006ca0  2c 35 b8 2c 2c 7a 75 25  3a c8 99 35 33 2c 45 79  |,5.,,zu%:..53,Ey|
00006cb0  25 2c 36 b8 2c 2c 58 6c  25 3a c8 99 35 33 2c 45  |%,6.,,Xl%:..53,E|
00006cc0  79 25 2c 37 b8 2c 2c 75  75 25 3a c8 99 35 33 2c  |y%,7.,,uu%:..53,|
00006cd0  45 79 25 2c 39 b8 2c 2c  78 75 25 3a 52 75 25 3d  |Ey%,9.,,xu%:Ru%=|
00006ce0  31 3c 3c 78 75 25 3a c8  99 35 33 2c 45 79 25 2c  |1<<xu%:..53,Ey%,|
00006cf0  31 31 b8 2c 2c 49 5f 25  3a 49 5f 25 2b 3d 31 3a  |11.,,I_%:I_%+=1:|
00006d00  c8 99 35 33 2c 45 79 25  2c 31 32 b8 2c 2c 4a 5f  |..53,Ey%,12.,,J_|
00006d10  25 3a 4a 5f 25 2b 3d 31  3a 52 6c 25 3d 49 5f 25  |%:J_%+=1:Rl%=I_%|
00006d20  81 54 4a 25 0d 03 48 3e  43 6c 25 3d 4a 5f 25 81  |.TJ%..H>Cl%=J_%.|
00006d30  46 4a 25 3a 78 5f 25 3d  28 49 5f 25 3c 3c 61 75  |FJ%:x_%=(I_%<<au|
00006d40  25 29 2d 31 3a 64 5f 25  3d 28 4a 5f 25 3c 3c 7a  |%)-1:d_%=(J_%<<z|
00006d50  75 25 29 2d 31 3a 6f 75  25 3d 33 32 81 52 75 25  |u%)-1:ou%=32.Ru%|
00006d60  3a e1 0d 03 49 16 dd a4  5f 57 69 6d 70 5f 76 65  |:...I..._Wimp_ve|
00006d70  72 73 69 6f 6e 3d 35 30  0d 03 4a 2f dd a4 5f 68  |rsion=50..J/.._h|
00006d80  61 72 64 5f 69 6e 69 74  69 61 6c 69 73 65 5f 57  |ard_initialise_W|
00006d90  69 6d 70 ea 76 25 3a e7  a4 4b 3c 31 32 8c 85 31  |imp.v%:..K<12..1|
00006da0  2c 22 45 49 57 31 22 0d  03 4b 49 c8 99 26 34 30  |,"EIW1"..KI..&40|
00006db0  30 66 32 2c 30 b8 76 25  3a e7 76 25 3d 30 8c 85  |0f2,0.v%:.v%=0..|
00006dc0  31 2c 22 41 70 70 6c 69  63 61 74 69 6f 6e 20 6e  |1,"Application n|
00006dd0  65 65 64 73 20 74 6f 20  62 65 20 72 75 6e 20 66  |eeds to be run f|
00006de0  72 6f 6d 20 74 68 65 20  64 65 73 6b 74 6f 70 22  |rom the desktop"|
00006df0  0d 03 4c a6 f2 53 28 22  3c 42 61 73 69 63 56 24  |..L..S("<BasicV$|
00006e00  4c 69 62 3e 2e 48 65 61  70 22 2c 38 29 3a f2 53  |Lib>.Heap",8):.S|
00006e10  28 22 3c 42 61 73 69 63  56 24 4c 69 62 3e 2e 49  |("<BasicV$Lib>.I|
00006e20  6e 74 4d 61 74 68 22 2c  35 29 3a f2 53 28 22 3c  |ntMath",5):.S("<|
00006e30  42 61 73 69 63 56 24 4c  69 62 3e 2e 4d 65 73 73  |BasicV$Lib>.Mess|
00006e40  61 67 65 22 2c 33 29 3a  f2 53 28 22 3c 42 61 73  |age",3):.S("<Bas|
00006e50  69 63 56 24 4c 69 62 3e  2e 54 65 6d 70 6c 61 74  |icV$Lib>.Templat|
00006e60  65 22 2c 37 29 3a f2 53  28 22 3c 42 61 73 69 63  |e",7):.S("<Basic|
00006e70  56 24 4c 69 62 3e 2e 4e  75 6c 6c 52 65 61 73 6f  |V$Lib>.NullReaso|
00006e80  6e 22 2c 31 29 3a 71 79  25 3d a3 3a 74 79 25 3d  |n",1):qy%=.:ty%=|
00006e90  33 2a 31 30 32 34 0d 03  4d 9f f2 42 28 60 79 25  |3*1024..M..B(`y%|
00006ea0  2c 74 79 25 29 3a 74 79  25 2b 3d 60 79 25 3a 48  |,ty%):ty%+=`y%:H|
00006eb0  79 25 3d 60 79 25 3a f2  42 28 57 25 2c 35 31 32  |y%=`y%:.B(W%,512|
00006ec0  29 3a 6b 24 3d 22 22 3a  65 24 3d 22 22 3a 53 4a  |):k$="":e$="":SJ|
00006ed0  25 3d 30 3a 58 24 3d 22  41 70 70 6c 69 63 61 74  |%=0:X$="Applicat|
00006ee0  69 6f 6e 22 3a 4b 24 3d  22 30 2e 30 30 20 28 30  |ion":K$="0.00 (0|
00006ef0  31 2d 4a 61 6e 2d 31 39  30 30 29 22 3a 59 25 3d  |1-Jan-1900)":Y%=|
00006f00  2d 31 3a 62 79 25 3d 32  34 30 30 3a 79 79 25 3d  |-1:by%=2400:yy%=|
00006f10  32 34 30 31 3a 56 6c 25  3d 31 36 2a 31 30 32 34  |2401:Vl%=16*1024|
00006f20  3a 44 24 3d 22 22 3a 4f  75 25 3d b9 3a 68 79 25  |:D$="":Ou%=.:hy%|
00006f30  3d 30 3a 3d 30 0d 03 4e  3a dd a4 64 28 79 24 29  |=0:=0..N:..d(y$)|
00006f40  ea 6a 25 2c 43 25 2c 57  24 2c 51 25 2c 56 25 2c  |.j%,C%,W$,Q%,V%,|
00006f50  76 4a 25 3a c8 99 26 36  30 30 66 32 2c 32 b8 6a  |vJ%:..&600f2,2.j|
00006f60  25 3b 43 25 3a e7 28 43  25 80 31 29 3d 30 8c 0d  |%;C%:.(C%.1)=0..|
00006f70  03 4f 44 c8 99 35 33 2c  2d 31 2c 34 b8 2c 2c 51  |.OD..53,-1,4.,,Q|
00006f80  25 3a c8 99 35 33 2c 2d  31 2c 35 b8 2c 2c 56 25  |%:..53,-1,5.,,V%|
00006f90  3a c8 99 35 33 2c 2d 31  2c 31 30 b8 2c 2c 76 4a  |:..53,-1,10.,,vJ|
00006fa0  25 3a e7 51 25 3c 32 80  56 25 3c 32 80 76 4a 25  |%:.Q%<2.V%<2.vJ%|
00006fb0  3d 30 8c 0d 03 50 0b 57  24 3d 22 32 33 22 0d 03  |=0...P.W$="23"..|
00006fc0  51 0e cc 57 24 3d a4 50  28 6a 25 29 0d 03 52 16  |Q..W$=.P(j%)..R.|
00006fd0  cd 3a 6a 25 3d 8e 28 79  24 2b 57 24 29 3a e7 6a  |.:j%=.(y$+W$):.j|
00006fe0  25 8c 0d 03 53 0f d9 23  6a 25 3a 79 24 2b 3d 57  |%...S..#j%:y$+=W|
00006ff0  24 0d 03 54 05 cd 0d 03  55 09 cd 3a 3d 79 24 0d  |$..T....U..:=y$.|
00007000  03 56 17 dd a4 4e 28 59  79 25 29 3d 28 59 79 25  |.V...N(Yy%)=(Yy%|
00007010  80 31 29 3c 3e 30 0d 03  57 16 dd f2 46 79 28 55  |.1)<>0..W...Fy(U|
00007020  25 2c 46 25 29 e7 46 25  3d 2d 31 8c 0d 03 58 1f  |%,F%).F%=-1...X.|
00007030  c8 99 26 36 30 30 64 32  2c 55 25 2c 2d 31 2c 30  |..&600d2,U%,-1,0|
00007040  2c 30 2c 31 3c 3c 32 35  2c 2d 31 0d 03 59 33 cc  |,0,1<<25,-1..Y3.|
00007050  c8 99 26 36 30 30 64 32  2c 55 25 2c 46 25 2c 2c  |..&600d2,U%,F%,,|
00007060  2c 2d 31 2c a9 28 a4 43  28 55 25 2c 46 25 29 29  |,-1,.(.C(U%,F%))|
00007070  3a c8 99 26 64 63 62 38  64 2c 38 2c 55 25 0d 03  |:..&dcb8d,8,U%..|
00007080  5a 07 cd 3a e1 0d 03 5b  18 dd f2 77 79 c8 99 26  |Z..:...[...wy..&|
00007090  34 30 30 64 32 2c 2d 31  2c 2d 31 3a e1 0d 03 5c  |400d2,-1,-1:...\|
000070a0  1f dd f2 47 28 55 25 29  e7 55 25 3e 30 8c c8 99  |...G(U%).U%>0...|
000070b0  26 64 63 62 38 64 2c 4a  5f 2c 55 25 0d 03 5d 05  |&dcb8d,J_,U%..].|
000070c0  e1 0d 03 5e 1f dd f2 57  79 28 55 25 29 c8 99 26  |...^...Wy(U%)..&|
000070d0  64 63 62 38 64 2c 4e 5f  2c 55 25 2c 2d 31 3a e1  |dcb8d,N_,U%,-1:.|
000070e0  0d 03 5f 20 dd a4 5a 79  28 55 25 29 c8 99 26 64  |.._ ..Zy(U%)..&d|
000070f0  63 62 38 64 2c 5a 5f 2c  55 25 2c 2d 31 3a 3d b9  |cb8d,Z_,U%,-1:=.|
00007100  0d 03 60 5a dd f2 48 5f  28 55 25 2c 4b 6c 25 29  |..`Z..H_(U%,Kl%)|
00007110  ea 4d 25 3a 4d 25 3d a4  41 28 31 32 38 29 3a 21  |.M%:M%=.A(128):!|
00007120  4d 25 3d 55 25 3a c8 99  26 34 30 30 63 62 2c 2c  |M%=U%:..&400cb,,|
00007130  4d 25 3a 4d 25 21 32 38  3d 4b 6c 25 3a c8 99 26  |M%:M%!28=Kl%:..&|
00007140  34 30 30 65 37 2c 32 2c  4d 25 2c 55 25 3a f2 4d  |400e7,2,M%,U%:.M|
00007150  28 4d 25 2c 31 32 38 29  3a e1 0d 03 61 6e dd f2  |(M%,128):...an..|
00007160  63 79 28 55 25 2c 46 25  2c 5a 75 25 2c 50 6c 25  |cy(U%,F%,Zu%,Pl%|
00007170  2c 4e 6c 25 29 ea 5a 25  3a 5a 25 3d a4 41 28 31  |,Nl%).Z%:Z%=.A(1|
00007180  36 29 3a 5a 25 21 30 3d  55 25 3a 5a 25 21 34 3d  |6):Z%!0=U%:Z%!4=|
00007190  46 25 3a 5a 25 21 38 3d  50 6c 25 3c 3c 5a 75 25  |F%:Z%!8=Pl%<<Zu%|
000071a0  3a 5a 25 21 31 32 3d 4e  6c 25 3c 3c 5a 75 25 3a  |:Z%!12=Nl%<<Zu%:|
000071b0  c8 99 26 34 30 30 63 64  2c 2c 5a 25 3a f2 4d 28  |..&400cd,,Z%:.M(|
000071c0  5a 25 2c 31 36 29 3a e1  0d 03 62 26 dd a4 57 28  |Z%,16):...b&..W(|
000071d0  55 25 2c 46 25 29 c8 99  26 64 63 62 38 63 2c 6d  |U%,F%)..&dcb8c,m|
000071e0  79 2c 55 25 2c 46 25 b8  46 25 3a 3d 46 25 0d 03  |y,U%,F%.F%:=F%..|
000071f0  63 29 dd f2 41 28 55 25  2c 46 25 2c 47 6c 25 29  |c)..A(U%,F%,Gl%)|
00007200  c8 99 26 64 63 62 38 63  2c 51 5f 2c 55 25 2c 46  |..&dcb8c,Q_,U%,F|
00007210  25 2c 47 6c 25 3a e1 0d  03 64 66 dd f2 4d 79 28  |%,Gl%:...df..My(|
00007220  55 25 2c 46 25 2c 6e 24  29 ea 5a 25 2c 71 6c 25  |U%,F%,n$).Z%,ql%|
00007230  2c 78 6c 25 2c 5f 6c 25  2c 77 6c 25 2c 4f 6c 25  |,xl%,_l%,wl%,Ol%|
00007240  2c 59 6c 25 3a 5a 25 3d  a4 41 28 36 34 29 3a 21  |,Yl%:Z%=.A(64):!|
00007250  5a 25 3d 55 25 3a 5a 25  21 34 3d 46 25 3a c8 99  |Z%=U%:Z%!4=F%:..|
00007260  26 34 30 30 63 65 2c 2c  5a 25 3a e7 28 28 5a 25  |&400ce,,Z%:.((Z%|
00007270  21 32 34 29 80 32 35 39  29 3c 3e 32 8c 0d 03 65  |!24).259)<>2...e|
00007280  20 f2 57 28 22 42 61 64  20 72 65 6e 61 6d 65 20  | .W("Bad rename |
00007290  69 63 6f 6e 20 74 6f 20  22 2b 6e 24 29 0d 03 66  |icon to "+n$)..f|
000072a0  64 cd 3a c8 99 26 34 30  30 63 34 2c 2c 5a 25 3a  |d.:..&400c4,,Z%:|
000072b0  24 28 5a 25 2b 32 38 29  3d 6e 24 3a 5a 25 21 34  |$(Z%+28)=n$:Z%!4|
000072c0  3d 55 25 3a c8 99 26 34  30 30 63 32 2c 2c 5a 25  |=U%:..&400c2,,Z%|
000072d0  2b 34 3a c8 99 26 34 30  30 64 31 2c 55 25 2c 5a  |+4:..&400d1,U%,Z|
000072e0  25 21 38 2c 5a 25 21 31  32 2c 5a 25 21 31 36 2c  |%!8,Z%!12,Z%!16,|
000072f0  5a 25 21 32 30 3a f2 4d  28 5a 25 2c 36 34 29 3a  |Z%!20:.M(Z%,64):|
00007300  e1 0d 03 67 25 dd f2 79  79 28 55 25 2c 45 25 29  |...g%..yy(U%,E%)|
00007310  c8 99 26 64 63 62 38 63  2c 4b 79 2c 55 25 2c 45  |..&dcb8c,Ky,U%,E|
00007320  25 2c 2b 31 3a e1 0d 03  68 25 dd f2 7a 79 28 55  |%,+1:...h%..zy(U|
00007330  25 2c 45 25 29 c8 99 26  64 63 62 38 63 2c 4b 79  |%,E%)..&dcb8c,Ky|
00007340  2c 55 25 2c 45 25 2c 2d  31 3a e1 0d 03 69 4a dd  |,U%,E%,-1:...iJ.|
00007350  f2 44 28 41 75 25 2c 5a  24 29 ea 5a 25 3a 5a 25  |.D(Au%,Z$).Z%:Z%|
00007360  3d a4 41 28 33 30 30 29  3a 5a 25 21 30 3d 41 75  |=.A(300):Z%!0=Au|
00007370  25 3a 24 28 5a 25 2b 34  29 3d 5a 24 2b bd 28 30  |%:$(Z%+4)=Z$+.(0|
00007380  29 3a f2 48 28 5a 25 29  3a f2 4d 28 5a 25 2c 33  |):.H(Z%):.M(Z%,3|
00007390  30 30 29 3a e1 0d 03 6a  14 dd f2 57 28 5a 24 29  |00):...j...W(Z$)|
000073a0  85 62 79 25 2c 5a 24 3a  e1 0d 03 6b 4c dd f2 50  |.by%,Z$:...kL..P|
000073b0  28 41 75 25 29 ea 5a 25  3a 5a 25 3d a4 41 28 33  |(Au%).Z%:Z%=.A(3|
000073c0  30 30 29 3a 5a 25 21 30  3d 79 79 25 3a f2 6f 28  |00):Z%!0=yy%:.o(|
000073d0  22 4c 45 22 2b c3 28 41  75 25 29 2c 5a 25 2b 34  |"LE"+.(Au%),Z%+4|
000073e0  29 3a f2 48 28 5a 25 29  3a f2 4d 28 5a 25 2c 33  |):.H(Z%):.M(Z%,3|
000073f0  30 30 29 3a e1 0d 03 6c  1f dd f2 48 28 68 75 25  |00):...l...H(hu%|
00007400  29 c8 99 26 34 30 30 64  66 2c 68 75 25 2c 31 2c  |)..&400df,hu%,1,|
00007410  58 24 3a e1 0d 03 6d 67  dd a4 70 28 59 79 25 2c  |X$:...mg..p(Yy%,|
00007420  5a 24 29 ea 5a 25 2c 62  25 3a f2 51 3a 5a 25 3d  |Z$).Z%,b%:.Q:Z%=|
00007430  a4 41 28 32 36 30 29 3a  21 5a 25 3d 30 3a 24 28  |.A(260):!Z%=0:$(|
00007440  5a 25 2b 34 29 3d 5a 24  2b bd 28 30 29 3a c8 99  |Z%+4)=Z$+.(0):..|
00007450  26 34 30 30 64 66 2c 5a  25 2c 28 31 36 84 59 79  |&400df,Z%,(16.Yy|
00007460  25 29 2c a4 48 28 30 29  b8 2c 62 25 3a f2 4d 28  |%),.H(0).,b%:.M(|
00007470  5a 25 2c 32 36 30 29 3a  3d 62 25 0d 03 6e 99 dd  |Z%,260):=b%..n..|
00007480  f2 4e 79 ea 5a 25 3a 5a  25 3d a4 41 28 32 35 36  |.Ny.Z%:Z%=.A(256|
00007490  29 3a 5a 25 3f 30 3d 31  3a 5a 25 3f 31 3d 30 3a  |):Z%?0=1:Z%?1=0:|
000074a0  5a 25 3f 32 3d 30 3a 5a  25 3f 33 3d 30 3a 5a 25  |Z%?2=0:Z%?3=0:Z%|
000074b0  3f 34 3d 30 3a 5a 25 3f  35 3d 78 5f 25 83 32 35  |?4=0:Z%?5=x_%.25|
000074c0  36 3a 5a 25 3f 36 3d 78  5f 25 81 32 35 36 3a 5a  |6:Z%?6=x_%.256:Z|
000074d0  25 3f 37 3d 64 5f 25 83  32 35 36 3a 5a 25 3f 38  |%?7=d_%.256:Z%?8|
000074e0  3d 64 5f 25 81 32 35 36  3a c8 99 37 2c 32 31 2c  |=d_%.256:..7,21,|
000074f0  5a 25 3a 21 5a 25 3d 68  5f 25 3a c8 99 26 34 30  |Z%:!Z%=h_%:..&40|
00007500  30 63 36 2c 2c 5a 25 3a  f2 4d 28 5a 25 2c 32 35  |0c6,,Z%:.M(Z%,25|
00007510  36 29 3a e1 0d 03 6f 46  dd f2 47 5f 28 51 25 2c  |6):...oF..G_(Q%,|
00007520  56 25 2c 49 25 2c 46 25  29 f2 4e 79 3a 51 25 3d  |V%,I%,F%).Ny:Q%=|
00007530  a4 53 28 22 46 4e 5f 53  74 6f 70 5f 41 63 74 69  |.S("FN_Stop_Acti|
00007540  6f 6e 5f 22 2b 6c 24 2b  22 28 22 2b c3 28 46 25  |on_"+l$+"("+.(F%|
00007550  3d 30 29 2b 22 29 22 29  3a e1 0d 03 70 2e dd a4  |=0)+")"):...p...|
00007560  4d 28 4d 24 29 c8 95 a7  4d 24 2c 22 2e 22 29 3a  |M(M$)...M$,"."):|
00007570  4d 24 3d c1 4d 24 2c a7  4d 24 2c 22 2e 22 29 2b  |M$=.M$,.M$,".")+|
00007580  31 29 3a ce 3a 3d 4d 24  0d 03 71 27 dd f2 55 28  |1):.:=M$..q'..U(|
00007590  55 25 2c 46 25 2c 50 24  29 c8 99 26 64 63 62 38  |U%,F%,P$)..&dcb8|
000075a0  63 2c 50 5f 2c 55 25 2c  46 25 2c 50 24 3a e1 0d  |c,P_,U%,F%,P$:..|
000075b0  03 72 2a dd a4 43 28 55  25 2c 45 25 29 c8 99 26  |.r*..C(U%,E%)..&|
000075c0  64 63 62 38 63 2c 7a 79  2c 55 25 2c 45 25 b8 55  |dcb8c,zy,U%,E%.U|
000075d0  25 3a 3d a4 50 28 55 25  29 0d 03 73 27 dd a4 46  |%:=.P(U%)..s'..F|
000075e0  79 28 55 25 2c 45 25 29  c8 99 26 64 63 62 38 63  |y(U%,E%)..&dcb8c|
000075f0  2c 7a 79 2c 55 25 2c 45  25 b8 55 25 3a 3d 55 25  |,zy,U%,E%.U%:=U%|
00007600  0d 03 74 38 dd a4 67 28  53 24 29 ea 76 25 2c 7a  |..t8..g(S$).v%,z|
00007610  25 2c 61 25 3a c8 99 26  32 30 30 30 38 2c 31 37  |%,a%:..&20008,17|
00007620  2c 53 24 b8 76 25 2c 2c  2c 2c 7a 25 3b 61 25 3a  |,S$.v%,,,,z%;a%:|
00007630  e7 a4 4e 28 61 25 29 8c  0d 03 75 28 f2 4a 28 22  |..N(a%)...u(.J("|
00007640  52 65 61 73 6f 6e 22 2c  a4 4d 28 53 24 29 29 3a  |Reason",.M(S$)):|
00007650  f2 62 28 76 25 29 3a f2  57 28 a4 48 28 34 29 29  |.b(v%):.W(.H(4))|
00007660  0d 03 76 0d cd 3a e7 76  25 3c 3e 31 8c 0d 03 77  |..v..:.v%<>1...w|
00007670  09 7a 25 3d 2d 31 0d 03  78 09 cd 3a 3d 7a 25 0d  |.z%=-1..x..:=z%.|
00007680  03 79 1d dd a4 41 28 68  25 29 ea 62 25 3a e7 28  |.y...A(h%).b%:.(|
00007690  48 79 25 2b 68 25 29 3c  74 79 25 8c 0d 03 7a 12  |Hy%+h%)<ty%...z.|
000076a0  62 25 3d 48 79 25 3a 48  79 25 2b 3d 68 25 0d 03  |b%=Hy%:Hy%+=h%..|
000076b0  7b 1a cc f2 57 28 22 57  69 6d 70 20 53 74 61 63  |{...W("Wimp Stac|
000076c0  6b 20 66 75 6c 6c 22 29  0d 03 7c 09 cd 3a 3d 62  |k full")..|..:=b|
000076d0  25 0d 03 7d 12 dd f2 52  5f 3a 48 79 25 3d 60 79  |%..}...R_:Hy%=`y|
000076e0  25 3a e1 0d 03 7e 24 dd  f2 4d 28 42 5f 25 2c 68  |%:...~$..M(B_%,h|
000076f0  25 29 e7 28 42 5f 25 3c  60 79 25 29 84 28 42 5f  |%).(B_%<`y%).(B_|
00007700  25 3e 74 79 25 29 8c 0d  03 7f 2c f2 57 28 22 52  |%>ty%)....,.W("R|
00007710  65 6c 65 61 73 65 5f 53  74 61 63 6b 3a 20 49 6e  |elease_Stack: In|
00007720  76 61 6c 69 64 20 73 74  61 63 6b 20 63 68 75 6e  |valid stack chun|
00007730  6b 22 29 0d 03 80 1c cc  e7 28 68 25 3c 30 29 84  |k")......(h%<0).|
00007740  28 28 42 5f 25 2b 68 25  29 3e 74 79 25 29 8c 0d  |((B_%+h%)>ty%)..|
00007750  03 81 2b f2 57 28 22 52  65 6c 65 61 73 65 5f 53  |..+.W("Release_S|
00007760  74 61 63 6b 3a 20 49 6e  76 61 6c 69 64 20 63 68  |tack: Invalid ch|
00007770  75 6e 6b 20 73 69 7a 65  22 29 0d 03 82 17 cc 48  |unk size").....H|
00007780  79 25 2d 3d 68 25 3a e7  48 79 25 3c 3e 42 5f 25  |y%-=h%:.Hy%<>B_%|
00007790  8c 0d 03 83 20 f2 57 28  22 52 65 6c 65 61 73 65  |.... .W("Release|
000077a0  5f 53 74 61 63 6b 3a 20  42 61 64 20 70 6f 70 22  |_Stack: Bad pop"|
000077b0  29 0d 03 84 05 cd 0d 03  85 05 cd 0d 03 86 07 cd  |)...............|
000077c0  3a e1 0d 03 87 3e dd f2  48 79 28 71 24 2c 74 25  |:....>..Hy(q$,t%|
000077d0  2c 63 75 25 2c 56 4a 25  2c 72 75 25 2c 73 75 25  |,cu%,VJ%,ru%,su%|
000077e0  29 f2 7a 5f 28 71 24 2c  71 24 2c 74 25 2c 63 75  |).z_(q$,q$,t%,cu|
000077f0  25 2c 56 4a 25 2c 72 75  25 2c 73 75 25 29 3a e1  |%,VJ%,ru%,su%):.|
00007800  0d 03 88 e3 dd f2 7a 5f  28 71 24 2c 6d 24 2c 74  |......z_(q$,m$,t|
00007810  25 2c 63 75 25 2c 56 4a  25 2c 72 75 25 2c 73 75  |%,cu%,VJ%,ru%,su|
00007820  25 29 4b 24 3d c3 28 74  25 29 2b 22 2e 22 2b c2  |%)K$=.(t%)+"."+.|
00007830  22 30 22 2b c3 28 63 75  25 29 2c 32 29 3a 4b 24  |"0"+.(cu%),2):K$|
00007840  2b 3d 22 20 28 22 2b c2  22 30 22 2b c3 28 56 4a  |+=" ("+."0"+.(VJ|
00007850  25 29 2c 32 29 2b 22 2d  22 3a 4b 24 2b 3d c1 22  |%),2)+"-":K$+=."|
00007860  43 42 4a 61 6e 46 65 62  4d 61 72 41 70 72 4d 61  |CBJanFebMarAprMa|
00007870  79 4a 75 6e 4a 75 6c 41  75 67 53 65 70 4f 63 74  |yJunJulAugSepOct|
00007880  4e 6f 76 44 65 63 22 2c  72 75 25 2a 33 2c 33 29  |NovDec",ru%*3,3)|
00007890  3a 4b 24 2b 3d 22 2d 22  2b c2 22 31 39 22 2b c3  |:K$+="-"+."19"+.|
000078a0  28 73 75 25 29 2c 34 29  2b 22 29 22 3a 58 24 3d  |(su%),4)+")":X$=|
000078b0  71 24 3a f2 4a 28 22 41  70 70 22 2c 58 24 29 3a  |q$:.J("App",X$):|
000078c0  f2 49 79 28 4d 5f 25 2c  58 24 2b 22 24 44 69 72  |.Iy(M_%,X$+"$Dir|
000078d0  22 29 3a e7 4d 5f 25 3d  30 8c 85 31 2c 22 45 49  |"):.M_%=0..1,"EI|
000078e0  57 35 22 0d 03 89 0c e7  44 24 3c 3e 22 22 8c 0d  |W5".....D$<>""..|
000078f0  03 8a 93 56 4a 25 3d a3  3a 41 5f 25 3d 57 25 3a  |...VJ%=.:A_%=W%:|
00007900  74 25 3d a7 44 24 2c 22  2c 22 29 3a c8 95 74 25  |t%=.D$,","):..t%|
00007910  3c 3e 30 3a 41 5f 25 21  30 3d a4 53 28 c0 44 24  |<>0:A_%!0=.S(.D$|
00007920  2c 74 25 2d 31 29 29 3a  41 5f 25 2b 3d 34 3a 44  |,t%-1)):A_%+=4:D|
00007930  24 3d c1 44 24 2c 74 25  2b 31 29 3a 74 25 3d a7  |$=.D$,t%+1):t%=.|
00007940  44 24 2c 22 2c 22 29 3a  ce 3a 41 5f 25 21 30 3d  |D$,","):.:A_%!0=|
00007950  a4 53 28 44 24 29 3a 41  5f 25 21 34 3d 30 3a c8  |.S(D$):A_%!4=0:.|
00007960  99 26 34 30 30 63 30 2c  33 30 30 2c 26 34 62 35  |.&400c0,300,&4b5|
00007970  33 34 31 35 34 2c 6d 24  2c 57 25 b8 50 5f 25 2c  |34154,m$,W%.P_%,|
00007980  59 25 0d 03 8b 25 cc c8  99 26 34 30 30 63 30 2c  |Y%...%...&400c0,|
00007990  32 30 30 2c 26 34 62 35  33 34 31 35 34 2c 6d 24  |200,&4b534154,m$|
000079a0  b8 50 5f 25 2c 59 25 0d  03 8c 0b cd 3a ee 85 f2  |.P_%,Y%.....:...|
000079b0  5f 5f 0d 03 8d 16 c8 99  26 36 30 36 63 30 3a e7  |__......&606c0:.|
000079c0  50 5f 25 3c 32 30 30 8c  0d 03 8e 0e 85 62 79 25  |P_%<200......by%|
000079d0  2c a4 48 28 35 29 0d 03  8f 2a cd 3a 71 79 25 3d  |,.H(5)...*.:qy%=|
000079e0  b9 3a f2 76 79 3a f2 6b  79 3a 71 79 25 3d 2d 32  |.:.vy:.ky:qy%=-2|
000079f0  3a f2 55 79 3a f2 6d 79  3a e7 53 5f 25 3d 30 8c  |:.Uy:.my:.S_%=0.|
00007a00  0d 03 90 0f f2 55 28 75  25 2c 37 2c 4b 24 29 0d  |.....U(u%,7,K$).|
00007a10  03 91 4f cd 3a 4b 75 25  3d 2d 31 3a 47 75 25 3d  |..O.:Ku%=-1:Gu%=|
00007a20  2d 31 3a 75 4a 25 3d 2d  31 3a 51 6c 25 3d 2d 31  |-1:uJ%=-1:Ql%=-1|
00007a30  3a 42 6c 25 3d a3 3a 70  75 25 3d 2d 31 3a 57 6c  |:Bl%=.:pu%=-1:Wl|
00007a40  25 3d 2d 31 3a 69 24 3d  22 22 3a 60 24 3d 22 22  |%=-1:i$="":`$=""|
00007a50  3a f2 70 3a c8 99 26 36  30 36 63 31 3a e1 0d 03  |:.p:..&606c1:...|
00007a60  92 16 dd f2 5f 5f c8 99  26 36 30 36 63 31 3a e7  |....__..&606c1:.|
00007a70  43 5f 25 8c 0d 03 93 1a  f2 44 28 79 79 25 2c f6  |C_%......D(yy%,.|
00007a80  24 2b 22 20 5b 22 2b c3  9e 2b 22 5d 22 29 0d 03  |$+" ["+..+"]")..|
00007a90  94 0f cc f2 44 28 79 79  25 2c f6 24 29 0d 03 95  |....D(yy%,.$)...|
00007aa0  0c cd 3a f2 46 3a e0 3a  e1 0d 03 96 3e dd f2 49  |..:.F:.:....>..I|
00007ab0  79 28 f8 47 5f 25 2c 7a  24 29 ea 68 25 2c 56 75  |y(.G_%,z$).h%,Vu|
00007ac0  25 3a c8 99 26 32 30 30  32 33 2c 7a 24 2c 30 2c  |%:..&20023,z$,0,|
00007ad0  2d 31 2c 30 2c 31 b8 2c  2c 68 25 2c 2c 56 75 25  |-1,0,1.,,h%,,Vu%|
00007ae0  3a e7 68 25 3d 30 8c 0d  03 97 09 47 5f 25 3d 30  |:.h%=0.....G_%=0|
00007af0  0d 03 98 15 cc e7 56 75  25 3d 31 8c 85 31 2c 22  |......Vu%=1..1,"|
00007b00  45 49 57 34 22 0d 03 99  35 68 25 3d 2d 68 25 3a  |EIW4"...5h%=-h%:|
00007b10  f2 42 28 47 5f 25 2c 68  25 29 3a c8 99 33 35 2c  |.B(G_%,h%):..35,|
00007b20  7a 24 2c 47 5f 25 2c 68  25 2c 30 2c 31 3a 47 5f  |z$,G_%,h%,0,1:G_|
00007b30  25 3f 28 68 25 2d 31 29  3d 30 0d 03 9a 07 cd 3a  |%?(h%-1)=0.....:|
00007b40  e1 0d 03 9b 32 dd f2 43  5f ea 64 75 25 2c 68 4a  |....2..C_.du%,hJ|
00007b50  25 3a 68 4a 25 3d b9 3a  f5 c8 99 26 34 30 30 63  |%:hJ%=.:...&400c|
00007b60  37 2c 63 79 25 2c 57 25  b8 64 75 25 3a c8 8e 64  |7,cy%,W%.du%:..d|
00007b70  75 25 ca 0d 03 9c 0a c9  30 3a f2 59 5f 0d 03 9d  |u%......0:.Y_...|
00007b80  0a c9 31 3a f2 54 5f 0d  03 9e 0a c9 32 3a f2 72  |..1:.T_.....2:.r|
00007b90  79 0d 03 9f 0a c9 33 3a  f2 73 79 0d 03 a0 0a c9  |y.....3:.sy.....|
00007ba0  34 3a f2 65 79 0d 03 a1  0a c9 35 3a f2 44 5f 0d  |4:.ey.....5:.D_.|
00007bb0  03 a2 0a c9 36 3a f2 52  79 0d 03 a3 0a c9 37 3a  |....6:.Ry.....7:|
00007bc0  f2 41 5f 0d 03 a4 0a c9  38 3a f2 73 5f 0d 03 a5  |.A_.....8:.s_...|
00007bd0  0a c9 39 3a f2 4d 5f 0d  03 a6 0b c9 31 30 3a f2  |..9:.M_.....10:.|
00007be0  46 5f 0d 03 a7 0b c9 31  31 3a f2 50 5f 0d 03 a8  |F_.....11:.P_...|
00007bf0  0b c9 31 32 3a f2 64 5f  0d 03 a9 0b c9 31 37 3a  |..12:.d_.....17:|
00007c00  f2 5a 79 0d 03 aa 0b c9  31 38 3a f2 49 5f 0d 03  |.Zy.....18:.I_..|
00007c10  ab 0b c9 31 39 3a f2 57  5f 0d 03 ac 0f cb 3a fd  |...19:.W_.....:.|
00007c20  ac 28 68 4a 25 29 3a e1  0d 03 ad 09 dd f2 65 79  |.(hJ%):.......ey|
00007c30  e1 0d 03 ae 09 dd f2 44  5f e1 0d 03 af 09 dd f2  |.......D_.......|
00007c40  46 5f e1 0d 03 b0 09 dd  f2 50 5f e1 0d 03 b1 09  |F_.......P_.....|
00007c50  dd f2 64 5f e1 0d 03 b2  31 dd f2 41 5f ea 51 25  |..d_....1..A_.Q%|
00007c60  3a 51 25 3d a4 53 28 22  46 4e 5f 44 72 61 67 67  |:Q%=.S("FN_Dragg|
00007c70  65 64 5f 22 2b 65 24 29  3a e7 53 4a 25 3c 3e 28  |ed_"+e$):.SJ%<>(|
00007c80  31 2a 31 36 29 8c 0d 03  b3 06 f2 51 0d 03 b4 0b  |1*16)......Q....|
00007c90  cd 3a e7 68 79 25 8c 0d  03 b5 0c c8 99 26 34 32  |.:.hy%.......&42|
00007ca0  34 30 31 0d 03 b6 11 cc  c8 99 26 34 30 30 64 30  |401.......&400d0|
00007cb0  2c 2c 2d 31 0d 03 b7 0d  cd 3a 65 24 3d 22 22 3a  |,,-1.....:e$="":|
00007cc0  e1 0d 03 b8 e0 dd f2 61  28 55 25 2c 46 25 2c 49  |.......a(U%,F%,I|
00007cd0  6c 25 2c 51 24 29 ea 4d  25 2c 71 25 2c 74 5f 25  |l%,Q$).M%,q%,t_%|
00007ce0  2c 67 5f 25 3a ea 6d 25  2c 70 5f 25 2c 64 4a 25  |,g_%:.m%,p_%,dJ%|
00007cf0  3a 4d 25 3d a4 41 28 36  34 29 3a 71 25 3d a4 41  |:M%=.A(64):q%=.A|
00007d00  28 32 35 36 29 3a 4d 25  21 30 3d 55 25 3a 4d 25  |(256):M%!0=U%:M%|
00007d10  21 34 3d 46 25 3a c8 99  26 34 30 30 63 65 2c 2c  |!4=F%:..&400ce,,|
00007d20  4d 25 3a 71 25 21 30 3d  55 25 3a c8 99 26 34 30  |M%:q%!0=U%:..&40|
00007d30  30 63 62 2c 2c 71 25 3a  74 5f 25 3d 71 25 21 32  |0cb,,q%:t_%=q%!2|
00007d40  30 3a 67 5f 25 3d 71 25  21 32 34 3a 4d 25 21 30  |0:g_%=q%!24:M%!0|
00007d50  3d 55 25 3a 4d 25 21 34  3d 35 3a 4d 25 21 38 2b  |=U%:M%!4=5:M%!8+|
00007d60  3d 71 25 21 34 2d 74 5f  25 3a 4d 25 21 31 32 2b  |=q%!4-t_%:M%!12+|
00007d70  3d 71 25 21 31 36 2d 67  5f 25 3a 4d 25 21 31 36  |=q%!16-g_%:M%!16|
00007d80  2b 3d 71 25 21 34 2d 74  5f 25 3a 4d 25 21 32 30  |+=q%!4-t_%:M%!20|
00007d90  2b 3d 71 25 21 31 36 2d  67 5f 25 3a e7 4f 75 25  |+=q%!16-g_%:.Ou%|
00007da0  8c 0d 03 b9 22 c8 99 36  2c 31 36 31 2c 32 38 b8  |...."..6,161,28.|
00007db0  2c 2c 6d 25 3a 68 79 25  3d 28 28 6d 25 80 32 29  |,,m%:hy%=((m%.2)|
00007dc0  3d 32 29 0d 03 ba 0a cc  68 79 25 3d a3 0d 03 bb  |=2).....hy%=....|
00007dd0  0b cd 3a e7 68 79 25 8c  0d 03 bc 20 6d 25 3d 4d  |..:.hy%.... m%=M|
00007de0  25 21 32 34 3a e7 28 6d  25 80 32 29 3d 30 8c 85  |%!24:.(m%.2)=0..|
00007df0  31 2c 22 45 49 57 32 22  0d 03 bd 0c e7 6d 25 80  |1,"EIW2".....m%.|
00007e00  32 35 36 8c 0d 03 be 28  64 4a 25 3d 4d 25 21 32  |256....(dJ%=M%!2|
00007e10  38 3a 70 5f 25 3d 4d 25  21 33 32 3a e7 6d 25 21  |8:p_%=M%!32:.m%!|
00007e20  33 36 8c 85 31 2c 22 45  49 57 33 22 0d 03 bf 14  |36..1,"EIW3"....|
00007e30  cc 64 4a 25 3d 4d 25 2b  32 38 3a 70 5f 25 3d 31  |.dJ%=M%+28:p_%=1|
00007e40  0d 03 c0 1f cd 3a c8 99  26 34 32 34 30 30 2c 31  |.....:..&42400,1|
00007e50  33 33 2c 70 5f 25 2c 64  4a 25 2c 4d 25 2b 38 0d  |33,p_%,dJ%,M%+8.|
00007e60  03 c1 35 cc 4d 25 21 32  34 3d 30 3a 4d 25 21 32  |..5.M%!24=0:M%!2|
00007e70  38 3d 30 3a 4d 25 21 33  32 3d 78 5f 25 3a 4d 25  |8=0:M%!32=x_%:M%|
00007e80  21 33 36 3d 64 5f 25 3a  c8 99 26 34 30 30 64 30  |!36=d_%:..&400d0|
00007e90  2c 2c 4d 25 0d 03 c2 2a  cd 3a f2 4d 28 71 25 2c  |,,M%...*.:.M(q%,|
00007ea0  32 35 36 29 3a f2 4d 28  4d 25 2c 36 34 29 3a 65  |256):.M(M%,64):e|
00007eb0  24 3d 51 24 3a 53 4a 25  3d 49 6c 25 3a e1 0d 03  |$=Q$:SJ%=Il%:...|
00007ec0  c3 0d dd f2 49 5f f2 5a  79 3a e1 0d 03 c4 20 dd  |....I_.Zy:.... .|
00007ed0  f2 5a 5f d5 23 57 25 21  32 30 2c 22 52 75 6e 20  |.Z_.#W%!20,"Run |
00007ee0  22 2b a4 50 28 4d 5f 25  29 3a e1 0d 03 c5 39 dd  |"+.P(M_%):....9.|
00007ef0  f2 78 79 ea 7a 6c 25 3a  c8 99 26 32 30 30 32 33  |.xy.zl%:..&20023|
00007f00  2c 22 57 69 6d 70 24 53  63 72 61 70 22 2c 30 2c  |,"Wimp$Scrap",0,|
00007f10  2d 31 2c 30 2c 33 b8 2c  2c 66 75 25 3a e7 66 75  |-1,0,3.,,fu%:.fu|
00007f20  25 3d 30 8c 0d 03 c6 09  f2 50 28 38 29 0d 03 c7  |%=0......P(8)...|
00007f30  62 cc 24 28 57 25 2b 34  34 29 3d 22 3c 57 69 6d  |b.$(W%+44)="<Wim|
00007f40  70 24 53 63 72 61 70 3e  22 2b bd 28 30 29 3a 57  |p$Scrap>"+.(0):W|
00007f50  25 21 33 36 3d 2d 31 3a  57 25 21 31 36 3d 32 3a  |%!36=-1:W%!16=2:|
00007f60  57 25 21 31 32 3d 57 25  21 38 3a 57 25 21 30 3d  |W%!12=W%!8:W%!0=|
00007f70  36 30 3a c8 99 26 34 30  30 65 37 2c 31 37 2c 57  |60:..&400e7,17,W|
00007f80  25 2c 57 25 21 34 3a 75  4a 25 3d 57 25 21 38 0d  |%,W%!4:uJ%=W%!8.|
00007f90  03 c8 07 cd 3a e1 0d 03  c9 16 dd a4 5f 4d 69 73  |....:......._Mis|
00007fa0  63 5f 76 65 72 73 69 6f  6e 3d 34 36 0d 03 ca 35  |c_version=46...5|
00007fb0  dd a4 5f 68 61 72 64 5f  69 6e 69 74 69 61 6c 69  |.._hard_initiali|
00007fc0  73 65 5f 4d 69 73 63 ea  45 25 2c 5f 25 2c 52 25  |se_Misc.E%,_%,R%|
00007fd0  3a e7 a4 4b 3c 31 32 8c  85 31 2c 22 45 49 41 31  |:..K<12..1,"EIA1|
00007fe0  22 0d 03 cb 1c 45 79 24  3d 22 22 3a 44 6c 25 3d  |"....Ey$="":Dl%=|
00007ff0  31 30 30 3a de 6d 79 25  31 36 3a 3d 30 0d 03 cc  |100:.my%16:=0...|
00008000  3a dd a4 66 28 49 24 2c  4f 79 25 2c 4b 5f 25 29  |:..f(I$,Oy%,K_%)|
00008010  ea 5a 5f 25 2c 4e 4a 25  2c 45 4a 25 2c 50 4a 25  |.Z_%,NJ%,EJ%,PJ%|
00008020  2c 42 4a 25 3a 72 25 3d  a4 71 28 49 24 29 3a e7  |,BJ%:r%=.q(I$):.|
00008030  53 25 80 32 3d 30 8c 0d  03 cd 16 5b 4f 50 54 53  |S%.2=0.....[OPTS|
00008040  25 3a 44 43 44 30 3a 44  43 44 30 3a 5d 0d 03 ce  |%:DCD0:DCD0:]...|
00008050  29 cc 5a 5f 25 3d 4b 5f  25 2d 50 25 2d 38 3a e7  |).Z_%=K_%-P%-8:.|
00008060  94 28 5a 5f 25 29 3e 36  35 35 33 35 8c 85 31 2c  |.(Z_%)>65535..1,|
00008070  22 45 49 41 32 22 0d 03  cf 2c 45 4a 25 3d 94 28  |"EIA2"...,EJ%=.(|
00008080  5a 5f 25 29 80 32 35 35  3a 4e 4a 25 3d 94 28 5a  |Z_%).255:NJ%=.(Z|
00008090  5f 25 29 80 36 35 32 38  30 3a e7 5a 5f 25 3e 3d  |_%).65280:.Z_%>=|
000080a0  30 8c 0d 03 d0 52 50 4a  25 3d 72 25 84 28 26 32  |0....RPJ%=r%.(&2|
000080b0  38 66 30 30 30 30 2b 28  4f 79 25 3c 3c 31 32 29  |8f0000+(Oy%<<12)|
000080c0  2b 45 4a 25 29 3a 42 4a  25 3d 72 25 84 28 26 32  |+EJ%):BJ%=r%.(&2|
000080d0  38 30 30 63 30 30 2b 28  4f 79 25 3c 3c 31 36 29  |800c00+(Oy%<<16)|
000080e0  2b 28 4f 79 25 3c 3c 31  32 29 2b 28 4e 4a 25 3e  |+(Oy%<<12)+(NJ%>|
000080f0  3e 38 29 29 0d 03 d1 53  cc 50 4a 25 3d 72 25 84  |>8))...S.PJ%=r%.|
00008100  28 26 32 34 66 30 30 30  30 2b 28 4f 79 25 3c 3c  |(&24f0000+(Oy%<<|
00008110  31 32 29 2b 45 4a 25 29  3a 42 4a 25 3d 72 25 84  |12)+EJ%):BJ%=r%.|
00008120  28 26 32 34 30 30 63 30  30 2b 28 4f 79 25 3c 3c  |(&2400c00+(Oy%<<|
00008130  31 36 29 2b 28 4f 79 25  3c 3c 31 32 29 2b 28 4e  |16)+(Oy%<<12)+(N|
00008140  4a 25 3e 3e 38 29 29 0d  03 d2 1c cd 3a 5b 4f 50  |J%>>8)).....:[OP|
00008150  54 53 25 3a 44 43 44 50  4a 25 3a 44 43 44 42 4a  |TS%:DCDPJ%:DCDBJ|
00008160  25 3a 5d 0d 03 d3 08 cd  3a 3d 30 0d 03 d4 38 dd  |%:].....:=0...8.|
00008170  f2 4c 79 28 4d 24 29 ea  77 75 25 2c 76 75 25 2c  |.Ly(M$).wu%,vu%,|
00008180  59 75 25 3a 77 75 25 3d  50 25 3a 76 75 25 3d 4f  |Yu%:wu%=P%:vu%=O|
00008190  25 3a 59 75 25 3d 53 25  3a e7 28 53 25 80 34 29  |%:Yu%=S%:.(S%.4)|
000081a0  3d 30 8c 0d 03 d5 09 4f  25 3d 50 25 0d 03 d6 51  |=0.....O%=P%...Q|
000081b0  cd 3a 50 25 3d 30 3a 53  25 3d 53 25 84 36 3a 50  |.:P%=0:S%=S%.6:P|
000081c0  25 3d a4 53 28 22 46 4e  5f 44 65 63 6c 61 72 65  |%=.S("FN_Declare|
000081d0  5f 4c 6f 63 61 6c 5f 56  61 72 69 61 62 6c 65 73  |_Local_Variables|
000081e0  5f 22 2b 4d 24 29 3a 50  25 3d 77 75 25 3a 4f 25  |_"+M$):P%=wu%:O%|
000081f0  3d 76 75 25 3a 53 25 3d  59 75 25 3a e1 0d 03 d7  |=vu%:S%=Yu%:....|
00008200  1e dd f2 53 5f 28 49 24  2c 52 25 29 ea 4d 25 2c  |...S_(I$,R%).M%,|
00008210  72 25 3a e7 49 24 3c 3e  22 22 8c 0d 03 d8 40 72  |r%:.I$<>""....@r|
00008220  25 3d a4 71 28 49 24 29  3a 4d 25 3d a4 61 28 50  |%=.q(I$):M%=.a(P|
00008230  25 29 3a e3 45 25 3d 31  b8 52 25 3a 4d 25 2d 3d  |%):.E%=1.R%:M%-=|
00008240  34 3a 21 4d 25 3d 28 21  4d 25 80 26 66 66 66 66  |4:!M%=(!M%.&ffff|
00008250  66 66 66 29 2b 72 25 3a  ed 45 25 0d 03 d9 07 cd  |fff)+r%:.E%.....|
00008260  3a e1 0d 03 da 14 dd a4  71 28 49 24 29 ea 72 25  |:.......q(I$).r%|
00008270  3a c8 8e 49 24 ca 0d 03  db 12 c9 22 22 2c 22 20  |:..I$......""," |
00008280  20 22 3a 72 25 3d 31 34  0d 03 dc 0e c9 22 6c 6f  | ":r%=14....."lo|
00008290  22 3a 72 25 3d 33 0d 03  dd 0e c9 22 68 73 22 3a  |":r%=3....."hs":|
000082a0  72 25 3d 32 0d 03 de 44  7f 72 25 3d a7 22 65 71  |r%=2...D.r%=."eq|
000082b0  6e 65 63 73 63 63 6d 69  70 6c 76 73 76 63 68 69  |necsccmiplvsvchi|
000082c0  6c 73 67 65 6c 74 67 74  6c 65 61 6c 6e 76 22 2c  |lsgeltgtlealnv",|
000082d0  49 24 29 3a e7 28 72 25  83 32 29 3d 30 8c 85 31  |I$):.(r%.2)=0..1|
000082e0  2c 22 45 49 41 31 33 22  0d 03 df 10 72 25 3d 28  |,"EIA13"....r%=(|
000082f0  72 25 2d 31 29 3e 3e 31  0d 03 e0 0d cb 3a 3d 72  |r%-1)>>1.....:=r|
00008300  25 3c 3c 32 38 0d 03 e1  58 dd a4 57 79 28 51 25  |%<<28...X..Wy(Q%|
00008310  2c f8 41 25 28 29 29 c8  99 26 64 63 62 39 32 2c  |,.A%())..&dcb92,|
00008320  51 25 2c 6d 79 25 b8 51  25 3a 41 25 28 30 29 3d  |Q%,my%.Q%:A%(0)=|
00008330  21 6d 79 25 3a 41 25 28  31 29 3d 6d 79 25 21 34  |!my%:A%(1)=my%!4|
00008340  3a 41 25 28 32 29 3d 6d  79 25 21 38 3a 41 25 28  |:A%(2)=my%!8:A%(|
00008350  33 29 3d 6d 79 25 21 31  32 3a 3d 51 25 0d 03 e2  |3)=my%!12:=Q%...|
00008360  4a dd a4 75 28 49 24 2c  5f 25 2c 52 25 2c 51 25  |J..u(I$,_%,R%,Q%|
00008370  2c 41 6c 25 29 ea 41 25  28 29 2c 45 25 2c 4e 25  |,Al%).A%(),E%,N%|
00008380  3a de 41 25 28 34 29 3a  45 25 3d a4 57 79 28 94  |:.A%(4):E%=.Wy(.|
00008390  28 51 25 29 2c 41 25 28  29 29 3a 4e 25 3d 45 25  |(Q%),A%()):N%=E%|
000083a0  3a e7 51 25 3c 30 8c 0d  03 e3 4d c8 95 45 25 3e  |:.Q%<0....M..E%>|
000083b0  31 3a 45 25 2d 3d 31 3a  5b 4f 50 54 53 25 3a 41  |1:E%-=1:[OPTS%:A|
000083c0  44 44 20 5f 25 2c 52 25  2c 23 41 25 28 45 25 29  |DD _%,R%,#A%(E%)|
000083d0  3a 5d 3a 52 25 3d 5f 25  3a ce 3a 5b 4f 50 54 53  |:]:R%=_%:.:[OPTS|
000083e0  25 3a 41 44 44 20 5f 25  2c 52 25 2c 23 41 25 28  |%:ADD _%,R%,#A%(|
000083f0  30 29 3a 5d 0d 03 e4 4e  cc c8 95 45 25 3e 31 3a  |0):]...N...E%>1:|
00008400  45 25 2d 3d 31 3a 5b 4f  50 54 53 25 3a 53 55 42  |E%-=1:[OPTS%:SUB|
00008410  20 5f 25 2c 52 25 2c 23  41 25 28 45 25 29 3a 5d  | _%,R%,#A%(E%):]|
00008420  3a 52 25 3d 5f 25 3a ce  3a 5b 4f 50 54 53 25 3a  |:R%=_%:.:[OPTS%:|
00008430  53 55 42 20 5f 25 2c 52  25 2c 23 41 25 28 30 29  |SUB _%,R%,#A%(0)|
00008440  3a 5d 0d 03 e5 0b cd 3a  e7 41 6c 25 8c 0d 03 e6  |:].....:.Al%....|
00008450  15 e7 53 25 80 34 8c 5f  25 3d 4f 25 8b 5f 25 3d  |..S%.4._%=O%._%=|
00008460  50 25 0d 03 e7 10 5f 25  21 2d 34 2b 3d 31 3c 3c  |P%...._%!-4+=1<<|
00008470  32 30 0d 03 e8 13 cd 3a  f2 53 5f 28 49 24 2c 4e  |20.....:.S_(I$,N|
00008480  25 29 3a 3d 30 0d 03 e9  2f dd a4 6b 28 49 24 2c  |%):=0.../..k(I$,|
00008490  4f 79 25 2c 4b 5f 25 29  4b 5f 25 2d 3d 50 25 2b  |Oy%,K_%)K_%-=P%+|
000084a0  38 3a e7 4b 5f 25 3e 3d  30 8c 85 31 2c 22 45 49  |8:.K_%>=0..1,"EI|
000084b0  41 31 34 22 0d 03 ea 19  3d a4 75 28 49 24 2c 4f  |A14"....=.u(I$,O|
000084c0  79 25 2c 31 35 2c 2d 4b  5f 25 2c a3 29 0d 03 eb  |y%,15,-K_%,.)...|
000084d0  19 dd a4 61 28 6a 25 29  e7 28 53 25 80 34 29 8c  |...a(j%).(S%.4).|
000084e0  6a 25 2b 3d 6e 25 0d 03  ec 07 3d 6a 25 0d 03 ed  |j%+=n%....=j%...|
000084f0  1e dd f2 43 ea 50 79 25  3a e7 53 25 80 32 8c 50  |...C.Py%:.S%.2.P|
00008500  79 25 3d 35 30 8b 50 79  25 3d 30 0d 03 ee 2b c8  |y%=50.Py%=0...+.|
00008510  99 26 36 30 36 63 34 2c  28 28 a4 61 28 50 25 29  |.&606c4,((.a(P%)|
00008520  2d 6e 25 29 2f 28 4c 25  2d 6e 25 29 2a 35 30 29  |-n%)/(L%-n%)*50)|
00008530  2b 50 79 25 3a e1 0d 03  ef 15 dd a4 5f 48 65 61  |+Py%:......._Hea|
00008540  70 5f 76 65 72 73 69 6f  6e 3d 39 0d 03 f0 1d dd  |p_version=9.....|
00008550  a4 5f 68 61 72 64 5f 69  6e 69 74 69 61 6c 69 73  |._hard_initialis|
00008560  65 5f 48 65 61 70 3d 30  0d 03 f1 26 dd a4 6c 28  |e_Heap=0...&..l(|
00008570  f8 67 79 25 2c 41 25 29  67 79 25 3d ba 28 55 75  |.gy%,A%)gy%=.(Uu|
00008580  25 29 3a e7 21 55 79 25  8c 67 79 25 3d 30 0d 03  |%):.!Uy%.gy%=0..|
00008590  f2 09 3d 21 55 79 25 0d  03 f3 1c dd f2 42 28 f8  |..=!Uy%......B(.|
000085a0  67 79 25 2c 68 25 29 e7  a4 6c 28 67 79 25 2c 68  |gy%,h%)..l(gy%,h|
000085b0  25 29 8c 0d 03 f4 1c 67  79 25 3d 21 55 79 25 3a  |%).....gy%=!Uy%:|
000085c0  85 21 67 79 25 2c a4 4c  28 67 79 25 2b 34 29 0d  |.!gy%,.L(gy%+4).|
000085d0  03 f5 07 cd 3a e1 0d 03  f6 14 dd f2 54 28 f8 41  |....:.......T(.A|
000085e0  25 29 e7 a4 6a 28 41 25  29 8c 0d 03 f7 19 41 25  |%)..j(A%).....A%|
000085f0  3d 21 55 79 25 3a 85 21  41 25 2c a4 4c 28 41 25  |=!Uy%:.!A%,.L(A%|
00008600  2b 34 29 0d 03 f8 07 cd  3a e1 0d 03 f9 1b dd a4  |+4).....:.......|
00008610  6a 28 f8 41 25 29 d6 6b  4a 25 3a 41 25 3d 30 3a  |j(.A%).kJ%:A%=0:|
00008620  3d 21 55 79 25 0d 03 fa  42 dd f2 55 5f 5b 4f 50  |=!Uy%...B..U_[OP|
00008630  54 53 25 3a a4 56 28 55  75 25 2c 75 79 29 3a a4  |TS%:.V(Uu%,uy):.|
00008640  56 28 6b 4a 25 2c 53 5f  29 3a a4 56 28 60 75 25  |V(kJ%,S_):.V(`u%|
00008650  2c 43 5f 29 3a 41 4c 49  47 4e 3a 2e 55 79 25 44  |,C_):ALIGN:.Uy%D|
00008660  43 44 30 3a 5d 3a e1 0d  03 fb 6d dd a4 56 28 f8  |CD0:]:....m..V(.|
00008670  54 6c 25 2c 53 6c 25 29  5b 4f 50 54 53 25 3a 41  |Tl%,Sl%)[OPTS%:A|
00008680  4c 49 47 4e 3a 2e 54 6c  25 3a a4 58 3a 53 54 4d  |LIGN:.Tl%:.X:STM|
00008690  46 44 28 41 29 21 2c 7b  45 7d 3a 4d 4f 56 20 45  |FD(A)!,{E}:MOV E|
000086a0  2c 23 30 3a 53 54 52 20  45 2c 55 79 25 3a 42 4c  |,#0:STR E,Uy%:BL|
000086b0  20 53 6c 25 3a 53 54 52  76 73 30 2c 55 79 25 3a  | Sl%:STRvs0,Uy%:|
000086c0  4c 44 4d 46 44 28 41 29  21 2c 7b 70 63 7d 5e 3a  |LDMFD(A)!,{pc}^:|
000086d0  5d 3a 3d 30 0d 03 fc 18  dd a4 5f 4d 65 73 73 61  |]:=0......_Messa|
000086e0  67 65 5f 76 65 72 73 69  6f 6e 3d 36 0d 03 fd 6f  |ge_version=6...o|
000086f0  dd a4 5f 68 61 72 64 5f  69 6e 69 74 69 61 6c 69  |.._hard_initiali|
00008700  73 65 5f 4d 65 73 73 61  67 65 3a 75 69 3d 33 31  |se_Message:ui=31|
00008710  3a c8 99 35 2c 22 52 4d  45 6e 73 75 72 65 20 43  |:..5,"RMEnsure C|
00008720  41 73 73 65 6d 62 6c 65  72 20 30 2e 30 38 20 52  |Assembler 0.08 R|
00008730  4d 4c 6f 61 64 20 53 79  73 74 65 6d 3a 4d 6f 64  |MLoad System:Mod|
00008740  75 6c 65 73 2e 43 41 73  73 65 6d 62 6c 65 72 22  |ules.CAssembler"|
00008750  3a de 6c 79 20 32 35 36  3a 3d 30 0d 03 fe 48 dd  |:.ly 256:=0...H.|
00008760  a4 60 28 6f 24 2c 79 75  25 2c f8 7a 5f 25 29 ea  |.`(o$,yu%,.z_%).|
00008770  41 25 3a c8 99 26 66 63  62 38 33 2c 6f 24 2b 22  |A%:..&fcb83,o$+"|
00008780  2e 4d 65 73 73 61 67 65  73 2e 22 2c 79 75 25 2c  |.Messages.",yu%,|
00008790  30 b8 41 25 2c 7a 5f 25  3a e7 7a 5f 25 3d 30 8c  |0.A%,z_%:.z_%=0.|
000087a0  d6 52 79 0d 03 ff 07 3d  41 25 0d 04 00 3c dd a4  |.Ry....=A%...<..|
000087b0  50 79 28 47 25 2c 78 24  2c 79 5f 25 29 c8 99 26  |Py(G%,x$,y_%)..&|
000087c0  66 63 62 38 35 2c 78 24  2c 79 5f 25 2c 47 25 b8  |fcb85,x$,y_%,G%.|
000087d0  79 5f 25 3b 47 25 3a 3d  79 5f 25 80 28 28 47 25  |y_%;G%:=y_%.((G%|
000087e0  80 32 29 3d 32 29 0d 04  01 3b dd a4 6f 28 47 25  |.2)=2)...;..o(G%|
000087f0  2c 78 24 2c 67 24 29 ea  74 25 3a c8 99 26 66 63  |,x$,g$).t%:..&fc|
00008800  62 38 35 2c 78 24 2c 67  24 2c 47 25 b8 74 25 3b  |b85,x$,g$,G%.t%;|
00008810  47 25 3a 3d 74 25 80 28  28 47 25 80 32 29 3d 32  |G%:=t%.((G%.2)=2|
00008820  29 0d 04 02 30 dd a4 43  79 28 47 25 29 ea 74 25  |)...0..Cy(G%).t%|
00008830  3a c8 99 26 66 63 62 38  36 2c 47 25 b8 74 25 3b  |:..&fcb86,G%.t%;|
00008840  47 25 3a 3d 74 25 80 28  28 47 25 80 32 29 3d 32  |G%:=t%.((G%.2)=2|
00008850  29 0d 04 03 3b dd a4 52  28 47 25 2c 78 24 29 ea  |)...;..R(G%,x$).|
00008860  74 25 3a c8 99 26 66 63  62 38 34 2c 78 24 2c 6c  |t%:..&fcb84,x$,l|
00008870  79 2c 32 35 36 2c 47 25  2c 30 b8 74 25 2c 47 25  |y,256,G%,0.t%,G%|
00008880  3a 3f 47 25 3d 31 33 3a  3d 24 6c 79 0d 04 04 26  |:?G%=13:=$ly...&|
00008890  dd f2 66 79 28 47 25 2c  78 24 2c 62 75 25 29 47  |..fy(G%,x$,bu%)G|
000088a0  25 3d a4 50 79 28 47 25  2c 78 24 2c 62 75 25 29  |%=.Py(G%,x$,bu%)|
000088b0  3a e1 0d 04 05 23 dd f2  58 79 28 47 25 2c 78 24  |:....#..Xy(G%,x$|
000088c0  2c 67 24 29 47 25 3d a4  6f 28 47 25 2c 78 24 2c  |,g$)G%=.o(G%,x$,|
000088d0  67 24 29 3a e1 0d 04 06  18 dd f2 64 79 28 47 25  |g$):.......dy(G%|
000088e0  29 47 25 3d a4 43 79 28  47 25 29 3a e1 0d 04 07  |)G%=.Cy(G%):....|
000088f0  1c dd a4 77 28 52 25 29  3d a4 52 28 70 25 2c 22  |...w(R%)=.R(p%,"|
00008900  45 22 2b c3 28 52 25 29  29 0d 04 08 15 dd a4 47  |E"+.(R%))......G|
00008910  28 63 24 29 3d a4 52 28  70 25 2c 63 24 29 0d 04  |(c$)=.R(p%,c$)..|
00008920  09 1d dd f2 6c 28 63 24  2c 52 25 29 f2 66 79 28  |....l(c$,R%).fy(|
00008930  70 25 2c 63 24 2c 52 25  29 3a e1 0d 04 0a 1d dd  |p%,c$,R%):......|
00008940  f2 4a 28 63 24 2c 55 24  29 f2 58 79 28 70 25 2c  |.J(c$,U$).Xy(p%,|
00008950  63 24 2c 55 24 29 3a e1  0d 04 0b 27 dd f2 6f 28  |c$,U$):....'..o(|
00008960  63 24 2c 42 25 29 c8 99  26 64 63 62 38 34 2c 63  |c$,B%)..&dcb84,c|
00008970  24 2c 42 25 2c 32 35 36  2c 70 25 2c 30 3a e1 0d  |$,B%,256,p%,0:..|
00008980  04 0c 11 dd f2 4b 5f f2  64 79 28 70 25 29 3a e1  |.....K_.dy(p%):.|
00008990  0d 04 0d 12 dd f2 62 28  49 25 29 e7 49 25 3c 3d  |......b(I%).I%<=|
000089a0  30 8c 0d 04 0e 1e f2 4a  28 22 53 79 73 22 2c 22  |0......J("Sys","|
000089b0  22 29 3a f2 4a 28 22 53  79 73 4e 22 2c 22 22 29  |"):.J("SysN","")|
000089c0  0d 04 0f 2a cc f2 4a 28  22 53 79 73 22 2c a4 50  |...*..J("Sys",.P|
000089d0  28 49 25 2b 34 29 29 3a  f2 4a 28 22 53 79 73 4e  |(I%+4)):.J("SysN|
000089e0  22 2c c3 7e 28 21 49 25  29 29 0d 04 10 07 cd 3a  |",.~(!I%)).....:|
000089f0  e1 0d 04 11 1d dd a4 48  28 52 25 29 3d a4 52 28  |.......H(R%)=.R(|
00008a00  70 25 2c 22 4c 45 22 2b  c3 28 52 25 29 29 0d 04  |p%,"LE"+.(R%))..|
00008a10  12 2f dd f2 4e 5f 5b 4f  50 54 53 25 3a 41 4c 49  |./..N_[OPTS%:ALI|
00008a20  47 4e 3a 2e 52 79 3a a4  58 3a 42 20 42 5f 3a 5d  |GN:.Ry:.X:B B_:]|
00008a30  3a e7 53 25 80 34 8c 52  79 2b 3d 6e 25 0d 04 13  |:.S%.4.Ry+=n%...|
00008a40  05 e1 0d 04 14 1b dd a4  5f 4e 75 6c 6c 52 65 61  |........_NullRea|
00008a50  73 6f 6e 5f 76 65 72 73  69 6f 6e 3d 35 0d 04 15  |son_version=5...|
00008a60  23 dd a4 5f 68 61 72 64  5f 69 6e 69 74 69 61 6c  |#.._hard_initial|
00008a70  69 73 65 5f 4e 75 6c 6c  52 65 61 73 6f 6e 3d 30  |ise_NullReason=0|
00008a80  0d 04 16 2b dd f2 6d 79  de 56 5f 25 34 3a 21 56  |...+..my.V_%4:!V|
00008a90  5f 25 3d 30 3a 78 79 25  3d 30 3a 44 5f 25 3d a3  |_%=0:xy%=0:D_%=.|
00008aa0  3a 63 79 25 3d 36 31 39  33 3a e1 0d 04 17 20 dd  |:cy%=6193:.... .|
00008ab0  f2 4b 79 28 4d 25 29 ea  52 25 3a e7 4d 25 3d 30  |.Ky(M%).R%:.M%=0|
00008ac0  8c f2 57 28 22 45 49 4e  36 22 29 0d 04 18 1b 52  |..W("EIN6")....R|
00008ad0  25 3d 21 4d 25 3a e7 52  25 3d 30 8c f2 57 28 22  |%=!M%:.R%=0..W("|
00008ae0  45 49 4e 35 22 29 0d 04  19 0c e7 52 25 3d 78 79  |EIN5").....R%=xy|
00008af0  25 8c 0d 04 1a 11 78 79  25 3d 21 52 25 3a 44 5f  |%.....xy%=!R%:D_|
00008b00  25 3d b9 0d 04 1b 1a cd  3a 21 4d 25 3d 21 52 25  |%=......:!M%=!R%|
00008b10  3a f2 54 28 52 25 29 3a  f2 61 79 3a e1 0d 04 1c  |:.T(R%):.ay:....|
00008b20  0e dd f2 61 79 e7 21 56  5f 25 8c 0d 04 1d 10 63  |...ay.!V_%.....c|
00008b30  79 25 3d 63 79 25 80 28  ac 31 29 0d 04 1e 0e cc  |y%=cy%.(.1).....|
00008b40  63 79 25 3d 63 79 25 84  31 0d 04 1f 07 cd 3a e1  |cy%=cy%.1.....:.|
00008b50  0d 04 20 36 dd f2 59 5f  ea 69 25 2c 4d 25 2c 52  |.. 6..Y_.i%,M%,R|
00008b60  4a 25 2c 41 25 3a 69 25  3d 21 56 5f 25 3a c8 95  |J%,A%:i%=!V_%:..|
00008b70  69 25 3a 78 79 25 3d 69  25 3a 44 5f 25 3d a3 3a  |i%:xy%=i%:D_%=.:|
00008b80  e7 69 25 21 34 8c 0d 04  21 36 52 4a 25 3d a4 53  |.i%!4...!6RJ%=.S|
00008b90  28 22 46 4e 5f 4e 75 6c  6c 5f 52 65 61 73 6f 6e  |("FN_Null_Reason|
00008ba0  5f 22 2b 24 28 69 25 2b  31 32 29 2b 22 28 22 2b  |_"+$(i%+12)+"("+|
00008bb0  c3 28 69 25 21 38 29 2b  22 29 22 29 0d 04 22 27  |.(i%!8)+")").."'|
00008bc0  cc 52 4a 25 3d a4 53 28  22 46 4e 5f 4e 75 6c 6c  |.RJ%=.S("FN_Null|
00008bd0  5f 52 65 61 73 6f 6e 5f  22 2b 24 28 69 25 2b 31  |_Reason_"+$(i%+1|
00008be0  32 29 29 0d 04 23 0b cd  3a e7 44 5f 25 8c 0d 04  |2))..#..:.D_%...|
00008bf0  24 0a 69 25 3d 78 79 25  0d 04 25 17 cc 78 79 25  |$.i%=xy%..%..xy%|
00008c00  3d 30 3a 41 25 3d 21 69  25 3a e7 52 4a 25 8c 0d  |=0:A%=!i%:.RJ%..|
00008c10  04 26 2c 4d 25 3d 56 5f  25 3a c8 95 21 4d 25 3c  |.&,M%=V_%:..!M%<|
00008c20  3e 69 25 3a 4d 25 3d 21  4d 25 3a e7 4d 25 3d 30  |>i%:M%=!M%:.M%=0|
00008c30  8c f2 57 28 22 45 49 4e  32 22 29 0d 04 27 0d ce  |..W("EIN2")..'..|
00008c40  3a f2 4b 79 28 4d 25 29  0d 04 28 0b cd 3a 69 25  |:.Ky(M%)..(..:i%|
00008c50  3d 41 25 0d 04 29 09 cd  3a ce 3a e1 0d 09 35 05  |=A%..)..:.:...5.|
00008c60  3a 0d 09 36 05 3a 0d 09  37 05 3a 0d 09 38 05 3a  |:..6.:..7.:..8.:|
00008c70  0d 09 39 05 3a 0d ff                              |..9.:..|
00008c77