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

!AWNov94/Goodies/UNCFS/!UnInstall/!RunImage

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

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

Tape/disk: Home » Archimedes archive » Archimedes World » AW-1994-11-Disc2.adf » Disk2Nov94
Filename: !AWNov94/Goodies/UNCFS/!UnInstall/!RunImage
Read OK:
File size: 83F8 bytes
Load address: 0000
Exec address: 0000
File contents
    1REM>!RunImage
    2REMProduced by BasCompress v1.31 (18 Jan 1993)
    3n$="uncfsX":PROCz_("UnInstall",TRUE):END
    4DEFPROCL_(Z%)Z%?35=11:PROCs(Z%,1,6,55):PROCs(Z%,3,6,55):PROCz(Z%,N):PROCz(Z%,Q):PROCz(Z%,U):PROCz(Z%,W):ENDPROC
    5DEFPROCz(Z%,J%)PROCs(Z%,J%,1,48):PROCs(Z%,J%+1,1,48):ENDPROC
    6DEFPROCs(Z%,J%,Ay%,Q%)J%=Z%+88+(J%*32):J%=J%!24:J%?Ay%=ASC("B"):J%?(Ay%+1)=Q%:ENDPROC
    7DEFPROCEy!s=FALSE:!z=TRUE:!_=FALSE:!O=FALSE:ENDPROC
    8DEFFNv(E%,E$,J%)LOCALU%:PROCH(E$):U%=FALSE:IFNOTFNy(E$,Z$(J%))THEN
    9PROCPy(E%):U%=(FNc=E%(J%))
   10ENDIF:=U%
   11DEFPROCr(E%,E$,C$,Q$)LOCALD%,I%,G%,v%,Hy%,Jy%,U$,Q%:PROCH(E$):E$+="."+C$:PROCV(E%,E$):U$=E$:SYS8,5,U$TO,,v%,Hy%,I%,Jy%:IF(Jy%AND1)=0THEN
   12PROCt(E%,8,U$)
   13ELSEIFFNU(D%,I%+1)THEN
   14PROCY(E%,FALSE)
   15ELSELOCALERROR:ONERRORLOCALRESTOREERROR:PROCS(D%):PROCT
   16LOCALERROR:ONERRORLOCALRESTOREERROR:PROCdy(E%,D%,U$):ENDPROC
   17PROCOy(U$,D%):RESTOREERROR:IFNOTFNj(D%,I%,Q$)THEN
   18PROCY(E%,FALSE)
   19ELSELOCALERROR:ONERRORLOCALRESTOREERROR:PROCg_(E%,D%,U$):ENDPROC
   20SYS13,139,E$TOG%:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCLy(G%,U$,v%,Hy%,D%,I%,Jy%)
   21SYS12,2,G%,D%+LEN(Q$),I%-LEN(Q$):RESTOREERROR:CLOSE#G%:SYS8,1,E$,v%,Hy%,,Jy%:RESTOREERROR:PROCY(E%,TRUE)
   22ENDIF:RESTOREERROR:PROCS(D%)
   23ENDIF
   24ENDIF:ENDPROC
   25DEFFNj(k_%,I%,RETURNQ$)LOCALU%:IFQ$=""THEN
   26U%=FALSE
   27ELSEU%=I%>=LEN(Q$):J%=1:WHILEJ%<=LEN(Q$)ANDU%:U%=(ASC(MID$(Q$,J%,1))=k_%?(J%-1)):J%+=1:ENDWHILE
   28ENDIF:=U%
   29DEFPROCI_LOCALF%,J%,S_%:S_%=0:FORJ%=0TODIM(A$(),1):SYS46,280,e%,A$(J%):IFS_%<LEN(A$(J%))THENS_%=LEN(A$(J%))
   30NEXTJ%:DIMh_%S_%+2:`=0:F%=FNZ(512):F%!0=-1:F%!4=0:F%!8=0:F%!12=68:F%!16=68:F%!20=12674:F%!24=h_%:$h_%=A$(`)+CHR$(0):F%!28=e%:F%!32=S_%+1:SYS&400c2,,F%TOK_%:PROCC(F%,512):ENDPROC
   31DEFPROCU_LOCALO$,_$,Y$,D$,j$:LOCALUy:LOCAL`%,Y_%,dJ%,fJ%,V_%:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCk_:ENDPROC
   32O$="CFSUtil":_$="<Cfsmod$Dir>.":Y$="RMEnsure CFSUtil 1.00 RMLoad <Obey$Dir>."+O$+CHR$(10):D$=_$+"!Run":j$="UnInstall UnCFS"+CHR$(0):Uy=4075:PROCvy(D$,Uy,`%,Y_%,dJ%,fJ%,V_%):PROCH_:IFFNh(_$+O$)THEN
   33SYS5,"%Remove "+_$+O$:IFFNJ(2,FNA(14))
   34ENDIF:SYS&20005,"%RMKill CFSUtil":PROCS(`%):ENDPROC
   35DEFPROCk_PROCM("Sys",FNQ):IF`%THENPROCS(`%)
   36IFFNJ(2,FNA(1))
   37ENDPROC
   38DEFPROCH_LOCALQ_%,J%:Q_%=Y_%>=LEN(Y$):J%=1:WHILEJ%<=LEN(Y$)ANDQ_%:Q_%=(ASC(MID$(Y$,J%,1))=`%?(J%-1)):J%+=1:ENDWHILE:IFQ_%THEN
   39SYS8,4,D$,,,,V_%OR34:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCQ_
   40SYS8,10,D$,Uy,,`%+J%-1,`%+Y_%:SYS8,4,D$,,,,V_%:RESTOREERROR
   41ENDIF:ENDPROC
   42DEFPROCvy(M$,Ou%,RETURNk_%,RETURNI%,RETURNv%,RETURNHy%,RETURNJy%)LOCALr%:SYS8,5,M$TOr%,,v%,Hy%,I%,Jy%:PROCM("Reason",M$):IFr%<>1THENERROR1,FNA(9)
   43IF(Jy%AND1)=0THENERROR1,FNA(10)
   44IF(Jy%AND8)THENERROR1,FNA(11)
   45IFFNSy(v%)<>Ou%THENERROR1,FNA(12)
   46IFI%=0THENERROR1,FNA(13)
   47PROCB(k_%,I%):SYS8,255,M$,k_%:ENDPROC
   48DEFFNh(M$)LOCALr%:SYS8,5,M$TOr%:=(r%=1)
   49DEFPROCQ_SYS&20008,0,D$,dJ%,fJ%,`%,`%+Y_%:SYS&20008,4,D$,,,,V_%:PROCT:ENDPROC
   50DEFFNSy(ky%)LOCALr%:IF(ky%AND-1048576)<>-1048576THEN
   51r%=-1
   52ELSEr%=(ky%>>8)AND4095
   53ENDIF:=r%
   54DEFPROCR_DIMUy%4:!Uy%=0:ENDPROC
   55DEFPROCgy(E%,E$)ENDPROC
   56DEFPROCAyCASEW%!16OF
   57WHEN1282:PROCW_
   58WHEN&400c0:PROCfy
   59WHEN3:PROCr_
   60WHEN&400c1:PROCZy
   61WHEN8:PROCXy
   62WHEN&400cc:PROCzy
   63WHEN10:PROCY_
   64WHEN0:PROCF
   65ENDCASE:ENDPROC
   66DEFPROC__SYS&400c5,,W%:ENDPROC
   67DEFPROCrySYS&400c6,,W%:ENDPROC
   68DEFPROCc_IF!W%=X%THEN
   69PROCjy(W%!4,W%!24)
   70ELSESYS&400dc,W%!24
   71ENDIF:ENDPROC
   72DEFPROCYyLOCALQJ%,HJ%:HJ%=TRUE:REPEATSYS&400c7,_y%,W%TOQJ%:CASEQJ%OF
   73WHEN0:PROCh_
   74WHEN2:PROC__
   75WHEN3:PROCry
   76WHEN6:PROCt_
   77WHEN8:PROCc_
   78WHEN9:PROCs_
   79WHEN17:PROCAy
   80WHEN18:PROCB_
   81ENDCASE:UNTILNOT(HJ%):ENDPROC
   82DEFPROCHyLOCALa%,SJ%,Z$:LOCALDATA:RESTORE+0:IFE_%THEN
   83a%=!(FNC("ProgInfo")+F+88+(Qy<<5)+20)
   84ELSEa%=FNi(s%,Qy)
   85ENDIF:READZ$:SJ%=ASC(Z$):Z$=MID$(Z$,2):WHILEZ$<>"":?a%=ASC(Z$)EORSJ%:Z$=MID$(Z$,2):a%+=1:ENDWHILE:?a%=0
   86DATA"�����������",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
   87ENDPROC
   88DEFPROCz_(b$,Ny%)ONERRORPROCe
   89PROCDy(20,12):Vy%=-2:Yy%=FALSE:By%=FALSE:By%=FALSE:Yy%=TRUE:Vy%=-3:PROCA("<BasicV$Lib>.CAsm",1):PROCA("<BasicV$Lib>.Template",21):a_%=Yy%:m%=+1
   90EJ%=TRUE:iy%=0:oy%=0:PROCT_("stdio, stdlib, string, message, wimp"):PROChy(2000,FALSE,FALSE):PROCA("<BasicV$Lib>.ModeInfo",1):PROCA("<BasicV$Lib>.Wimp",28)
   91PROCA("<BasicV$Lib>.FileType",2):PROCA("<BasicV$Lib>.file_io",9):PROCA("<BasicV$Lib>.string",6):l%=FNf("<UnCFS$Dir>",-1,U_%):IFU_%>0THEN
   92ERROR!l%,"UnCFS can't load its' message file: "+FNG(l%+4)
   93ENDIF:IFNy%THENNy%=2ELSENy%=1
   94PROCw("Patching",Ny%):PROCw("patching",Ny%):PROCw("patched",Ny%):PROCw("patch",Ny%):h$="ForceCFS"+CHR$(10):NJ%=0:XJ%=1:wJ%=2:pJ%=0:__%=0:n_%=1:r_%=2:o_%=3:c_%=4:WJ%=6:GJ%=7:CJ%=8:oJ%=9:Xy=60-1:t=2:e=4:N=5:Q=7:U=9:W=11:R=13:B=14
   95my=17:I=18:My%=0:DIMZ$(5):Z$()="!Boot","!Run","!Sprites22","!Sprites23","!Sprites33","!Sprites32":DIME%(DIM(Z$(),1)):E%()=Ay,Ay,j,j,j,j
   96DIMA$(1):A$()="!uncfs","busy":Gu%=FALSE:E_%=TRUE:u%=TRUE:G$="&502,&400c0,3,&400c1,8,&400cc,10":PROCRy(b$,1,20,23,7,1994):By%=Yy%:PROCu_:PROCU_:ONERRORPROCe
   97PROCwy:REPEATPROCYy:UNTILFALSE:END:ENDPROC
   98DEFPROCvLOCALny,b:g=0<<2:q=1<<2:J=2<<2:E=3<<2:Y=4<<2:T=5<<2:w=6<<2:K=7<<2:S=8<<2:h=9<<2:X=10<<2:L=12<<2:Gy=13<<2:My=14<<2:Fy=15<<2:Hy=16<<2:M=17<<2:f=18<<2:i=19<<2:Ny=0<<2:Sy=1<<2:p=2<<2:D=3<<2:H=0:V=1:P=2:a=3:d=4:C=5:[OPTN%:ALIGN
   99.ny EQUS"[0,w>,>,>":DCB0:.Oy EQUS"[100,<t>":DCB0:ALIGN:.b DCD0:.s DCD0:.z DCD0:._ DCD0:.O DCD0:ALIGN:.Ry:FNF:STMFD(A)!,{4-9,Z}:MOV1,#0:ADR0,ny:BL By:STRvc0,b
  100ADRvc0,b:LDMFD(A)!,{4-9,pc}:.hy:FNF:STMFD(A)!,{4-9,Z}:LDR0,[0,#M]:STMFD(A)!,{0}:MOV1,#0:ADR0,Oy:BL By:ADD A,A,#1<<2:STRvc0,b:ADRvc0,b:LDMFD(A)!,{4-9,pc}:]:PROCf_:ENDPROC
  101DEFPROCJyENDPROC
  102DEFPROCq_:gy%=-12314:PROCq("FConvert",+1,"StatusW"):PROCq("Choices",+1,"ChoicesW"):X%=0:bu%=0:PROCR_:PROCHy:ENDPROC
  103DEFFNStatusW(Z%)PROCL_(Z%):hJ%=Z%!16:yJ%=Z%!20:vJ%=Z%!8-Z%!0:`J%=Z%!12-Z%!4:s_%=Z%!48-Z%!40:z_%=Z%!52-Z%!44:PROCP(Z%,N,FNE("None"))
  104PROCP(Z%,N+1,FNE("FScan0")):PROCP(Z%,Q,FNE("None")):PROCP(Z%,Q+1,FNE("FConv0")):PROCP(Z%,U,FNE("None")):PROCP(Z%,U+1,FNE("AScan0")):PROCP(Z%,W,FNE("None"))
  105PROCP(Z%,W+1,FNE("AConv0")):PROCP(Z%,e,""):PROCP(Z%,t,""):PROCP(Z%,R,FNE("Abrt")):PROCP(Z%,e-1,FNE("Patching")):PROCx(Z%!72,LEFT$(FNE("Title"),Z%!80-1)):=0
  106DEFFNChoicesW(Z%)PROCx(Z%!72,LEFT$(FNE("Choices"),Z%!80-1)):=0
  107DEFPROCP(Z%,J%,q$)J%=Z%+88+(J%*32):PROCx(J%!20,LEFT$(q$,J%!28-1)):ENDPROC
  108DEFPROCP_(c%,b%,Y%,T%)c%=FNJ(1,FNA(2)):ENDPROC
  109DEFFNe(Z%,RETURNE%)LOCALF_%:CASEZ%OF
  110WHEN-2
  111WHENs%
  112WHEN!Uy%
  113WHENX%
  114OTHERWISEE%=My%:F_%=FALSE:WHILEE%ANDNOTF_%:F_%=(Z%=E%!E):IFNOTF_%THENE%=E%!q
  115ENDWHILE:IFF_%THEN
  116Z%=gy%
  117ENDIF
  118ENDCASE:=Z%
  119DEFPROCW_LOCALA$,q%,T%,A%,J%,D%,E%:A$="":T%=W%!36:CASEFNe(W%!32,E%)OF
  120WHEN-2:IFT%=K_%THEN
  121A$="IconBar"
  122ENDIF
  123WHENs%:A$="ProgInfo"
  124WHEN!Uy%:A$="ShareWare"
  125WHENX%:A$="Choices":IFT%>=0THEN
  126A$+=","+STR$(T%)
  127ENDIF
  128WHENgy%:A$="Status":IFT%THEN
  129A$+=","+STR$(T%)
  130ENDIF:CASEE%!SOF
  131WHENP,H,V:A$+=",P"
  132WHENC:A$+=",S"
  133WHENa:A$+=",C"
  134WHENd:A$+=",D"
  135ENDCASE
  136OTHERWISEIF(G_%>218)AND(W%!36<>-1)THEN
  137A$=FNCy
  138ENDIF
  139ENDCASE:IFA$<>""THEN
  140PROCp("H"+A$,W%+20):IFW%?20THEN
  141W%!16=1283:W%!12=W%!8:A%=W%+20:WHILE?A%:A%+=1:ENDWHILE:IFA%>=(W%+256)THENA%=W%+255:?A%=0
  142W%!0=(A%-W%+4)AND-4:SYS&400e7,17,W%,W%!4
  143ENDIF
  144ENDIF:ENDPROC
  145DEFFNCyLOCALA$,Z%:Z%=W%+40:SYS&400f4,1,Z%,W%!32,W%!36:CASEZy%OF
  146WHENxy%:A$="I"
  147WHENly%:A$="D"
  148ENDCASE:IFA$<>""THEN
  149A$="M"+A$+STR$(!Z%):WHILEZ%!4<>-1:Z%+=4:A$+="_,"+STR$(!Z%):ENDWHILE
  150ENDIF:=A$
  151DEFPROCZyPROCA_(-1):SYS&465c2,_%:PROC_y:ENDPROC
  152DEFPROCFONERROR:ONERROROFF:ERROREXT1,"Error in error handler: "+REPORT$
  153PROCQy:PROCE_:CALLm:SYS&400dd:END:ENDPROC
  154DEFPROCy_IFFNwTHEN
  155PROCF
  156ENDIF:ENDPROC
  157DEFFNwLOCALey%,E%:ey%=TRUE:E%=My%:WHILEE%ANDey%:ey%=(E%!S=d):E%=E%!q:ENDWHILE:IFNOTey%THEN
  158ey%=(FNJ(3,FNA(5))=1)
  159ENDIF:=ey%
  160DEFPROCXyIFFNwTHEN
  161PROCF
  162ELSEW%!12=W%!8:Ru%=W%!4:SYS&400e7,19,W%,W%!4
  163ENDIF:ENDPROC
  164DEFPROCt_LOCALc%,b%,Y%,Z%,T%,S_%,D%,E%:c%=W%!0:b%=W%!4:Y%=W%!8:Z%=FNe(W%!12,E%):T%=W%!16:CASEY%OF
  165WHEN2:CASEZ%OF
  166WHEN-2:PROCNy:b%=96+(44*UJ%)+(24*kJ%):SYS&400d4,,Iy%,c%-64,b%
  167WHEN!Uy%:PROCBy
  168WHENgy%:PROCk(E%):SYS&400d4,,Iy%,c%-64,b%
  169ENDCASE
  170WHEN1*16,4*16:CASEZ%OF
  171WHENs%:PROCGy(c%,b%,Y%,T%)
  172ENDCASE
  173OTHERWISECASEZ%OF
  174WHEN-2:PROCP_(c%,b%,Y%,T%)
  175WHENd_%:PROCuy(c%,b%,Y%,T%)
  176WHENs%:PROCGy(c%,b%,Y%,T%)
  177WHEN!Uy%:PROCBy
  178WHENgy%:PROCC_(E%,T%,Y%)
  179WHENX%:PROCcy(Y%,T%)
  180ENDCASE
  181ENDCASE:ENDPROC
  182DEFPROCBySYS&465c4,_%,Uy%:PROCS(Uu%):!Uy%=0:ENDPROC
  183DEFPROCVy:Zy%=FALSE:xy%=&1040a31+0:ly%=&1040a31+1:ENDPROC
  184DEFPROCNyLOCALA%:UJ%=3:kJ%=0:IFiy%THENSYS&465c8,_%,iy%,FALSE
  185A%=USR(Ry):Iy%=!A%:iy%=Iy%:SYS&465c7,_%,iy%:Zy%=xy%:ENDPROC
  186DEFPROCk(E%)LOCALA%:IFE%THEN
  187i_%=E%
  188ENDIF:IFoy%THENSYS&465c8,_%,oy%,FALSE
  189A%=i_%:A%=USR(hy):Iy%=!A%:oy%=Iy%:SYS&465c7,_%,oy%:Zy%=ly%:ENDPROC
  190DEFPROCfyLOCALc%,b%,A_%:c%=W%!24:b%=W%!28:A_%=W%!32:CASEZy%OF
  191WHENxy%:CASEA_%OF
  192WHENNJ%:PROCu:IFs%>0THEN
  193PROCE(s%,0,FNE("App")):PROCE(s%,1,FNE("Purpose")):SYS&400e8,,s%,c%,b%
  194ENDIF
  195ENDCASE
  196ENDCASE:ENDPROC
  197DEFPROCs_LOCALA_%,F%,KJ%,OJ%,iJ%,A%:F%=FNZ(512):SYS&400cf,,F%:KJ%=F%!0:OJ%=F%!4:iJ%=F%!8:PROCC(F%,512):A_%=!W%:CASEZy%OF
  198WHENxy%:CASEA_%OF
  199WHENXJ%:PROCly
  200WHENwJ%:PROCy_
  201ENDCASE
  202WHENly%:CASEA_%OF
  203WHENpJ%:PROCd(i_%)
  204ENDCASE
  205ENDCASE:IFiJ%=1THEN
  206CASEZy%OF
  207WHENxy%:PROCNy
  208WHENly%:PROCk(0)
  209ENDCASE:SYS&400d4,,Iy%,KJ%,OJ%
  210ELSEPROCf
  211ENDIF:ENDPROC
  212DEFPROCfSYS&400d4,,-1:Zy%=FALSE:ENDPROC
  213DEFPROCTERRORERR,FNQ:PROCF:ENDPROC
  214DEFFNQLOCALe$:IFYy%THEN
  215e$=REPORT$+" ["+STR$(ERL)+"]"
  216ELSEe$=REPORT$
  217ENDIF:=e$
  218DEFPROCu_LOCALG%:PROCEy:G%=OPENIN(FNS(Ry%)+".Choices"):IFG%<>0THEN
  219LOCALERROR:ONERRORLOCALRESTOREERROR:CLOSE#G%:ENDPROC
  220INPUT#G%,!s:INPUT#G%,!z:INPUT#G%,!_:INPUT#G%,!O:RESTOREERROR:CLOSE#G%
  221ENDIF:ENDPROC
  222DEFPROCFyLOCALG%:G%=OPENOUT(FNS(Ry%)+".Choices"):LOCALERROR:ONERRORLOCALRESTOREERROR:CLOSE#G%:ENDPROC
  223PRINT#G%,!s:PRINT#G%,!z:PRINT#G%,!_:PRINT#G%,!O:RESTOREERROR:CLOSE#G%:ENDPROC
  224DEFPROCCyPROCEy:ENDPROC
  225DEFPROCr_IF((W%!20=-2)AND(W%!24=K_%))THEN
  226CASEW%!40OF
  227WHENwy:PROC`(FNS(W%+44),TRUE):W%!12=W%!8:W%!16=4:SYS&400e7,17,W%,W%!4
  228WHENTy:PROC`(FNS(W%+44),FALSE):W%!12=W%!8:W%!16=4:SYS&400e7,17,W%,W%!4
  229OTHERWISEIFFNJ(1,FNA(3))
  230ENDCASE
  231ENDIF:ENDPROC
  232DEFPROC`(E$,q_%)LOCALE%:PROCH(E$):IFFNU(E%,i+LEN(E$)+1)THEN
  233ELSE$(E%+i)=E$:E%!J=0:E%!Gy=!s:E%!M=!z:E%!My=!_:E%!Fy=!O:E%!E=0:E%!f=FALSE:IFFNXy(E%)THEN
  234PROCS(E%)
  235ELSEIFMy%=0THENPROCK(1)
  236PROCd_(E%,My%):IFFNV(E%,E$,q_%)THEN
  237PROCh(E%)
  238ELSEPROCO(E%)
  239ENDIF
  240ENDIF
  241ENDIF:ENDPROC
  242DEFFN_Null_Reason_uncfs(E%)LOCALU%:SYS&606c0:SYS&20006,229,0,0:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCZ_(E%):=TRUE
  243U%=FALSE:REPEATCASEE%!SOF
  244WHENP:PROCny(E%)
  245WHENH:PROCxy(E%)
  246WHENV:PROCK_(E%)
  247WHENa,d,C:U%=TRUE
  248ENDCASE:UNTILU%ORE%!Gy:RESTOREERROR:SYS&20006,229,255,0:SYS&606c1:=U%
  249DEFPROCZ_(E%)SYS&606c1:SYS&20006,229,255,0:IFERR=17THEN
  250PROCJ(E%,a)
  251ELSEPROCh(E%):PROCX(ERR,FNQ)
  252ENDIF:ENDPROC
  253DEFPROCny(E%)LOCALU%,V%,E$:U%=FALSE:V%=E%!J:IFV%THEN
  254E$=$(V%+D):IFFNR(E$,"*",V%!Ny)THEN
  255IFFNPyTHEN
  256IFFNV(E%,E$+"."+FNB,ASC(FNB)=ASC("!"))THEN
  257U%=FNH(E%)
  258ENDIF
  259ENDIF
  260ELSEU%=FNH(E%)
  261ENDIF
  262ELSEU%=TRUE
  263ENDIF:IFU%THEN
  264IFE%!S<>CTHEN
  265PROCJ(E%,d)
  266ENDIF
  267ENDIF:ENDPROC
  268DEFPROCxy(E%)LOCALU%,V%,E$:U%=TRUE:V%=E%!J:E$=$(V%+D):WHILEE%!X<DIM(Z$(),1)ANDU%AND(E%!S<>C):IFFNv(E%,E$,E%!X)THEN
  269IFE%(E%!X)=AyTHEN
  270PROCr(E%,E$,Z$(E%!X),h$)
  271ELSEPROCr(E%,E$,Z$(E%!X),"")
  272ENDIF:U%=FALSE
  273ENDIF:E%!X+=1:ENDWHILE:IFU%THEN
  274IFE%!S=HTHEN
  275IFE%!MyTHEN
  276PROCJ(E%,V):E%!L=0
  277ELSEPROCJ(E%,P)
  278ENDIF
  279ENDIF
  280ENDIF:ENDPROC
  281DEFPROCK_(E%)LOCALU%,V%,E$:U%=TRUE:V%=E%!J:E$=$(V%+D):WHILEE%!L<>-1ANDU%ANDE%!S<>C:IFFNJy(E$,E%!L)THEN
  282PROCr(E%,E$,FNB,""):U%=FALSE
  283ENDIF:ENDWHILE:IF(E%!Fy<>0)ANDU%AND(E%!L=-1)THEN
  284IFV%!pTHEN
  285PROCgy(E%,E$)
  286ENDIF
  287ENDIF:IFU%THEN
  288IFE%!S=VTHEN
  289PROCJ(E%,P)
  290ENDIF
  291ENDIF:ENDPROC
  292DEFFNJy(E$,RETURNz%)LOCALU%:PROCH(E$):U%=FALSE:IFFNR(E$,"*",z%)THEN
  293PROCPy(E%):IFFNc=tyTHEN
  294U%=(FNEy>=FNQy("CFS#"+E$+"."+FNB))
  295ENDIF
  296ELSEz%=-1
  297ENDIF:=U%
  298DEFPROCH(RETURNr$)IFFNt(LEFT$(r$,4),"CFS#")=0THEN
  299r$=MID$(r$,5)
  300ENDIF:ENDPROC
  301DEFPROCt(E%,wu%,E$)PROCJ(E%,C):IFE%!MTHENPROCd(E%)
  302PROCV(E%,E$):PROCX_(E%,FNA(wu%)):ENDPROC
  303DEFPROCdy(E%,D%,E$)PROCS(D%):PROCM("Sys",REPORT$):PROCt(E%,6,E$):ENDPROC
  304DEFPROCg_(E%,D%,E$)PROCS(D%):PROCM("Sys",REPORT$):PROCt(E%,7,E$):ENDPROC
  305DEFPROCLy(G%,E$,v%,Hy%,D%,I%,Jy%)IFG%THENCLOSE#G%
  306SYS&20008,0,E$,v%,Hy%,D%,D%+I%:SYS&20008,4,E$,,,,Jy%:PROCT:ENDPROC
  307DEFFNV(E%,E$,q_%)LOCALV%:PROCH(E$):IFFNU(V%,D+LEN(E$)+1)THEN
  308V%=0
  309ELSEPROCb(E%,E$):V%!Sy=E%!J:V%!Ny=0:V%!p=q_%:$(V%+D)=E$:E%!J=V%:IFq_%THEN
  310PROCJ(E%,H):E%!X=0
  311ENDIF
  312ENDIF:=(V%=0)
  313DEFFNH(E%)LOCALz%,V%:V%=E%!J:IFV%THEN
  314IFV%!pTHEN
  315PROCiy(E%):IFE%!fTHEN
  316PROCv_(E%)
  317ENDIF
  318ENDIF:z%=V%!Sy:PROCS(V%):E%!J=z%:V%=z%:E%!f=FALSE
  319ENDIF:IFV%THEN
  320PROCb(E%,$(V%+D))
  321ENDIF:=(V%=0)
  322DEFPROCh(E%)REPEATUNTILFNH(E%):PROCUy(E%):PROC`y(E%,My%):PROCS(E%):IFMy%=0THENPROCK(0)
  323ENDPROC
  324DEFPROCd_(Qy%,RETURNzy%)Qy%!q=zy%:Qy%!g=0:IFzy%THENzy%!g=Qy%
  325zy%=Qy%:ENDPROC
  326DEFPROC`y(Qy%,RETURNzy%)LOCALT_%,jy%:T_%=Qy%!g:jy%=Qy%!q:IFjy%THENjy%!g=T_%
  327IFT_%THENT_%!q=jy%
  328IFQy%=zy%THENzy%=jy%
  329ENDPROC
  330DEFFNU(RETURNLu%,x%)LOCALw_%:w_%=FN_(Lu%,x%):IFw_%THEN
  331PROCX(M_%,FNA(4))
  332ENDIF:=w_%
  333DEFPROCsyLOCALE%,J_%:J_%=FALSE:E%=My%:WHILEE%AND(NOTJ_%):CASEE%!SOF
  334WHENP,H,V:J_%=TRUE
  335ENDCASE:E%=E%!q:ENDWHILE:IFJ_%THEN
  336PROCK(1)
  337ELSEPROCK(0)
  338ENDIF:ENDPROC
  339DEFPROCK(J%)IFJ%<>`THEN
  340$h_%=A$(J%)+CHR$(0):PROCey(-1,K_%,0,0,0):`=J%
  341ENDIF:ENDPROC
  342DEFFNXy(E%)PROCby("FConvert",E%+E,256,128,E%!Hy):IFE%!ETHEN
  343E%!Y=0:E%!T=0:E%!w=0:E%!K=0:E%!f=FALSE:PROCJ(E%,P):IFE%!MTHENPROCo
  344PROCoy(E%!E,-1)
  345ENDIF:=(E%!E=0)
  346DEFPROCUy(E%)IFE%!ETHEN
  347SYS&465c4,_%,E%+E:PROCS(E%!Hy)
  348ENDIF:ENDPROC
  349DEFPROCC_(E%,T%,Y%)LOCALE$:CASET%OF
  350WHENt,e:E$=FNs(E%):IF(Y%AND1)=0THEN
  351E$="CFS#"+E$
  352ENDIF:SYS&20005,"Filer_OpenDir "+E$
  353WHENB:CASEE%!SOF
  354WHENP,H,V:PROCJ(E%,a):PROCSy("uncfs",E%)
  355WHENa:PROCJ(E%,E%!h):PROCO(E%)
  356WHENC:PROCj(E%):PROCJ(E%,E%!h):PROCO(E%)
  357ENDCASE
  358WHENI:IFE%!S=CTHEN
  359PROCj(E%):PROCJ(E%,E%!h):E%!X-=1:IFE%!L<-1THEN
  360E%!L+=1
  361ELSEE%!L-=1
  362ENDIF:PROCO(E%)
  363ELSEPROCm(E%)
  364ENDIF
  365WHENR:PROCm(E%)
  366ENDCASE:ENDPROC
  367DEFPROCO(E%)PROCK(1):PROCY(E%,FALSE):PROCIy("uncfs",E%):ENDPROC
  368DEFPROCm(E%)PROCSy("uncfs",E%):PROCh(E%):ENDPROC
  369DEFPROCJ(E%,jJ%)E%!h=E%!S:E%!S=jJ%:CASEjJ%OF
  370WHENH,V,P:PROC_(E%!E,I):PROCQ(E%!E,R):PROCQ(E%!E,B):PROCE(E%!E,B,FNE("Paus"))
  371WHENa:PROC_(E%!E,I):PROCQ(E%!E,R):PROCQ(E%!E,B):PROCE(E%!E,B,FNE("Cont"))
  372WHENd:PROCQ(E%!E,I):PROC_(E%!E,R):PROC_(E%!E,B):PROCE(E%!E,I,FNE("Ok")):IFE%!MTHENPROCd(E%)
  373WHENC:PROCQ(E%!E,I):PROCQ(E%!E,R):PROCQ(E%!E,B):PROCE(E%!E,B,FNE("Skip")):PROCE(E%!E,I,FNE("Rtry"))
  374ENDCASE:PROCsy:ENDPROC
  375DEFPROC_(Z%,J%)LOCALM%:M%=FNZ(64):!M%=Z%:M%!4=J%:SYS&400ce,,M%:IF((M%!24)AND(1<<23))=0THEN
  376SYS&400d1,Z%,M%!8,M%!12,M%!16,M%!20:M%!8=1<<23:M%!12=1<<23:SYS&400cd,,M%
  377ENDIF:PROCC(M%,64):ENDPROC
  378DEFPROCQ(Z%,J%)LOCALM%:M%=FNZ(64):!M%=Z%:M%!4=J%:SYS&400ce,,M%:IF(M%!24)AND(1<<23)THEN
  379SYS&400d1,Z%,M%!8,M%!12,M%!16,M%!20:M%!8=0<<23:M%!12=1<<23:SYS&400cd,,M%
  380ENDIF:PROCC(M%,64):ENDPROC
  381DEFPROCPy(E%)E%!Y+=1:IFE%!M=0THENPROCN(E%!E,N,E%!Y)
  382IFE%!Y=1THENPROCE(E%!E,N+1,FNE("FScan1"))
  383IFE%!Y=2THENPROCE(E%!E,N+1,FNE("FScanN"))
  384ENDPROC
  385DEFPROCY(E%,hu%)IFhu%THEN
  386E%!f=TRUE:E%!T+=1:IFE%!M=0THENPROCN(E%!E,Q,E%!T)
  387IFE%!T=1THENPROCE(E%!E,Q+1,FNE("FConv1"))
  388IFE%!T=2THENPROCE(E%!E,Q+1,FNE("FConvN"))
  389ENDIF:PROCV(E%,""):ENDPROC
  390DEFPROCiy(E%)E%!w+=1:IFE%!M=0THENPROCN(E%!E,U,E%!w)
  391IFE%!w=1THENPROCE(E%!E,U+1,FNE("AScan1"))
  392IFE%!w=2THENPROCE(E%!E,U+1,FNE("AScanN"))
  393ENDPROC
  394DEFPROCv_(E%)E%!K+=1:PROCN(E%!E,W,E%!K):IFE%!K=1THENPROCE(E%!E,W+1,FNE("AConv1"))
  395IFE%!K=2THENPROCE(E%!E,W+1,FNE("AConvN"))
  396ENDPROC
  397DEFPROCb(E%,E$)IFE%!M=0THEN
  398PROCE(E%!E,t,FNx(E$))
  399ENDIF:ENDPROC
  400DEFPROCV(E%,E$)IFE%!M=0THEN
  401PROCE(E%!E,e,FNx(E$))
  402ENDIF:ENDPROC
  403DEFFNx(E$)IFLEN(E$)>XyTHEN
  404E$="..."+RIGHT$(E$,Xy-3)
  405ENDIF:=E$
  406DEFFNs(E%)LOCALE$,V%:V%=E%!J:IFV%THEN
  407E$=$(V%+D)
  408ELSEE$=$(E%+i)
  409ENDIF:=E$
  410DEFPROCd(E%)E%!M=(E%!M=0):IFE%!MTHEN
  411PROCo
  412ELSEPROCb(E%,FNs(E%)):PROCV(E%,""):PROCN(E%!E,Q,E%!T):PROCN(E%!E,N,E%!Y):PROCN(E%!E,W,E%!K):PROCN(E%!E,U,E%!w)
  413ENDIF:ENDPROC
  414DEFPROCoPROCE(E%!E,t,"-"):PROCE(E%!E,e,"-"):PROCE(E%!E,Q,"-"):PROCE(E%!E,N,"-"):PROCE(E%!E,W,"-"):PROCE(E%!E,U,"-"):ENDPROC
  415DEFPROCX_(E%,`$)LOCALM%,qJ%,xJ%,sJ%,u_%:IFE%!MTHENPROCd(E%)
  416PROCE(E%!E,my,`$):M%=FNZ(64):!M%=E%!E:sJ%=X_%+1:u_%=D_%+1:qJ%=NOT((1<<C_%)-1):xJ%=NOT((1<<Wy%)-1):M%!4=((sJ%-s_%)/2)ANDqJ%:M%!16=u_%-((((u_%-68)-z_%)/2)ANDxJ%):M%!12=M%!4+s_%:M%!8=M%!16-z_%:M%!20=0:M%!24=0:M%!28=-1:SYS&400c5,,M%:VDU7:PROCC(M%,64):ENDPROC
  417DEFPROCj(E%)LOCALM%:M%=FNZ(64):!M%=E%!E:SYS&400cb,,M%:M%!12=M%!4+vJ%:M%!16=M%!8+`J%:M%!20=hJ%:M%!24=yJ%:M%!28=-1:SYS&400c5,,M%:PROCC(M%,64):PROCV(E%,""):ENDPROC
  418DEFPROClyIFX%=0THEN
  419DIMMJ%4:!MJ%=0:IFFNO("Choices",MJ%)
  420X%=!MJ%
  421ENDIF:IFX%THEN
  422PROCy:PROCyy(X%):PROCi(X%,-1)
  423ENDIF:ENDPROC
  424DEFPROCyIFX%THEN
  425SYS&465c6,_%,X%:PROCI(X%,__%,!s):PROCI(X%,n_%,!z):PROCI(X%,r_%,!_):PROCI(X%,o_%,!O):PROCI(X%,c_%,FNa)
  426ENDIF:ENDPROC
  427DEFPROCcy(Y%,T%)LOCALmy%:PROCi(X%,-1):CASET%OF
  428WHENWJ%:PROCL:my%=TRUE
  429WHENGJ%:PROCy:my%=TRUE
  430WHENCJ%:PROCL:PROCFy:my%=TRUE
  431WHENoJ%:PROCCy:PROCy:my%=TRUE
  432ENDCASE:IFmy%THEN
  433IFY%AND1092THENPROCU(X%)
  434ENDIF:ENDPROC
  435DEFPROCLLOCALe_%,I$,R$,P$:!s=FNW(X%,__%):!z=FNW(X%,n_%):!_=FNW(X%,r_%):!O=FNW(X%,o_%):e_%=FNa:IFe_%<>FNW(X%,c_%)THEN
  436I$="TFont":R$="TSystem":IFNOTe_%THENSWAPI$,R$
  437P$=FNS(Ry%)+".":I$=P$+I$+CHR$0:R$=P$+R$+CHR$0:P$=P$+"Templates"+CHR$0:SYS41,25,P$,I$:SYS41,25,R$,P$
  438ENDIF:ENDPROC
  439DEFPROCjy(T%,rJ%)CASErJ%OF
  440WHEN13:PROCL:PROCU(X%)
  441WHEN27:PROCU(X%)
  442WHEN386:PROCL:PROCU(X%)
  443WHEN387:PROCU(X%)
  444WHEN388:PROCL:PROCFy:PROCU(X%)
  445WHEN389:PROCCy:PROCU(X%)
  446OTHERWISESYS&400dc,rJ%
  447ENDCASE:ENDPROC
  448DEFFNaLOCALU%,F%,Ay%,R%:F%=FNZ(128):Ay%=0:REPEATSYS12,9,Ry%,F%,1,Ay%,128,"TSystem"+CHR$0TO,,,R%,Ay%:U%=(R%=1):UNTIL(Ay%=-1)ORU%:PROCC(F%,128):=U%
  449DEFPROCzyLOCALA$:CASEW%!20OF
  450WHENX%:A$="WinChoices"
  451ENDCASE:IFA$<>""THEN
  452A$=FNE(A$):W%!16=&400cc:W%!12=W%!8:$(W%+28)=n$+CHR$0:$(W%+36)=A$+CHR$0:W%!0=(36+LEN(A$)+4)AND-4:SYS&400e7,17,W%,W%!4
  453ENDIF:ENDPROC
  454DEFFNL=19
  455DEFPROCDy(DJ%,vu%)IFFNL<vu%THEN
  456ERROR1,"EIL1"
  457ENDIF:IFDJ%<1THEN
  458ERROR1,"EIL2"
  459ENDIF:I_%=DJ%:DIMM$(I_%-1):DIMA%(I_%-1):`_%=0:DIMay%256:B_%=40:w%=0:Vy%=12:bJ%=FALSE:DIME$(B_%-1):cy%=FALSE:By%=FALSE:a_%=TRUE:ENDPROC
  460DEFPROCA(J$,tJ%)PROCb_(J$,tJ%):ENDPROC
  461DEFPROCb_(J$,tJ%)LOCALv%,J%,C$,f$:J%=0:v%=TRUE:C$=MID$(J$,1+INSTR(J$,".")):WHILEJ%<`_%ANDv%:v%=(C$<>M$(J%)):IFv%THEN
  462J%+=1
  463ENDIF:ENDWHILE:IFv%THEN
  464IFJ%=I_%THEN
  465ERROR1,"EIL3"
  466ENDIF:M$(J%)=C$:f$="'"+J$+"' does not have a FN_":LOCALERROR:ONERRORLOCALRESTOREERROR:PROCZ(f$+C$+"_version")
  467A%(J%)=EVAL("FN_"+C$+"_version"):RESTOREERROR:`_%+=1:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCZ(f$+"_hard_initialise_"+C$)
  468IFEVAL("FN_hard_initialise_"+C$)THEN
  469ERROR1,"EIL5 "+J$
  470ENDIF:RESTOREERROR
  471ENDIF:IFtJ%>A%(J%)THEN
  472ERROR1,"EIL4 "+J$
  473ENDIF:ENDPROC
  474DEFFNM(y$)LOCALERROR:ONERRORLOCALRESTOREERROR:PROCay
  475=EVAL(y$)
  476DEFPROCayIFa_%THEN
  477ERRORERR,REPORT$+" (evaluating `"+y$+"' ["+STR$(ERL)+"])"
  478ELSEERRORERR,REPORT$
  479ENDIF:ENDPROC
  480DEFFNG(A%)LOCALS$:WHILE?A%:S$+=CHR$(?A%):A%+=1:ENDWHILE:=S$
  481DEFFNWy(A%,B%)LOCALS$:WHILEB%>=1AND?A%:S$+=CHR$(?A%):A%+=1:B%-=1:ENDWHILE:=S$
  482DEFFNS(A%)LOCALS$:WHILE?A%>31:S$+=CHR$(?A%):A%+=1:ENDWHILE:=S$
  483DEFPROCx(A%,S$)$A%=S$:A%?LEN(S$)=0:ENDPROC
  484DEFPROCl(A%,S$,B%)IFLEN(S$)<=B%THEN
  485$A%=LEFT$(S$,B%-1):A%?(B%-1)=ASC(MID$(S$,B%,1))
  486ELSE$A%=S$:A%?LEN(S$)=0
  487ENDIF:ENDPROC
  488DEFPROCZ(W$)IFcy%THEN
  489IFBy%THEN
  490ERRORERR,REPORT$+" ["+STR$ERL+"]."
  491ELSEERRORERR,REPORT$
  492ENDIF
  493ELSEIFNOTbJ%THEN
  494IFw%=B_%THEN
  495E(B_%-1)="Errors too deep!!!!!":PROCe
  496ENDIF:IFRIGHT$(W$,2)=": "THEN
  497W$=LEFT$(W$,LEN(W$)-2)
  498ENDIF:IFBy%THEN
  499E$(w%)=REPORT$
  500ELSEIFw%=0THEN
  501E$(w%)="Error `"+REPORT$+"' (line ":E$(w%)+=STR$(ERL)+") in ":E$(w%)+="`"+W$+"'"
  502ELSEE$(w%)="`"+W$+"'"
  503ENDIF
  504ENDIF:w%+=1:ERRORERR,""
  505ENDIF
  506ENDIF:ENDPROC
  507DEFPROCeLOCALk%,Ey$:IFcy%THEN
  508IFBy%THEN
  509PROCX(ERR,REPORT$+" ["+STR$(ERL)+"]."):PROCF:END
  510ELSEPROCX(ERR,REPORT$):IFERR=R_%THEN
  511PROCF:END
  512ENDIF
  513ENDIF
  514ELSEIFVy%=-2THEN
  515IFw%>0THEN
  516ERROREXTERR,E$(0)
  517ELSEERROREXTERR,REPORT$
  518ENDIF:END
  519ENDIF:IFVy%=-3THEN
  520$ay%="TASK":SYS&400c0,200,!ay%,"LibHandler"+CHR$(0):IFw%THEN
  521FORk%=0TOw%-1:IFk%<(w%-1)THEN
  522PROCg(E$(k%)+" in")
  523ELSEPROCg(E$(k%))
  524ENDIF:NEXTk%
  525ELSEPROCg(REPORT$+" (line "+STR$(ERL)+")")
  526ENDIF:SYS&600dd:END
  527ENDIF:IFVy%>=0THEN
  528MODEVy%
  529ENDIF:PRINT"An error has occured...":PRINT:IFw%THEN
  530FORk%=0TOw%-1:COLOUR((7-(k%<<1))AND6)+1:PRINTE$(k%);:IFk%<(w%-1)THEN
  531PRINT" in ";
  532ENDIF:NEXTk%
  533ELSEPRINTREPORT$;" (line ";STR$(ERL);")"
  534ENDIF:PRINT:COLOUR7:END
  535ENDIF:ENDPROC
  536DEFPROCg(w$)LOCALEu%:Eu%=20+(LEN(w$)+5)AND-4:!ay%=Eu%:ay%!16=&804c0:$(ay%+20)=w$+CHR$(10)+CHR$(0):SYS&600e7,17,ay%,0:ENDPROC
  537DEFFN_CAsm_version=14
  538DEFFN_hard_initialise_CAsmPROCA("<BasicV_Assembler$Lib>.Misc",27):SYS5,"RMEnsure CAssembler 0.08 RMLoad System:Modules.CAssembler":SYS5,"If ""<CAsm$Dir>""="""" Then Set CAsm$Dir <d>.Library.CAsm":CAsmLibrary_stdlib=1:CAsmLibrary_stdio=2
  539CAsmLibrary_string=3:yi=4:oi=5:fu=6:jl=7:CAsmLibrary_wimp=8:H_=9:CAsmLibrary_message=10:dl=11:ou=12:Dl=13:gi=14:tu=15:Zi=16:Q_=17:Bu=18:Ll=19:li=20:SJ=21:u_=22:Kl=23:hu=24
  540o_=25:wa=26:k=26:GJ=0:HJ=1:Cu=2:AJ=3:M_=4:J_=5:B_=6:Ri=7:Xa=8:py=9:y=10:x=11:Ey=12:A=13:Z=14:JJ=15:ay=&6d734143:j%=0:Ky%=13:v=0:G=0:Zy=10*1024:fy=Zy+(1*1024):dy=FALSE:=0
  541DEFPROCT_(N$)LOCALM%,i%,Ly%,L%,O%,P%,N%,J$:LOCALERROR:ONERRORLOCALRESTOREERROR:SYS&400ec,ry%,-1:PROCT
  542ry%=HIMEM-32768:SYS&400ec,ry%+32768,-1TOL%:L%+=32768:O%=ry%+32768:P%=0:N%=14:IFO%=L%THEN
  543ERROR1,"Not enough memory to start application"
  544ENDIF:IFj%<>0THEN
  545ERROR1,"EIC1"
  546ENDIF:DIMx_%k*8:DIMS$(k):IFFNh_DEFAULT
  547WHILEN$<>"":J$=LEFT$(N$,INSTR(N$,",")-1):LOCALERROR:ONERRORLOCALRESTOREERROR:PROCZ("EIC2")
  548i%=EVAL("CAsmLibrary_"+J$):RESTOREERROR:Ly%=x_%:M%=Ly%+(j%*8):WHILEM%>Ly%:IF!Ly%=i%THEN
  549Ly%=M%+1
  550ELSELy%+=8
  551ENDIF:ENDWHILE:IFLy%=M%THEN
  552IFj%>=kTHEN
  553ERROR1,"EIC3"
  554ENDIF:!M%=i%:S$(i%)=J$:j%+=1:O%=ry%+32768:P%=0:IFFNM("FNh_"+J$)
  555ENDIF:N$=MID$(N$,LEN(J$)+2):WHILEASC(N$)=ASC(" "):N$=MID$(N$,2):ENDWHILE:ENDWHILE:SYS&400ec,ry%,-1:RESTOREERROR:ENDPROC
  556DEFPROCWyLOCALR%,M%,J%,Ey%:IFj%=0THEN
  557IFFNh_DEFAULT
  558ENDIF:Ey%=x_%:J%=j%:IF(N%AND2)=0THEN
  559DIMM%j%*4:SYS79,j%,M%+&c0000000,3,,Ey%,8
  560ENDIF:[OPTN%:.Wy DCDay:DCDuy:]:WHILEJ%>0:[OPTN%:DCD!Ey%:DCDEy%!4:]:Ey%+=8:J%-=1:ENDWHILE:[OPTN%:DCD0:]:[OPTN%:ALIGN:.l:]:M%=P%:IFFNjumpblock_DEFAULT
  561uy=(P%-M%)>>2:J%=j%:Ey%=x_%:WHILEJ%>0:M%=P%:IFFNM("FNjumpblock_"+S$(!Ey%))
  562Ey%!4=(P%-M%)>>2:Ey%+=8:J%-=1:ENDWHILE:ENDPROC
  563DEFPROCx_LOCALo:[OPTN%:ALIGN:.Cy:STMFD(A)!,{4-5,Z}:BL P%+(13<<2):.o DCDWy-o:DCDl-o:DCDv-o:DCDG:DCDZy:.r:DCD0:DCD0:DCD0:DCD0:LDR A,r
  564LDMFD(A)!,{y,x,Ey,Z}:MOVpc,Z:BIC 5,Z,#&fc000003:LDMIA5,{0-4}:ADD0,0,5:ADD1,1,5:ADD2,2,5:MOV5,#0:SWI &fcb80:STRvc0,r+(1<<2):STRvc1,r+(3<<2):LDMFD(A)!,{4-5,pc}:.m:FNF:MOV2,Z:MOV1,A:MOV0,y
  565SWI &fcb81:MOVvc1,#0:STRvc1,r+(3<<2):MOVpc,2:MOV13,12:]:v=P%:PROCW:PROCJy:G=(G+3)AND-4:P%+=G-1:O%+=G-1:[OPTN%:DCB0:]:ENDPROC
  566DEFPROCJ_IFP%<>32768THENERROR1,"EIC4"
  567[OPTN%:ADR4,n:MOV5,#sy:SWI &fcb80:FNI("vc",2,Ai):Bvc _y:SWI 43:.n:DCDWy-n:DCDl-n:DCDv-n:DCDG:DCDZy:DCDfy:]:ENDPROC
  568DEFFNF[OPTN%:STMFD(A)!,{y,x,Ey,Z}:MOV x,pc:FNI("",Z,r):STR A,[Z],#4:LDMIA(Z)!,{y,Ey,A}:AND x,x,#&fc000003:ORR Z,Z,x:]:=0
  569DEFPROChy(ny%,Ty%,LJ%)PROCA("<BasicV$Lib>.Heap",8):PROCA("<BasicV$Lib>.Message",1):IFFNm(ny%,Ty%,LJ%,0)
  570CALLCy:ONERRORCALLm:PROCe
  571ENDPROC
  572DEFFNm(ny%,Ty%,LJ%,wy%)LOCALL%,O%,P%,N%,ou%,H%:LOCALDJ:LOCALdJ,vJ,qJ,i_,eJ,aJ:LOCALxy,Yy,qi:IFwy%=0THEN
  573PROCA("<BasicV$Lib>.Heap",8):PROCA("<BasicV$Lib>.Message",1)
  574ENDIF:DIMg%ny%:DJ=A:dJ=1<<31:vJ=1<<30:qJ=1<<29:i_=1<<28:eJ=1<<27:aJ=1<<26:xy=1<<17:Yy=256:qi=Yy+xy:SYS&606c0:LOCALERROR:ONERRORLOCALRESTOREERROR:SYS&606c1:PROCT
  575H%=ny%:L%=g%+ny%:IFTy%<>0THENTy%=4
  576FORN%=8+Ty%TO10+Ty%STEP2:IF(N%AND4)<>0THEN
  577O%=g%:IFwy%=1THEN
  578P%=32768
  579ELSEP%=0
  580ENDIF
  581ELSEO%=0:P%=g%
  582ENDIF:CASEwy%OF
  583WHEN1:PROCW:PROCJ_:PROCW:PROCv:PROCW:PROCWy:v=P%:PROCW:PROCJy:G=(G+3)AND-4
  584WHEN0:PROCW:PROCv:PROCW:PROCM_:PROCW:PROCKy:PROCW:PROCWy:PROCW:PROCx_
  585WHEN2:PROCW:PROCv
  586ENDCASE:IFN%AND4THENL%=O%ELSEL%=P%
  587IF(N%AND2)=0THEN
  588SYS&dcb93,0,g%,L%-g%
  589ENDIF:H%=L%-g%:NEXTN%:SYS&606c1:IFTy%THEN
  590IFwy%=0THEN
  591Cy+=g%:m+=g%
  592ENDIF
  593ENDIF:IFdyANDwy%<>2THEN
  594IFTy%THEN
  595H%=l:IFwy%THENH%-=32768
  596ELSEERROR1,"EIC9"
  597ENDIF
  598ENDIF:IFLJ%THEN
  599PRINT"Assembled to &";~H%;" = ";((H%*10+512)DIV1024)/10;"K":PRINT"Could assemble with ";ny%-H%;" less"
  600ENDIF:=H%
  601DEFFN_Template_version=21
  602DEFFN_hard_initialise_Template:E_%=FALSE:u%=FALSE:m%=FALSE:hy%=FALSE:EJ%=FALSE:Mu%=-1:ru%=1:Ky=7:Qy=16:ey=14:ry=15:=0
  603DEFPROCQyLOCALJ%:IFu%<>-1THEN
  604IFm%THEN
  605SYS&665c1,_%,TRUE,FALSE
  606ELSEFORJ%=0TO255:WHILEu%?J%:SYS&60082,J%:u%?J%-=1:ENDWHILE:NEXTJ%
  607ENDIF
  608ENDIF:ENDPROC
  609DEFPROCD_LOCALI%,d%,Q%,F%,M$,yu%,Xy%,vy%,z%,R%:IFu%THEN
  610IFm%THEN
  611hy%=(m%=+1):IFhy%THEN
  612Q%=+1
  613ELSEQ%=0
  614ENDIF:Xy%=140+(1<<21):IFEJ%THEN
  615a$=FNE("MenuFont"):IFa$<>""THEN
  616Xy%+=(1<<18)+(1<<19):PROCB(vy%,8+LEN(a$)+1):$(vy%+8)=a$:vy%!0=16*VAL(FNE("MenuFontWidth")):vy%!4=16*VAL(FNE("MenuFontHeight")):IFFNE("MenuFontLowRez")="NO"THEN
  617Xy%+=(1<<17)
  618ELSEXy%+=(1<<16)
  619ENDIF
  620ENDIF
  621ENDIF:SYS&465c0,_%,0,0,Q%,Q%,0,0,Xy%,vy%TOu%
  622ELSEPROCB(u%,256):SYS&dcb93,0,u%,256
  623ENDIF
  624ELSEu%=-1
  625ENDIF:M$=FNK("<"+B$+"$Dir>.Sprites"):I%=FNz(M$):IFI%>0THEN
  626F%=FNZ(128):z%=0:REPEATSYS12,12,"<"++B$+"$Dir>",F%,1,z%,128,"Sprites*"TO,,,R%,z%:IFR%=1ANDF%!20=4089ANDI%<F%!8THENI%=F%!8
  627UNTILz%<0:PROCC(F%,128):PROCB(e%,I%+16):e%!0=I%+16:e%!4=0:e%!8=16:e%!12=16:SYS&2002e,522,e%,M$TOd%;Q%:c$=M$:IFFNP(Q%)THEN
  628PROCM("Reason","Sprites"):PROCn(d%):PROCD(4):PROCF
  629ENDIF
  630ELSEe%=0
  631ENDIF:PROCG_("Templates"):IFe%>0THEN
  632PROCq("ProgInfo",e%,"ProgInfo")
  633ELSEPROCq("ProgInfo",+1,"ProgInfo")
  634ENDIF:s%=0:IFE_%=0THEN
  635PROCu
  636ENDIF:d_%=FNBy("Query",yu%,+1):PROCq_:ENDPROC
  637DEFPROC_y:M$=FNK("<"+B$+"$Dir>.Sprites"):IFM$<>c$THEN
  638e%!4=0:e%!8=16:e%!12=16:SYS46,522,e%,M$:c$=M$
  639ENDIF:ENDPROC
  640DEFFNProgInfo(Z%)PROCx(Z%!(88+(Ky<<5)+20),X$):=0
  641DEFPROCGy(c%,b%,Y%,T%)CASET%OF
  642WHENey,ry:c%=FNJ(1,FNA(0)):IFY%<>1THEN
  643PROCf
  644ENDIF
  645OTHERWISEIFY%AND240THEN
  646W%!0=s%:W%!4=1:SYS&400d0,,W%
  647ENDIF
  648ENDCASE:ENDPROC
  649DEFPROCuIFs%=0THEN
  650IFhy%THEN
  651DIMP_%4:!P_%=0:IFFNO("ProgInfo",P_%)
  652s%=!P_%
  653ELSEIFFNl("ProgInfo",s%)
  654ENDIF
  655ELSEIFm%THEN
  656IFhy%THEN
  657SYS&465c6,_%,P_%
  658ELSESYS&465c6,_%,s%
  659ENDIF
  660ENDIF
  661ENDIF:ENDPROC
  662DEFPROCG_(g$)LOCALBJ%,i%,I%,d%,Q%,S%:LOCALlJ%,M$,Dy%,by%:M$="<"+B$+"$Dir>."+g$:I%=FNz(M$):IFI%<=0THEN
  663PROCM("Reason",g$):PROCM("Sys","Not found"):PROCD(4):PROCF
  664ENDIF:PROCB(i%,I%):PROCB(Dy%,I%+F):by%=Dy%+Dy:lJ%=Dy%+F:SYS&600d9,,M$TOd%;Q%:IFFNP(Q%)THEN
  665PROCM("Reason","Templates"):PROCn(d%):PROCD(4):SYS&600da:PROCF
  666ENDIF:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCj_
  667z%=0:REPEATby%!0=ASC("*"):SYS&600db,,lJ%,i%,i%+I%,u%,by%,z%TOd%,,BJ%,,,,z%;Q%:IFFNP(Q%)THEN
  668PROCR(d%):SYS&600da:PROCF
  669ENDIF:IFz%THEN
  670FORQ%=0TO11:IFby%?Q%=13THENby%?Q%=0:Q%=12
  671NEXTQ%:Dy%!gy=BJ%-i%:Dy%!u=i%:S%=FNd(Dy%):IFS%=0THEN
  672PROCD(16):SYS&600da:PROCF
  673ENDIF:S%!c=!yy%:!yy%=S%
  674ENDIF:UNTILz%=0:RESTOREERROR:SYS&400da:PROCS(Dy%):PROCS(i%):ENDPROC
  675DEFPROCj_SYS&600da:PROCZ("Template"):ENDPROC
  676DEFFNBy(F$,zu%,l_%)=FNNy(F$,zu%,l_%,"")
  677DEFFNNy(F$,zu%,l_%,W$)LOCALS%,mJ%,G%:S%=FNC(F$):IFS%=0THEN
  678PROCF
  679ENDIF:mJ%=S%+F:mJ%!64=l_%:IFW$<>""THEN
  680G%=FNM("FN"+W$)
  681ENDIF:IFFNq(S%,G%)THEN
  682PROCF
  683ENDIF:PROCa(S%):=G%
  684DEFPROCq(F$,l_%,W$)LOCALS%,Z%:S%=FNC(F$):IFS%=0THEN
  685PROCF
  686ENDIF:Z%=S%+F:Z%!64=l_%:IFW$<>""THEN
  687Z%=FNM("FN"+W$+"("+STR$(Z%)+")")
  688ENDIF:ENDPROC
  689DEFFNl(F$,RETURNSy%)LOCALJ%:=FNr(F$,Sy%,J%)
  690DEFFNr(F$,RETURNSy%,RETURNuy%)LOCALS%,K%:K%=FALSE:IFSy%<=0THEN
  691S%=FNC(F$):IFS%THEN
  692K%=FNq(S%,Sy%):IFK%=FALSETHEN
  693uy%=S%!u:PROCa(S%)
  694ENDIF
  695ELSEK%=TRUE
  696ENDIF
  697ELSEIFm%THEN
  698SYS&465c6,_%,Sy%
  699ENDIF
  700ENDIF:=K%
  701DEFFNp(F$)LOCALS%,g$,W_%:S%=!yy%:W_%=FALSE:WHILES%AND(NOTW_%):W_%=(FNWy(S%+Dy,12)=F$):IFNOTW_%THEN
  702S%=S%!c
  703ENDIF:ENDWHILE:=S%
  704DEFFNC(F$)LOCALS%:S%=FNp(F$):IFS%=0THEN
  705PROCM("Reason",F$):PROCD(3)
  706ENDIF:=S%
  707DEFFNq(S%,RETURNSy%)IFm%THEN
  708SYS&665c3,_%,S%+F,0TOSy%;S%
  709ELSESYS&600c1,,S%+FTOSy%;S%
  710ENDIF:S%=FNP(S%):IFS%THEN
  711PROCR(Sy%):Sy%=0
  712ENDIF:=S%
  713DEFPROCF_(Z%,Q%,Fy%)LOCALG%,D%:D%=`y%<<C_%:G%=Z%!8-Z%!0:IFD%<=G%THEN
  714Z%!0=0
  715ELSED%=D%-G%:IFFy%<0THEN
  716Fy%=D%+(Fy%MODD%)
  717ENDIF:Z%!0=(Z%!0+Fy%*Q%)MODD%
  718ENDIF:Z%!8=Z%!0+G%:ENDPROC
  719DEFPROCS_(Z%,Q%,Fy%)LOCALG%,D%:D%=(Cy%<<Wy%)-96:G%=Z%!8-Z%!0+48:IFD%<=G%THEN
  720Z%!8=(Cy%<<Wy%)-G%
  721ELSED%=D%-G%:IFFy%<0THEN
  722Fy%=D%+(Fy%MODD%)
  723ENDIF:Z%!8=(Cy%<<Wy%)-Z%!8:Z%!8=(Cy%<<Wy%)-((Z%!8+Fy%*Q%)MODD%)
  724ENDIF:Z%!0=Z%!8-(G%-48):ENDPROC
  725DEFPROCa(S%)LOCALM%:M%=yy%:WHILE!M%<>0AND!M%<>S%:M%=!M%+c:ENDWHILE:IF!M%=S%THEN
  726!M%=S%!c:S%!c=0:PROCS(S%)
  727ENDIF:ENDPROC
  728DEFFNk(A%)=USR(by)
  729DEFFNd(A%)A%=FNk(A%):IFA%=0THEN
  730PROCD(16)
  731ENDIF:=A%
  732DEFPROCf_IF(N%AND2)=0THENPROCN_("Template")
  733[OPTN%:ALIGN:.by:FNF:B ly:]:ENDPROC
  734DEFFN_Declare_Local_Variables_TemplateDIMyy%4:!yy%=0:P%=0:[OPTN%:.c DCD0:.Jy DCD0:.u DCD0:.gy DCD0:.Dy DCD0:DCD0:DCD0:.F:]:=0
  735DEFPROCby(F$,f%,g_%,j_%,RETURNuy%)PROCw_(F$,f%,g_%,j_%,uy%,"X"):ENDPROC
  736DEFPROCw_(F$,f%,g_%,j_%,RETURNuy%,H$)LOCALS%:S%=FNC(F$):IFS%THEN
  737PROCe_(S%,f%,g_%,j_%,uy%,H$)
  738ELSE!f%=S%
  739ENDIF:ENDPROC
  740DEFFNO(F$,f%)LOCALJ%:=FNUy(F$,f%,J%)
  741DEFFNUy(F$,f%,RETURNuy%)LOCALS%,K%:K%=FALSE:IF!f%<=0THEN
  742S%=FNC(F$):IFS%THEN
  743K%=FNY(S%,f%):IFK%=FALSETHEN
  744uy%=S%!u:PROCa(S%)
  745ENDIF
  746ELSEK%=TRUE
  747ENDIF
  748ELSEIFm%THEN
  749SYS&465c6,_%,f%
  750ENDIF
  751ENDIF:=K%
  752DEFPROCn_(S%,f%)S%=FNY(S%,f%):ENDPROC
  753DEFFNY(S%,f%)LOCALd%:IFm%THEN
  754SYS&665c3,_%,S%+F,f%TOd%;S%
  755ELSESYS&600c1,,S%+FTOd%;S%
  756ENDIF:!f%=d%:S%=FNP(S%):IFS%THEN
  757PROCR(d%):!f%=0
  758ENDIF:=S%
  759DEFPROCe_(S%,f%,g_%,j_%,RETURNuy%,H$)LOCALZ%,Q%:!f%=0:Q%=S%!Jy:S%!Jy+=1:S%=FNd(S%):IFS%THEN
  760Z%=S%+F:PROCF_(Z%,Q%,g_%):PROCS_(Z%+4,Q%,j_%):IFH$<>"X"THEN
  761IFZ%!56AND(1<<8)THEN
  762PROCl(Z%!72,H$,Z%!80)
  763ELSEPROCl(Z%+72,H$,12)
  764ENDIF
  765ENDIF:PROCn_(S%,f%):uy%=S%!u:PROCa(S%)
  766ENDIF:ENDPROC
  767DEFFNh_DEFAULTLOCALERROR:ONERRORLOCALRESTOREERROR:PROCZ("@.h.DEFAULT")
  768qu=16:wl=1<<30:IJ=1<<29:pu=0:el=1:Ha=2:Aa=3:Ja=4:Pu=5:Ua=6:BJ=7:di=8:lJ=9:La=10:xl=1<<0:sy=1<<1:_i=1<<2:=0
  769DEFFNjumpblock_DEFAULTLOCALERROR:ONERRORLOCALRESTOREERROR:PROCZ("@.h.DEFAULT")
  770[OPTN%ANDKy%:.ji DCDs_:.uJ DCDol:.`_ DCDT_:.O_ DCDVi:.Gu DCDYu:.UJ DCDiu:.t_ DCDEi:.MJ DCDlu:._y DCDJi:]:=0
  771DEFFNh_stdioLOCALERROR:ONERRORLOCALRESTOREERROR:PROCZ("@.h.stdio")
  772k_=0:Bi=17:Du=34:=0
  773DEFFNjumpblock_stdioLOCALERROR:ONERRORLOCALRESTOREERROR:PROCZ("@.h.stdio")
  774[OPTN%ANDKy%:.Vl DCDci:.K_ DCDfl:.cu DCDvu:.ri DCDJu:.C_ DCDzJ:.Yu%DCDTu%:.cu%DCDxu%:.eu%DCD_u%:.nl DCDGi:.Gl DCDLi:.rJ DCDwi:.ai DCDhi:.ku DCDYi:]:=0
  775DEFFNh_stdlibLOCALERROR:ONERRORLOCALRESTOREERROR:PROCZ("@.h.stdlib")
  776=0
  777DEFFNjumpblock_stdlibLOCALERROR:ONERRORLOCALRESTOREERROR:PROCZ("@.h.stdlib")
  778[OPTN%ANDKy%:.zy DCDgu:.iy DCDMl:.Ka DCDMi:.ky DCDNi:.PJ DCDEu:.L_ DCDDa:.Hl DCDNl:.Ou DCDza:.__ DCD`u:.P_ DCDqa:.S_ DCDyJ:.W_ DCDm_:.zu DCDV_:.uu DCDz_:.ll DCDBl:.cl DCDfJ:]:=0
  779DEFFNh_stringLOCALERROR:ONERRORLOCALRESTOREERROR:PROCZ("@.h.string")
  780P%=0:[OPTN%:.Qu DCB0:.x_ DCB0:.Si DCB0:.CJ DCB0:.au DCB0:.Ql DCB0:.al DCB0:]:=0
  781DEFFNjumpblock_stringLOCALERROR:ONERRORLOCALRESTOREERROR:PROCZ("@.h.string")
  782[OPTN%ANDKy%:.ZJ DCDTJ:.pJ DCDtl:.KJ DCDw_:.D_ DCDNa:.Pl DCDpi:.bi DCDOl:.Ta DCDSa:.p_ DCDWi:.Y_ DCDHi:.vi DCDMu:.ii DCDTu:.fi DCDAu:.oJ DCDsu:.Xu DCDXJ:.`y DCDNu:.cJ DCDOi:.ti DCDa_:.gJ DCDQJ:.mi DCDVu
  783.`i DCDy_:.wu DCDI_:._u DCDTi:.nu DCDWl:.Di DCDr_:.Sl DCDWJ:.Pi DCDb_:.kl DCDOJ:.ul DCDnJ:.Rl DCDNJ:.Fi DCDn_:.Fl DCDWu:.Yl DCDaa:.Il DCDg_:.kJ DCDmu:.du DCDe_:.Zu DCDd_:.Lu DCDbJ:.Hu DCDFJ:.v_ DCDFu:.rl DCDRa:.jJ DCDyl:.G_ DCDql:]:=0
  784DEFFNh_messageLOCALERROR:ONERRORLOCALRESTOREERROR:PROCZ("@.h.message")
  785=0
  786DEFFNjumpblock_messageLOCALERROR:ONERRORLOCALRESTOREERROR:PROCZ("@.h.message")
  787[OPTN%ANDKy%:.oy DCDq_:.A_ DCDl_:.xJ DCDju:.Ea DCDyu:.U_ DCDbu:]:=0
  788DEFFNh_wimpLOCALERROR:ONERRORLOCALRESTOREERROR:PROCZ("@.h.wimp")
  789Iu=12:eu=0:P%=0:[OPTN%:.Ly DCB0:.Al DCB0:.cy DCB0:.qy DCB0:.ni DCB0:.f_ DCB0:._a DCB0:.jy DCB0:.Iy DCB0:.mJ DCB0:.Z_ DCB0:.`J DCB0:.Oa DCB0:._l DCB0:.j_ DCB0:.si DCB0:.sJ DCB0:]:P%=0:[OPTN%:.Vy DCB0
  790.vl DCB0:.Ki DCB0:.vy DCB0:.Ru DCB0:.VJ DCB0:.LJ DCB0:.xi DCB0:.sa DCB0:.zl DCB0:.gl DCB0:.ru DCB0:]:P%=0:[OPTN%:.Zl DCB0:.Su DCB0:.Ba DCB0:.c_ DCB0:.N_ DCB0:]:=0
  791DEFFNjumpblock_wimpLOCALERROR:ONERRORLOCALRESTOREERROR:PROCZ("@.h.wimp")
  792[OPTN%ANDKy%:.Ya DCDJl:.iJ DCDml:.wJ DCDIa:.bl DCDXi:.By DCDtJ:._J DCD`l:.E_ DCDRJ:.sl DCDui:.ly DCDh_:.Pa DCDX_:.Ca DCDTl:.Za DCDGa:.Uu DCDEl:.Fa DCDUl:.Ci DCDF_:.Wa DCDIi:.Ma DCDQa:.ki DCDVa:]:=0
  793DEFFN_ModeInfo_version=6
  794DEFFN_hard_initialise_ModeInfo=0
  795DEFPROCA_(o%)SYS53,o%,1TO,,ZJ%:ZJ%+=1:SYS53,o%,2TO,,t_%:t_%+=1:SYS53,o%,3TO,,nJ%:nJ%+=1:SYS53,o%,4TO,,C_%:SYS53,o%,5TO,,Wy%:SYS53,o%,6TO,,Wu%:SYS53,o%,7TO,,Hu%:SYS53,o%,9TO,,JJ%:TJ%=1<<JJ%:SYS53,o%,11TO,,`y%:`y%+=1:SYS53,o%,12TO,,Cy%:Cy%+=1:Bu%=`y%DIVZJ%
  796Cu%=Cy%DIVt_%:X_%=(`y%<<C_%)-1:D_%=(Cy%<<Wy%)-1:qu%=32DIVTJ%:ENDPROC
  797DEFFN_Wimp_version=50
  798DEFFN_hard_initialise_WimpLOCALd%:IFFNL<12THENERROR1,"EIW1"
  799SYS&400f2,0TOd%:IFd%=0THENERROR1,"Application needs to be run from the desktop"
  800PROCA("<BasicV$Lib>.Heap",8):PROCA("<BasicV$Lib>.IntMath",5):PROCA("<BasicV$Lib>.Message",3):PROCA("<BasicV$Lib>.Template",7):PROCA("<BasicV$Lib>.NullReason",1):cy%=FALSE:qy%=3*1024
  801PROCB(ty%,qy%):qy%+=ty%:Gy%=ty%:PROCB(W%,512):m$="":i$="":au%=0:B$="Application":X$="0.00 (01-Jan-1900)":_%=-1:R_%=2400:M_%=2401:Pu%=16*1024:G$="":ku%=TRUE:Su%=0:=0
  802DEFFNK(d$)LOCALa%,C%,Z$,c%,b%,IJ%:SYS&600f2,2TOa%;C%:IF(C%AND1)=0THEN
  803SYS53,-1,4TO,,c%:SYS53,-1,5TO,,b%:SYS53,-1,10TO,,IJ%:IFc%<2ANDb%<2ANDIJ%=0THEN
  804Z$="23"
  805ELSEZ$=FNS(a%)
  806ENDIF:a%=OPENIN(d$+Z$):IFa%THEN
  807CLOSE#a%:d$+=Z$
  808ENDIF
  809ENDIF:=d$
  810DEFFNP(Xy%)=(Xy%AND1)<>0
  811DEFPROCi(q%,T%)IFT%=-1THEN
  812SYS&600d2,q%,-1,0,0,1<<25,-1
  813ELSESYS&600d2,q%,T%,,,-1,LEN(FNZy(q%,T%)):SYS&dcb8d,8,q%
  814ENDIF:ENDPROC
  815DEFPROCoy(q%,du%)SYS&dcb8d,Vy,q%,du%:ENDPROC
  816DEFPROCU(q%)IFq%>0THENSYS&dcb8d,vy,q%
  817ENDPROC
  818DEFPROCyy(q%)SYS&dcb8d,Vy,q%,-1:ENDPROC
  819DEFPROCey(q%,T%,gJ%,ju%,iu%)LOCALF%:F%=FNZ(16):F%!0=q%:F%!4=T%:F%!8=ju%<<gJ%:F%!12=iu%<<gJ%:SYS&400cd,,F%:PROCC(F%,16):ENDPROC
  820DEFFNW(q%,T%)SYS&dcb8c,Iy,q%,T%TOT%:=T%
  821DEFPROCI(q%,T%,Ku%)SYS&dcb8c,jy,q%,T%,Ku%:ENDPROC
  822DEFPROCX(YJ%,A$)LOCALF%:F%=FNZ(300):F%!0=YJ%:$(F%+4)=A$+CHR$(0):PROCR(F%):PROCC(F%,300):ENDPROC
  823DEFPROCG(A$)ERRORR_%,A$:ENDPROC
  824DEFPROCD(YJ%)LOCALF%:F%=FNZ(300):F%!0=M_%:PROCp("LE"+STR$(YJ%),F%+4):PROCR(F%):PROCC(F%,300):ENDPROC
  825DEFPROCR(Iu%)SYS&400df,Iu%,1,B$:ENDPROC
  826DEFFNJ(Xy%,A$)LOCALF%,K%:PROCf:F%=FNZ(260):!F%=0:$(F%+4)=A$+CHR$(0):SYS&400df,F%,(16ORXy%),FND(0)TO,K%:PROCC(F%,260):=K%
  827DEFPROCi_LOCALF%:F%=FNZ(256):F%?0=1:F%?1=0:F%?2=0:F%?3=0:F%?4=0:F%?5=X_%MOD256:F%?6=X_%DIV256:F%?7=D_%MOD256:F%?8=D_%DIV256:SYS7,21,F%:!F%=d_%:SYS&400c6,,F%:PROCC(F%,256):ENDPROC
  828DEFPROCuy(c%,b%,Y%,T%)PROCi_:c%=FNM("FN_Stop_Action_"+k$+"("+STR$(T%=0)+")"):ENDPROC
  829DEFFNb(L$)WHILEINSTR(L$,"."):L$=MID$(L$,INSTR(L$,".")+1):ENDWHILE:=L$
  830DEFPROCE(q%,T%,q$)SYS&dcb8c,cy,q%,T%,q$:ENDPROC
  831DEFPROCN(q%,J%,R%)SYS&dcb8c,qy,q%,J%,R%:ENDPROC
  832DEFFNZy(q%,J%)SYS&dcb8c,Ly,q%,J%TOq%:=FNS(q%)
  833DEFFNi(q%,J%)SYS&dcb8c,Ly,q%,J%TOq%:=q%
  834DEFFNz(K$)LOCALd%,I%,Q%:SYS&20008,17,K$TOd%,,,,I%;Q%:IFFNP(Q%)THEN
  835PROCM("Reason",FNb(K$)):PROCn(d%):PROCG(FND(4))
  836ENDIF:IFd%<>1THEN
  837I%=-1
  838ENDIF:=I%
  839DEFFNZ(x%)LOCALK%:IF(Gy%+x%)<qy%THEN
  840K%=Gy%:Gy%+=x%
  841ELSEPROCG("Wimp Stack full")
  842ENDIF:=K%
  843DEFPROCwy:Gy%=ty%:ENDPROC
  844DEFPROCC(N_%,x%)IF(N_%<ty%)OR(N_%>qy%)THEN
  845PROCG("Release_Stack: Invalid stack chunk")
  846ELSEIF(x%<0)OR((N_%+x%)>qy%)THEN
  847PROCG("Release_Stack: Invalid chunk size")
  848ELSEGy%-=x%:IFGy%<>N_%THEN
  849PROCG("Release_Stack: Bad pop")
  850ENDIF
  851ENDIF
  852ENDIF:ENDPROC
  853DEFPROCRy(v$,y%,cJ%,m_%,PJ%,FJ%)PROCO_(v$,v$,y%,cJ%,m_%,PJ%,FJ%):ENDPROC
  854DEFPROCO_(v$,H$,y%,cJ%,m_%,PJ%,FJ%)X$=STR$(y%)+"."+RIGHT$("0"+STR$(cJ%),2):X$+=" ("+RIGHT$("0"+STR$(m_%),2)+"-":X$+=MID$("CBJanFebMarAprMayJunJulAugSepOctNovDec",PJ%*3,3):X$+="-"+RIGHT$("19"+STR$(FJ%),4)+")":B$=v$:PROCM("App",B$):PROCty(Ry%,B$+"$Dir"):IFRy%=0THENERROR1,"EIW5"
  855IFG$<>""THEN
  856m_%=FALSE:Z_%=W%:y%=INSTR(G$,","):WHILEy%<>0:Z_%!0=FNM(LEFT$(G$,y%-1)):Z_%+=4:G$=MID$(G$,y%+1):y%=INSTR(G$,","):ENDWHILE:Z_%!0=FNM(G$):Z_%!4=0:SYS&400c0,300,&4b534154,H$,W%TOG_%,_%
  857ELSESYS&400c0,200,&4b534154,H$TOG_%,_%
  858ENDIF:ONERRORPROCqy
  859SYS&606c0:IFG_%<200THEN
  860ERRORR_%,FND(5)
  861ENDIF:cy%=TRUE:PROCD_:PROCVy:cy%=-2:PROCI_:PROCTy:IFE_%=0THEN
  862PROCE(s%,7,X$)
  863ENDIF:nu%=-1:uu%=-1:Du%=-1:Ju%=-1:mu%=FALSE:tu%=-1:Fu%=-1:u$="":l$="":PROCZy:SYS&606c1:ENDPROC
  864DEFPROCqySYS&606c1:IFYy%THEN
  865PROCX(M_%,REPORT$+" ["+STR$ERL+"]")
  866ELSEPROCX(M_%,REPORT$)
  867ENDIF:PROCF:END:ENDPROC
  868DEFPROCty(RETURNH_%,t$)LOCALx%,r%:SYS&20023,t$,0,-1,0,1TO,,x%,,r%:IFx%=0THEN
  869H_%=0
  870ELSEIFr%=1THENERROR1,"EIW4"
  871x%=-x%:PROCB(H_%,x%):SYS35,t$,H_%,x%,0,1:H_%?(x%-1)=0
  872ENDIF:ENDPROC
  873DEFFN_FileType_version=10
  874DEFFN_hard_initialise_FileType:YJ=-1:wy=8192:Ty=4096:Ku=4095:EJ=4093:R_=4091:j=4089:hl=4086:Xl=4076:Ay=4075:ty=3478:hJ=3388:pl=3269:Cl=3254:il=3253:ei=2815:xu=2779:Qi=1793:Ui=1296:=0
  875DEFFN_file_io_version=10
  876DEFFN_hard_initialise_file_ioPROCA("<BasicV$Lib>.CheckVars",2):PROCA("<BasicV$Lib>.string",6):AJ%=256+20:DIMn%AJ%:DIMAu%9:Au%?8=13:=0
  877DEFFNQy(K$)LOCALx%,r%:SYS8,5,K$TOr%,,,,x%:IFr%=0THENERROR1,"EIF1 "+K$
  878=x%
  879DEFPROCOy(K$,Qu%)SYS8,255,K$,Qu%:ENDPROC
  880DEFFNR(P$,C$,RETURNz%)LOCALaJ%:SYS&2000c,10,P$,n%,1,z%,AJ%,C$TO,,,aJ%,z%:=aJ%
  881DEFFNy(P$,C$)LOCALr%,v%,Hy%,I%,_J%:SYS&20008,5,P$+"."+C$TOr%,,v%,Hy%,I%,_J%:n%!0=v%:n%!4=Hy%:n%!8=I%:n%!12=_J%:n%!16=r%:PROCV_((P$+"."+C$),(n%+20)):=(r%=0)
  882DEFFNMy=!n%
  883DEFFNEy=n%!8
  884DEFFNB=FNG(n%+20)
  885DEFFNPy=((n%!16)=2)
  886DEFFNcLOCALK%:K%=FNMy:IF(K%AND-1048576)=-1048576THEN
  887K%=(K%AND&fff00)>>8
  888ELSEK%=-1
  889ENDIF:=K%
  890DEFFN_string_version=7
  891DEFFN_hard_initialise_stringPROCA("<BasicV$Lib>.ctype",1):=0
  892DEFFNt(Z$,s$)LOCALQ%,a%,Y%:a%=LEN(Z$):Y%=LEN(s$):Q%=0:WHILEa%>0ANDY%>0ANDQ%=0:Q%=SGN(FNT(ASC(Z$))-FNT(ASC(s$))):IFQ%=0THEN
  893a%-=1:Y%-=1:Z$=RIGHT$(Z$,a%):s$=RIGHT$(s$,Y%)
  894ENDIF:ENDWHILE:IFQ%=0THEN
  895Q%=SGN(a%-Y%)
  896ENDIF:=Q%
  897DEFPROCV_(q$,D%)$D%=q$:D%?LEN(q$)=0:ENDPROC
  898DEFFN_Misc_version=46
  899DEFFN_hard_initialise_MiscLOCALJ%,S_%,R%:IFFNL<12THENERROR1,"EIA1"
  900p$="":Zu%=100:DIMlu%16:=0
  901DEFFNI(x$,Oy%,gu%)LOCALfy%,p_%,ky%,b_%,y_%:t%=FNGy(x$):IFN%AND2=0THEN
  902[OPTN%:DCD0:DCD0:]
  903ELSEfy%=gu%-P%-8:IFABS(fy%)>65535THENERROR1,"EIA2"
  904ky%=ABS(fy%)AND255:p_%=ABS(fy%)AND65280:IFfy%>=0THEN
  905b_%=t%OR(&28f0000+(Oy%<<12)+ky%):y_%=t%OR(&2800c00+(Oy%<<16)+(Oy%<<12)+(p_%>>8))
  906ELSEb_%=t%OR(&24f0000+(Oy%<<12)+ky%):y_%=t%OR(&2400c00+(Oy%<<16)+(Oy%<<12)+(p_%>>8))
  907ENDIF:[OPTN%:DCDb_%:DCDy_%:]
  908ENDIF:=0
  909DEFPROCN_(L$)LOCALVJ%,eJ%,zJ%:VJ%=P%:eJ%=O%:zJ%=N%:IF(N%AND4)=0THEN
  910O%=P%
  911ENDIF:P%=0:N%=N%OR6:P%=FNM("FN_Declare_Local_Variables_"+L$):P%=VJ%:O%=eJ%:N%=zJ%:ENDPROC
  912DEFFNGy(x$)LOCALt%:CASEx$OF
  913WHEN"","  ":t%=14
  914WHEN"lo":t%=3
  915WHEN"hs":t%=2
  916OTHERWISEt%=INSTR("eqnecsccmiplvsvchilsgeltgtlealnv",x$):IF(t%MOD2)=0THENERROR1,"EIA13"
  917t%=(t%-1)>>1
  918ENDCASE:=t%<<28
  919DEFFNg(a%)IF(N%AND4)THENa%+=g%
  920=a%
  921DEFPROCWLOCALAy%:IFN%AND2THENAy%=50ELSEAy%=0
  922SYS&606c4,((FNg(P%)-g%)/(L%-g%)*50)+Ay%:ENDPROC
  923DEFFN_Heap_version=9
  924DEFFN_hard_initialise_Heap=0
  925DEFFN_(RETURNdy%,A%)dy%=USR(uJ%):IF!Py%THENdy%=0
  926=!Py%
  927DEFPROCB(RETURNdy%,x%)IFFN_(dy%,x%)THEN
  928dy%=!Py%:ERROR!dy%,FNG(dy%+4)
  929ENDIF:ENDPROC
  930DEFPROCS(RETURNA%)IFFNn(A%)THEN
  931A%=!Py%:ERROR!A%,FNG(A%+4)
  932ENDIF:ENDPROC
  933DEFFNn(RETURNA%)CALLRJ%:A%=0:=!Py%
  934DEFPROCM_[OPTN%:FNN(uJ%,zy):FNN(RJ%,iy):FNN(su%,ky):ALIGN:.Py%DCD0:]:ENDPROC
  935DEFFNN(RETURNXu%,fu%)[OPTN%:ALIGN:.Xu%:FNF:STMFD(A)!,{Z}:MOV Z,#0:STR Z,Py%:BL fu%:STRvs0,Py%:LDMFD(A)!,{pc}^:]:=0
  936DEFFN_Message_version=6
  937DEFFN_hard_initialise_Message:zi=31:SYS5,"RMEnsure CAssembler 0.08 RMLoad System:Modules.CAssembler":DIMyy 256:=0
  938DEFFNf(b$,Vu%,RETURNU_%)LOCALA%:SYS&fcb83,b$+".Messages.",Vu%,0TOA%,U_%:IFU_%=0THENCALLPy
  939=A%
  940DEFFN`(G%,T$,v_%)SYS&fcb85,T$,v_%,G%TOv_%;G%:=v_%AND((G%AND2)=2)
  941DEFFNu(G%,T$,w$)LOCALy%:SYS&fcb85,T$,w$,G%TOy%;G%:=y%AND((G%AND2)=2)
  942DEFFNo(G%)LOCALy%:SYS&fcb86,G%TOy%;G%:=y%AND((G%AND2)=2)
  943DEFFNX(G%,T$)LOCALy%:SYS&fcb84,T$,yy,256,G%,0TOy%,G%:?G%=13:=$yy
  944DEFPROCpy(G%,T$,Nu%)G%=FN`(G%,T$,Nu%):ENDPROC
  945DEFPROCmy(G%,T$,w$)G%=FNu(G%,T$,w$):ENDPROC
  946DEFPROCa_(G%)G%=FNo(G%):ENDPROC
  947DEFFNA(R%)=FNX(l%,"E"+STR$(R%))
  948DEFFNE(z$)=FNX(l%,z$)
  949DEFPROCw(z$,R%)PROCpy(l%,z$,R%):ENDPROC
  950DEFPROCM(z$,o$)PROCmy(l%,z$,o$):ENDPROC
  951DEFPROCp(z$,B%)SYS&dcb84,z$,B%,256,l%,0:ENDPROC
  952DEFPROCE_PROCa_(l%):ENDPROC
  953DEFPROCn(Y%)IFY%<=0THEN
  954PROCM("Sys",""):PROCM("SysN","")
  955ELSEPROCM("Sys",FNS(Y%+4)):PROCM("SysN",STR$~(!Y%))
  956ENDIF:ENDPROC
  957DEFFND(R%)=FNX(l%,"LE"+STR$(R%))
  958DEFPROCKy[OPTN%:ALIGN:.Py:FNF:B oy:]:IFN%AND4THENPy+=g%
  959ENDPROC
  960DEFFN_IntMath_version=6
  961DEFFN_hard_initialise_IntMath=0
  962DEFFN_NullReason_version=5
  963DEFFN_hard_initialise_NullReason=0
  964DEFPROCTyDIMp%4:!p%=0:sy%=0:L_%=FALSE:_y%=6193:ENDPROC
  965DEFPROCIy(V$,py%)PROCm_(V$,py%,TRUE):ENDPROC
  966DEFPROCm_(V$,py%,f_%)LOCALR%:PROCB(R%,12+LEN(V$)+1):$(R%+12)=V$:R%!8=py%:R%!4=f_%:!R%=!p%:!p%=R%:PROCMy:ENDPROC
  967DEFPROCSy(V$,py%)PROCky(V$,py%,TRUE):ENDPROC
  968DEFPROCky(V$,py%,f_%)LOCALR%,M%:IFV$=""THEN
  969PROCG("EIN3"):WHILE!p%:PROCc(p%):ENDWHILE
  970ELSEM%=p%:WHILE!M%:R%=!M%:IF($(R%+12)=V$)AND(R%!4=f_%)AND(((py%=0)ANDf_%)OR(R%!8=py%))THEN
  971PROCc(M%)
  972ELSEM%=R%
  973ENDIF:ENDWHILE
  974ENDIF:ENDPROC
  975DEFPROCc(M%)LOCALR%:IFM%=0THENPROCG("EIN6")
  976R%=!M%:IFR%=0THENPROCG("EIN5")
  977IFR%=sy%THEN
  978sy%=!R%:L_%=TRUE
  979ENDIF:!M%=!R%:PROCS(R%):PROCMy:ENDPROC
  980DEFPROCMyIF!p%THEN
  981_y%=_y%AND(NOT1)
  982ELSE_y%=_y%OR1
  983ENDIF:ENDPROC
  984DEFPROCh_LOCALh%,M%,O_%,A%:h%=!p%:WHILEh%:sy%=h%:L_%=FALSE:IFh%!4THEN
  985O_%=FNM("FN_Null_Reason_"+$(h%+12)+"("+STR$(h%!8)+")")
  986ELSEO_%=FNM("FN_Null_Reason_"+$(h%+12))
  987ENDIF:IFL_%THEN
  988h%=sy%
  989ELSEsy%=0:A%=!h%:IFO_%THEN
  990M%=p%:WHILE!M%<>h%:M%=!M%:IFM%=0THENPROCG("EIN2")
  991ENDWHILE:PROCc(M%)
  992ENDIF:h%=A%
  993ENDIF:ENDWHILE:ENDPROC
  994DEFFN_Null_Reason_PROCG("EIN1"):=0
  995DEFFN_CheckVars_version=3
  996DEFFN_hard_initialise_CheckVars=0
  997DEFFN_ctype_version=1
  998DEFFN_hard_initialise_ctype=0
  999DEFFNFy(Q%)=Q%-ASC("A")+ASC("a")
 1000DEFFNAy(Q%)=Q%>=ASC("A")ANDQ%<=ASC("Z")
 1001DEFFNT(Q%)LOCALK%:IFFNAy(Q%)THEN
 1002K%=FNFy(Q%)
 1003ELSEK%=Q%
 1004ENDIF:=K%
 1278:
 1279:
 1280:
 1281DEFPROCB_PROCAy:ENDPROC
 1282DEFPROCY_BPUT#W%!20,"Run "+FNS(Ry%):ENDPROC
 1283:
 1284:
�>!RunImage
0�Produced by BasCompress v1.31 (18 Jan 1993)
$n$="uncfsX":�z_("UnInstall",�):�
V��L_(Z%)Z%?35=11:�s(Z%,1,6,55):�s(Z%,3,6,55):�z(Z%,N):�z(Z%,Q):�z(Z%,U):�z(Z%,W):�
/��z(Z%,J%)�s(Z%,J%,1,48):�s(Z%,J%+1,1,48):�
L��s(Z%,J%,Ay%,Q%)J%=Z%+88+(J%*32):J%=J%!24:J%?Ay%=�("B"):J%?(Ay%+1)=Q%:�
��Ey!s=�:!z=�:!_=�:!O=�:�
1ݤv(E%,E$,J%)�U%:�H(E$):U%=�:笤y(E$,Z$(J%))�
	�Py(E%):U%=(�c=E%(J%))

	�:=U%
u��r(E%,E$,C$,Q$)�D%,I%,G%,v%,Hy%,Jy%,U$,Q%:�H(E$):E$+="."+C$:�V(E%,E$):U$=E$:ș8,5,U$�,,v%,Hy%,I%,Jy%:�(Jy%�1)=0�
�t(E%,8,U$)

��U(D%,I%+1)�
�Y(E%,�)
��:��:�S(D%):�T
�:��:�dy(E%,D%,U$):�
!�Oy(U$,D%):��:笤j(D%,I%,Q$)�
�Y(E%,�)
��:��:�g_(E%,D%,U$):�
7ș13,139,E$�G%:�:��:�Ly(G%,U$,v%,Hy%,D%,I%,Jy%)
Hș12,2,G%,D%+�(Q$),I%-�(Q$):��:�#G%:ș8,1,E$,v%,Hy%,,Jy%:��:�Y(E%,�)
�:��:�S(D%)
�
�:�
ݤj(k_%,I%,�Q$)�U%:�Q$=""�
U%=�
J�U%=I%>=�(Q$):J%=1:ȕJ%<=�(Q$)�U%:U%=(�(�Q$,J%,1))=k_%?(J%-1)):J%+=1:�
	�:=U%
X��I_�F%,J%,S_%:S_%=0:�J%=0��(A$(),1):ș46,280,e%,A$(J%):�S_%<�(A$(J%))�S_%=�(A$(J%))
��J%:�h_%S_%+2:`=0:F%=�Z(512):F%!0=-1:F%!4=0:F%!8=0:F%!12=68:F%!16=68:F%!20=12674:F%!24=h_%:$h_%=A$(`)+�(0):F%!28=e%:F%!32=S_%+1:ș&400c2,,F%�K_%:�C(F%,512):�
>��U_�O$,_$,Y$,D$,j$:�Uy:�`%,Y_%,dJ%,fJ%,V_%:�:��:�k_:�
 �O$="CFSUtil":_$="<Cfsmod$Dir>.":Y$="RMEnsure CFSUtil 1.00 RMLoad <Obey$Dir>."+O$+�(10):D$=_$+"!Run":j$="UnInstall UnCFS"+�(0):Uy=4075:�vy(D$,Uy,`%,Y_%,dJ%,fJ%,V_%):�H_:�h(_$+O$)�
!&ș5,"%Remove "+_$+O$:�J(2,�A(14))
")�:ș&20005,"%RMKill CFSUtil":�S(`%):�
#��k_�M("Sys",�Q):�`%��S(`%)
$�J(2,�A(1))
%�
&^��H_�Q_%,J%:Q_%=Y_%>=�(Y$):J%=1:ȕJ%<=�(Y$)�Q_%:Q_%=(�(�Y$,J%,1))=`%?(J%-1)):J%+=1:�:�Q_%�
'#ș8,4,D$,,,,V_%�34:�:��:�Q_
(3ș8,10,D$,Uy,,`%+J%-1,`%+Y_%:ș8,4,D$,,,,V_%:��
)�:�
*e��vy(M$,Ou%,�k_%,�I%,�v%,�Hy%,�Jy%)�r%:ș8,5,M$�r%,,v%,Hy%,I%,Jy%:�M("Reason",M$):�r%<>1��1,�A(9)
+�(Jy%�1)=0��1,�A(10)
,�(Jy%�8)��1,�A(11)
-�Sy(v%)<>Ou%��1,�A(12)
.�I%=0��1,�A(13)
/�B(k_%,I%):ș8,255,M$,k_%:�
0"ݤh(M$)�r%:ș8,5,M$�r%:=(r%=1)
1A��Q_ș&20008,0,D$,dJ%,fJ%,`%,`%+Y_%:ș&20008,4,D$,,,,V_%:�T:�
2+ݤSy(ky%)�r%:�(ky%�-1048576)<>-1048576�
3	r%=-1
4�r%=(ky%>>8)�4095
5	�:=r%
6��R_�Uy%4:!Uy%=0:�
7��gy(E%,E$)�
8��AyȎW%!16�
9
�1282:�W_
:�&400c0:�fy
;
�3:�r_
<�&400c1:�Zy
=
�8:�Xy
>�&400cc:�zy
?�10:�Y_
@	�0:�F
A�:�
B��__ș&400c5,,W%:�
C��ryș&400c6,,W%:�
D��c_�!W%=X%�
E�jy(W%!4,W%!24)
F�ș&400dc,W%!24
G�:�
H2��Yy�QJ%,HJ%:HJ%=�:�ș&400c7,_y%,W%�QJ%:ȎQJ%�
I
�0:�h_
J
�2:�__
K
�3:�ry
L
�6:�t_
M
�8:�c_
N
�9:�s_
O�17:�Ay
P�18:�B_
Q�:��(HJ%):�
R��Hy�a%,SJ%,Z$:��:�+0:�E_%�
S(a%=!(�C("ProgInfo")+F+88+(Qy<<5)+20)
T�a%=�i(s%,Qy)
UL�:�Z$:SJ%=�(Z$):Z$=�Z$,2):ȕZ$<>"":?a%=�(Z$)�SJ%:Z$=�Z$,2):a%+=1:�:?a%=0
V8�"�����������",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
W�
X��z_(b$,Ny%)��e
Y{�Dy(20,12):Vy%=-2:Yy%=�:By%=�:By%=�:Yy%=�:Vy%=-3:�A("<BasicV$Lib>.CAsm",1):�A("<BasicV$Lib>.Template",21):a_%=Yy%:m%=+1
Z�EJ%=�:iy%=0:oy%=0:�T_("stdio, stdlib, string, message, wimp"):�hy(2000,�,�):�A("<BasicV$Lib>.ModeInfo",1):�A("<BasicV$Lib>.Wimp",28)
[~�A("<BasicV$Lib>.FileType",2):�A("<BasicV$Lib>.file_io",9):�A("<BasicV$Lib>.string",6):l%=�f("<UnCFS$Dir>",-1,U_%):�U_%>0�
\8�!l%,"UnCFS can't load its' message file: "+�G(l%+4)
]�:�Ny%�Ny%=2�Ny%=1
^��w("Patching",Ny%):�w("patching",Ny%):�w("patched",Ny%):�w("patch",Ny%):h$="ForceCFS"+�(10):NJ%=0:XJ%=1:wJ%=2:pJ%=0:__%=0:n_%=1:r_%=2:o_%=3:c_%=4:WJ%=6:GJ%=7:CJ%=8:oJ%=9:Xy=60-1:t=2:e=4:N=5:Q=7:U=9:W=11:R=13:B=14
_�my=17:I=18:My%=0:�Z$(5):Z$()="!Boot","!Run","!Sprites22","!Sprites23","!Sprites33","!Sprites32":�E%(�(Z$(),1)):E%()=Ay,Ay,j,j,j,j
`��A$(1):A$()="!uncfs","busy":Gu%=�:E_%=�:u%=�:G$="&502,&400c0,3,&400c1,8,&400cc,10":�Ry(b$,1,20,23,7,1994):By%=Yy%:�u_:�U_:��e
a�wy:��Yy:��:�:�
b���v�ny,b:g=0<<2:q=1<<2:J=2<<2:E=3<<2:Y=4<<2:T=5<<2:w=6<<2:K=7<<2:S=8<<2:h=9<<2:X=10<<2:L=12<<2:Gy=13<<2:My=14<<2:Fy=15<<2:Hy=16<<2:M=17<<2:f=18<<2:i=19<<2:Ny=0<<2:Sy=1<<2:p=2<<2:D=3<<2:H=0:V=1:P=2:a=3:d=4:C=5:[OPTN%:ALIGN
c�.ny EQUS"[0,w>,>,>":DCB0:.Oy EQUS"[100,<t>":DCB0:ALIGN:.b DCD0:.s DCD0:.z DCD0:._ DCD0:.O DCD0:ALIGN:.Ry:�F:STMFD(A)!,{4-9,Z}:MOV1,#0:ADR0,ny:BL By:STRvc0,b
d�ADRvc0,b:LDMFD(A)!,{4-9,pc}:.hy:�F:STMFD(A)!,{4-9,Z}:LDR0,[0,#M]:STMFD(A)!,{0}:MOV1,#0:ADR0,Oy:BL By:ADD A,A,#1<<2:STRvc0,b:ADRvc0,b:LDMFD(A)!,{4-9,pc}:]:�f_:�
e	��Jy�
f`��q_:gy%=-12314:�q("FConvert",+1,"StatusW"):�q("Choices",+1,"ChoicesW"):X%=0:bu%=0:�R_:�Hy:�
g}ݤStatusW(Z%)�L_(Z%):hJ%=Z%!16:yJ%=Z%!20:vJ%=Z%!8-Z%!0:`J%=Z%!12-Z%!4:s_%=Z%!48-Z%!40:z_%=Z%!52-Z%!44:�P(Z%,N,�E("None"))
h��P(Z%,N+1,�E("FScan0")):�P(Z%,Q,�E("None")):�P(Z%,Q+1,�E("FConv0")):�P(Z%,U,�E("None")):�P(Z%,U+1,�E("AScan0")):�P(Z%,W,�E("None"))
i��P(Z%,W+1,�E("AConv0")):�P(Z%,e,""):�P(Z%,t,""):�P(Z%,R,�E("Abrt")):�P(Z%,e-1,�E("Patching")):�x(Z%!72,��E("Title"),Z%!80-1)):=0
j6ݤChoicesW(Z%)�x(Z%!72,��E("Choices"),Z%!80-1)):=0
k:��P(Z%,J%,q$)J%=Z%+88+(J%*32):�x(J%!20,�q$,J%!28-1)):�
l%��P_(c%,b%,Y%,T%)c%=�J(1,�A(2)):�
mݤe(Z%,�E%)�F_%:ȎZ%�
n�-2
o�s%
p	�!Uy%
q�X%
r7E%=My%:F_%=�:ȕE%��F_%:F_%=(Z%=E%!E):�F_%�E%=E%!q
s�:�F_%�
t
Z%=gy%
u�
v	�:=Z%
w<��W_�A$,q%,T%,A%,J%,D%,E%:A$="":T%=W%!36:Ȏ�e(W%!32,E%)�
x�-2:�T%=K_%�
yA$="IconBar"
z�
{�s%:A$="ProgInfo"
|�!Uy%:A$="ShareWare"
}�X%:A$="Choices":�T%>=0�
~A$+=","+�(T%)
�
��gy%:A$="Status":�T%�
�A$+=","+�(T%)
�
�:ȎE%!S�
��P,H,V:A$+=",P"
��C:A$+=",S"
��a:A$+=",C"
��d:A$+=",D"
��
��(G_%>218)�(W%!36<>-1)�
�
A$=�Cy
��
��:�A$<>""�
��p("H"+A$,W%+20):�W%?20�
�NW%!16=1283:W%!12=W%!8:A%=W%+20:ȕ?A%:A%+=1:�:�A%>=(W%+256)�A%=W%+255:?A%=0
�)W%!0=(A%-W%+4)�-4:ș&400e7,17,W%,W%!4
��
��:�
�8ݤCy�A$,Z%:Z%=W%+40:ș&400f4,1,Z%,W%!32,W%!36:ȎZy%�
��xy%:A$="I"
��ly%:A$="D"
��:�A$<>""�
�7A$="M"+A$+�(!Z%):ȕZ%!4<>-1:Z%+=4:A$+="_,"+�(!Z%):�
�	�:=A$
�!��Zy�A_(-1):ș&465c2,_%:�_y:�
�/��F�::��1,"Error in error handler: "+�$
��Qy:�E_:�m:ș&400dd:�:�
���y_�w�
��F
��:�
�Bݤw�ey%,E%:ey%=�:E%=My%:ȕE%�ey%:ey%=(E%!S=d):E%=E%!q:�:�ey%�
�ey%=(�J(3,�A(5))=1)
�
�:=ey%
���Xy�w�
��F
�,�W%!12=W%!8:Ru%=W%!4:ș&400e7,19,W%,W%!4
��:�
�X��t_�c%,b%,Y%,Z%,T%,S_%,D%,E%:c%=W%!0:b%=W%!4:Y%=W%!8:Z%=�e(W%!12,E%):T%=W%!16:ȎY%�
��2:ȎZ%�
�:�-2:�Ny:b%=96+(44*UJ%)+(24*kJ%):ș&400d4,,Iy%,c%-64,b%
�
�!Uy%:�By
�&�gy%:�k(E%):ș&400d4,,Iy%,c%-64,b%
��
��1*16,4*16:ȎZ%�
��s%:�Gy(c%,b%,Y%,T%)
��
�
ȎZ%�
��-2:�P_(c%,b%,Y%,T%)
��d_%:�uy(c%,b%,Y%,T%)
��s%:�Gy(c%,b%,Y%,T%)
�
�!Uy%:�By
��gy%:�C_(E%,T%,Y%)
��X%:�cy(Y%,T%)
��
��:�
�(��Byș&465c4,_%,Uy%:�S(Uu%):!Uy%=0:�
�.��Vy:Zy%=�:xy%=&1040a31+0:ly%=&1040a31+1:�
�.��Ny�A%:UJ%=3:kJ%=0:�iy%�ș&465c8,_%,iy%,�
�6A%=�(Ry):Iy%=!A%:iy%=Iy%:ș&465c7,_%,iy%:Zy%=xy%:�
���k(E%)�A%:�E%�
�
i_%=E%
��:�oy%�ș&465c8,_%,oy%,�
�=A%=i_%:A%=�(hy):Iy%=!A%:oy%=Iy%:ș&465c7,_%,oy%:Zy%=ly%:�
�5��fy�c%,b%,A_%:c%=W%!24:b%=W%!28:A_%=W%!32:ȎZy%�
��xy%:ȎA_%�
��NJ%:�u:�s%>0�
�@�E(s%,0,�E("App")):�E(s%,1,�E("Purpose")):ș&400e8,,s%,c%,b%
��
��
��:�
�k��s_�A_%,F%,KJ%,OJ%,iJ%,A%:F%=�Z(512):ș&400cf,,F%:KJ%=F%!0:OJ%=F%!4:iJ%=F%!8:�C(F%,512):A_%=!W%:ȎZy%�
��xy%:ȎA_%�
��XJ%:�ly
��wJ%:�y_
��
��ly%:ȎA_%�
��pJ%:�d(i_%)
��
�
�:�iJ%=1�
�
ȎZy%�
��xy%:�Ny
��ly%:�k(0)
��:ș&400d4,,Iy%,KJ%,OJ%
���f
��:�
���fș&400d4,,-1:Zy%=�:�
���T��,�Q:�F:�
�ݤQ�e$:�Yy%�
�e$=�$+" ["+�(�)+"]"
�
�e$=�$
�	�:=e$
�0��u_�G%:�Ey:G%=�(�S(Ry%)+".Choices"):�G%<>0�
��:��:�#G%:�
�+�#G%,!s:�#G%,!z:�#G%,!_:�#G%,!O:��:�#G%
��:�
�4��Fy�G%:G%=�(�S(Ry%)+".Choices"):�:��:�#G%:�
�-�#G%,!s:�#G%,!z:�#G%,!_:�#G%,!O:��:�#G%:�
�
��Cy�Ey:�
�"��r_�((W%!20=-2)�(W%!24=K_%))�
�ȎW%!40�
�>�wy:�`(�S(W%+44),�):W%!12=W%!8:W%!16=4:ș&400e7,17,W%,W%!4
�>�Ty:�`(�S(W%+44),�):W%!12=W%!8:W%!16=4:ș&400e7,17,W%,W%!4
��J(1,�A(3))
��
��:�
�,��`(E$,q_%)�E%:�H(E$):�U(E%,i+�(E$)+1)�
�Q�$(E%+i)=E$:E%!J=0:E%!Gy=!s:E%!M=!z:E%!My=!_:E%!Fy=!O:E%!E=0:E%!f=�:�Xy(E%)�
�
�S(E%)
���My%=0��K(1)
��d_(E%,My%):�V(E%,E$,q_%)�
�
�h(E%)
���O(E%)
��
��
��:�
�Mݤ_Null_Reason_uncfs(E%)�U%:ș&606c0:ș&20006,229,0,0:�:��:�Z_(E%):=�
�U%=�:�ȎE%!S�
��P:�ny(E%)
��H:�xy(E%)
��V:�K_(E%)
��a,d,C:U%=�
�2�:�U%�E%!Gy:��:ș&20006,229,255,0:ș&606c1:=U%
�.��Z_(E%)ș&606c1:ș&20006,229,255,0:�=17�
��J(E%,a)
���h(E%):�X(�,�Q)
��:�
�'��ny(E%)�U%,V%,E$:U%=�:V%=E%!J:�V%�
�!E$=$(V%+D):�R(E$,"*",V%!Ny)�
�	�Py�
#�V(E%,E$+"."+�B,�(�B)=�("!"))�

U%=�H(E%)
�
�
�U%=�H(E%)
�
	�U%=�

�:�U%�

�E%!S<>C�
	�J(E%,d)

�
�:�
\��xy(E%)�U%,V%,E$:U%=�:V%=E%!J:E$=$(V%+D):ȕE%!X<�(Z$(),1)�U%�(E%!S<>C):�v(E%,E$,E%!X)�

�E%(E%!X)=Ay�
�r(E%,E$,Z$(E%!X),h$)
��r(E%,E$,Z$(E%!X),"")

�:U%=�
�:E%!X+=1:�:�U%�
�E%!S=H�
�E%!My�
�J(E%,V):E%!L=0

��J(E%,P)
�
�
�:�
R��K_(E%)�U%,V%,E$:U%=�:V%=E%!J:E$=$(V%+D):ȕE%!L<>-1�U%�E%!S<>C:�Jy(E$,E%!L)�
�r(E%,E$,�B,""):U%=�
!�:�:�(E%!Fy<>0)�U%�(E%!L=-1)�

�V%!p�
�gy(E%,E$)
�

�:�U%�
 �E%!S=V�
!�J(E%,P)
"�
#�:�
$/ݤJy(E$,�z%)�U%:�H(E$):U%=�:�R(E$,"*",z%)�
%�Py(E%):�c=ty�
&#U%=(�Ey>=�Qy("CFS#"+E$+"."+�B))
'�
(
�z%=-1
)	�:=U%
*!��H(�r$)�t(�r$,4),"CFS#")=0�
+
r$=�r$,5)
,�:�
-'��t(E%,wu%,E$)�J(E%,C):�E%!M��d(E%)
.�V(E%,E$):�X_(E%,�A(wu%)):�
/3��dy(E%,D%,E$)�S(D%):�M("Sys",�$):�t(E%,6,E$):�
03��g_(E%,D%,E$)�S(D%):�M("Sys",�$):�t(E%,7,E$):�
1(��Ly(G%,E$,v%,Hy%,D%,I%,Jy%)�G%��#G%
2;ș&20008,0,E$,v%,Hy%,D%,D%+I%:ș&20008,4,E$,,,,Jy%:�T:�
3/ݤV(E%,E$,q_%)�V%:�H(E$):�U(V%,D+�(E$)+1)�
4V%=0
5C��b(E%,E$):V%!Sy=E%!J:V%!Ny=0:V%!p=q_%:$(V%+D)=E$:E%!J=V%:�q_%�
6�J(E%,H):E%!X=0
7�
8
�:=(V%=0)
9ݤH(E%)�z%,V%:V%=E%!J:�V%�
:
�V%!p�
;�iy(E%):�E%!f�
<�v_(E%)
=�
>*�:z%=V%!Sy:�S(V%):E%!J=z%:V%=z%:E%!f=�
?
�:�V%�
@�b(E%,$(V%+D))
A
�:=(V%=0)
B;��h(E%)���H(E%):�Uy(E%):�`y(E%,My%):�S(E%):�My%=0��K(0)
C�
D2��d_(Qy%,�zy%)Qy%!q=zy%:Qy%!g=0:�zy%�zy%!g=Qy%
E
zy%=Qy%:�
F=��`y(Qy%,�zy%)�T_%,jy%:T_%=Qy%!g:jy%=Qy%!q:�jy%�jy%!g=T_%
G�T_%�T_%!q=jy%
H�Qy%=zy%�zy%=jy%
I�
J)ݤU(�Lu%,x%)�w_%:w_%=�_(Lu%,x%):�w_%�
K�X(M_%,�A(4))
L
�:=w_%
M0��sy�E%,J_%:J_%=�:E%=My%:ȕE%�(�J_%):ȎE%!S�
N�P,H,V:J_%=�
O�:E%=E%!q:�:�J_%�
P	�K(1)
Q
��K(0)
R�:�
S��K(J%)�J%<>`�
T+$h_%=A$(J%)+�(0):�ey(-1,K_%,0,0,0):`=J%
U�:�
V5ݤXy(E%)�by("FConvert",E%+E,256,128,E%!Hy):�E%!E�
W8E%!Y=0:E%!T=0:E%!w=0:E%!K=0:E%!f=�:�J(E%,P):�E%!M��o
X�oy(E%!E,-1)
Y�:=(E%!E=0)
Z��Uy(E%)�E%!E�
[ș&465c4,_%,E%+E:�S(E%!Hy)
\�:�
]��C_(E%,T%,Y%)�E$:ȎT%�
^�t,e:E$=�s(E%):�(Y%�1)=0�
_E$="CFS#"+E$
`"�:ș&20005,"Filer_OpenDir "+E$
a�B:ȎE%!S�
b#�P,H,V:�J(E%,a):�Sy("uncfs",E%)
c�a:�J(E%,E%!h):�O(E%)
d �C:�j(E%):�J(E%,E%!h):�O(E%)
e�
f�I:�E%!S=C�
g(�j(E%):�J(E%,E%!h):E%!X-=1:�E%!L<-1�
hE%!L+=1
i�E%!L-=1
j�:�O(E%)
k��m(E%)
l�
m
�R:�m(E%)
n�:�
o+��O(E%)�K(1):�Y(E%,�):�Iy("uncfs",E%):�
p#��m(E%)�Sy("uncfs",E%):�h(E%):�
q(��J(E%,jJ%)E%!h=E%!S:E%!S=jJ%:ȎjJ%�
rA�H,V,P:�_(E%!E,I):�Q(E%!E,R):�Q(E%!E,B):�E(E%!E,B,�E("Paus"))
s=�a:�_(E%!E,I):�Q(E%!E,R):�Q(E%!E,B):�E(E%!E,B,�E("Cont"))
tH�d:�Q(E%!E,I):�_(E%!E,R):�_(E%!E,B):�E(E%!E,I,�E("Ok")):�E%!M��d(E%)
uS�C:�Q(E%!E,I):�Q(E%!E,R):�Q(E%!E,B):�E(E%!E,B,�E("Skip")):�E(E%!E,I,�E("Rtry"))
v�:�sy:�
wM��_(Z%,J%)�M%:M%=�Z(64):!M%=Z%:M%!4=J%:ș&400ce,,M%:�((M%!24)�(1<<23))=0�
xJș&400d1,Z%,M%!8,M%!12,M%!16,M%!20:M%!8=1<<23:M%!12=1<<23:ș&400cd,,M%
y�:�C(M%,64):�
zI��Q(Z%,J%)�M%:M%=�Z(64):!M%=Z%:M%!4=J%:ș&400ce,,M%:�(M%!24)�(1<<23)�
{Jș&400d1,Z%,M%!8,M%!12,M%!16,M%!20:M%!8=0<<23:M%!12=1<<23:ș&400cd,,M%
|�:�C(M%,64):�
}+��Py(E%)E%!Y+=1:�E%!M=0��N(E%!E,N,E%!Y)
~%�E%!Y=1��E(E%!E,N+1,�E("FScan1"))
%�E%!Y=2��E(E%!E,N+1,�E("FScanN"))
��
���Y(E%,hu%)�hu%�
�*E%!f=�:E%!T+=1:�E%!M=0��N(E%!E,Q,E%!T)
�%�E%!T=1��E(E%!E,Q+1,�E("FConv1"))
�%�E%!T=2��E(E%!E,Q+1,�E("FConvN"))
��:�V(E%,""):�
�+��iy(E%)E%!w+=1:�E%!M=0��N(E%!E,U,E%!w)
�%�E%!w=1��E(E%!E,U+1,�E("AScan1"))
�%�E%!w=2��E(E%!E,U+1,�E("AScanN"))
��
�E��v_(E%)E%!K+=1:�N(E%!E,W,E%!K):�E%!K=1��E(E%!E,W+1,�E("AConv1"))
�%�E%!K=2��E(E%!E,W+1,�E("AConvN"))
��
���b(E%,E$)�E%!M=0�
��E(E%!E,t,�x(E$))
��:�
���V(E%,E$)�E%!M=0�
��E(E%!E,e,�x(E$))
��:�
�ݤx(E$)�(E$)>Xy�
�E$="..."+�E$,Xy-3)
�	�:=E$
�ݤs(E%)�E$,V%:V%=E%!J:�V%�
�E$=$(V%+D)
��E$=$(E%+i)
�	�:=E$
���d(E%)E%!M=(E%!M=0):�E%!M�
��o
�\��b(E%,�s(E%)):�V(E%,""):�N(E%!E,Q,E%!T):�N(E%!E,N,E%!Y):�N(E%!E,W,E%!K):�N(E%!E,U,E%!w)
��:�
�b��o�E(E%!E,t,"-"):�E(E%!E,e,"-"):�E(E%!E,Q,"-"):�E(E%!E,N,"-"):�E(E%!E,W,"-"):�E(E%!E,U,"-"):�
�/��X_(E%,`$)�M%,qJ%,xJ%,sJ%,u_%:�E%!M��d(E%)
���E(E%!E,my,`$):M%=�Z(64):!M%=E%!E:sJ%=X_%+1:u_%=D_%+1:qJ%=�((1<<C_%)-1):xJ%=�((1<<Wy%)-1):M%!4=((sJ%-s_%)/2)�qJ%:M%!16=u_%-((((u_%-68)-z_%)/2)�xJ%):M%!12=M%!4+s_%:M%!8=M%!16-z_%:M%!20=0:M%!24=0:M%!28=-1:ș&400c5,,M%:�7:�C(M%,64):�
����j(E%)�M%:M%=�Z(64):!M%=E%!E:ș&400cb,,M%:M%!12=M%!4+vJ%:M%!16=M%!8+`J%:M%!20=hJ%:M%!24=yJ%:M%!28=-1:ș&400c5,,M%:�C(M%,64):�V(E%,""):�
���ly�X%=0�
�#�MJ%4:!MJ%=0:�O("Choices",MJ%)
�X%=!MJ%
�
�:�X%�
��y:�yy(X%):�i(X%,-1)
��:�
���y�X%�
�Xș&465c6,_%,X%:�I(X%,__%,!s):�I(X%,n_%,!z):�I(X%,r_%,!_):�I(X%,o_%,!O):�I(X%,c_%,�a)
��:�
�#��cy(Y%,T%)�my%:�i(X%,-1):ȎT%�
��WJ%:�L:my%=�
��GJ%:�y:my%=�
��CJ%:�L:�Fy:my%=�
��oJ%:�Cy:�y:my%=�
��:�my%�
��Y%�1092��U(X%)
��:�
�e��L�e_%,I$,R$,P$:!s=�W(X%,__%):!z=�W(X%,n_%):!_=�W(X%,r_%):!O=�W(X%,o_%):e_%=�a:�e_%<>�W(X%,c_%)�
�)I$="TFont":R$="TSystem":�e_%�ȔI$,R$
�[P$=�S(Ry%)+".":I$=P$+I$+�0:R$=P$+R$+�0:P$=P$+"Templates"+�0:ș41,25,P$,I$:ș41,25,R$,P$
��:�
���jy(T%,rJ%)ȎrJ%�
��13:�L:�U(X%)
��27:�U(X%)
��386:�L:�U(X%)
��387:�U(X%)
��388:�L:�Fy:�U(X%)
��389:�Cy:�U(X%)
�ș&400dc,rJ%
��:�
�{ݤa�U%,F%,Ay%,R%:F%=�Z(128):Ay%=0:�ș12,9,Ry%,F%,1,Ay%,128,"TSystem"+�0�,,,R%,Ay%:U%=(R%=1):�(Ay%=-1)�U%:�C(F%,128):=U%
���zy�A$:ȎW%!20�
��X%:A$="WinChoices"
��:�A$<>""�
�lA$=�E(A$):W%!16=&400cc:W%!12=W%!8:$(W%+28)=n$+�0:$(W%+36)=A$+�0:W%!0=(36+�(A$)+4)�-4:ș&400e7,17,W%,W%!4
��:�
�
ݤL=19
���Dy(DJ%,vu%)�L<vu%�
�
�1,"EIL1"
�
�:�DJ%<1�
�
�1,"EIL2"
�i�:I_%=DJ%:�M$(I_%-1):�A%(I_%-1):`_%=0:�ay%256:B_%=40:w%=0:Vy%=12:bJ%=�:�E$(B_%-1):cy%=�:By%=�:a_%=�:�
���A(J$,tJ%)�b_(J$,tJ%):�
�Z��b_(J$,tJ%)�v%,J%,C$,f$:J%=0:v%=�:C$=�J$,1+�J$,".")):ȕJ%<`_%�v%:v%=(C$<>M$(J%)):�v%�
�	J%+=1
��:�:�v%�
��J%=I_%�
�
�1,"EIL3"
�O�:M$(J%)=C$:f$="'"+J$+"' does not have a FN_":�:��:�Z(f$+C$+"_version")
�RA%(J%)=�("FN_"+C$+"_version"):��:`_%+=1:�:��:�Z(f$+"_hard_initialise_"+C$)
�!�("FN_hard_initialise_"+C$)�
��1,"EIL5 "+J$
��:��
��:�tJ%>A%(J%)�
��1,"EIL4 "+J$
��:�
�ݤM(y$)�:��:�ay
�
=�(y$)
�
��ay�a_%�
�-��,�$+" (evaluating `"+y$+"' ["+�(�)+"])"
�
̅�,�$
��:�
�+ݤG(A%)�S$:ȕ?A%:S$+=�(?A%):A%+=1:�:=S$
�;ݤWy(A%,B%)�S$:ȕB%>=1�?A%:S$+=�(?A%):A%+=1:B%-=1:�:=S$
�.ݤS(A%)�S$:ȕ?A%>31:S$+=�(?A%):A%+=1:�:=S$
�!��x(A%,S$)$A%=S$:A%?�(S$)=0:�
���l(A%,S$,B%)�(S$)<=B%�
�($A%=�S$,B%-1):A%?(B%-1)=�(�S$,B%,1))
��$A%=S$:A%?�(S$)=0
��:�
���Z(W$)�cy%�
�	�By%�
���,�$+" ["+Þ+"]."
�
̅�,�$
��
���bJ%�
��w%=B_%�
�&E(B_%-1)="Errors too deep!!!!!":�e
��:��W$,2)=": "�
�W$=�W$,�(W$)-2)
��:�By%�
�
E$(w%)=�$
���w%=0�
�JE$(w%)="Error `"+�$+"' (line ":E$(w%)+=�(�)+") in ":E$(w%)+="`"+W$+"'"
��E$(w%)="`"+W$+"'"
��
��:w%+=1:��,""
��
��:�
���e�k%,Ey$:�cy%�
�	�By%�
� �X(�,�$+" ["+�(�)+"]."):�F:�
���X(�,�$):�=R_%�
��F:�
�
�

��Vy%=-2�

�w%>0�

���,E$(0)
̅��,�$
�:�
�:�Vy%=-3�
8$ay%="TASK":ș&400c0,200,!ay%,"LibHandler"+�(0):�w%�
	�k%=0�w%-1:�k%<(w%-1)�

�g(E$(k%)+" in")
��g(E$(k%))
	�:�k%

��g(�$+" (line "+�(�)+")")
�:ș&600dd:�
�:�Vy%>=0�
�Vy%
'�:�"An error has occured...":�:�w%�
6�k%=0�w%-1:�((7-(k%<<1))�6)+1:�E$(k%);:�k%<(w%-1)�
�" in ";
	�:�k%
��$;" (line ";�(�);")"
�:�:�7:�
�:�
f��g(w$)�Eu%:Eu%=20+(�(w$)+5)�-4:!ay%=Eu%:ay%!16=&804c0:$(ay%+20)=w$+�(10)+�(0):ș&600e7,17,ay%,0:�
ݤ_CAsm_version=14
�ݤ_hard_initialise_CAsm�A("<BasicV_Assembler$Lib>.Misc",27):ș5,"RMEnsure CAssembler 0.08 RMLoad System:Modules.CAssembler":ș5,"If ""<CAsm$Dir>""="""" Then Set CAsm$Dir <d>.Library.CAsm":CAsmLibrary_stdlib=1:CAsmLibrary_stdio=2
�CAsmLibrary_string=3:yi=4:oi=5:fu=6:jl=7:CAsmLibrary_wimp=8:H_=9:CAsmLibrary_message=10:dl=11:ou=12:Dl=13:gi=14:tu=15:Zi=16:Q_=17:Bu=18:Ll=19:li=20:SJ=21:u_=22:Kl=23:hu=24
�o_=25:wa=26:k=26:GJ=0:HJ=1:Cu=2:AJ=3:M_=4:J_=5:B_=6:Ri=7:Xa=8:py=9:y=10:x=11:Ey=12:A=13:Z=14:JJ=15:ay=&6d734143:j%=0:Ky%=13:v=0:G=0:Zy=10*1024:fy=Zy+(1*1024):dy=�:=0
A��T_(N$)�M%,i%,Ly%,L%,O%,P%,N%,J$:�:��:ș&400ec,ry%,-1:�T
Rry%=�-32768:ș&400ec,ry%+32768,-1�L%:L%+=32768:O%=ry%+32768:P%=0:N%=14:�O%=L%�
/�1,"Not enough memory to start application"
 
�:�j%<>0�
!
�1,"EIC1"
" �:�x_%k*8:�S$(k):�h_DEFAULT
#3ȕN$<>"":J$=�N$,�N$,",")-1):�:��:�Z("EIC2")
$Gi%=�("CAsmLibrary_"+J$):��:Ly%=x_%:M%=Ly%+(j%*8):ȕM%>Ly%:�!Ly%=i%�
%Ly%=M%+1
&�Ly%+=8
'�:�:�Ly%=M%�
(�j%>=k�
)
�1,"EIC3"
*=�:!M%=i%:S$(i%)=J$:j%+=1:O%=ry%+32768:P%=0:�M("FNh_"+J$)
+G�:N$=�N$,�(J$)+2):ȕ�(N$)=�(" "):N$=�N$,2):�:�:ș&400ec,ry%,-1:��:�
,��Wy�R%,M%,J%,Ey%:�j%=0�
-�h_DEFAULT
.�:Ey%=x_%:J%=j%:�(N%�2)=0�
/)�M%j%*4:ș79,j%,M%+&c0000000,3,,Ey%,8
0��:[OPTN%:.Wy DCDay:DCDuy:]:ȕJ%>0:[OPTN%:DCD!Ey%:DCDEy%!4:]:Ey%+=8:J%-=1:�:[OPTN%:DCD0:]:[OPTN%:ALIGN:.l:]:M%=P%:�jumpblock_DEFAULT
1Iuy=(P%-M%)>>2:J%=j%:Ey%=x_%:ȕJ%>0:M%=P%:�M("FNjumpblock_"+S$(!Ey%))
2%Ey%!4=(P%-M%)>>2:Ey%+=8:J%-=1:�:�
3~��x_�o:[OPTN%:ALIGN:.Cy:STMFD(A)!,{4-5,Z}:BL P%+(13<<2):.o DCDWy-o:DCDl-o:DCDv-o:DCDG:DCDZy:.r:DCD0:DCD0:DCD0:DCD0:LDR A,r
4�LDMFD(A)!,{y,x,Ey,Z}:MOVpc,Z:BIC 5,Z,#&fc000003:LDMIA5,{0-4}:ADD0,0,5:ADD1,1,5:ADD2,2,5:MOV5,#0:SWI &fcb80:STRvc0,r+(1<<2):STRvc1,r+(3<<2):LDMFD(A)!,{4-5,pc}:.m:�F:MOV2,Z:MOV1,A:MOV0,y
5rSWI &fcb81:MOVvc1,#0:STRvc1,r+(3<<2):MOVpc,2:MOV13,12:]:v=P%:�W:�Jy:G=(G+3)�-4:P%+=G-1:O%+=G-1:[OPTN%:DCB0:]:�
6��J_�P%<>32768��1,"EIC4"
7o[OPTN%:ADR4,n:MOV5,#sy:SWI &fcb80:�I("vc",2,Ai):Bvc _y:SWI 43:.n:DCDWy-n:DCDl-n:DCDv-n:DCDG:DCDZy:DCDfy:]:�
8uݤF[OPTN%:STMFD(A)!,{y,x,Ey,Z}:MOV x,pc:�I("",Z,r):STR A,[Z],#4:LDMIA(Z)!,{y,Ey,A}:� x,x,#&fc000003:�R Z,Z,x:]:=0
9^��hy(ny%,Ty%,LJ%)�A("<BasicV$Lib>.Heap",8):�A("<BasicV$Lib>.Message",1):�m(ny%,Ty%,LJ%,0)
:�Cy:��m:�e
;�
<Tݤm(ny%,Ty%,LJ%,wy%)�L%,O%,P%,N%,ou%,H%:�DJ:�dJ,vJ,qJ,i_,eJ,aJ:�xy,Yy,qi:�wy%=0�
=:�A("<BasicV$Lib>.Heap",8):�A("<BasicV$Lib>.Message",1)
>~�:�g%ny%:DJ=A:dJ=1<<31:vJ=1<<30:qJ=1<<29:i_=1<<28:eJ=1<<27:aJ=1<<26:xy=1<<17:Yy=256:qi=Yy+xy:ș&606c0:�:��:ș&606c1:�T
?"H%=ny%:L%=g%+ny%:�Ty%<>0�Ty%=4
@"�N%=8+Ty%�10+Ty%�2:�(N%�4)<>0�
AO%=g%:�wy%=1�
BP%=32768
C	�P%=0
D�
E�O%=0:P%=g%
F�:Ȏwy%�
G1�1:�W:�J_:�W:�v:�W:�Wy:v=P%:�W:�Jy:G=(G+3)�-4
H(�0:�W:�v:�W:�M_:�W:�Ky:�W:�Wy:�W:�x_
I�2:�W:�v
J�:�N%�4�L%=O%�L%=P%
K�(N%�2)=0�
Lș&dcb93,0,g%,L%-g%
M!�:H%=L%-g%:�N%:ș&606c1:�Ty%�
N�wy%=0�
OCy+=g%:m+=g%
P�
Q�:�dy�wy%<>2�
R	�Ty%�
SH%=l:�wy%�H%-=32768
T̅1,"EIC9"
U�
V�:�LJ%�
W`�"Assembled to &";~H%;" = ";((H%*10+512)�1024)/10;"K":�"Could assemble with ";ny%-H%;" less"
X	�:=H%
Yݤ_Template_version=21
Zbݤ_hard_initialise_Template:E_%=�:u%=�:m%=�:hy%=�:EJ%=�:Mu%=-1:ru%=1:Ky=7:Qy=16:ey=14:ry=15:=0
[��Qy�J%:�u%<>-1�
\�m%�
]ș&665c1,_%,�,�
^1��J%=0�255:ȕu%?J%:ș&60082,J%:u%?J%-=1:�:�J%
_�
`�:�
a.��D_�I%,d%,Q%,F%,M$,yu%,Xy%,vy%,z%,R%:�u%�
b�m%�
chy%=(m%=+1):�hy%�
d	Q%=+1
e	�Q%=0
f�:Xy%=140+(1<<21):�EJ%�
ga$=�E("MenuFont"):�a$<>""�
h�Xy%+=(1<<18)+(1<<19):�B(vy%,8+�(a$)+1):$(vy%+8)=a$:vy%!0=16*�(�E("MenuFontWidth")):vy%!4=16*�(�E("MenuFontHeight")):�E("MenuFontLowRez")="NO"�
iXy%+=(1<<17)
j�Xy%+=(1<<16)
k�
l�
m*�:ș&465c0,_%,0,0,Q%,Q%,0,0,Xy%,vy%�u%
n!��B(u%,256):ș&dcb93,0,u%,256
o�
p
�u%=-1
q4�:M$=�K("<"+B$+"$Dir>.Sprites"):I%=�z(M$):�I%>0�
rmF%=�Z(128):z%=0:�ș12,12,"<"++B$+"$Dir>",F%,1,z%,128,"Sprites*"�,,,R%,z%:�R%=1�F%!20=4089�I%<F%!8�I%=F%!8
sl�z%<0:�C(F%,128):�B(e%,I%+16):e%!0=I%+16:e%!4=0:e%!8=16:e%!12=16:ș&2002e,522,e%,M$�d%;Q%:c$=M$:�P(Q%)�
t*�M("Reason","Sprites"):�n(d%):�D(4):�F
u�
v	�e%=0
w�:�G_("Templates"):�e%>0�
x �q("ProgInfo",e%,"ProgInfo")
y!��q("ProgInfo",+1,"ProgInfo")
z�:s%=0:�E_%=0�
{�u
|#�:d_%=�By("Query",yu%,+1):�q_:�
}/��_y:M$=�K("<"+B$+"$Dir>.Sprites"):�M$<>c$�
~0e%!4=0:e%!8=16:e%!12=16:ș46,522,e%,M$:c$=M$
�:�
�.ݤProgInfo(Z%)�x(Z%!(88+(Ky<<5)+20),X$):=0
���Gy(c%,b%,Y%,T%)ȎT%�
�!�ey,ry:c%=�J(1,�A(0)):�Y%<>1�
��f
��
�
�Y%�240�
�W%!0=s%:W%!4=1:ș&400d0,,W%
��
��:�
�
��u�s%=0�
�	�hy%�
�$�P_%4:!P_%=0:�O("ProgInfo",P_%)
�s%=!P_%
���l("ProgInfo",s%)
��
�	��m%�
�	�hy%�
�ș&465c6,_%,P_%
��ș&465c6,_%,s%
��
��
��:�
�W��G_(g$)�BJ%,i%,I%,d%,Q%,S%:�lJ%,M$,Dy%,by%:M$="<"+B$+"$Dir>."+g$:I%=�z(M$):�I%<=0�
�2�M("Reason",g$):�M("Sys","Not found"):�D(4):�F
�M�:�B(i%,I%):�B(Dy%,I%+F):by%=Dy%+Dy:lJ%=Dy%+F:ș&600d9,,M$�d%;Q%:�P(Q%)�
�5�M("Reason","Templates"):�n(d%):�D(4):ș&600da:�F
��:�:��:�j_
�Qz%=0:�by%!0=�("*"):ș&600db,,lJ%,i%,i%+I%,u%,by%,z%�d%,,BJ%,,,,z%;Q%:�P(Q%)�
��R(d%):ș&600da:�F
�
�:�z%�
�&�Q%=0�11:�by%?Q%=13�by%?Q%=0:Q%=12
�0�Q%:Dy%!gy=BJ%-i%:Dy%!u=i%:S%=�d(Dy%):�S%=0�
��D(16):ș&600da:�F
��:S%!c=!yy%:!yy%=S%
�(�:�z%=0:��:ș&400da:�S(Dy%):�S(i%):�
�!��j_ș&600da:�Z("Template"):�
�'ݤBy(F$,zu%,l_%)=�Ny(F$,zu%,l_%,"")
�2ݤNy(F$,zu%,l_%,W$)�S%,mJ%,G%:S%=�C(F$):�S%=0�
��F
�"�:mJ%=S%+F:mJ%!64=l_%:�W$<>""�
�G%=�M("FN"+W$)
��:�q(S%,G%)�
��F
��:�a(S%):=G%
�)��q(F$,l_%,W$)�S%,Z%:S%=�C(F$):�S%=0�
��F
� �:Z%=S%+F:Z%!64=l_%:�W$<>""�
� Z%=�M("FN"+W$+"("+�(Z%)+")")
��:�
�"ݤl(F$,�Sy%)�J%:=�r(F$,Sy%,J%)
�)ݤr(F$,�Sy%,�uy%)�S%,K%:K%=�:�Sy%<=0�
�S%=�C(F$):�S%�
�K%=�q(S%,Sy%):�K%=��
�uy%=S%!u:�a(S%)
��
�	�K%=�
��
�	��m%�
�ș&465c6,_%,Sy%
��
�	�:=K%
�Mݤp(F$)�S%,g$,W_%:S%=!yy%:W_%=�:ȕS%�(�W_%):W_%=(�Wy(S%+Dy,12)=F$):�W_%�
�S%=S%!c
��:�:=S%
�ݤC(F$)�S%:S%=�p(F$):�S%=0�
��M("Reason",F$):�D(3)
�	�:=S%
�ݤq(S%,�Sy%)�m%�
�ș&665c3,_%,S%+F,0�Sy%;S%
��ș&600c1,,S%+F�Sy%;S%
��:S%=�P(S%):�S%�
��R(Sy%):Sy%=0
�	�:=S%
�;��F_(Z%,Q%,Fy%)�G%,D%:D%=`y%<<C_%:G%=Z%!8-Z%!0:�D%<=G%�
�
Z%!0=0
��D%=D%-G%:�Fy%<0�
�Fy%=D%+(Fy%�D%)
��:Z%!0=(Z%!0+Fy%*Q%)�D%
��:Z%!8=Z%!0+G%:�
�C��S_(Z%,Q%,Fy%)�G%,D%:D%=(Cy%<<Wy%)-96:G%=Z%!8-Z%!0+48:�D%<=G%�
�Z%!8=(Cy%<<Wy%)-G%
��D%=D%-G%:�Fy%<0�
�Fy%=D%+(Fy%�D%)
�=�:Z%!8=(Cy%<<Wy%)-Z%!8:Z%!8=(Cy%<<Wy%)-((Z%!8+Fy%*Q%)�D%)
��:Z%!0=Z%!8-(G%-48):�
�:��a(S%)�M%:M%=yy%:ȕ!M%<>0�!M%<>S%:M%=!M%+c:�:�!M%=S%�
�!M%=S%!c:S%!c=0:�S(S%)
��:�
�ݤk(A%)=�(by)
�ݤd(A%)A%=�k(A%):�A%=0�
�
�D(16)
�	�:=A%
�!��f_�(N%�2)=0��N_("Template")
� [OPTN%:ALIGN:.by:�F:B ly:]:�
�|ݤ_Declare_Local_Variables_Template�yy%4:!yy%=0:P%=0:[OPTN%:.c DCD0:.Jy DCD0:.u DCD0:.gy DCD0:.Dy DCD0:DCD0:DCD0:.F:]:=0
�8��by(F$,f%,g_%,j_%,�uy%)�w_(F$,f%,g_%,j_%,uy%,"X"):�
�1��w_(F$,f%,g_%,j_%,�uy%,H$)�S%:S%=�C(F$):�S%�
��e_(S%,f%,g_%,j_%,uy%,H$)
��!f%=S%
��:�
� ݤO(F$,f%)�J%:=�Uy(F$,f%,J%)
�(ݤUy(F$,f%,�uy%)�S%,K%:K%=�:�!f%<=0�
�S%=�C(F$):�S%�
�K%=�Y(S%,f%):�K%=��
�uy%=S%!u:�a(S%)
��
�	�K%=�
��
�	��m%�
�ș&465c6,_%,f%
��
�	�:=K%
���n_(S%,f%)S%=�Y(S%,f%):�
�ݤY(S%,f%)�d%:�m%�
�ș&665c3,_%,S%+F,f%�d%;S%
��ș&600c1,,S%+F�d%;S%
��:!f%=d%:S%=�P(S%):�S%�
��R(d%):!f%=0
�	�:=S%
�L��e_(S%,f%,g_%,j_%,�uy%,H$)�Z%,Q%:!f%=0:Q%=S%!Jy:S%!Jy+=1:S%=�d(S%):�S%�
�5Z%=S%+F:�F_(Z%,Q%,g_%):�S_(Z%+4,Q%,j_%):�H$<>"X"�
��Z%!56�(1<<8)�
��l(Z%!72,H$,Z%!80)
���l(Z%+72,H$,12)
��
� �:�n_(S%,f%):uy%=S%!u:�a(S%)
��:�
�)ݤh_DEFAULT�:��:�Z("@.h.DEFAULT")
nqu=16:wl=1<<30:IJ=1<<29:pu=0:el=1:Ha=2:Aa=3:Ja=4:Pu=5:Ua=6:BJ=7:di=8:lJ=9:La=10:xl=1<<0:sy=1<<1:_i=1<<2:=0
1ݤjumpblock_DEFAULT�:��:�Z("@.h.DEFAULT")
m[OPTN%�Ky%:.ji DCDs_:.uJ DCDol:.`_ DCDT_:.O_ DCDVi:.Gu DCDYu:.UJ DCDiu:.t_ DCDEi:.MJ DCDlu:._y DCDJi:]:=0
%ݤh_stdio�:��:�Z("@.h.stdio")
k_=0:Bi=17:Du=34:=0
-ݤjumpblock_stdio�:��:�Z("@.h.stdio")
�[OPTN%�Ky%:.Vl DCDci:.K_ DCDfl:.cu DCDvu:.ri DCDJu:.C_ DCDzJ:.Yu%DCDTu%:.cu%DCDxu%:.eu%DCD_u%:.nl DCDGi:.Gl DCDLi:.rJ DCDwi:.ai DCDhi:.ku DCDYi:]:=0
'ݤh_stdlib�:��:�Z("@.h.stdlib")
=0
	/ݤjumpblock_stdlib�:��:�Z("@.h.stdlib")

�[OPTN%�Ky%:.zy DCDgu:.iy DCDMl:.Ka DCDMi:.ky DCDNi:.PJ DCDEu:.L_ DCDDa:.Hl DCDNl:.Ou DCDza:.__ DCD`u:.P_ DCDqa:.S_ DCDyJ:.W_ DCDm_:.zu DCDV_:.uu DCDz_:.ll DCDBl:.cl DCDfJ:]:=0
'ݤh_string�:��:�Z("@.h.string")
SP%=0:[OPTN%:.Qu DCB0:.x_ DCB0:.Si DCB0:.CJ DCB0:.au DCB0:.Ql DCB0:.al DCB0:]:=0

/ݤjumpblock_string�:��:�Z("@.h.string")
�[OPTN%�Ky%:.ZJ DCDTJ:.pJ DCDtl:.KJ DCDw_:.D_ DCDNa:.Pl DCDpi:.bi DCDOl:.Ta DCDSa:.p_ DCDWi:.Y_ DCDHi:.vi DCDMu:.ii DCDTu:.fi DCDAu:.oJ DCDsu:.Xu DCDXJ:.`y DCDNu:.cJ DCDOi:.ti DCDa_:.gJ DCDQJ:.mi DCDVu
�.`i DCDy_:.wu DCDI_:._u DCDTi:.nu DCDWl:.Di DCDr_:.Sl DCDWJ:.Pi DCDb_:.kl DCDOJ:.ul DCDnJ:.Rl DCDNJ:.Fi DCDn_:.Fl DCDWu:.Yl DCDaa:.Il DCDg_:.kJ DCDmu:.du DCDe_:.Zu DCDd_:.Lu DCDbJ:.Hu DCDFJ:.v_ DCDFu:.rl DCDRa:.jJ DCDyl:.G_ DCDql:]:=0
)ݤh_message�:��:�Z("@.h.message")
=0
1ݤjumpblock_message�:��:�Z("@.h.message")
E[OPTN%�Ky%:.oy DCDq_:.A_ DCDl_:.xJ DCDju:.Ea DCDyu:.U_ DCDbu:]:=0
#ݤh_wimp�:��:�Z("@.h.wimp")
�Iu=12:eu=0:P%=0:[OPTN%:.Ly DCB0:.Al DCB0:.cy DCB0:.qy DCB0:.ni DCB0:.f_ DCB0:._a DCB0:.jy DCB0:.Iy DCB0:.mJ DCB0:.Z_ DCB0:.`J DCB0:.Oa DCB0:._l DCB0:.j_ DCB0:.si DCB0:.sJ DCB0:]:P%=0:[OPTN%:.Vy DCB0
�.vl DCB0:.Ki DCB0:.vy DCB0:.Ru DCB0:.VJ DCB0:.LJ DCB0:.xi DCB0:.sa DCB0:.zl DCB0:.gl DCB0:.ru DCB0:]:P%=0:[OPTN%:.Zl DCB0:.Su DCB0:.Ba DCB0:.c_ DCB0:.N_ DCB0:]:=0
+ݤjumpblock_wimp�:��:�Z("@.h.wimp")
�[OPTN%�Ky%:.Ya DCDJl:.iJ DCDml:.wJ DCDIa:.bl DCDXi:.By DCDtJ:._J DCD`l:.E_ DCDRJ:.sl DCDui:.ly DCDh_:.Pa DCDX_:.Ca DCDTl:.Za DCDGa:.Uu DCDEl:.Fa DCDUl:.Ci DCDF_:.Wa DCDIi:.Ma DCDQa:.ki DCDVa:]:=0
ݤ_ModeInfo_version=6
!ݤ_hard_initialise_ModeInfo=0
���A_(o%)ș53,o%,1�,,ZJ%:ZJ%+=1:ș53,o%,2�,,t_%:t_%+=1:ș53,o%,3�,,nJ%:nJ%+=1:ș53,o%,4�,,C_%:ș53,o%,5�,,Wy%:ș53,o%,6�,,Wu%:ș53,o%,7�,,Hu%:ș53,o%,9�,,JJ%:TJ%=1<<JJ%:ș53,o%,11�,,`y%:`y%+=1:ș53,o%,12�,,Cy%:Cy%+=1:Bu%=`y%�ZJ%
>Cu%=Cy%�t_%:X_%=(`y%<<C_%)-1:D_%=(Cy%<<Wy%)-1:qu%=32�TJ%:�
ݤ_Wimp_version=50
/ݤ_hard_initialise_Wimp�d%:�L<12��1,"EIW1"
Iș&400f2,0�d%:�d%=0��1,"Application needs to be run from the desktop"
 ��A("<BasicV$Lib>.Heap",8):�A("<BasicV$Lib>.IntMath",5):�A("<BasicV$Lib>.Message",3):�A("<BasicV$Lib>.Template",7):�A("<BasicV$Lib>.NullReason",1):cy%=�:qy%=3*1024
!��B(ty%,qy%):qy%+=ty%:Gy%=ty%:�B(W%,512):m$="":i$="":au%=0:B$="Application":X$="0.00 (01-Jan-1900)":_%=-1:R_%=2400:M_%=2401:Pu%=16*1024:G$="":ku%=�:Su%=0:=0
":ݤK(d$)�a%,C%,Z$,c%,b%,IJ%:ș&600f2,2�a%;C%:�(C%�1)=0�
#Dș53,-1,4�,,c%:ș53,-1,5�,,b%:ș53,-1,10�,,IJ%:�c%<2�b%<2�IJ%=0�
$Z$="23"
%�Z$=�S(a%)
&�:a%=�(d$+Z$):�a%�
'�#a%:d$+=Z$
(�
)	�:=d$
*ݤP(Xy%)=(Xy%�1)<>0
+��i(q%,T%)�T%=-1�
,ș&600d2,q%,-1,0,0,1<<25,-1
-4�ș&600d2,q%,T%,,,-1,�(�Zy(q%,T%)):ș&dcb8d,8,q%
.�:�
/$��oy(q%,du%)ș&dcb8d,Vy,q%,du%:�
0��U(q%)�q%>0�ș&dcb8d,vy,q%
1�
2��yy(q%)ș&dcb8d,Vy,q%,-1:�
3n��ey(q%,T%,gJ%,ju%,iu%)�F%:F%=�Z(16):F%!0=q%:F%!4=T%:F%!8=ju%<<gJ%:F%!12=iu%<<gJ%:ș&400cd,,F%:�C(F%,16):�
4&ݤW(q%,T%)ș&dcb8c,Iy,q%,T%�T%:=T%
5)��I(q%,T%,Ku%)ș&dcb8c,jy,q%,T%,Ku%:�
6J��X(YJ%,A$)�F%:F%=�Z(300):F%!0=YJ%:$(F%+4)=A$+�(0):�R(F%):�C(F%,300):�
7��G(A$)�R_%,A$:�
8L��D(YJ%)�F%:F%=�Z(300):F%!0=M_%:�p("LE"+�(YJ%),F%+4):�R(F%):�C(F%,300):�
9��R(Iu%)ș&400df,Iu%,1,B$:�
:gݤJ(Xy%,A$)�F%,K%:�f:F%=�Z(260):!F%=0:$(F%+4)=A$+�(0):ș&400df,F%,(16�Xy%),�D(0)�,K%:�C(F%,260):=K%
;���i_�F%:F%=�Z(256):F%?0=1:F%?1=0:F%?2=0:F%?3=0:F%?4=0:F%?5=X_%�256:F%?6=X_%�256:F%?7=D_%�256:F%?8=D_%�256:ș7,21,F%:!F%=d_%:ș&400c6,,F%:�C(F%,256):�
<F��uy(c%,b%,Y%,T%)�i_:c%=�M("FN_Stop_Action_"+k$+"("+�(T%=0)+")"):�
=.ݤb(L$)ȕ�L$,"."):L$=�L$,�L$,".")+1):�:=L$
>'��E(q%,T%,q$)ș&dcb8c,cy,q%,T%,q$:�
?'��N(q%,J%,R%)ș&dcb8c,qy,q%,J%,R%:�
@+ݤZy(q%,J%)ș&dcb8c,Ly,q%,J%�q%:=�S(q%)
A&ݤi(q%,J%)ș&dcb8c,Ly,q%,J%�q%:=q%
B8ݤz(K$)�d%,I%,Q%:ș&20008,17,K$�d%,,,,I%;Q%:�P(Q%)�
C(�M("Reason",�b(K$)):�n(d%):�G(�D(4))
D
�:�d%<>1�
E	I%=-1
F	�:=I%
GݤZ(x%)�K%:�(Gy%+x%)<qy%�
HK%=Gy%:Gy%+=x%
I��G("Wimp Stack full")
J	�:=K%
K��wy:Gy%=ty%:�
L$��C(N_%,x%)�(N_%<ty%)�(N_%>qy%)�
M,�G("Release_Stack: Invalid stack chunk")
N��(x%<0)�((N_%+x%)>qy%)�
O+�G("Release_Stack: Invalid chunk size")
P�Gy%-=x%:�Gy%<>N_%�
Q �G("Release_Stack: Bad pop")
R�
S�
T�:�
U>��Ry(v$,y%,cJ%,m_%,PJ%,FJ%)�O_(v$,v$,y%,cJ%,m_%,PJ%,FJ%):�
V���O_(v$,H$,y%,cJ%,m_%,PJ%,FJ%)X$=�(y%)+"."+�"0"+�(cJ%),2):X$+=" ("+�"0"+�(m_%),2)+"-":X$+=�"CBJanFebMarAprMayJunJulAugSepOctNovDec",PJ%*3,3):X$+="-"+�"19"+�(FJ%),4)+")":B$=v$:�M("App",B$):�ty(Ry%,B$+"$Dir"):�Ry%=0��1,"EIW5"
W�G$<>""�
X�m_%=�:Z_%=W%:y%=�G$,","):ȕy%<>0:Z_%!0=�M(�G$,y%-1)):Z_%+=4:G$=�G$,y%+1):y%=�G$,","):�:Z_%!0=�M(G$):Z_%!4=0:ș&400c0,300,&4b534154,H$,W%�G_%,_%
Y%�ș&400c0,200,&4b534154,H$�G_%,_%
Z�:��qy
[ș&606c0:�G_%<200�
\�R_%,�D(5)
]*�:cy%=�:�D_:�Vy:cy%=-2:�I_:�Ty:�E_%=0�
^�E(s%,7,X$)
_P�:nu%=-1:uu%=-1:Du%=-1:Ju%=-1:mu%=�:tu%=-1:Fu%=-1:u$="":l$="":�Zy:ș&606c1:�
`��qyș&606c1:�Yy%�
a�X(M_%,�$+" ["+Þ+"]")
b��X(M_%,�$)
c�:�F:�:�
d<��ty(�H_%,t$)�x%,r%:ș&20023,t$,0,-1,0,1�,,x%,,r%:�x%=0�
e	H_%=0
f��r%=1��1,"EIW4"
g5x%=-x%:�B(H_%,x%):ș35,t$,H_%,x%,0,1:H_%?(x%-1)=0
h�:�
iݤ_FileType_version=10
j�ݤ_hard_initialise_FileType:YJ=-1:wy=8192:Ty=4096:Ku=4095:EJ=4093:R_=4091:j=4089:hl=4086:Xl=4076:Ay=4075:ty=3478:hJ=3388:pl=3269:Cl=3254:il=3253:ei=2815:xu=2779:Qi=1793:Ui=1296:=0
kݤ_file_io_version=10
l|ݤ_hard_initialise_file_io�A("<BasicV$Lib>.CheckVars",2):�A("<BasicV$Lib>.string",6):AJ%=256+20:�n%AJ%:�Au%9:Au%?8=13:=0
m8ݤQy(K$)�x%,r%:ș8,5,K$�r%,,,,x%:�r%=0��1,"EIF1 "+K$
n=x%
o ��Oy(K$,Qu%)ș8,255,K$,Qu%:�
pCݤR(P$,C$,�z%)�aJ%:ș&2000c,10,P$,n%,1,z%,AJ%,C$�,,,aJ%,z%:=aJ%
q�ݤy(P$,C$)�r%,v%,Hy%,I%,_J%:ș&20008,5,P$+"."+C$�r%,,v%,Hy%,I%,_J%:n%!0=v%:n%!4=Hy%:n%!8=I%:n%!12=_J%:n%!16=r%:�V_((P$+"."+C$),(n%+20)):=(r%=0)
rݤMy=!n%
s
ݤEy=n%!8
tݤB=�G(n%+20)
uݤPy=((n%!16)=2)
v*ݤc�K%:K%=�My:�(K%�-1048576)=-1048576�
wK%=(K%�&fff00)>>8
x
�K%=-1
y	�:=K%
zݤ_string_version=7
{:ݤ_hard_initialise_string�A("<BasicV$Lib>.ctype",1):=0
|`ݤt(Z$,s$)�Q%,a%,Y%:a%=�(Z$):Y%=�(s$):Q%=0:ȕa%>0�Y%>0�Q%=0:Q%=�(�T(�(Z$))-�T(�(s$))):�Q%=0�
}%a%-=1:Y%-=1:Z$=�Z$,a%):s$=�s$,Y%)
~�:�:�Q%=0�
Q%=�(a%-Y%)
�	�:=Q%
�"��V_(q$,D%)$D%=q$:D%?�(q$)=0:�
�ݤ_Misc_version=46
�6ݤ_hard_initialise_Misc�J%,S_%,R%:�L<12��1,"EIA1"
�p$="":Zu%=100:�lu%16:=0
�;ݤI(x$,Oy%,gu%)�fy%,p_%,ky%,b_%,y_%:t%=�Gy(x$):�N%�2=0�
�[OPTN%:DCD0:DCD0:]
�)�fy%=gu%-P%-8:�(fy%)>65535��1,"EIA2"
�,ky%=�(fy%)�255:p_%=�(fy%)�65280:�fy%>=0�
�Rb_%=t%�(&28f0000+(Oy%<<12)+ky%):y_%=t%�(&2800c00+(Oy%<<16)+(Oy%<<12)+(p_%>>8))
�S�b_%=t%�(&24f0000+(Oy%<<12)+ky%):y_%=t%�(&2400c00+(Oy%<<16)+(Oy%<<12)+(p_%>>8))
��:[OPTN%:DCDb_%:DCDy_%:]
��:=0
�8��N_(L$)�VJ%,eJ%,zJ%:VJ%=P%:eJ%=O%:zJ%=N%:�(N%�4)=0�
�	O%=P%
�Q�:P%=0:N%=N%�6:P%=�M("FN_Declare_Local_Variables_"+L$):P%=VJ%:O%=eJ%:N%=zJ%:�
�ݤGy(x$)�t%:Ȏx$�
��"","  ":t%=14
��"lo":t%=3
��"hs":t%=2
�Dt%=�"eqnecsccmiplvsvchilsgeltgtlealnv",x$):�(t%�2)=0��1,"EIA13"
�t%=(t%-1)>>1
�
�:=t%<<28
�ݤg(a%)�(N%�4)�a%+=g%
�=a%
���W�Ay%:�N%�2�Ay%=50�Ay%=0
�+ș&606c4,((�g(P%)-g%)/(L%-g%)*50)+Ay%:�
�ݤ_Heap_version=9
�ݤ_hard_initialise_Heap=0
�&ݤ_(�dy%,A%)dy%=�(uJ%):�!Py%�dy%=0
�	=!Py%
���B(�dy%,x%)�_(dy%,x%)�
�dy%=!Py%:�!dy%,�G(dy%+4)
��:�
���S(�A%)�n(A%)�
�A%=!Py%:�!A%,�G(A%+4)
��:�
�ݤn(�A%)�RJ%:A%=0:=!Py%
�B��M_[OPTN%:�N(uJ%,zy):�N(RJ%,iy):�N(su%,ky):ALIGN:.Py%DCD0:]:�
�mݤN(�Xu%,fu%)[OPTN%:ALIGN:.Xu%:�F:STMFD(A)!,{Z}:MOV Z,#0:STR Z,Py%:BL fu%:STRvs0,Py%:LDMFD(A)!,{pc}^:]:=0
�ݤ_Message_version=6
�oݤ_hard_initialise_Message:zi=31:ș5,"RMEnsure CAssembler 0.08 RMLoad System:Modules.CAssembler":�yy 256:=0
�Hݤf(b$,Vu%,�U_%)�A%:ș&fcb83,b$+".Messages.",Vu%,0�A%,U_%:�U_%=0��Py
�=A%
�;ݤ`(G%,T$,v_%)ș&fcb85,T$,v_%,G%�v_%;G%:=v_%�((G%�2)=2)
�;ݤu(G%,T$,w$)�y%:ș&fcb85,T$,w$,G%�y%;G%:=y%�((G%�2)=2)
�/ݤo(G%)�y%:ș&fcb86,G%�y%;G%:=y%�((G%�2)=2)
�;ݤX(G%,T$)�y%:ș&fcb84,T$,yy,256,G%,0�y%,G%:?G%=13:=$yy
�%��py(G%,T$,Nu%)G%=�`(G%,T$,Nu%):�
�#��my(G%,T$,w$)G%=�u(G%,T$,w$):�
���a_(G%)G%=�o(G%):�
�ݤA(R%)=�X(l%,"E"+�(R%))
�ݤE(z$)=�X(l%,z$)
���w(z$,R%)�py(l%,z$,R%):�
���M(z$,o$)�my(l%,z$,o$):�
�'��p(z$,B%)ș&dcb84,z$,B%,256,l%,0:�
���E_�a_(l%):�
���n(Y%)�Y%<=0�
��M("Sys",""):�M("SysN","")
�*��M("Sys",�S(Y%+4)):�M("SysN",�~(!Y%))
��:�
�ݤD(R%)=�X(l%,"LE"+�(R%))
�/��Ky[OPTN%:ALIGN:.Py:�F:B oy:]:�N%�4�Py+=g%
��
�ݤ_IntMath_version=6
� ݤ_hard_initialise_IntMath=0
�ݤ_NullReason_version=5
�#ݤ_hard_initialise_NullReason=0
�)��Ty�p%4:!p%=0:sy%=0:L_%=�:_y%=6193:�
���Iy(V$,py%)�m_(V$,py%,�):�
�\��m_(V$,py%,f_%)�R%:�B(R%,12+�(V$)+1):$(R%+12)=V$:R%!8=py%:R%!4=f_%:!R%=!p%:!p%=R%:�My:�
���Sy(V$,py%)�ky(V$,py%,�):�
�"��ky(V$,py%,f_%)�R%,M%:�V$=""�
��G("EIN3"):ȕ!p%:�c(p%):�
�M�M%=p%:ȕ!M%:R%=!M%:�($(R%+12)=V$)�(R%!4=f_%)�(((py%=0)�f_%)�(R%!8=py%))�
�
�c(M%)
�
�M%=R%
��:�
��:�
���c(M%)�R%:�M%=0��G("EIN6")
�R%=!M%:�R%=0��G("EIN5")
��R%=sy%�
�sy%=!R%:L_%=�
��:!M%=!R%:�S(R%):�My:�
�
��My�!p%�
�_y%=_y%�(�1)
��_y%=_y%�1
��:�
�5��h_�h%,M%,O_%,A%:h%=!p%:ȕh%:sy%=h%:L_%=�:�h%!4�
�6O_%=�M("FN_Null_Reason_"+$(h%+12)+"("+�(h%!8)+")")
�'�O_%=�M("FN_Null_Reason_"+$(h%+12))
��:�L_%�
�
h%=sy%
��sy%=0:A%=!h%:�O_%�
�+M%=p%:ȕ!M%<>h%:M%=!M%:�M%=0��G("EIN2")
��:�c(M%)
��:h%=A%
�	�:�:�
� ݤ_Null_Reason_�G("EIN1"):=0
�ݤ_CheckVars_version=3
�"ݤ_hard_initialise_CheckVars=0
�ݤ_ctype_version=1
�ݤ_hard_initialise_ctype=0
�ݤFy(Q%)=Q%-�("A")+�("a")
�"ݤAy(Q%)=Q%>=�("A")�Q%<=�("Z")
�ݤT(Q%)�K%:�Ay(Q%)�
�K%=�Fy(Q%)
�
�K%=Q%
�	�:=K%
�:
�:
:

��B_�Ay:�
 ��Y_�#W%!20,"Run "+�S(Ry%):�
:
:
�
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 24 6e 24 3d 22 75  6e 63 66 73 58 22 3a f2  |..$n$="uncfsX":.|
00000050  7a 5f 28 22 55 6e 49 6e  73 74 61 6c 6c 22 2c b9  |z_("UnInstall",.|
00000060  29 3a e0 0d 00 04 56 dd  f2 4c 5f 28 5a 25 29 5a  |):....V..L_(Z%)Z|
00000070  25 3f 33 35 3d 31 31 3a  f2 73 28 5a 25 2c 31 2c  |%?35=11:.s(Z%,1,|
00000080  36 2c 35 35 29 3a f2 73  28 5a 25 2c 33 2c 36 2c  |6,55):.s(Z%,3,6,|
00000090  35 35 29 3a f2 7a 28 5a  25 2c 4e 29 3a f2 7a 28  |55):.z(Z%,N):.z(|
000000a0  5a 25 2c 51 29 3a f2 7a  28 5a 25 2c 55 29 3a f2  |Z%,Q):.z(Z%,U):.|
000000b0  7a 28 5a 25 2c 57 29 3a  e1 0d 00 05 2f dd f2 7a  |z(Z%,W):..../..z|
000000c0  28 5a 25 2c 4a 25 29 f2  73 28 5a 25 2c 4a 25 2c  |(Z%,J%).s(Z%,J%,|
000000d0  31 2c 34 38 29 3a f2 73  28 5a 25 2c 4a 25 2b 31  |1,48):.s(Z%,J%+1|
000000e0  2c 31 2c 34 38 29 3a e1  0d 00 06 4c dd f2 73 28  |,1,48):....L..s(|
000000f0  5a 25 2c 4a 25 2c 41 79  25 2c 51 25 29 4a 25 3d  |Z%,J%,Ay%,Q%)J%=|
00000100  5a 25 2b 38 38 2b 28 4a  25 2a 33 32 29 3a 4a 25  |Z%+88+(J%*32):J%|
00000110  3d 4a 25 21 32 34 3a 4a  25 3f 41 79 25 3d 97 28  |=J%!24:J%?Ay%=.(|
00000120  22 42 22 29 3a 4a 25 3f  28 41 79 25 2b 31 29 3d  |"B"):J%?(Ay%+1)=|
00000130  51 25 3a e1 0d 00 07 1d  dd f2 45 79 21 73 3d a3  |Q%:.......Ey!s=.|
00000140  3a 21 7a 3d b9 3a 21 5f  3d a3 3a 21 4f 3d a3 3a  |:!z=.:!_=.:!O=.:|
00000150  e1 0d 00 08 31 dd a4 76  28 45 25 2c 45 24 2c 4a  |....1..v(E%,E$,J|
00000160  25 29 ea 55 25 3a f2 48  28 45 24 29 3a 55 25 3d  |%).U%:.H(E$):U%=|
00000170  a3 3a e7 ac a4 79 28 45  24 2c 5a 24 28 4a 25 29  |.:...y(E$,Z$(J%)|
00000180  29 8c 0d 00 09 1a f2 50  79 28 45 25 29 3a 55 25  |)......Py(E%):U%|
00000190  3d 28 a4 63 3d 45 25 28  4a 25 29 29 0d 00 0a 09  |=(.c=E%(J%))....|
000001a0  cd 3a 3d 55 25 0d 00 0b  75 dd f2 72 28 45 25 2c  |.:=U%...u..r(E%,|
000001b0  45 24 2c 43 24 2c 51 24  29 ea 44 25 2c 49 25 2c  |E$,C$,Q$).D%,I%,|
000001c0  47 25 2c 76 25 2c 48 79  25 2c 4a 79 25 2c 55 24  |G%,v%,Hy%,Jy%,U$|
000001d0  2c 51 25 3a f2 48 28 45  24 29 3a 45 24 2b 3d 22  |,Q%:.H(E$):E$+="|
000001e0  2e 22 2b 43 24 3a f2 56  28 45 25 2c 45 24 29 3a  |."+C$:.V(E%,E$):|
000001f0  55 24 3d 45 24 3a c8 99  38 2c 35 2c 55 24 b8 2c  |U$=E$:..8,5,U$.,|
00000200  2c 76 25 2c 48 79 25 2c  49 25 2c 4a 79 25 3a e7  |,v%,Hy%,I%,Jy%:.|
00000210  28 4a 79 25 80 31 29 3d  30 8c 0d 00 0c 0f f2 74  |(Jy%.1)=0......t|
00000220  28 45 25 2c 38 2c 55 24  29 0d 00 0d 12 cc e7 a4  |(E%,8,U$).......|
00000230  55 28 44 25 2c 49 25 2b  31 29 8c 0d 00 0e 0c f2  |U(D%,I%+1)......|
00000240  59 28 45 25 2c a3 29 0d  00 0f 17 cc ea 85 3a ee  |Y(E%,.).......:.|
00000250  85 ea f7 85 3a f2 53 28  44 25 29 3a f2 54 0d 00  |....:.S(D%):.T..|
00000260  10 1c ea 85 3a ee 85 ea  f7 85 3a f2 64 79 28 45  |....:.....:.dy(E|
00000270  25 2c 44 25 2c 55 24 29  3a e1 0d 00 11 21 f2 4f  |%,D%,U$):....!.O|
00000280  79 28 55 24 2c 44 25 29  3a f7 85 3a e7 ac a4 6a  |y(U$,D%):..:...j|
00000290  28 44 25 2c 49 25 2c 51  24 29 8c 0d 00 12 0c f2  |(D%,I%,Q$)......|
000002a0  59 28 45 25 2c a3 29 0d  00 13 1d cc ea 85 3a ee  |Y(E%,.).......:.|
000002b0  85 ea f7 85 3a f2 67 5f  28 45 25 2c 44 25 2c 55  |....:.g_(E%,D%,U|
000002c0  24 29 3a e1 0d 00 14 37  c8 99 31 33 2c 31 33 39  |$):....7..13,139|
000002d0  2c 45 24 b8 47 25 3a ea  85 3a ee 85 ea f7 85 3a  |,E$.G%:..:.....:|
000002e0  f2 4c 79 28 47 25 2c 55  24 2c 76 25 2c 48 79 25  |.Ly(G%,U$,v%,Hy%|
000002f0  2c 44 25 2c 49 25 2c 4a  79 25 29 0d 00 15 48 c8  |,D%,I%,Jy%)...H.|
00000300  99 31 32 2c 32 2c 47 25  2c 44 25 2b a9 28 51 24  |.12,2,G%,D%+.(Q$|
00000310  29 2c 49 25 2d a9 28 51  24 29 3a f7 85 3a d9 23  |),I%-.(Q$):..:.#|
00000320  47 25 3a c8 99 38 2c 31  2c 45 24 2c 76 25 2c 48  |G%:..8,1,E$,v%,H|
00000330  79 25 2c 2c 4a 79 25 3a  f7 85 3a f2 59 28 45 25  |y%,,Jy%:..:.Y(E%|
00000340  2c b9 29 0d 00 16 0f cd  3a f7 85 3a f2 53 28 44  |,.).....:..:.S(D|
00000350  25 29 0d 00 17 05 cd 0d  00 18 07 cd 3a e1 0d 00  |%)..........:...|
00000360  19 1e dd a4 6a 28 6b 5f  25 2c 49 25 2c f8 51 24  |....j(k_%,I%,.Q$|
00000370  29 ea 55 25 3a e7 51 24  3d 22 22 8c 0d 00 1a 08  |).U%:.Q$="".....|
00000380  55 25 3d a3 0d 00 1b 4a  cc 55 25 3d 49 25 3e 3d  |U%=....J.U%=I%>=|
00000390  a9 28 51 24 29 3a 4a 25  3d 31 3a c8 95 4a 25 3c  |.(Q$):J%=1:..J%<|
000003a0  3d a9 28 51 24 29 80 55  25 3a 55 25 3d 28 97 28  |=.(Q$).U%:U%=(.(|
000003b0  c1 51 24 2c 4a 25 2c 31  29 29 3d 6b 5f 25 3f 28  |.Q$,J%,1))=k_%?(|
000003c0  4a 25 2d 31 29 29 3a 4a  25 2b 3d 31 3a ce 0d 00  |J%-1)):J%+=1:...|
000003d0  1c 09 cd 3a 3d 55 25 0d  00 1d 58 dd f2 49 5f ea  |...:=U%...X..I_.|
000003e0  46 25 2c 4a 25 2c 53 5f  25 3a 53 5f 25 3d 30 3a  |F%,J%,S_%:S_%=0:|
000003f0  e3 4a 25 3d 30 b8 de 28  41 24 28 29 2c 31 29 3a  |.J%=0..(A$(),1):|
00000400  c8 99 34 36 2c 32 38 30  2c 65 25 2c 41 24 28 4a  |..46,280,e%,A$(J|
00000410  25 29 3a e7 53 5f 25 3c  a9 28 41 24 28 4a 25 29  |%):.S_%<.(A$(J%)|
00000420  29 8c 53 5f 25 3d a9 28  41 24 28 4a 25 29 29 0d  |).S_%=.(A$(J%)).|
00000430  00 1e a1 ed 4a 25 3a de  68 5f 25 53 5f 25 2b 32  |....J%:.h_%S_%+2|
00000440  3a 60 3d 30 3a 46 25 3d  a4 5a 28 35 31 32 29 3a  |:`=0:F%=.Z(512):|
00000450  46 25 21 30 3d 2d 31 3a  46 25 21 34 3d 30 3a 46  |F%!0=-1:F%!4=0:F|
00000460  25 21 38 3d 30 3a 46 25  21 31 32 3d 36 38 3a 46  |%!8=0:F%!12=68:F|
00000470  25 21 31 36 3d 36 38 3a  46 25 21 32 30 3d 31 32  |%!16=68:F%!20=12|
00000480  36 37 34 3a 46 25 21 32  34 3d 68 5f 25 3a 24 68  |674:F%!24=h_%:$h|
00000490  5f 25 3d 41 24 28 60 29  2b bd 28 30 29 3a 46 25  |_%=A$(`)+.(0):F%|
000004a0  21 32 38 3d 65 25 3a 46  25 21 33 32 3d 53 5f 25  |!28=e%:F%!32=S_%|
000004b0  2b 31 3a c8 99 26 34 30  30 63 32 2c 2c 46 25 b8  |+1:..&400c2,,F%.|
000004c0  4b 5f 25 3a f2 43 28 46  25 2c 35 31 32 29 3a e1  |K_%:.C(F%,512):.|
000004d0  0d 00 1f 3e dd f2 55 5f  ea 4f 24 2c 5f 24 2c 59  |...>..U_.O$,_$,Y|
000004e0  24 2c 44 24 2c 6a 24 3a  ea 55 79 3a ea 60 25 2c  |$,D$,j$:.Uy:.`%,|
000004f0  59 5f 25 2c 64 4a 25 2c  66 4a 25 2c 56 5f 25 3a  |Y_%,dJ%,fJ%,V_%:|
00000500  ea 85 3a ee 85 ea f7 85  3a f2 6b 5f 3a e1 0d 00  |..:.....:.k_:...|
00000510  20 b7 4f 24 3d 22 43 46  53 55 74 69 6c 22 3a 5f  | .O$="CFSUtil":_|
00000520  24 3d 22 3c 43 66 73 6d  6f 64 24 44 69 72 3e 2e  |$="<Cfsmod$Dir>.|
00000530  22 3a 59 24 3d 22 52 4d  45 6e 73 75 72 65 20 43  |":Y$="RMEnsure C|
00000540  46 53 55 74 69 6c 20 31  2e 30 30 20 52 4d 4c 6f  |FSUtil 1.00 RMLo|
00000550  61 64 20 3c 4f 62 65 79  24 44 69 72 3e 2e 22 2b  |ad <Obey$Dir>."+|
00000560  4f 24 2b bd 28 31 30 29  3a 44 24 3d 5f 24 2b 22  |O$+.(10):D$=_$+"|
00000570  21 52 75 6e 22 3a 6a 24  3d 22 55 6e 49 6e 73 74  |!Run":j$="UnInst|
00000580  61 6c 6c 20 55 6e 43 46  53 22 2b bd 28 30 29 3a  |all UnCFS"+.(0):|
00000590  55 79 3d 34 30 37 35 3a  f2 76 79 28 44 24 2c 55  |Uy=4075:.vy(D$,U|
000005a0  79 2c 60 25 2c 59 5f 25  2c 64 4a 25 2c 66 4a 25  |y,`%,Y_%,dJ%,fJ%|
000005b0  2c 56 5f 25 29 3a f2 48  5f 3a e7 a4 68 28 5f 24  |,V_%):.H_:..h(_$|
000005c0  2b 4f 24 29 8c 0d 00 21  26 c8 99 35 2c 22 25 52  |+O$)...!&..5,"%R|
000005d0  65 6d 6f 76 65 20 22 2b  5f 24 2b 4f 24 3a e7 a4  |emove "+_$+O$:..|
000005e0  4a 28 32 2c a4 41 28 31  34 29 29 0d 00 22 29 cd  |J(2,.A(14))..").|
000005f0  3a c8 99 26 32 30 30 30  35 2c 22 25 52 4d 4b 69  |:..&20005,"%RMKi|
00000600  6c 6c 20 43 46 53 55 74  69 6c 22 3a f2 53 28 60  |ll CFSUtil":.S(`|
00000610  25 29 3a e1 0d 00 23 1f  dd f2 6b 5f f2 4d 28 22  |%):...#...k_.M("|
00000620  53 79 73 22 2c a4 51 29  3a e7 60 25 8c f2 53 28  |Sys",.Q):.`%..S(|
00000630  60 25 29 0d 00 24 10 e7  a4 4a 28 32 2c a4 41 28  |`%)..$...J(2,.A(|
00000640  31 29 29 0d 00 25 05 e1  0d 00 26 5e dd f2 48 5f  |1))..%....&^..H_|
00000650  ea 51 5f 25 2c 4a 25 3a  51 5f 25 3d 59 5f 25 3e  |.Q_%,J%:Q_%=Y_%>|
00000660  3d a9 28 59 24 29 3a 4a  25 3d 31 3a c8 95 4a 25  |=.(Y$):J%=1:..J%|
00000670  3c 3d a9 28 59 24 29 80  51 5f 25 3a 51 5f 25 3d  |<=.(Y$).Q_%:Q_%=|
00000680  28 97 28 c1 59 24 2c 4a  25 2c 31 29 29 3d 60 25  |(.(.Y$,J%,1))=`%|
00000690  3f 28 4a 25 2d 31 29 29  3a 4a 25 2b 3d 31 3a ce  |?(J%-1)):J%+=1:.|
000006a0  3a e7 51 5f 25 8c 0d 00  27 23 c8 99 38 2c 34 2c  |:.Q_%...'#..8,4,|
000006b0  44 24 2c 2c 2c 2c 56 5f  25 84 33 34 3a ea 85 3a  |D$,,,,V_%.34:..:|
000006c0  ee 85 ea f7 85 3a f2 51  5f 0d 00 28 33 c8 99 38  |.....:.Q_..(3..8|
000006d0  2c 31 30 2c 44 24 2c 55  79 2c 2c 60 25 2b 4a 25  |,10,D$,Uy,,`%+J%|
000006e0  2d 31 2c 60 25 2b 59 5f  25 3a c8 99 38 2c 34 2c  |-1,`%+Y_%:..8,4,|
000006f0  44 24 2c 2c 2c 2c 56 5f  25 3a f7 85 0d 00 29 07  |D$,,,,V_%:....).|
00000700  cd 3a e1 0d 00 2a 65 dd  f2 76 79 28 4d 24 2c 4f  |.:...*e..vy(M$,O|
00000710  75 25 2c f8 6b 5f 25 2c  f8 49 25 2c f8 76 25 2c  |u%,.k_%,.I%,.v%,|
00000720  f8 48 79 25 2c f8 4a 79  25 29 ea 72 25 3a c8 99  |.Hy%,.Jy%).r%:..|
00000730  38 2c 35 2c 4d 24 b8 72  25 2c 2c 76 25 2c 48 79  |8,5,M$.r%,,v%,Hy|
00000740  25 2c 49 25 2c 4a 79 25  3a f2 4d 28 22 52 65 61  |%,I%,Jy%:.M("Rea|
00000750  73 6f 6e 22 2c 4d 24 29  3a e7 72 25 3c 3e 31 8c  |son",M$):.r%<>1.|
00000760  85 31 2c a4 41 28 39 29  0d 00 2b 18 e7 28 4a 79  |.1,.A(9)..+..(Jy|
00000770  25 80 31 29 3d 30 8c 85  31 2c a4 41 28 31 30 29  |%.1)=0..1,.A(10)|
00000780  0d 00 2c 16 e7 28 4a 79  25 80 38 29 8c 85 31 2c  |..,..(Jy%.8)..1,|
00000790  a4 41 28 31 31 29 0d 00  2d 1b e7 a4 53 79 28 76  |.A(11)..-...Sy(v|
000007a0  25 29 3c 3e 4f 75 25 8c  85 31 2c a4 41 28 31 32  |%)<>Ou%..1,.A(12|
000007b0  29 0d 00 2e 13 e7 49 25  3d 30 8c 85 31 2c a4 41  |).....I%=0..1,.A|
000007c0  28 31 33 29 0d 00 2f 1f  f2 42 28 6b 5f 25 2c 49  |(13)../..B(k_%,I|
000007d0  25 29 3a c8 99 38 2c 32  35 35 2c 4d 24 2c 6b 5f  |%):..8,255,M$,k_|
000007e0  25 3a e1 0d 00 30 22 dd  a4 68 28 4d 24 29 ea 72  |%:...0"..h(M$).r|
000007f0  25 3a c8 99 38 2c 35 2c  4d 24 b8 72 25 3a 3d 28  |%:..8,5,M$.r%:=(|
00000800  72 25 3d 31 29 0d 00 31  41 dd f2 51 5f c8 99 26  |r%=1)..1A..Q_..&|
00000810  32 30 30 30 38 2c 30 2c  44 24 2c 64 4a 25 2c 66  |20008,0,D$,dJ%,f|
00000820  4a 25 2c 60 25 2c 60 25  2b 59 5f 25 3a c8 99 26  |J%,`%,`%+Y_%:..&|
00000830  32 30 30 30 38 2c 34 2c  44 24 2c 2c 2c 2c 56 5f  |20008,4,D$,,,,V_|
00000840  25 3a f2 54 3a e1 0d 00  32 2b dd a4 53 79 28 6b  |%:.T:...2+..Sy(k|
00000850  79 25 29 ea 72 25 3a e7  28 6b 79 25 80 2d 31 30  |y%).r%:.(ky%.-10|
00000860  34 38 35 37 36 29 3c 3e  2d 31 30 34 38 35 37 36  |48576)<>-1048576|
00000870  8c 0d 00 33 09 72 25 3d  2d 31 0d 00 34 15 cc 72  |...3.r%=-1..4..r|
00000880  25 3d 28 6b 79 25 3e 3e  38 29 80 34 30 39 35 0d  |%=(ky%>>8).4095.|
00000890  00 35 09 cd 3a 3d 72 25  0d 00 36 16 dd f2 52 5f  |.5..:=r%..6...R_|
000008a0  de 55 79 25 34 3a 21 55  79 25 3d 30 3a e1 0d 00  |.Uy%4:!Uy%=0:...|
000008b0  37 10 dd f2 67 79 28 45  25 2c 45 24 29 e1 0d 00  |7...gy(E%,E$)...|
000008c0  38 10 dd f2 41 79 c8 8e  57 25 21 31 36 ca 0d 00  |8...Ay..W%!16...|
000008d0  39 0d c9 31 32 38 32 3a  f2 57 5f 0d 00 3a 0f c9  |9..1282:.W_..:..|
000008e0  26 34 30 30 63 30 3a f2  66 79 0d 00 3b 0a c9 33  |&400c0:.fy..;..3|
000008f0  3a f2 72 5f 0d 00 3c 0f  c9 26 34 30 30 63 31 3a  |:.r_..<..&400c1:|
00000900  f2 5a 79 0d 00 3d 0a c9  38 3a f2 58 79 0d 00 3e  |.Zy..=..8:.Xy..>|
00000910  0f c9 26 34 30 30 63 63  3a f2 7a 79 0d 00 3f 0b  |..&400cc:.zy..?.|
00000920  c9 31 30 3a f2 59 5f 0d  00 40 09 c9 30 3a f2 46  |.10:.Y_..@..0:.F|
00000930  0d 00 41 07 cb 3a e1 0d  00 42 16 dd f2 5f 5f c8  |..A..:...B...__.|
00000940  99 26 34 30 30 63 35 2c  2c 57 25 3a e1 0d 00 43  |.&400c5,,W%:...C|
00000950  16 dd f2 72 79 c8 99 26  34 30 30 63 36 2c 2c 57  |...ry..&400c6,,W|
00000960  25 3a e1 0d 00 44 10 dd  f2 63 5f e7 21 57 25 3d  |%:...D...c_.!W%=|
00000970  58 25 8c 0d 00 45 13 f2  6a 79 28 57 25 21 34 2c  |X%...E..jy(W%!4,|
00000980  57 25 21 32 34 29 0d 00  46 13 cc c8 99 26 34 30  |W%!24)..F....&40|
00000990  30 64 63 2c 57 25 21 32  34 0d 00 47 07 cd 3a e1  |0dc,W%!24..G..:.|
000009a0  0d 00 48 32 dd f2 59 79  ea 51 4a 25 2c 48 4a 25  |..H2..Yy.QJ%,HJ%|
000009b0  3a 48 4a 25 3d b9 3a f5  c8 99 26 34 30 30 63 37  |:HJ%=.:...&400c7|
000009c0  2c 5f 79 25 2c 57 25 b8  51 4a 25 3a c8 8e 51 4a  |,_y%,W%.QJ%:..QJ|
000009d0  25 ca 0d 00 49 0a c9 30  3a f2 68 5f 0d 00 4a 0a  |%...I..0:.h_..J.|
000009e0  c9 32 3a f2 5f 5f 0d 00  4b 0a c9 33 3a f2 72 79  |.2:.__..K..3:.ry|
000009f0  0d 00 4c 0a c9 36 3a f2  74 5f 0d 00 4d 0a c9 38  |..L..6:.t_..M..8|
00000a00  3a f2 63 5f 0d 00 4e 0a  c9 39 3a f2 73 5f 0d 00  |:.c_..N..9:.s_..|
00000a10  4f 0b c9 31 37 3a f2 41  79 0d 00 50 0b c9 31 38  |O..17:.Ay..P..18|
00000a20  3a f2 42 5f 0d 00 51 0f  cb 3a fd ac 28 48 4a 25  |:.B_..Q..:..(HJ%|
00000a30  29 3a e1 0d 00 52 1f dd  f2 48 79 ea 61 25 2c 53  |):...R...Hy.a%,S|
00000a40  4a 25 2c 5a 24 3a ea dc  3a f7 2b 30 3a e7 45 5f  |J%,Z$:..:.+0:.E_|
00000a50  25 8c 0d 00 53 28 61 25  3d 21 28 a4 43 28 22 50  |%...S(a%=!(.C("P|
00000a60  72 6f 67 49 6e 66 6f 22  29 2b 46 2b 38 38 2b 28  |rogInfo")+F+88+(|
00000a70  51 79 3c 3c 35 29 2b 32  30 29 0d 00 54 11 cc 61  |Qy<<5)+20)..T..a|
00000a80  25 3d a4 69 28 73 25 2c  51 79 29 0d 00 55 4c cd  |%=.i(s%,Qy)..UL.|
00000a90  3a f3 5a 24 3a 53 4a 25  3d 97 28 5a 24 29 3a 5a  |:.Z$:SJ%=.(Z$):Z|
00000aa0  24 3d c1 5a 24 2c 32 29  3a c8 95 5a 24 3c 3e 22  |$=.Z$,2):..Z$<>"|
00000ab0  22 3a 3f 61 25 3d 97 28  5a 24 29 82 53 4a 25 3a  |":?a%=.(Z$).SJ%:|
00000ac0  5a 24 3d c1 5a 24 2c 32  29 3a 61 25 2b 3d 31 3a  |Z$=.Z$,2):a%+=1:|
00000ad0  ce 3a 3f 61 25 3d 30 0d  00 56 38 dc 22 ce 9b a0  |.:?a%=0..V8."...|
00000ae0  bc ab a9 a7 bd ba ab bc  ab aa 22 2c 2c 2c 2c 2c  |..........",,,,,|
00000af0  2c 2c 2c 2c 2c 2c 2c 2c  2c 2c 2c 2c 2c 2c 2c 2c  |,,,,,,,,,,,,,,,,|
00000b00  2c 2c 2c 2c 2c 2c 2c 2c  2c 2c 2c 2c 2c 2c 2c 0d  |,,,,,,,,,,,,,,,.|
00000b10  00 57 05 e1 0d 00 58 14  dd f2 7a 5f 28 62 24 2c  |.W....X...z_(b$,|
00000b20  4e 79 25 29 ee 85 f2 65  0d 00 59 7b f2 44 79 28  |Ny%)...e..Y{.Dy(|
00000b30  32 30 2c 31 32 29 3a 56  79 25 3d 2d 32 3a 59 79  |20,12):Vy%=-2:Yy|
00000b40  25 3d a3 3a 42 79 25 3d  a3 3a 42 79 25 3d a3 3a  |%=.:By%=.:By%=.:|
00000b50  59 79 25 3d b9 3a 56 79  25 3d 2d 33 3a f2 41 28  |Yy%=.:Vy%=-3:.A(|
00000b60  22 3c 42 61 73 69 63 56  24 4c 69 62 3e 2e 43 41  |"<BasicV$Lib>.CA|
00000b70  73 6d 22 2c 31 29 3a f2  41 28 22 3c 42 61 73 69  |sm",1):.A("<Basi|
00000b80  63 56 24 4c 69 62 3e 2e  54 65 6d 70 6c 61 74 65  |cV$Lib>.Template|
00000b90  22 2c 32 31 29 3a 61 5f  25 3d 59 79 25 3a 6d 25  |",21):a_%=Yy%:m%|
00000ba0  3d 2b 31 0d 00 5a 88 45  4a 25 3d b9 3a 69 79 25  |=+1..Z.EJ%=.:iy%|
00000bb0  3d 30 3a 6f 79 25 3d 30  3a f2 54 5f 28 22 73 74  |=0:oy%=0:.T_("st|
00000bc0  64 69 6f 2c 20 73 74 64  6c 69 62 2c 20 73 74 72  |dio, stdlib, str|
00000bd0  69 6e 67 2c 20 6d 65 73  73 61 67 65 2c 20 77 69  |ing, message, wi|
00000be0  6d 70 22 29 3a f2 68 79  28 32 30 30 30 2c a3 2c  |mp"):.hy(2000,.,|
00000bf0  a3 29 3a f2 41 28 22 3c  42 61 73 69 63 56 24 4c  |.):.A("<BasicV$L|
00000c00  69 62 3e 2e 4d 6f 64 65  49 6e 66 6f 22 2c 31 29  |ib>.ModeInfo",1)|
00000c10  3a f2 41 28 22 3c 42 61  73 69 63 56 24 4c 69 62  |:.A("<BasicV$Lib|
00000c20  3e 2e 57 69 6d 70 22 2c  32 38 29 0d 00 5b 7e f2  |>.Wimp",28)..[~.|
00000c30  41 28 22 3c 42 61 73 69  63 56 24 4c 69 62 3e 2e  |A("<BasicV$Lib>.|
00000c40  46 69 6c 65 54 79 70 65  22 2c 32 29 3a f2 41 28  |FileType",2):.A(|
00000c50  22 3c 42 61 73 69 63 56  24 4c 69 62 3e 2e 66 69  |"<BasicV$Lib>.fi|
00000c60  6c 65 5f 69 6f 22 2c 39  29 3a f2 41 28 22 3c 42  |le_io",9):.A("<B|
00000c70  61 73 69 63 56 24 4c 69  62 3e 2e 73 74 72 69 6e  |asicV$Lib>.strin|
00000c80  67 22 2c 36 29 3a 6c 25  3d a4 66 28 22 3c 55 6e  |g",6):l%=.f("<Un|
00000c90  43 46 53 24 44 69 72 3e  22 2c 2d 31 2c 55 5f 25  |CFS$Dir>",-1,U_%|
00000ca0  29 3a e7 55 5f 25 3e 30  8c 0d 00 5c 38 85 21 6c  |):.U_%>0...\8.!l|
00000cb0  25 2c 22 55 6e 43 46 53  20 63 61 6e 27 74 20 6c  |%,"UnCFS can't l|
00000cc0  6f 61 64 20 69 74 73 27  20 6d 65 73 73 61 67 65  |oad its' message|
00000cd0  20 66 69 6c 65 3a 20 22  2b a4 47 28 6c 25 2b 34  | file: "+.G(l%+4|
00000ce0  29 0d 00 5d 16 cd 3a e7  4e 79 25 8c 4e 79 25 3d  |)..]..:.Ny%.Ny%=|
00000cf0  32 8b 4e 79 25 3d 31 0d  00 5e d8 f2 77 28 22 50  |2.Ny%=1..^..w("P|
00000d00  61 74 63 68 69 6e 67 22  2c 4e 79 25 29 3a f2 77  |atching",Ny%):.w|
00000d10  28 22 70 61 74 63 68 69  6e 67 22 2c 4e 79 25 29  |("patching",Ny%)|
00000d20  3a f2 77 28 22 70 61 74  63 68 65 64 22 2c 4e 79  |:.w("patched",Ny|
00000d30  25 29 3a f2 77 28 22 70  61 74 63 68 22 2c 4e 79  |%):.w("patch",Ny|
00000d40  25 29 3a 68 24 3d 22 46  6f 72 63 65 43 46 53 22  |%):h$="ForceCFS"|
00000d50  2b bd 28 31 30 29 3a 4e  4a 25 3d 30 3a 58 4a 25  |+.(10):NJ%=0:XJ%|
00000d60  3d 31 3a 77 4a 25 3d 32  3a 70 4a 25 3d 30 3a 5f  |=1:wJ%=2:pJ%=0:_|
00000d70  5f 25 3d 30 3a 6e 5f 25  3d 31 3a 72 5f 25 3d 32  |_%=0:n_%=1:r_%=2|
00000d80  3a 6f 5f 25 3d 33 3a 63  5f 25 3d 34 3a 57 4a 25  |:o_%=3:c_%=4:WJ%|
00000d90  3d 36 3a 47 4a 25 3d 37  3a 43 4a 25 3d 38 3a 6f  |=6:GJ%=7:CJ%=8:o|
00000da0  4a 25 3d 39 3a 58 79 3d  36 30 2d 31 3a 74 3d 32  |J%=9:Xy=60-1:t=2|
00000db0  3a 65 3d 34 3a 4e 3d 35  3a 51 3d 37 3a 55 3d 39  |:e=4:N=5:Q=7:U=9|
00000dc0  3a 57 3d 31 31 3a 52 3d  31 33 3a 42 3d 31 34 0d  |:W=11:R=13:B=14.|
00000dd0  00 5f 85 6d 79 3d 31 37  3a 49 3d 31 38 3a 4d 79  |._.my=17:I=18:My|
00000de0  25 3d 30 3a de 5a 24 28  35 29 3a 5a 24 28 29 3d  |%=0:.Z$(5):Z$()=|
00000df0  22 21 42 6f 6f 74 22 2c  22 21 52 75 6e 22 2c 22  |"!Boot","!Run","|
00000e00  21 53 70 72 69 74 65 73  32 32 22 2c 22 21 53 70  |!Sprites22","!Sp|
00000e10  72 69 74 65 73 32 33 22  2c 22 21 53 70 72 69 74  |rites23","!Sprit|
00000e20  65 73 33 33 22 2c 22 21  53 70 72 69 74 65 73 33  |es33","!Sprites3|
00000e30  32 22 3a de 45 25 28 de  28 5a 24 28 29 2c 31 29  |2":.E%(.(Z$(),1)|
00000e40  29 3a 45 25 28 29 3d 41  79 2c 41 79 2c 6a 2c 6a  |):E%()=Ay,Ay,j,j|
00000e50  2c 6a 2c 6a 0d 00 60 82  de 41 24 28 31 29 3a 41  |,j,j..`..A$(1):A|
00000e60  24 28 29 3d 22 21 75 6e  63 66 73 22 2c 22 62 75  |$()="!uncfs","bu|
00000e70  73 79 22 3a 47 75 25 3d  a3 3a 45 5f 25 3d b9 3a  |sy":Gu%=.:E_%=.:|
00000e80  75 25 3d b9 3a 47 24 3d  22 26 35 30 32 2c 26 34  |u%=.:G$="&502,&4|
00000e90  30 30 63 30 2c 33 2c 26  34 30 30 63 31 2c 38 2c  |00c0,3,&400c1,8,|
00000ea0  26 34 30 30 63 63 2c 31  30 22 3a f2 52 79 28 62  |&400cc,10":.Ry(b|
00000eb0  24 2c 31 2c 32 30 2c 32  33 2c 37 2c 31 39 39 34  |$,1,20,23,7,1994|
00000ec0  29 3a 42 79 25 3d 59 79  25 3a f2 75 5f 3a f2 55  |):By%=Yy%:.u_:.U|
00000ed0  5f 3a ee 85 f2 65 0d 00  61 13 f2 77 79 3a f5 f2  |_:...e..a..wy:..|
00000ee0  59 79 3a fd a3 3a e0 3a  e1 0d 00 62 e1 dd f2 76  |Yy:..:.:...b...v|
00000ef0  ea 6e 79 2c 62 3a 67 3d  30 3c 3c 32 3a 71 3d 31  |.ny,b:g=0<<2:q=1|
00000f00  3c 3c 32 3a 4a 3d 32 3c  3c 32 3a 45 3d 33 3c 3c  |<<2:J=2<<2:E=3<<|
00000f10  32 3a 59 3d 34 3c 3c 32  3a 54 3d 35 3c 3c 32 3a  |2:Y=4<<2:T=5<<2:|
00000f20  77 3d 36 3c 3c 32 3a 4b  3d 37 3c 3c 32 3a 53 3d  |w=6<<2:K=7<<2:S=|
00000f30  38 3c 3c 32 3a 68 3d 39  3c 3c 32 3a 58 3d 31 30  |8<<2:h=9<<2:X=10|
00000f40  3c 3c 32 3a 4c 3d 31 32  3c 3c 32 3a 47 79 3d 31  |<<2:L=12<<2:Gy=1|
00000f50  33 3c 3c 32 3a 4d 79 3d  31 34 3c 3c 32 3a 46 79  |3<<2:My=14<<2:Fy|
00000f60  3d 31 35 3c 3c 32 3a 48  79 3d 31 36 3c 3c 32 3a  |=15<<2:Hy=16<<2:|
00000f70  4d 3d 31 37 3c 3c 32 3a  66 3d 31 38 3c 3c 32 3a  |M=17<<2:f=18<<2:|
00000f80  69 3d 31 39 3c 3c 32 3a  4e 79 3d 30 3c 3c 32 3a  |i=19<<2:Ny=0<<2:|
00000f90  53 79 3d 31 3c 3c 32 3a  70 3d 32 3c 3c 32 3a 44  |Sy=1<<2:p=2<<2:D|
00000fa0  3d 33 3c 3c 32 3a 48 3d  30 3a 56 3d 31 3a 50 3d  |=3<<2:H=0:V=1:P=|
00000fb0  32 3a 61 3d 33 3a 64 3d  34 3a 43 3d 35 3a 5b 4f  |2:a=3:d=4:C=5:[O|
00000fc0  50 54 4e 25 3a 41 4c 49  47 4e 0d 00 63 a0 2e 6e  |PTN%:ALIGN..c..n|
00000fd0  79 20 45 51 55 53 22 5b  30 2c 77 3e 2c 3e 2c 3e  |y EQUS"[0,w>,>,>|
00000fe0  22 3a 44 43 42 30 3a 2e  4f 79 20 45 51 55 53 22  |":DCB0:.Oy EQUS"|
00000ff0  5b 31 30 30 2c 3c 74 3e  22 3a 44 43 42 30 3a 41  |[100,<t>":DCB0:A|
00001000  4c 49 47 4e 3a 2e 62 20  44 43 44 30 3a 2e 73 20  |LIGN:.b DCD0:.s |
00001010  44 43 44 30 3a 2e 7a 20  44 43 44 30 3a 2e 5f 20  |DCD0:.z DCD0:._ |
00001020  44 43 44 30 3a 2e 4f 20  44 43 44 30 3a 41 4c 49  |DCD0:.O DCD0:ALI|
00001030  47 4e 3a 2e 52 79 3a a4  46 3a 53 54 4d 46 44 28  |GN:.Ry:.F:STMFD(|
00001040  41 29 21 2c 7b 34 2d 39  2c 5a 7d 3a 4d 4f 56 31  |A)!,{4-9,Z}:MOV1|
00001050  2c 23 30 3a 41 44 52 30  2c 6e 79 3a 42 4c 20 42  |,#0:ADR0,ny:BL B|
00001060  79 3a 53 54 52 76 63 30  2c 62 0d 00 64 a3 41 44  |y:STRvc0,b..d.AD|
00001070  52 76 63 30 2c 62 3a 4c  44 4d 46 44 28 41 29 21  |Rvc0,b:LDMFD(A)!|
00001080  2c 7b 34 2d 39 2c 70 63  7d 3a 2e 68 79 3a a4 46  |,{4-9,pc}:.hy:.F|
00001090  3a 53 54 4d 46 44 28 41  29 21 2c 7b 34 2d 39 2c  |:STMFD(A)!,{4-9,|
000010a0  5a 7d 3a 4c 44 52 30 2c  5b 30 2c 23 4d 5d 3a 53  |Z}:LDR0,[0,#M]:S|
000010b0  54 4d 46 44 28 41 29 21  2c 7b 30 7d 3a 4d 4f 56  |TMFD(A)!,{0}:MOV|
000010c0  31 2c 23 30 3a 41 44 52  30 2c 4f 79 3a 42 4c 20  |1,#0:ADR0,Oy:BL |
000010d0  42 79 3a 41 44 44 20 41  2c 41 2c 23 31 3c 3c 32  |By:ADD A,A,#1<<2|
000010e0  3a 53 54 52 76 63 30 2c  62 3a 41 44 52 76 63 30  |:STRvc0,b:ADRvc0|
000010f0  2c 62 3a 4c 44 4d 46 44  28 41 29 21 2c 7b 34 2d  |,b:LDMFD(A)!,{4-|
00001100  39 2c 70 63 7d 3a 5d 3a  f2 66 5f 3a e1 0d 00 65  |9,pc}:]:.f_:...e|
00001110  09 dd f2 4a 79 e1 0d 00  66 60 dd f2 71 5f 3a 67  |...Jy...f`..q_:g|
00001120  79 25 3d 2d 31 32 33 31  34 3a f2 71 28 22 46 43  |y%=-12314:.q("FC|
00001130  6f 6e 76 65 72 74 22 2c  2b 31 2c 22 53 74 61 74  |onvert",+1,"Stat|
00001140  75 73 57 22 29 3a f2 71  28 22 43 68 6f 69 63 65  |usW"):.q("Choice|
00001150  73 22 2c 2b 31 2c 22 43  68 6f 69 63 65 73 57 22  |s",+1,"ChoicesW"|
00001160  29 3a 58 25 3d 30 3a 62  75 25 3d 30 3a f2 52 5f  |):X%=0:bu%=0:.R_|
00001170  3a f2 48 79 3a e1 0d 00  67 7d dd a4 53 74 61 74  |:.Hy:...g}..Stat|
00001180  75 73 57 28 5a 25 29 f2  4c 5f 28 5a 25 29 3a 68  |usW(Z%).L_(Z%):h|
00001190  4a 25 3d 5a 25 21 31 36  3a 79 4a 25 3d 5a 25 21  |J%=Z%!16:yJ%=Z%!|
000011a0  32 30 3a 76 4a 25 3d 5a  25 21 38 2d 5a 25 21 30  |20:vJ%=Z%!8-Z%!0|
000011b0  3a 60 4a 25 3d 5a 25 21  31 32 2d 5a 25 21 34 3a  |:`J%=Z%!12-Z%!4:|
000011c0  73 5f 25 3d 5a 25 21 34  38 2d 5a 25 21 34 30 3a  |s_%=Z%!48-Z%!40:|
000011d0  7a 5f 25 3d 5a 25 21 35  32 2d 5a 25 21 34 34 3a  |z_%=Z%!52-Z%!44:|
000011e0  f2 50 28 5a 25 2c 4e 2c  a4 45 28 22 4e 6f 6e 65  |.P(Z%,N,.E("None|
000011f0  22 29 29 0d 00 68 87 f2  50 28 5a 25 2c 4e 2b 31  |"))..h..P(Z%,N+1|
00001200  2c a4 45 28 22 46 53 63  61 6e 30 22 29 29 3a f2  |,.E("FScan0")):.|
00001210  50 28 5a 25 2c 51 2c a4  45 28 22 4e 6f 6e 65 22  |P(Z%,Q,.E("None"|
00001220  29 29 3a f2 50 28 5a 25  2c 51 2b 31 2c a4 45 28  |)):.P(Z%,Q+1,.E(|
00001230  22 46 43 6f 6e 76 30 22  29 29 3a f2 50 28 5a 25  |"FConv0")):.P(Z%|
00001240  2c 55 2c a4 45 28 22 4e  6f 6e 65 22 29 29 3a f2  |,U,.E("None")):.|
00001250  50 28 5a 25 2c 55 2b 31  2c a4 45 28 22 41 53 63  |P(Z%,U+1,.E("ASc|
00001260  61 6e 30 22 29 29 3a f2  50 28 5a 25 2c 57 2c a4  |an0")):.P(Z%,W,.|
00001270  45 28 22 4e 6f 6e 65 22  29 29 0d 00 69 84 f2 50  |E("None"))..i..P|
00001280  28 5a 25 2c 57 2b 31 2c  a4 45 28 22 41 43 6f 6e  |(Z%,W+1,.E("ACon|
00001290  76 30 22 29 29 3a f2 50  28 5a 25 2c 65 2c 22 22  |v0")):.P(Z%,e,""|
000012a0  29 3a f2 50 28 5a 25 2c  74 2c 22 22 29 3a f2 50  |):.P(Z%,t,""):.P|
000012b0  28 5a 25 2c 52 2c a4 45  28 22 41 62 72 74 22 29  |(Z%,R,.E("Abrt")|
000012c0  29 3a f2 50 28 5a 25 2c  65 2d 31 2c a4 45 28 22  |):.P(Z%,e-1,.E("|
000012d0  50 61 74 63 68 69 6e 67  22 29 29 3a f2 78 28 5a  |Patching")):.x(Z|
000012e0  25 21 37 32 2c c0 a4 45  28 22 54 69 74 6c 65 22  |%!72,..E("Title"|
000012f0  29 2c 5a 25 21 38 30 2d  31 29 29 3a 3d 30 0d 00  |),Z%!80-1)):=0..|
00001300  6a 36 dd a4 43 68 6f 69  63 65 73 57 28 5a 25 29  |j6..ChoicesW(Z%)|
00001310  f2 78 28 5a 25 21 37 32  2c c0 a4 45 28 22 43 68  |.x(Z%!72,..E("Ch|
00001320  6f 69 63 65 73 22 29 2c  5a 25 21 38 30 2d 31 29  |oices"),Z%!80-1)|
00001330  29 3a 3d 30 0d 00 6b 3a  dd f2 50 28 5a 25 2c 4a  |):=0..k:..P(Z%,J|
00001340  25 2c 71 24 29 4a 25 3d  5a 25 2b 38 38 2b 28 4a  |%,q$)J%=Z%+88+(J|
00001350  25 2a 33 32 29 3a f2 78  28 4a 25 21 32 30 2c c0  |%*32):.x(J%!20,.|
00001360  71 24 2c 4a 25 21 32 38  2d 31 29 29 3a e1 0d 00  |q$,J%!28-1)):...|
00001370  6c 25 dd f2 50 5f 28 63  25 2c 62 25 2c 59 25 2c  |l%..P_(c%,b%,Y%,|
00001380  54 25 29 63 25 3d a4 4a  28 31 2c a4 41 28 32 29  |T%)c%=.J(1,.A(2)|
00001390  29 3a e1 0d 00 6d 19 dd  a4 65 28 5a 25 2c f8 45  |):...m...e(Z%,.E|
000013a0  25 29 ea 46 5f 25 3a c8  8e 5a 25 ca 0d 00 6e 07  |%).F_%:..Z%...n.|
000013b0  c9 2d 32 0d 00 6f 07 c9  73 25 0d 00 70 09 c9 21  |.-2..o..s%..p..!|
000013c0  55 79 25 0d 00 71 07 c9  58 25 0d 00 72 37 7f 45  |Uy%..q..X%..r7.E|
000013d0  25 3d 4d 79 25 3a 46 5f  25 3d a3 3a c8 95 45 25  |%=My%:F_%=.:..E%|
000013e0  80 ac 46 5f 25 3a 46 5f  25 3d 28 5a 25 3d 45 25  |..F_%:F_%=(Z%=E%|
000013f0  21 45 29 3a e7 ac 46 5f  25 8c 45 25 3d 45 25 21  |!E):..F_%.E%=E%!|
00001400  71 0d 00 73 0b ce 3a e7  46 5f 25 8c 0d 00 74 0a  |q..s..:.F_%...t.|
00001410  5a 25 3d 67 79 25 0d 00  75 05 cd 0d 00 76 09 cb  |Z%=gy%..u....v..|
00001420  3a 3d 5a 25 0d 00 77 3c  dd f2 57 5f ea 41 24 2c  |:=Z%..w<..W_.A$,|
00001430  71 25 2c 54 25 2c 41 25  2c 4a 25 2c 44 25 2c 45  |q%,T%,A%,J%,D%,E|
00001440  25 3a 41 24 3d 22 22 3a  54 25 3d 57 25 21 33 36  |%:A$="":T%=W%!36|
00001450  3a c8 8e a4 65 28 57 25  21 33 32 2c 45 25 29 ca  |:...e(W%!32,E%).|
00001460  0d 00 78 10 c9 2d 32 3a  e7 54 25 3d 4b 5f 25 8c  |..x..-2:.T%=K_%.|
00001470  0d 00 79 10 41 24 3d 22  49 63 6f 6e 42 61 72 22  |..y.A$="IconBar"|
00001480  0d 00 7a 05 cd 0d 00 7b  15 c9 73 25 3a 41 24 3d  |..z....{..s%:A$=|
00001490  22 50 72 6f 67 49 6e 66  6f 22 0d 00 7c 18 c9 21  |"ProgInfo"..|..!|
000014a0  55 79 25 3a 41 24 3d 22  53 68 61 72 65 57 61 72  |Uy%:A$="ShareWar|
000014b0  65 22 0d 00 7d 1c c9 58  25 3a 41 24 3d 22 43 68  |e"..}..X%:A$="Ch|
000014c0  6f 69 63 65 73 22 3a e7  54 25 3e 3d 30 8c 0d 00  |oices":.T%>=0...|
000014d0  7e 11 41 24 2b 3d 22 2c  22 2b c3 28 54 25 29 0d  |~.A$+=","+.(T%).|
000014e0  00 7f 05 cd 0d 00 80 19  c9 67 79 25 3a 41 24 3d  |.........gy%:A$=|
000014f0  22 53 74 61 74 75 73 22  3a e7 54 25 8c 0d 00 81  |"Status":.T%....|
00001500  11 41 24 2b 3d 22 2c 22  2b c3 28 54 25 29 0d 00  |.A$+=","+.(T%)..|
00001510  82 0d cd 3a c8 8e 45 25  21 53 ca 0d 00 83 13 c9  |...:..E%!S......|
00001520  50 2c 48 2c 56 3a 41 24  2b 3d 22 2c 50 22 0d 00  |P,H,V:A$+=",P"..|
00001530  84 0f c9 43 3a 41 24 2b  3d 22 2c 53 22 0d 00 85  |...C:A$+=",S"...|
00001540  0f c9 61 3a 41 24 2b 3d  22 2c 43 22 0d 00 86 0f  |..a:A$+=",C"....|
00001550  c9 64 3a 41 24 2b 3d 22  2c 44 22 0d 00 87 05 cb  |.d:A$+=",D".....|
00001560  0d 00 88 1c 7f e7 28 47  5f 25 3e 32 31 38 29 80  |......(G_%>218).|
00001570  28 57 25 21 33 36 3c 3e  2d 31 29 8c 0d 00 89 0a  |(W%!36<>-1).....|
00001580  41 24 3d a4 43 79 0d 00  8a 05 cd 0d 00 8b 0e cb  |A$=.Cy..........|
00001590  3a e7 41 24 3c 3e 22 22  8c 0d 00 8c 1c f2 70 28  |:.A$<>""......p(|
000015a0  22 48 22 2b 41 24 2c 57  25 2b 32 30 29 3a e7 57  |"H"+A$,W%+20):.W|
000015b0  25 3f 32 30 8c 0d 00 8d  4e 57 25 21 31 36 3d 31  |%?20....NW%!16=1|
000015c0  32 38 33 3a 57 25 21 31  32 3d 57 25 21 38 3a 41  |283:W%!12=W%!8:A|
000015d0  25 3d 57 25 2b 32 30 3a  c8 95 3f 41 25 3a 41 25  |%=W%+20:..?A%:A%|
000015e0  2b 3d 31 3a ce 3a e7 41  25 3e 3d 28 57 25 2b 32  |+=1:.:.A%>=(W%+2|
000015f0  35 36 29 8c 41 25 3d 57  25 2b 32 35 35 3a 3f 41  |56).A%=W%+255:?A|
00001600  25 3d 30 0d 00 8e 29 57  25 21 30 3d 28 41 25 2d  |%=0...)W%!0=(A%-|
00001610  57 25 2b 34 29 80 2d 34  3a c8 99 26 34 30 30 65  |W%+4).-4:..&400e|
00001620  37 2c 31 37 2c 57 25 2c  57 25 21 34 0d 00 8f 05  |7,17,W%,W%!4....|
00001630  cd 0d 00 90 07 cd 3a e1  0d 00 91 38 dd a4 43 79  |......:....8..Cy|
00001640  ea 41 24 2c 5a 25 3a 5a  25 3d 57 25 2b 34 30 3a  |.A$,Z%:Z%=W%+40:|
00001650  c8 99 26 34 30 30 66 34  2c 31 2c 5a 25 2c 57 25  |..&400f4,1,Z%,W%|
00001660  21 33 32 2c 57 25 21 33  36 3a c8 8e 5a 79 25 ca  |!32,W%!36:..Zy%.|
00001670  0d 00 92 0f c9 78 79 25  3a 41 24 3d 22 49 22 0d  |.....xy%:A$="I".|
00001680  00 93 0f c9 6c 79 25 3a  41 24 3d 22 44 22 0d 00  |....ly%:A$="D"..|
00001690  94 0e cb 3a e7 41 24 3c  3e 22 22 8c 0d 00 95 37  |...:.A$<>""....7|
000016a0  41 24 3d 22 4d 22 2b 41  24 2b c3 28 21 5a 25 29  |A$="M"+A$+.(!Z%)|
000016b0  3a c8 95 5a 25 21 34 3c  3e 2d 31 3a 5a 25 2b 3d  |:..Z%!4<>-1:Z%+=|
000016c0  34 3a 41 24 2b 3d 22 5f  2c 22 2b c3 28 21 5a 25  |4:A$+="_,"+.(!Z%|
000016d0  29 3a ce 0d 00 96 09 cd  3a 3d 41 24 0d 00 97 21  |):......:=A$...!|
000016e0  dd f2 5a 79 f2 41 5f 28  2d 31 29 3a c8 99 26 34  |..Zy.A_(-1):..&4|
000016f0  36 35 63 32 2c 5f 25 3a  f2 5f 79 3a e1 0d 00 98  |65c2,_%:._y:....|
00001700  2f dd f2 46 ee 85 3a ee  85 87 3a 85 a2 31 2c 22  |/..F..:...:..1,"|
00001710  45 72 72 6f 72 20 69 6e  20 65 72 72 6f 72 20 68  |Error in error h|
00001720  61 6e 64 6c 65 72 3a 20  22 2b f6 24 0d 00 99 1b  |andler: "+.$....|
00001730  f2 51 79 3a f2 45 5f 3a  d6 6d 3a c8 99 26 34 30  |.Qy:.E_:.m:..&40|
00001740  30 64 64 3a e0 3a e1 0d  00 9a 0c dd f2 79 5f e7  |0dd:.:.......y_.|
00001750  a4 77 8c 0d 00 9b 06 f2  46 0d 00 9c 07 cd 3a e1  |.w......F.....:.|
00001760  0d 00 9d 42 dd a4 77 ea  65 79 25 2c 45 25 3a 65  |...B..w.ey%,E%:e|
00001770  79 25 3d b9 3a 45 25 3d  4d 79 25 3a c8 95 45 25  |y%=.:E%=My%:..E%|
00001780  80 65 79 25 3a 65 79 25  3d 28 45 25 21 53 3d 64  |.ey%:ey%=(E%!S=d|
00001790  29 3a 45 25 3d 45 25 21  71 3a ce 3a e7 ac 65 79  |):E%=E%!q:.:..ey|
000017a0  25 8c 0d 00 9e 17 65 79  25 3d 28 a4 4a 28 33 2c  |%.....ey%=(.J(3,|
000017b0  a4 41 28 35 29 29 3d 31  29 0d 00 9f 0a cd 3a 3d  |.A(5))=1).....:=|
000017c0  65 79 25 0d 00 a0 0c dd  f2 58 79 e7 a4 77 8c 0d  |ey%......Xy..w..|
000017d0  00 a1 06 f2 46 0d 00 a2  2c cc 57 25 21 31 32 3d  |....F...,.W%!12=|
000017e0  57 25 21 38 3a 52 75 25  3d 57 25 21 34 3a c8 99  |W%!8:Ru%=W%!4:..|
000017f0  26 34 30 30 65 37 2c 31  39 2c 57 25 2c 57 25 21  |&400e7,19,W%,W%!|
00001800  34 0d 00 a3 07 cd 3a e1  0d 00 a4 58 dd f2 74 5f  |4.....:....X..t_|
00001810  ea 63 25 2c 62 25 2c 59  25 2c 5a 25 2c 54 25 2c  |.c%,b%,Y%,Z%,T%,|
00001820  53 5f 25 2c 44 25 2c 45  25 3a 63 25 3d 57 25 21  |S_%,D%,E%:c%=W%!|
00001830  30 3a 62 25 3d 57 25 21  34 3a 59 25 3d 57 25 21  |0:b%=W%!4:Y%=W%!|
00001840  38 3a 5a 25 3d a4 65 28  57 25 21 31 32 2c 45 25  |8:Z%=.e(W%!12,E%|
00001850  29 3a 54 25 3d 57 25 21  31 36 3a c8 8e 59 25 ca  |):T%=W%!16:..Y%.|
00001860  0d 00 a5 0c c9 32 3a c8  8e 5a 25 ca 0d 00 a6 3a  |.....2:..Z%....:|
00001870  c9 2d 32 3a f2 4e 79 3a  62 25 3d 39 36 2b 28 34  |.-2:.Ny:b%=96+(4|
00001880  34 2a 55 4a 25 29 2b 28  32 34 2a 6b 4a 25 29 3a  |4*UJ%)+(24*kJ%):|
00001890  c8 99 26 34 30 30 64 34  2c 2c 49 79 25 2c 63 25  |..&400d4,,Iy%,c%|
000018a0  2d 36 34 2c 62 25 0d 00  a7 0d c9 21 55 79 25 3a  |-64,b%.....!Uy%:|
000018b0  f2 42 79 0d 00 a8 26 c9  67 79 25 3a f2 6b 28 45  |.By...&.gy%:.k(E|
000018c0  25 29 3a c8 99 26 34 30  30 64 34 2c 2c 49 79 25  |%):..&400d4,,Iy%|
000018d0  2c 63 25 2d 36 34 2c 62  25 0d 00 a9 05 cb 0d 00  |,c%-64,b%.......|
000018e0  aa 14 c9 31 2a 31 36 2c  34 2a 31 36 3a c8 8e 5a  |...1*16,4*16:..Z|
000018f0  25 ca 0d 00 ab 18 c9 73  25 3a f2 47 79 28 63 25  |%......s%:.Gy(c%|
00001900  2c 62 25 2c 59 25 2c 54  25 29 0d 00 ac 05 cb 0d  |,b%,Y%,T%)......|
00001910  00 ad 0a 7f c8 8e 5a 25  ca 0d 00 ae 18 c9 2d 32  |......Z%......-2|
00001920  3a f2 50 5f 28 63 25 2c  62 25 2c 59 25 2c 54 25  |:.P_(c%,b%,Y%,T%|
00001930  29 0d 00 af 19 c9 64 5f  25 3a f2 75 79 28 63 25  |).....d_%:.uy(c%|
00001940  2c 62 25 2c 59 25 2c 54  25 29 0d 00 b0 18 c9 73  |,b%,Y%,T%).....s|
00001950  25 3a f2 47 79 28 63 25  2c 62 25 2c 59 25 2c 54  |%:.Gy(c%,b%,Y%,T|
00001960  25 29 0d 00 b1 0d c9 21  55 79 25 3a f2 42 79 0d  |%).....!Uy%:.By.|
00001970  00 b2 16 c9 67 79 25 3a  f2 43 5f 28 45 25 2c 54  |....gy%:.C_(E%,T|
00001980  25 2c 59 25 29 0d 00 b3  12 c9 58 25 3a f2 63 79  |%,Y%).....X%:.cy|
00001990  28 59 25 2c 54 25 29 0d  00 b4 05 cb 0d 00 b5 07  |(Y%,T%).........|
000019a0  cb 3a e1 0d 00 b6 28 dd  f2 42 79 c8 99 26 34 36  |.:....(..By..&46|
000019b0  35 63 34 2c 5f 25 2c 55  79 25 3a f2 53 28 55 75  |5c4,_%,Uy%:.S(Uu|
000019c0  25 29 3a 21 55 79 25 3d  30 3a e1 0d 00 b7 2e dd  |%):!Uy%=0:......|
000019d0  f2 56 79 3a 5a 79 25 3d  a3 3a 78 79 25 3d 26 31  |.Vy:Zy%=.:xy%=&1|
000019e0  30 34 30 61 33 31 2b 30  3a 6c 79 25 3d 26 31 30  |040a31+0:ly%=&10|
000019f0  34 30 61 33 31 2b 31 3a  e1 0d 00 b8 2e dd f2 4e  |40a31+1:.......N|
00001a00  79 ea 41 25 3a 55 4a 25  3d 33 3a 6b 4a 25 3d 30  |y.A%:UJ%=3:kJ%=0|
00001a10  3a e7 69 79 25 8c c8 99  26 34 36 35 63 38 2c 5f  |:.iy%...&465c8,_|
00001a20  25 2c 69 79 25 2c a3 0d  00 b9 36 41 25 3d ba 28  |%,iy%,....6A%=.(|
00001a30  52 79 29 3a 49 79 25 3d  21 41 25 3a 69 79 25 3d  |Ry):Iy%=!A%:iy%=|
00001a40  49 79 25 3a c8 99 26 34  36 35 63 37 2c 5f 25 2c  |Iy%:..&465c7,_%,|
00001a50  69 79 25 3a 5a 79 25 3d  78 79 25 3a e1 0d 00 ba  |iy%:Zy%=xy%:....|
00001a60  13 dd f2 6b 28 45 25 29  ea 41 25 3a e7 45 25 8c  |...k(E%).A%:.E%.|
00001a70  0d 00 bb 0a 69 5f 25 3d  45 25 0d 00 bc 1c cd 3a  |....i_%=E%.....:|
00001a80  e7 6f 79 25 8c c8 99 26  34 36 35 63 38 2c 5f 25  |.oy%...&465c8,_%|
00001a90  2c 6f 79 25 2c a3 0d 00  bd 3d 41 25 3d 69 5f 25  |,oy%,....=A%=i_%|
00001aa0  3a 41 25 3d ba 28 68 79  29 3a 49 79 25 3d 21 41  |:A%=.(hy):Iy%=!A|
00001ab0  25 3a 6f 79 25 3d 49 79  25 3a c8 99 26 34 36 35  |%:oy%=Iy%:..&465|
00001ac0  63 37 2c 5f 25 2c 6f 79  25 3a 5a 79 25 3d 6c 79  |c7,_%,oy%:Zy%=ly|
00001ad0  25 3a e1 0d 00 be 35 dd  f2 66 79 ea 63 25 2c 62  |%:....5..fy.c%,b|
00001ae0  25 2c 41 5f 25 3a 63 25  3d 57 25 21 32 34 3a 62  |%,A_%:c%=W%!24:b|
00001af0  25 3d 57 25 21 32 38 3a  41 5f 25 3d 57 25 21 33  |%=W%!28:A_%=W%!3|
00001b00  32 3a c8 8e 5a 79 25 ca  0d 00 bf 0f c9 78 79 25  |2:..Zy%......xy%|
00001b10  3a c8 8e 41 5f 25 ca 0d  00 c0 12 c9 4e 4a 25 3a  |:..A_%......NJ%:|
00001b20  f2 75 3a e7 73 25 3e 30  8c 0d 00 c1 40 f2 45 28  |.u:.s%>0....@.E(|
00001b30  73 25 2c 30 2c a4 45 28  22 41 70 70 22 29 29 3a  |s%,0,.E("App")):|
00001b40  f2 45 28 73 25 2c 31 2c  a4 45 28 22 50 75 72 70  |.E(s%,1,.E("Purp|
00001b50  6f 73 65 22 29 29 3a c8  99 26 34 30 30 65 38 2c  |ose")):..&400e8,|
00001b60  2c 73 25 2c 63 25 2c 62  25 0d 00 c2 05 cd 0d 00  |,s%,c%,b%.......|
00001b70  c3 05 cb 0d 00 c4 07 cb  3a e1 0d 00 c5 6b dd f2  |........:....k..|
00001b80  73 5f ea 41 5f 25 2c 46  25 2c 4b 4a 25 2c 4f 4a  |s_.A_%,F%,KJ%,OJ|
00001b90  25 2c 69 4a 25 2c 41 25  3a 46 25 3d a4 5a 28 35  |%,iJ%,A%:F%=.Z(5|
00001ba0  31 32 29 3a c8 99 26 34  30 30 63 66 2c 2c 46 25  |12):..&400cf,,F%|
00001bb0  3a 4b 4a 25 3d 46 25 21  30 3a 4f 4a 25 3d 46 25  |:KJ%=F%!0:OJ%=F%|
00001bc0  21 34 3a 69 4a 25 3d 46  25 21 38 3a f2 43 28 46  |!4:iJ%=F%!8:.C(F|
00001bd0  25 2c 35 31 32 29 3a 41  5f 25 3d 21 57 25 3a c8  |%,512):A_%=!W%:.|
00001be0  8e 5a 79 25 ca 0d 00 c6  0f c9 78 79 25 3a c8 8e  |.Zy%......xy%:..|
00001bf0  41 5f 25 ca 0d 00 c7 0c  c9 58 4a 25 3a f2 6c 79  |A_%......XJ%:.ly|
00001c00  0d 00 c8 0c c9 77 4a 25  3a f2 79 5f 0d 00 c9 05  |.....wJ%:.y_....|
00001c10  cb 0d 00 ca 0f c9 6c 79  25 3a c8 8e 41 5f 25 ca  |......ly%:..A_%.|
00001c20  0d 00 cb 10 c9 70 4a 25  3a f2 64 28 69 5f 25 29  |.....pJ%:.d(i_%)|
00001c30  0d 00 cc 05 cb 0d 00 cd  0d cb 3a e7 69 4a 25 3d  |..........:.iJ%=|
00001c40  31 8c 0d 00 ce 0a c8 8e  5a 79 25 ca 0d 00 cf 0c  |1.......Zy%.....|
00001c50  c9 78 79 25 3a f2 4e 79  0d 00 d0 0e c9 6c 79 25  |.xy%:.Ny.....ly%|
00001c60  3a f2 6b 28 30 29 0d 00  d1 1b cb 3a c8 99 26 34  |:.k(0).....:..&4|
00001c70  30 30 64 34 2c 2c 49 79  25 2c 4b 4a 25 2c 4f 4a  |00d4,,Iy%,KJ%,OJ|
00001c80  25 0d 00 d2 07 cc f2 66  0d 00 d3 07 cd 3a e1 0d  |%......f.....:..|
00001c90  00 d4 1b dd f2 66 c8 99  26 34 30 30 64 34 2c 2c  |.....f..&400d4,,|
00001ca0  2d 31 3a 5a 79 25 3d a3  3a e1 0d 00 d5 11 dd f2  |-1:Zy%=.:.......|
00001cb0  54 85 9f 2c a4 51 3a f2  46 3a e1 0d 00 d6 10 dd  |T..,.Q:.F:......|
00001cc0  a4 51 ea 65 24 3a e7 59  79 25 8c 0d 00 d7 17 65  |.Q.e$:.Yy%.....e|
00001cd0  24 3d f6 24 2b 22 20 5b  22 2b c3 28 9e 29 2b 22  |$=.$+" ["+.(.)+"|
00001ce0  5d 22 0d 00 d8 0a cc 65  24 3d f6 24 0d 00 d9 09  |]".....e$=.$....|
00001cf0  cd 3a 3d 65 24 0d 00 da  30 dd f2 75 5f ea 47 25  |.:=e$...0..u_.G%|
00001d00  3a f2 45 79 3a 47 25 3d  8e 28 a4 53 28 52 79 25  |:.Ey:G%=.(.S(Ry%|
00001d10  29 2b 22 2e 43 68 6f 69  63 65 73 22 29 3a e7 47  |)+".Choices"):.G|
00001d20  25 3c 3e 30 8c 0d 00 db  13 ea 85 3a ee 85 ea f7  |%<>0.......:....|
00001d30  85 3a d9 23 47 25 3a e1  0d 00 dc 2b e8 23 47 25  |.:.#G%:....+.#G%|
00001d40  2c 21 73 3a e8 23 47 25  2c 21 7a 3a e8 23 47 25  |,!s:.#G%,!z:.#G%|
00001d50  2c 21 5f 3a e8 23 47 25  2c 21 4f 3a f7 85 3a d9  |,!_:.#G%,!O:..:.|
00001d60  23 47 25 0d 00 dd 07 cd  3a e1 0d 00 de 34 dd f2  |#G%.....:....4..|
00001d70  46 79 ea 47 25 3a 47 25  3d ae 28 a4 53 28 52 79  |Fy.G%:G%=.(.S(Ry|
00001d80  25 29 2b 22 2e 43 68 6f  69 63 65 73 22 29 3a ea  |%)+".Choices"):.|
00001d90  85 3a ee 85 ea f7 85 3a  d9 23 47 25 3a e1 0d 00  |.:.....:.#G%:...|
00001da0  df 2d f1 23 47 25 2c 21  73 3a f1 23 47 25 2c 21  |.-.#G%,!s:.#G%,!|
00001db0  7a 3a f1 23 47 25 2c 21  5f 3a f1 23 47 25 2c 21  |z:.#G%,!_:.#G%,!|
00001dc0  4f 3a f7 85 3a d9 23 47  25 3a e1 0d 00 e0 0d dd  |O:..:.#G%:......|
00001dd0  f2 43 79 f2 45 79 3a e1  0d 00 e1 22 dd f2 72 5f  |.Cy.Ey:...."..r_|
00001de0  e7 28 28 57 25 21 32 30  3d 2d 32 29 80 28 57 25  |.((W%!20=-2).(W%|
00001df0  21 32 34 3d 4b 5f 25 29  29 8c 0d 00 e2 0c c8 8e  |!24=K_%)).......|
00001e00  57 25 21 34 30 ca 0d 00  e3 3e c9 77 79 3a f2 60  |W%!40....>.wy:.`|
00001e10  28 a4 53 28 57 25 2b 34  34 29 2c b9 29 3a 57 25  |(.S(W%+44),.):W%|
00001e20  21 31 32 3d 57 25 21 38  3a 57 25 21 31 36 3d 34  |!12=W%!8:W%!16=4|
00001e30  3a c8 99 26 34 30 30 65  37 2c 31 37 2c 57 25 2c  |:..&400e7,17,W%,|
00001e40  57 25 21 34 0d 00 e4 3e  c9 54 79 3a f2 60 28 a4  |W%!4...>.Ty:.`(.|
00001e50  53 28 57 25 2b 34 34 29  2c a3 29 3a 57 25 21 31  |S(W%+44),.):W%!1|
00001e60  32 3d 57 25 21 38 3a 57  25 21 31 36 3d 34 3a c8  |2=W%!8:W%!16=4:.|
00001e70  99 26 34 30 30 65 37 2c  31 37 2c 57 25 2c 57 25  |.&400e7,17,W%,W%|
00001e80  21 34 0d 00 e5 11 7f e7  a4 4a 28 31 2c a4 41 28  |!4.......J(1,.A(|
00001e90  33 29 29 0d 00 e6 05 cb  0d 00 e7 07 cd 3a e1 0d  |3))..........:..|
00001ea0  00 e8 2c dd f2 60 28 45  24 2c 71 5f 25 29 ea 45  |..,..`(E$,q_%).E|
00001eb0  25 3a f2 48 28 45 24 29  3a e7 a4 55 28 45 25 2c  |%:.H(E$):..U(E%,|
00001ec0  69 2b a9 28 45 24 29 2b  31 29 8c 0d 00 e9 51 cc  |i+.(E$)+1)....Q.|
00001ed0  24 28 45 25 2b 69 29 3d  45 24 3a 45 25 21 4a 3d  |$(E%+i)=E$:E%!J=|
00001ee0  30 3a 45 25 21 47 79 3d  21 73 3a 45 25 21 4d 3d  |0:E%!Gy=!s:E%!M=|
00001ef0  21 7a 3a 45 25 21 4d 79  3d 21 5f 3a 45 25 21 46  |!z:E%!My=!_:E%!F|
00001f00  79 3d 21 4f 3a 45 25 21  45 3d 30 3a 45 25 21 66  |y=!O:E%!E=0:E%!f|
00001f10  3d a3 3a e7 a4 58 79 28  45 25 29 8c 0d 00 ea 0a  |=.:..Xy(E%).....|
00001f20  f2 53 28 45 25 29 0d 00  eb 11 cc e7 4d 79 25 3d  |.S(E%)......My%=|
00001f30  30 8c f2 4b 28 31 29 0d  00 ec 1f f2 64 5f 28 45  |0..K(1).....d_(E|
00001f40  25 2c 4d 79 25 29 3a e7  a4 56 28 45 25 2c 45 24  |%,My%):..V(E%,E$|
00001f50  2c 71 5f 25 29 8c 0d 00  ed 0a f2 68 28 45 25 29  |,q_%)......h(E%)|
00001f60  0d 00 ee 0b cc f2 4f 28  45 25 29 0d 00 ef 05 cd  |......O(E%).....|
00001f70  0d 00 f0 05 cd 0d 00 f1  07 cd 3a e1 0d 00 f2 4d  |..........:....M|
00001f80  dd a4 5f 4e 75 6c 6c 5f  52 65 61 73 6f 6e 5f 75  |.._Null_Reason_u|
00001f90  6e 63 66 73 28 45 25 29  ea 55 25 3a c8 99 26 36  |ncfs(E%).U%:..&6|
00001fa0  30 36 63 30 3a c8 99 26  32 30 30 30 36 2c 32 32  |06c0:..&20006,22|
00001fb0  39 2c 30 2c 30 3a ea 85  3a ee 85 ea f7 85 3a f2  |9,0,0:..:.....:.|
00001fc0  5a 5f 28 45 25 29 3a 3d  b9 0d 00 f3 11 55 25 3d  |Z_(E%):=.....U%=|
00001fd0  a3 3a f5 c8 8e 45 25 21  53 ca 0d 00 f4 0e c9 50  |.:...E%!S......P|
00001fe0  3a f2 6e 79 28 45 25 29  0d 00 f5 0e c9 48 3a f2  |:.ny(E%).....H:.|
00001ff0  78 79 28 45 25 29 0d 00  f6 0e c9 56 3a f2 4b 5f  |xy(E%).....V:.K_|
00002000  28 45 25 29 0d 00 f7 0f  c9 61 2c 64 2c 43 3a 55  |(E%).....a,d,C:U|
00002010  25 3d b9 0d 00 f8 32 cb  3a fd 55 25 84 45 25 21  |%=....2.:.U%.E%!|
00002020  47 79 3a f7 85 3a c8 99  26 32 30 30 30 36 2c 32  |Gy:..:..&20006,2|
00002030  32 39 2c 32 35 35 2c 30  3a c8 99 26 36 30 36 63  |29,255,0:..&606c|
00002040  31 3a 3d 55 25 0d 00 f9  2e dd f2 5a 5f 28 45 25  |1:=U%......Z_(E%|
00002050  29 c8 99 26 36 30 36 63  31 3a c8 99 26 32 30 30  |)..&606c1:..&200|
00002060  30 36 2c 32 32 39 2c 32  35 35 2c 30 3a e7 9f 3d  |06,229,255,0:..=|
00002070  31 37 8c 0d 00 fa 0c f2  4a 28 45 25 2c 61 29 0d  |17......J(E%,a).|
00002080  00 fb 14 cc f2 68 28 45  25 29 3a f2 58 28 9f 2c  |.....h(E%):.X(.,|
00002090  a4 51 29 0d 00 fc 07 cd  3a e1 0d 00 fd 27 dd f2  |.Q).....:....'..|
000020a0  6e 79 28 45 25 29 ea 55  25 2c 56 25 2c 45 24 3a  |ny(E%).U%,V%,E$:|
000020b0  55 25 3d a3 3a 56 25 3d  45 25 21 4a 3a e7 56 25  |U%=.:V%=E%!J:.V%|
000020c0  8c 0d 00 fe 21 45 24 3d  24 28 56 25 2b 44 29 3a  |....!E$=$(V%+D):|
000020d0  e7 a4 52 28 45 24 2c 22  2a 22 2c 56 25 21 4e 79  |..R(E$,"*",V%!Ny|
000020e0  29 8c 0d 00 ff 09 e7 a4  50 79 8c 0d 01 00 23 e7  |).......Py....#.|
000020f0  a4 56 28 45 25 2c 45 24  2b 22 2e 22 2b a4 42 2c  |.V(E%,E$+"."+.B,|
00002100  97 28 a4 42 29 3d 97 28  22 21 22 29 29 8c 0d 01  |.(.B)=.("!"))...|
00002110  01 0d 55 25 3d a4 48 28  45 25 29 0d 01 02 05 cd  |..U%=.H(E%).....|
00002120  0d 01 03 05 cd 0d 01 04  0e cc 55 25 3d a4 48 28  |..........U%=.H(|
00002130  45 25 29 0d 01 05 05 cd  0d 01 06 09 cc 55 25 3d  |E%)..........U%=|
00002140  b9 0d 01 07 0a cd 3a e7  55 25 8c 0d 01 08 0d e7  |......:.U%......|
00002150  45 25 21 53 3c 3e 43 8c  0d 01 09 0c f2 4a 28 45  |E%!S<>C......J(E|
00002160  25 2c 64 29 0d 01 0a 05  cd 0d 01 0b 07 cd 3a e1  |%,d)..........:.|
00002170  0d 01 0c 5c dd f2 78 79  28 45 25 29 ea 55 25 2c  |...\..xy(E%).U%,|
00002180  56 25 2c 45 24 3a 55 25  3d b9 3a 56 25 3d 45 25  |V%,E$:U%=.:V%=E%|
00002190  21 4a 3a 45 24 3d 24 28  56 25 2b 44 29 3a c8 95  |!J:E$=$(V%+D):..|
000021a0  45 25 21 58 3c de 28 5a  24 28 29 2c 31 29 80 55  |E%!X<.(Z$(),1).U|
000021b0  25 80 28 45 25 21 53 3c  3e 43 29 3a e7 a4 76 28  |%.(E%!S<>C):..v(|
000021c0  45 25 2c 45 24 2c 45 25  21 58 29 8c 0d 01 0d 11  |E%,E$,E%!X).....|
000021d0  e7 45 25 28 45 25 21 58  29 3d 41 79 8c 0d 01 0e  |.E%(E%!X)=Ay....|
000021e0  19 f2 72 28 45 25 2c 45  24 2c 5a 24 28 45 25 21  |..r(E%,E$,Z$(E%!|
000021f0  58 29 2c 68 24 29 0d 01  0f 1a cc f2 72 28 45 25  |X),h$)......r(E%|
00002200  2c 45 24 2c 5a 24 28 45  25 21 58 29 2c 22 22 29  |,E$,Z$(E%!X),"")|
00002210  0d 01 10 0a cd 3a 55 25  3d a3 0d 01 11 14 cd 3a  |.....:U%=......:|
00002220  45 25 21 58 2b 3d 31 3a  ce 3a e7 55 25 8c 0d 01  |E%!X+=1:.:.U%...|
00002230  12 0c e7 45 25 21 53 3d  48 8c 0d 01 13 0b e7 45  |...E%!S=H......E|
00002240  25 21 4d 79 8c 0d 01 14  13 f2 4a 28 45 25 2c 56  |%!My......J(E%,V|
00002250  29 3a 45 25 21 4c 3d 30  0d 01 15 0d cc f2 4a 28  |):E%!L=0......J(|
00002260  45 25 2c 50 29 0d 01 16  05 cd 0d 01 17 05 cd 0d  |E%,P)...........|
00002270  01 18 07 cd 3a e1 0d 01  19 52 dd f2 4b 5f 28 45  |....:....R..K_(E|
00002280  25 29 ea 55 25 2c 56 25  2c 45 24 3a 55 25 3d b9  |%).U%,V%,E$:U%=.|
00002290  3a 56 25 3d 45 25 21 4a  3a 45 24 3d 24 28 56 25  |:V%=E%!J:E$=$(V%|
000022a0  2b 44 29 3a c8 95 45 25  21 4c 3c 3e 2d 31 80 55  |+D):..E%!L<>-1.U|
000022b0  25 80 45 25 21 53 3c 3e  43 3a e7 a4 4a 79 28 45  |%.E%!S<>C:..Jy(E|
000022c0  24 2c 45 25 21 4c 29 8c  0d 01 1a 18 f2 72 28 45  |$,E%!L)......r(E|
000022d0  25 2c 45 24 2c a4 42 2c  22 22 29 3a 55 25 3d a3  |%,E$,.B,""):U%=.|
000022e0  0d 01 1b 21 cd 3a ce 3a  e7 28 45 25 21 46 79 3c  |...!.:.:.(E%!Fy<|
000022f0  3e 30 29 80 55 25 80 28  45 25 21 4c 3d 2d 31 29  |>0).U%.(E%!L=-1)|
00002300  8c 0d 01 1c 0a e7 56 25  21 70 8c 0d 01 1d 0e f2  |......V%!p......|
00002310  67 79 28 45 25 2c 45 24  29 0d 01 1e 05 cd 0d 01  |gy(E%,E$).......|
00002320  1f 0a cd 3a e7 55 25 8c  0d 01 20 0c e7 45 25 21  |...:.U%... ..E%!|
00002330  53 3d 56 8c 0d 01 21 0c  f2 4a 28 45 25 2c 50 29  |S=V...!..J(E%,P)|
00002340  0d 01 22 05 cd 0d 01 23  07 cd 3a e1 0d 01 24 2f  |.."....#..:...$/|
00002350  dd a4 4a 79 28 45 24 2c  f8 7a 25 29 ea 55 25 3a  |..Jy(E$,.z%).U%:|
00002360  f2 48 28 45 24 29 3a 55  25 3d a3 3a e7 a4 52 28  |.H(E$):U%=.:..R(|
00002370  45 24 2c 22 2a 22 2c 7a  25 29 8c 0d 01 25 13 f2  |E$,"*",z%)...%..|
00002380  50 79 28 45 25 29 3a e7  a4 63 3d 74 79 8c 0d 01  |Py(E%):..c=ty...|
00002390  26 23 55 25 3d 28 a4 45  79 3e 3d a4 51 79 28 22  |&#U%=(.Ey>=.Qy("|
000023a0  43 46 53 23 22 2b 45 24  2b 22 2e 22 2b a4 42 29  |CFS#"+E$+"."+.B)|
000023b0  29 0d 01 27 05 cd 0d 01  28 0a cc 7a 25 3d 2d 31  |)..'....(..z%=-1|
000023c0  0d 01 29 09 cd 3a 3d 55  25 0d 01 2a 21 dd f2 48  |..)..:=U%..*!..H|
000023d0  28 f8 72 24 29 e7 a4 74  28 c0 72 24 2c 34 29 2c  |(.r$)..t(.r$,4),|
000023e0  22 43 46 53 23 22 29 3d  30 8c 0d 01 2b 0d 72 24  |"CFS#")=0...+.r$|
000023f0  3d c1 72 24 2c 35 29 0d  01 2c 07 cd 3a e1 0d 01  |=.r$,5)..,..:...|
00002400  2d 27 dd f2 74 28 45 25  2c 77 75 25 2c 45 24 29  |-'..t(E%,wu%,E$)|
00002410  f2 4a 28 45 25 2c 43 29  3a e7 45 25 21 4d 8c f2  |.J(E%,C):.E%!M..|
00002420  64 28 45 25 29 0d 01 2e  1f f2 56 28 45 25 2c 45  |d(E%).....V(E%,E|
00002430  24 29 3a f2 58 5f 28 45  25 2c a4 41 28 77 75 25  |$):.X_(E%,.A(wu%|
00002440  29 29 3a e1 0d 01 2f 33  dd f2 64 79 28 45 25 2c  |)):.../3..dy(E%,|
00002450  44 25 2c 45 24 29 f2 53  28 44 25 29 3a f2 4d 28  |D%,E$).S(D%):.M(|
00002460  22 53 79 73 22 2c f6 24  29 3a f2 74 28 45 25 2c  |"Sys",.$):.t(E%,|
00002470  36 2c 45 24 29 3a e1 0d  01 30 33 dd f2 67 5f 28  |6,E$):...03..g_(|
00002480  45 25 2c 44 25 2c 45 24  29 f2 53 28 44 25 29 3a  |E%,D%,E$).S(D%):|
00002490  f2 4d 28 22 53 79 73 22  2c f6 24 29 3a f2 74 28  |.M("Sys",.$):.t(|
000024a0  45 25 2c 37 2c 45 24 29  3a e1 0d 01 31 28 dd f2  |E%,7,E$):...1(..|
000024b0  4c 79 28 47 25 2c 45 24  2c 76 25 2c 48 79 25 2c  |Ly(G%,E$,v%,Hy%,|
000024c0  44 25 2c 49 25 2c 4a 79  25 29 e7 47 25 8c d9 23  |D%,I%,Jy%).G%..#|
000024d0  47 25 0d 01 32 3b c8 99  26 32 30 30 30 38 2c 30  |G%..2;..&20008,0|
000024e0  2c 45 24 2c 76 25 2c 48  79 25 2c 44 25 2c 44 25  |,E$,v%,Hy%,D%,D%|
000024f0  2b 49 25 3a c8 99 26 32  30 30 30 38 2c 34 2c 45  |+I%:..&20008,4,E|
00002500  24 2c 2c 2c 2c 4a 79 25  3a f2 54 3a e1 0d 01 33  |$,,,,Jy%:.T:...3|
00002510  2f dd a4 56 28 45 25 2c  45 24 2c 71 5f 25 29 ea  |/..V(E%,E$,q_%).|
00002520  56 25 3a f2 48 28 45 24  29 3a e7 a4 55 28 56 25  |V%:.H(E$):..U(V%|
00002530  2c 44 2b a9 28 45 24 29  2b 31 29 8c 0d 01 34 08  |,D+.(E$)+1)...4.|
00002540  56 25 3d 30 0d 01 35 43  cc f2 62 28 45 25 2c 45  |V%=0..5C..b(E%,E|
00002550  24 29 3a 56 25 21 53 79  3d 45 25 21 4a 3a 56 25  |$):V%!Sy=E%!J:V%|
00002560  21 4e 79 3d 30 3a 56 25  21 70 3d 71 5f 25 3a 24  |!Ny=0:V%!p=q_%:$|
00002570  28 56 25 2b 44 29 3d 45  24 3a 45 25 21 4a 3d 56  |(V%+D)=E$:E%!J=V|
00002580  25 3a e7 71 5f 25 8c 0d  01 36 13 f2 4a 28 45 25  |%:.q_%...6..J(E%|
00002590  2c 48 29 3a 45 25 21 58  3d 30 0d 01 37 05 cd 0d  |,H):E%!X=0..7...|
000025a0  01 38 0d cd 3a 3d 28 56  25 3d 30 29 0d 01 39 1e  |.8..:=(V%=0)..9.|
000025b0  dd a4 48 28 45 25 29 ea  7a 25 2c 56 25 3a 56 25  |..H(E%).z%,V%:V%|
000025c0  3d 45 25 21 4a 3a e7 56  25 8c 0d 01 3a 0a e7 56  |=E%!J:.V%...:..V|
000025d0  25 21 70 8c 0d 01 3b 12  f2 69 79 28 45 25 29 3a  |%!p...;..iy(E%):|
000025e0  e7 45 25 21 66 8c 0d 01  3c 0b f2 76 5f 28 45 25  |.E%!f...<..v_(E%|
000025f0  29 0d 01 3d 05 cd 0d 01  3e 2a cd 3a 7a 25 3d 56  |)..=....>*.:z%=V|
00002600  25 21 53 79 3a f2 53 28  56 25 29 3a 45 25 21 4a  |%!Sy:.S(V%):E%!J|
00002610  3d 7a 25 3a 56 25 3d 7a  25 3a 45 25 21 66 3d a3  |=z%:V%=z%:E%!f=.|
00002620  0d 01 3f 0a cd 3a e7 56  25 8c 0d 01 40 12 f2 62  |..?..:.V%...@..b|
00002630  28 45 25 2c 24 28 56 25  2b 44 29 29 0d 01 41 0d  |(E%,$(V%+D))..A.|
00002640  cd 3a 3d 28 56 25 3d 30  29 0d 01 42 3b dd f2 68  |.:=(V%=0)..B;..h|
00002650  28 45 25 29 f5 fd a4 48  28 45 25 29 3a f2 55 79  |(E%)...H(E%):.Uy|
00002660  28 45 25 29 3a f2 60 79  28 45 25 2c 4d 79 25 29  |(E%):.`y(E%,My%)|
00002670  3a f2 53 28 45 25 29 3a  e7 4d 79 25 3d 30 8c f2  |:.S(E%):.My%=0..|
00002680  4b 28 30 29 0d 01 43 05  e1 0d 01 44 32 dd f2 64  |K(0)..C....D2..d|
00002690  5f 28 51 79 25 2c f8 7a  79 25 29 51 79 25 21 71  |_(Qy%,.zy%)Qy%!q|
000026a0  3d 7a 79 25 3a 51 79 25  21 67 3d 30 3a e7 7a 79  |=zy%:Qy%!g=0:.zy|
000026b0  25 8c 7a 79 25 21 67 3d  51 79 25 0d 01 45 0d 7a  |%.zy%!g=Qy%..E.z|
000026c0  79 25 3d 51 79 25 3a e1  0d 01 46 3d dd f2 60 79  |y%=Qy%:...F=..`y|
000026d0  28 51 79 25 2c f8 7a 79  25 29 ea 54 5f 25 2c 6a  |(Qy%,.zy%).T_%,j|
000026e0  79 25 3a 54 5f 25 3d 51  79 25 21 67 3a 6a 79 25  |y%:T_%=Qy%!g:jy%|
000026f0  3d 51 79 25 21 71 3a e7  6a 79 25 8c 6a 79 25 21  |=Qy%!q:.jy%.jy%!|
00002700  67 3d 54 5f 25 0d 01 47  12 e7 54 5f 25 8c 54 5f  |g=T_%..G..T_%.T_|
00002710  25 21 71 3d 6a 79 25 0d  01 48 14 e7 51 79 25 3d  |%!q=jy%..H..Qy%=|
00002720  7a 79 25 8c 7a 79 25 3d  6a 79 25 0d 01 49 05 e1  |zy%.zy%=jy%..I..|
00002730  0d 01 4a 29 dd a4 55 28  f8 4c 75 25 2c 78 25 29  |..J)..U(.Lu%,x%)|
00002740  ea 77 5f 25 3a 77 5f 25  3d a4 5f 28 4c 75 25 2c  |.w_%:w_%=._(Lu%,|
00002750  78 25 29 3a e7 77 5f 25  8c 0d 01 4b 11 f2 58 28  |x%):.w_%...K..X(|
00002760  4d 5f 25 2c a4 41 28 34  29 29 0d 01 4c 0a cd 3a  |M_%,.A(4))..L..:|
00002770  3d 77 5f 25 0d 01 4d 30  dd f2 73 79 ea 45 25 2c  |=w_%..M0..sy.E%,|
00002780  4a 5f 25 3a 4a 5f 25 3d  a3 3a 45 25 3d 4d 79 25  |J_%:J_%=.:E%=My%|
00002790  3a c8 95 45 25 80 28 ac  4a 5f 25 29 3a c8 8e 45  |:..E%.(.J_%):..E|
000027a0  25 21 53 ca 0d 01 4e 10  c9 50 2c 48 2c 56 3a 4a  |%!S...N..P,H,V:J|
000027b0  5f 25 3d b9 0d 01 4f 15  cb 3a 45 25 3d 45 25 21  |_%=...O..:E%=E%!|
000027c0  71 3a ce 3a e7 4a 5f 25  8c 0d 01 50 09 f2 4b 28  |q:.:.J_%...P..K(|
000027d0  31 29 0d 01 51 0a cc f2  4b 28 30 29 0d 01 52 07  |1)..Q...K(0)..R.|
000027e0  cd 3a e1 0d 01 53 12 dd  f2 4b 28 4a 25 29 e7 4a  |.:...S...K(J%).J|
000027f0  25 3c 3e 60 8c 0d 01 54  2b 24 68 5f 25 3d 41 24  |%<>`...T+$h_%=A$|
00002800  28 4a 25 29 2b bd 28 30  29 3a f2 65 79 28 2d 31  |(J%)+.(0):.ey(-1|
00002810  2c 4b 5f 25 2c 30 2c 30  2c 30 29 3a 60 3d 4a 25  |,K_%,0,0,0):`=J%|
00002820  0d 01 55 07 cd 3a e1 0d  01 56 35 dd a4 58 79 28  |..U..:...V5..Xy(|
00002830  45 25 29 f2 62 79 28 22  46 43 6f 6e 76 65 72 74  |E%).by("FConvert|
00002840  22 2c 45 25 2b 45 2c 32  35 36 2c 31 32 38 2c 45  |",E%+E,256,128,E|
00002850  25 21 48 79 29 3a e7 45  25 21 45 8c 0d 01 57 38  |%!Hy):.E%!E...W8|
00002860  45 25 21 59 3d 30 3a 45  25 21 54 3d 30 3a 45 25  |E%!Y=0:E%!T=0:E%|
00002870  21 77 3d 30 3a 45 25 21  4b 3d 30 3a 45 25 21 66  |!w=0:E%!K=0:E%!f|
00002880  3d a3 3a f2 4a 28 45 25  2c 50 29 3a e7 45 25 21  |=.:.J(E%,P):.E%!|
00002890  4d 8c f2 6f 0d 01 58 10  f2 6f 79 28 45 25 21 45  |M..o..X..oy(E%!E|
000028a0  2c 2d 31 29 0d 01 59 0f  cd 3a 3d 28 45 25 21 45  |,-1)..Y..:=(E%!E|
000028b0  3d 30 29 0d 01 5a 12 dd  f2 55 79 28 45 25 29 e7  |=0)..Z...Uy(E%).|
000028c0  45 25 21 45 8c 0d 01 5b  1e c8 99 26 34 36 35 63  |E%!E...[...&465c|
000028d0  34 2c 5f 25 2c 45 25 2b  45 3a f2 53 28 45 25 21  |4,_%,E%+E:.S(E%!|
000028e0  48 79 29 0d 01 5c 07 cd  3a e1 0d 01 5d 1b dd f2  |Hy)..\..:...]...|
000028f0  43 5f 28 45 25 2c 54 25  2c 59 25 29 ea 45 24 3a  |C_(E%,T%,Y%).E$:|
00002900  c8 8e 54 25 ca 0d 01 5e  1d c9 74 2c 65 3a 45 24  |..T%...^..t,e:E$|
00002910  3d a4 73 28 45 25 29 3a  e7 28 59 25 80 31 29 3d  |=.s(E%):.(Y%.1)=|
00002920  30 8c 0d 01 5f 10 45 24  3d 22 43 46 53 23 22 2b  |0..._.E$="CFS#"+|
00002930  45 24 0d 01 60 22 cd 3a  c8 99 26 32 30 30 30 35  |E$..`".:..&20005|
00002940  2c 22 46 69 6c 65 72 5f  4f 70 65 6e 44 69 72 20  |,"Filer_OpenDir |
00002950  22 2b 45 24 0d 01 61 0e  c9 42 3a c8 8e 45 25 21  |"+E$..a..B:..E%!|
00002960  53 ca 0d 01 62 23 c9 50  2c 48 2c 56 3a f2 4a 28  |S...b#.P,H,V:.J(|
00002970  45 25 2c 61 29 3a f2 53  79 28 22 75 6e 63 66 73  |E%,a):.Sy("uncfs|
00002980  22 2c 45 25 29 0d 01 63  19 c9 61 3a f2 4a 28 45  |",E%)..c..a:.J(E|
00002990  25 2c 45 25 21 68 29 3a  f2 4f 28 45 25 29 0d 01  |%,E%!h):.O(E%)..|
000029a0  64 20 c9 43 3a f2 6a 28  45 25 29 3a f2 4a 28 45  |d .C:.j(E%):.J(E|
000029b0  25 2c 45 25 21 68 29 3a  f2 4f 28 45 25 29 0d 01  |%,E%!h):.O(E%)..|
000029c0  65 05 cb 0d 01 66 0f c9  49 3a e7 45 25 21 53 3d  |e....f..I:.E%!S=|
000029d0  43 8c 0d 01 67 28 f2 6a  28 45 25 29 3a f2 4a 28  |C...g(.j(E%):.J(|
000029e0  45 25 2c 45 25 21 68 29  3a 45 25 21 58 2d 3d 31  |E%,E%!h):E%!X-=1|
000029f0  3a e7 45 25 21 4c 3c 2d  31 8c 0d 01 68 0b 45 25  |:.E%!L<-1...h.E%|
00002a00  21 4c 2b 3d 31 0d 01 69  0c cc 45 25 21 4c 2d 3d  |!L+=1..i..E%!L-=|
00002a10  31 0d 01 6a 0c cd 3a f2  4f 28 45 25 29 0d 01 6b  |1..j..:.O(E%)..k|
00002a20  0b cc f2 6d 28 45 25 29  0d 01 6c 05 cd 0d 01 6d  |...m(E%)..l....m|
00002a30  0d c9 52 3a f2 6d 28 45  25 29 0d 01 6e 07 cb 3a  |..R:.m(E%)..n..:|
00002a40  e1 0d 01 6f 2b dd f2 4f  28 45 25 29 f2 4b 28 31  |...o+..O(E%).K(1|
00002a50  29 3a f2 59 28 45 25 2c  a3 29 3a f2 49 79 28 22  |):.Y(E%,.):.Iy("|
00002a60  75 6e 63 66 73 22 2c 45  25 29 3a e1 0d 01 70 23  |uncfs",E%):...p#|
00002a70  dd f2 6d 28 45 25 29 f2  53 79 28 22 75 6e 63 66  |..m(E%).Sy("uncf|
00002a80  73 22 2c 45 25 29 3a f2  68 28 45 25 29 3a e1 0d  |s",E%):.h(E%):..|
00002a90  01 71 28 dd f2 4a 28 45  25 2c 6a 4a 25 29 45 25  |.q(..J(E%,jJ%)E%|
00002aa0  21 68 3d 45 25 21 53 3a  45 25 21 53 3d 6a 4a 25  |!h=E%!S:E%!S=jJ%|
00002ab0  3a c8 8e 6a 4a 25 ca 0d  01 72 41 c9 48 2c 56 2c  |:..jJ%...rA.H,V,|
00002ac0  50 3a f2 5f 28 45 25 21  45 2c 49 29 3a f2 51 28  |P:._(E%!E,I):.Q(|
00002ad0  45 25 21 45 2c 52 29 3a  f2 51 28 45 25 21 45 2c  |E%!E,R):.Q(E%!E,|
00002ae0  42 29 3a f2 45 28 45 25  21 45 2c 42 2c a4 45 28  |B):.E(E%!E,B,.E(|
00002af0  22 50 61 75 73 22 29 29  0d 01 73 3d c9 61 3a f2  |"Paus"))..s=.a:.|
00002b00  5f 28 45 25 21 45 2c 49  29 3a f2 51 28 45 25 21  |_(E%!E,I):.Q(E%!|
00002b10  45 2c 52 29 3a f2 51 28  45 25 21 45 2c 42 29 3a  |E,R):.Q(E%!E,B):|
00002b20  f2 45 28 45 25 21 45 2c  42 2c a4 45 28 22 43 6f  |.E(E%!E,B,.E("Co|
00002b30  6e 74 22 29 29 0d 01 74  48 c9 64 3a f2 51 28 45  |nt"))..tH.d:.Q(E|
00002b40  25 21 45 2c 49 29 3a f2  5f 28 45 25 21 45 2c 52  |%!E,I):._(E%!E,R|
00002b50  29 3a f2 5f 28 45 25 21  45 2c 42 29 3a f2 45 28  |):._(E%!E,B):.E(|
00002b60  45 25 21 45 2c 49 2c a4  45 28 22 4f 6b 22 29 29  |E%!E,I,.E("Ok"))|
00002b70  3a e7 45 25 21 4d 8c f2  64 28 45 25 29 0d 01 75  |:.E%!M..d(E%)..u|
00002b80  53 c9 43 3a f2 51 28 45  25 21 45 2c 49 29 3a f2  |S.C:.Q(E%!E,I):.|
00002b90  51 28 45 25 21 45 2c 52  29 3a f2 51 28 45 25 21  |Q(E%!E,R):.Q(E%!|
00002ba0  45 2c 42 29 3a f2 45 28  45 25 21 45 2c 42 2c a4  |E,B):.E(E%!E,B,.|
00002bb0  45 28 22 53 6b 69 70 22  29 29 3a f2 45 28 45 25  |E("Skip")):.E(E%|
00002bc0  21 45 2c 49 2c a4 45 28  22 52 74 72 79 22 29 29  |!E,I,.E("Rtry"))|
00002bd0  0d 01 76 0b cb 3a f2 73  79 3a e1 0d 01 77 4d dd  |..v..:.sy:...wM.|
00002be0  f2 5f 28 5a 25 2c 4a 25  29 ea 4d 25 3a 4d 25 3d  |._(Z%,J%).M%:M%=|
00002bf0  a4 5a 28 36 34 29 3a 21  4d 25 3d 5a 25 3a 4d 25  |.Z(64):!M%=Z%:M%|
00002c00  21 34 3d 4a 25 3a c8 99  26 34 30 30 63 65 2c 2c  |!4=J%:..&400ce,,|
00002c10  4d 25 3a e7 28 28 4d 25  21 32 34 29 80 28 31 3c  |M%:.((M%!24).(1<|
00002c20  3c 32 33 29 29 3d 30 8c  0d 01 78 4a c8 99 26 34  |<23))=0...xJ..&4|
00002c30  30 30 64 31 2c 5a 25 2c  4d 25 21 38 2c 4d 25 21  |00d1,Z%,M%!8,M%!|
00002c40  31 32 2c 4d 25 21 31 36  2c 4d 25 21 32 30 3a 4d  |12,M%!16,M%!20:M|
00002c50  25 21 38 3d 31 3c 3c 32  33 3a 4d 25 21 31 32 3d  |%!8=1<<23:M%!12=|
00002c60  31 3c 3c 32 33 3a c8 99  26 34 30 30 63 64 2c 2c  |1<<23:..&400cd,,|
00002c70  4d 25 0d 01 79 11 cd 3a  f2 43 28 4d 25 2c 36 34  |M%..y..:.C(M%,64|
00002c80  29 3a e1 0d 01 7a 49 dd  f2 51 28 5a 25 2c 4a 25  |):...zI..Q(Z%,J%|
00002c90  29 ea 4d 25 3a 4d 25 3d  a4 5a 28 36 34 29 3a 21  |).M%:M%=.Z(64):!|
00002ca0  4d 25 3d 5a 25 3a 4d 25  21 34 3d 4a 25 3a c8 99  |M%=Z%:M%!4=J%:..|
00002cb0  26 34 30 30 63 65 2c 2c  4d 25 3a e7 28 4d 25 21  |&400ce,,M%:.(M%!|
00002cc0  32 34 29 80 28 31 3c 3c  32 33 29 8c 0d 01 7b 4a  |24).(1<<23)...{J|
00002cd0  c8 99 26 34 30 30 64 31  2c 5a 25 2c 4d 25 21 38  |..&400d1,Z%,M%!8|
00002ce0  2c 4d 25 21 31 32 2c 4d  25 21 31 36 2c 4d 25 21  |,M%!12,M%!16,M%!|
00002cf0  32 30 3a 4d 25 21 38 3d  30 3c 3c 32 33 3a 4d 25  |20:M%!8=0<<23:M%|
00002d00  21 31 32 3d 31 3c 3c 32  33 3a c8 99 26 34 30 30  |!12=1<<23:..&400|
00002d10  63 64 2c 2c 4d 25 0d 01  7c 11 cd 3a f2 43 28 4d  |cd,,M%..|..:.C(M|
00002d20  25 2c 36 34 29 3a e1 0d  01 7d 2b dd f2 50 79 28  |%,64):...}+..Py(|
00002d30  45 25 29 45 25 21 59 2b  3d 31 3a e7 45 25 21 4d  |E%)E%!Y+=1:.E%!M|
00002d40  3d 30 8c f2 4e 28 45 25  21 45 2c 4e 2c 45 25 21  |=0..N(E%!E,N,E%!|
00002d50  59 29 0d 01 7e 25 e7 45  25 21 59 3d 31 8c f2 45  |Y)..~%.E%!Y=1..E|
00002d60  28 45 25 21 45 2c 4e 2b  31 2c a4 45 28 22 46 53  |(E%!E,N+1,.E("FS|
00002d70  63 61 6e 31 22 29 29 0d  01 7f 25 e7 45 25 21 59  |can1"))...%.E%!Y|
00002d80  3d 32 8c f2 45 28 45 25  21 45 2c 4e 2b 31 2c a4  |=2..E(E%!E,N+1,.|
00002d90  45 28 22 46 53 63 61 6e  4e 22 29 29 0d 01 80 05  |E("FScanN"))....|
00002da0  e1 0d 01 81 14 dd f2 59  28 45 25 2c 68 75 25 29  |.......Y(E%,hu%)|
00002db0  e7 68 75 25 8c 0d 01 82  2a 45 25 21 66 3d b9 3a  |.hu%....*E%!f=.:|
00002dc0  45 25 21 54 2b 3d 31 3a  e7 45 25 21 4d 3d 30 8c  |E%!T+=1:.E%!M=0.|
00002dd0  f2 4e 28 45 25 21 45 2c  51 2c 45 25 21 54 29 0d  |.N(E%!E,Q,E%!T).|
00002de0  01 83 25 e7 45 25 21 54  3d 31 8c f2 45 28 45 25  |..%.E%!T=1..E(E%|
00002df0  21 45 2c 51 2b 31 2c a4  45 28 22 46 43 6f 6e 76  |!E,Q+1,.E("FConv|
00002e00  31 22 29 29 0d 01 84 25  e7 45 25 21 54 3d 32 8c  |1"))...%.E%!T=2.|
00002e10  f2 45 28 45 25 21 45 2c  51 2b 31 2c a4 45 28 22  |.E(E%!E,Q+1,.E("|
00002e20  46 43 6f 6e 76 4e 22 29  29 0d 01 85 11 cd 3a f2  |FConvN")).....:.|
00002e30  56 28 45 25 2c 22 22 29  3a e1 0d 01 86 2b dd f2  |V(E%,""):....+..|
00002e40  69 79 28 45 25 29 45 25  21 77 2b 3d 31 3a e7 45  |iy(E%)E%!w+=1:.E|
00002e50  25 21 4d 3d 30 8c f2 4e  28 45 25 21 45 2c 55 2c  |%!M=0..N(E%!E,U,|
00002e60  45 25 21 77 29 0d 01 87  25 e7 45 25 21 77 3d 31  |E%!w)...%.E%!w=1|
00002e70  8c f2 45 28 45 25 21 45  2c 55 2b 31 2c a4 45 28  |..E(E%!E,U+1,.E(|
00002e80  22 41 53 63 61 6e 31 22  29 29 0d 01 88 25 e7 45  |"AScan1"))...%.E|
00002e90  25 21 77 3d 32 8c f2 45  28 45 25 21 45 2c 55 2b  |%!w=2..E(E%!E,U+|
00002ea0  31 2c a4 45 28 22 41 53  63 61 6e 4e 22 29 29 0d  |1,.E("AScanN")).|
00002eb0  01 89 05 e1 0d 01 8a 45  dd f2 76 5f 28 45 25 29  |.......E..v_(E%)|
00002ec0  45 25 21 4b 2b 3d 31 3a  f2 4e 28 45 25 21 45 2c  |E%!K+=1:.N(E%!E,|
00002ed0  57 2c 45 25 21 4b 29 3a  e7 45 25 21 4b 3d 31 8c  |W,E%!K):.E%!K=1.|
00002ee0  f2 45 28 45 25 21 45 2c  57 2b 31 2c a4 45 28 22  |.E(E%!E,W+1,.E("|
00002ef0  41 43 6f 6e 76 31 22 29  29 0d 01 8b 25 e7 45 25  |AConv1"))...%.E%|
00002f00  21 4b 3d 32 8c f2 45 28  45 25 21 45 2c 57 2b 31  |!K=2..E(E%!E,W+1|
00002f10  2c a4 45 28 22 41 43 6f  6e 76 4e 22 29 29 0d 01  |,.E("AConvN"))..|
00002f20  8c 05 e1 0d 01 8d 16 dd  f2 62 28 45 25 2c 45 24  |.........b(E%,E$|
00002f30  29 e7 45 25 21 4d 3d 30  8c 0d 01 8e 15 f2 45 28  |).E%!M=0......E(|
00002f40  45 25 21 45 2c 74 2c a4  78 28 45 24 29 29 0d 01  |E%!E,t,.x(E$))..|
00002f50  8f 07 cd 3a e1 0d 01 90  16 dd f2 56 28 45 25 2c  |...:.......V(E%,|
00002f60  45 24 29 e7 45 25 21 4d  3d 30 8c 0d 01 91 15 f2  |E$).E%!M=0......|
00002f70  45 28 45 25 21 45 2c 65  2c a4 78 28 45 24 29 29  |E(E%!E,e,.x(E$))|
00002f80  0d 01 92 07 cd 3a e1 0d  01 93 15 dd a4 78 28 45  |.....:.......x(E|
00002f90  24 29 e7 a9 28 45 24 29  3e 58 79 8c 0d 01 94 16  |$)..(E$)>Xy.....|
00002fa0  45 24 3d 22 2e 2e 2e 22  2b c2 45 24 2c 58 79 2d  |E$="..."+.E$,Xy-|
00002fb0  33 29 0d 01 95 09 cd 3a  3d 45 24 0d 01 96 1e dd  |3).....:=E$.....|
00002fc0  a4 73 28 45 25 29 ea 45  24 2c 56 25 3a 56 25 3d  |.s(E%).E$,V%:V%=|
00002fd0  45 25 21 4a 3a e7 56 25  8c 0d 01 97 0e 45 24 3d  |E%!J:.V%.....E$=|
00002fe0  24 28 56 25 2b 44 29 0d  01 98 0f cc 45 24 3d 24  |$(V%+D).....E$=$|
00002ff0  28 45 25 2b 69 29 0d 01  99 09 cd 3a 3d 45 24 0d  |(E%+i).....:=E$.|
00003000  01 9a 1f dd f2 64 28 45  25 29 45 25 21 4d 3d 28  |.....d(E%)E%!M=(|
00003010  45 25 21 4d 3d 30 29 3a  e7 45 25 21 4d 8c 0d 01  |E%!M=0):.E%!M...|
00003020  9b 06 f2 6f 0d 01 9c 5c  cc f2 62 28 45 25 2c a4  |...o...\..b(E%,.|
00003030  73 28 45 25 29 29 3a f2  56 28 45 25 2c 22 22 29  |s(E%)):.V(E%,"")|
00003040  3a f2 4e 28 45 25 21 45  2c 51 2c 45 25 21 54 29  |:.N(E%!E,Q,E%!T)|
00003050  3a f2 4e 28 45 25 21 45  2c 4e 2c 45 25 21 59 29  |:.N(E%!E,N,E%!Y)|
00003060  3a f2 4e 28 45 25 21 45  2c 57 2c 45 25 21 4b 29  |:.N(E%!E,W,E%!K)|
00003070  3a f2 4e 28 45 25 21 45  2c 55 2c 45 25 21 77 29  |:.N(E%!E,U,E%!w)|
00003080  0d 01 9d 07 cd 3a e1 0d  01 9e 62 dd f2 6f f2 45  |.....:....b..o.E|
00003090  28 45 25 21 45 2c 74 2c  22 2d 22 29 3a f2 45 28  |(E%!E,t,"-"):.E(|
000030a0  45 25 21 45 2c 65 2c 22  2d 22 29 3a f2 45 28 45  |E%!E,e,"-"):.E(E|
000030b0  25 21 45 2c 51 2c 22 2d  22 29 3a f2 45 28 45 25  |%!E,Q,"-"):.E(E%|
000030c0  21 45 2c 4e 2c 22 2d 22  29 3a f2 45 28 45 25 21  |!E,N,"-"):.E(E%!|
000030d0  45 2c 57 2c 22 2d 22 29  3a f2 45 28 45 25 21 45  |E,W,"-"):.E(E%!E|
000030e0  2c 55 2c 22 2d 22 29 3a  e1 0d 01 9f 2f dd f2 58  |,U,"-"):..../..X|
000030f0  5f 28 45 25 2c 60 24 29  ea 4d 25 2c 71 4a 25 2c  |_(E%,`$).M%,qJ%,|
00003100  78 4a 25 2c 73 4a 25 2c  75 5f 25 3a e7 45 25 21  |xJ%,sJ%,u_%:.E%!|
00003110  4d 8c f2 64 28 45 25 29  0d 01 a0 ea f2 45 28 45  |M..d(E%).....E(E|
00003120  25 21 45 2c 6d 79 2c 60  24 29 3a 4d 25 3d a4 5a  |%!E,my,`$):M%=.Z|
00003130  28 36 34 29 3a 21 4d 25  3d 45 25 21 45 3a 73 4a  |(64):!M%=E%!E:sJ|
00003140  25 3d 58 5f 25 2b 31 3a  75 5f 25 3d 44 5f 25 2b  |%=X_%+1:u_%=D_%+|
00003150  31 3a 71 4a 25 3d ac 28  28 31 3c 3c 43 5f 25 29  |1:qJ%=.((1<<C_%)|
00003160  2d 31 29 3a 78 4a 25 3d  ac 28 28 31 3c 3c 57 79  |-1):xJ%=.((1<<Wy|
00003170  25 29 2d 31 29 3a 4d 25  21 34 3d 28 28 73 4a 25  |%)-1):M%!4=((sJ%|
00003180  2d 73 5f 25 29 2f 32 29  80 71 4a 25 3a 4d 25 21  |-s_%)/2).qJ%:M%!|
00003190  31 36 3d 75 5f 25 2d 28  28 28 28 75 5f 25 2d 36  |16=u_%-((((u_%-6|
000031a0  38 29 2d 7a 5f 25 29 2f  32 29 80 78 4a 25 29 3a  |8)-z_%)/2).xJ%):|
000031b0  4d 25 21 31 32 3d 4d 25  21 34 2b 73 5f 25 3a 4d  |M%!12=M%!4+s_%:M|
000031c0  25 21 38 3d 4d 25 21 31  36 2d 7a 5f 25 3a 4d 25  |%!8=M%!16-z_%:M%|
000031d0  21 32 30 3d 30 3a 4d 25  21 32 34 3d 30 3a 4d 25  |!20=0:M%!24=0:M%|
000031e0  21 32 38 3d 2d 31 3a c8  99 26 34 30 30 63 35 2c  |!28=-1:..&400c5,|
000031f0  2c 4d 25 3a ef 37 3a f2  43 28 4d 25 2c 36 34 29  |,M%:.7:.C(M%,64)|
00003200  3a e1 0d 01 a1 8c dd f2  6a 28 45 25 29 ea 4d 25  |:.......j(E%).M%|
00003210  3a 4d 25 3d a4 5a 28 36  34 29 3a 21 4d 25 3d 45  |:M%=.Z(64):!M%=E|
00003220  25 21 45 3a c8 99 26 34  30 30 63 62 2c 2c 4d 25  |%!E:..&400cb,,M%|
00003230  3a 4d 25 21 31 32 3d 4d  25 21 34 2b 76 4a 25 3a  |:M%!12=M%!4+vJ%:|
00003240  4d 25 21 31 36 3d 4d 25  21 38 2b 60 4a 25 3a 4d  |M%!16=M%!8+`J%:M|
00003250  25 21 32 30 3d 68 4a 25  3a 4d 25 21 32 34 3d 79  |%!20=hJ%:M%!24=y|
00003260  4a 25 3a 4d 25 21 32 38  3d 2d 31 3a c8 99 26 34  |J%:M%!28=-1:..&4|
00003270  30 30 63 35 2c 2c 4d 25  3a f2 43 28 4d 25 2c 36  |00c5,,M%:.C(M%,6|
00003280  34 29 3a f2 56 28 45 25  2c 22 22 29 3a e1 0d 01  |4):.V(E%,""):...|
00003290  a2 0e dd f2 6c 79 e7 58  25 3d 30 8c 0d 01 a3 23  |....ly.X%=0....#|
000032a0  de 4d 4a 25 34 3a 21 4d  4a 25 3d 30 3a e7 a4 4f  |.MJ%4:!MJ%=0:..O|
000032b0  28 22 43 68 6f 69 63 65  73 22 2c 4d 4a 25 29 0d  |("Choices",MJ%).|
000032c0  01 a4 0b 58 25 3d 21 4d  4a 25 0d 01 a5 0a cd 3a  |...X%=!MJ%.....:|
000032d0  e7 58 25 8c 0d 01 a6 18  f2 79 3a f2 79 79 28 58  |.X%......y:.yy(X|
000032e0  25 29 3a f2 69 28 58 25  2c 2d 31 29 0d 01 a7 07  |%):.i(X%,-1)....|
000032f0  cd 3a e1 0d 01 a8 0b dd  f2 79 e7 58 25 8c 0d 01  |.:.......y.X%...|
00003300  a9 58 c8 99 26 34 36 35  63 36 2c 5f 25 2c 58 25  |.X..&465c6,_%,X%|
00003310  3a f2 49 28 58 25 2c 5f  5f 25 2c 21 73 29 3a f2  |:.I(X%,__%,!s):.|
00003320  49 28 58 25 2c 6e 5f 25  2c 21 7a 29 3a f2 49 28  |I(X%,n_%,!z):.I(|
00003330  58 25 2c 72 5f 25 2c 21  5f 29 3a f2 49 28 58 25  |X%,r_%,!_):.I(X%|
00003340  2c 6f 5f 25 2c 21 4f 29  3a f2 49 28 58 25 2c 63  |,o_%,!O):.I(X%,c|
00003350  5f 25 2c a4 61 29 0d 01  aa 07 cd 3a e1 0d 01 ab  |_%,.a).....:....|
00003360  23 dd f2 63 79 28 59 25  2c 54 25 29 ea 6d 79 25  |#..cy(Y%,T%).my%|
00003370  3a f2 69 28 58 25 2c 2d  31 29 3a c8 8e 54 25 ca  |:.i(X%,-1):..T%.|
00003380  0d 01 ac 11 c9 57 4a 25  3a f2 4c 3a 6d 79 25 3d  |.....WJ%:.L:my%=|
00003390  b9 0d 01 ad 11 c9 47 4a  25 3a f2 79 3a 6d 79 25  |......GJ%:.y:my%|
000033a0  3d b9 0d 01 ae 15 c9 43  4a 25 3a f2 4c 3a f2 46  |=......CJ%:.L:.F|
000033b0  79 3a 6d 79 25 3d b9 0d  01 af 15 c9 6f 4a 25 3a  |y:my%=......oJ%:|
000033c0  f2 43 79 3a f2 79 3a 6d  79 25 3d b9 0d 01 b0 0b  |.Cy:.y:my%=.....|
000033d0  cb 3a e7 6d 79 25 8c 0d  01 b1 13 e7 59 25 80 31  |.:.my%......Y%.1|
000033e0  30 39 32 8c f2 55 28 58  25 29 0d 01 b2 07 cd 3a  |092..U(X%).....:|
000033f0  e1 0d 01 b3 65 dd f2 4c  ea 65 5f 25 2c 49 24 2c  |....e..L.e_%,I$,|
00003400  52 24 2c 50 24 3a 21 73  3d a4 57 28 58 25 2c 5f  |R$,P$:!s=.W(X%,_|
00003410  5f 25 29 3a 21 7a 3d a4  57 28 58 25 2c 6e 5f 25  |_%):!z=.W(X%,n_%|
00003420  29 3a 21 5f 3d a4 57 28  58 25 2c 72 5f 25 29 3a  |):!_=.W(X%,r_%):|
00003430  21 4f 3d a4 57 28 58 25  2c 6f 5f 25 29 3a 65 5f  |!O=.W(X%,o_%):e_|
00003440  25 3d a4 61 3a e7 65 5f  25 3c 3e a4 57 28 58 25  |%=.a:.e_%<>.W(X%|
00003450  2c 63 5f 25 29 8c 0d 01  b4 29 49 24 3d 22 54 46  |,c_%)....)I$="TF|
00003460  6f 6e 74 22 3a 52 24 3d  22 54 53 79 73 74 65 6d  |ont":R$="TSystem|
00003470  22 3a e7 ac 65 5f 25 8c  c8 94 49 24 2c 52 24 0d  |":..e_%...I$,R$.|
00003480  01 b5 5b 50 24 3d a4 53  28 52 79 25 29 2b 22 2e  |..[P$=.S(Ry%)+".|
00003490  22 3a 49 24 3d 50 24 2b  49 24 2b bd 30 3a 52 24  |":I$=P$+I$+.0:R$|
000034a0  3d 50 24 2b 52 24 2b bd  30 3a 50 24 3d 50 24 2b  |=P$+R$+.0:P$=P$+|
000034b0  22 54 65 6d 70 6c 61 74  65 73 22 2b bd 30 3a c8  |"Templates"+.0:.|
000034c0  99 34 31 2c 32 35 2c 50  24 2c 49 24 3a c8 99 34  |.41,25,P$,I$:..4|
000034d0  31 2c 32 35 2c 52 24 2c  50 24 0d 01 b6 07 cd 3a  |1,25,R$,P$.....:|
000034e0  e1 0d 01 b7 16 dd f2 6a  79 28 54 25 2c 72 4a 25  |.......jy(T%,rJ%|
000034f0  29 c8 8e 72 4a 25 ca 0d  01 b8 11 c9 31 33 3a f2  |)..rJ%......13:.|
00003500  4c 3a f2 55 28 58 25 29  0d 01 b9 0e c9 32 37 3a  |L:.U(X%).....27:|
00003510  f2 55 28 58 25 29 0d 01  ba 12 c9 33 38 36 3a f2  |.U(X%).....386:.|
00003520  4c 3a f2 55 28 58 25 29  0d 01 bb 0f c9 33 38 37  |L:.U(X%).....387|
00003530  3a f2 55 28 58 25 29 0d  01 bc 16 c9 33 38 38 3a  |:.U(X%).....388:|
00003540  f2 4c 3a f2 46 79 3a f2  55 28 58 25 29 0d 01 bd  |.L:.Fy:.U(X%)...|
00003550  13 c9 33 38 39 3a f2 43  79 3a f2 55 28 58 25 29  |..389:.Cy:.U(X%)|
00003560  0d 01 be 11 7f c8 99 26  34 30 30 64 63 2c 72 4a  |.......&400dc,rJ|
00003570  25 0d 01 bf 07 cb 3a e1  0d 01 c0 7b dd a4 61 ea  |%.....:....{..a.|
00003580  55 25 2c 46 25 2c 41 79  25 2c 52 25 3a 46 25 3d  |U%,F%,Ay%,R%:F%=|
00003590  a4 5a 28 31 32 38 29 3a  41 79 25 3d 30 3a f5 c8  |.Z(128):Ay%=0:..|
000035a0  99 31 32 2c 39 2c 52 79  25 2c 46 25 2c 31 2c 41  |.12,9,Ry%,F%,1,A|
000035b0  79 25 2c 31 32 38 2c 22  54 53 79 73 74 65 6d 22  |y%,128,"TSystem"|
000035c0  2b bd 30 b8 2c 2c 2c 52  25 2c 41 79 25 3a 55 25  |+.0.,,,R%,Ay%:U%|
000035d0  3d 28 52 25 3d 31 29 3a  fd 28 41 79 25 3d 2d 31  |=(R%=1):.(Ay%=-1|
000035e0  29 84 55 25 3a f2 43 28  46 25 2c 31 32 38 29 3a  |).U%:.C(F%,128):|
000035f0  3d 55 25 0d 01 c1 14 dd  f2 7a 79 ea 41 24 3a c8  |=U%......zy.A$:.|
00003600  8e 57 25 21 32 30 ca 0d  01 c2 17 c9 58 25 3a 41  |.W%!20......X%:A|
00003610  24 3d 22 57 69 6e 43 68  6f 69 63 65 73 22 0d 01  |$="WinChoices"..|
00003620  c3 0e cb 3a e7 41 24 3c  3e 22 22 8c 0d 01 c4 6c  |...:.A$<>""....l|
00003630  41 24 3d a4 45 28 41 24  29 3a 57 25 21 31 36 3d  |A$=.E(A$):W%!16=|
00003640  26 34 30 30 63 63 3a 57  25 21 31 32 3d 57 25 21  |&400cc:W%!12=W%!|
00003650  38 3a 24 28 57 25 2b 32  38 29 3d 6e 24 2b bd 30  |8:$(W%+28)=n$+.0|
00003660  3a 24 28 57 25 2b 33 36  29 3d 41 24 2b bd 30 3a  |:$(W%+36)=A$+.0:|
00003670  57 25 21 30 3d 28 33 36  2b a9 28 41 24 29 2b 34  |W%!0=(36+.(A$)+4|
00003680  29 80 2d 34 3a c8 99 26  34 30 30 65 37 2c 31 37  |).-4:..&400e7,17|
00003690  2c 57 25 2c 57 25 21 34  0d 01 c5 07 cd 3a e1 0d  |,W%,W%!4.....:..|
000036a0  01 c6 0a dd a4 4c 3d 31  39 0d 01 c7 19 dd f2 44  |.....L=19......D|
000036b0  79 28 44 4a 25 2c 76 75  25 29 e7 a4 4c 3c 76 75  |y(DJ%,vu%)..L<vu|
000036c0  25 8c 0d 01 c8 0d 85 31  2c 22 45 49 4c 31 22 0d  |%......1,"EIL1".|
000036d0  01 c9 0d cd 3a e7 44 4a  25 3c 31 8c 0d 01 ca 0d  |....:.DJ%<1.....|
000036e0  85 31 2c 22 45 49 4c 32  22 0d 01 cb 69 cd 3a 49  |.1,"EIL2"...i.:I|
000036f0  5f 25 3d 44 4a 25 3a de  4d 24 28 49 5f 25 2d 31  |_%=DJ%:.M$(I_%-1|
00003700  29 3a de 41 25 28 49 5f  25 2d 31 29 3a 60 5f 25  |):.A%(I_%-1):`_%|
00003710  3d 30 3a de 61 79 25 32  35 36 3a 42 5f 25 3d 34  |=0:.ay%256:B_%=4|
00003720  30 3a 77 25 3d 30 3a 56  79 25 3d 31 32 3a 62 4a  |0:w%=0:Vy%=12:bJ|
00003730  25 3d a3 3a de 45 24 28  42 5f 25 2d 31 29 3a 63  |%=.:.E$(B_%-1):c|
00003740  79 25 3d a3 3a 42 79 25  3d a3 3a 61 5f 25 3d b9  |y%=.:By%=.:a_%=.|
00003750  3a e1 0d 01 cc 1c dd f2  41 28 4a 24 2c 74 4a 25  |:.......A(J$,tJ%|
00003760  29 f2 62 5f 28 4a 24 2c  74 4a 25 29 3a e1 0d 01  |).b_(J$,tJ%):...|
00003770  cd 5a dd f2 62 5f 28 4a  24 2c 74 4a 25 29 ea 76  |.Z..b_(J$,tJ%).v|
00003780  25 2c 4a 25 2c 43 24 2c  66 24 3a 4a 25 3d 30 3a  |%,J%,C$,f$:J%=0:|
00003790  76 25 3d b9 3a 43 24 3d  c1 4a 24 2c 31 2b a7 4a  |v%=.:C$=.J$,1+.J|
000037a0  24 2c 22 2e 22 29 29 3a  c8 95 4a 25 3c 60 5f 25  |$,".")):..J%<`_%|
000037b0  80 76 25 3a 76 25 3d 28  43 24 3c 3e 4d 24 28 4a  |.v%:v%=(C$<>M$(J|
000037c0  25 29 29 3a e7 76 25 8c  0d 01 ce 09 4a 25 2b 3d  |%)):.v%.....J%+=|
000037d0  31 0d 01 cf 0c cd 3a ce  3a e7 76 25 8c 0d 01 d0  |1.....:.:.v%....|
000037e0  0c e7 4a 25 3d 49 5f 25  8c 0d 01 d1 0d 85 31 2c  |..J%=I_%......1,|
000037f0  22 45 49 4c 33 22 0d 01  d2 4f cd 3a 4d 24 28 4a  |"EIL3"...O.:M$(J|
00003800  25 29 3d 43 24 3a 66 24  3d 22 27 22 2b 4a 24 2b  |%)=C$:f$="'"+J$+|
00003810  22 27 20 64 6f 65 73 20  6e 6f 74 20 68 61 76 65  |"' does not have|
00003820  20 61 20 46 4e 5f 22 3a  ea 85 3a ee 85 ea f7 85  | a FN_":..:.....|
00003830  3a f2 5a 28 66 24 2b 43  24 2b 22 5f 76 65 72 73  |:.Z(f$+C$+"_vers|
00003840  69 6f 6e 22 29 0d 01 d3  52 41 25 28 4a 25 29 3d  |ion")...RA%(J%)=|
00003850  a0 28 22 46 4e 5f 22 2b  43 24 2b 22 5f 76 65 72  |.("FN_"+C$+"_ver|
00003860  73 69 6f 6e 22 29 3a f7  85 3a 60 5f 25 2b 3d 31  |sion"):..:`_%+=1|
00003870  3a ea 85 3a ee 85 ea f7  85 3a f2 5a 28 66 24 2b  |:..:.....:.Z(f$+|
00003880  22 5f 68 61 72 64 5f 69  6e 69 74 69 61 6c 69 73  |"_hard_initialis|
00003890  65 5f 22 2b 43 24 29 0d  01 d4 21 e7 a0 28 22 46  |e_"+C$)...!..("F|
000038a0  4e 5f 68 61 72 64 5f 69  6e 69 74 69 61 6c 69 73  |N_hard_initialis|
000038b0  65 5f 22 2b 43 24 29 8c  0d 01 d5 11 85 31 2c 22  |e_"+C$)......1,"|
000038c0  45 49 4c 35 20 22 2b 4a  24 0d 01 d6 08 cd 3a f7  |EIL5 "+J$.....:.|
000038d0  85 0d 01 d7 12 cd 3a e7  74 4a 25 3e 41 25 28 4a  |......:.tJ%>A%(J|
000038e0  25 29 8c 0d 01 d8 11 85  31 2c 22 45 49 4c 34 20  |%)......1,"EIL4 |
000038f0  22 2b 4a 24 0d 01 d9 07  cd 3a e1 0d 01 da 17 dd  |"+J$.....:......|
00003900  a4 4d 28 79 24 29 ea 85  3a ee 85 ea f7 85 3a f2  |.M(y$)..:.....:.|
00003910  61 79 0d 01 db 0a 3d a0  28 79 24 29 0d 01 dc 0d  |ay....=.(y$)....|
00003920  dd f2 61 79 e7 61 5f 25  8c 0d 01 dd 2d 85 9f 2c  |..ay.a_%....-..,|
00003930  f6 24 2b 22 20 28 65 76  61 6c 75 61 74 69 6e 67  |.$+" (evaluating|
00003940  20 60 22 2b 79 24 2b 22  27 20 5b 22 2b c3 28 9e  | `"+y$+"' ["+.(.|
00003950  29 2b 22 5d 29 22 0d 01  de 0a cc 85 9f 2c f6 24  |)+"])".......,.$|
00003960  0d 01 df 07 cd 3a e1 0d  01 e0 2b dd a4 47 28 41  |.....:....+..G(A|
00003970  25 29 ea 53 24 3a c8 95  3f 41 25 3a 53 24 2b 3d  |%).S$:..?A%:S$+=|
00003980  bd 28 3f 41 25 29 3a 41  25 2b 3d 31 3a ce 3a 3d  |.(?A%):A%+=1:.:=|
00003990  53 24 0d 01 e1 3b dd a4  57 79 28 41 25 2c 42 25  |S$...;..Wy(A%,B%|
000039a0  29 ea 53 24 3a c8 95 42  25 3e 3d 31 80 3f 41 25  |).S$:..B%>=1.?A%|
000039b0  3a 53 24 2b 3d bd 28 3f  41 25 29 3a 41 25 2b 3d  |:S$+=.(?A%):A%+=|
000039c0  31 3a 42 25 2d 3d 31 3a  ce 3a 3d 53 24 0d 01 e2  |1:B%-=1:.:=S$...|
000039d0  2e dd a4 53 28 41 25 29  ea 53 24 3a c8 95 3f 41  |...S(A%).S$:..?A|
000039e0  25 3e 33 31 3a 53 24 2b  3d bd 28 3f 41 25 29 3a  |%>31:S$+=.(?A%):|
000039f0  41 25 2b 3d 31 3a ce 3a  3d 53 24 0d 01 e3 21 dd  |A%+=1:.:=S$...!.|
00003a00  f2 78 28 41 25 2c 53 24  29 24 41 25 3d 53 24 3a  |.x(A%,S$)$A%=S$:|
00003a10  41 25 3f a9 28 53 24 29  3d 30 3a e1 0d 01 e4 1c  |A%?.(S$)=0:.....|
00003a20  dd f2 6c 28 41 25 2c 53  24 2c 42 25 29 e7 a9 28  |..l(A%,S$,B%)..(|
00003a30  53 24 29 3c 3d 42 25 8c  0d 01 e5 28 24 41 25 3d  |S$)<=B%....($A%=|
00003a40  c0 53 24 2c 42 25 2d 31  29 3a 41 25 3f 28 42 25  |.S$,B%-1):A%?(B%|
00003a50  2d 31 29 3d 97 28 c1 53  24 2c 42 25 2c 31 29 29  |-1)=.(.S$,B%,1))|
00003a60  0d 01 e6 16 cc 24 41 25  3d 53 24 3a 41 25 3f a9  |.....$A%=S$:A%?.|
00003a70  28 53 24 29 3d 30 0d 01  e7 07 cd 3a e1 0d 01 e8  |(S$)=0.....:....|
00003a80  10 dd f2 5a 28 57 24 29  e7 63 79 25 8c 0d 01 e9  |...Z(W$).cy%....|
00003a90  09 e7 42 79 25 8c 0d 01  ea 16 85 9f 2c f6 24 2b  |..By%.......,.$+|
00003aa0  22 20 5b 22 2b c3 9e 2b  22 5d 2e 22 0d 01 eb 0a  |" ["+..+"]."....|
00003ab0  cc 85 9f 2c f6 24 0d 01  ec 05 cd 0d 01 ed 0b cc  |...,.$..........|
00003ac0  e7 ac 62 4a 25 8c 0d 01  ee 0c e7 77 25 3d 42 5f  |..bJ%......w%=B_|
00003ad0  25 8c 0d 01 ef 26 45 28  42 5f 25 2d 31 29 3d 22  |%....&E(B_%-1)="|
00003ae0  45 72 72 6f 72 73 20 74  6f 6f 20 64 65 65 70 21  |Errors too deep!|
00003af0  21 21 21 21 22 3a f2 65  0d 01 f0 13 cd 3a e7 c2  |!!!!":.e.....:..|
00003b00  57 24 2c 32 29 3d 22 3a  20 22 8c 0d 01 f1 13 57  |W$,2)=": ".....W|
00003b10  24 3d c0 57 24 2c a9 28  57 24 29 2d 32 29 0d 01  |$=.W$,.(W$)-2)..|
00003b20  f2 0b cd 3a e7 42 79 25  8c 0d 01 f3 0d 45 24 28  |...:.By%.....E$(|
00003b30  77 25 29 3d f6 24 0d 01  f4 0b cc e7 77 25 3d 30  |w%)=.$......w%=0|
00003b40  8c 0d 01 f5 4a 45 24 28  77 25 29 3d 22 45 72 72  |....JE$(w%)="Err|
00003b50  6f 72 20 60 22 2b f6 24  2b 22 27 20 28 6c 69 6e  |or `"+.$+"' (lin|
00003b60  65 20 22 3a 45 24 28 77  25 29 2b 3d c3 28 9e 29  |e ":E$(w%)+=.(.)|
00003b70  2b 22 29 20 69 6e 20 22  3a 45 24 28 77 25 29 2b  |+") in ":E$(w%)+|
00003b80  3d 22 60 22 2b 57 24 2b  22 27 22 0d 01 f6 16 cc  |="`"+W$+"'".....|
00003b90  45 24 28 77 25 29 3d 22  60 22 2b 57 24 2b 22 27  |E$(w%)="`"+W$+"'|
00003ba0  22 0d 01 f7 05 cd 0d 01  f8 11 cd 3a 77 25 2b 3d  |"..........:w%+=|
00003bb0  31 3a 85 9f 2c 22 22 0d  01 f9 05 cd 0d 01 fa 07  |1:..,"".........|
00003bc0  cd 3a e1 0d 01 fb 14 dd  f2 65 ea 6b 25 2c 45 79  |.:.......e.k%,Ey|
00003bd0  24 3a e7 63 79 25 8c 0d  01 fc 09 e7 42 79 25 8c  |$:.cy%......By%.|
00003be0  0d 01 fd 20 f2 58 28 9f  2c f6 24 2b 22 20 5b 22  |... .X(.,.$+" ["|
00003bf0  2b c3 28 9e 29 2b 22 5d  2e 22 29 3a f2 46 3a e0  |+.(.)+"]."):.F:.|
00003c00  0d 01 fe 15 cc f2 58 28  9f 2c f6 24 29 3a e7 9f  |......X(.,.$):..|
00003c10  3d 52 5f 25 8c 0d 01 ff  08 f2 46 3a e0 0d 02 00  |=R_%......F:....|
00003c20  05 cd 0d 02 01 05 cd 0d  02 02 0d cc e7 56 79 25  |.............Vy%|
00003c30  3d 2d 32 8c 0d 02 03 0a  e7 77 25 3e 30 8c 0d 02  |=-2......w%>0...|
00003c40  04 0d 85 a2 9f 2c 45 24  28 30 29 0d 02 05 0b cc  |.....,E$(0).....|
00003c50  85 a2 9f 2c f6 24 0d 02  06 07 cd 3a e0 0d 02 07  |...,.$.....:....|
00003c60  0e cd 3a e7 56 79 25 3d  2d 33 8c 0d 02 08 38 24  |..:.Vy%=-3....8$|
00003c70  61 79 25 3d 22 54 41 53  4b 22 3a c8 99 26 34 30  |ay%="TASK":..&40|
00003c80  30 63 30 2c 32 30 30 2c  21 61 79 25 2c 22 4c 69  |0c0,200,!ay%,"Li|
00003c90  62 48 61 6e 64 6c 65 72  22 2b bd 28 30 29 3a e7  |bHandler"+.(0):.|
00003ca0  77 25 8c 0d 02 09 1a e3  6b 25 3d 30 b8 77 25 2d  |w%......k%=0.w%-|
00003cb0  31 3a e7 6b 25 3c 28 77  25 2d 31 29 8c 0d 02 0a  |1:.k%<(w%-1)....|
00003cc0  14 f2 67 28 45 24 28 6b  25 29 2b 22 20 69 6e 22  |..g(E$(k%)+" in"|
00003cd0  29 0d 02 0b 0f cc f2 67  28 45 24 28 6b 25 29 29  |)......g(E$(k%))|
00003ce0  0d 02 0c 09 cd 3a ed 6b  25 0d 02 0d 1e cc f2 67  |.....:.k%......g|
00003cf0  28 f6 24 2b 22 20 28 6c  69 6e 65 20 22 2b c3 28  |(.$+" (line "+.(|
00003d00  9e 29 2b 22 29 22 29 0d  02 0e 10 cd 3a c8 99 26  |.)+")").....:..&|
00003d10  36 30 30 64 64 3a e0 0d  02 0f 0e cd 3a e7 56 79  |600dd:......:.Vy|
00003d20  25 3e 3d 30 8c 0d 02 10  08 eb 56 79 25 0d 02 11  |%>=0......Vy%...|
00003d30  27 cd 3a f1 22 41 6e 20  65 72 72 6f 72 20 68 61  |'.:."An error ha|
00003d40  73 20 6f 63 63 75 72 65  64 2e 2e 2e 22 3a f1 3a  |s occured...":.:|
00003d50  e7 77 25 8c 0d 02 12 36  e3 6b 25 3d 30 b8 77 25  |.w%....6.k%=0.w%|
00003d60  2d 31 3a fb 28 28 37 2d  28 6b 25 3c 3c 31 29 29  |-1:.((7-(k%<<1))|
00003d70  80 36 29 2b 31 3a f1 45  24 28 6b 25 29 3b 3a e7  |.6)+1:.E$(k%);:.|
00003d80  6b 25 3c 28 77 25 2d 31  29 8c 0d 02 13 0c f1 22  |k%<(w%-1)......"|
00003d90  20 69 6e 20 22 3b 0d 02  14 09 cd 3a ed 6b 25 0d  | in ";.....:.k%.|
00003da0  02 15 1b cc f1 f6 24 3b  22 20 28 6c 69 6e 65 20  |......$;" (line |
00003db0  22 3b c3 28 9e 29 3b 22  29 22 0d 02 16 0c cd 3a  |";.(.);")".....:|
00003dc0  f1 3a fb 37 3a e0 0d 02  17 07 cd 3a e1 0d 02 18  |.:.7:......:....|
00003dd0  66 dd f2 67 28 77 24 29  ea 45 75 25 3a 45 75 25  |f..g(w$).Eu%:Eu%|
00003de0  3d 32 30 2b 28 a9 28 77  24 29 2b 35 29 80 2d 34  |=20+(.(w$)+5).-4|
00003df0  3a 21 61 79 25 3d 45 75  25 3a 61 79 25 21 31 36  |:!ay%=Eu%:ay%!16|
00003e00  3d 26 38 30 34 63 30 3a  24 28 61 79 25 2b 32 30  |=&804c0:$(ay%+20|
00003e10  29 3d 77 24 2b bd 28 31  30 29 2b bd 28 30 29 3a  |)=w$+.(10)+.(0):|
00003e20  c8 99 26 36 30 30 65 37  2c 31 37 2c 61 79 25 2c  |..&600e7,17,ay%,|
00003e30  30 3a e1 0d 02 19 16 dd  a4 5f 43 41 73 6d 5f 76  |0:......._CAsm_v|
00003e40  65 72 73 69 6f 6e 3d 31  34 0d 02 1a e8 dd a4 5f  |ersion=14......_|
00003e50  68 61 72 64 5f 69 6e 69  74 69 61 6c 69 73 65 5f  |hard_initialise_|
00003e60  43 41 73 6d f2 41 28 22  3c 42 61 73 69 63 56 5f  |CAsm.A("<BasicV_|
00003e70  41 73 73 65 6d 62 6c 65  72 24 4c 69 62 3e 2e 4d  |Assembler$Lib>.M|
00003e80  69 73 63 22 2c 32 37 29  3a c8 99 35 2c 22 52 4d  |isc",27):..5,"RM|
00003e90  45 6e 73 75 72 65 20 43  41 73 73 65 6d 62 6c 65  |Ensure CAssemble|
00003ea0  72 20 30 2e 30 38 20 52  4d 4c 6f 61 64 20 53 79  |r 0.08 RMLoad Sy|
00003eb0  73 74 65 6d 3a 4d 6f 64  75 6c 65 73 2e 43 41 73  |stem:Modules.CAs|
00003ec0  73 65 6d 62 6c 65 72 22  3a c8 99 35 2c 22 49 66  |sembler":..5,"If|
00003ed0  20 22 22 3c 43 41 73 6d  24 44 69 72 3e 22 22 3d  | ""<CAsm$Dir>""=|
00003ee0  22 22 22 22 20 54 68 65  6e 20 53 65 74 20 43 41  |"""" Then Set CA|
00003ef0  73 6d 24 44 69 72 20 3c  64 3e 2e 4c 69 62 72 61  |sm$Dir <d>.Libra|
00003f00  72 79 2e 43 41 73 6d 22  3a 43 41 73 6d 4c 69 62  |ry.CAsm":CAsmLib|
00003f10  72 61 72 79 5f 73 74 64  6c 69 62 3d 31 3a 43 41  |rary_stdlib=1:CA|
00003f20  73 6d 4c 69 62 72 61 72  79 5f 73 74 64 69 6f 3d  |smLibrary_stdio=|
00003f30  32 0d 02 1b af 43 41 73  6d 4c 69 62 72 61 72 79  |2....CAsmLibrary|
00003f40  5f 73 74 72 69 6e 67 3d  33 3a 79 69 3d 34 3a 6f  |_string=3:yi=4:o|
00003f50  69 3d 35 3a 66 75 3d 36  3a 6a 6c 3d 37 3a 43 41  |i=5:fu=6:jl=7:CA|
00003f60  73 6d 4c 69 62 72 61 72  79 5f 77 69 6d 70 3d 38  |smLibrary_wimp=8|
00003f70  3a 48 5f 3d 39 3a 43 41  73 6d 4c 69 62 72 61 72  |:H_=9:CAsmLibrar|
00003f80  79 5f 6d 65 73 73 61 67  65 3d 31 30 3a 64 6c 3d  |y_message=10:dl=|
00003f90  31 31 3a 6f 75 3d 31 32  3a 44 6c 3d 31 33 3a 67  |11:ou=12:Dl=13:g|
00003fa0  69 3d 31 34 3a 74 75 3d  31 35 3a 5a 69 3d 31 36  |i=14:tu=15:Zi=16|
00003fb0  3a 51 5f 3d 31 37 3a 42  75 3d 31 38 3a 4c 6c 3d  |:Q_=17:Bu=18:Ll=|
00003fc0  31 39 3a 6c 69 3d 32 30  3a 53 4a 3d 32 31 3a 75  |19:li=20:SJ=21:u|
00003fd0  5f 3d 32 32 3a 4b 6c 3d  32 33 3a 68 75 3d 32 34  |_=22:Kl=23:hu=24|
00003fe0  0d 02 1c a9 6f 5f 3d 32  35 3a 77 61 3d 32 36 3a  |....o_=25:wa=26:|
00003ff0  6b 3d 32 36 3a 47 4a 3d  30 3a 48 4a 3d 31 3a 43  |k=26:GJ=0:HJ=1:C|
00004000  75 3d 32 3a 41 4a 3d 33  3a 4d 5f 3d 34 3a 4a 5f  |u=2:AJ=3:M_=4:J_|
00004010  3d 35 3a 42 5f 3d 36 3a  52 69 3d 37 3a 58 61 3d  |=5:B_=6:Ri=7:Xa=|
00004020  38 3a 70 79 3d 39 3a 79  3d 31 30 3a 78 3d 31 31  |8:py=9:y=10:x=11|
00004030  3a 45 79 3d 31 32 3a 41  3d 31 33 3a 5a 3d 31 34  |:Ey=12:A=13:Z=14|
00004040  3a 4a 4a 3d 31 35 3a 61  79 3d 26 36 64 37 33 34  |:JJ=15:ay=&6d734|
00004050  31 34 33 3a 6a 25 3d 30  3a 4b 79 25 3d 31 33 3a  |143:j%=0:Ky%=13:|
00004060  76 3d 30 3a 47 3d 30 3a  5a 79 3d 31 30 2a 31 30  |v=0:G=0:Zy=10*10|
00004070  32 34 3a 66 79 3d 5a 79  2b 28 31 2a 31 30 32 34  |24:fy=Zy+(1*1024|
00004080  29 3a 64 79 3d a3 3a 3d  30 0d 02 1d 41 dd f2 54  |):dy=.:=0...A..T|
00004090  5f 28 4e 24 29 ea 4d 25  2c 69 25 2c 4c 79 25 2c  |_(N$).M%,i%,Ly%,|
000040a0  4c 25 2c 4f 25 2c 50 25  2c 4e 25 2c 4a 24 3a ea  |L%,O%,P%,N%,J$:.|
000040b0  85 3a ee 85 ea f7 85 3a  c8 99 26 34 30 30 65 63  |.:.....:..&400ec|
000040c0  2c 72 79 25 2c 2d 31 3a  f2 54 0d 02 1e 52 72 79  |,ry%,-1:.T...Rry|
000040d0  25 3d 93 2d 33 32 37 36  38 3a c8 99 26 34 30 30  |%=.-32768:..&400|
000040e0  65 63 2c 72 79 25 2b 33  32 37 36 38 2c 2d 31 b8  |ec,ry%+32768,-1.|
000040f0  4c 25 3a 4c 25 2b 3d 33  32 37 36 38 3a 4f 25 3d  |L%:L%+=32768:O%=|
00004100  72 79 25 2b 33 32 37 36  38 3a 50 25 3d 30 3a 4e  |ry%+32768:P%=0:N|
00004110  25 3d 31 34 3a e7 4f 25  3d 4c 25 8c 0d 02 1f 2f  |%=14:.O%=L%..../|
00004120  85 31 2c 22 4e 6f 74 20  65 6e 6f 75 67 68 20 6d  |.1,"Not enough m|
00004130  65 6d 6f 72 79 20 74 6f  20 73 74 61 72 74 20 61  |emory to start a|
00004140  70 70 6c 69 63 61 74 69  6f 6e 22 0d 02 20 0d cd  |pplication".. ..|
00004150  3a e7 6a 25 3c 3e 30 8c  0d 02 21 0d 85 31 2c 22  |:.j%<>0...!..1,"|
00004160  45 49 43 31 22 0d 02 22  20 cd 3a de 78 5f 25 6b  |EIC1".." .:.x_%k|
00004170  2a 38 3a de 53 24 28 6b  29 3a e7 a4 68 5f 44 45  |*8:.S$(k):..h_DE|
00004180  46 41 55 4c 54 0d 02 23  33 c8 95 4e 24 3c 3e 22  |FAULT..#3..N$<>"|
00004190  22 3a 4a 24 3d c0 4e 24  2c a7 4e 24 2c 22 2c 22  |":J$=.N$,.N$,","|
000041a0  29 2d 31 29 3a ea 85 3a  ee 85 ea f7 85 3a f2 5a  |)-1):..:.....:.Z|
000041b0  28 22 45 49 43 32 22 29  0d 02 24 47 69 25 3d a0  |("EIC2")..$Gi%=.|
000041c0  28 22 43 41 73 6d 4c 69  62 72 61 72 79 5f 22 2b  |("CAsmLibrary_"+|
000041d0  4a 24 29 3a f7 85 3a 4c  79 25 3d 78 5f 25 3a 4d  |J$):..:Ly%=x_%:M|
000041e0  25 3d 4c 79 25 2b 28 6a  25 2a 38 29 3a c8 95 4d  |%=Ly%+(j%*8):..M|
000041f0  25 3e 4c 79 25 3a e7 21  4c 79 25 3d 69 25 8c 0d  |%>Ly%:.!Ly%=i%..|
00004200  02 25 0c 4c 79 25 3d 4d  25 2b 31 0d 02 26 0b cc  |.%.Ly%=M%+1..&..|
00004210  4c 79 25 2b 3d 38 0d 02  27 10 cd 3a ce 3a e7 4c  |Ly%+=8..'..:.:.L|
00004220  79 25 3d 4d 25 8c 0d 02  28 0b e7 6a 25 3e 3d 6b  |y%=M%...(..j%>=k|
00004230  8c 0d 02 29 0d 85 31 2c  22 45 49 43 33 22 0d 02  |...)..1,"EIC3"..|
00004240  2a 3d cd 3a 21 4d 25 3d  69 25 3a 53 24 28 69 25  |*=.:!M%=i%:S$(i%|
00004250  29 3d 4a 24 3a 6a 25 2b  3d 31 3a 4f 25 3d 72 79  |)=J$:j%+=1:O%=ry|
00004260  25 2b 33 32 37 36 38 3a  50 25 3d 30 3a e7 a4 4d  |%+32768:P%=0:..M|
00004270  28 22 46 4e 68 5f 22 2b  4a 24 29 0d 02 2b 47 cd  |("FNh_"+J$)..+G.|
00004280  3a 4e 24 3d c1 4e 24 2c  a9 28 4a 24 29 2b 32 29  |:N$=.N$,.(J$)+2)|
00004290  3a c8 95 97 28 4e 24 29  3d 97 28 22 20 22 29 3a  |:...(N$)=.(" "):|
000042a0  4e 24 3d c1 4e 24 2c 32  29 3a ce 3a ce 3a c8 99  |N$=.N$,2):.:.:..|
000042b0  26 34 30 30 65 63 2c 72  79 25 2c 2d 31 3a f7 85  |&400ec,ry%,-1:..|
000042c0  3a e1 0d 02 2c 1c dd f2  57 79 ea 52 25 2c 4d 25  |:...,...Wy.R%,M%|
000042d0  2c 4a 25 2c 45 79 25 3a  e7 6a 25 3d 30 8c 0d 02  |,J%,Ey%:.j%=0...|
000042e0  2d 0f e7 a4 68 5f 44 45  46 41 55 4c 54 0d 02 2e  |-...h_DEFAULT...|
000042f0  1e cd 3a 45 79 25 3d 78  5f 25 3a 4a 25 3d 6a 25  |..:Ey%=x_%:J%=j%|
00004300  3a e7 28 4e 25 80 32 29  3d 30 8c 0d 02 2f 29 de  |:.(N%.2)=0.../).|
00004310  4d 25 6a 25 2a 34 3a c8  99 37 39 2c 6a 25 2c 4d  |M%j%*4:..79,j%,M|
00004320  25 2b 26 63 30 30 30 30  30 30 30 2c 33 2c 2c 45  |%+&c0000000,3,,E|
00004330  79 25 2c 38 0d 02 30 88  cd 3a 5b 4f 50 54 4e 25  |y%,8..0..:[OPTN%|
00004340  3a 2e 57 79 20 44 43 44  61 79 3a 44 43 44 75 79  |:.Wy DCDay:DCDuy|
00004350  3a 5d 3a c8 95 4a 25 3e  30 3a 5b 4f 50 54 4e 25  |:]:..J%>0:[OPTN%|
00004360  3a 44 43 44 21 45 79 25  3a 44 43 44 45 79 25 21  |:DCD!Ey%:DCDEy%!|
00004370  34 3a 5d 3a 45 79 25 2b  3d 38 3a 4a 25 2d 3d 31  |4:]:Ey%+=8:J%-=1|
00004380  3a ce 3a 5b 4f 50 54 4e  25 3a 44 43 44 30 3a 5d  |:.:[OPTN%:DCD0:]|
00004390  3a 5b 4f 50 54 4e 25 3a  41 4c 49 47 4e 3a 2e 6c  |:[OPTN%:ALIGN:.l|
000043a0  3a 5d 3a 4d 25 3d 50 25  3a e7 a4 6a 75 6d 70 62  |:]:M%=P%:..jumpb|
000043b0  6c 6f 63 6b 5f 44 45 46  41 55 4c 54 0d 02 31 49  |lock_DEFAULT..1I|
000043c0  75 79 3d 28 50 25 2d 4d  25 29 3e 3e 32 3a 4a 25  |uy=(P%-M%)>>2:J%|
000043d0  3d 6a 25 3a 45 79 25 3d  78 5f 25 3a c8 95 4a 25  |=j%:Ey%=x_%:..J%|
000043e0  3e 30 3a 4d 25 3d 50 25  3a e7 a4 4d 28 22 46 4e  |>0:M%=P%:..M("FN|
000043f0  6a 75 6d 70 62 6c 6f 63  6b 5f 22 2b 53 24 28 21  |jumpblock_"+S$(!|
00004400  45 79 25 29 29 0d 02 32  25 45 79 25 21 34 3d 28  |Ey%))..2%Ey%!4=(|
00004410  50 25 2d 4d 25 29 3e 3e  32 3a 45 79 25 2b 3d 38  |P%-M%)>>2:Ey%+=8|
00004420  3a 4a 25 2d 3d 31 3a ce  3a e1 0d 02 33 7e dd f2  |:J%-=1:.:...3~..|
00004430  78 5f ea 6f 3a 5b 4f 50  54 4e 25 3a 41 4c 49 47  |x_.o:[OPTN%:ALIG|
00004440  4e 3a 2e 43 79 3a 53 54  4d 46 44 28 41 29 21 2c  |N:.Cy:STMFD(A)!,|
00004450  7b 34 2d 35 2c 5a 7d 3a  42 4c 20 50 25 2b 28 31  |{4-5,Z}:BL P%+(1|
00004460  33 3c 3c 32 29 3a 2e 6f  20 44 43 44 57 79 2d 6f  |3<<2):.o DCDWy-o|
00004470  3a 44 43 44 6c 2d 6f 3a  44 43 44 76 2d 6f 3a 44  |:DCDl-o:DCDv-o:D|
00004480  43 44 47 3a 44 43 44 5a  79 3a 2e 72 3a 44 43 44  |CDG:DCDZy:.r:DCD|
00004490  30 3a 44 43 44 30 3a 44  43 44 30 3a 44 43 44 30  |0:DCD0:DCD0:DCD0|
000044a0  3a 4c 44 52 20 41 2c 72  0d 02 34 bc 4c 44 4d 46  |:LDR A,r..4.LDMF|
000044b0  44 28 41 29 21 2c 7b 79  2c 78 2c 45 79 2c 5a 7d  |D(A)!,{y,x,Ey,Z}|
000044c0  3a 4d 4f 56 70 63 2c 5a  3a 42 49 43 20 35 2c 5a  |:MOVpc,Z:BIC 5,Z|
000044d0  2c 23 26 66 63 30 30 30  30 30 33 3a 4c 44 4d 49  |,#&fc000003:LDMI|
000044e0  41 35 2c 7b 30 2d 34 7d  3a 41 44 44 30 2c 30 2c  |A5,{0-4}:ADD0,0,|
000044f0  35 3a 41 44 44 31 2c 31  2c 35 3a 41 44 44 32 2c  |5:ADD1,1,5:ADD2,|
00004500  32 2c 35 3a 4d 4f 56 35  2c 23 30 3a 53 57 49 20  |2,5:MOV5,#0:SWI |
00004510  26 66 63 62 38 30 3a 53  54 52 76 63 30 2c 72 2b  |&fcb80:STRvc0,r+|
00004520  28 31 3c 3c 32 29 3a 53  54 52 76 63 31 2c 72 2b  |(1<<2):STRvc1,r+|
00004530  28 33 3c 3c 32 29 3a 4c  44 4d 46 44 28 41 29 21  |(3<<2):LDMFD(A)!|
00004540  2c 7b 34 2d 35 2c 70 63  7d 3a 2e 6d 3a a4 46 3a  |,{4-5,pc}:.m:.F:|
00004550  4d 4f 56 32 2c 5a 3a 4d  4f 56 31 2c 41 3a 4d 4f  |MOV2,Z:MOV1,A:MO|
00004560  56 30 2c 79 0d 02 35 72  53 57 49 20 26 66 63 62  |V0,y..5rSWI &fcb|
00004570  38 31 3a 4d 4f 56 76 63  31 2c 23 30 3a 53 54 52  |81:MOVvc1,#0:STR|
00004580  76 63 31 2c 72 2b 28 33  3c 3c 32 29 3a 4d 4f 56  |vc1,r+(3<<2):MOV|
00004590  70 63 2c 32 3a 4d 4f 56  31 33 2c 31 32 3a 5d 3a  |pc,2:MOV13,12:]:|
000045a0  76 3d 50 25 3a f2 57 3a  f2 4a 79 3a 47 3d 28 47  |v=P%:.W:.Jy:G=(G|
000045b0  2b 33 29 80 2d 34 3a 50  25 2b 3d 47 2d 31 3a 4f  |+3).-4:P%+=G-1:O|
000045c0  25 2b 3d 47 2d 31 3a 5b  4f 50 54 4e 25 3a 44 43  |%+=G-1:[OPTN%:DC|
000045d0  42 30 3a 5d 3a e1 0d 02  36 1c dd f2 4a 5f e7 50  |B0:]:...6...J_.P|
000045e0  25 3c 3e 33 32 37 36 38  8c 85 31 2c 22 45 49 43  |%<>32768..1,"EIC|
000045f0  34 22 0d 02 37 6f 5b 4f  50 54 4e 25 3a 41 44 52  |4"..7o[OPTN%:ADR|
00004600  34 2c 6e 3a 4d 4f 56 35  2c 23 73 79 3a 53 57 49  |4,n:MOV5,#sy:SWI|
00004610  20 26 66 63 62 38 30 3a  a4 49 28 22 76 63 22 2c  | &fcb80:.I("vc",|
00004620  32 2c 41 69 29 3a 42 76  63 20 5f 79 3a 53 57 49  |2,Ai):Bvc _y:SWI|
00004630  20 34 33 3a 2e 6e 3a 44  43 44 57 79 2d 6e 3a 44  | 43:.n:DCDWy-n:D|
00004640  43 44 6c 2d 6e 3a 44 43  44 76 2d 6e 3a 44 43 44  |CDl-n:DCDv-n:DCD|
00004650  47 3a 44 43 44 5a 79 3a  44 43 44 66 79 3a 5d 3a  |G:DCDZy:DCDfy:]:|
00004660  e1 0d 02 38 75 dd a4 46  5b 4f 50 54 4e 25 3a 53  |...8u..F[OPTN%:S|
00004670  54 4d 46 44 28 41 29 21  2c 7b 79 2c 78 2c 45 79  |TMFD(A)!,{y,x,Ey|
00004680  2c 5a 7d 3a 4d 4f 56 20  78 2c 70 63 3a a4 49 28  |,Z}:MOV x,pc:.I(|
00004690  22 22 2c 5a 2c 72 29 3a  53 54 52 20 41 2c 5b 5a  |"",Z,r):STR A,[Z|
000046a0  5d 2c 23 34 3a 4c 44 4d  49 41 28 5a 29 21 2c 7b  |],#4:LDMIA(Z)!,{|
000046b0  79 2c 45 79 2c 41 7d 3a  80 20 78 2c 78 2c 23 26  |y,Ey,A}:. x,x,#&|
000046c0  66 63 30 30 30 30 30 33  3a 84 52 20 5a 2c 5a 2c  |fc000003:.R Z,Z,|
000046d0  78 3a 5d 3a 3d 30 0d 02  39 5e dd f2 68 79 28 6e  |x:]:=0..9^..hy(n|
000046e0  79 25 2c 54 79 25 2c 4c  4a 25 29 f2 41 28 22 3c  |y%,Ty%,LJ%).A("<|
000046f0  42 61 73 69 63 56 24 4c  69 62 3e 2e 48 65 61 70  |BasicV$Lib>.Heap|
00004700  22 2c 38 29 3a f2 41 28  22 3c 42 61 73 69 63 56  |",8):.A("<BasicV|
00004710  24 4c 69 62 3e 2e 4d 65  73 73 61 67 65 22 2c 31  |$Lib>.Message",1|
00004720  29 3a e7 a4 6d 28 6e 79  25 2c 54 79 25 2c 4c 4a  |):..m(ny%,Ty%,LJ|
00004730  25 2c 30 29 0d 02 3a 0f  d6 43 79 3a ee 85 d6 6d  |%,0)..:..Cy:...m|
00004740  3a f2 65 0d 02 3b 05 e1  0d 02 3c 54 dd a4 6d 28  |:.e..;....<T..m(|
00004750  6e 79 25 2c 54 79 25 2c  4c 4a 25 2c 77 79 25 29  |ny%,Ty%,LJ%,wy%)|
00004760  ea 4c 25 2c 4f 25 2c 50  25 2c 4e 25 2c 6f 75 25  |.L%,O%,P%,N%,ou%|
00004770  2c 48 25 3a ea 44 4a 3a  ea 64 4a 2c 76 4a 2c 71  |,H%:.DJ:.dJ,vJ,q|
00004780  4a 2c 69 5f 2c 65 4a 2c  61 4a 3a ea 78 79 2c 59  |J,i_,eJ,aJ:.xy,Y|
00004790  79 2c 71 69 3a e7 77 79  25 3d 30 8c 0d 02 3d 3a  |y,qi:.wy%=0...=:|
000047a0  f2 41 28 22 3c 42 61 73  69 63 56 24 4c 69 62 3e  |.A("<BasicV$Lib>|
000047b0  2e 48 65 61 70 22 2c 38  29 3a f2 41 28 22 3c 42  |.Heap",8):.A("<B|
000047c0  61 73 69 63 56 24 4c 69  62 3e 2e 4d 65 73 73 61  |asicV$Lib>.Messa|
000047d0  67 65 22 2c 31 29 0d 02  3e 7e cd 3a de 67 25 6e  |ge",1)..>~.:.g%n|
000047e0  79 25 3a 44 4a 3d 41 3a  64 4a 3d 31 3c 3c 33 31  |y%:DJ=A:dJ=1<<31|
000047f0  3a 76 4a 3d 31 3c 3c 33  30 3a 71 4a 3d 31 3c 3c  |:vJ=1<<30:qJ=1<<|
00004800  32 39 3a 69 5f 3d 31 3c  3c 32 38 3a 65 4a 3d 31  |29:i_=1<<28:eJ=1|
00004810  3c 3c 32 37 3a 61 4a 3d  31 3c 3c 32 36 3a 78 79  |<<27:aJ=1<<26:xy|
00004820  3d 31 3c 3c 31 37 3a 59  79 3d 32 35 36 3a 71 69  |=1<<17:Yy=256:qi|
00004830  3d 59 79 2b 78 79 3a c8  99 26 36 30 36 63 30 3a  |=Yy+xy:..&606c0:|
00004840  ea 85 3a ee 85 ea f7 85  3a c8 99 26 36 30 36 63  |..:.....:..&606c|
00004850  31 3a f2 54 0d 02 3f 22  48 25 3d 6e 79 25 3a 4c  |1:.T..?"H%=ny%:L|
00004860  25 3d 67 25 2b 6e 79 25  3a e7 54 79 25 3c 3e 30  |%=g%+ny%:.Ty%<>0|
00004870  8c 54 79 25 3d 34 0d 02  40 22 e3 4e 25 3d 38 2b  |.Ty%=4..@".N%=8+|
00004880  54 79 25 b8 31 30 2b 54  79 25 88 32 3a e7 28 4e  |Ty%.10+Ty%.2:.(N|
00004890  25 80 34 29 3c 3e 30 8c  0d 02 41 11 4f 25 3d 67  |%.4)<>0...A.O%=g|
000048a0  25 3a e7 77 79 25 3d 31  8c 0d 02 42 0c 50 25 3d  |%:.wy%=1...B.P%=|
000048b0  33 32 37 36 38 0d 02 43  09 cc 50 25 3d 30 0d 02  |32768..C..P%=0..|
000048c0  44 05 cd 0d 02 45 0f cc  4f 25 3d 30 3a 50 25 3d  |D....E..O%=0:P%=|
000048d0  67 25 0d 02 46 0c cd 3a  c8 8e 77 79 25 ca 0d 02  |g%..F..:..wy%...|
000048e0  47 31 c9 31 3a f2 57 3a  f2 4a 5f 3a f2 57 3a f2  |G1.1:.W:.J_:.W:.|
000048f0  76 3a f2 57 3a f2 57 79  3a 76 3d 50 25 3a f2 57  |v:.W:.Wy:v=P%:.W|
00004900  3a f2 4a 79 3a 47 3d 28  47 2b 33 29 80 2d 34 0d  |:.Jy:G=(G+3).-4.|
00004910  02 48 28 c9 30 3a f2 57  3a f2 76 3a f2 57 3a f2  |.H(.0:.W:.v:.W:.|
00004920  4d 5f 3a f2 57 3a f2 4b  79 3a f2 57 3a f2 57 79  |M_:.W:.Ky:.W:.Wy|
00004930  3a f2 57 3a f2 78 5f 0d  02 49 0c c9 32 3a f2 57  |:.W:.x_..I..2:.W|
00004940  3a f2 76 0d 02 4a 17 cb  3a e7 4e 25 80 34 8c 4c  |:.v..J..:.N%.4.L|
00004950  25 3d 4f 25 8b 4c 25 3d  50 25 0d 02 4b 0e e7 28  |%=O%.L%=P%..K..(|
00004960  4e 25 80 32 29 3d 30 8c  0d 02 4c 17 c8 99 26 64  |N%.2)=0...L...&d|
00004970  63 62 39 33 2c 30 2c 67  25 2c 4c 25 2d 67 25 0d  |cb93,0,g%,L%-g%.|
00004980  02 4d 21 cd 3a 48 25 3d  4c 25 2d 67 25 3a ed 4e  |.M!.:H%=L%-g%:.N|
00004990  25 3a c8 99 26 36 30 36  63 31 3a e7 54 79 25 8c  |%:..&606c1:.Ty%.|
000049a0  0d 02 4e 0b e7 77 79 25  3d 30 8c 0d 02 4f 10 43  |..N..wy%=0...O.C|
000049b0  79 2b 3d 67 25 3a 6d 2b  3d 67 25 0d 02 50 05 cd  |y+=g%:m+=g%..P..|
000049c0  0d 02 51 11 cd 3a e7 64  79 80 77 79 25 3c 3e 32  |..Q..:.dy.wy%<>2|
000049d0  8c 0d 02 52 09 e7 54 79  25 8c 0d 02 53 17 48 25  |...R..Ty%...S.H%|
000049e0  3d 6c 3a e7 77 79 25 8c  48 25 2d 3d 33 32 37 36  |=l:.wy%.H%-=3276|
000049f0  38 0d 02 54 0e cc 85 31  2c 22 45 49 43 39 22 0d  |8..T...1,"EIC9".|
00004a00  02 55 05 cd 0d 02 56 0b  cd 3a e7 4c 4a 25 8c 0d  |.U....V..:.LJ%..|
00004a10  02 57 60 f1 22 41 73 73  65 6d 62 6c 65 64 20 74  |.W`."Assembled t|
00004a20  6f 20 26 22 3b 7e 48 25  3b 22 20 3d 20 22 3b 28  |o &";~H%;" = ";(|
00004a30  28 48 25 2a 31 30 2b 35  31 32 29 81 31 30 32 34  |(H%*10+512).1024|
00004a40  29 2f 31 30 3b 22 4b 22  3a f1 22 43 6f 75 6c 64  |)/10;"K":."Could|
00004a50  20 61 73 73 65 6d 62 6c  65 20 77 69 74 68 20 22  | assemble with "|
00004a60  3b 6e 79 25 2d 48 25 3b  22 20 6c 65 73 73 22 0d  |;ny%-H%;" less".|
00004a70  02 58 09 cd 3a 3d 48 25  0d 02 59 1a dd a4 5f 54  |.X..:=H%..Y..._T|
00004a80  65 6d 70 6c 61 74 65 5f  76 65 72 73 69 6f 6e 3d  |emplate_version=|
00004a90  32 31 0d 02 5a 62 dd a4  5f 68 61 72 64 5f 69 6e  |21..Zb.._hard_in|
00004aa0  69 74 69 61 6c 69 73 65  5f 54 65 6d 70 6c 61 74  |itialise_Templat|
00004ab0  65 3a 45 5f 25 3d a3 3a  75 25 3d a3 3a 6d 25 3d  |e:E_%=.:u%=.:m%=|
00004ac0  a3 3a 68 79 25 3d a3 3a  45 4a 25 3d a3 3a 4d 75  |.:hy%=.:EJ%=.:Mu|
00004ad0  25 3d 2d 31 3a 72 75 25  3d 31 3a 4b 79 3d 37 3a  |%=-1:ru%=1:Ky=7:|
00004ae0  51 79 3d 31 36 3a 65 79  3d 31 34 3a 72 79 3d 31  |Qy=16:ey=14:ry=1|
00004af0  35 3a 3d 30 0d 02 5b 14  dd f2 51 79 ea 4a 25 3a  |5:=0..[...Qy.J%:|
00004b00  e7 75 25 3c 3e 2d 31 8c  0d 02 5c 08 e7 6d 25 8c  |.u%<>-1...\..m%.|
00004b10  0d 02 5d 13 c8 99 26 36  36 35 63 31 2c 5f 25 2c  |..]...&665c1,_%,|
00004b20  b9 2c a3 0d 02 5e 31 cc  e3 4a 25 3d 30 b8 32 35  |.,...^1..J%=0.25|
00004b30  35 3a c8 95 75 25 3f 4a  25 3a c8 99 26 36 30 30  |5:..u%?J%:..&600|
00004b40  38 32 2c 4a 25 3a 75 25  3f 4a 25 2d 3d 31 3a ce  |82,J%:u%?J%-=1:.|
00004b50  3a ed 4a 25 0d 02 5f 05  cd 0d 02 60 07 cd 3a e1  |:.J%.._....`..:.|
00004b60  0d 02 61 2e dd f2 44 5f  ea 49 25 2c 64 25 2c 51  |..a...D_.I%,d%,Q|
00004b70  25 2c 46 25 2c 4d 24 2c  79 75 25 2c 58 79 25 2c  |%,F%,M$,yu%,Xy%,|
00004b80  76 79 25 2c 7a 25 2c 52  25 3a e7 75 25 8c 0d 02  |vy%,z%,R%:.u%...|
00004b90  62 08 e7 6d 25 8c 0d 02  63 15 68 79 25 3d 28 6d  |b..m%...c.hy%=(m|
00004ba0  25 3d 2b 31 29 3a e7 68  79 25 8c 0d 02 64 09 51  |%=+1):.hy%...d.Q|
00004bb0  25 3d 2b 31 0d 02 65 09  cc 51 25 3d 30 0d 02 66  |%=+1..e..Q%=0..f|
00004bc0  1b cd 3a 58 79 25 3d 31  34 30 2b 28 31 3c 3c 32  |..:Xy%=140+(1<<2|
00004bd0  31 29 3a e7 45 4a 25 8c  0d 02 67 1e 61 24 3d a4  |1):.EJ%...g.a$=.|
00004be0  45 28 22 4d 65 6e 75 46  6f 6e 74 22 29 3a e7 61  |E("MenuFont"):.a|
00004bf0  24 3c 3e 22 22 8c 0d 02  68 93 58 79 25 2b 3d 28  |$<>""...h.Xy%+=(|
00004c00  31 3c 3c 31 38 29 2b 28  31 3c 3c 31 39 29 3a f2  |1<<18)+(1<<19):.|
00004c10  42 28 76 79 25 2c 38 2b  a9 28 61 24 29 2b 31 29  |B(vy%,8+.(a$)+1)|
00004c20  3a 24 28 76 79 25 2b 38  29 3d 61 24 3a 76 79 25  |:$(vy%+8)=a$:vy%|
00004c30  21 30 3d 31 36 2a bb 28  a4 45 28 22 4d 65 6e 75  |!0=16*.(.E("Menu|
00004c40  46 6f 6e 74 57 69 64 74  68 22 29 29 3a 76 79 25  |FontWidth")):vy%|
00004c50  21 34 3d 31 36 2a bb 28  a4 45 28 22 4d 65 6e 75  |!4=16*.(.E("Menu|
00004c60  46 6f 6e 74 48 65 69 67  68 74 22 29 29 3a e7 a4  |FontHeight")):..|
00004c70  45 28 22 4d 65 6e 75 46  6f 6e 74 4c 6f 77 52 65  |E("MenuFontLowRe|
00004c80  7a 22 29 3d 22 4e 4f 22  8c 0d 02 69 10 58 79 25  |z")="NO"...i.Xy%|
00004c90  2b 3d 28 31 3c 3c 31 37  29 0d 02 6a 11 cc 58 79  |+=(1<<17)..j..Xy|
00004ca0  25 2b 3d 28 31 3c 3c 31  36 29 0d 02 6b 05 cd 0d  |%+=(1<<16)..k...|
00004cb0  02 6c 05 cd 0d 02 6d 2a  cd 3a c8 99 26 34 36 35  |.l....m*.:..&465|
00004cc0  63 30 2c 5f 25 2c 30 2c  30 2c 51 25 2c 51 25 2c  |c0,_%,0,0,Q%,Q%,|
00004cd0  30 2c 30 2c 58 79 25 2c  76 79 25 b8 75 25 0d 02  |0,0,Xy%,vy%.u%..|
00004ce0  6e 21 cc f2 42 28 75 25  2c 32 35 36 29 3a c8 99  |n!..B(u%,256):..|
00004cf0  26 64 63 62 39 33 2c 30  2c 75 25 2c 32 35 36 0d  |&dcb93,0,u%,256.|
00004d00  02 6f 05 cd 0d 02 70 0a  cc 75 25 3d 2d 31 0d 02  |.o....p..u%=-1..|
00004d10  71 34 cd 3a 4d 24 3d a4  4b 28 22 3c 22 2b 42 24  |q4.:M$=.K("<"+B$|
00004d20  2b 22 24 44 69 72 3e 2e  53 70 72 69 74 65 73 22  |+"$Dir>.Sprites"|
00004d30  29 3a 49 25 3d a4 7a 28  4d 24 29 3a e7 49 25 3e  |):I%=.z(M$):.I%>|
00004d40  30 8c 0d 02 72 6d 46 25  3d a4 5a 28 31 32 38 29  |0...rmF%=.Z(128)|
00004d50  3a 7a 25 3d 30 3a f5 c8  99 31 32 2c 31 32 2c 22  |:z%=0:...12,12,"|
00004d60  3c 22 2b 2b 42 24 2b 22  24 44 69 72 3e 22 2c 46  |<"++B$+"$Dir>",F|
00004d70  25 2c 31 2c 7a 25 2c 31  32 38 2c 22 53 70 72 69  |%,1,z%,128,"Spri|
00004d80  74 65 73 2a 22 b8 2c 2c  2c 52 25 2c 7a 25 3a e7  |tes*".,,,R%,z%:.|
00004d90  52 25 3d 31 80 46 25 21  32 30 3d 34 30 38 39 80  |R%=1.F%!20=4089.|
00004da0  49 25 3c 46 25 21 38 8c  49 25 3d 46 25 21 38 0d  |I%<F%!8.I%=F%!8.|
00004db0  02 73 6c fd 7a 25 3c 30  3a f2 43 28 46 25 2c 31  |.sl.z%<0:.C(F%,1|
00004dc0  32 38 29 3a f2 42 28 65  25 2c 49 25 2b 31 36 29  |28):.B(e%,I%+16)|
00004dd0  3a 65 25 21 30 3d 49 25  2b 31 36 3a 65 25 21 34  |:e%!0=I%+16:e%!4|
00004de0  3d 30 3a 65 25 21 38 3d  31 36 3a 65 25 21 31 32  |=0:e%!8=16:e%!12|
00004df0  3d 31 36 3a c8 99 26 32  30 30 32 65 2c 35 32 32  |=16:..&2002e,522|
00004e00  2c 65 25 2c 4d 24 b8 64  25 3b 51 25 3a 63 24 3d  |,e%,M$.d%;Q%:c$=|
00004e10  4d 24 3a e7 a4 50 28 51  25 29 8c 0d 02 74 2a f2  |M$:..P(Q%)...t*.|
00004e20  4d 28 22 52 65 61 73 6f  6e 22 2c 22 53 70 72 69  |M("Reason","Spri|
00004e30  74 65 73 22 29 3a f2 6e  28 64 25 29 3a f2 44 28  |tes"):.n(d%):.D(|
00004e40  34 29 3a f2 46 0d 02 75  05 cd 0d 02 76 09 cc 65  |4):.F..u....v..e|
00004e50  25 3d 30 0d 02 77 1d cd  3a f2 47 5f 28 22 54 65  |%=0..w..:.G_("Te|
00004e60  6d 70 6c 61 74 65 73 22  29 3a e7 65 25 3e 30 8c  |mplates"):.e%>0.|
00004e70  0d 02 78 20 f2 71 28 22  50 72 6f 67 49 6e 66 6f  |..x .q("ProgInfo|
00004e80  22 2c 65 25 2c 22 50 72  6f 67 49 6e 66 6f 22 29  |",e%,"ProgInfo")|
00004e90  0d 02 79 21 cc f2 71 28  22 50 72 6f 67 49 6e 66  |..y!..q("ProgInf|
00004ea0  6f 22 2c 2b 31 2c 22 50  72 6f 67 49 6e 66 6f 22  |o",+1,"ProgInfo"|
00004eb0  29 0d 02 7a 12 cd 3a 73  25 3d 30 3a e7 45 5f 25  |)..z..:s%=0:.E_%|
00004ec0  3d 30 8c 0d 02 7b 06 f2  75 0d 02 7c 23 cd 3a 64  |=0...{..u..|#.:d|
00004ed0  5f 25 3d a4 42 79 28 22  51 75 65 72 79 22 2c 79  |_%=.By("Query",y|
00004ee0  75 25 2c 2b 31 29 3a f2  71 5f 3a e1 0d 02 7d 2f  |u%,+1):.q_:...}/|
00004ef0  dd f2 5f 79 3a 4d 24 3d  a4 4b 28 22 3c 22 2b 42  |.._y:M$=.K("<"+B|
00004f00  24 2b 22 24 44 69 72 3e  2e 53 70 72 69 74 65 73  |$+"$Dir>.Sprites|
00004f10  22 29 3a e7 4d 24 3c 3e  63 24 8c 0d 02 7e 30 65  |"):.M$<>c$...~0e|
00004f20  25 21 34 3d 30 3a 65 25  21 38 3d 31 36 3a 65 25  |%!4=0:e%!8=16:e%|
00004f30  21 31 32 3d 31 36 3a c8  99 34 36 2c 35 32 32 2c  |!12=16:..46,522,|
00004f40  65 25 2c 4d 24 3a 63 24  3d 4d 24 0d 02 7f 07 cd  |e%,M$:c$=M$.....|
00004f50  3a e1 0d 02 80 2e dd a4  50 72 6f 67 49 6e 66 6f  |:.......ProgInfo|
00004f60  28 5a 25 29 f2 78 28 5a  25 21 28 38 38 2b 28 4b  |(Z%).x(Z%!(88+(K|
00004f70  79 3c 3c 35 29 2b 32 30  29 2c 58 24 29 3a 3d 30  |y<<5)+20),X$):=0|
00004f80  0d 02 81 1a dd f2 47 79  28 63 25 2c 62 25 2c 59  |......Gy(c%,b%,Y|
00004f90  25 2c 54 25 29 c8 8e 54  25 ca 0d 02 82 21 c9 65  |%,T%)..T%....!.e|
00004fa0  79 2c 72 79 3a 63 25 3d  a4 4a 28 31 2c a4 41 28  |y,ry:c%=.J(1,.A(|
00004fb0  30 29 29 3a e7 59 25 3c  3e 31 8c 0d 02 83 06 f2  |0)):.Y%<>1......|
00004fc0  66 0d 02 84 05 cd 0d 02  85 0d 7f e7 59 25 80 32  |f...........Y%.2|
00004fd0  34 30 8c 0d 02 86 1f 57  25 21 30 3d 73 25 3a 57  |40.....W%!0=s%:W|
00004fe0  25 21 34 3d 31 3a c8 99  26 34 30 30 64 30 2c 2c  |%!4=1:..&400d0,,|
00004ff0  57 25 0d 02 87 05 cd 0d  02 88 07 cb 3a e1 0d 02  |W%..........:...|
00005000  89 0d dd f2 75 e7 73 25  3d 30 8c 0d 02 8a 09 e7  |....u.s%=0......|
00005010  68 79 25 8c 0d 02 8b 24  de 50 5f 25 34 3a 21 50  |hy%....$.P_%4:!P|
00005020  5f 25 3d 30 3a e7 a4 4f  28 22 50 72 6f 67 49 6e  |_%=0:..O("ProgIn|
00005030  66 6f 22 2c 50 5f 25 29  0d 02 8c 0b 73 25 3d 21  |fo",P_%)....s%=!|
00005040  50 5f 25 0d 02 8d 17 cc  e7 a4 6c 28 22 50 72 6f  |P_%.......l("Pro|
00005050  67 49 6e 66 6f 22 2c 73  25 29 0d 02 8e 05 cd 0d  |gInfo",s%)......|
00005060  02 8f 09 cc e7 6d 25 8c  0d 02 90 09 e7 68 79 25  |.....m%......hy%|
00005070  8c 0d 02 91 13 c8 99 26  34 36 35 63 36 2c 5f 25  |.......&465c6,_%|
00005080  2c 50 5f 25 0d 02 92 13  cc c8 99 26 34 36 35 63  |,P_%.......&465c|
00005090  36 2c 5f 25 2c 73 25 0d  02 93 05 cd 0d 02 94 05  |6,_%,s%.........|
000050a0  cd 0d 02 95 07 cd 3a e1  0d 02 96 57 dd f2 47 5f  |......:....W..G_|
000050b0  28 67 24 29 ea 42 4a 25  2c 69 25 2c 49 25 2c 64  |(g$).BJ%,i%,I%,d|
000050c0  25 2c 51 25 2c 53 25 3a  ea 6c 4a 25 2c 4d 24 2c  |%,Q%,S%:.lJ%,M$,|
000050d0  44 79 25 2c 62 79 25 3a  4d 24 3d 22 3c 22 2b 42  |Dy%,by%:M$="<"+B|
000050e0  24 2b 22 24 44 69 72 3e  2e 22 2b 67 24 3a 49 25  |$+"$Dir>."+g$:I%|
000050f0  3d a4 7a 28 4d 24 29 3a  e7 49 25 3c 3d 30 8c 0d  |=.z(M$):.I%<=0..|
00005100  02 97 32 f2 4d 28 22 52  65 61 73 6f 6e 22 2c 67  |..2.M("Reason",g|
00005110  24 29 3a f2 4d 28 22 53  79 73 22 2c 22 4e 6f 74  |$):.M("Sys","Not|
00005120  20 66 6f 75 6e 64 22 29  3a f2 44 28 34 29 3a f2  | found"):.D(4):.|
00005130  46 0d 02 98 4d cd 3a f2  42 28 69 25 2c 49 25 29  |F...M.:.B(i%,I%)|
00005140  3a f2 42 28 44 79 25 2c  49 25 2b 46 29 3a 62 79  |:.B(Dy%,I%+F):by|
00005150  25 3d 44 79 25 2b 44 79  3a 6c 4a 25 3d 44 79 25  |%=Dy%+Dy:lJ%=Dy%|
00005160  2b 46 3a c8 99 26 36 30  30 64 39 2c 2c 4d 24 b8  |+F:..&600d9,,M$.|
00005170  64 25 3b 51 25 3a e7 a4  50 28 51 25 29 8c 0d 02  |d%;Q%:..P(Q%)...|
00005180  99 35 f2 4d 28 22 52 65  61 73 6f 6e 22 2c 22 54  |.5.M("Reason","T|
00005190  65 6d 70 6c 61 74 65 73  22 29 3a f2 6e 28 64 25  |emplates"):.n(d%|
000051a0  29 3a f2 44 28 34 29 3a  c8 99 26 36 30 30 64 61  |):.D(4):..&600da|
000051b0  3a f2 46 0d 02 9a 12 cd  3a ea 85 3a ee 85 ea f7  |:.F.....:..:....|
000051c0  85 3a f2 6a 5f 0d 02 9b  51 7a 25 3d 30 3a f5 62  |.:.j_...Qz%=0:.b|
000051d0  79 25 21 30 3d 97 28 22  2a 22 29 3a c8 99 26 36  |y%!0=.("*"):..&6|
000051e0  30 30 64 62 2c 2c 6c 4a  25 2c 69 25 2c 69 25 2b  |00db,,lJ%,i%,i%+|
000051f0  49 25 2c 75 25 2c 62 79  25 2c 7a 25 b8 64 25 2c  |I%,u%,by%,z%.d%,|
00005200  2c 42 4a 25 2c 2c 2c 2c  7a 25 3b 51 25 3a e7 a4  |,BJ%,,,,z%;Q%:..|
00005210  50 28 51 25 29 8c 0d 02  9c 16 f2 52 28 64 25 29  |P(Q%)......R(d%)|
00005220  3a c8 99 26 36 30 30 64  61 3a f2 46 0d 02 9d 0a  |:..&600da:.F....|
00005230  cd 3a e7 7a 25 8c 0d 02  9e 26 e3 51 25 3d 30 b8  |.:.z%....&.Q%=0.|
00005240  31 31 3a e7 62 79 25 3f  51 25 3d 31 33 8c 62 79  |11:.by%?Q%=13.by|
00005250  25 3f 51 25 3d 30 3a 51  25 3d 31 32 0d 02 9f 30  |%?Q%=0:Q%=12...0|
00005260  ed 51 25 3a 44 79 25 21  67 79 3d 42 4a 25 2d 69  |.Q%:Dy%!gy=BJ%-i|
00005270  25 3a 44 79 25 21 75 3d  69 25 3a 53 25 3d a4 64  |%:Dy%!u=i%:S%=.d|
00005280  28 44 79 25 29 3a e7 53  25 3d 30 8c 0d 02 a0 16  |(Dy%):.S%=0.....|
00005290  f2 44 28 31 36 29 3a c8  99 26 36 30 30 64 61 3a  |.D(16):..&600da:|
000052a0  f2 46 0d 02 a1 17 cd 3a  53 25 21 63 3d 21 79 79  |.F.....:S%!c=!yy|
000052b0  25 3a 21 79 79 25 3d 53  25 0d 02 a2 28 cd 3a fd  |%:!yy%=S%...(.:.|
000052c0  7a 25 3d 30 3a f7 85 3a  c8 99 26 34 30 30 64 61  |z%=0:..:..&400da|
000052d0  3a f2 53 28 44 79 25 29  3a f2 53 28 69 25 29 3a  |:.S(Dy%):.S(i%):|
000052e0  e1 0d 02 a3 21 dd f2 6a  5f c8 99 26 36 30 30 64  |....!..j_..&600d|
000052f0  61 3a f2 5a 28 22 54 65  6d 70 6c 61 74 65 22 29  |a:.Z("Template")|
00005300  3a e1 0d 02 a4 27 dd a4  42 79 28 46 24 2c 7a 75  |:....'..By(F$,zu|
00005310  25 2c 6c 5f 25 29 3d a4  4e 79 28 46 24 2c 7a 75  |%,l_%)=.Ny(F$,zu|
00005320  25 2c 6c 5f 25 2c 22 22  29 0d 02 a5 32 dd a4 4e  |%,l_%,"")...2..N|
00005330  79 28 46 24 2c 7a 75 25  2c 6c 5f 25 2c 57 24 29  |y(F$,zu%,l_%,W$)|
00005340  ea 53 25 2c 6d 4a 25 2c  47 25 3a 53 25 3d a4 43  |.S%,mJ%,G%:S%=.C|
00005350  28 46 24 29 3a e7 53 25  3d 30 8c 0d 02 a6 06 f2  |(F$):.S%=0......|
00005360  46 0d 02 a7 22 cd 3a 6d  4a 25 3d 53 25 2b 46 3a  |F...".:mJ%=S%+F:|
00005370  6d 4a 25 21 36 34 3d 6c  5f 25 3a e7 57 24 3c 3e  |mJ%!64=l_%:.W$<>|
00005380  22 22 8c 0d 02 a8 12 47  25 3d a4 4d 28 22 46 4e  |"".....G%=.M("FN|
00005390  22 2b 57 24 29 0d 02 a9  11 cd 3a e7 a4 71 28 53  |"+W$).....:..q(S|
000053a0  25 2c 47 25 29 8c 0d 02  aa 06 f2 46 0d 02 ab 10  |%,G%)......F....|
000053b0  cd 3a f2 61 28 53 25 29  3a 3d 47 25 0d 02 ac 29  |.:.a(S%):=G%...)|
000053c0  dd f2 71 28 46 24 2c 6c  5f 25 2c 57 24 29 ea 53  |..q(F$,l_%,W$).S|
000053d0  25 2c 5a 25 3a 53 25 3d  a4 43 28 46 24 29 3a e7  |%,Z%:S%=.C(F$):.|
000053e0  53 25 3d 30 8c 0d 02 ad  06 f2 46 0d 02 ae 20 cd  |S%=0......F... .|
000053f0  3a 5a 25 3d 53 25 2b 46  3a 5a 25 21 36 34 3d 6c  |:Z%=S%+F:Z%!64=l|
00005400  5f 25 3a e7 57 24 3c 3e  22 22 8c 0d 02 af 20 5a  |_%:.W$<>"".... Z|
00005410  25 3d a4 4d 28 22 46 4e  22 2b 57 24 2b 22 28 22  |%=.M("FN"+W$+"("|
00005420  2b c3 28 5a 25 29 2b 22  29 22 29 0d 02 b0 07 cd  |+.(Z%)+")").....|
00005430  3a e1 0d 02 b1 22 dd a4  6c 28 46 24 2c f8 53 79  |:...."..l(F$,.Sy|
00005440  25 29 ea 4a 25 3a 3d a4  72 28 46 24 2c 53 79 25  |%).J%:=.r(F$,Sy%|
00005450  2c 4a 25 29 0d 02 b2 29  dd a4 72 28 46 24 2c f8  |,J%)...)..r(F$,.|
00005460  53 79 25 2c f8 75 79 25  29 ea 53 25 2c 4b 25 3a  |Sy%,.uy%).S%,K%:|
00005470  4b 25 3d a3 3a e7 53 79  25 3c 3d 30 8c 0d 02 b3  |K%=.:.Sy%<=0....|
00005480  12 53 25 3d a4 43 28 46  24 29 3a e7 53 25 8c 0d  |.S%=.C(F$):.S%..|
00005490  02 b4 18 4b 25 3d a4 71  28 53 25 2c 53 79 25 29  |...K%=.q(S%,Sy%)|
000054a0  3a e7 4b 25 3d a3 8c 0d  02 b5 13 75 79 25 3d 53  |:.K%=......uy%=S|
000054b0  25 21 75 3a f2 61 28 53  25 29 0d 02 b6 05 cd 0d  |%!u:.a(S%)......|
000054c0  02 b7 09 cc 4b 25 3d b9  0d 02 b8 05 cd 0d 02 b9  |....K%=.........|
000054d0  09 cc e7 6d 25 8c 0d 02  ba 13 c8 99 26 34 36 35  |...m%.......&465|
000054e0  63 36 2c 5f 25 2c 53 79  25 0d 02 bb 05 cd 0d 02  |c6,_%,Sy%.......|
000054f0  bc 09 cd 3a 3d 4b 25 0d  02 bd 4d dd a4 70 28 46  |...:=K%...M..p(F|
00005500  24 29 ea 53 25 2c 67 24  2c 57 5f 25 3a 53 25 3d  |$).S%,g$,W_%:S%=|
00005510  21 79 79 25 3a 57 5f 25  3d a3 3a c8 95 53 25 80  |!yy%:W_%=.:..S%.|
00005520  28 ac 57 5f 25 29 3a 57  5f 25 3d 28 a4 57 79 28  |(.W_%):W_%=(.Wy(|
00005530  53 25 2b 44 79 2c 31 32  29 3d 46 24 29 3a e7 ac  |S%+Dy,12)=F$):..|
00005540  57 5f 25 8c 0d 02 be 0b  53 25 3d 53 25 21 63 0d  |W_%.....S%=S%!c.|
00005550  02 bf 0b cd 3a ce 3a 3d  53 25 0d 02 c0 1f dd a4  |....:.:=S%......|
00005560  43 28 46 24 29 ea 53 25  3a 53 25 3d a4 70 28 46  |C(F$).S%:S%=.p(F|
00005570  24 29 3a e7 53 25 3d 30  8c 0d 02 c1 19 f2 4d 28  |$):.S%=0......M(|
00005580  22 52 65 61 73 6f 6e 22  2c 46 24 29 3a f2 44 28  |"Reason",F$):.D(|
00005590  33 29 0d 02 c2 09 cd 3a  3d 53 25 0d 02 c3 14 dd  |3).....:=S%.....|
000055a0  a4 71 28 53 25 2c f8 53  79 25 29 e7 6d 25 8c 0d  |.q(S%,.Sy%).m%..|
000055b0  02 c4 1d c8 99 26 36 36  35 63 33 2c 5f 25 2c 53  |.....&665c3,_%,S|
000055c0  25 2b 46 2c 30 b8 53 79  25 3b 53 25 0d 02 c5 1a  |%+F,0.Sy%;S%....|
000055d0  cc c8 99 26 36 30 30 63  31 2c 2c 53 25 2b 46 b8  |...&600c1,,S%+F.|
000055e0  53 79 25 3b 53 25 0d 02  c6 14 cd 3a 53 25 3d a4  |Sy%;S%.....:S%=.|
000055f0  50 28 53 25 29 3a e7 53  25 8c 0d 02 c7 11 f2 52  |P(S%):.S%......R|
00005600  28 53 79 25 29 3a 53 79  25 3d 30 0d 02 c8 09 cd  |(Sy%):Sy%=0.....|
00005610  3a 3d 53 25 0d 02 c9 3b  dd f2 46 5f 28 5a 25 2c  |:=S%...;..F_(Z%,|
00005620  51 25 2c 46 79 25 29 ea  47 25 2c 44 25 3a 44 25  |Q%,Fy%).G%,D%:D%|
00005630  3d 60 79 25 3c 3c 43 5f  25 3a 47 25 3d 5a 25 21  |=`y%<<C_%:G%=Z%!|
00005640  38 2d 5a 25 21 30 3a e7  44 25 3c 3d 47 25 8c 0d  |8-Z%!0:.D%<=G%..|
00005650  02 ca 0a 5a 25 21 30 3d  30 0d 02 cb 15 cc 44 25  |...Z%!0=0.....D%|
00005660  3d 44 25 2d 47 25 3a e7  46 79 25 3c 30 8c 0d 02  |=D%-G%:.Fy%<0...|
00005670  cc 13 46 79 25 3d 44 25  2b 28 46 79 25 83 44 25  |..Fy%=D%+(Fy%.D%|
00005680  29 0d 02 cd 1b cd 3a 5a  25 21 30 3d 28 5a 25 21  |).....:Z%!0=(Z%!|
00005690  30 2b 46 79 25 2a 51 25  29 83 44 25 0d 02 ce 14  |0+Fy%*Q%).D%....|
000056a0  cd 3a 5a 25 21 38 3d 5a  25 21 30 2b 47 25 3a e1  |.:Z%!8=Z%!0+G%:.|
000056b0  0d 02 cf 43 dd f2 53 5f  28 5a 25 2c 51 25 2c 46  |...C..S_(Z%,Q%,F|
000056c0  79 25 29 ea 47 25 2c 44  25 3a 44 25 3d 28 43 79  |y%).G%,D%:D%=(Cy|
000056d0  25 3c 3c 57 79 25 29 2d  39 36 3a 47 25 3d 5a 25  |%<<Wy%)-96:G%=Z%|
000056e0  21 38 2d 5a 25 21 30 2b  34 38 3a e7 44 25 3c 3d  |!8-Z%!0+48:.D%<=|
000056f0  47 25 8c 0d 02 d0 16 5a  25 21 38 3d 28 43 79 25  |G%.....Z%!8=(Cy%|
00005700  3c 3c 57 79 25 29 2d 47  25 0d 02 d1 15 cc 44 25  |<<Wy%)-G%.....D%|
00005710  3d 44 25 2d 47 25 3a e7  46 79 25 3c 30 8c 0d 02  |=D%-G%:.Fy%<0...|
00005720  d2 13 46 79 25 3d 44 25  2b 28 46 79 25 83 44 25  |..Fy%=D%+(Fy%.D%|
00005730  29 0d 02 d3 3d cd 3a 5a  25 21 38 3d 28 43 79 25  |)...=.:Z%!8=(Cy%|
00005740  3c 3c 57 79 25 29 2d 5a  25 21 38 3a 5a 25 21 38  |<<Wy%)-Z%!8:Z%!8|
00005750  3d 28 43 79 25 3c 3c 57  79 25 29 2d 28 28 5a 25  |=(Cy%<<Wy%)-((Z%|
00005760  21 38 2b 46 79 25 2a 51  25 29 83 44 25 29 0d 02  |!8+Fy%*Q%).D%)..|
00005770  d4 19 cd 3a 5a 25 21 30  3d 5a 25 21 38 2d 28 47  |...:Z%!0=Z%!8-(G|
00005780  25 2d 34 38 29 3a e1 0d  02 d5 3a dd f2 61 28 53  |%-48):....:..a(S|
00005790  25 29 ea 4d 25 3a 4d 25  3d 79 79 25 3a c8 95 21  |%).M%:M%=yy%:..!|
000057a0  4d 25 3c 3e 30 80 21 4d  25 3c 3e 53 25 3a 4d 25  |M%<>0.!M%<>S%:M%|
000057b0  3d 21 4d 25 2b 63 3a ce  3a e7 21 4d 25 3d 53 25  |=!M%+c:.:.!M%=S%|
000057c0  8c 0d 02 d6 1a 21 4d 25  3d 53 25 21 63 3a 53 25  |.....!M%=S%!c:S%|
000057d0  21 63 3d 30 3a f2 53 28  53 25 29 0d 02 d7 07 cd  |!c=0:.S(S%).....|
000057e0  3a e1 0d 02 d8 11 dd a4  6b 28 41 25 29 3d ba 28  |:.......k(A%)=.(|
000057f0  62 79 29 0d 02 d9 1b dd  a4 64 28 41 25 29 41 25  |by)......d(A%)A%|
00005800  3d a4 6b 28 41 25 29 3a  e7 41 25 3d 30 8c 0d 02  |=.k(A%):.A%=0...|
00005810  da 0a f2 44 28 31 36 29  0d 02 db 09 cd 3a 3d 41  |...D(16).....:=A|
00005820  25 0d 02 dc 21 dd f2 66  5f e7 28 4e 25 80 32 29  |%...!..f_.(N%.2)|
00005830  3d 30 8c f2 4e 5f 28 22  54 65 6d 70 6c 61 74 65  |=0..N_("Template|
00005840  22 29 0d 02 dd 20 5b 4f  50 54 4e 25 3a 41 4c 49  |")... [OPTN%:ALI|
00005850  47 4e 3a 2e 62 79 3a a4  46 3a 42 20 6c 79 3a 5d  |GN:.by:.F:B ly:]|
00005860  3a e1 0d 02 de 7c dd a4  5f 44 65 63 6c 61 72 65  |:....|.._Declare|
00005870  5f 4c 6f 63 61 6c 5f 56  61 72 69 61 62 6c 65 73  |_Local_Variables|
00005880  5f 54 65 6d 70 6c 61 74  65 de 79 79 25 34 3a 21  |_Template.yy%4:!|
00005890  79 79 25 3d 30 3a 50 25  3d 30 3a 5b 4f 50 54 4e  |yy%=0:P%=0:[OPTN|
000058a0  25 3a 2e 63 20 44 43 44  30 3a 2e 4a 79 20 44 43  |%:.c DCD0:.Jy DC|
000058b0  44 30 3a 2e 75 20 44 43  44 30 3a 2e 67 79 20 44  |D0:.u DCD0:.gy D|
000058c0  43 44 30 3a 2e 44 79 20  44 43 44 30 3a 44 43 44  |CD0:.Dy DCD0:DCD|
000058d0  30 3a 44 43 44 30 3a 2e  46 3a 5d 3a 3d 30 0d 02  |0:DCD0:.F:]:=0..|
000058e0  df 38 dd f2 62 79 28 46  24 2c 66 25 2c 67 5f 25  |.8..by(F$,f%,g_%|
000058f0  2c 6a 5f 25 2c f8 75 79  25 29 f2 77 5f 28 46 24  |,j_%,.uy%).w_(F$|
00005900  2c 66 25 2c 67 5f 25 2c  6a 5f 25 2c 75 79 25 2c  |,f%,g_%,j_%,uy%,|
00005910  22 58 22 29 3a e1 0d 02  e0 31 dd f2 77 5f 28 46  |"X"):....1..w_(F|
00005920  24 2c 66 25 2c 67 5f 25  2c 6a 5f 25 2c f8 75 79  |$,f%,g_%,j_%,.uy|
00005930  25 2c 48 24 29 ea 53 25  3a 53 25 3d a4 43 28 46  |%,H$).S%:S%=.C(F|
00005940  24 29 3a e7 53 25 8c 0d  02 e1 1d f2 65 5f 28 53  |$):.S%......e_(S|
00005950  25 2c 66 25 2c 67 5f 25  2c 6a 5f 25 2c 75 79 25  |%,f%,g_%,j_%,uy%|
00005960  2c 48 24 29 0d 02 e2 0b  cc 21 66 25 3d 53 25 0d  |,H$).....!f%=S%.|
00005970  02 e3 07 cd 3a e1 0d 02  e4 20 dd a4 4f 28 46 24  |....:.... ..O(F$|
00005980  2c 66 25 29 ea 4a 25 3a  3d a4 55 79 28 46 24 2c  |,f%).J%:=.Uy(F$,|
00005990  66 25 2c 4a 25 29 0d 02  e5 28 dd a4 55 79 28 46  |f%,J%)...(..Uy(F|
000059a0  24 2c 66 25 2c f8 75 79  25 29 ea 53 25 2c 4b 25  |$,f%,.uy%).S%,K%|
000059b0  3a 4b 25 3d a3 3a e7 21  66 25 3c 3d 30 8c 0d 02  |:K%=.:.!f%<=0...|
000059c0  e6 12 53 25 3d a4 43 28  46 24 29 3a e7 53 25 8c  |..S%=.C(F$):.S%.|
000059d0  0d 02 e7 17 4b 25 3d a4  59 28 53 25 2c 66 25 29  |....K%=.Y(S%,f%)|
000059e0  3a e7 4b 25 3d a3 8c 0d  02 e8 13 75 79 25 3d 53  |:.K%=......uy%=S|
000059f0  25 21 75 3a f2 61 28 53  25 29 0d 02 e9 05 cd 0d  |%!u:.a(S%)......|
00005a00  02 ea 09 cc 4b 25 3d b9  0d 02 eb 05 cd 0d 02 ec  |....K%=.........|
00005a10  09 cc e7 6d 25 8c 0d 02  ed 12 c8 99 26 34 36 35  |...m%.......&465|
00005a20  63 36 2c 5f 25 2c 66 25  0d 02 ee 05 cd 0d 02 ef  |c6,_%,f%........|
00005a30  09 cd 3a 3d 4b 25 0d 02  f0 1d dd f2 6e 5f 28 53  |..:=K%......n_(S|
00005a40  25 2c 66 25 29 53 25 3d  a4 59 28 53 25 2c 66 25  |%,f%)S%=.Y(S%,f%|
00005a50  29 3a e1 0d 02 f1 16 dd  a4 59 28 53 25 2c 66 25  |):.......Y(S%,f%|
00005a60  29 ea 64 25 3a e7 6d 25  8c 0d 02 f2 1d c8 99 26  |).d%:.m%.......&|
00005a70  36 36 35 63 33 2c 5f 25  2c 53 25 2b 46 2c 66 25  |665c3,_%,S%+F,f%|
00005a80  b8 64 25 3b 53 25 0d 02  f3 19 cc c8 99 26 36 30  |.d%;S%.......&60|
00005a90  30 63 31 2c 2c 53 25 2b  46 b8 64 25 3b 53 25 0d  |0c1,,S%+F.d%;S%.|
00005aa0  02 f4 1b cd 3a 21 66 25  3d 64 25 3a 53 25 3d a4  |....:!f%=d%:S%=.|
00005ab0  50 28 53 25 29 3a e7 53  25 8c 0d 02 f5 10 f2 52  |P(S%):.S%......R|
00005ac0  28 64 25 29 3a 21 66 25  3d 30 0d 02 f6 09 cd 3a  |(d%):!f%=0.....:|
00005ad0  3d 53 25 0d 02 f7 4c dd  f2 65 5f 28 53 25 2c 66  |=S%...L..e_(S%,f|
00005ae0  25 2c 67 5f 25 2c 6a 5f  25 2c f8 75 79 25 2c 48  |%,g_%,j_%,.uy%,H|
00005af0  24 29 ea 5a 25 2c 51 25  3a 21 66 25 3d 30 3a 51  |$).Z%,Q%:!f%=0:Q|
00005b00  25 3d 53 25 21 4a 79 3a  53 25 21 4a 79 2b 3d 31  |%=S%!Jy:S%!Jy+=1|
00005b10  3a 53 25 3d a4 64 28 53  25 29 3a e7 53 25 8c 0d  |:S%=.d(S%):.S%..|
00005b20  02 f8 35 5a 25 3d 53 25  2b 46 3a f2 46 5f 28 5a  |..5Z%=S%+F:.F_(Z|
00005b30  25 2c 51 25 2c 67 5f 25  29 3a f2 53 5f 28 5a 25  |%,Q%,g_%):.S_(Z%|
00005b40  2b 34 2c 51 25 2c 6a 5f  25 29 3a e7 48 24 3c 3e  |+4,Q%,j_%):.H$<>|
00005b50  22 58 22 8c 0d 02 f9 12  e7 5a 25 21 35 36 80 28  |"X"......Z%!56.(|
00005b60  31 3c 3c 38 29 8c 0d 02  fa 16 f2 6c 28 5a 25 21  |1<<8)......l(Z%!|
00005b70  37 32 2c 48 24 2c 5a 25  21 38 30 29 0d 02 fb 14  |72,H$,Z%!80)....|
00005b80  cc f2 6c 28 5a 25 2b 37  32 2c 48 24 2c 31 32 29  |..l(Z%+72,H$,12)|
00005b90  0d 02 fc 05 cd 0d 02 fd  20 cd 3a f2 6e 5f 28 53  |........ .:.n_(S|
00005ba0  25 2c 66 25 29 3a 75 79  25 3d 53 25 21 75 3a f2  |%,f%):uy%=S%!u:.|
00005bb0  61 28 53 25 29 0d 02 fe  07 cd 3a e1 0d 02 ff 29  |a(S%).....:....)|
00005bc0  dd a4 68 5f 44 45 46 41  55 4c 54 ea 85 3a ee 85  |..h_DEFAULT..:..|
00005bd0  ea f7 85 3a f2 5a 28 22  40 2e 68 2e 44 45 46 41  |...:.Z("@.h.DEFA|
00005be0  55 4c 54 22 29 0d 03 00  6e 71 75 3d 31 36 3a 77  |ULT")...nqu=16:w|
00005bf0  6c 3d 31 3c 3c 33 30 3a  49 4a 3d 31 3c 3c 32 39  |l=1<<30:IJ=1<<29|
00005c00  3a 70 75 3d 30 3a 65 6c  3d 31 3a 48 61 3d 32 3a  |:pu=0:el=1:Ha=2:|
00005c10  41 61 3d 33 3a 4a 61 3d  34 3a 50 75 3d 35 3a 55  |Aa=3:Ja=4:Pu=5:U|
00005c20  61 3d 36 3a 42 4a 3d 37  3a 64 69 3d 38 3a 6c 4a  |a=6:BJ=7:di=8:lJ|
00005c30  3d 39 3a 4c 61 3d 31 30  3a 78 6c 3d 31 3c 3c 30  |=9:La=10:xl=1<<0|
00005c40  3a 73 79 3d 31 3c 3c 31  3a 5f 69 3d 31 3c 3c 32  |:sy=1<<1:_i=1<<2|
00005c50  3a 3d 30 0d 03 01 31 dd  a4 6a 75 6d 70 62 6c 6f  |:=0...1..jumpblo|
00005c60  63 6b 5f 44 45 46 41 55  4c 54 ea 85 3a ee 85 ea  |ck_DEFAULT..:...|
00005c70  f7 85 3a f2 5a 28 22 40  2e 68 2e 44 45 46 41 55  |..:.Z("@.h.DEFAU|
00005c80  4c 54 22 29 0d 03 02 6d  5b 4f 50 54 4e 25 80 4b  |LT")...m[OPTN%.K|
00005c90  79 25 3a 2e 6a 69 20 44  43 44 73 5f 3a 2e 75 4a  |y%:.ji DCDs_:.uJ|
00005ca0  20 44 43 44 6f 6c 3a 2e  60 5f 20 44 43 44 54 5f  | DCDol:.`_ DCDT_|
00005cb0  3a 2e 4f 5f 20 44 43 44  56 69 3a 2e 47 75 20 44  |:.O_ DCDVi:.Gu D|
00005cc0  43 44 59 75 3a 2e 55 4a  20 44 43 44 69 75 3a 2e  |CDYu:.UJ DCDiu:.|
00005cd0  74 5f 20 44 43 44 45 69  3a 2e 4d 4a 20 44 43 44  |t_ DCDEi:.MJ DCD|
00005ce0  6c 75 3a 2e 5f 79 20 44  43 44 4a 69 3a 5d 3a 3d  |lu:._y DCDJi:]:=|
00005cf0  30 0d 03 03 25 dd a4 68  5f 73 74 64 69 6f ea 85  |0...%..h_stdio..|
00005d00  3a ee 85 ea f7 85 3a f2  5a 28 22 40 2e 68 2e 73  |:.....:.Z("@.h.s|
00005d10  74 64 69 6f 22 29 0d 03  04 17 6b 5f 3d 30 3a 42  |tdio")....k_=0:B|
00005d20  69 3d 31 37 3a 44 75 3d  33 34 3a 3d 30 0d 03 05  |i=17:Du=34:=0...|
00005d30  2d dd a4 6a 75 6d 70 62  6c 6f 63 6b 5f 73 74 64  |-..jumpblock_std|
00005d40  69 6f ea 85 3a ee 85 ea  f7 85 3a f2 5a 28 22 40  |io..:.....:.Z("@|
00005d50  2e 68 2e 73 74 64 69 6f  22 29 0d 03 06 98 5b 4f  |.h.stdio")....[O|
00005d60  50 54 4e 25 80 4b 79 25  3a 2e 56 6c 20 44 43 44  |PTN%.Ky%:.Vl DCD|
00005d70  63 69 3a 2e 4b 5f 20 44  43 44 66 6c 3a 2e 63 75  |ci:.K_ DCDfl:.cu|
00005d80  20 44 43 44 76 75 3a 2e  72 69 20 44 43 44 4a 75  | DCDvu:.ri DCDJu|
00005d90  3a 2e 43 5f 20 44 43 44  7a 4a 3a 2e 59 75 25 44  |:.C_ DCDzJ:.Yu%D|
00005da0  43 44 54 75 25 3a 2e 63  75 25 44 43 44 78 75 25  |CDTu%:.cu%DCDxu%|
00005db0  3a 2e 65 75 25 44 43 44  5f 75 25 3a 2e 6e 6c 20  |:.eu%DCD_u%:.nl |
00005dc0  44 43 44 47 69 3a 2e 47  6c 20 44 43 44 4c 69 3a  |DCDGi:.Gl DCDLi:|
00005dd0  2e 72 4a 20 44 43 44 77  69 3a 2e 61 69 20 44 43  |.rJ DCDwi:.ai DC|
00005de0  44 68 69 3a 2e 6b 75 20  44 43 44 59 69 3a 5d 3a  |Dhi:.ku DCDYi:]:|
00005df0  3d 30 0d 03 07 27 dd a4  68 5f 73 74 64 6c 69 62  |=0...'..h_stdlib|
00005e00  ea 85 3a ee 85 ea f7 85  3a f2 5a 28 22 40 2e 68  |..:.....:.Z("@.h|
00005e10  2e 73 74 64 6c 69 62 22  29 0d 03 08 06 3d 30 0d  |.stdlib")....=0.|
00005e20  03 09 2f dd a4 6a 75 6d  70 62 6c 6f 63 6b 5f 73  |../..jumpblock_s|
00005e30  74 64 6c 69 62 ea 85 3a  ee 85 ea f7 85 3a f2 5a  |tdlib..:.....:.Z|
00005e40  28 22 40 2e 68 2e 73 74  64 6c 69 62 22 29 0d 03  |("@.h.stdlib")..|
00005e50  0a b3 5b 4f 50 54 4e 25  80 4b 79 25 3a 2e 7a 79  |..[OPTN%.Ky%:.zy|
00005e60  20 44 43 44 67 75 3a 2e  69 79 20 44 43 44 4d 6c  | DCDgu:.iy DCDMl|
00005e70  3a 2e 4b 61 20 44 43 44  4d 69 3a 2e 6b 79 20 44  |:.Ka DCDMi:.ky D|
00005e80  43 44 4e 69 3a 2e 50 4a  20 44 43 44 45 75 3a 2e  |CDNi:.PJ DCDEu:.|
00005e90  4c 5f 20 44 43 44 44 61  3a 2e 48 6c 20 44 43 44  |L_ DCDDa:.Hl DCD|
00005ea0  4e 6c 3a 2e 4f 75 20 44  43 44 7a 61 3a 2e 5f 5f  |Nl:.Ou DCDza:.__|
00005eb0  20 44 43 44 60 75 3a 2e  50 5f 20 44 43 44 71 61  | DCD`u:.P_ DCDqa|
00005ec0  3a 2e 53 5f 20 44 43 44  79 4a 3a 2e 57 5f 20 44  |:.S_ DCDyJ:.W_ D|
00005ed0  43 44 6d 5f 3a 2e 7a 75  20 44 43 44 56 5f 3a 2e  |CDm_:.zu DCDV_:.|
00005ee0  75 75 20 44 43 44 7a 5f  3a 2e 6c 6c 20 44 43 44  |uu DCDz_:.ll DCD|
00005ef0  42 6c 3a 2e 63 6c 20 44  43 44 66 4a 3a 5d 3a 3d  |Bl:.cl DCDfJ:]:=|
00005f00  30 0d 03 0b 27 dd a4 68  5f 73 74 72 69 6e 67 ea  |0...'..h_string.|
00005f10  85 3a ee 85 ea f7 85 3a  f2 5a 28 22 40 2e 68 2e  |.:.....:.Z("@.h.|
00005f20  73 74 72 69 6e 67 22 29  0d 03 0c 53 50 25 3d 30  |string")...SP%=0|
00005f30  3a 5b 4f 50 54 4e 25 3a  2e 51 75 20 44 43 42 30  |:[OPTN%:.Qu DCB0|
00005f40  3a 2e 78 5f 20 44 43 42  30 3a 2e 53 69 20 44 43  |:.x_ DCB0:.Si DC|
00005f50  42 30 3a 2e 43 4a 20 44  43 42 30 3a 2e 61 75 20  |B0:.CJ DCB0:.au |
00005f60  44 43 42 30 3a 2e 51 6c  20 44 43 42 30 3a 2e 61  |DCB0:.Ql DCB0:.a|
00005f70  6c 20 44 43 42 30 3a 5d  3a 3d 30 0d 03 0d 2f dd  |l DCB0:]:=0.../.|
00005f80  a4 6a 75 6d 70 62 6c 6f  63 6b 5f 73 74 72 69 6e  |.jumpblock_strin|
00005f90  67 ea 85 3a ee 85 ea f7  85 3a f2 5a 28 22 40 2e  |g..:.....:.Z("@.|
00005fa0  68 2e 73 74 72 69 6e 67  22 29 0d 03 0e cc 5b 4f  |h.string")....[O|
00005fb0  50 54 4e 25 80 4b 79 25  3a 2e 5a 4a 20 44 43 44  |PTN%.Ky%:.ZJ DCD|
00005fc0  54 4a 3a 2e 70 4a 20 44  43 44 74 6c 3a 2e 4b 4a  |TJ:.pJ DCDtl:.KJ|
00005fd0  20 44 43 44 77 5f 3a 2e  44 5f 20 44 43 44 4e 61  | DCDw_:.D_ DCDNa|
00005fe0  3a 2e 50 6c 20 44 43 44  70 69 3a 2e 62 69 20 44  |:.Pl DCDpi:.bi D|
00005ff0  43 44 4f 6c 3a 2e 54 61  20 44 43 44 53 61 3a 2e  |CDOl:.Ta DCDSa:.|
00006000  70 5f 20 44 43 44 57 69  3a 2e 59 5f 20 44 43 44  |p_ DCDWi:.Y_ DCD|
00006010  48 69 3a 2e 76 69 20 44  43 44 4d 75 3a 2e 69 69  |Hi:.vi DCDMu:.ii|
00006020  20 44 43 44 54 75 3a 2e  66 69 20 44 43 44 41 75  | DCDTu:.fi DCDAu|
00006030  3a 2e 6f 4a 20 44 43 44  73 75 3a 2e 58 75 20 44  |:.oJ DCDsu:.Xu D|
00006040  43 44 58 4a 3a 2e 60 79  20 44 43 44 4e 75 3a 2e  |CDXJ:.`y DCDNu:.|
00006050  63 4a 20 44 43 44 4f 69  3a 2e 74 69 20 44 43 44  |cJ DCDOi:.ti DCD|
00006060  61 5f 3a 2e 67 4a 20 44  43 44 51 4a 3a 2e 6d 69  |a_:.gJ DCDQJ:.mi|
00006070  20 44 43 44 56 75 0d 03  0f ee 2e 60 69 20 44 43  | DCDVu.....`i DC|
00006080  44 79 5f 3a 2e 77 75 20  44 43 44 49 5f 3a 2e 5f  |Dy_:.wu DCDI_:._|
00006090  75 20 44 43 44 54 69 3a  2e 6e 75 20 44 43 44 57  |u DCDTi:.nu DCDW|
000060a0  6c 3a 2e 44 69 20 44 43  44 72 5f 3a 2e 53 6c 20  |l:.Di DCDr_:.Sl |
000060b0  44 43 44 57 4a 3a 2e 50  69 20 44 43 44 62 5f 3a  |DCDWJ:.Pi DCDb_:|
000060c0  2e 6b 6c 20 44 43 44 4f  4a 3a 2e 75 6c 20 44 43  |.kl DCDOJ:.ul DC|
000060d0  44 6e 4a 3a 2e 52 6c 20  44 43 44 4e 4a 3a 2e 46  |DnJ:.Rl DCDNJ:.F|
000060e0  69 20 44 43 44 6e 5f 3a  2e 46 6c 20 44 43 44 57  |i DCDn_:.Fl DCDW|
000060f0  75 3a 2e 59 6c 20 44 43  44 61 61 3a 2e 49 6c 20  |u:.Yl DCDaa:.Il |
00006100  44 43 44 67 5f 3a 2e 6b  4a 20 44 43 44 6d 75 3a  |DCDg_:.kJ DCDmu:|
00006110  2e 64 75 20 44 43 44 65  5f 3a 2e 5a 75 20 44 43  |.du DCDe_:.Zu DC|
00006120  44 64 5f 3a 2e 4c 75 20  44 43 44 62 4a 3a 2e 48  |Dd_:.Lu DCDbJ:.H|
00006130  75 20 44 43 44 46 4a 3a  2e 76 5f 20 44 43 44 46  |u DCDFJ:.v_ DCDF|
00006140  75 3a 2e 72 6c 20 44 43  44 52 61 3a 2e 6a 4a 20  |u:.rl DCDRa:.jJ |
00006150  44 43 44 79 6c 3a 2e 47  5f 20 44 43 44 71 6c 3a  |DCDyl:.G_ DCDql:|
00006160  5d 3a 3d 30 0d 03 10 29  dd a4 68 5f 6d 65 73 73  |]:=0...)..h_mess|
00006170  61 67 65 ea 85 3a ee 85  ea f7 85 3a f2 5a 28 22  |age..:.....:.Z("|
00006180  40 2e 68 2e 6d 65 73 73  61 67 65 22 29 0d 03 11  |@.h.message")...|
00006190  06 3d 30 0d 03 12 31 dd  a4 6a 75 6d 70 62 6c 6f  |.=0...1..jumpblo|
000061a0  63 6b 5f 6d 65 73 73 61  67 65 ea 85 3a ee 85 ea  |ck_message..:...|
000061b0  f7 85 3a f2 5a 28 22 40  2e 68 2e 6d 65 73 73 61  |..:.Z("@.h.messa|
000061c0  67 65 22 29 0d 03 13 45  5b 4f 50 54 4e 25 80 4b  |ge")...E[OPTN%.K|
000061d0  79 25 3a 2e 6f 79 20 44  43 44 71 5f 3a 2e 41 5f  |y%:.oy DCDq_:.A_|
000061e0  20 44 43 44 6c 5f 3a 2e  78 4a 20 44 43 44 6a 75  | DCDl_:.xJ DCDju|
000061f0  3a 2e 45 61 20 44 43 44  79 75 3a 2e 55 5f 20 44  |:.Ea DCDyu:.U_ D|
00006200  43 44 62 75 3a 5d 3a 3d  30 0d 03 14 23 dd a4 68  |CDbu:]:=0...#..h|
00006210  5f 77 69 6d 70 ea 85 3a  ee 85 ea f7 85 3a f2 5a  |_wimp..:.....:.Z|
00006220  28 22 40 2e 68 2e 77 69  6d 70 22 29 0d 03 15 ca  |("@.h.wimp")....|
00006230  49 75 3d 31 32 3a 65 75  3d 30 3a 50 25 3d 30 3a  |Iu=12:eu=0:P%=0:|
00006240  5b 4f 50 54 4e 25 3a 2e  4c 79 20 44 43 42 30 3a  |[OPTN%:.Ly DCB0:|
00006250  2e 41 6c 20 44 43 42 30  3a 2e 63 79 20 44 43 42  |.Al DCB0:.cy DCB|
00006260  30 3a 2e 71 79 20 44 43  42 30 3a 2e 6e 69 20 44  |0:.qy DCB0:.ni D|
00006270  43 42 30 3a 2e 66 5f 20  44 43 42 30 3a 2e 5f 61  |CB0:.f_ DCB0:._a|
00006280  20 44 43 42 30 3a 2e 6a  79 20 44 43 42 30 3a 2e  | DCB0:.jy DCB0:.|
00006290  49 79 20 44 43 42 30 3a  2e 6d 4a 20 44 43 42 30  |Iy DCB0:.mJ DCB0|
000062a0  3a 2e 5a 5f 20 44 43 42  30 3a 2e 60 4a 20 44 43  |:.Z_ DCB0:.`J DC|
000062b0  42 30 3a 2e 4f 61 20 44  43 42 30 3a 2e 5f 6c 20  |B0:.Oa DCB0:._l |
000062c0  44 43 42 30 3a 2e 6a 5f  20 44 43 42 30 3a 2e 73  |DCB0:.j_ DCB0:.s|
000062d0  69 20 44 43 42 30 3a 2e  73 4a 20 44 43 42 30 3a  |i DCB0:.sJ DCB0:|
000062e0  5d 3a 50 25 3d 30 3a 5b  4f 50 54 4e 25 3a 2e 56  |]:P%=0:[OPTN%:.V|
000062f0  79 20 44 43 42 30 0d 03  16 a6 2e 76 6c 20 44 43  |y DCB0.....vl DC|
00006300  42 30 3a 2e 4b 69 20 44  43 42 30 3a 2e 76 79 20  |B0:.Ki DCB0:.vy |
00006310  44 43 42 30 3a 2e 52 75  20 44 43 42 30 3a 2e 56  |DCB0:.Ru DCB0:.V|
00006320  4a 20 44 43 42 30 3a 2e  4c 4a 20 44 43 42 30 3a  |J DCB0:.LJ DCB0:|
00006330  2e 78 69 20 44 43 42 30  3a 2e 73 61 20 44 43 42  |.xi DCB0:.sa DCB|
00006340  30 3a 2e 7a 6c 20 44 43  42 30 3a 2e 67 6c 20 44  |0:.zl DCB0:.gl D|
00006350  43 42 30 3a 2e 72 75 20  44 43 42 30 3a 5d 3a 50  |CB0:.ru DCB0:]:P|
00006360  25 3d 30 3a 5b 4f 50 54  4e 25 3a 2e 5a 6c 20 44  |%=0:[OPTN%:.Zl D|
00006370  43 42 30 3a 2e 53 75 20  44 43 42 30 3a 2e 42 61  |CB0:.Su DCB0:.Ba|
00006380  20 44 43 42 30 3a 2e 63  5f 20 44 43 42 30 3a 2e  | DCB0:.c_ DCB0:.|
00006390  4e 5f 20 44 43 42 30 3a  5d 3a 3d 30 0d 03 17 2b  |N_ DCB0:]:=0...+|
000063a0  dd a4 6a 75 6d 70 62 6c  6f 63 6b 5f 77 69 6d 70  |..jumpblock_wimp|
000063b0  ea 85 3a ee 85 ea f7 85  3a f2 5a 28 22 40 2e 68  |..:.....:.Z("@.h|
000063c0  2e 77 69 6d 70 22 29 0d  03 18 c7 5b 4f 50 54 4e  |.wimp")....[OPTN|
000063d0  25 80 4b 79 25 3a 2e 59  61 20 44 43 44 4a 6c 3a  |%.Ky%:.Ya DCDJl:|
000063e0  2e 69 4a 20 44 43 44 6d  6c 3a 2e 77 4a 20 44 43  |.iJ DCDml:.wJ DC|
000063f0  44 49 61 3a 2e 62 6c 20  44 43 44 58 69 3a 2e 42  |DIa:.bl DCDXi:.B|
00006400  79 20 44 43 44 74 4a 3a  2e 5f 4a 20 44 43 44 60  |y DCDtJ:._J DCD`|
00006410  6c 3a 2e 45 5f 20 44 43  44 52 4a 3a 2e 73 6c 20  |l:.E_ DCDRJ:.sl |
00006420  44 43 44 75 69 3a 2e 6c  79 20 44 43 44 68 5f 3a  |DCDui:.ly DCDh_:|
00006430  2e 50 61 20 44 43 44 58  5f 3a 2e 43 61 20 44 43  |.Pa DCDX_:.Ca DC|
00006440  44 54 6c 3a 2e 5a 61 20  44 43 44 47 61 3a 2e 55  |DTl:.Za DCDGa:.U|
00006450  75 20 44 43 44 45 6c 3a  2e 46 61 20 44 43 44 55  |u DCDEl:.Fa DCDU|
00006460  6c 3a 2e 43 69 20 44 43  44 46 5f 3a 2e 57 61 20  |l:.Ci DCDF_:.Wa |
00006470  44 43 44 49 69 3a 2e 4d  61 20 44 43 44 51 61 3a  |DCDIi:.Ma DCDQa:|
00006480  2e 6b 69 20 44 43 44 56  61 3a 5d 3a 3d 30 0d 03  |.ki DCDVa:]:=0..|
00006490  19 19 dd a4 5f 4d 6f 64  65 49 6e 66 6f 5f 76 65  |...._ModeInfo_ve|
000064a0  72 73 69 6f 6e 3d 36 0d  03 1a 21 dd a4 5f 68 61  |rsion=6...!.._ha|
000064b0  72 64 5f 69 6e 69 74 69  61 6c 69 73 65 5f 4d 6f  |rd_initialise_Mo|
000064c0  64 65 49 6e 66 6f 3d 30  0d 03 1b e7 dd f2 41 5f  |deInfo=0......A_|
000064d0  28 6f 25 29 c8 99 35 33  2c 6f 25 2c 31 b8 2c 2c  |(o%)..53,o%,1.,,|
000064e0  5a 4a 25 3a 5a 4a 25 2b  3d 31 3a c8 99 35 33 2c  |ZJ%:ZJ%+=1:..53,|
000064f0  6f 25 2c 32 b8 2c 2c 74  5f 25 3a 74 5f 25 2b 3d  |o%,2.,,t_%:t_%+=|
00006500  31 3a c8 99 35 33 2c 6f  25 2c 33 b8 2c 2c 6e 4a  |1:..53,o%,3.,,nJ|
00006510  25 3a 6e 4a 25 2b 3d 31  3a c8 99 35 33 2c 6f 25  |%:nJ%+=1:..53,o%|
00006520  2c 34 b8 2c 2c 43 5f 25  3a c8 99 35 33 2c 6f 25  |,4.,,C_%:..53,o%|
00006530  2c 35 b8 2c 2c 57 79 25  3a c8 99 35 33 2c 6f 25  |,5.,,Wy%:..53,o%|
00006540  2c 36 b8 2c 2c 57 75 25  3a c8 99 35 33 2c 6f 25  |,6.,,Wu%:..53,o%|
00006550  2c 37 b8 2c 2c 48 75 25  3a c8 99 35 33 2c 6f 25  |,7.,,Hu%:..53,o%|
00006560  2c 39 b8 2c 2c 4a 4a 25  3a 54 4a 25 3d 31 3c 3c  |,9.,,JJ%:TJ%=1<<|
00006570  4a 4a 25 3a c8 99 35 33  2c 6f 25 2c 31 31 b8 2c  |JJ%:..53,o%,11.,|
00006580  2c 60 79 25 3a 60 79 25  2b 3d 31 3a c8 99 35 33  |,`y%:`y%+=1:..53|
00006590  2c 6f 25 2c 31 32 b8 2c  2c 43 79 25 3a 43 79 25  |,o%,12.,,Cy%:Cy%|
000065a0  2b 3d 31 3a 42 75 25 3d  60 79 25 81 5a 4a 25 0d  |+=1:Bu%=`y%.ZJ%.|
000065b0  03 1c 3e 43 75 25 3d 43  79 25 81 74 5f 25 3a 58  |..>Cu%=Cy%.t_%:X|
000065c0  5f 25 3d 28 60 79 25 3c  3c 43 5f 25 29 2d 31 3a  |_%=(`y%<<C_%)-1:|
000065d0  44 5f 25 3d 28 43 79 25  3c 3c 57 79 25 29 2d 31  |D_%=(Cy%<<Wy%)-1|
000065e0  3a 71 75 25 3d 33 32 81  54 4a 25 3a e1 0d 03 1d  |:qu%=32.TJ%:....|
000065f0  16 dd a4 5f 57 69 6d 70  5f 76 65 72 73 69 6f 6e  |..._Wimp_version|
00006600  3d 35 30 0d 03 1e 2f dd  a4 5f 68 61 72 64 5f 69  |=50.../.._hard_i|
00006610  6e 69 74 69 61 6c 69 73  65 5f 57 69 6d 70 ea 64  |nitialise_Wimp.d|
00006620  25 3a e7 a4 4c 3c 31 32  8c 85 31 2c 22 45 49 57  |%:..L<12..1,"EIW|
00006630  31 22 0d 03 1f 49 c8 99  26 34 30 30 66 32 2c 30  |1"...I..&400f2,0|
00006640  b8 64 25 3a e7 64 25 3d  30 8c 85 31 2c 22 41 70  |.d%:.d%=0..1,"Ap|
00006650  70 6c 69 63 61 74 69 6f  6e 20 6e 65 65 64 73 20  |plication needs |
00006660  74 6f 20 62 65 20 72 75  6e 20 66 72 6f 6d 20 74  |to be run from t|
00006670  68 65 20 64 65 73 6b 74  6f 70 22 0d 03 20 a6 f2  |he desktop".. ..|
00006680  41 28 22 3c 42 61 73 69  63 56 24 4c 69 62 3e 2e  |A("<BasicV$Lib>.|
00006690  48 65 61 70 22 2c 38 29  3a f2 41 28 22 3c 42 61  |Heap",8):.A("<Ba|
000066a0  73 69 63 56 24 4c 69 62  3e 2e 49 6e 74 4d 61 74  |sicV$Lib>.IntMat|
000066b0  68 22 2c 35 29 3a f2 41  28 22 3c 42 61 73 69 63  |h",5):.A("<Basic|
000066c0  56 24 4c 69 62 3e 2e 4d  65 73 73 61 67 65 22 2c  |V$Lib>.Message",|
000066d0  33 29 3a f2 41 28 22 3c  42 61 73 69 63 56 24 4c  |3):.A("<BasicV$L|
000066e0  69 62 3e 2e 54 65 6d 70  6c 61 74 65 22 2c 37 29  |ib>.Template",7)|
000066f0  3a f2 41 28 22 3c 42 61  73 69 63 56 24 4c 69 62  |:.A("<BasicV$Lib|
00006700  3e 2e 4e 75 6c 6c 52 65  61 73 6f 6e 22 2c 31 29  |>.NullReason",1)|
00006710  3a 63 79 25 3d a3 3a 71  79 25 3d 33 2a 31 30 32  |:cy%=.:qy%=3*102|
00006720  34 0d 03 21 9f f2 42 28  74 79 25 2c 71 79 25 29  |4..!..B(ty%,qy%)|
00006730  3a 71 79 25 2b 3d 74 79  25 3a 47 79 25 3d 74 79  |:qy%+=ty%:Gy%=ty|
00006740  25 3a f2 42 28 57 25 2c  35 31 32 29 3a 6d 24 3d  |%:.B(W%,512):m$=|
00006750  22 22 3a 69 24 3d 22 22  3a 61 75 25 3d 30 3a 42  |"":i$="":au%=0:B|
00006760  24 3d 22 41 70 70 6c 69  63 61 74 69 6f 6e 22 3a  |$="Application":|
00006770  58 24 3d 22 30 2e 30 30  20 28 30 31 2d 4a 61 6e  |X$="0.00 (01-Jan|
00006780  2d 31 39 30 30 29 22 3a  5f 25 3d 2d 31 3a 52 5f  |-1900)":_%=-1:R_|
00006790  25 3d 32 34 30 30 3a 4d  5f 25 3d 32 34 30 31 3a  |%=2400:M_%=2401:|
000067a0  50 75 25 3d 31 36 2a 31  30 32 34 3a 47 24 3d 22  |Pu%=16*1024:G$="|
000067b0  22 3a 6b 75 25 3d b9 3a  53 75 25 3d 30 3a 3d 30  |":ku%=.:Su%=0:=0|
000067c0  0d 03 22 3a dd a4 4b 28  64 24 29 ea 61 25 2c 43  |..":..K(d$).a%,C|
000067d0  25 2c 5a 24 2c 63 25 2c  62 25 2c 49 4a 25 3a c8  |%,Z$,c%,b%,IJ%:.|
000067e0  99 26 36 30 30 66 32 2c  32 b8 61 25 3b 43 25 3a  |.&600f2,2.a%;C%:|
000067f0  e7 28 43 25 80 31 29 3d  30 8c 0d 03 23 44 c8 99  |.(C%.1)=0...#D..|
00006800  35 33 2c 2d 31 2c 34 b8  2c 2c 63 25 3a c8 99 35  |53,-1,4.,,c%:..5|
00006810  33 2c 2d 31 2c 35 b8 2c  2c 62 25 3a c8 99 35 33  |3,-1,5.,,b%:..53|
00006820  2c 2d 31 2c 31 30 b8 2c  2c 49 4a 25 3a e7 63 25  |,-1,10.,,IJ%:.c%|
00006830  3c 32 80 62 25 3c 32 80  49 4a 25 3d 30 8c 0d 03  |<2.b%<2.IJ%=0...|
00006840  24 0b 5a 24 3d 22 32 33  22 0d 03 25 0e cc 5a 24  |$.Z$="23"..%..Z$|
00006850  3d a4 53 28 61 25 29 0d  03 26 16 cd 3a 61 25 3d  |=.S(a%)..&..:a%=|
00006860  8e 28 64 24 2b 5a 24 29  3a e7 61 25 8c 0d 03 27  |.(d$+Z$):.a%...'|
00006870  0f d9 23 61 25 3a 64 24  2b 3d 5a 24 0d 03 28 05  |..#a%:d$+=Z$..(.|
00006880  cd 0d 03 29 09 cd 3a 3d  64 24 0d 03 2a 17 dd a4  |...)..:=d$..*...|
00006890  50 28 58 79 25 29 3d 28  58 79 25 80 31 29 3c 3e  |P(Xy%)=(Xy%.1)<>|
000068a0  30 0d 03 2b 15 dd f2 69  28 71 25 2c 54 25 29 e7  |0..+...i(q%,T%).|
000068b0  54 25 3d 2d 31 8c 0d 03  2c 1f c8 99 26 36 30 30  |T%=-1...,...&600|
000068c0  64 32 2c 71 25 2c 2d 31  2c 30 2c 30 2c 31 3c 3c  |d2,q%,-1,0,0,1<<|
000068d0  32 35 2c 2d 31 0d 03 2d  34 cc c8 99 26 36 30 30  |25,-1..-4...&600|
000068e0  64 32 2c 71 25 2c 54 25  2c 2c 2c 2d 31 2c a9 28  |d2,q%,T%,,,-1,.(|
000068f0  a4 5a 79 28 71 25 2c 54  25 29 29 3a c8 99 26 64  |.Zy(q%,T%)):..&d|
00006900  63 62 38 64 2c 38 2c 71  25 0d 03 2e 07 cd 3a e1  |cb8d,8,q%.....:.|
00006910  0d 03 2f 24 dd f2 6f 79  28 71 25 2c 64 75 25 29  |../$..oy(q%,du%)|
00006920  c8 99 26 64 63 62 38 64  2c 56 79 2c 71 25 2c 64  |..&dcb8d,Vy,q%,d|
00006930  75 25 3a e1 0d 03 30 1f  dd f2 55 28 71 25 29 e7  |u%:...0...U(q%).|
00006940  71 25 3e 30 8c c8 99 26  64 63 62 38 64 2c 76 79  |q%>0...&dcb8d,vy|
00006950  2c 71 25 0d 03 31 05 e1  0d 03 32 1f dd f2 79 79  |,q%..1....2...yy|
00006960  28 71 25 29 c8 99 26 64  63 62 38 64 2c 56 79 2c  |(q%)..&dcb8d,Vy,|
00006970  71 25 2c 2d 31 3a e1 0d  03 33 6e dd f2 65 79 28  |q%,-1:...3n..ey(|
00006980  71 25 2c 54 25 2c 67 4a  25 2c 6a 75 25 2c 69 75  |q%,T%,gJ%,ju%,iu|
00006990  25 29 ea 46 25 3a 46 25  3d a4 5a 28 31 36 29 3a  |%).F%:F%=.Z(16):|
000069a0  46 25 21 30 3d 71 25 3a  46 25 21 34 3d 54 25 3a  |F%!0=q%:F%!4=T%:|
000069b0  46 25 21 38 3d 6a 75 25  3c 3c 67 4a 25 3a 46 25  |F%!8=ju%<<gJ%:F%|
000069c0  21 31 32 3d 69 75 25 3c  3c 67 4a 25 3a c8 99 26  |!12=iu%<<gJ%:..&|
000069d0  34 30 30 63 64 2c 2c 46  25 3a f2 43 28 46 25 2c  |400cd,,F%:.C(F%,|
000069e0  31 36 29 3a e1 0d 03 34  26 dd a4 57 28 71 25 2c  |16):...4&..W(q%,|
000069f0  54 25 29 c8 99 26 64 63  62 38 63 2c 49 79 2c 71  |T%)..&dcb8c,Iy,q|
00006a00  25 2c 54 25 b8 54 25 3a  3d 54 25 0d 03 35 29 dd  |%,T%.T%:=T%..5).|
00006a10  f2 49 28 71 25 2c 54 25  2c 4b 75 25 29 c8 99 26  |.I(q%,T%,Ku%)..&|
00006a20  64 63 62 38 63 2c 6a 79  2c 71 25 2c 54 25 2c 4b  |dcb8c,jy,q%,T%,K|
00006a30  75 25 3a e1 0d 03 36 4a  dd f2 58 28 59 4a 25 2c  |u%:...6J..X(YJ%,|
00006a40  41 24 29 ea 46 25 3a 46  25 3d a4 5a 28 33 30 30  |A$).F%:F%=.Z(300|
00006a50  29 3a 46 25 21 30 3d 59  4a 25 3a 24 28 46 25 2b  |):F%!0=YJ%:$(F%+|
00006a60  34 29 3d 41 24 2b bd 28  30 29 3a f2 52 28 46 25  |4)=A$+.(0):.R(F%|
00006a70  29 3a f2 43 28 46 25 2c  33 30 30 29 3a e1 0d 03  |):.C(F%,300):...|
00006a80  37 14 dd f2 47 28 41 24  29 85 52 5f 25 2c 41 24  |7...G(A$).R_%,A$|
00006a90  3a e1 0d 03 38 4c dd f2  44 28 59 4a 25 29 ea 46  |:...8L..D(YJ%).F|
00006aa0  25 3a 46 25 3d a4 5a 28  33 30 30 29 3a 46 25 21  |%:F%=.Z(300):F%!|
00006ab0  30 3d 4d 5f 25 3a f2 70  28 22 4c 45 22 2b c3 28  |0=M_%:.p("LE"+.(|
00006ac0  59 4a 25 29 2c 46 25 2b  34 29 3a f2 52 28 46 25  |YJ%),F%+4):.R(F%|
00006ad0  29 3a f2 43 28 46 25 2c  33 30 30 29 3a e1 0d 03  |):.C(F%,300):...|
00006ae0  39 1f dd f2 52 28 49 75  25 29 c8 99 26 34 30 30  |9...R(Iu%)..&400|
00006af0  64 66 2c 49 75 25 2c 31  2c 42 24 3a e1 0d 03 3a  |df,Iu%,1,B$:...:|
00006b00  67 dd a4 4a 28 58 79 25  2c 41 24 29 ea 46 25 2c  |g..J(Xy%,A$).F%,|
00006b10  4b 25 3a f2 66 3a 46 25  3d a4 5a 28 32 36 30 29  |K%:.f:F%=.Z(260)|
00006b20  3a 21 46 25 3d 30 3a 24  28 46 25 2b 34 29 3d 41  |:!F%=0:$(F%+4)=A|
00006b30  24 2b bd 28 30 29 3a c8  99 26 34 30 30 64 66 2c  |$+.(0):..&400df,|
00006b40  46 25 2c 28 31 36 84 58  79 25 29 2c a4 44 28 30  |F%,(16.Xy%),.D(0|
00006b50  29 b8 2c 4b 25 3a f2 43  28 46 25 2c 32 36 30 29  |).,K%:.C(F%,260)|
00006b60  3a 3d 4b 25 0d 03 3b 99  dd f2 69 5f ea 46 25 3a  |:=K%..;...i_.F%:|
00006b70  46 25 3d a4 5a 28 32 35  36 29 3a 46 25 3f 30 3d  |F%=.Z(256):F%?0=|
00006b80  31 3a 46 25 3f 31 3d 30  3a 46 25 3f 32 3d 30 3a  |1:F%?1=0:F%?2=0:|
00006b90  46 25 3f 33 3d 30 3a 46  25 3f 34 3d 30 3a 46 25  |F%?3=0:F%?4=0:F%|
00006ba0  3f 35 3d 58 5f 25 83 32  35 36 3a 46 25 3f 36 3d  |?5=X_%.256:F%?6=|
00006bb0  58 5f 25 81 32 35 36 3a  46 25 3f 37 3d 44 5f 25  |X_%.256:F%?7=D_%|
00006bc0  83 32 35 36 3a 46 25 3f  38 3d 44 5f 25 81 32 35  |.256:F%?8=D_%.25|
00006bd0  36 3a c8 99 37 2c 32 31  2c 46 25 3a 21 46 25 3d  |6:..7,21,F%:!F%=|
00006be0  64 5f 25 3a c8 99 26 34  30 30 63 36 2c 2c 46 25  |d_%:..&400c6,,F%|
00006bf0  3a f2 43 28 46 25 2c 32  35 36 29 3a e1 0d 03 3c  |:.C(F%,256):...<|
00006c00  46 dd f2 75 79 28 63 25  2c 62 25 2c 59 25 2c 54  |F..uy(c%,b%,Y%,T|
00006c10  25 29 f2 69 5f 3a 63 25  3d a4 4d 28 22 46 4e 5f  |%).i_:c%=.M("FN_|
00006c20  53 74 6f 70 5f 41 63 74  69 6f 6e 5f 22 2b 6b 24  |Stop_Action_"+k$|
00006c30  2b 22 28 22 2b c3 28 54  25 3d 30 29 2b 22 29 22  |+"("+.(T%=0)+")"|
00006c40  29 3a e1 0d 03 3d 2e dd  a4 62 28 4c 24 29 c8 95  |):...=...b(L$)..|
00006c50  a7 4c 24 2c 22 2e 22 29  3a 4c 24 3d c1 4c 24 2c  |.L$,"."):L$=.L$,|
00006c60  a7 4c 24 2c 22 2e 22 29  2b 31 29 3a ce 3a 3d 4c  |.L$,".")+1):.:=L|
00006c70  24 0d 03 3e 27 dd f2 45  28 71 25 2c 54 25 2c 71  |$..>'..E(q%,T%,q|
00006c80  24 29 c8 99 26 64 63 62  38 63 2c 63 79 2c 71 25  |$)..&dcb8c,cy,q%|
00006c90  2c 54 25 2c 71 24 3a e1  0d 03 3f 27 dd f2 4e 28  |,T%,q$:...?'..N(|
00006ca0  71 25 2c 4a 25 2c 52 25  29 c8 99 26 64 63 62 38  |q%,J%,R%)..&dcb8|
00006cb0  63 2c 71 79 2c 71 25 2c  4a 25 2c 52 25 3a e1 0d  |c,qy,q%,J%,R%:..|
00006cc0  03 40 2b dd a4 5a 79 28  71 25 2c 4a 25 29 c8 99  |.@+..Zy(q%,J%)..|
00006cd0  26 64 63 62 38 63 2c 4c  79 2c 71 25 2c 4a 25 b8  |&dcb8c,Ly,q%,J%.|
00006ce0  71 25 3a 3d a4 53 28 71  25 29 0d 03 41 26 dd a4  |q%:=.S(q%)..A&..|
00006cf0  69 28 71 25 2c 4a 25 29  c8 99 26 64 63 62 38 63  |i(q%,J%)..&dcb8c|
00006d00  2c 4c 79 2c 71 25 2c 4a  25 b8 71 25 3a 3d 71 25  |,Ly,q%,J%.q%:=q%|
00006d10  0d 03 42 38 dd a4 7a 28  4b 24 29 ea 64 25 2c 49  |..B8..z(K$).d%,I|
00006d20  25 2c 51 25 3a c8 99 26  32 30 30 30 38 2c 31 37  |%,Q%:..&20008,17|
00006d30  2c 4b 24 b8 64 25 2c 2c  2c 2c 49 25 3b 51 25 3a  |,K$.d%,,,,I%;Q%:|
00006d40  e7 a4 50 28 51 25 29 8c  0d 03 43 28 f2 4d 28 22  |..P(Q%)...C(.M("|
00006d50  52 65 61 73 6f 6e 22 2c  a4 62 28 4b 24 29 29 3a  |Reason",.b(K$)):|
00006d60  f2 6e 28 64 25 29 3a f2  47 28 a4 44 28 34 29 29  |.n(d%):.G(.D(4))|
00006d70  0d 03 44 0d cd 3a e7 64  25 3c 3e 31 8c 0d 03 45  |..D..:.d%<>1...E|
00006d80  09 49 25 3d 2d 31 0d 03  46 09 cd 3a 3d 49 25 0d  |.I%=-1..F..:=I%.|
00006d90  03 47 1d dd a4 5a 28 78  25 29 ea 4b 25 3a e7 28  |.G...Z(x%).K%:.(|
00006da0  47 79 25 2b 78 25 29 3c  71 79 25 8c 0d 03 48 12  |Gy%+x%)<qy%...H.|
00006db0  4b 25 3d 47 79 25 3a 47  79 25 2b 3d 78 25 0d 03  |K%=Gy%:Gy%+=x%..|
00006dc0  49 1a cc f2 47 28 22 57  69 6d 70 20 53 74 61 63  |I...G("Wimp Stac|
00006dd0  6b 20 66 75 6c 6c 22 29  0d 03 4a 09 cd 3a 3d 4b  |k full")..J..:=K|
00006de0  25 0d 03 4b 12 dd f2 77  79 3a 47 79 25 3d 74 79  |%..K...wy:Gy%=ty|
00006df0  25 3a e1 0d 03 4c 24 dd  f2 43 28 4e 5f 25 2c 78  |%:...L$..C(N_%,x|
00006e00  25 29 e7 28 4e 5f 25 3c  74 79 25 29 84 28 4e 5f  |%).(N_%<ty%).(N_|
00006e10  25 3e 71 79 25 29 8c 0d  03 4d 2c f2 47 28 22 52  |%>qy%)...M,.G("R|
00006e20  65 6c 65 61 73 65 5f 53  74 61 63 6b 3a 20 49 6e  |elease_Stack: In|
00006e30  76 61 6c 69 64 20 73 74  61 63 6b 20 63 68 75 6e  |valid stack chun|
00006e40  6b 22 29 0d 03 4e 1c cc  e7 28 78 25 3c 30 29 84  |k")..N...(x%<0).|
00006e50  28 28 4e 5f 25 2b 78 25  29 3e 71 79 25 29 8c 0d  |((N_%+x%)>qy%)..|
00006e60  03 4f 2b f2 47 28 22 52  65 6c 65 61 73 65 5f 53  |.O+.G("Release_S|
00006e70  74 61 63 6b 3a 20 49 6e  76 61 6c 69 64 20 63 68  |tack: Invalid ch|
00006e80  75 6e 6b 20 73 69 7a 65  22 29 0d 03 50 17 cc 47  |unk size")..P..G|
00006e90  79 25 2d 3d 78 25 3a e7  47 79 25 3c 3e 4e 5f 25  |y%-=x%:.Gy%<>N_%|
00006ea0  8c 0d 03 51 20 f2 47 28  22 52 65 6c 65 61 73 65  |...Q .G("Release|
00006eb0  5f 53 74 61 63 6b 3a 20  42 61 64 20 70 6f 70 22  |_Stack: Bad pop"|
00006ec0  29 0d 03 52 05 cd 0d 03  53 05 cd 0d 03 54 07 cd  |)..R....S....T..|
00006ed0  3a e1 0d 03 55 3e dd f2  52 79 28 76 24 2c 79 25  |:...U>..Ry(v$,y%|
00006ee0  2c 63 4a 25 2c 6d 5f 25  2c 50 4a 25 2c 46 4a 25  |,cJ%,m_%,PJ%,FJ%|
00006ef0  29 f2 4f 5f 28 76 24 2c  76 24 2c 79 25 2c 63 4a  |).O_(v$,v$,y%,cJ|
00006f00  25 2c 6d 5f 25 2c 50 4a  25 2c 46 4a 25 29 3a e1  |%,m_%,PJ%,FJ%):.|
00006f10  0d 03 56 e3 dd f2 4f 5f  28 76 24 2c 48 24 2c 79  |..V...O_(v$,H$,y|
00006f20  25 2c 63 4a 25 2c 6d 5f  25 2c 50 4a 25 2c 46 4a  |%,cJ%,m_%,PJ%,FJ|
00006f30  25 29 58 24 3d c3 28 79  25 29 2b 22 2e 22 2b c2  |%)X$=.(y%)+"."+.|
00006f40  22 30 22 2b c3 28 63 4a  25 29 2c 32 29 3a 58 24  |"0"+.(cJ%),2):X$|
00006f50  2b 3d 22 20 28 22 2b c2  22 30 22 2b c3 28 6d 5f  |+=" ("+."0"+.(m_|
00006f60  25 29 2c 32 29 2b 22 2d  22 3a 58 24 2b 3d c1 22  |%),2)+"-":X$+=."|
00006f70  43 42 4a 61 6e 46 65 62  4d 61 72 41 70 72 4d 61  |CBJanFebMarAprMa|
00006f80  79 4a 75 6e 4a 75 6c 41  75 67 53 65 70 4f 63 74  |yJunJulAugSepOct|
00006f90  4e 6f 76 44 65 63 22 2c  50 4a 25 2a 33 2c 33 29  |NovDec",PJ%*3,3)|
00006fa0  3a 58 24 2b 3d 22 2d 22  2b c2 22 31 39 22 2b c3  |:X$+="-"+."19"+.|
00006fb0  28 46 4a 25 29 2c 34 29  2b 22 29 22 3a 42 24 3d  |(FJ%),4)+")":B$=|
00006fc0  76 24 3a f2 4d 28 22 41  70 70 22 2c 42 24 29 3a  |v$:.M("App",B$):|
00006fd0  f2 74 79 28 52 79 25 2c  42 24 2b 22 24 44 69 72  |.ty(Ry%,B$+"$Dir|
00006fe0  22 29 3a e7 52 79 25 3d  30 8c 85 31 2c 22 45 49  |"):.Ry%=0..1,"EI|
00006ff0  57 35 22 0d 03 57 0c e7  47 24 3c 3e 22 22 8c 0d  |W5"..W..G$<>""..|
00007000  03 58 93 6d 5f 25 3d a3  3a 5a 5f 25 3d 57 25 3a  |.X.m_%=.:Z_%=W%:|
00007010  79 25 3d a7 47 24 2c 22  2c 22 29 3a c8 95 79 25  |y%=.G$,","):..y%|
00007020  3c 3e 30 3a 5a 5f 25 21  30 3d a4 4d 28 c0 47 24  |<>0:Z_%!0=.M(.G$|
00007030  2c 79 25 2d 31 29 29 3a  5a 5f 25 2b 3d 34 3a 47  |,y%-1)):Z_%+=4:G|
00007040  24 3d c1 47 24 2c 79 25  2b 31 29 3a 79 25 3d a7  |$=.G$,y%+1):y%=.|
00007050  47 24 2c 22 2c 22 29 3a  ce 3a 5a 5f 25 21 30 3d  |G$,","):.:Z_%!0=|
00007060  a4 4d 28 47 24 29 3a 5a  5f 25 21 34 3d 30 3a c8  |.M(G$):Z_%!4=0:.|
00007070  99 26 34 30 30 63 30 2c  33 30 30 2c 26 34 62 35  |.&400c0,300,&4b5|
00007080  33 34 31 35 34 2c 48 24  2c 57 25 b8 47 5f 25 2c  |34154,H$,W%.G_%,|
00007090  5f 25 0d 03 59 25 cc c8  99 26 34 30 30 63 30 2c  |_%..Y%...&400c0,|
000070a0  32 30 30 2c 26 34 62 35  33 34 31 35 34 2c 48 24  |200,&4b534154,H$|
000070b0  b8 47 5f 25 2c 5f 25 0d  03 5a 0b cd 3a ee 85 f2  |.G_%,_%..Z..:...|
000070c0  71 79 0d 03 5b 16 c8 99  26 36 30 36 63 30 3a e7  |qy..[...&606c0:.|
000070d0  47 5f 25 3c 32 30 30 8c  0d 03 5c 0e 85 52 5f 25  |G_%<200...\..R_%|
000070e0  2c a4 44 28 35 29 0d 03  5d 2a cd 3a 63 79 25 3d  |,.D(5)..]*.:cy%=|
000070f0  b9 3a f2 44 5f 3a f2 56  79 3a 63 79 25 3d 2d 32  |.:.D_:.Vy:cy%=-2|
00007100  3a f2 49 5f 3a f2 54 79  3a e7 45 5f 25 3d 30 8c  |:.I_:.Ty:.E_%=0.|
00007110  0d 03 5e 0f f2 45 28 73  25 2c 37 2c 58 24 29 0d  |..^..E(s%,7,X$).|
00007120  03 5f 50 cd 3a 6e 75 25  3d 2d 31 3a 75 75 25 3d  |._P.:nu%=-1:uu%=|
00007130  2d 31 3a 44 75 25 3d 2d  31 3a 4a 75 25 3d 2d 31  |-1:Du%=-1:Ju%=-1|
00007140  3a 6d 75 25 3d a3 3a 74  75 25 3d 2d 31 3a 46 75  |:mu%=.:tu%=-1:Fu|
00007150  25 3d 2d 31 3a 75 24 3d  22 22 3a 6c 24 3d 22 22  |%=-1:u$="":l$=""|
00007160  3a f2 5a 79 3a c8 99 26  36 30 36 63 31 3a e1 0d  |:.Zy:..&606c1:..|
00007170  03 60 16 dd f2 71 79 c8  99 26 36 30 36 63 31 3a  |.`...qy..&606c1:|
00007180  e7 59 79 25 8c 0d 03 61  1a f2 58 28 4d 5f 25 2c  |.Yy%...a..X(M_%,|
00007190  f6 24 2b 22 20 5b 22 2b  c3 9e 2b 22 5d 22 29 0d  |.$+" ["+..+"]").|
000071a0  03 62 0f cc f2 58 28 4d  5f 25 2c f6 24 29 0d 03  |.b...X(M_%,.$)..|
000071b0  63 0c cd 3a f2 46 3a e0  3a e1 0d 03 64 3c dd f2  |c..:.F:.:...d<..|
000071c0  74 79 28 f8 48 5f 25 2c  74 24 29 ea 78 25 2c 72  |ty(.H_%,t$).x%,r|
000071d0  25 3a c8 99 26 32 30 30  32 33 2c 74 24 2c 30 2c  |%:..&20023,t$,0,|
000071e0  2d 31 2c 30 2c 31 b8 2c  2c 78 25 2c 2c 72 25 3a  |-1,0,1.,,x%,,r%:|
000071f0  e7 78 25 3d 30 8c 0d 03  65 09 48 5f 25 3d 30 0d  |.x%=0...e.H_%=0.|
00007200  03 66 14 cc e7 72 25 3d  31 8c 85 31 2c 22 45 49  |.f...r%=1..1,"EI|
00007210  57 34 22 0d 03 67 35 78  25 3d 2d 78 25 3a f2 42  |W4"..g5x%=-x%:.B|
00007220  28 48 5f 25 2c 78 25 29  3a c8 99 33 35 2c 74 24  |(H_%,x%):..35,t$|
00007230  2c 48 5f 25 2c 78 25 2c  30 2c 31 3a 48 5f 25 3f  |,H_%,x%,0,1:H_%?|
00007240  28 78 25 2d 31 29 3d 30  0d 03 68 07 cd 3a e1 0d  |(x%-1)=0..h..:..|
00007250  03 69 1a dd a4 5f 46 69  6c 65 54 79 70 65 5f 76  |.i..._FileType_v|
00007260  65 72 73 69 6f 6e 3d 31  30 0d 03 6a b7 dd a4 5f  |ersion=10..j..._|
00007270  68 61 72 64 5f 69 6e 69  74 69 61 6c 69 73 65 5f  |hard_initialise_|
00007280  46 69 6c 65 54 79 70 65  3a 59 4a 3d 2d 31 3a 77  |FileType:YJ=-1:w|
00007290  79 3d 38 31 39 32 3a 54  79 3d 34 30 39 36 3a 4b  |y=8192:Ty=4096:K|
000072a0  75 3d 34 30 39 35 3a 45  4a 3d 34 30 39 33 3a 52  |u=4095:EJ=4093:R|
000072b0  5f 3d 34 30 39 31 3a 6a  3d 34 30 38 39 3a 68 6c  |_=4091:j=4089:hl|
000072c0  3d 34 30 38 36 3a 58 6c  3d 34 30 37 36 3a 41 79  |=4086:Xl=4076:Ay|
000072d0  3d 34 30 37 35 3a 74 79  3d 33 34 37 38 3a 68 4a  |=4075:ty=3478:hJ|
000072e0  3d 33 33 38 38 3a 70 6c  3d 33 32 36 39 3a 43 6c  |=3388:pl=3269:Cl|
000072f0  3d 33 32 35 34 3a 69 6c  3d 33 32 35 33 3a 65 69  |=3254:il=3253:ei|
00007300  3d 32 38 31 35 3a 78 75  3d 32 37 37 39 3a 51 69  |=2815:xu=2779:Qi|
00007310  3d 31 37 39 33 3a 55 69  3d 31 32 39 36 3a 3d 30  |=1793:Ui=1296:=0|
00007320  0d 03 6b 19 dd a4 5f 66  69 6c 65 5f 69 6f 5f 76  |..k..._file_io_v|
00007330  65 72 73 69 6f 6e 3d 31  30 0d 03 6c 7c dd a4 5f  |ersion=10..l|.._|
00007340  68 61 72 64 5f 69 6e 69  74 69 61 6c 69 73 65 5f  |hard_initialise_|
00007350  66 69 6c 65 5f 69 6f f2  41 28 22 3c 42 61 73 69  |file_io.A("<Basi|
00007360  63 56 24 4c 69 62 3e 2e  43 68 65 63 6b 56 61 72  |cV$Lib>.CheckVar|
00007370  73 22 2c 32 29 3a f2 41  28 22 3c 42 61 73 69 63  |s",2):.A("<Basic|
00007380  56 24 4c 69 62 3e 2e 73  74 72 69 6e 67 22 2c 36  |V$Lib>.string",6|
00007390  29 3a 41 4a 25 3d 32 35  36 2b 32 30 3a de 6e 25  |):AJ%=256+20:.n%|
000073a0  41 4a 25 3a de 41 75 25  39 3a 41 75 25 3f 38 3d  |AJ%:.Au%9:Au%?8=|
000073b0  31 33 3a 3d 30 0d 03 6d  38 dd a4 51 79 28 4b 24  |13:=0..m8..Qy(K$|
000073c0  29 ea 78 25 2c 72 25 3a  c8 99 38 2c 35 2c 4b 24  |).x%,r%:..8,5,K$|
000073d0  b8 72 25 2c 2c 2c 2c 78  25 3a e7 72 25 3d 30 8c  |.r%,,,,x%:.r%=0.|
000073e0  85 31 2c 22 45 49 46 31  20 22 2b 4b 24 0d 03 6e  |.1,"EIF1 "+K$..n|
000073f0  07 3d 78 25 0d 03 6f 20  dd f2 4f 79 28 4b 24 2c  |.=x%..o ..Oy(K$,|
00007400  51 75 25 29 c8 99 38 2c  32 35 35 2c 4b 24 2c 51  |Qu%)..8,255,K$,Q|
00007410  75 25 3a e1 0d 03 70 43  dd a4 52 28 50 24 2c 43  |u%:...pC..R(P$,C|
00007420  24 2c f8 7a 25 29 ea 61  4a 25 3a c8 99 26 32 30  |$,.z%).aJ%:..&20|
00007430  30 30 63 2c 31 30 2c 50  24 2c 6e 25 2c 31 2c 7a  |00c,10,P$,n%,1,z|
00007440  25 2c 41 4a 25 2c 43 24  b8 2c 2c 2c 61 4a 25 2c  |%,AJ%,C$.,,,aJ%,|
00007450  7a 25 3a 3d 61 4a 25 0d  03 71 93 dd a4 79 28 50  |z%:=aJ%..q...y(P|
00007460  24 2c 43 24 29 ea 72 25  2c 76 25 2c 48 79 25 2c  |$,C$).r%,v%,Hy%,|
00007470  49 25 2c 5f 4a 25 3a c8  99 26 32 30 30 30 38 2c  |I%,_J%:..&20008,|
00007480  35 2c 50 24 2b 22 2e 22  2b 43 24 b8 72 25 2c 2c  |5,P$+"."+C$.r%,,|
00007490  76 25 2c 48 79 25 2c 49  25 2c 5f 4a 25 3a 6e 25  |v%,Hy%,I%,_J%:n%|
000074a0  21 30 3d 76 25 3a 6e 25  21 34 3d 48 79 25 3a 6e  |!0=v%:n%!4=Hy%:n|
000074b0  25 21 38 3d 49 25 3a 6e  25 21 31 32 3d 5f 4a 25  |%!8=I%:n%!12=_J%|
000074c0  3a 6e 25 21 31 36 3d 72  25 3a f2 56 5f 28 28 50  |:n%!16=r%:.V_((P|
000074d0  24 2b 22 2e 22 2b 43 24  29 2c 28 6e 25 2b 32 30  |$+"."+C$),(n%+20|
000074e0  29 29 3a 3d 28 72 25 3d  30 29 0d 03 72 0c dd a4  |)):=(r%=0)..r...|
000074f0  4d 79 3d 21 6e 25 0d 03  73 0d dd a4 45 79 3d 6e  |My=!n%..s...Ey=n|
00007500  25 21 38 0d 03 74 11 dd  a4 42 3d a4 47 28 6e 25  |%!8..t...B=.G(n%|
00007510  2b 32 30 29 0d 03 75 14  dd a4 50 79 3d 28 28 6e  |+20)..u...Py=((n|
00007520  25 21 31 36 29 3d 32 29  0d 03 76 2a dd a4 63 ea  |%!16)=2)..v*..c.|
00007530  4b 25 3a 4b 25 3d a4 4d  79 3a e7 28 4b 25 80 2d  |K%:K%=.My:.(K%.-|
00007540  31 30 34 38 35 37 36 29  3d 2d 31 30 34 38 35 37  |1048576)=-104857|
00007550  36 8c 0d 03 77 15 4b 25  3d 28 4b 25 80 26 66 66  |6...w.K%=(K%.&ff|
00007560  66 30 30 29 3e 3e 38 0d  03 78 0a cc 4b 25 3d 2d  |f00)>>8..x..K%=-|
00007570  31 0d 03 79 09 cd 3a 3d  4b 25 0d 03 7a 17 dd a4  |1..y..:=K%..z...|
00007580  5f 73 74 72 69 6e 67 5f  76 65 72 73 69 6f 6e 3d  |_string_version=|
00007590  37 0d 03 7b 3a dd a4 5f  68 61 72 64 5f 69 6e 69  |7..{:.._hard_ini|
000075a0  74 69 61 6c 69 73 65 5f  73 74 72 69 6e 67 f2 41  |tialise_string.A|
000075b0  28 22 3c 42 61 73 69 63  56 24 4c 69 62 3e 2e 63  |("<BasicV$Lib>.c|
000075c0  74 79 70 65 22 2c 31 29  3a 3d 30 0d 03 7c 60 dd  |type",1):=0..|`.|
000075d0  a4 74 28 5a 24 2c 73 24  29 ea 51 25 2c 61 25 2c  |.t(Z$,s$).Q%,a%,|
000075e0  59 25 3a 61 25 3d a9 28  5a 24 29 3a 59 25 3d a9  |Y%:a%=.(Z$):Y%=.|
000075f0  28 73 24 29 3a 51 25 3d  30 3a c8 95 61 25 3e 30  |(s$):Q%=0:..a%>0|
00007600  80 59 25 3e 30 80 51 25  3d 30 3a 51 25 3d b4 28  |.Y%>0.Q%=0:Q%=.(|
00007610  a4 54 28 97 28 5a 24 29  29 2d a4 54 28 97 28 73  |.T(.(Z$))-.T(.(s|
00007620  24 29 29 29 3a e7 51 25  3d 30 8c 0d 03 7d 25 61  |$))):.Q%=0...}%a|
00007630  25 2d 3d 31 3a 59 25 2d  3d 31 3a 5a 24 3d c2 5a  |%-=1:Y%-=1:Z$=.Z|
00007640  24 2c 61 25 29 3a 73 24  3d c2 73 24 2c 59 25 29  |$,a%):s$=.s$,Y%)|
00007650  0d 03 7e 0e cd 3a ce 3a  e7 51 25 3d 30 8c 0d 03  |..~..:.:.Q%=0...|
00007660  7f 0f 51 25 3d b4 28 61  25 2d 59 25 29 0d 03 80  |..Q%=.(a%-Y%)...|
00007670  09 cd 3a 3d 51 25 0d 03  81 22 dd f2 56 5f 28 71  |..:=Q%..."..V_(q|
00007680  24 2c 44 25 29 24 44 25  3d 71 24 3a 44 25 3f a9  |$,D%)$D%=q$:D%?.|
00007690  28 71 24 29 3d 30 3a e1  0d 03 82 16 dd a4 5f 4d  |(q$)=0:......._M|
000076a0  69 73 63 5f 76 65 72 73  69 6f 6e 3d 34 36 0d 03  |isc_version=46..|
000076b0  83 36 dd a4 5f 68 61 72  64 5f 69 6e 69 74 69 61  |.6.._hard_initia|
000076c0  6c 69 73 65 5f 4d 69 73  63 ea 4a 25 2c 53 5f 25  |lise_Misc.J%,S_%|
000076d0  2c 52 25 3a e7 a4 4c 3c  31 32 8c 85 31 2c 22 45  |,R%:..L<12..1,"E|
000076e0  49 41 31 22 0d 03 84 1b  70 24 3d 22 22 3a 5a 75  |IA1"....p$="":Zu|
000076f0  25 3d 31 30 30 3a de 6c  75 25 31 36 3a 3d 30 0d  |%=100:.lu%16:=0.|
00007700  03 85 3b dd a4 49 28 78  24 2c 4f 79 25 2c 67 75  |..;..I(x$,Oy%,gu|
00007710  25 29 ea 66 79 25 2c 70  5f 25 2c 6b 79 25 2c 62  |%).fy%,p_%,ky%,b|
00007720  5f 25 2c 79 5f 25 3a 74  25 3d a4 47 79 28 78 24  |_%,y_%:t%=.Gy(x$|
00007730  29 3a e7 4e 25 80 32 3d  30 8c 0d 03 86 16 5b 4f  |):.N%.2=0.....[O|
00007740  50 54 4e 25 3a 44 43 44  30 3a 44 43 44 30 3a 5d  |PTN%:DCD0:DCD0:]|
00007750  0d 03 87 29 cc 66 79 25  3d 67 75 25 2d 50 25 2d  |...).fy%=gu%-P%-|
00007760  38 3a e7 94 28 66 79 25  29 3e 36 35 35 33 35 8c  |8:..(fy%)>65535.|
00007770  85 31 2c 22 45 49 41 32  22 0d 03 88 2c 6b 79 25  |.1,"EIA2"...,ky%|
00007780  3d 94 28 66 79 25 29 80  32 35 35 3a 70 5f 25 3d  |=.(fy%).255:p_%=|
00007790  94 28 66 79 25 29 80 36  35 32 38 30 3a e7 66 79  |.(fy%).65280:.fy|
000077a0  25 3e 3d 30 8c 0d 03 89  52 62 5f 25 3d 74 25 84  |%>=0....Rb_%=t%.|
000077b0  28 26 32 38 66 30 30 30  30 2b 28 4f 79 25 3c 3c  |(&28f0000+(Oy%<<|
000077c0  31 32 29 2b 6b 79 25 29  3a 79 5f 25 3d 74 25 84  |12)+ky%):y_%=t%.|
000077d0  28 26 32 38 30 30 63 30  30 2b 28 4f 79 25 3c 3c  |(&2800c00+(Oy%<<|
000077e0  31 36 29 2b 28 4f 79 25  3c 3c 31 32 29 2b 28 70  |16)+(Oy%<<12)+(p|
000077f0  5f 25 3e 3e 38 29 29 0d  03 8a 53 cc 62 5f 25 3d  |_%>>8))...S.b_%=|
00007800  74 25 84 28 26 32 34 66  30 30 30 30 2b 28 4f 79  |t%.(&24f0000+(Oy|
00007810  25 3c 3c 31 32 29 2b 6b  79 25 29 3a 79 5f 25 3d  |%<<12)+ky%):y_%=|
00007820  74 25 84 28 26 32 34 30  30 63 30 30 2b 28 4f 79  |t%.(&2400c00+(Oy|
00007830  25 3c 3c 31 36 29 2b 28  4f 79 25 3c 3c 31 32 29  |%<<16)+(Oy%<<12)|
00007840  2b 28 70 5f 25 3e 3e 38  29 29 0d 03 8b 1c cd 3a  |+(p_%>>8)).....:|
00007850  5b 4f 50 54 4e 25 3a 44  43 44 62 5f 25 3a 44 43  |[OPTN%:DCDb_%:DC|
00007860  44 79 5f 25 3a 5d 0d 03  8c 08 cd 3a 3d 30 0d 03  |Dy_%:].....:=0..|
00007870  8d 38 dd f2 4e 5f 28 4c  24 29 ea 56 4a 25 2c 65  |.8..N_(L$).VJ%,e|
00007880  4a 25 2c 7a 4a 25 3a 56  4a 25 3d 50 25 3a 65 4a  |J%,zJ%:VJ%=P%:eJ|
00007890  25 3d 4f 25 3a 7a 4a 25  3d 4e 25 3a e7 28 4e 25  |%=O%:zJ%=N%:.(N%|
000078a0  80 34 29 3d 30 8c 0d 03  8e 09 4f 25 3d 50 25 0d  |.4)=0.....O%=P%.|
000078b0  03 8f 51 cd 3a 50 25 3d  30 3a 4e 25 3d 4e 25 84  |..Q.:P%=0:N%=N%.|
000078c0  36 3a 50 25 3d a4 4d 28  22 46 4e 5f 44 65 63 6c  |6:P%=.M("FN_Decl|
000078d0  61 72 65 5f 4c 6f 63 61  6c 5f 56 61 72 69 61 62  |are_Local_Variab|
000078e0  6c 65 73 5f 22 2b 4c 24  29 3a 50 25 3d 56 4a 25  |les_"+L$):P%=VJ%|
000078f0  3a 4f 25 3d 65 4a 25 3a  4e 25 3d 7a 4a 25 3a e1  |:O%=eJ%:N%=zJ%:.|
00007900  0d 03 90 15 dd a4 47 79  28 78 24 29 ea 74 25 3a  |......Gy(x$).t%:|
00007910  c8 8e 78 24 ca 0d 03 91  12 c9 22 22 2c 22 20 20  |..x$......"","  |
00007920  22 3a 74 25 3d 31 34 0d  03 92 0e c9 22 6c 6f 22  |":t%=14....."lo"|
00007930  3a 74 25 3d 33 0d 03 93  0e c9 22 68 73 22 3a 74  |:t%=3....."hs":t|
00007940  25 3d 32 0d 03 94 44 7f  74 25 3d a7 22 65 71 6e  |%=2...D.t%=."eqn|
00007950  65 63 73 63 63 6d 69 70  6c 76 73 76 63 68 69 6c  |ecsccmiplvsvchil|
00007960  73 67 65 6c 74 67 74 6c  65 61 6c 6e 76 22 2c 78  |sgeltgtlealnv",x|
00007970  24 29 3a e7 28 74 25 83  32 29 3d 30 8c 85 31 2c  |$):.(t%.2)=0..1,|
00007980  22 45 49 41 31 33 22 0d  03 95 10 74 25 3d 28 74  |"EIA13"....t%=(t|
00007990  25 2d 31 29 3e 3e 31 0d  03 96 0d cb 3a 3d 74 25  |%-1)>>1.....:=t%|
000079a0  3c 3c 32 38 0d 03 97 19  dd a4 67 28 61 25 29 e7  |<<28......g(a%).|
000079b0  28 4e 25 80 34 29 8c 61  25 2b 3d 67 25 0d 03 98  |(N%.4).a%+=g%...|
000079c0  07 3d 61 25 0d 03 99 1e  dd f2 57 ea 41 79 25 3a  |.=a%......W.Ay%:|
000079d0  e7 4e 25 80 32 8c 41 79  25 3d 35 30 8b 41 79 25  |.N%.2.Ay%=50.Ay%|
000079e0  3d 30 0d 03 9a 2b c8 99  26 36 30 36 63 34 2c 28  |=0...+..&606c4,(|
000079f0  28 a4 67 28 50 25 29 2d  67 25 29 2f 28 4c 25 2d  |(.g(P%)-g%)/(L%-|
00007a00  67 25 29 2a 35 30 29 2b  41 79 25 3a e1 0d 03 9b  |g%)*50)+Ay%:....|
00007a10  15 dd a4 5f 48 65 61 70  5f 76 65 72 73 69 6f 6e  |..._Heap_version|
00007a20  3d 39 0d 03 9c 1d dd a4  5f 68 61 72 64 5f 69 6e  |=9......_hard_in|
00007a30  69 74 69 61 6c 69 73 65  5f 48 65 61 70 3d 30 0d  |itialise_Heap=0.|
00007a40  03 9d 26 dd a4 5f 28 f8  64 79 25 2c 41 25 29 64  |..&.._(.dy%,A%)d|
00007a50  79 25 3d ba 28 75 4a 25  29 3a e7 21 50 79 25 8c  |y%=.(uJ%):.!Py%.|
00007a60  64 79 25 3d 30 0d 03 9e  09 3d 21 50 79 25 0d 03  |dy%=0....=!Py%..|
00007a70  9f 1c dd f2 42 28 f8 64  79 25 2c 78 25 29 e7 a4  |....B(.dy%,x%)..|
00007a80  5f 28 64 79 25 2c 78 25  29 8c 0d 03 a0 1c 64 79  |_(dy%,x%).....dy|
00007a90  25 3d 21 50 79 25 3a 85  21 64 79 25 2c a4 47 28  |%=!Py%:.!dy%,.G(|
00007aa0  64 79 25 2b 34 29 0d 03  a1 07 cd 3a e1 0d 03 a2  |dy%+4).....:....|
00007ab0  14 dd f2 53 28 f8 41 25  29 e7 a4 6e 28 41 25 29  |...S(.A%)..n(A%)|
00007ac0  8c 0d 03 a3 19 41 25 3d  21 50 79 25 3a 85 21 41  |.....A%=!Py%:.!A|
00007ad0  25 2c a4 47 28 41 25 2b  34 29 0d 03 a4 07 cd 3a  |%,.G(A%+4).....:|
00007ae0  e1 0d 03 a5 1b dd a4 6e  28 f8 41 25 29 d6 52 4a  |.......n(.A%).RJ|
00007af0  25 3a 41 25 3d 30 3a 3d  21 50 79 25 0d 03 a6 42  |%:A%=0:=!Py%...B|
00007b00  dd f2 4d 5f 5b 4f 50 54  4e 25 3a a4 4e 28 75 4a  |..M_[OPTN%:.N(uJ|
00007b10  25 2c 7a 79 29 3a a4 4e  28 52 4a 25 2c 69 79 29  |%,zy):.N(RJ%,iy)|
00007b20  3a a4 4e 28 73 75 25 2c  6b 79 29 3a 41 4c 49 47  |:.N(su%,ky):ALIG|
00007b30  4e 3a 2e 50 79 25 44 43  44 30 3a 5d 3a e1 0d 03  |N:.Py%DCD0:]:...|
00007b40  a7 6d dd a4 4e 28 f8 58  75 25 2c 66 75 25 29 5b  |.m..N(.Xu%,fu%)[|
00007b50  4f 50 54 4e 25 3a 41 4c  49 47 4e 3a 2e 58 75 25  |OPTN%:ALIGN:.Xu%|
00007b60  3a a4 46 3a 53 54 4d 46  44 28 41 29 21 2c 7b 5a  |:.F:STMFD(A)!,{Z|
00007b70  7d 3a 4d 4f 56 20 5a 2c  23 30 3a 53 54 52 20 5a  |}:MOV Z,#0:STR Z|
00007b80  2c 50 79 25 3a 42 4c 20  66 75 25 3a 53 54 52 76  |,Py%:BL fu%:STRv|
00007b90  73 30 2c 50 79 25 3a 4c  44 4d 46 44 28 41 29 21  |s0,Py%:LDMFD(A)!|
00007ba0  2c 7b 70 63 7d 5e 3a 5d  3a 3d 30 0d 03 a8 18 dd  |,{pc}^:]:=0.....|
00007bb0  a4 5f 4d 65 73 73 61 67  65 5f 76 65 72 73 69 6f  |._Message_versio|
00007bc0  6e 3d 36 0d 03 a9 6f dd  a4 5f 68 61 72 64 5f 69  |n=6...o.._hard_i|
00007bd0  6e 69 74 69 61 6c 69 73  65 5f 4d 65 73 73 61 67  |nitialise_Messag|
00007be0  65 3a 7a 69 3d 33 31 3a  c8 99 35 2c 22 52 4d 45  |e:zi=31:..5,"RME|
00007bf0  6e 73 75 72 65 20 43 41  73 73 65 6d 62 6c 65 72  |nsure CAssembler|
00007c00  20 30 2e 30 38 20 52 4d  4c 6f 61 64 20 53 79 73  | 0.08 RMLoad Sys|
00007c10  74 65 6d 3a 4d 6f 64 75  6c 65 73 2e 43 41 73 73  |tem:Modules.CAss|
00007c20  65 6d 62 6c 65 72 22 3a  de 79 79 20 32 35 36 3a  |embler":.yy 256:|
00007c30  3d 30 0d 03 aa 48 dd a4  66 28 62 24 2c 56 75 25  |=0...H..f(b$,Vu%|
00007c40  2c f8 55 5f 25 29 ea 41  25 3a c8 99 26 66 63 62  |,.U_%).A%:..&fcb|
00007c50  38 33 2c 62 24 2b 22 2e  4d 65 73 73 61 67 65 73  |83,b$+".Messages|
00007c60  2e 22 2c 56 75 25 2c 30  b8 41 25 2c 55 5f 25 3a  |.",Vu%,0.A%,U_%:|
00007c70  e7 55 5f 25 3d 30 8c d6  50 79 0d 03 ab 07 3d 41  |.U_%=0..Py....=A|
00007c80  25 0d 03 ac 3b dd a4 60  28 47 25 2c 54 24 2c 76  |%...;..`(G%,T$,v|
00007c90  5f 25 29 c8 99 26 66 63  62 38 35 2c 54 24 2c 76  |_%)..&fcb85,T$,v|
00007ca0  5f 25 2c 47 25 b8 76 5f  25 3b 47 25 3a 3d 76 5f  |_%,G%.v_%;G%:=v_|
00007cb0  25 80 28 28 47 25 80 32  29 3d 32 29 0d 03 ad 3b  |%.((G%.2)=2)...;|
00007cc0  dd a4 75 28 47 25 2c 54  24 2c 77 24 29 ea 79 25  |..u(G%,T$,w$).y%|
00007cd0  3a c8 99 26 66 63 62 38  35 2c 54 24 2c 77 24 2c  |:..&fcb85,T$,w$,|
00007ce0  47 25 b8 79 25 3b 47 25  3a 3d 79 25 80 28 28 47  |G%.y%;G%:=y%.((G|
00007cf0  25 80 32 29 3d 32 29 0d  03 ae 2f dd a4 6f 28 47  |%.2)=2).../..o(G|
00007d00  25 29 ea 79 25 3a c8 99  26 66 63 62 38 36 2c 47  |%).y%:..&fcb86,G|
00007d10  25 b8 79 25 3b 47 25 3a  3d 79 25 80 28 28 47 25  |%.y%;G%:=y%.((G%|
00007d20  80 32 29 3d 32 29 0d 03  af 3b dd a4 58 28 47 25  |.2)=2)...;..X(G%|
00007d30  2c 54 24 29 ea 79 25 3a  c8 99 26 66 63 62 38 34  |,T$).y%:..&fcb84|
00007d40  2c 54 24 2c 79 79 2c 32  35 36 2c 47 25 2c 30 b8  |,T$,yy,256,G%,0.|
00007d50  79 25 2c 47 25 3a 3f 47  25 3d 31 33 3a 3d 24 79  |y%,G%:?G%=13:=$y|
00007d60  79 0d 03 b0 25 dd f2 70  79 28 47 25 2c 54 24 2c  |y...%..py(G%,T$,|
00007d70  4e 75 25 29 47 25 3d a4  60 28 47 25 2c 54 24 2c  |Nu%)G%=.`(G%,T$,|
00007d80  4e 75 25 29 3a e1 0d 03  b1 23 dd f2 6d 79 28 47  |Nu%):....#..my(G|
00007d90  25 2c 54 24 2c 77 24 29  47 25 3d a4 75 28 47 25  |%,T$,w$)G%=.u(G%|
00007da0  2c 54 24 2c 77 24 29 3a  e1 0d 03 b2 17 dd f2 61  |,T$,w$):.......a|
00007db0  5f 28 47 25 29 47 25 3d  a4 6f 28 47 25 29 3a e1  |_(G%)G%=.o(G%):.|
00007dc0  0d 03 b3 1c dd a4 41 28  52 25 29 3d a4 58 28 6c  |......A(R%)=.X(l|
00007dd0  25 2c 22 45 22 2b c3 28  52 25 29 29 0d 03 b4 15  |%,"E"+.(R%))....|
00007de0  dd a4 45 28 7a 24 29 3d  a4 58 28 6c 25 2c 7a 24  |..E(z$)=.X(l%,z$|
00007df0  29 0d 03 b5 1d dd f2 77  28 7a 24 2c 52 25 29 f2  |)......w(z$,R%).|
00007e00  70 79 28 6c 25 2c 7a 24  2c 52 25 29 3a e1 0d 03  |py(l%,z$,R%):...|
00007e10  b6 1d dd f2 4d 28 7a 24  2c 6f 24 29 f2 6d 79 28  |....M(z$,o$).my(|
00007e20  6c 25 2c 7a 24 2c 6f 24  29 3a e1 0d 03 b7 27 dd  |l%,z$,o$):....'.|
00007e30  f2 70 28 7a 24 2c 42 25  29 c8 99 26 64 63 62 38  |.p(z$,B%)..&dcb8|
00007e40  34 2c 7a 24 2c 42 25 2c  32 35 36 2c 6c 25 2c 30  |4,z$,B%,256,l%,0|
00007e50  3a e1 0d 03 b8 11 dd f2  45 5f f2 61 5f 28 6c 25  |:.......E_.a_(l%|
00007e60  29 3a e1 0d 03 b9 12 dd  f2 6e 28 59 25 29 e7 59  |):.......n(Y%).Y|
00007e70  25 3c 3d 30 8c 0d 03 ba  1e f2 4d 28 22 53 79 73  |%<=0......M("Sys|
00007e80  22 2c 22 22 29 3a f2 4d  28 22 53 79 73 4e 22 2c  |",""):.M("SysN",|
00007e90  22 22 29 0d 03 bb 2a cc  f2 4d 28 22 53 79 73 22  |"")...*..M("Sys"|
00007ea0  2c a4 53 28 59 25 2b 34  29 29 3a f2 4d 28 22 53  |,.S(Y%+4)):.M("S|
00007eb0  79 73 4e 22 2c c3 7e 28  21 59 25 29 29 0d 03 bc  |ysN",.~(!Y%))...|
00007ec0  07 cd 3a e1 0d 03 bd 1d  dd a4 44 28 52 25 29 3d  |..:.......D(R%)=|
00007ed0  a4 58 28 6c 25 2c 22 4c  45 22 2b c3 28 52 25 29  |.X(l%,"LE"+.(R%)|
00007ee0  29 0d 03 be 2f dd f2 4b  79 5b 4f 50 54 4e 25 3a  |).../..Ky[OPTN%:|
00007ef0  41 4c 49 47 4e 3a 2e 50  79 3a a4 46 3a 42 20 6f  |ALIGN:.Py:.F:B o|
00007f00  79 3a 5d 3a e7 4e 25 80  34 8c 50 79 2b 3d 67 25  |y:]:.N%.4.Py+=g%|
00007f10  0d 03 bf 05 e1 0d 03 c0  18 dd a4 5f 49 6e 74 4d  |..........._IntM|
00007f20  61 74 68 5f 76 65 72 73  69 6f 6e 3d 36 0d 03 c1  |ath_version=6...|
00007f30  20 dd a4 5f 68 61 72 64  5f 69 6e 69 74 69 61 6c  | .._hard_initial|
00007f40  69 73 65 5f 49 6e 74 4d  61 74 68 3d 30 0d 03 c2  |ise_IntMath=0...|
00007f50  1b dd a4 5f 4e 75 6c 6c  52 65 61 73 6f 6e 5f 76  |..._NullReason_v|
00007f60  65 72 73 69 6f 6e 3d 35  0d 03 c3 23 dd a4 5f 68  |ersion=5...#.._h|
00007f70  61 72 64 5f 69 6e 69 74  69 61 6c 69 73 65 5f 4e  |ard_initialise_N|
00007f80  75 6c 6c 52 65 61 73 6f  6e 3d 30 0d 03 c4 29 dd  |ullReason=0...).|
00007f90  f2 54 79 de 70 25 34 3a  21 70 25 3d 30 3a 73 79  |.Ty.p%4:!p%=0:sy|
00007fa0  25 3d 30 3a 4c 5f 25 3d  a3 3a 5f 79 25 3d 36 31  |%=0:L_%=.:_y%=61|
00007fb0  39 33 3a e1 0d 03 c5 1f  dd f2 49 79 28 56 24 2c  |93:.......Iy(V$,|
00007fc0  70 79 25 29 f2 6d 5f 28  56 24 2c 70 79 25 2c b9  |py%).m_(V$,py%,.|
00007fd0  29 3a e1 0d 03 c6 5c dd  f2 6d 5f 28 56 24 2c 70  |):....\..m_(V$,p|
00007fe0  79 25 2c 66 5f 25 29 ea  52 25 3a f2 42 28 52 25  |y%,f_%).R%:.B(R%|
00007ff0  2c 31 32 2b a9 28 56 24  29 2b 31 29 3a 24 28 52  |,12+.(V$)+1):$(R|
00008000  25 2b 31 32 29 3d 56 24  3a 52 25 21 38 3d 70 79  |%+12)=V$:R%!8=py|
00008010  25 3a 52 25 21 34 3d 66  5f 25 3a 21 52 25 3d 21  |%:R%!4=f_%:!R%=!|
00008020  70 25 3a 21 70 25 3d 52  25 3a f2 4d 79 3a e1 0d  |p%:!p%=R%:.My:..|
00008030  03 c7 1f dd f2 53 79 28  56 24 2c 70 79 25 29 f2  |.....Sy(V$,py%).|
00008040  6b 79 28 56 24 2c 70 79  25 2c b9 29 3a e1 0d 03  |ky(V$,py%,.):...|
00008050  c8 22 dd f2 6b 79 28 56  24 2c 70 79 25 2c 66 5f  |."..ky(V$,py%,f_|
00008060  25 29 ea 52 25 2c 4d 25  3a e7 56 24 3d 22 22 8c  |%).R%,M%:.V$="".|
00008070  0d 03 c9 1d f2 47 28 22  45 49 4e 33 22 29 3a c8  |.....G("EIN3"):.|
00008080  95 21 70 25 3a f2 63 28  70 25 29 3a ce 0d 03 ca  |.!p%:.c(p%):....|
00008090  4d cc 4d 25 3d 70 25 3a  c8 95 21 4d 25 3a 52 25  |M.M%=p%:..!M%:R%|
000080a0  3d 21 4d 25 3a e7 28 24  28 52 25 2b 31 32 29 3d  |=!M%:.($(R%+12)=|
000080b0  56 24 29 80 28 52 25 21  34 3d 66 5f 25 29 80 28  |V$).(R%!4=f_%).(|
000080c0  28 28 70 79 25 3d 30 29  80 66 5f 25 29 84 28 52  |((py%=0).f_%).(R|
000080d0  25 21 38 3d 70 79 25 29  29 8c 0d 03 cb 0a f2 63  |%!8=py%))......c|
000080e0  28 4d 25 29 0d 03 cc 0a  cc 4d 25 3d 52 25 0d 03  |(M%).....M%=R%..|
000080f0  cd 07 cd 3a ce 0d 03 ce  07 cd 3a e1 0d 03 cf 1f  |...:......:.....|
00008100  dd f2 63 28 4d 25 29 ea  52 25 3a e7 4d 25 3d 30  |..c(M%).R%:.M%=0|
00008110  8c f2 47 28 22 45 49 4e  36 22 29 0d 03 d0 1b 52  |..G("EIN6")....R|
00008120  25 3d 21 4d 25 3a e7 52  25 3d 30 8c f2 47 28 22  |%=!M%:.R%=0..G("|
00008130  45 49 4e 35 22 29 0d 03  d1 0c e7 52 25 3d 73 79  |EIN5").....R%=sy|
00008140  25 8c 0d 03 d2 11 73 79  25 3d 21 52 25 3a 4c 5f  |%.....sy%=!R%:L_|
00008150  25 3d b9 0d 03 d3 1a cd  3a 21 4d 25 3d 21 52 25  |%=......:!M%=!R%|
00008160  3a f2 53 28 52 25 29 3a  f2 4d 79 3a e1 0d 03 d4  |:.S(R%):.My:....|
00008170  0d dd f2 4d 79 e7 21 70  25 8c 0d 03 d5 10 5f 79  |...My.!p%....._y|
00008180  25 3d 5f 79 25 80 28 ac  31 29 0d 03 d6 0e cc 5f  |%=_y%.(.1)....._|
00008190  79 25 3d 5f 79 25 84 31  0d 03 d7 07 cd 3a e1 0d  |y%=_y%.1.....:..|
000081a0  03 d8 35 dd f2 68 5f ea  68 25 2c 4d 25 2c 4f 5f  |..5..h_.h%,M%,O_|
000081b0  25 2c 41 25 3a 68 25 3d  21 70 25 3a c8 95 68 25  |%,A%:h%=!p%:..h%|
000081c0  3a 73 79 25 3d 68 25 3a  4c 5f 25 3d a3 3a e7 68  |:sy%=h%:L_%=.:.h|
000081d0  25 21 34 8c 0d 03 d9 36  4f 5f 25 3d a4 4d 28 22  |%!4....6O_%=.M("|
000081e0  46 4e 5f 4e 75 6c 6c 5f  52 65 61 73 6f 6e 5f 22  |FN_Null_Reason_"|
000081f0  2b 24 28 68 25 2b 31 32  29 2b 22 28 22 2b c3 28  |+$(h%+12)+"("+.(|
00008200  68 25 21 38 29 2b 22 29  22 29 0d 03 da 27 cc 4f  |h%!8)+")")...'.O|
00008210  5f 25 3d a4 4d 28 22 46  4e 5f 4e 75 6c 6c 5f 52  |_%=.M("FN_Null_R|
00008220  65 61 73 6f 6e 5f 22 2b  24 28 68 25 2b 31 32 29  |eason_"+$(h%+12)|
00008230  29 0d 03 db 0b cd 3a e7  4c 5f 25 8c 0d 03 dc 0a  |).....:.L_%.....|
00008240  68 25 3d 73 79 25 0d 03  dd 17 cc 73 79 25 3d 30  |h%=sy%.....sy%=0|
00008250  3a 41 25 3d 21 68 25 3a  e7 4f 5f 25 8c 0d 03 de  |:A%=!h%:.O_%....|
00008260  2b 4d 25 3d 70 25 3a c8  95 21 4d 25 3c 3e 68 25  |+M%=p%:..!M%<>h%|
00008270  3a 4d 25 3d 21 4d 25 3a  e7 4d 25 3d 30 8c f2 47  |:M%=!M%:.M%=0..G|
00008280  28 22 45 49 4e 32 22 29  0d 03 df 0c ce 3a f2 63  |("EIN2").....:.c|
00008290  28 4d 25 29 0d 03 e0 0b  cd 3a 68 25 3d 41 25 0d  |(M%).....:h%=A%.|
000082a0  03 e1 09 cd 3a ce 3a e1  0d 03 e2 20 dd a4 5f 4e  |....:.:.... .._N|
000082b0  75 6c 6c 5f 52 65 61 73  6f 6e 5f f2 47 28 22 45  |ull_Reason_.G("E|
000082c0  49 4e 31 22 29 3a 3d 30  0d 03 e3 1a dd a4 5f 43  |IN1"):=0......_C|
000082d0  68 65 63 6b 56 61 72 73  5f 76 65 72 73 69 6f 6e  |heckVars_version|
000082e0  3d 33 0d 03 e4 22 dd a4  5f 68 61 72 64 5f 69 6e  |=3...".._hard_in|
000082f0  69 74 69 61 6c 69 73 65  5f 43 68 65 63 6b 56 61  |itialise_CheckVa|
00008300  72 73 3d 30 0d 03 e5 16  dd a4 5f 63 74 79 70 65  |rs=0......_ctype|
00008310  5f 76 65 72 73 69 6f 6e  3d 31 0d 03 e6 1e dd a4  |_version=1......|
00008320  5f 68 61 72 64 5f 69 6e  69 74 69 61 6c 69 73 65  |_hard_initialise|
00008330  5f 63 74 79 70 65 3d 30  0d 03 e7 1d dd a4 46 79  |_ctype=0......Fy|
00008340  28 51 25 29 3d 51 25 2d  97 28 22 41 22 29 2b 97  |(Q%)=Q%-.("A")+.|
00008350  28 22 61 22 29 0d 03 e8  22 dd a4 41 79 28 51 25  |("a")..."..Ay(Q%|
00008360  29 3d 51 25 3e 3d 97 28  22 41 22 29 80 51 25 3c  |)=Q%>=.("A").Q%<|
00008370  3d 97 28 22 5a 22 29 0d  03 e9 18 dd a4 54 28 51  |=.("Z")......T(Q|
00008380  25 29 ea 4b 25 3a e7 a4  41 79 28 51 25 29 8c 0d  |%).K%:..Ay(Q%)..|
00008390  03 ea 0e 4b 25 3d a4 46  79 28 51 25 29 0d 03 eb  |...K%=.Fy(Q%)...|
000083a0  0a cc 4b 25 3d 51 25 0d  03 ec 09 cd 3a 3d 4b 25  |..K%=Q%.....:=K%|
000083b0  0d 04 fe 05 3a 0d 04 ff  05 3a 0d 05 00 05 3a 0d  |....:....:....:.|
000083c0  05 01 0d dd f2 42 5f f2  41 79 3a e1 0d 05 02 20  |.....B_.Ay:.... |
000083d0  dd f2 59 5f d5 23 57 25  21 32 30 2c 22 52 75 6e  |..Y_.#W%!20,"Run|
000083e0  20 22 2b a4 53 28 52 79  25 29 3a e1 0d 05 03 05  | "+.S(Ry%):.....|
000083f0  3a 0d 05 04 05 3a 0d ff                           |:....:..|
000083f8