Home » Recent acquisitions » Acorn ADFS disks » adfs_ArchimedesWorld_15_3.adf » !Organiser_Organiser » !Upgrade/!Organiser/!RunImage

!Upgrade/!Organiser/!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 » Recent acquisitions » Acorn ADFS disks » adfs_ArchimedesWorld_15_3.adf » !Organiser_Organiser
Filename: !Upgrade/!Organiser/!RunImage
Read OK:
File size: 13E18 bytes
Load address: 0000
Exec address: 0000
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
    1REM>!RunImage
    2REMProduced by BasCompress v1.71 (19 Sep 1996)
    3PROCYJ:z%=0:ml%=FALSE:di%=-1:ONERRORPROCVy:ERROREXTERL,REPORT$+" at line "+STR$ERL
    4eu%=-1:Ju%=0::DIMU%512:J%=U%+256:PROCpu:z%=OPENIN"<Organiser$Dir>.Resources.!Language":_$=GET$#z%:d$="<Organiser$Dir>.Resources."+_$:CLOSE#z%:z%=0:PROCFJ(d$+".Messages"):PROCwJ(FNA("Title"),"<Organiser$Dir>","1.20 (27 Oct 97)",TRUE):SYS66TOJu%:eu%=Ju%+500:WHILENOTDu%:PROCd(1):ENDWHILE:PROCVy:END
    5DEFPROCVy:IFml%=TRUETHENSYS&406C2:ERROREXTERL,REPORT$+" at line "+STR$ERL:END
    6ml%=TRUE:f$=REPORT$+" at line "+STR$ERL:ii%=ERR:ONERRORERROREXTii%,f$
    7IFz%<>0THENCLOSE#z%:z%=0
    8PROCnJ:PROCCy:SYS&400DD:ENDPROC
    9DEFPROCd(Al%):LOCALA$,Ui%,Sl%,py%,uJ%:uJ%=FALSE:IFey%ANDSu%THENPROCt
   10IFIu%ANDey%<>Ni%THENNi%=ey%:PROCi(i%,ti%,FNA("Title")+STRING$(-(ey%=TRUE)," *"),TRUE)
   11IFAl%AND1THENSl%=&64
   12IFB$<>""THENSl%=0
   13IF(XJ%<>-1)ANDVy%THENSl%=0
   14Al%=(Al%OR(3<<&B)+(1<<5))ANDNOT(1+(3<<17)):IFSl%>0THEN
   15SYS66TOmi%:WHILEmi%>Ju%:Ju%+=&64:ENDWHILE:SYS&400E1,Al%,U%,Ju%TOUi%
   16ELSESYS&400C7,Al%,U%TOUi%
   17ENDIF:CASEUi%OF
   18WHEN0:CASETRUEOF
   19WHENXJ%<>-1ANDVy%:PROCVu
   20WHENJu%>eu%ANDeu%<>-1:PROCW_
   21WHEN(Sl%<>0ORB$<>"")ANDdi%<>FNQy:PROCu:PROCI_
   22WHENB$<>"":PROCiu
   23ENDCASE
   24WHEN1:PROCVJ
   25WHEN2:IF!U%=I_%THEN
   26PROCyJ
   27ELSE:IF!U%=i%ANDFJ%THENU%!20=0
   28IFNOTFNVyTHENPROC`y
   29SYS&400C5,,U%:IF!U%=i%ANDFJ%THENPROC`_
   30ENDIF
   31WHEN3:CASE!U%OF
   32WHENf%:PROCn
   33WHENI_%:PROCh
   34WHENLy%:PROCBy
   35WHENHy%:PROCy
   36WHENVJ%:PROCzy
   37WHENzy%:PROCCy
   38OTHERWISEPROCG(!U%)
   39ENDCASE
   40WHEN4:IF0<>0THENSYS&400E9,36,,"ptr_default",1
   41WHEN5
   42WHEN6:IFIu%THENPROCe(U%!&C,U%!16,U%!8,!U%,U%!4)
   43WHEN7
   44WHEN8:PROC`J(!U%,U%!4,U%!24)
   45WHEN9:PROCBJ
   46WHEN17,18:PROCgu
   47WHEN19:IFU%!4=su%ANDU%!16=&4AF80THEN
   48A$=FNN(U%+20):IFjJ%=1ANDFNt("Alias$URLOpen_HTTP")THEN
   49SYS&400DE,"URLOpen_HTTP "+A$
   50ENDIF:IFjJ%=2ANDFNt("Alias$URLOpen_MailTo")THEN
   51SYS&400DE,"URLOpen_MailTo "+A$
   52ENDIF
   53ENDIF
   54ENDCASE:IFDu%THENPROCVy:END
   55ENDPROC
   56DEFFNVy=(ry%<>U%!16-U%!8ORxy%<>U%!&C-U%!4)
   57DEFPROCuLOCALA%,S%,M%,H%,R%,M$,ri%,vi%,bi%,hi%,Rl%,I$:IF(qy%AND4)=4ANDMJ%=0THEN
   58M$=FNK("%12%mi%se"):H%=VALLEFT$(M$,2):M%=VALMID$(M$,3,2):S%=VALMID$(M$,5,2):M%=M%*6:S%=S%*6:H%=H%*30+M%/&C:Rl%=TRUE:SYS46,316,Z_%,"clock",0TOri%,vi%,bi%,hi%:GCOL1:RECTANGLEFILL0,0,U_%,Cu%:R%=56:ORIGINU_%/2,Cu%/2:GCOLP%(0):CIRCLEFILL0,0,R%:GCOLP%(3)
   59FORA%=0TO330STEP30:LINER%*SINRADA%,R%*COSRADA%,(R%-&A)*SINRADA%,(R%-&A)*COSRADA%:NEXT:GCOLP%(1)+(P%(1)-P%(2))*(s_%ANDNOTIu%):CIRCLE0,0,R%:GCOLP%(5):MOVE0,0:MOVE(R%*0.35)*SINRAD(M%-9),(R%*0.35)*COSRAD(M%-9):PLOT85,(R%*0.35)*SINRAD(M%+9),(R%*0.35)*COSRAD(M%+9):MOVE(R%*0.35)*SINRAD(M%-9),(R%*0.35)*COSRAD(M%-9)
   60PLOT85,(R%*0.7)*SINRADM%,(R%*0.7)*COSRADM%:GCOLP%(4):MOVE0,0:MOVE(R%*0.25)*SINRAD(H%-9),(R%*0.25)*COSRAD(H%-9):PLOT85,(R%*0.25)*SINRAD(H%+9),(R%*0.25)*COSRAD(H%+9):MOVE(R%*0.25)*SINRAD(H%-9),(R%*0.25)*COSRAD(H%-9):PLOT85,(R%*0.5)*SINRADH%,(R%*0.5)*COSRADH%:GCOLP%(6):CIRCLEFILL0,0,2
   61IFqy%AND2THENLINE0,0,(R%*0.9)*SINRADS%,(R%*0.9)*COSRADS%
   62SYS46,ri%,vi%,bi%,hi%
   63ELSE:IF(qy%AND8)=8ORMJ%>0THEN
   64SYS&400EC,-1,-1TO,,H%:M$=STR$(H%DIV&400)+"k":IF$aJ%<>M$THEN$aJ%=M$:Rl%=TRUE
   65ELSE:IF(qy%AND16)=0THEN
   66M$=":%mi":IF(qy%AND2)=2THENM$+=".%se"
   67IFr_%THENM$="%z24"+M$ELSEM$="%z12"+M$+" %am"
   68ELSEM$=N$
   69ENDIF:M$=FNK(M$):IFM$<>$aJ%THEN$aJ%=M$:Rl%=TRUE
   70ENDIF
   71ENDIF:IFRl%THEN!U%=-1-7*ABS(u_%):U%!4=NJ%:U%!8=0:U%!&C=0:SYS&400CD,,U%:WAIT
   72ENDPROC
   73DEFPROCI_:IFUy%<>FNIORby%<>FNVORFy%<>FNLTHEN
   74qJ%=FNF(0,0,Uy%,by%,Fy%):Fy%=FNL:by%=FNV:Uy%=FNI:IFxJ%THENPROCPy
   75IFVy%THENpy%=0:PROCO
   76Pu%=TRUE:V_%=t%:z_%=v%:PROCJ_:PROCc
   77ENDIF:IFxJ%ANDmJ%<>0THENIFFNG(mJ%,FNz)<>1THENPROCgJ
   78IFrJ%<>-1THENIFFNG(rJ%!&C,FNz)<>1THENPROCyu
   79IFJ_%>0THENVDU7:J_%-=1:IFJ_%=0THENJ_%=-&A
   80IFJ_%<0THENJ_%+=1:IFJ_%=0THENJ_%=&A
   81IFMJ%>0THENMJ%-=1:IFMJ%=0THENPROCm:PROCu
   82di%=FNQy:ENDPROC
   83DEFFNK(A$):?J%=3:SYS7,&E,J%:SYS&C1,J%,J%,&80,A$:=FNN(J%)
   84DEFFNf=VALFNK("%24")
   85DEFFNi=VALFNK("%MI")
   86DEFFNQy=VALFNK("%SE")
   87DEFFNI=VALFNK("%DY")
   88DEFFNV=VALFNK("%MN")
   89DEFFNL=VALFNK("%CE%YR")
   90DEFFNF(fy%,b%,c%,r%,Q%)=fy%OR(b%<<6)OR(c%<<&B)OR(r%<<16)OR(Q%<<20)
   91DEFPROCP(s%,RETURNfy%,RETURNb%,RETURNc%,RETURNr%,RETURNQ%):fy%=s%AND63:b%=(s%>>6)AND31:c%=(s%>>&B)AND31:r%=(s%>>16)AND&F:Q%=(s%>>20)AND&FFF:ENDPROC
   92DEFFNn(s%)=s%ANDNOT&7FF
   93DEFFNvy(s%)=s%AND63
   94DEFFNXy(s%)=(s%>>6)AND31
   95DEFFNz=FNF(FNi,FNf,FNI,FNV,FNL)
   96DEFFNG(A%,B%):LOCALBi%,jl%,Li%,ei%,Ki%,Y_%:LOCALWi%,Ji%,Qi%,si%,ai%:IFA%<>B%THEN
   97PROCP(A%,Ki%,ei%,Li%,jl%,Bi%):PROCP(B%,ai%,si%,Qi%,Ji%,Wi%):CASETRUEOF
   98WHENBi%>Wi%:Y_%=1
   99WHENBi%<Wi%:Y_%=-1
  100WHENjl%>Ji%:Y_%=1
  101WHENjl%<Ji%:Y_%=-1
  102WHENLi%>Qi%:Y_%=1
  103WHENLi%<Qi%:Y_%=-1
  104WHENei%>si%:Y_%=1
  105WHENei%<si%:Y_%=-1
  106WHENKi%>ai%:Y_%=1
  107WHENKi%<ai%:Y_%=-1
  108ENDCASE
  109ELSEY_%=0
  110ENDIF:=Y_%
  111DEFPROCeu(_%,Q%,Ry%)SYS&400E6,5:RECTANGLEFILL_%+20,Q%,36-20,20:RECTANGLEFILL_%+20,Q%+Ny%,36-20,-20:SYS&400E6,Ry%:RECTANGLEFILL_%,Q%+20,36-20,Ny%-2*20
  112RECTANGLEFILL_%+36,Q%+2*20,-20,Ny%-4*20:PROCT(5,Ry%,_%+20,Q%,20,2):PROCT(5,Ry%,_%+20,Q%+Ny%,20,3):PROCT(Ry%,5,_%+36-20,Q%+2*20,20,4):PROCT(Ry%,5,_%+36-20,Q%+Ny%-2*20,20,1):ENDPROC
  113DEFPROCwu(_%,Q%,Ry%)SYS&400E6,5:RECTANGLEFILL_%-20,Q%,20-36,20:RECTANGLEFILL_%-20,Q%+Ny%,20-36,-20:SYS&400E6,Ry%:RECTANGLEFILL_%,Q%+20,-36+20,Ny%-2*20:RECTANGLEFILL_%-36,Q%+2*20,20,Ny%-4*20
  114PROCT(5,Ry%,_%-20,Q%,20,1):PROCT(5,Ry%,_%-20,Q%+Ny%,20,4):PROCT(Ry%,5,_%-36+20,Q%+2*20,20,3):PROCT(Ry%,5,_%-36+20,Q%+Ny%-2*20,20,2):ENDPROC
  115DEFPROCT_(e%,a%,K%):IFe%=i%THENPROCZu(e%,a%,K%)ELSEPROCCu(e%,a%,K%)
  116ENDPROC
  117DEFPROCZu(e%,a%,K%)LOCALA%,_%,Q%,Y%:LOCALbl%,li%,pi%:SYS46,40+256,Z_%,"ring"TO,,,li%,pi%:SYS&400E6,0:PROCX(a%+dy%-32,K%-o%,j%+32,-m%):IFt%>0THENPROCX(a%+yy%,K%-o%,j%+32,-m%)
  118SYS&400E6,1:PROCX(a%,K%,5,-ry%):PROCX(a%+i_%+36+20,K%,5,-ry%):PROCX(a%,K%,xy%,-5):PROCX(a%,K%-ry%,xy%,5):SYS&400E6,5:IFt%=0THENPROCX(a%+yy%,K%-o%,j%+32,-m%)
  119IFt%=0THENPROCX(a%+GJ%,K%-o%,32,-m%)
  120PROCX(a%+l_%,K%-o%-t%*Ny%,36,-m%+t%*Ny%):PROCX(a%+i_%,K%-o%,36,-Ny%*t%):PROCX(a%+i_%,K%-o%-iy%*Ny%,36,-m%+iy%*Ny%):PROCX(a%+5,K%-5,20,-m%-2*20):PROCX(a%+5,K%-5,xy%-2*5,-20):PROCX(a%+xy%-5,K%-5,-20,-m%-2*20):PROCX(a%+5,K%-ry%+5,xy%-2*5,20):IFFNS(a%+GJ%,K%-o%,&64,-m%)THEN
  121RECTANGLEFILLa%+GJ%+32,K%-o%,&64-2*32,-m%:_%=FNa(a%+GJ%+&64/2):Y%=FNa(K%-o%-m%/(_J%+1)):FORA%=1TO_J%:IFFNS(_%-40-8,Y%-8,2*(40+8),40+8)AND(Ku%AND1<<(A%-1))>0THEN
  122SYS&400ED,256,Z_%,"ring",,,,J%,J%+&80:SYS46,52+256,Z_%,"ring",_%-li%,Y%-pi%/2,8,J%,J%+&80
  123ENDIF:Y%-=FNa(m%/(_J%+1)):NEXT
  124ENDIF:IFFNS(a%+5,K%-5-20,20,20)PROCT(5,1,a%+5+20,K%-5-20,20,2)
  125IFFNS(a%+5,K%-ry%+5,20,20)PROCT(5,1,a%+5+20,K%-ry%+5+20,20,3)
  126IFFNS(a%+xy%-5-20,K%-5-20,20,20)PROCT(5,1,a%+xy%-5-20,K%-5-20,20,1)
  127IFFNS(a%+xy%-5-20,K%-ry%+5,20,20)PROCT(5,1,a%+xy%-5-20,K%-ry%+5+20,20,4)
  128SYS&40081,,"Homerton.Medium",&96,&96TObl%:FORA%=1TOiy%:IFt%<A%THEN
  129IFFNS(a%+i_%,K%-o%-(Ny%*A%),36,Ny%)THEN
  130PROCeu(a%+i_%,K%-o%-(Ny%*A%),D%(A%)):PROCV(D%(A%),I%(A%)):PROCey(bl%,M$(A%),0,0,a%+i_%+36/2,K%-o%-(Ny%*(A%-0.5)),1)
  131ENDIF
  132ELSE:IFFNS(a%+l_%,K%-o%-(Ny%*A%),36,Ny%)THEN
  133PROCwu(a%+l_%+36,K%-o%-(Ny%*A%),D%(A%)):PROCV(D%(A%),I%(A%)):PROCey(bl%,M$(A%),0,0,a%+l_%+36/2,K%-o%-(Ny%*(A%-0.5)),-1)
  134ENDIF
  135ENDIF:NEXT:IFt%>0ANDFNS(a%+yy%,K%-o%,j%+32,-m%)ANDNOT`J%THENPROCny(0,a%+yy%,K%-o%)
  136IFFNS(a%+dy%-32,K%-o%,j%+32,-m%)ANDNOT`J%THENPROCny(1,a%+dy%,K%-o%)
  137SYS&40082,bl%:ENDPROC
  138DEFPROCR(h%,a%,K%):SYS&400ED,256,Z_%,"corner",,,,J%,J%+&80:IFh%=1ANDFNS(a%+j%,K%-m%,-32,32)THEN
  139SYS46,47+256,Z_%,"corner":SYS46,52+256,Z_%,"corner",a%+j%-16*2,K%-m%+2,8,J%,J%+&80:SYS46,47+256,Z_%,"corner":PROCS_(a%+j%-32,K%,G%(1))
  140ENDIF:IFh%=0THEN
  141G%(0)=a%:IFFNS(a%,K%-m%,32,32)THEN
  142SYS46,52+256,Z_%,"corner",a%+2,K%-m%+2,8,J%,J%+&80:PROCS_(a%,K%,G%(0))
  143ENDIF
  144ENDIF:ENDPROC
  145DEFPROCS_(a%,K%,RETURNcy%):!J%=i%:IFcy%>=0THENJ%!4=cy%:SYS&400C4,,J%
  146SYS&400CB,,J%:J%!4=a%-J%!4:J%!8=K%-J%!16-m%:J%!&C=J%!4+32:J%!16=J%!8+32:J%!20=&7003119:J%!24=Ol%:J%!32=0:IFh%THENJ%!28=Ii%ELSEJ%!28=Ti%
  147SYS&400C2,,J%TOcy%:ENDPROC
  148DEFPROCp_:!J%=i%:IFG%(0)>=0THENJ%!4=G%(0):SYS&400C4,,J%
  149IFG%(1)>=0THENJ%!4=G%(1):SYS&400C4,,J%
  150G%()=-1:ENDPROC
  151DEFPROCCu(e%,a%,K%):LOCALR%,A%:a%+=(24+&B8)/2:K%-=(64+&D0)/2:R%=56:SYS&400E6,1:RECTANGLEFILL0,0,&BB8:SYS&400E6,X%(0):CIRCLEFILLa%,K%,R%:SYS&400E6,X%(3):FORA%=0TO330STEP30:LINEa%+R%*SINRADA%,K%+R%*COSRADA%,a%+(R%-&A)*SINRADA%,K%+(R%-&A)*COSRADA%:NEXT:SYS&400E6,X%(1):CIRCLEa%,K%,R%:SYS&400E6,X%(5):A%=60
  152MOVEa%,K%:MOVEa%+(R%*0.35)*SINRAD(A%-9),K%+(R%*0.35)*COSRAD(A%-9):PLOT85,a%+(R%*0.35)*SINRAD(A%+9),K%+(R%*0.35)*COSRAD(A%+9):MOVEa%+(R%*0.35)*SINRAD(A%-9),K%+(R%*0.35)*COSRAD(A%-9):PLOT85,a%+(R%*0.7)*SINRADA%,K%+(R%*0.7)*COSRADA%:SYS&400E6,X%(4):A%=300
  153MOVEa%,K%:MOVEa%+(R%*0.25)*SINRAD(A%-9),K%+(R%*0.25)*COSRAD(A%-9):PLOT85,a%+(R%*0.25)*SINRAD(A%+9),K%+(R%*0.25)*COSRAD(A%+9):MOVEa%+(R%*0.25)*SINRAD(A%-9),K%+(R%*0.25)*COSRAD(A%-9):PLOT85,a%+(R%*0.5)*SINRADA%,K%+(R%*0.5)*COSRADA%:SYS&400E6,X%(6):MOVEa%,K%:DRAWBY0,-(R%*0.9):CIRCLEFILLa%,K%,2:ENDPROC
  154DEFFNc(u%,zJ%):=LEFT$(FNA("Day"+STR$(((u%-1)MOD7)+1)),zJ%)
  155DEFFNDy(u%,zJ%):LOCALA$,q$:A$=",Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday,":u%=((u%-1)MOD7)+1:REPEATA$=MID$(A$,INSTR(A$,",")+1):u%-=1:UNTILu%=0:q$=LEFT$(A$,INSTR(A$,",")-1):IFzJ%>0THENq$=LEFT$(q$,zJ%)
  156=q$
  157DEFFNIy(Wl%,zJ%):LOCALA$,O$:A$=",January,February,March,April,May,June,July,August,September,October,November,December,":Wl%=((Wl%-1)MOD&C)+1:REPEATA$=MID$(A$,INSTR(A$,",")+1):Wl%-=1:UNTILWl%<=0:O$=LEFT$(A$,INSTR(A$,",")-1):IFzJ%>0THENO$=LEFT$(O$,zJ%)
  158=O$
  159DEFFNA_(d%):=STR$d%+FNNy(d%)
  160DEFFNNy(d%):LOCALA$,Z$,C$,A%,Oy%:A$=FNA("th"):Z$=LEFT$(A$,INSTR(A$,",")-1):WHILEINSTR(A$,",")ANDNOTOy%:A$=MID$(A$,INSTR(A$,",")+1):C$=LEFT$(A$,INSTR(A$,",")-1):IFINSTR(C$,"#")THEN
  161IFRIGHT$(STR$d%,LENC$-1)=MID$(C$,2)THENOy%=TRUE
  162ELSEIFVALC$=d%THENOy%=TRUE
  163ENDIF:ENDWHILE:IFOy%THEN
  164WHILEVALA$>0ORASC(A$)=35:A$=MID$(A$,INSTR(A$,",")+1):ENDWHILE:Z$=LEFT$(A$,INSTR(A$,",")-1)
  165ENDIF:=Z$
  166DEFFNU(Wl%,zJ%):=LEFT$(FNA("Mon"+STR$(((Wl%-1)MOD&C)+1)),zJ%)
  167DEFFNoy(b%,r%,Xu%,r_%):LOCALA$,Z$:IFNOTr_%THEN
  168IFb%>&BTHENZ$=" "+FNA("pm")ELSEZ$=" "+FNA("am")
  169ENDIF:IFb%>&CANDNOTr_%THENb%-=&C
  170IFr_%THENA$=STRING$(-(b%<&A),"0")ELSEIFb%=0THENb%=&C
  171A$+=STR$b%+":"+STRING$(-(r%<&A),"0")+STR$r%:IFXu%<>-1THENA$+=":"+STRING$(-(Xu%<&A),"0")+STR$Xu%
  172=A$+Z$
  173DEFPROCwJ(k$,`$,Zy$,sa%):K$=k$:V$=Zy$:Ru%=0:Du%=FALSE:J$=`$:c_%=0:x_%=0:Hu%=FALSE:Vy%=FALSE:SYS&400C0,&C8,&4B534154,K$TOza%,su%:PROCMJ:IFsa%THENPROCdu(aa%,d$+".Templates")
  174PROCt_:PROCHu:ENDPROC
  175DEFPROCgu:LOCALS%:CASEU%!16OF
  176WHEN0:Du%=TRUE
  177WHEN1:PROCOJ(U%!40,FNN(U%+44))
  178WHEN3:PROCg_(U%!40,FNN(U%+44))
  179WHEN8:PROCAJ
  180WHEN&400C1:PROCF_
  181WHEN&400C2:IFFNN(U%+28)=K$ANDU%!4<>su%THEN
  182PROCB(FNA("ErrRun")):PROCeJ(U%!4)
  183ENDIF
  184WHEN&400CC:CASEU%!20OF
  185WHENi%:$(U%+36)=FNA("Title")
  186WHENf%,Ly%:$(U%+36)=FNA("Alarm")
  187WHENay%:$(U%+36)=FNA("Date")
  188WHENI_%:$(U%+36)=FNA("Settings")
  189WHENHy%,VJ%:$(U%+36)=FNA("AnniTab")
  190WHENAy%:$(U%+36)=FNA("Setclock")
  191ENDCASE:!U%=56:$(U%+28)="org":S%=U%!4:U%!4=su%:SWAPU%!8,U%!&C:SYS&400E7,17,U%,S%
  192ENDCASE:ENDPROC
  193DEFFNPy(`u%,S$):SYS&400CF,,J%:=((`u%=&FFF)OR(`u%=&DFE))ORJ%!&C=f%
  194DEFPROCg_(`u%,S$):LOCALz%:IFFNPy(`u%,S$)THEN
  195SWAPU%!8,U%!&C:U%!16=4:SYS&400E7,17,U%,U%!4:IFJ%!&C<>f%THEN
  196IFzy%<>-1THENPROCCy
  197OSCLI"Copy "+S$+" "+J$+".Import ~c ~v f":IFS$="<Wimp$Scrap>"THENOSCLI"Remove <Wimp$Scrap>"
  198PROCRJ(J$+".Import")
  199ELSEPROCv_(S$)
  200ENDIF
  201ENDIF:ENDPROC
  202DEFFNu:IFey%THEN
  203IFFNBy(FNA("ErrSave"),TRUE)THENPROCt
  204ENDIF:=TRUE
  205DEFPROCF_LOCALXa%,Qa%,M%:IF(qy%AND4)>0THEN
  206IFFN`y(MODE)THENM%=20ELSEM%=&C
  207SYS&2002E,281,Z_%,"clock":SYS53,M%,4TO,,Xa%:SYS53,M%,5TO,,Qa%:SYS46,8+512,Z_%TO,,,,,F%:SYS46,271,Z_%,"clock",0,&74/(1<<Xa%),&78/(1<<Qa%),M%:PROCu
  208ENDIF:ENDPROC
  209DEFPROCe(e%,w%,n%,Xy%,Ty%)LOCALA%,B%,A$,X_%:V_%=t%:z_%=v%:X_%=1+2*(n%=1):CASEe%OF
  210WHENi%:!U%=i%:SYS&400CB,,U%:a%=U%!4-U%!20:K%=U%!16-U%!24:PROCu_(w%,n%,Xy%-a%,Ty%-K%,a%,K%)
  211WHEN-2:CASEn%OF
  212WHEN1:PROCs(Uy%,by%,Fy%)
  213WHEN2:BJ%=-1:PROCC(Qu%,Xy%,FNby(Qu%),e%,w%)
  214WHEN4:CASETRUEOF
  215WHENINKEY-1:IFYy%=0THENPROCRy
  216WHENINKEY-3:MJ%=5:PROCm
  217OTHERWISEPROCx(i%,-1,-1)
  218ENDCASE
  219ENDCASE
  220WHENay%:CASEw%OF
  221WHEN0:PROCH(d_%,0,-1):PROCJ(d_%,HJ%-1,TRUE):PROCC(d_%,Xy%,Ty%,e%,w%)
  222WHEN2,3:PROCLy(-1,-1,(1+2*(w%=2))*X_%*(1-49*(INKEY-1)))
  223WHEN35:PROCry:IFn%<>1THENPROCG(ay%)
  224WHEN36:PROCG(ay%)
  225OTHERWISE:IFn%=2THEN
  226PROCH(d_%,0,-1):PROCJ(d_%,HJ%-1,TRUE):PROCC(d_%,Xy%,Ty%,e%,w%)
  227ELSEPROCLy(w%-3,-1,0):IFn%<256THENPROCry
  228ENDIF
  229ENDCASE
  230WHENAy%:IFn%<>2THEN
  231CASEw%OF
  232WHEN1:PROCe(Ay%,9+FNM(Ay%,1),4,0,0)
  233WHEN2:PROCAy(P_%,N_%,Q_%,Ay%,w%)
  234WHEN3:IFFNy<>FNM(Ay%,1)THENPROCSy(-1)
  235A%=VAL(FNZ(Ay%,4))MOD&C -&C*t_%:A$=STR$A%:A$=STRING$(2-LENA$,"0")+A$:$J%=CHR$24+FNDy(FNH(P_%,N_%,Q_%),3)+","+STRING$(-(P_%<&A),"0")+STR$P_%+" "+FNIy(N_%,3)+" "+STR$Q_%+"."+A$+":"+FNZ(Ay%,5)+":00":SYS&20007,&F,J%TO;B%:IFn%=4THENPROCG(Ay%)
  236WHEN8:A%=VAL(FNZ(Ay%,4))MOD&C -&C*t_%+X_%:IFA%=24THENA%=0:PROCF(P_%,N_%,Q_%,1,0,0):PROCA(Ay%,2,FNQ(P_%,N_%,Q_%,TRUE))
  237IFA%=-1THENA%=23:PROCF(P_%,N_%,Q_%,-1,0,0):PROCA(Ay%,2,FNQ(P_%,N_%,Q_%,TRUE))
  238t_%=A%>&B:IFA%>&BTHENPROCA(Ay%,7,FNA("pm"))ELSEPROCA(Ay%,7,FNA("am"))
  239A%=A%MOD&C:A%-=&C*(A%=0):PROCA(Ay%,4,STR$A%)
  240WHEN9:A%=VAL(FNZ(Ay%,4))MOD&C -&C*t_%-X_%:IFA%=-1THENA%=23:PROCF(P_%,N_%,Q_%,-1,0,0):PROCA(Ay%,2,FNQ(P_%,N_%,Q_%,TRUE))
  241IFA%=24THENA%=0:PROCF(P_%,N_%,Q_%,1,0,0):PROCA(Ay%,2,FNQ(P_%,N_%,Q_%,TRUE))
  242t_%=A%>&B:IFA%>&BTHENPROCA(Ay%,7,FNA("pm"))ELSEPROCA(Ay%,7,FNA("am"))
  243A%=A%MOD&C:A%-=&C*(A%=0):PROCA(Ay%,4,STR$A%)
  244WHEN&A,&C:A%=VALFNZ(Ay%,5)+(1-9*(w%=&A))*X_%:IFA%>59THENA%-=60:PROCe(Ay%,8,4,0,0)
  245IFA%<0THENA%+=60:PROCe(Ay%,9,4,0,0)
  246PROCA(Ay%,5,STRING$(2-LENSTR$A%,"0")+STR$A%)
  247WHEN&B,&D:A%=VALFNZ(Ay%,5)-(1-9*(w%=&B))*X_%:IFA%>59THENA%-=60:PROCe(Ay%,8,4,0,0)
  248IFA%<0THENA%+=60:PROCe(Ay%,9,4,0,0)
  249PROCA(Ay%,5,STRING$(2-LENSTR$A%,"0")+STR$A%)
  250WHEN7:t_%=NOTt_%:IFt_%THENPROCA(Ay%,7,FNA("pm"))ELSEPROCA(Ay%,7,FNA("am"))
  251ENDCASE
  252ENDIF
  253WHENf%:PROClu(Xy%,Ty%,e%,w%,X_%)
  254WHENLy%:PROCjJ(Xy%,Ty%,e%,w%)
  255WHENZu%:PROCW_
  256WHENHy%:PROCtJ(w%)
  257WHENI_%,Yy%:PROCNu(e%,w%,n%,Xy%,Ty%)
  258WHENVJ%:PROCzy
  259WHENzy%:PROCh_(e%,w%,n%,Xy%,Ty%)
  260OTHERWISEPROCDJ(e%,w%,n%,Xy%,Ty%)
  261ENDCASE:PROCQy:ENDPROC
  262DEFPROCu_(w%,n%,_%,Q%,o_%,wJ%):LOCALva%,ca%,A%,QJ%:A%=n%-3-(n%=1):IFn%<>2THEN
  263IFw%>=0ANDn%<>2THEN
  264CASEw%OF
  265WHENG%(0):PROCX_(-A%)
  266WHENG%(1):PROCX_(A%)
  267OTHERWISEPROCo_(w%)
  268ENDCASE
  269ELSE:FORA%=1TOiy%:IFt%<A%THENX%=i_%ELSEX%=l_%
  270IFFNr(_%,Q%,X%,-o%-A%*Ny%,36,Ny%)THEN
  271IFn%<>2THENt%=A%:v%=S%(t%)
  272ENDIF:NEXT
  273ENDIF
  274ENDIF:IF(w%=-1ORn%=2)ANDFNr(_%,Q%,yy%,-o%,j%,-m%)THENPROChy(n%,FALSE,_%-yy%,Q%+o%,o_%,wJ%)
  275IF(w%=-1ORn%=2)ANDFNr(_%,Q%,dy%,-o%,j%,-m%)THENPROChy(n%,TRUE,_%-dy%,Q%+o%,o_%,wJ%)
  276IFn%=2THEN
  277IFT%(t%)<>-1THENPROCC(T%(t%),Xy%,Ty%,e%,w%)
  278ELSEIFNOTQJ%THENPROCM(i%,-1)
  279ENDIF:ENDPROC
  280DEFPROCQy:IFV_%=t%THEN
  281IFv%<>z_%ANDpy%=0THENpy%=1+2*(v%<z_%)
  282ELSEPROCC_(V_%):PROCM(i%,-1):py%=1+2*(t%<V_%)
  283ENDIF:IF(uJ%ORpy%<>0)ANDVy%THENPROCO
  284S%(V_%)=z_%:S%(t%)=v%:IFV_%<>t%THENPROCby(t%):PROCpy
  285ENDPROC
  286DEFPROCO:PROCp_:PROCXu(py%):PROCD(i%,yy%,-o%,yy%+j%,-o%-m%):PROCD(i%,dy%,-o%,dy%+j%,-o%-m%):ENDPROC
  287DEFPROCw_:PROCD(i%,yy%+j%-32,-o%,dy%+32,-o%-m%):ENDPROC
  288DEFPROCpy:PROCD(i%,l_%,-o%,l_%+36,-o%-m%):PROCD(i%,i_%,-o%,i_%+36,-o%-m%):PROCD(i%,GJ%,-o%,GJ%+32,-o%-m%):ENDPROC
  289DEFPROCx(e%,IJ%,Vl%):LOCALA%:A%=Vy%:IFe%=i%THEN
  290IFeJ%<>-1THEN
  291!J%=i%:SYS&400CB,,J%:J%!4=au%:J%!8=xu%-ry%:J%!&C=au%+xy%:J%!16=xu%:J%!28=IJ%:SYS&400C5,,J%:PROCw(i%,IJ%,0)
  292ELSEPROCw(e%,IJ%,Vl%)
  293ENDIF:IFNOTA%THENPROCM(i%,-1)
  294ELSEPROCw(e%,IJ%,Vl%)
  295ENDIF:ENDPROC
  296DEFPROCXu(A%):IFMu%ANDA%<>0THEN
  297LOCALqu%,_%,a%,K%,Ry%,g%,R%,C%:!J%=i%:SYS&400CB,,J%:a%=J%!4-J%!20:K%=J%!16-J%!24:Ry%=a%+dy%-&64DIV2:g%=(&64/2-32):R%=j%+&64/2:SYS&40742,0TOC%:C%+=3<<4:FOR_%=0TO&B4STEP&F:PROCvy(_%,A%):T%=TIME:REPEATUNTILTIME>T%+1:PROCvy(_%,A%):NEXT
  298ENDIF:ENDPROC
  299DEFPROCvy(_%,A%):!J%=i%:J%!4=0:J%!8=-ry%:J%!&C=xy%:J%!16=0:IFA%=-1THEN_%=&B4-_%
  300SYS&400C9,,J%TOqu%:WHILEqu%:SYS&400E6,C%:MOVERy%+g%*COSRAD_%,K%-o%+0.2*g%*SINRAD_%:DRAWRy%+R%*COSRAD_%,K%-o%+0.2*R%*SINRAD_%:DRAWBY0,-m%:DRAWRy%+g%*COSRAD_%,K%-o%-m%:DRAWRy%+g%*COSRAD_%,K%-o%+0.2*g%*SINRAD_%:SYS&400CA,,J%TOqu%:ENDWHILE:ENDPROC
  301DEFPROCBJLOCALA%,C%,Ri%,V_%,z_%,va%:Ri%=FNGy:V_%=t%:z_%=v%:CASEtJ%OF
  302WHENQu%:CASE!U%OF
  303WHEN0
  304WHEN1:PROCs(Uy%,by%,Fy%)
  305WHEN2:!U%=-1:U%!4=NJ%:SYS&400CE,,U%:!J%=Ay%:SYS&400CB,,J%:J%!4=U%!16-(J%!&C-J%!4):J%!&C=U%!16:J%!16=&88+(J%!16-J%!8):J%!28=-1:SYS&400C5,,J%:PROCA(Ay%,2,FNQ(Uy%,by%,Fy%,-1)):P_%=Uy%:N_%=by%:Q_%=Fy%:A%=FNf:t_%=A%>&B:A%=A%MOD&C:A%-=&C*(A%=0):PROCA(Ay%,4,STR$A%)
  306IFt_%THENPROCA(Ay%,7,FNA("pm"))ELSEPROCA(Ay%,7,FNA("am"))
  307A%=FNi:PROCA(Ay%,5,STRING$(2-LENSTR$A%,"0")+STR$A%):SYS6,&A1,&DCTO,,A%:PROCZ(Ay%,1,ABS((A%AND&80)=&80))
  308WHEN3:OSCLI"Filer_Run "+J$+".!Help"
  309WHEN4:IFYy%=0THENPROCRy
  310WHEN5:PROCt
  311WHEN6:Du%=FNu
  312ENDCASE
  313WHENT%(t%):PROCcu(U%,t%)
  314WHENd_%:PROCLy(-1,!U%,0)
  315WHENFl%:CASEiJ%OF
  316WHENf%:hJ%=!U%:IF!U%>0THENC%=!U%ELSEC%=m_%
  317FORA%=16TO18:PROCU(f%,A%,C%):NEXT
  318WHENHy%:ol%=!U%:IF!U%=0THENA%=DJ%ELSEA%=!U%
  319PROCU(Hy%,4,A%)
  320ENDCASE
  321WHENuu%:PROCPJ(__%,!U%)
  322WHENoJ%:Q%(0)=!U%:PROCo(A%(6),18,Q%()):PROCH(oJ%,0,-1):PROCJ(oJ%,Q%(0),-1)
  323OTHERWISE:CASEiJ%OF
  324WHENA%(6):CASE__%OF
  325WHEN2,3,4,5:IFU%!4<>-1THEN
  326IF!U%=0THENPROCU(iJ%,__%,U%!4)ELSEPROCb(iJ%,__%,U%!4)
  327ENDIF
  328WHEN9,&A,&B,&C,&D,&E,&F:X%(__%-9)=!U%:PROCD(iJ%,24,-64,&B8,-&D0)
  329WHEN20,21:Q%(__%-19)=!U%:PROCo(A%(6),18,Q%()):PROCH(By%,0,-1):PROCJ(By%,Q%(__%-19),-1)
  330ENDCASE
  331WHENYy%:PROCUJ(U%)
  332WHENf%,Ly%:PROCiy(tJ%,U%)
  333OTHERWISEPROCrJ(tJ%,U%)
  334ENDCASE
  335ENDCASE:IFRi%THENPROCC(tJ%,-1,-1,iJ%,__%)
  336PROCQy:ENDPROC
  337DEFPROCC(My%,_%,Q%,s%,Sy%)LOCALA%:IF(My%=Qu%ORMy%=T%(t%))ANDMy%<>-1THEN
  338PROCJ(Zl%,0,sy%=1):PROCJ(Zl%,1,sy%=2):FORA%=0TO3:PROCK(Yi%,A%,-(BJ%<=0)):NEXT
  339ENDIF:SYS&400D4,,My%,_%-64,Q%:tJ%=My%:iJ%=s%:__%=Sy%:ENDPROC
  340DEFPROC`J(e%,w%,Cy%)LOCALz_%,va%,A%,B%:V_%=t%:z_%=v%:k%=FALSE:CASEe%OF
  341WHENi%:k%=FNyy(w%,Cy%)
  342WHEN-1
  343WHENI_%,Yy%:k%=FNjy(e%,w%,Cy%)
  344OTHERWISEk%=FNC_(e%,w%,Cy%)
  345ENDCASE:IFk%=FALSETHEN
  346k%=TRUE:CASECy%OF
  347WHEN27:IFYy%<>0THENPROCh
  348WHEN385:OSCLI"Filer_Run "+J$+".!Help"
  349WHEN386:IFYy%=0THENPROCRy
  350WHEN387:PROCt
  351WHEN81-65+1:Du%=FNu
  352OTHERWISEk%=FALSE
  353ENDCASE:IFCy%>=401ANDCy%<=400+iy%THENt%=Cy%-400:v%=S%(t%):k%=TRUE
  354ENDIF:PROCQy:IFNOTk%THENSYS&400DC,Cy%
  355ENDPROC
  356DEFPROCq(A$)IFA$<>""THENB$+=A$+CHR$&D
  357ENDPROC
  358DEFPROCiu:SYS&400D3,,U%:IF!U%<>i%AND!U%<>`%ANDZ%(t%)=2AND!U%<>-1THENSYS&400DC,ASCLEFT$(B$,1):B$=MID$(B$,2)
  359ENDPROC
  360DEFPROChJ:PROCB("You are about to get a message from the author of !Organiser, please read it, it will be worth your while!"):OSCLI"Filer_Run "+J$+".NewUser":ENDPROC
  361DEFPROCW_:!J%=Zu%:SYS&400C3,,J%:eu%=-1:ENDPROC
  362DEFPROCYy:`J%=TRUE:PROC_y(0,0,0,0,0,FALSE,FALSE):PROCd(0):`J%=FALSE:XJ%=-1:ENDPROC
  363DEFPROCD_(qi%,e%,_%,Q%,Tl%,Zi%,Mi%):IFMu%ANDVy%THEN
  364XJ%=e%:x_%=qi%:Bl%=_%:Hl%=Q%:Hu%=Tl%:rl%=Zi%:fl%=Mi%:!J%=20:J%!&C=0:SYS&400E7,0,J%,su%:`J%=TRUE
  365ELSEPROC_y(qi%,e%,_%,Q%,Tl%,Zi%,Mi%):XJ%=-1
  366ENDIF:ENDPROC
  367DEFPROCVu:PROC_y(x_%,XJ%,Bl%,Hl%,Hu%,rl%,fl%):IFXJ%=`%THENPROCM(`%,9)
  368XJ%=-1:`J%=FALSE:ENDPROC
  369DEFPROCRy:LOCALA%,s%,b%,A$:A%=A%(1):PROCZ(A%,1,-s_%):PROCZ(A%,2,-gu%):PROCZ(A%,3,-du%):PROCZ(A%,4,-Mu%):PROCZ(A%,7,-((qy%AND9)=0)):PROCZ(A%,8,-((qy%AND4)>0)):PROCZ(A%,9,-((qy%AND5)=1)):PROCZ(A%,22,-((qy%AND8)=8)):PROCZ(A%,23,-(xJ%=-1)):PROCZ(A%,&A,-((qy%AND2)>0)):PROCZ(A%,&B,-r_%)
  370PROCZ(A%,24,-((qy%AND16)=16)):PROCA(A%,25,N$):PROCZ(A%,&F,-Fu%):PROCZ(A%,16,-Su%):PROCZ(A%,&E,-(eJ%=-1)):PROCZ(A%,19,-(eJ%<>-1)):PROCZ(A%,20,-(u_%=-1)):PROCZ(A%,21,-NOT(FJ%)):PROCS(A%,&B,ABSNOT(FNM(A%,9)ANDNOTFNM(A%,24))):PROCS(A%,&A,ABSNOT(FNM(A%,8)OR(FNM(A%,9)ANDNOTFNM(A%,24)))):PROCS(A%,24,ABSNOTFNM(A%,9))
  371PROCS(A%,25,ABSNOT(FNM(A%,9)ANDFNM(A%,24))):FORs%=_J%-1TO0STEP-1:A$+=STR$((Ku%>>s%)AND1):NEXT:PROCA(A%,18,A$):PROCA(A%,27,_$):PROCA(A%,&D,D$):PROCBu:!J%=I_%:SYS&400CB,,J%:s%=J%!&C-J%!4:b%=J%!16-J%!8:J%!4=(FNd-s%)/2:J%!16=FNe-(FNe-b%)/2:SYS&400C5,,J%:PROCwy(1)
  372X%()=P%():Q%()=H%():PROCo(A%(6),18,H%()):FORA%=2TO5:PROCb(A%(6),A%,D%(A%-1)):PROCU(A%(6),A%,I%(A%-1)):NEXT:ENDPROC
  373DEFPROCuy:LOCALA%,C%,A$:A%=A%(1):B%=qy%:s_%=FNM(A%,1):gu%=FNM(A%,2):du%=FNM(A%,3):Mu%=FNM(A%,4):D$=FNZ(A%,&D):r_%=FNM(A%,&B):qy%=-FNM(A%,9)-5*FNM(A%,8)-8*FNM(A%,22)-2*FNM(A%,&A)-16*FNM(A%,24):Fu%=FNM(A%,&F):Su%=FNM(A%,16):PROCzJ(NOTFNM(A%,21))
  374eJ%=FNM(A%,&E):xJ%=FNM(A%,23):N$=FNZ(A%,25):IFNOTeJ%THEN
  375!J%=i%:SYS&400CB,,J%:au%=J%!4:cl%=J%!8:wl%=J%!&C:xu%=J%!16
  376ENDIF:C%=FNM(A%,20):IFC%<>u_%THENu_%=C%ELSEu_%=C%
  377_J%=LENFNZ(A%,18):Ku%=EVAL("%"+FNZ(A%,18)):P%()=X%():H%()=Q%():A$=FNZ(A%,27):IFA$<>_$THENPROCGu(A$)
  378FORA%=2TO5:D%(A%-1)=FNp(A%(6),A%):I%(A%-1)=FNq(A%(6),A%):NEXT:PROCTu:IFVy%THENpy%=0:PROCO:PROCw_:PROCpy
  379MJ%=0:PROCm:PROCu:PROCm:ENDPROC
  380DEFPROCGu(A$):z%=OPENOUT"<Organiser$Dir>.Resources.!Language":BPUT#z%,A$:CLOSE#z%:z%=0:PROCB(FNA("ErrReload")):ENDPROC
  381DEFPROCwy(I%):IFYy%<>0THEN!J%=Yy%:SYS&400C6,,J%
  382!J%=I_%:SYS&400CB,,J%:Yy%=A%(I%):!J%=Yy%:J%!4+=22:J%!16-=70:J%!8=J%!16-272:SYS&400C5,,J%:!J%=I_%:J%!4=&B:J%!8=1<<23:J%!&C=1<<23:SYS&400CD,,J%:J%!4=J%!88-1:SYS&400C4,,J%:J%!4=I%:SYS&400CE,,J%:J%!4=J%!8+4:J%!8=J%!&C-8:J%!&C=J%!16-4:J%!16=J%!8+&C
  383J%!20=&17000021:J%?24=0:SYS&400C2,,J%TOI%:J%!4=I%:J%!8=0:J%!&C=0:SYS&400CD,,J%:ENDPROC
  384DEFPROCyJ:!J%=Yy%:SYS&400CB,,J%:J%!4=U%!4+22:J%!16=U%!16-70:J%!8=J%!16-272:J%!28=U%!28:SYS&400C5,,J%:U%!28=Yy%:SYS&400C5,,U%:ENDPROC
  385DEFPROCNu(e%,w%,n%,_%,Q%):CASEe%OF
  386WHENI_%:CASEw%OF
  387WHEN1,2,3,4,5,6:PROCwy(w%)
  388WHEN8:PROCh
  389WHEN9:PROCuy:ey%=-1:IFn%<>1THENPROCh
  390WHEN&A:PROCuy:PROCt:IFn%<>1THENPROCh
  391ENDCASE
  392WHENA%(1):CASEw%OF
  393WHEN&F:IFn%<&AANDn%<>2THENPROCB(FNA("ErrReload"))
  394WHEN7,8,9,22,&E,19:IFn%<>2THEN
  395PROCZ(e%,w%,1):PROCS(e%,&B,ABSNOT(FNM(e%,9)ANDNOTFNM(e%,24))):PROCS(e%,&A,ABSNOT(FNM(e%,8)OR(FNM(e%,9)ANDNOTFNM(e%,24)))):PROCS(e%,24,ABSNOTFNM(e%,9)):PROCS(e%,25,ABSNOT(FNM(e%,9)ANDFNM(e%,24)))
  396ENDIF
  397WHEN24:PROCS(e%,25,ABSNOTFNM(e%,24)):PROCS(e%,&A,ABSFNM(e%,24)):PROCS(e%,&B,ABSFNM(e%,24))
  398WHEN27:PROCK_(A%(1),27)
  399ENDCASE
  400WHENA%(6):!U%=e%:SYS&400CB,,U%:_%=U%!4:Q%=U%!16-U%!24:CASEw%OF
  401WHEN2,3,4,5:!Ml%=FNiy(A%(6),w%):PROCC(Ml%,_%+750+64,Q%-&64-48*(w%-2),e%,w%)
  402WHEN9,&A,&B,&C,&D,&E,&F:PROCH(By%,0,-1):PROCJ(By%,X%(w%-9),-1):PROCC(By%,_%+470+64,Q%-&64-48*(w%-9),e%,w%)
  403WHEN19:PROCH(oJ%,0,-1):PROCJ(oJ%,Q%(w%-19),-1):PROCC(oJ%,_%+578+64,Q%-540-48*(w%-19),e%,w%)
  404WHEN20,21:PROCH(By%,0,-1):PROCJ(By%,Q%(w%-19),-1):PROCC(By%,_%+578+64,Q%-540-48*(w%-19),e%,w%)
  405ENDCASE
  406OTHERWISEPROCaJ(e%,w%,n%,_%,Q%)
  407ENDCASE:ENDPROC
  408DEFFNjy(e%,w%,n%):CASEe%OF
  409WHENI_%,A%(1):k%=FALSE
  410OTHERWISEk%=FNF_(e%,w%,n%)
  411ENDCASE:=k%
  412DEFPROCh:PROCG(Yy%):Yy%=0:PROCG(I_%):IFVy%THENPROCM(i%,-1)
  413ENDPROC
  414DEFPROCK_(s%,Sy%):LOCALLl%,u$,Py%,R$,a$,c$,g%:Ll%=1:u$=FNZ(s%,Sy%):REPEAT:SYS&C,9,"<Organiser$Dir>.Resources",U%,1,Ll%,256,0TO,,,g%,Ll%:IFg%=1THEN
  415a$=FNN(U%):IFc$=""THENc$=a$
  416IFPy%=TRUETHENR$=a$
  417IFa$=u$THENPy%=TRUE
  418ENDIF:UNTILLl%=-1ORR$<>"":IFR$=""THENR$=c$
  419PROCA(s%,Sy%,R$):ENDPROC
  420DEFPROCAy(c%,r%,Q%,s%,Sy%):LOCALM%,A%:Ri%=FALSE:PROCA(ay%,0,FNMy(c%,r%,Q%,-1)):M%=FNX(r%,Q%):FORA%=29TO31:PROC_(ay%,A%+3,-(A%>M%)):NEXT:FORA%=1TOM%:PROCg(A%,A%=c%):NEXT:HJ%=r%:PROCA(ay%,1,STR$Q%):PROCx(ay%,-1,1):Aa%=s%:Va%=Sy%:ENDPROC
  421DEFPROCry:LOCALd%,q%,x%,A$:PROCG(ay%):CASEAa%OF
  422WHENf%:PROCA(f%,1,FNj(W_%,C_%,b_%)):PROCY(0,0)
  423WHENT%(FNP(3)):A$=FNj(d%,q%,x%):V_%=t%:z_%=v%:PROCI(d%,q%,x%)
  424WHENAy%:PROCA(Ay%,2,FNj(P_%,N_%,Q_%))
  425ENDCASE:ENDPROC
  426DEFPROCg(c%,F%):!J%=ay%:J%!4=c%+3:SYS&400CE,,J%:$J%!32="R"+STR$(1-F%)+";F"+STR$(1-F%)+"7":IFF%THENYu%=c%
  427IFGa%THENJ%!8=0:J%!&C=0ELSEJ%!8=(1+ABS(F%))<<28:J%!&C=&F<<28
  428SYS&400CD,,J%:ENDPROC
  429DEFPROCLy(c%,r%,Gy%):LOCALA%,M%,Q%,A$:IFc%<>-1THENPROCg(Yu%,FALSE):PROCg(c%,TRUE)
  430IFr%<>-1THENPROCJ(d_%,HJ%-1,FALSE):HJ%=!U%+1:PROCJ(d_%,HJ%-1,TRUE)
  431IFGy%<>0THENQ%=VALFNZ(ay%,1)+Gy%:IFQ%>=&77dANDQ%<=&fffTHENPROCA(ay%,1,STR$Q%)ELSEQ%=VALFNZ(ay%,1)
  432M%=FNX(HJ%,Q%):FORA%=29TO31:PROC_(ay%,A%+3,-(A%>M%)):NEXT:IFYu%>M%THENPROCg(Yu%,FALSE):PROCg(M%,TRUE)
  433PROCA(ay%,0,FNMy(Yu%,HJ%,Q%,-1)):ENDPROC
  434DEFFNj(RETURNc%,RETURNr%,RETURNQ%):c%=Yu%:r%=HJ%:Q%=VALFNZ(ay%,1):=FNQ(c%,r%,Q%,-1)
  435DEFFNMy(c%,r%,Q%,Ry%):LOCALA$:A$=FNQ(c%,r%,Q%,Ry%):=LEFT$(A$,LENA$-5)
  436DEFPROCPy:LOCALNu%,Pl%,LJ%,KJ%,Za%,l%,b%:mJ%=0:IFxJ%THEN
  437l%=FNz:b%=FNf:Pl%=J%(0,1):Nu%=J%(0,3):Nu%+=J%(0,2)-FNH(Nu%,Pl%,Fy%):KJ%=J%(1,1):LJ%=J%(1,3):LJ%+=J%(1,2)-FNH(LJ%,KJ%,Fy%):dl%=FNF(0,1,Nu%,Pl%,Fy%):gl%=FNF(0,2,LJ%,KJ%,Fy%):Za%=(FNG(dl%,l%)<1ANDFNG(l%,gl%)<1):IFFND(Nu%,Pl%,Fy%)=FND(Uy%,by%,Fy%)ANDNOTFNyTHENmJ%=dl%
  438IFFND(LJ%,KJ%,Fy%)=FND(Uy%,by%,Fy%)ANDFNyTHENmJ%=gl%
  439IFZa%<>FNyANDFND(Nu%,Pl%,Fy%)<>FND(Uy%,by%,Fy%)ANDFND(LJ%,KJ%,Fy%)<>FND(Uy%,by%,Fy%)THENPROCSy(-1)
  440ENDIF:ENDPROC
  441DEFPROCgJ:IFmJ%=gl%THENPROCSy(0)
  442IFmJ%=dl%THENPROCSy(1)
  443PROCPy:ENDPROC
  444DEFPROCMJ:J$=FNty("Organiser$Dir"):z%=0:Iu%=0:B$="":ey%=FALSE:Ni%=FALSE:XJ%=-1:`J%=FALSE:T$=J$+".Data.":Z_%=FNuy("<Organiser$Dir>.Sprites",&7AC+&C8):DIMSa%3,aJ%32,G%(1),Ti%&B,Ii%&B,Ol%1:$Sa%="R2":G%()=-1:$Ti%="Pptr_turnl"+CHR$0:$Ii%="Pptr_turnr"+CHR$0:?Ol%=0
  445DIMD%(5),I%(5),B%(5),W%(5),S%(5),Z%(5),M$(5):DIMP%(7),X%(7),H%(2),Q%(2):A$=FNwy:lJ%=FALSE:IFINSTR(A$,"-delete_all_data")THEN
  446IFFNBy(FNA("ErrSure"),TRUE)THEN
  447PROCB(FNA("ErrChange")):lJ%=TRUE:ey%=TRUE
  448ENDIF
  449ENDIF:PROCP_:PROCIJ:PROCzu:PROCly:NJ%=-1:PROCm:w_%=FNl(1*&400):PROCq_(w_%,Ru%):IFs_%THEN
  450IFqy%=1THENPROCS(-1,NJ%,1)
  451PROCd(NOT1)
  452ELSESYS&406C0
  453ENDIF:ENDPROC
  454DEFPROCHu:PROCdJ:v%=S%(t%):IFPu%THENPROCJ_:PROCPy
  455Iu%=TRUE:PROCx(i%,-1,-1):IFNOTgu%THENPROCG(i%)
  456PROCby(t%):IFqy%>1THENPROCu
  457IFqy%AND1THENPROCS(-1,NJ%,0)
  458IFdu%THENPROCx(Zu%,-1,-1)ELSEeu%=-1
  459IFNOTs_%THENSYS&406C1
  460PROCc:PROCPy:ENDPROC
  461DEFFNP(Xu%):LOCALA%:A%=iy%+1:REPEATA%-=1:UNTILZ%(A%)=Xu%ORA%=0:=A%
  462DEFPROCt_:LOCALA$,S%:DIMT%(iy%):By%=FNCy(FNA("Cols")):d_%=FNC("Mon","Mon",1,&C):PROCyy(d_%,0,-1):FORS%=1TOiy%:T%(S%)=FNKy(S%):NEXT:Qu%=FNC("Title","Menu",1,7):PROCz(Qu%,0,nu%):Ml%=FNC("TabM","TabM",1,2):PROCz(Ml%,0,By%):PROCz(Ml%,1,By%):oJ%=FNC("BordM","BordM",1,5):ENDPROC
  463DEFPROCly:LOCALA%,da%,Qa%:Fy%=FNL:by%=FNV:Uy%=FNI:Ny%=FNa(m%/iy%):xy%=&64+2*(36+j%+5+20):ry%=m%+2*(5+20):l_%=5+20:i_%=l_%+36+&64+2*j%:yy%=l_%+36:dy%=yy%+&64+j%:o%=5+20:GJ%=dy%-&64:j_%=m%/27::dJ%=j%-40-2*&c:ENDPROC
  464DEFPROC`_:LOCALB%:IFry%<>U%!16-U%!8ORxy%<>U%!&C-U%!4THEN
  465ry%=U%!16-U%!8:xy%=U%!&C-U%!4:m%=ry%-2*(5+20):j%=((xy%-&64)-2*(36+5+20))/2:PROCly:SYS30,6,,,yi%TO,,B%:!B%=`%:SYS&400CC,,B%:SYS&400C3,,B%:PROCty(B%!88,B%+4):SYS&400C1,,B%+4TO`%:SYS30,7,,B%:IFZ%(t%)=2ANDv%=0THENPROCYy:PROCA_
  466SYS&400D1,i%,0,-ry%,xy%,0
  467ENDIF:ENDPROC
  468DEFPROCzu:LOCALA%,g$:LOCALERROR:ONERRORLOCALRESTOREERROR:CLOSE#z%:z%=0:PROCB(REPORT$+" at line "+STR$ERL+", using default settings."):PROCP_:ey%=TRUE:ENDPROC
  469z%=OPENIN(J$+".Data.Settings"):o$=GET$#z%:g$=GET$#z%:D$=GET$#z%:s_%=FNR:gu%=FNR:qy%=FNY:r_%=FNR:Su%=FNR:iy%=FNY:t%=FNY:du%=FNR:Mu%=FNR:xJ%=FNR:Fu%=FNR:Ga%=Fu%:_J%=FNY:INPUT#z%,Ku%,qJ%:INPUT#z%,eJ%,au%,wl%,xu%,cl%:u_%=FNR:FJ%=FNR:INPUT#z%,j%,m%:FORA%=0TO6:P%(A%)=FNY:NEXT:FORA%=0TO2:H%(A%)=FNY:NEXT
  470FORA%=1TOiy%:Z%(A%)=FNY:D%(A%)=FNY:I%(A%)=FNY:NEXT:N$=GET$#z%:REPEATPROCQJ(GET$#z%,z%):UNTILEOF#z%:CLOSE#z%:z%=0:RESTOREERROR:Pu%=(FNn(qJ%)<>FNn(FNz)):IFlJ%THEND$=FNA("Yourname")
  471IFg$<>J$THENPROChJ
  472ENDPROC
  473DEFPROCd_:LOCALA%:z%=OPENOUT(J$+".Data.Settings"):BPUT#z%,V$:BPUT#z%,J$:BPUT#z%,D$:PROCW(s_%):PROCW(gu%):PROCW(qy%):PROCW(r_%):PROCW(Su%):PROCW(iy%):PROCW(t%):PROCW(du%):PROCW(Mu%):PROCW(xJ%):PROCW(Fu%):PROCW(_J%):PRINT#z%,Ku%,FNz:PRINT#z%,eJ%,au%,wl%,xu%,cl%:PROCW(u_%):PROCW(FJ%):PRINT#z%,j%,m%:FORA%=0TO6:PROCW(P%(A%)):NEXT
  474FORA%=0TO2:PROCW(H%(A%)):NEXT:FORA%=1TOiy%:PROCW(Z%(A%)):PROCW(D%(A%)):PROCW(I%(A%)):NEXT:BPUT#z%,N$:PROCKu(z%):CLOSE#z%:z%=0:ey%=FALSE:ENDPROC
  475DEFPROCt:PROCd_:PROCOu:ENDPROC
  476DEFPROCP_:::J_%=FALSE:Pu%=0:qy%=1+2+4:N$="%z12:%mi:%se %am":H%()=2,2,7:s_%=FALSE:r_%=FALSE:Mu%=TRUE:Su%=TRUE:MJ%=0::::::Fu%=FALSE:u_%=TRUE:iy%=4:I%()=7:D%()=0,&B,&A,&F,9,&E:P%()=0,&F,8,&B,4,4,&B:gu%=FALSE:eJ%=-1:au%=0:xu%=0:wl%=0:cl%=0:FJ%=FALSE:t%=2:Z%()=0,1,3,5,2
  477du%=TRUE:D$="Chris Morison":xJ%=FALSE:Su%=FALSE:py%=FALSE::::::j%=500:m%=920:::::::_J%=8:Ku%=&E7::::Pu%=FALSE:qJ%=0::ENDPROC
  478DEFFNR=(BGET#z%=&FF)
  479DEFPROCW(A%)BPUT#z%,A%:ENDPROC
  480DEFFNY=BGET#z%
  481DEFPROCm:LOCALB%,H%:IFMJ%>0THENB%=8ELSEB%=qy%
  482IFNJ%<>-1THEN!J%=-1-7*ABS(u_%):J%!4=NJ%:SYS&400C4,,J%:U_%=0
  483CASEB%ANDNOT(2+16)OF
  484WHEN1,8:CASETRUEOF
  485WHENB%=1:U_%=6-3*NOTr_%
  486WHENB%=3:U_%=9-3*NOTr_%
  487WHEN(B%AND8)>0:U_%=9:SYS&400EC,-1,-1TO,,H%:$aJ%=STR$(H%DIV&400)+"k"
  488WHEN(B%AND16)>0:U_%=LENFNK(N$)+3
  489ENDCASE:U_%=U_%*16:Cu%=68:J%!8=0:J%!&C=U_%:J%!16=Cu%:J%!20=&2700313D:J%!24=aJ%:J%!28=Sa%:J%!32=32
  490WHEN1+4:U_%=&74:Cu%=&78:J%!8=-16:J%!&C=U_%:J%!16=Cu%:$aJ%="clock":J%!20=&3102:J%!24=aJ%:J%!28=Z_%:J%!32=32
  491OTHERWISE:U_%=68:Cu%=68:J%!8=0:J%!&C=68:J%!16=68:J%!20=&3002:$(J%+24)="!Organiser"
  492ENDCASE:!J%=-1-ABS(7*u_%):J%!4=0:SYS&400C2,0,J%TONJ%:IF(B%AND4)=4THENPROCF_
  493PROCo(-1,NJ%,H%()):ENDPROC
  494DEFPROCo(e%,cy%,K%()):LOCALg_%,A%:g_%=FNgy(e%,cy%):IFg_%<>-1THEN
  495A%=INSTR(FNN(g_%),"R"):g_%?A%=ASCSTR$K%(0):PROCU(e%,cy%,K%(2)):PROCb(e%,cy%,K%(1)):!J%=e%:J%!4=cy%:J%!8=0:J%!&C=0:SYS&400CD,,J%
  496ENDIF:ENDPROC
  497DEFPROChu:LOCALA%,Iy%:DIMA%(6):Yy%=0:PROCmJ:nu%=FNB("Info",Iy%):i%=FNB("Main",Iy%):ti%=Iy%:`%=FNB("Addresses",Iy%):G_%=FNB("Important",Iy%):Zu%=FNB("Banner",Iy%):ay%=FNB("GetDate",Iy%):I_%=FNB("Setup",Iy%):f%=FNB("AlarmSet",Iy%):Ql%=Iy%:Ly%=FNB("AlarmWarn",Iy%)
  498Hy%=FNB("Anni",Iy%):Na%=Iy%:VJ%=FNB("AnniNotify",Iy%):A%(1)=FNB("SetGen",Iy%):A%(2)=FNB("SetAdd",Iy%):A%(3)=FNB("SetAnn",Iy%):A%(4)=FNB("SetCal",Iy%):A%(5)=FNB("SetDia",Iy%):A%(6)=FNB("SetColours",Iy%):Ay%=FNB("SetClock",Iy%)
  499PROCA(nu%,8,V$):PROCA(nu%,5,"!Organiser"):PROCA(nu%,6,FNA("Purp")):PROCA(Zu%,3,FNA("Vers")+" "+V$):PROCA(Zu%,6,"� Chris Morison 19"+MID$(V$,INSTR(V$,")")-2,2)):PROCA(Zu%,4,D$):FORA%=1TO31:PROCA(ay%,A%+3,STR$A%):NEXT:ENDPROC
  500DEFFNB(G$,RETURNIy%):LOCALH%,S%,I%,P%,ty%,g_%:SYS&400DB,,,0,0,0,G$,0TO,S%,I%:IFS%>512THEN
  501SYS&2001E,6,,,S%TO,,P%;ty%:IFty%AND1THENERROR2,FNA("ErrWin")
  502ELSEP%=U%
  503ENDIF:DIMg_%I%:SYS&400DB,,P%,g_%,g_%+I%,Yl%,G$,0TO,,g_%:IFG$="Main"THEN
  504P%!68=&64+(&64<<16):P%!0=0:P%!4=0:P%!8=xy%:P%!&C=ry%:IFFJ%THEN
  505P%!48=FNd:P%!44=-FNe:P%!28=P%!28OR(3<<29)
  506ELSEP%!48=xy%:P%!44=-ry%:P%!28=P%!28ANDNOT(3<<29)
  507ENDIF
  508ELSE:IFG$="Setup"THEN_a%=S%
  509IFG$="Addresses"THENyi%=S%
  510ENDIF:IFNOTFu%ANDG$<>"Banner"THENPROCYu(P%)
  511IFG$="Addresses"THENPROCty(P%!84,P%)
  512P%!64=Z_%:SYS&400C1,,P%TOcy%:Iy%=P%!72:IFS%>512THENSYS30,7,,P%
  513=cy%
  514DEFPROCzJ(ty%):LOCALUJ%,B%:IFty%<>FJ%THEN
  515SYS30,6,,,4+88+32*22TO,,UJ%:!UJ%=i%:SYS&400CC,,UJ%:B%=UJ%+4:SYS&400C3,,UJ%:IFty%THEN
  516B%!48=FNd:B%!44=-FNe:B%!28=B%!28OR(3<<29)
  517ELSEB%!48=xy%:B%!44=-ry%:B%!28=B%!28ANDNOT(3<<29)
  518ENDIF:B%=i%:FJ%=ty%:SYS&400C1,,UJ%+4TOi%:IFx_%=B%THENx_%=i%
  519IFVy%THEN!UJ%=i%:SYS&400C5,,UJ%
  520SYS30,7,,UJ%
  521ENDIF:ENDPROC
  522DEFPROCOJ(`u%,S$):IFFNPy(`u%,S$)THEN
  523SWAPU%!8,U%!&C:!U%=256:$(U%+44)="<Wimp$Scrap>"+CHR$0:U%!36=-1:U%!16=2:SYS&400E7,17,U%,U%!4
  524ENDIF:ENDPROC
  525DEFPROCAJ:IFFNu<>-1THENU%!&C=U%!8:U%!8=0:SYS&400E7,19,U%,U%!4
  526ENDPROC
  527DEFPROCVJ:LOCALqu%,a%,K%:SYS&400C8,,U%TOqu%:a%=U%!4-U%!20:K%=U%!16-U%!24:WHILEqu%:PROCT_(!U%,a%,K%):SYS&400CA,,U%TOqu%:ENDWHILE:ENDPROC
  528DEFFNuy(S$,E%):LOCALF%,A%,S%:F%=OPENINS$:A%=EXT#F%+4:CLOSE#F%:A%+=E%:DIMS%A%:!S%=A%:S%!8=16:SYS46,266,S%,S$:=S%
  529DEFPROCM(e%,w%):!J%=e%:J%!4=w%:SYS&400CE,,J%:SYS&400D2,e%,w%,,,-1,LENFNN(J%!28):ENDPROC
  530DEFFNp(e%,w%):LOCALk_%,`_%:IFFNh(e%,w%)THEN
  531PROCdy(e%,w%,`_%,k_%)
  532ELSE!J%=e%:J%!4=w%:SYS&400CE,,J%:k_%=(J%!24>>28)AND&F
  533ENDIF:=k_%
  534DEFPROCb(e%,w%,k_%):IFFNh(e%,w%)THEN
  535PROCM_(e%,w%,-1,k_%)
  536ELSE!J%=e%:J%!4=w%:J%!&C=&F<<28:J%!8=k_%<<28:SYS&400CD,,J%
  537ENDIF:ENDPROC
  538DEFFNh(e%,w%):!J%=e%:J%!4=w%:SYS&400CE,,J%:=((J%!24)AND(1<<6))>0
  539DEFPROCM_(e%,w%,`_%,k_%):LOCALP%,A%:!J%=e%:J%!4=w%:SYS&400CE,,J%:P%=J%!32:A%=INSTR($P%,"F"):IFA%>0THEN
  540IF`_%<>-1THEN?(P%+A%+1)=ASCSTR$~`_%
  541IFk_%<>-1THEN?(P%+A%)=ASCSTR$~k_%
  542J%!8=0:J%!&C=0:SYS&400CD,,J%
  543ENDIF:ENDPROC
  544DEFPROCdy(e%,w%,RETURN`_%,RETURNk_%):LOCALP%,A%:!J%=e%:J%!4=w%:SYS&400CE,,J%:P%=J%!32:A%=INSTR($P%,"F"):`_%=-1:k_%=-1:IFA%>0THEN`_%=EVAL("&"+CHR$?(P%+A%+1)):k_%=EVAL("&"+CHR$?(P%+A%))
  545ENDPROC
  546DEFFNq(e%,w%):LOCALk_%,`_%:IFFNh(e%,w%)THEN
  547PROCdy(e%,w%,`_%,k_%)
  548ELSE!J%=e%:J%!4=w%:SYS&400CE,,J%:`_%=(J%!24>>24)AND&F
  549ENDIF:=`_%
  550DEFPROCU(e%,w%,`_%):IFFNh(e%,w%)THEN
  551PROCM_(e%,w%,`_%,-1)
  552ELSE!J%=e%:J%!4=w%:J%!&C=&F<<24:J%!8=`_%<<24:SYS&400CD,,J%
  553ENDIF:ENDPROC
  554DEFPROC_(e%,w%,ty%):LOCALp%:p%=J%+64:IFty%=1THEN!J%=e%:J%!4=w%:SYS&400CE,,J%
  555!p%=e%:p%!4=w%:p%!8=(ABSty%)<<23:p%!&C=1<<23:SYS&400CD,,p%:IFty%=1THENSYS&400D1,e%,J%!8,J%!&C,J%!16,J%!20
  556ENDPROC
  557DEFFNgy(e%,w%):LOCALA%:!J%=e%:J%!4=w%:SYS&400CE,,J%:IF(J%!24AND256)>0THENA%=J%!32ELSEA%=-1
  558=A%
  559DEFPROCZ(e%,w%,ty%):LOCALA%:!J%=e%:J%!4=w%:A%=1:IFty%=-1THENty%=1:A%=0
  560J%!8=ty%<<21:J%!&C=A%<<21:SYS&400CD,,J%:ENDPROC
  561DEFFNM(e%,w%):!J%=e%:J%!4=w%:SYS&400CE,,J%:=-((J%!24>>21)AND1)
  562DEFPROCS(e%,w%,ty%):LOCALA%:A%=1:!J%=e%:J%!4=w%:IFty%=-1THENty%=1:A%=0
  563J%!8=ty%*(1<<22):J%!&C=A%<<22:SYS&400CD,,J%:ENDPROC
  564DEFPROCA(e%,w%,W$):LOCALP%,L%:!J%=e%:J%!4=w%:SYS&400CE,,J%:IFJ%!24AND(1<<8)THENP%=J%!28:L%=(J%!36)-1:ELSEP%=J%+28:L%=&B
  565$P%=LEFT$(W$,L%):J%!8=0:J%!&C=0:SYS&400CD,,J%:ENDPROC
  566DEFFNZ(e%,w%):LOCALA$:!J%=e%:J%!4=w%:SYS&400CE,,J%:IF(J%!24AND256)>0THENA$=FNN(J%!28)ELSEA$=FNN(J%+28)
  567=A$
  568DEFFNiy(e%,w%):LOCALA%:!J%=e%:J%!4=w%:SYS&400CE,,J%:IF(J%!24AND256)>0THENA%=J%!28ELSEA%=-1
  569=A%
  570DEFPROCyy(My%,L%,H%):My%+=4+24*L%:REPEATMy%+=24:My%!8=My%!8OR8:L%+=1:UNTIL((L%>H%)AND(H%<>-1))OR((!My%AND&80)>0):ENDPROC
  571DEFPROCH(My%,L%,H%):My%+=4+24*L%:REPEATMy%+=24:!My%=!My%ANDNOT1:L%+=1:UNTIL((L%>H%)AND(H%<>-1))OR((!My%AND&80)>0):ENDPROC
  572DEFFNCy(s$):LOCALMy%,_u%,Sy%:My%=FNWy(s$+"\0\1\2\3\4\5\6\7\8\9\10\11\12\13\14\15"):FORSy%=0TO&F:CASETRUEOF
  573WHENSy%<4,Sy%=9,Sy%=&C,Sy%=&E,Sy%=&F:_u%=7
  574OTHERWISE_u%=0
  575ENDCASE:My%?(39+Sy%*24)=Sy%*16+_u%:NEXT:PROCyy(My%,0,-1):=My%
  576DEFFNWy(A$):LOCALA%,B%,L%,Z$,I%:A$+="\":DIMA%4*FNny (A$)*24:B%=A%+4:Z$=LEFT$(A$,INSTR(A$,"\")-1):$A%=Z$:A%!&C=&70207:A%!20=44:A%!24=0:L%=LENZ$:A$=MID$(A$,INSTR(A$,"\")+1):WHILEINSTR(A$,"\"):Z$=LEFT$(A$,INSTR(A$,"\")-1):B%+=24:!B%=FNxy(Z$):B%!4=0:B%!8=&7000021
  577IFINSTR(Z$,">")THENB%!4=VALMID$(Z$,INSTR(Z$,">")+1):Z$=LEFT$(Z$,INSTR(Z$,">")-1)
  578IFLENZ$>&BTHENDIMI%LENZ$+1:$I%=Z$:B%!8=B%!8OR256:B%!&C=I%:B%!16=0:B%!20=I%+1ELSE$(B%+&C)=Z$
  579IFLENZ$>L%THENL%=LENZ$
  580A$=MID$(A$,INSTR(A$,"\")+1):ENDWHILE:!B%=!B%OR&80:A%!16=L%*16+16:=A%
  581DEFFNC(s$,h$,L%,H%):LOCALM%,A%,C%,D%,Gl%,A$:DIMM%28+24* (H%-L%+1):!M%=FNg(s$):M%!4=0:M%!8=0:Gl%=LENFNA(s$):M%!&C=&70207:M%!20=44:M%!24=0:A%=M%+4:FORC%=L%TOH%:A%+=24:!A%=0:A%!4=0:A%!8=&7000121:A%!&C=FNg(h$+STR$C%):A%!16=0:A%!20=0:D%=LENFNA(h$+STR$C%):IFD%>Gl%THENGl%=D%
  582NEXT:!A%+=&80:M%!28+=256:M%!16=Gl%*16:=M%
  583DEFPROCz(M%,I%,S%):M%!(28+24*I%+4)=S%:ENDPROC
  584DEFFNxy(RETURNZ$):LOCALA%,F%:REPEAT:CASECHR$ASCZ$OF
  585WHEN"�":A%+=1:Z$=MID$(Z$,2)
  586WHEN"_":A%+=2:Z$=MID$(Z$,2)
  587WHEN"*":A%+=8:Z$=MID$(Z$,2)
  588OTHERWISEF%=-1
  589ENDCASE:UNTILF%:=A%
  590DEFFNny(A$):LOCALA%:WHILEINSTR(A$,"\"):A%+=1:A$=MID$(A$,INSTR(A$,"\")+1):ENDWHILE:=A%
  591DEFFNby(A%):LOCALH%:A%+=4:REPEATA%+=24:H%+=44:IF(!A%AND2)>0THENH%+=24
  592UNTIL(!A%AND&80)>0:=H%+96
  593DEFFNpy(My%,Ta%,W$,ui%,b$):LOCALpl%,g_%:DIMpl%ui%+1,g_%LEN (b$)+1:$pl%=W$:$g_%=b$:My%+=28+24*Ta%:!My%=!My%OR4:My%!8=My%!8OR256:My%!&C=pl%:My%!16=g_%:My%!20=ui%:=pl%
  594DEFFNk(My%,y$):LOCALA%,B%:B%=My%+28:WHILE(y$<>FNW(My%,A%))AND(!B%AND&80)=0:A%+=1:B%+=24:ENDWHILE:IFy$<>FNW(My%,A%)THENA%=-1
  595=A%
  596DEFPROCK(M%,I%,F%):IFF%<>0THEN
  597M%!(36+24*I%)=M%!(36+24*I%)OR(1<<22)
  598ELSEM%!(36+24*I%)=M%!(36+24*I%)ANDNOT(1<<22)
  599ENDIF:ENDPROC
  600DEFFNW(M%,I%):M%+=28+24*I%:IF(M%!8AND256)>0THENM%=M%!&CELSEM%=M%+&C
  601=FNN(M%)
  602DEFPROCJ(M%,I%,F%):IFF%<>0THENM%!(28+24*I%)=M%!(28+24*I%)OR1ELSEM%!(28+24*I%)=M%!(28+24*I%)ANDNOT(1)
  603ENDPROC
  604DEFFNS_(M%):IFM%!28>&80THENM%=!M%
  605=FNN(M%)
  606DEFPROCc_(M%,I%,F%):IFF%<>0THENM%!(28+24*I%)=M%!(28+24*I%)OR2ELSEM%!(28+24*I%)=M%!(28+24*I%)ANDNOT(2)
  607ENDPROC
  608DEFFNa(A%)=A%-A%MOD4
  609DEFFNGy:SYS&400CF,,J%:=(((J%!8)AND1)=1)
  610DEFFNy:LOCALA%:SYS6,&A1,&DCTO,,A%:=(A%AND&80)=&80
  611DEFPROCSy(F%):LOCALA%:SYS6,&A1,&DCTO,,A%:CASEF%OF
  612WHEN0:A%=A%ANDNOT&80
  613WHEN1:A%=A%OR&80
  614WHEN-1:A%=A%EOR&80
  615ENDCASE:SYS6,&A2,&DC,A%:ENDPROC
  616DEFFNe:LOCALA%,B%:SYS53,-1,&CTO,,A%:SYS53,-1,5TO,,B%:=(A%<<B%)
  617DEFFN`y(M%):LOCALA%:SYS53,M%,5TO,,A%:=(A%=1)
  618DEFFNw(H%,S%,F%):LOCALP%,E%,V%,L%,T%:SYS&2001D,2,H%,,S%TOE%,,P%;V%:IF(V%AND1)=1THEN
  619IFF%THEN
  620P%=FNJy:PROCZy(H%,(S%DIVP%)*P%-P%*((S%MODP%)>0),TRUE):P%=FNw(H%,S%,FALSE)
  621ELSESYS43,E%
  622ENDIF
  623ENDIF:=P%
  624DEFPROCau(H%,RETURNB%,S%,F%):LOCALL%,E%,V%,T%,P%:SYS&2001D,4,H%,B%,S%TOE%,,B%;V%:V%=((V%AND1)=1):CASETRUEOF
  625WHENV%ANDNOTF%:SYS43,E%
  626WHENV%ANDF%AND(S%>0):PROCZy(H%,S%,TRUE):PROCau(H%,B%,S%,TRUE)
  627WHENV%ANDF%AND(S%<0)
  628WHENNOTV%ANDF%AND(S%<0):PROCZy(H%,-1,TRUE)
  629ENDCASE:ENDPROC
  630DEFPROCDy(H%,B%,F%):LOCALA%,ty%:SYS29,3,H%,B%TOA%;ty%:IFF%THENPROCZy(H%,-1,TRUE)
  631ENDPROC
  632DEFPROCZy(H%,S%,F%):LOCALP%:IFF%THEN
  633IFS%<0THEN
  634SYS&2001D,5,H%,,-32*&400*&400:S%=H%!&C+H%-&8000:P%=FNJy:SYS&400EC,-1,-1TOF%:F%=FNl(((S%DIVP%)*P%-P%*((S%MODP%)>0))-F%):SYS29,5,H%,,((S%DIVP%)*P%-P%*((S%MODP%)>0))-S%
  635ELSE:E%=Ru%:F%=FNl(S%):SYS29,5,H%,,Ru%-E%
  636ENDIF
  637ELSESYS29,5,H%,,S%
  638ENDIF:ENDPROC
  639DEFPROCq_(H%,S%):IFS%=-1THENS%=Ru%
  640SYS29,0,H%,,S%:ENDPROC
  641DEFPROCnJ:SYS&61504,S_%:SYS&2001E,7,,S_%:ENDPROC
  642DEFPROCFJ(j$):LOCALF%:SYS&2001E,6,,,17+LENj$TO,,S_%;F%:IFF%AND1THENERROR2,"Not enough memory for messages."
  643$(S_%+16)=j$:SYS&41501,S_%,S_%+16,0:ENDPROC
  644DEFFNA(U$):LOCALF%,L%:SYS&61502,S_%,U$,J%,256TO,,,L%;F%:IFF%AND1ERROR2,"Can't get message '"+U$+"' from Messages file"
  645J%?L%=&D:=$J%
  646DEFFNg(U$):LOCALF%,P%:SYS&61502,S_%,U$,0TO,,P%;F%:IFF%AND1ERROR2,"Can't get message '"+U$+"' from Messages file"
  647=P%
  648DEFFNO(U$,A$,Z$,C$,l$):LOCALF%,L%:SYS&61502,S_%,U$,J%,256,A$,Z$,C$,l$TO,,,L%;F%:IFF%AND1ERROR2,"Can't get message '"+U$+"' from Messages file"
  649J%?L%=&D:=$J%
  650DEFFNOy(U$,L%,H%,Z$,A$):LOCALM$,A%:FORA%=L%TOH%:M$+=Z$+FNA(U$+STR$A%)+A$:NEXT:=M$
  651DEFFNr(_%,Q%,nl%,ul%,s%,b%):IFs%<0THENnl%+=s%:s%=-s%
  652IFb%<0THENul%+=b%:b%=-b%
  653=((_%>=nl%)AND(_%<=(nl%+s%))AND(Q%>=ul%)AND(Q%<=(ul%+b%)))
  654DEFFNJy:LOCALP%:SYS81TOP%:=P%
  655DEFFNwy:LOCALI$,I%:SYS16TOI$:I%=INSTR(I$," -quit "):IFI%THENI$=MID$(I$,INSTR(I$," ",I%+LEN" -quit ")+1)
  656=I$
  657DEFFNty(A$):LOCALL%:SYS35,A$,J%,&FF,0,3TO,,L%:J%?L%=0:=FNN(J%)
  658DEFFNt(A$):LOCALL%,F%:SYS&20023,A$,J%,&FF,0,3TO,,L%;F%:IF(F%AND1)=0THENJ%?L%=0:IFFNN(J%)<>""THENF%=TRUEELSEF%=FALSE
  659=F%
  660DEFFNl(M%):LOCALS%:SYS&400EC,-1,-1TOS%:SYS&400EC,S%+M%,-1TOS%:Ru%=S%-(HIMEM-&8000):=HIMEM
  661DEFFNN(P%):LOCALA$:WHILE?P%<>0AND?P%<>&DAND?P%<>&A:A$+=CHR$(?P%):P%+=1:ENDWHILE:=A$
  662DEFPROCeJ(cy%):!J%=256:J%!&C=0:J%!16=0:SYS&400E7,17,J%,cy%:ENDPROC
  663DEFFNs(A$):LOCALA%,C%:FORA%=1TOLENA$:C%=ASCMID$(A$,A%,1):IFC%>=97ANDC%<=&7ATHENC%=C%ANDNOT32
  664MID$(A$,A%)=CHR$(C%):NEXT:=A$
  665DEFFNd:LOCALA%,B%:SYS53,-1,&BTO,,A%:SYS53,-1,4TO,,B%:=(A%<<B%)
  666DEFPROCB(p$):!J%=&FF:$(J%+4)=p$+CHR$0:SYS&400DF,J%,17+(1<<8)+(1<<9),"Message from "+K$,"!Organiser":ENDPROC
  667DEFFNBy(A$,R%):!J%=0:$(J%+4)=A$:SYS&400DF,J%,23-4*ABSR%+(1<<8),"Message from "+K$,"!Organiser"TO,R%:=R%-2
  668DEFFNZ_(c%,r%,Q%):=(FND(c%,r%,Q%)+1)MOD2
  669DEFFND(c%,r%,Q%):LOCALUu%:Gy%=Q%-&77D:Uu%=Gy%*365:Uu%+=Gy%DIV4-(Q%-&76C-1)DIV&64+(Q%-&640-1)DIV400:WHILE(r%-1)>0:r%-=1:CASEr%OF
  670WHEN1,3,5,7,8,&A,&C:Uu%+=31
  671WHEN4,6,9,&B:Uu%+=30
  672WHEN2:Uu%+=28-FNFy(Q%)
  673ENDCASE:ENDWHILE:=Uu%+c%
  674DEFFNH(c%,r%,Q%):=FNo(FND(c%,r%,Q%))
  675DEFFNX(r%,Q%):LOCALc%:CASEr%OF
  676WHEN1,3,5,7,8,&A,&C:c%=31
  677WHEN4,6,9,&B:c%=30
  678WHEN2:c%=28-FNFy(Q%)
  679ENDCASE:=c%
  680DEFFNFy(Q%)=((Q%MOD4=0)ANDNOT(Q%MOD&64=0))OR(Q%MOD400=0)
  681DEFPROCF(RETURNd%,RETURNq%,RETURNx%,my%,Lu%,Gy%):LOCALgi%,Da%,K%:gi%=d%:Da%=q%:K%=x%:d%+=my%:q%+=Lu%:x%+=Gy%:WHILEq%<1:q%+=&C:x%-=1:ENDWHILE:WHILEq%>&C:q%-=&C:Oa%+=1:ENDWHILE:WHILEd%<1:q%-=1:IFq%<1THENq%=&C:x%-=1
  682d%+=FNX(q%,x%):ENDWHILE:WHILEd%>FNX(q%,x%):d%-=FNX(q%,x%):q%+=1:IFq%>&CTHENq%=1:x%+=1
  683ENDWHILE:IFx%<&77dORx%>&fffTHENd%=gi%:q%=Da%:x%=K%
  684ENDPROC
  685DEFFNo(u%):=((u%-1)MOD7)+1
  686DEFFNQ(c%,r%,Q%,zJ%):=FNc(FND(c%,r%,Q%),zJ%)+", "+FNA_(c%)+" "+FNU(r%,zJ%)+" "+STR$Q%
  687DEFPROCpu:LOCALC%,P%,J,P,R,M,Z,W,G,N,w,C,U:DIMC%&90:J=&D:P=&E:R=&F:M=2:Z=3:W=4:G=5:N=0:w=1:C=6:U=7:FORS%=0TO2STEP2:P%=C%:[OPTS%:.V CMP G,#0:RSBLT G,G,#0:SUBLT Z,Z,G:CMP W,#0:RSBLT W,W,#0:SUBLT M,M,W:ADD U,M,W:LDR C,[N,#28]:CMP U,C:BLT Q:LDR C,[N,#36]:CMP M,C:BGT Q
  688LDR C,[N,#32]:ADD U,Z,G:CMP U,C:BLT Q:LDR C,[N,#40]:CMP Z,C:BGT Q:CMP w,#0:MVNEQ0,#1:MOVEQpc,P:B a:.Q MOV0,#0:MOVpc,P:.a MOV1,M:MOV2,Z:MOV0,#4:SWI 69:MOV1,W:MOV2,G:MOV0,#96+1:SWI 69:MVN0,#1:MOVpc,P:]NEXT:ENDPROC
  689DEFFNS(C%,D%,E%,F%):LOCALA%,B%:A%=U%:B%=0:=USRV
  690DEFPROCX(C%,D%,E%,F%):LOCALA%,B%:A%=U%:B%=1:CALLV:ENDPROC
  691DEFPROCG(e%):!J%=e%:SYS&400C6,,J%:IFe%=x_%THENHu%=FALSE:!J%=c_%:SYS&600C6,,J%
  692IFe%=i%THENVy%=FALSE
  693ENDPROC
  694DEFPROCYu(B%):LOCALN%,A$,Py%,p%:N%=B%!84:B%+=88:WHILEN%:IF((B%!16)AND64)>0THEN
  695A$=$(B%!24):p%=EVAL("&"+MID$(A$,INSTR(A$,"F")+1,1)):Py%=EVAL("&"+MID$(A$,INSTR(A$,"F")+2,1)):B%!16=B%!16ANDNOT(64+(&FF<<24)):B%!16=B%!16OR(Py%<<24)OR(p%<<28)
  696ENDIF:B%+=32:N%-=1:ENDWHILE:ENDPROC
  697DEFPROCD(e%,O_%,`y%,B_%,jy%):SYS&400D1,e%,O_%,jy%,B_%+2,`y%+4:ENDPROC
  698DEFPROCw(e%,IJ%,Vl%):LOCALW%,H%,X%,Y%,Z%:!J%=e%:SYS&400CB,,J%:X%=36*((J%!32>>28)AND1):Y%=36*((J%!32>>26)AND1)-36*((J%!32>>30)AND1):W%=J%!&C-J%!4+X%:H%=J%!16-J%!8+Y%:IFVl%=-1THEN
  699J%!4=FNd/2-W%/2:J%!&C=J%!4+W%:J%!16=FNe-((FNe-&84)-H%)/2-Y%:J%!8=J%!16-H%
  700ELSE:IFVl%=1THEN
  701MOUSEX%,Y%,Z%:J%!4=X%-64:J%!&C=J%!4+W%:J%!8=Y%-H%:J%!16=Y%
  702ENDIF
  703ENDIF:IFIJ%<>0THENJ%!28=IJ%
  704SYS&400C5,,J%:IFe%=i%THENVy%=TRUE
  705IFe%=x_%THENHu%=TRUE:!U%=x_%:SYS&400CB,,U%:U%!28=J%!28:PROC`y
  706ENDPROC
  707DEFPROC_y(qi%,e%,_%,Q%,Tl%,Zi%,Mi%):IFc_%<>0ANDc_%<>e%THEN!J%=c_%:SYS&600C6,,J%
  708c_%=e%:x_%=qi%:Bl%=_%:Hl%=Q%:Hu%=Tl%:rl%=Zi%:fl%=Mi%:IFc_%<>0THEN
  709!J%=c_%:SYS&400CB,,J%:Fa%=J%!&C-J%!4:Ca%=J%!16-J%!8:!J%=x_%:SYS&400CB,,J%:J%!4+=_%:J%!16+=Q%:IFTl%THEN!J%=e%:SYS&400C5,,J%
  710ENDIF:ENDPROC
  711DEFPROC`y:IFc_%<>0AND!U%=x_%THEN
  712!J%=c_%:J%!4=U%!4+Bl%:J%!16=U%!16+Hl%:J%!&C=J%!4+Fa%:J%!8=J%!16-Ca%:J%!20=0:J%!24=0:J%!28=U%!28:IFrl%THEN
  713J%!4-=U%!20:J%!&C-=U%!20:IFJ%!4<U%!4THENJ%!20=U%!20-Bl%:J%!4=U%!4
  714IFJ%!&C>U%!&CTHENJ%!&C=U%!&C
  715ENDIF:IFfl%THEN
  716J%!16-=U%!24:J%!8-=U%!24:IFJ%!16>U%!16THENJ%!24=U%!16-J%!16:J%!16=U%!16
  717IFJ%!8<U%!8THENJ%!8=U%!8
  718ENDIF:SYS&400C5,,J%:U%!28=c_%
  719ENDIF:ENDPROC
  720DEFPROCmJ:LOCALA%:DIMYl%256:FORA%=0TO256STEP4:Yl%!A%=0:NEXT:ENDPROC
  721DEFPROCdu(aa%,r$):Yl%=-1:SYS&400D9,,r$:PROChu:SYS&400DA:ENDPROC
  722DEFPROCi(W%,Iy%,A$,uJ%):$Iy%=A$:IFuJ%THEN
  723!U%=W%:SYS&400CB,,U%:SYS&400D1,-1,U%!4,U%!16,U%!&C,U%!16+44
  724ENDIF:ENDPROC
  725DEFPROCV(B%,F%):SYS&400F3,,B%,F%:ENDPROC
  726DEFFNJ(r$,W%,H%):LOCALF%:SYS&40081,,r$,16*W%,16*H%,0,0TOF%:=F%
  727DEFPROCQ(H%):SYS&40082,H%:ENDPROC
  728DEFPROCoy(RETURNX%,RETURNY%):SYS&40088,,X%,Y%TO,X%,Y%:ENDPROC
  729DEFPROCL(cy%,W$,_u%,_%,Q%):LOCALO_%,jy%,B_%,`y%,AJ%:SYS&4008A,cy%:SYS&40097,,W$TO,O_%,jy%,B_%,`y%:SYS&40088,,O_%,jy%TO,O_%,jy%:SYS&40088,,B_%,`y%TO,B_%,`y%:AJ%=B_%+O_%:IF_u%=0THEN_%-=AJ%/2ELSEIF_u%>0THEN_%-=AJ%
  730IFFNS(_%,Q%-`y%+jy%,AJ%,`y%-jy%)THENSYS&40086,cy%,W$,1<<4,_%,Q%-`y%
  731ENDPROC
  732DEFPROCey(cy%,W$,Ja%,wi%,_%,Q%,g%):LOCALO_%,jy%,B_%,`y%,AJ%:!J%=0:J%!4=-g%<<16:J%!8=g%<<16:J%!&C=0:J%!16=0:J%!20=0:SYS&4008A,cy%:SYS&40097,,W$TO,O_%,jy%,B_%,`y%:SYS&40088,,O_%,jy%TO,jy%,O_%:SYS&40088,,B_%,`y%TO,`y%,B_%:IFJa%=0THEN_%-=g%*B_%/2ELSEIFJa%=g%THEN_%-=g%*B_%
  733IFwi%=0THENQ%+=g%*`y%/2ELSEIFwi%=-g%THENQ%-=wi%*`y%
  734SYS&40086,cy%,W$,(1<<4)+(1<<6),_%,Q%,0,J%:ENDPROC
  735DEFPROCr(lu%,W$,a%,K%,s%,b%):IFFNS(a%,K%,s%,b%)THEN
  736LOCALA%,cy%,O_%,jy%,B_%,`y%,AJ%,fi%,Xl%,Dl%:SYS&4008A,lu%:cy%=lu%:SYS&40097,lu%,W$TO,O_%,jy%,B_%,`y%:SYS&40088,,B_%+O_%,`y%+jy%TO,AJ%,fi%:IFAJ%>s%THEN
  737SYS&40083,lu%,J%TO,,Xl%,Dl%:WHILEAJ%>s%:Xl%=Xl%*0.95:Dl%=Dl%*0.95:SYS&40081,,J%,Xl%,Dl%:SYS&40097,,W$TOcy%,O_%,jy%,B_%,`y%:SYS&40088,,B_%+O_%,`y%+jy%TO,AJ%,fi%:IFAJ%>s%THENSYS&40082,cy%
  738ENDWHILE
  739ENDIF:SYS&40086,,W$,1<<4,a%,K%:IFcy%<>lu%THENSYS&40082,cy%
  740ENDIF:ENDPROC
  741DEFPROCT(sl%,Cl%,R_%,H_%,g%,Ra%):SYS&400E6,Cl%:CASERa%OF
  742WHEN1:RECTANGLEFILLR_%,H_%,g%:SYS&400E6,sl%:MOVER_%,H_%:MOVEBYg%,0:PLOT&B1,-g%,g%:SYS&400E6,Cl%:MOVER_%,H_%:MOVEBYg%,0:PLOT&A1,-g%,g%
  743WHEN2:RECTANGLEFILLR_%,H_%,-g%,g%:SYS&400E6,sl%:MOVER_%,H_%:MOVEBY0,g%:PLOT&B1,-g%,-g%:SYS&400E6,Cl%:MOVER_%,H_%:MOVEBY0,g%:PLOT&A1,-g%,-g%
  744WHEN3:RECTANGLEFILLR_%,H_%,-g%:SYS&400E6,sl%:MOVER_%,H_%:MOVEBY-g%,0:PLOT&B1,g%,-g%:SYS&400E6,Cl%:MOVER_%,H_%:MOVEBY-g%,0:PLOT&A1,g%,-g%
  745WHEN4:RECTANGLEFILLR_%,H_%,g%,-g%:SYS&400E6,sl%:MOVER_%-2,H_%:MOVEBY0,-g%:PLOT&B1,g%,g%:SYS&400E6,Cl%:MOVER_%,H_%:MOVEBY0,-g%:PLOT&A1,g%,g%
  746ENDCASE:ENDPROC
  747DEFPROCl(_%,Q%,s%,b%,g%):MOVE_%+g%,Q%:DRAWBYs%-2*g%,0:MOVEBYg%,-g%:DRAWBY0,-b%+2*g%:MOVEBY-g%,-g%:DRAWBY-s%+2*g%,0:MOVEBY-g%,g%:DRAWBY0,b%-2*g%:MOVE_%+g%,Q%-g%:MOVEBY0,g%:PLOT&A1,-g%,-g%:MOVE_%+s%-g%,Q%-g%:MOVEBYg%,0:PLOT&A1,-g%,g%:MOVE_%+s%-g%,Q%-b%+g%:MOVEBY0,-g%
  748PLOT&A1,g%,g%:MOVE_%+g%,Q%-b%+g%:MOVEBY-g%,0:PLOT&A1,g%,-g%:ENDPROC
  749DEFPROCYJ:ENDPROC
  750DEFPROCyu:CASEFi%OF
  751WHEN3:PROC__(rJ%)
  752ENDCASE:ENDPROC
  753DEFPROCc:rJ%=-1:Fi%=-1:IFNOTPu%THEN
  754rJ%=FNcy(qJ%):IFrJ%<>-1THENFi%=3
  755ELSEPROCxJ
  756ENDIF:ENDPROC
  757DEFPROCC_(Xu%):CASEZ%(Xu%)OF
  758WHEN2:PROCsu
  759WHEN3:PROCmu
  760ENDCASE:ENDPROC
  761DEFPROCny(h%,a%,K%):SYS&400E6,0:CASEZ%(t%)OF
  762WHEN2:PROCi_(v%,h%,a%,K%)
  763WHEN5:PROCZJ(v%,h%,a%,K%)
  764WHEN1:PROCSJ(v%,h%,a%,K%)
  765WHEN3:PROCUu(v%,h%,a%,K%)
  766ENDCASE:ENDPROC
  767DEFFNyy(w%,Cy%):CASEZ%(t%)OF
  768WHEN2:k%=FNW_(w%,Cy%)
  769WHEN5:k%=FNP_(w%,Cy%)
  770WHEN1:k%=FNfy(w%,Cy%)
  771WHEN3:k%=FNzy(w%,Cy%)
  772ENDCASE:=k%
  773DEFPROCcu(p%,A%):CASEZ%(A%)OF
  774WHEN2:PROCs_(p%,A%)
  775WHEN5:PROCNJ(p%,A%)
  776WHEN1:PROCn_(p%,A%)
  777WHEN3:PROCx_(p%,A%)
  778ENDCASE:ENDPROC
  779DEFFNKy(S%):LOCALou%:CASEZ%(S%)OF
  780WHEN2:ou%=FNay
  781WHEN5:ou%=FN_y
  782WHEN1:ou%=FNM_
  783WHEN3:ou%=FNqy
  784ENDCASE:=ou%
  785DEFPROCby(Xu%):CASEZ%(Xu%)OF
  786WHEN2:PROCA_
  787WHEN3:PROCpJ
  788ENDCASE:ENDPROC
  789DEFPROChy(n%,h%,_%,Q%,o_%,wJ%):CASEZ%(t%)OF
  790WHEN2:PROCru(n%,h%,_%,Q%,o_%,wJ%)
  791WHEN5:PROCf_(n%,h%,_%,Q%,o_%,wJ%)
  792WHEN1:PROCQu(n%,h%,_%,Q%,o_%,wJ%)
  793WHEN3:PROCa_(n%,h%,_%,Q%,o_%,wJ%)
  794ENDCASE:ENDPROC
  795DEFPROCX_(l%):CASEZ%(t%)OF
  796WHEN2:PROCv(l%)
  797WHEN5:PROCHy(l%)
  798WHEN1:PROCNy(l%)
  799WHEN3:PROCXy(l%)
  800ENDCASE:ENDPROC
  801DEFPROCDJ(e%,w%,n%,Xy%,Ty%):CASEZ%(t%)OF
  802WHEN2:PROCZl(e%,w%,n%,Xy%,Ty%)
  803ENDCASE:ENDPROC
  804DEFFNC_(e%,w%,Cy%):LOCALA%:FORA%=1TOiy%:IFNOTk%THEN
  805CASEZ%(A%)OF
  806WHEN2:k%=FNHy(e%,w%,Cy%)
  807WHEN5:k%=FNUy(e%,w%,Cy%)
  808WHEN1:k%=FNLy(e%,w%,Cy%)
  809WHEN3:k%=FNdy(e%,w%,Cy%)
  810ENDCASE
  811ENDIF:NEXT:=k%
  812DEFPROCIJ:PROCDu:PROCMu:PROCqu:PROCuJ:ENDPROC
  813DEFPROCdJ:LOCALA%:FORA%=1TOiy%:CASEZ%(A%)OF
  814WHEN2:PROCm_(A%)
  815WHEN5:PROCWu(A%)
  816WHEN1:PROCCJ(A%)
  817WHEN3:PROCO_(A%)
  818ENDCASE:NEXT:ENDPROC
  819DEFPROCOu:PROCLJ:PROCfu:PROClJ:ENDPROC
  820DEFPROCKu(z%):BPUT#z%,"Address book":PROCuu(z%):BPUT#z%,"Anniversary":PROCsJ(z%):BPUT#z%,"Calendar":PROCe_(z%):BPUT#z%,"Diary":PROCAu(z%):ENDPROC
  821DEFPROCQJ(Ay$,z%):CASEAy$OF
  822WHEN"Address book":PROCvu(z%)
  823WHEN"Anniversary":PROCSu(z%)
  824WHEN"Calendar":PROCqJ(z%)
  825WHEN"Diary":PROCbJ(z%)
  826ENDCASE:ENDPROC
  827DEFPROCaJ(e%,w%,n%,_%,Q%):CASEe%OF
  828WHENA%(2):PROC`u(e%,w%,n%,_%,Q%)
  829WHENA%(3):PROC_J(e%,w%,n%,_%,Q%)
  830WHENA%(4):PROCxu(e%,w%,n%,_%,Q%)
  831WHENA%(5):PROCJu(e%,w%,n%,_%,Q%)
  832ENDCASE:ENDPROC
  833DEFFNF_(e%,w%,Cy%):CASEe%OF
  834WHENA%(2):k%=FNry(e%,w%,Cy%)
  835ENDCASE:=FALSE
  836DEFPROCUJ(p%):CASEYy%OF
  837WHENA%(2):PROCb_(p%,Yy%)
  838WHENA%(3):PROCl_(p%,Yy%)
  839WHENA%(4):PROCGJ(p%,Yy%)
  840WHENA%(5):PROCiJ(p%,Yy%)
  841ENDCASE:ENDPROC
  842DEFPROCBu:PROCR_(A%(2)):PROCfJ(A%(3)):PROCRu(A%(4)):PROCnu(A%(5)):ENDPROC
  843DEFPROCTu:PROCy_(A%(2)):PROCj_(A%(3)):PROCKJ(A%(4)):PROCbu(A%(5)):ENDPROC
  844DEFPROCrJ(My%,p%):CASEZ%(t%)OF
  845WHEN3:PROCiy(My%,p%)
  846ENDCASE:ENDPROC
  847DEFPROCDu:YJ%=FNC("Paste","Paste",1,&A):zy%=-1:P$="":Q$="mailto:":X$="http://":H$="Important numbers":jJ%=-1:uu%=FNC("Import","Import",1,5):f_%=FNC("ABM","ABM",1,6):PROCz(f_%,3,YJ%):F$="":wy%=0:OJ%=0:a_%=-1:Y$="":ku%=0:pu%=0:gJ%=0:F_%=16:Qy%=3::::q_%=2:y_%=-1
  848DIMM%(26),F%(26),A$(&A,&E),Z$(F_%-1,1),L%(&A,1),il%&B,N%(&E):N%()=7:N%(0)=5:L%()=-1:$il%="Pptr_hyper"+CHR$0:M%(0)=1:uy%=0:z$=T$+"Addresses":e$=T$+"Important":ENDPROC
  849DEFFNay=f_%
  850DEFPROCm_(A%):B%(A%)=0:W%(A%)=26:S%(A%)=0:M$(A%)=FNA("AddTab"):PROCz_:PROCa:ENDPROC
  851DEFPROCA_:IFv%=0THENPROCD_(i%,`%,dy%,-o%-j_%,Vy%,TRUE,TRUE)
  852ENDPROC
  853DEFPROCsu:PROCsy:IFz_%=0THENPROCYy
  854ENDPROC
  855DEFPROCi_(v%,h%,a%,K%):LOCALJl%,A%,A$,G%,Zy%,F%,Q%,_%,B%,C%,y%,yJ%,D%,E%,Ou%,Gi%,RJ%,JJ%:JJ%=FNa((m%-(Qy%+2)*24)/Qy%):Jl%=FNJ("Homerton.Medium",&A,&A):Zy%=j_%:SYS&400E6,7:SYS&400F3,,0,7:IF(h%=0)ANDv%>0THENPROCR(0,a%,K%)
  856_%=a%+h%*(j%-40):IFh%=0THEN
  857A%=0:WHILEA%<v%:SYS&400E6,7:LINE_%,K%-Zy%*(A%+1),_%+40,K%-Zy%*(A%+1):IFM%(A%)=0THENRy%=2ELSERy%=5
  858SYS&400F3,,0,Ry%:IFA%=0THENA$="+"ELSEA$=CHR$(64+A%)
  859SYS&40086,Jl%,A$,1<<4,_%+&C,K%-Zy%*A%-Zy%+&A:A%+=1:ENDWHILE:IFv%>0THENSYS&400E6,7:LINE_%+40,K%,_%+40,K%-Zy%*(v%)
  860ELSE:A%=v%:IFA%=0THENA$="+"ELSEA$=CHR$(64+A%)
  861SYS&400E6,7:MOVE_%+40,K%-Zy%*(A%+1):DRAWBY-40,0:DRAW_%,K%-m%:SYS&40086,Jl%,A$,1<<4,_%+&C,K%-Zy%*A%-Zy%+&A:A%+=1:WHILEA%<27:SYS&400E6,7:LINE_%,K%-Zy%*(A%+1),_%+40,K%-Zy%*(A%+1):IFM%(A%)=0THENRy%=2ELSERy%=5
  862SYS&400F3,,0,Ry%:IFA%=0THENA$="+"ELSEA$=CHR$(64+A%)
  863SYS&40086,Jl%,A$,1<<4,_%+&C,K%-Zy%*A%-Zy%+&A:IFM%(A%)>0ANDA%>v%THENF%=-1
  864A%+=1:ENDWHILE
  865ENDIF:IFh%=1AND(F%ORM%(v%)-uy%>2*Qy%)THENPROCR(1,_%-j%,K%)
  866IFv%<>0THEN
  867IFh%=0OR(h%=1ANDuy%+Qy%<=M%(v%))THEN
  868Ou%=FNJ("Trinity.Bold",&E,&E):A%=uy%+h%*Qy%:_%=a%-(40*(h%=0))+&c:WHILEA%<M%(v%)ANDB%<Qy%:Q%=K%-24*(B%+1)-JJ%*B%:IFFNS(_%,Q%,dJ%,-JJ%)THEN
  869SYS&400E6,4:PROCl(_%,Q%,dJ%,JJ%,&c):y%=A%MOD(Qy%*2):A$="":IFA$(y%,1)<>""THENA$=A$(y%,1)+" "
  870A$+=A$(y%,0):PROCV(0,N%(1)):PROCr(Ou%,A$,_%+&C,Q%-40,dJ%-&C,40):D%=0:FORC%=2TO&E:D%-=(A$(y%,C%)<>""):NEXT:IFD%<5THEND%=5
  871Zy%=FNa((JJ%-48)/D%):C%=Zy%/3:IFZy%>30THENZy%=30:C%=&C
  872Gi%=FNJ("Homerton.Medium.Oblique",C%-2,C%-2):RJ%=FNJ("Trinity.Medium",C%,C%):G%=1:FORC%=2TO8:IFA$(y%,C%)<>""THENG%+=1:PROCV(0,N%(C%)):PROCr(RJ%,A$(y%,C%),_%+48,Q%-42-Zy%*(G%-1),dJ%-48,Zy%)
  873NEXT:Q%-=JJ%-&E:FORC%=&ETO9STEP-1:IFA$(y%,C%)<>""THEN
  874A$=FNA("Fld"+STR$(C%-8))+":":SYS&400F3,,0,N%(0):SYS&4008A,Gi%:SYS&40097,,A$TO,D%,,F%:SYS&40088,,F%-D%TO,D%:SYS&40086,,A$,1<<4,_%+92-D%,Q%-4:SYS&400F3,,0,N%(C%):PROCr(RJ%,A$(y%,C%),_%+&64,Q%-4,dJ%-&64,Zy%+4):Q%+=Zy%:IFC%>=&DTHENPROCr_(y%,C%,_%+&64,Q%-4,dJ%-&64,Zy%+4)
  875ENDIF:NEXT:PROCQ(RJ%):PROCQ(Gi%)
  876ENDIF:A%+=1:B%+=1:ENDWHILE:PROCQ(Ou%)
  877ENDIF
  878ELSE:IFh%=0THEN
  879Ou%=FNJ("Trinity.Bold",16,16):SYS&400E6,4:PROCV(0,7):y%=j%-2*&c:PROCl(_%+&c,K%-24,y%,m%-2*24,2*&c):PROCL(Ou%,H$,0,a%+j%/2,K%-24-&C):PROCQ(Ou%):yJ%=&E:RJ%=FNJ("Trinity.Medium",yJ%,yJ%):Zy%=(m%-2*24-68-2*&c)/F_%:Q%=K%-24-68:_%=a%+&c:SYS&400E6,1
  880LINE_%+48,Q%-Zy%*F_%,_%+y%-48,Q%-Zy%*F_%:FORA%=0TOF_%-1:SYS&4008A,RJ%:SYS&400E6,1:LINE_%+48,Q%-Zy%*A%,_%+y%-48,Q%-Zy%*A%:IFFNS(_%,Q%-Zy%*A%,y%,-Zy%)ANDZ$(A%,0)+Z$(A%,1)<>""THEN
  881SYS&40097,,Z$(A%,0)+"  "TO,B%,C%,D%,E%:B%=D%-B%:PROCoy(B%,E%):SYS&40097,,Z$(A%,1)TO,C%,F%,D%:C%=D%-C%:PROCoy(C%,F%):IFB%+C%>y%-24ORE%-F%>Zy%THEN
  882IFZy%/(E%-F%)<(y%-24)/(B%+C%)THENF%=yJ%*Zy%/(E%-F%)ELSEF%=yJ%*(y%-24)/(B%+C%)
  883C%=C%*F%/yJ%:E%=E%*F%/yJ%:F%=FNJ("Trinity.Medium",F%,F%)
  884ELSEF%=RJ%
  885ENDIF:SYS&40086,,Z$(A%,0),1<<4,_%+&C,Q%-Zy%*(A%+0.5)-E%/2:SYS&40086,,Z$(A%,1),1<<4,_%+y%-C%-&C,Q%-Zy%*(A%+0.5)-E%/2:IFF%<>RJ%THENPROCQ(F%)
  886ENDIF:NEXT
  887ENDIF
  888ENDIF:PROCQ(Jl%):ENDPROC
  889DEFPROCs_(p%,Oi%):LOCALA%,B%:B%=wy%:CASE!p%OF
  890WHEN0:FORA%=9TO23:PROCA(`%,A%,A$(B%,A%-9)):NEXT:PROC_(`%,25,0):PROCN(0,0)
  891WHEN1:FORA%=9TO23:PROCA(`%,A%,A$(B%,A%-9)):NEXT:F$="":wy%=-1:PROCN(0,0):PROC_(`%,25,1)
  892WHEN2:PROCqy:IFM%(v%)>0THEN
  893IFM%(v%)<=uy%THENuy%-=2*Qy%
  894PROCN(v%,uy%):uJ%=TRUE
  895ELSEPROCN(0,0)
  896ENDIF
  897WHEN3:IFp%!4>=0THENq_%=p%!4
  898IFv%=0THEN
  899FORA%=0TO&E:A$(B%,A%)=FNZ(`%,A%+9):NEXT
  900ENDIF:CASEq_%OF
  901WHEN0:PROCq(A$(B%,1)+" "+A$(B%,0))
  902WHEN1:FORA%=2TO8:PROCq(A$(B%,A%)):NEXT
  903WHEN2:PROCq(A$(B%,1)+" "+A$(B%,0)):FORA%=2TO8:PROCq(A$(B%,A%)):NEXT
  904WHEN9:PROCq(A$(B%,1)+" "+A$(B%,0)):FORA%=2TO&E:PROCq(A$(B%,A%)):NEXT
  905OTHERWISEPROCq(A$(B%,q_%+6))
  906ENDCASE
  907WHEN4:PROCGy(X$+A$(wy%,&E)):jJ%=1
  908WHEN5:PROCGy(Q$+A$(wy%,&D)):jJ%=2
  909ENDCASE:ENDPROC
  910DEFPROCgy:LOCALA%:A%=(wy%<0):FORB%=0TO3:PROCK(f_%,B%,A%):NEXT:FORA%=0TO9:PROCJ(YJ%,A%,q_%=A%):NEXT:FORB%=4TO5:PROCK(f_%,B%,1):NEXT:IFwy%<>-1THEN
  911IFFNt("Alias$URLOpen_HTTP")THEN
  912PROCK(f_%,4,A$(wy%,&E)="")
  913ENDIF:IFFNt("Alias$URLOpen_MailTo")THEN
  914PROCK(f_%,5,A$(wy%,&D)="")
  915ENDIF
  916ELSEPROCK(f_%,4,1):PROCK(f_%,5,1)
  917ENDIF:ENDPROC
  918DEFPROCv(l%)LOCALA%:A%=v%:IFl%=1THEN
  919IFM%(v%)<=uy%+Qy%*2THEN
  920REPEATA%+=1:UNTILA%>26ORM%(A%MOD27)>0:IFA%<27THENPROCN(A%,0)
  921ELSEPROCN(v%,uy%+Qy%*2)
  922ENDIF
  923ELSE:IFuy%=0ANDv%>0THEN
  924REPEATA%-=1:UNTILM%(A%)>0:PROCN(A%,M%(A%)-1-(M%(A%)-1)MOD(Qy%*2))
  925ELSEIFv%>0THENPROCN(v%,uy%-Qy%*2)
  926ENDIF:IFv%=0THENPROCN(0,0)
  927ENDIF:ENDPROC
  928DEFPROCru(n%,h%,_%,Q%,o_%,wJ%):LOCALy%,A%,B%,X%,Y%,JJ%:JJ%=FNa((m%-(Qy%+2)*24)/Qy%):IFh%<>0THEN
  929X%=&c:IF_%>j%-40ANDn%<>2THEN
  930y%=-Q%DIVj_%:IFy%<27ANDy%>v%THEN
  931IFv%=0THENY$=F$:ku%=wy%:pu%=OJ%
  932IFM%(y%)>0THENPROCN(y%,0)
  933ENDIF
  934ENDIF
  935ELSE:X%=&c+40:IF_%<40ANDn%<>2THEN
  936y%=-Q%DIVj_%:IFy%<v%THEN
  937IFy%=0THENF$=Y$:wy%=ku%:OJ%=pu%
  938IFM%(y%)>0THENPROCN(y%,0)
  939ENDIF
  940ENDIF
  941ENDIF:IFv%>0THEN
  942A%=0:B%=-1:Y%=-24:h%=ABS(h%):F$="":wy%=-1:WHILEA%<Qy%ANDA%+uy%+Qy%*h%<M%(v%):IFFNr(_%,Q%,X%,Y%,dJ%,-JJ%)THENB%=A%+Qy%*h%
  943Y%-=JJ%+24:A%+=1:ENDWHILE:IFB%>=0THEN
  944F$=FNs(A$(B%,0)+" "+A$(B%,1)):wy%=B%:OJ%=B%+uy%:IFn%<>2THEN
  945FORA%=9TO23:PROCA(`%,A%,A$(B%,A%-9)):NEXT:PROC_(`%,25,0):PROCN(0,0)
  946ENDIF
  947ENDIF
  948ELSEIFh%=0ANDn%<>2THEN
  949Zy%=(m%-2*24-68-2*&c)/F_%:Y%=-(Q%+24+68-Zy%)/Zy%:IFY%>0ANDY%<=F_%THEN
  950gJ%=Y%:PROCA(G_%,3,Z$(Y%-1,0)):PROCA(G_%,4,Z$(Y%-1,1)):MOUSEX%,Y%,A%:SYS&400D4,,G_%,o_%+GJ%,Y%:PROCM(G_%,3):QJ%=TRUE
  951ENDIF
  952ENDIF
  953ENDIF:IFn%=2THENPROCgy
  954ENDPROC
  955DEFPROCZl(e%,w%,n%,_%,Q%):CASEe%OF
  956WHEN`%:IFn%<>2THEN
  957CASEw%OF
  958WHEN24:PROCj(TRUE):PROCa
  959WHEN25:PROCqy:PROCa:PROCM(`%,9)
  960WHEN26:PROCa:PROCM(`%,9)
  961WHEN-1,0,1,2,3,4,5,6,7,8:PROCM(i%,-1)
  962ENDCASE
  963ELSEPROCgy:PROCC(f_%,Xy%-64,Ty%,e%,w%)
  964ENDIF
  965WHENG_%:CASEw%OF
  966WHEN5:PROCcy
  967WHEN6:SYS&400D4,,-1:gJ%=0
  968WHEN7:PROCA(G_%,3,""):PROCA(G_%,4,""):PROCM(G_%,3)
  969ENDCASE
  970ENDCASE:ENDPROC
  971DEFFNW_(w%,Cy%):k%=TRUE:CASECy%OF
  972WHEN414:PROCv(-a_%)
  973WHEN415:PROCv(a_%)
  974WHEN43,461:IFv%>0THENF$=Y$:wy%=ku%:OJ%=pu%:PROCN(0,0)
  975OTHERWISE:IFCy%>=97ANDCy%<=&7ATHENL%=Cy%-32-64ELSEL%=Cy%-64
  976IFL%>0ANDL%<28THEN
  977IFv%=0THENY$=F$:ku%=wy%:pu%=OJ%
  978IFM%(L%)>0THENPROCN(L%,0)
  979ELSEk%=FALSE
  980ENDIF
  981ENDCASE:=k%
  982DEFFNHy(e%,w%,Cy%):k%=TRUE:CASEe%OF
  983WHEN`%:CASECy%OF
  984WHEN398,&D,394:IFw%=23THEN
  985CASETRUEOF
  986WHENCy%=&DANDNOTINKEY-2:PROCj(TRUE):PROCa
  987WHENCy%=&DANDINKEY-2:PROCM(`%,20)
  988OTHERWISEPROCM(`%,9)
  989ENDCASE
  990ELSEPROCM(`%,w%+1)
  991ENDIF
  992WHEN399:IFw%=9THENPROCM(`%,23)ELSEPROCM(`%,w%-1)
  993WHEN414:IFINKEY-1THEN
  994CASEw%OF
  995WHEN9,&A,18,19,20,21,22:PROCM(`%,w%+1)
  996WHEN23:PROCM(`%,9)
  997OTHERWISEPROCM(`%,18)
  998ENDCASE
  999ELSEPROCv(-a_%)
 1000ENDIF
 1001WHEN415:IFINKEY-1THEN
 1002CASEw%OF
 1003WHEN&A,&B,19,20,21,23:PROCM(`%,w%-1)
 1004WHEN9:PROCM(`%,23)
 1005OTHERWISEPROCM(`%,&B)
 1006ENDCASE
 1007ELSEPROCv(a_%)
 1008ENDIF
 1009WHEN461:PROCj(TRUE):PROCa
 1010WHEN83-64:PROCM(`%,9)
 1011WHEN70-64:PROCM(`%,&A)
 1012WHEN65-64:PROCM(`%,&B)
 1013WHEN84-64:PROCM(`%,18)
 1014WHEN88-64:IFwy%<>-1THENPROCqy:PROCa:PROCM(`%,9)
 1015WHEN69-64:PROCM(`%,22)
 1016WHEN87-64:PROCM(`%,23)
 1017OTHERWISEk%=FALSE
 1018ENDCASE
 1019WHENG_%:CASECy%OF
 1020WHEN398,399:PROCM(G_%,7-w%)
 1021WHEN&D:IFw%=3THENPROCM(G_%,4)ELSEPROCcy
 1022OTHERWISEk%=FALSE
 1023ENDCASE
 1024OTHERWISEk%=FALSE
 1025ENDCASE:=k%
 1026DEFPROCuu(z%):LOCALA%:BPUT#z%,H$:BPUT#z%,Qy%:BPUT#z%,q_%:BPUT#z%,a_%+5:BPUT#z%,Q$:BPUT#z%,X$:FORA%=0TO&E:BPUT#z%,N%(A%):NEXT:ENDPROC
 1027DEFPROCvu(z%):LOCALA%:H$=GET$#z%:Qy%=BGET#z%:q_%=BGET#z%:a_%=BGET#z%-5:Q$=GET$#z%:X$=GET$#z%:FORA%=0TO&E:N%(A%)=BGET#z%:NEXT:ENDPROC
 1028DEFPROC`u(s%,Sy%,p%,_%,Q%):LOCALA%:CASETRUEOF
 1029WHENSy%>=3ANDSy%<=&D:IFn%<>2THENPROCZ(s%,Sy%,1)
 1030WHENSy%=9:FORA%=0TO9:PROCJ(YJ%,A%,q_%=A%):NEXT:PROCC(YJ%,_%,Q%,s%,Sy%)
 1031WHENSy%>=22ANDSy%<=36:FORA%=0TO&E:PROCJ(By%,A%,FNq(s%,Sy%)=A%):NEXT:PROCC(By%,_%,Q%,s%,Sy%)
 1032ENDCASE:ENDPROC
 1033DEFFNry(s%,Sy%,qa%):LOCALju%,c%:k%=FALSE:CASESy%OF
 1034WHEN1:c%=17:ju%=18
 1035WHEN17:c%=18:ju%=1
 1036WHEN18:c%=1:ju%=17
 1037ENDCASE:CASEqa%OF
 1038WHEN&D,394,398:IFc%<>0THENPROCM(s%,c%):k%=TRUE
 1039WHEN399:IFju%<>0THENPROCM(s%,ju%):k%=TRUE
 1040ENDCASE:=TRUE
 1041DEFPROCb_(p%,s%):LOCALA%:CASE__%OF
 1042WHEN8:q_%=!p%:FORA%=0TO9:PROCJ(YJ%,A%,q_%=A%):NEXT:PROCA(s%,8,FNW(YJ%,!p%))
 1043OTHERWISEFORA%=0TO&F:PROCJ(By%,A%,!p%=A%):NEXT:PROCU(s%,__%,!p%)
 1044ENDCASE:ENDPROC
 1045DEFPROCR_(s%):LOCALA%:PROCA(s%,1,H$):FORA%=1TO5:PROCZ(s%,A%+2,-(Qy%=A%)):NEXT:PROCA(s%,8,FNW(YJ%,q_%)):PROCA(s%,17,X$):PROCA(s%,18,Q$):PROCZ(s%,&C,-(a_%=-1)):PROCZ(s%,&D,-(a_%=1)):FORA%=0TO&E:PROCU(s%,A%+22,N%(A%)):NEXT:ENDPROC
 1046DEFPROCy_(s%):LOCALA%,B%:H$=FNZ(s%,1):X$=FNZ(s%,17):Q$=FNZ(s%,18):B%=Qy%:FORA%=1TO5:IFFNM(s%,A%+2)THENQy%=A%
 1047NEXT:IFA%<>B%ANDt%=FNP(2)THENPROCN(v%,0)
 1048IFFNM(s%,&C)THENa_%=-1ELSEa_%=1
 1049FORA%=0TO&E:N%(A%)=FNq(s%,A%+22):NEXT:ENDPROC
 1050DEFPROCN(y%,iu%):IFv%=0ANDy%<>0THENPROCM(i%,-1):PROCYy
 1051IFy%=0THENPROCD_(i%,`%,dy%,-o%-j_%,Vy%,TRUE,TRUE)
 1052py%=0:IFy%<v%py%=-1
 1053IFy%>v%py%=1
 1054IFpy%=0THEN
 1055uJ%=iu%<>uy%:IFiu%<uy%THENpy%=-1
 1056IFiu%>uy%THENpy%=1
 1057ENDIF:v%=y%:uy%=iu%:PROCsy:IFy%<>0THENPROCXJ(y%,iu%)
 1058ENDPROC
 1059DEFPROCcyLOCALZy%,Y%:Z$(gJ%-1,0)=FNZ(G_%,3):Z$(gJ%-1,1)=FNZ(G_%,4):Zy%=(m%-2*24-68-2*&c)/F_%:Y%=o%+24+68+Zy%*(gJ%-1):PROCD(i%,yy%+&C,-Y%,GJ%-&C,-Y%-Zy%):ey%=TRUE:IFNOTFNGyTHENSYS&400D4,,-1:gJ%=0
 1060ENDPROC
 1061DEFPROCaLOCALA%:FORA%=9TO23:PROCA(`%,A%,""):NEXT:F$="":wy%=-1:PROC_(`%,25,1):ENDPROC
 1062DEFPROCqy:LOCAL_y%:PROCZ_:_y%=FN_(F$)-64:M%(_y%)-=1:F$="":wy%=-1:IFM%(_y%)=0THENF%(_y%)=-1
 1063PROCD(i%,dy%+j%-40,-o%-j_%*_y%,dy%+j%,-o%-j_%*(_y%+1)):PROCD(i%,yy%,-o%-j_%*_y%,yy%+40,-o%-j_%*(_y%+1)):ey%=TRUE:ENDPROC
 1064DEFPROCZ_:LOCALB%,L%,A%:B%=y_%:L%=FN_(F$)-64:B%=F%(L%):A%=OJ%:WHILEA%>0:B%=B%!4:A%-=1:ENDWHILE:IFOJ%=0THENF%(L%)=B%!4
 1065IFB%!4<>-1THEN!(B%!4)=!B%
 1066IF!B%=-1THENy_%=B%!4ELSE!(!B%+4)=B%!4
 1067PROCDy(w_%,B%,TRUE):ENDPROC
 1068DEFPROCj(Ha%):LOCALO%,L%,L$:L$=FNv(FNZ(`%,9)+" "+FNZ(`%,&A)):L%=FN_(L$)-64:M%(L%)+=1:IFF$=""THENO%=L%ELSEO%=FN_(F$)-64:M%(O%)-=1
 1069IFwy%<0THENPROCG_ELSEPROCZ_:PROCG_
 1070F$="":wy%=-1:IFHa%THENPROCFu(L$)
 1071ey%=TRUE:ENDPROC
 1072DEFPROCFu(A$):LOCALB%,A%,P%:P%=FN_(A$)-64:B%=F%(P%):WHILEFNs(FNT(B%,0)+" "+FNT(B%,1))<>L$:B%=B%!4:A%+=1:ENDWHILE:PROCN(P%,A%-A%MOD(2*Qy%)):ENDPROC
 1073DEFPROCG_:LOCALA%,B%,C%,S%:S%=&C:FORA%=9TO23:S%+=LENFNZ(`%,A%)+1:NEXT:C%=FNw(w_%,S%,TRUE):B%=y_%:C%!8=S%:S%=C%+&C:FORA%=9TO23:$(S%)=FNZ(`%,A%)+CHR$&A:S%+=LEN($S%):NEXT:A%=FN_(FNZ(`%,9)+" "+FNZ(`%,&A))-64:IFF%(A%)=-1THENF%(A%)=C%:A%-=1
 1074IFB%<>-1THEN
 1075WHILEF%(A%)=-1ANDA%>1:A%-=1:ENDWHILE:IFF%(A%)<>-1THENB%=F%(A%)
 1076WHILEFNv(FNT(B%,0)+" "+FNT(B%,1))<L$ANDB%!4<>-1:B%=B%!4:ENDWHILE:IFFNv(FNT(B%,0)+" "+FNT(B%,1))>=L$THEN
 1077IFF%(A%)=B%THENF%(A%)=C%
 1078!C%=!B%:C%!4=B%:!B%=C%:IF!C%<>-1THEN!(!C%+4)=C%ELSEy_%=C%
 1079ELSE:B%!4=C%:!C%=B%:C%!4=-1
 1080ENDIF
 1081ELSEy_%=C%:!C%=-1:C%!4=-1:F%(A%)=C%
 1082ENDIF:ENDPROC
 1083DEFFN_(A$):LOCALB%:B%=ASC(FNv(A$)):IFB%<65THENB%=65
 1084=B%
 1085DEFFNv(A$):LOCALB%:A$=FNs(A$):B%=ASCLEFT$(A$,1):WHILENOT(B%>47ANDB%<58)ANDNOT(B%>64ANDB%<91)ANDA$<>"":A$=MID$(A$,2):B%=ASCLEFT$(A$,1):ENDWHILE:=A$
 1086DEFPROCty(l%,y%):LOCALA%:_y%=j%-40:y%!8=!y%+_y%:y%!48=y%!40+_y%:y%+=88+8:FORA%=&BTO17:y%!(A%*32)=_y%-16:NEXT:FORA%=8TO23:A%-=7*(A%=&B):y%!(A%*32)=_y%:NEXT:y%!(24*32-8)=(_y%-384)/4:y%!(24*32)=y%!(24*32-8)+&80
 1087y%!(25*32-8)=y%!(24*32)+(_y%-384)/4:y%!(25*32)=y%!(25*32-8)+&80:y%!(26*32-8)=y%!(25*32)+(_y%-384)/4:y%!(26*32)=y%!(26*32-8)+&80:ENDPROC
 1088DEFPROCz_:LOCALA%,B%,C%,S%,z%,L%:FORA%=0TO26:M%(A%)=0:F%(A%)=-1:NEXT:M%(0)=1:C%=-1:y_%=-1:F_%=16:z%=OPENIN(z$):IFNOTlJ%ANDz%<>0THEN
 1089WHILENOTEOF#z%:S%=VALGET$#z%:B%=FNw(w_%,S%,TRUE):IFC%<>-1THENC%!4=B%ELSEy_%=B%
 1090!B%=C%:B%!8=S%:SYS&C,4,z%,B%+&C,S%-&C:L%=FN_(FNT(B%,0)+" "+FNT(B%,1))-64:M%(L%)+=1:IFF%(L%)=-1THENF%(L%)=B%
 1091C%=B%:IFs_%THENPROCd(NOT1)
 1092ENDWHILE:IFy_%<>-1THENB%!4=-1
 1093CLOSE#z%
 1094ENDIF:z%=OPENINe$:IFNOTlJ%ANDz%<>0THEN
 1095F_%=VALGET$#z%:FORB%=0TOF_%-1:Z$(B%,0)=GET$#z%:Z$(B%,1)=GET$#z%:NEXT:CLOSE#z%
 1096ENDIF:ENDPROC
 1097DEFPROCLJ:LOCALz%,B%,S%,A%:z%=OPENOUTz$:B%=y_%:WHILEB%<>-1:BPUT#z%,STR$B%!8:SYS&C,2,z%,B%+&C,B%!8 -&C:B%=B%!4:ENDWHILE:CLOSE#z%:z%=OPENOUTe$:BPUT#z%,STR$F_%:FORA%=0TOF_%-1:BPUT#z%,Z$(A%,0)+CHR$&A+Z$(A%,1):NEXT:CLOSE#z%:z%=0:ENDPROC
 1098DEFPROCXJ(_y%,ki%):IF_y%>0THEN
 1099LOCALA%,B%,C%,F%:B%=F%(_y%):WHILEki%>0:B%=B%!4:ki%-=1:ENDWHILE:REPEATFORC%=0TO&E:A$(A%,C%)=FNT(B%,C%):NEXT:A%+=1:F%=(A%>Qy%*2-1)ORB%!4=-1:B%=B%!4:IFNOTF%THENF%=(FN_(FNT(B%,0)+" "+FNT(B%,1))-64<>_y%)
 1100UNTILF%
 1101ENDIF:ENDPROC
 1102DEFFNT(B%,L%):LOCALA$:B%+=&C:WHILEL%>0:WHILE?B%<>&A:B%+=1:ENDWHILE:B%+=1:L%-=1:ENDWHILE:WHILE?B%<>&A:A$+=CHR$?B%:B%+=1:ENDWHILE:=A$
 1103DEFPROCRJ(S$):LOCALt$,A%,B%,S%,I%,xa%,ea%,Wa%,kl%:pJ%=0:nJ%=0:z%=OPENINS$:WHILENOTEOF#z%:t$=GET$#z%:A%=FNJ_(t$):IFA%>nJ%THENnJ%=A%
 1104pJ%+=1:ENDWHILE:CLOSE#z%:z%=0:IFnJ%>0THEN
 1105SYS&400D9,,J$+".Resources.Default.Templates":SYS&400DB,,,0,0,0,"Import"TO,Wa%,kl%:SYS30,6,,,Wa%TO,,zl%;xa%:SYS30,6,,,kl%TO,,tl%;ea%:SYS&400DB,,zl%,tl%,tl%+kl%,Yl%,"Import",0:SYS&400C1,,zl%TOzy%:SYS&400DA:P$=S$
 1106B%=1:FORA%=&ATO52STEP3:PROCA(zy%,A%,STR$B%):IFB%>0THENB%+=1:IFB%>nJ%THENB%=0
 1107NEXT:PROCA(zy%,54,FNA("Import1")):PROCA(zy%,55,FNA("Import1")):PROCf(S$,1)
 1108ELSEP$="":PROCB(FNA("ErrCSV"))
 1109ENDIF:ENDPROC
 1110DEFPROCCy:pJ%=0:nJ%=0:IFP$<>""THENOSCLI"Remove "+P$:P$=""
 1111IFzy%<>-1THEN
 1112!U%=zy%:zy%=-1:SYS&400C3,,U%:SYS30,7,,zl%:SYS30,7,,tl%
 1113ENDIF:ENDPROC
 1114DEFPROCf(S$,Kl%):LOCALA%,B%,S%,m$,h_%:m$=FNsy(S$,Kl%):F$="":wy%=-1:PROC_(`%,25,1):FORA%=9TO23:B%=&A+(A%-9)*3:h_%=VALFNZ(zy%,B%):IFB%<&ETHEN
 1115S%=FNk(uu%,FNZ(zy%,55+(B%=&A)))
 1116ELSES%=0
 1117ENDIF:IFh_%>0THEN
 1118PROCA(`%,A%,FNey(m$,h_%,S%))
 1119ELSEPROCA(`%,A%,"")
 1120ENDIF:NEXT:PROCA(zy%,59,STR$Kl%):IFNOTVy%THENPROCw(i%,-1,-1)
 1121V_%=t%:z_%=v%:t%=FNP(2):PROCN(0,0):IFV_%<>t%ORz_%<>v%THENpy%=0:PROCO
 1122PROCw(zy%,-1,0):ENDPROC
 1123DEFFNsy(S$,Kl%):LOCALA$:z%=OPENINS$:WHILEKl%>0:A$=GET$#z%:Kl%-=1:ENDWHILE:CLOSE#z%:z%=0:=A$
 1124DEFFNey(A$,h_%,wa%):LOCALCJ%,B%,Z$,Il%:WHILEh_%>1ANDA$<>"":IFASCA$=34THENCJ%=NOTCJ%
 1125IFASCA$=44ANDNOTCJ%THENh_%-=1
 1126A$=MID$(A$,2):ENDWHILE:IFASCA$=34THENCJ%=TRUE:A$=MID$(A$,2)
 1127WHILENOTIl%:IFASCA$=34ORA$=""THENCJ%=FALSE:Il%=TRUE
 1128IFASCA$=44ANDNOTCJ%THENIl%=TRUE
 1129IFNOTIl%THENZ$+=LEFT$(A$,1):A$=MID$(A$,2)
 1130ENDWHILE:CASEwa%OF
 1131WHEN1:Z$=LEFT$(Z$,INSTR(Z$," ")-1)
 1132WHEN2:Z$=MID$(Z$,INSTR(Z$," ")+1)
 1133WHEN3:IFINSTR(Z$," ")>0THEN
 1134B%=LENZ$:REPEATB%-=1:UNTILMID$(Z$,B%,1)=" ":Z$=LEFT$(Z$,B%-1)
 1135ELSEZ$=""
 1136ENDIF
 1137WHEN4:WHILEINSTR(Z$," "):Z$=MID$(Z$,INSTR(Z$," ")+1):ENDWHILE
 1138ENDCASE:=Z$
 1139DEFFNJ_(A$):LOCALCi%,CJ%:WHILEA$<>"":IFASCA$=34THENCJ%=NOTCJ%
 1140IFASCA$=44ANDNOTCJ%THENCi%+=1
 1141A$=MID$(A$,2):ENDWHILE:=Ci%-(Ci%>0)
 1142DEFPROCh_(e%,w%,n%,Xy%,Ty%):LOCALA%,B%:CASETRUEOF
 1143WHENw%=58ORw%=60:A%=VALFNZ(e%,59)-(w%-59):IFA%>0ANDA%<=pJ%THENPROCA(e%,59,STR$A%):PROCf(P$,A%)
 1144WHENw%>=9ANDw%<=53:B%=&A+3*((w%-9)DIV3):A%=VALFNZ(e%,B%)+(w%-B%)*(1+2*(n%=1)):IFA%>=0ANDA%<=nJ%THEN
 1145PROCA(e%,B%,STR$A%):PROCf(P$,VALFNZ(e%,59))
 1146ENDIF
 1147WHENw%=54ORw%=55:PROCC(uu%,Xy%,Ty%,e%,w%)
 1148WHENw%=66:PROCj(FALSE):A%=VALFNZ(zy%,59)+1:IFA%>0ANDA%<=pJ%THENPROCA(zy%,59,STR$A%):PROCf(P$,A%)
 1149WHENw%=67:REPEAT:PROCj(FALSE):A%=VALFNZ(zy%,59)+1:IFA%>0ANDA%<=pJ%THENPROCA(zy%,59,STR$A%):PROCf(P$,A%)
 1150UNTILA%>pJ%
 1151WHENw%=68:PROCCy
 1152ENDCASE:ENDPROC
 1153DEFPROCPJ(w%,I%):PROCA(zy%,w%,FNW(uu%,I%)):PROCf(P$,VALFNZ(zy%,59)):ENDPROC
 1154DEFPROCr_(y%,ll%,_%,Q%,s%,b%):!J%=i%:IFL%(y%,ll%-&D)<>-1THENJ%!4=L%(y%,ll%-&D):SYS&400C4,,J%
 1155SYS&400CB,,J%:Q%-=8:b%-=8:J%!4=_%-J%!4:J%!8=Q%-J%!16-b%:J%!&C=J%!4+s%:J%!16=J%!8+b%:J%!20=&7003119:J%!24=Ol%:J%!28=il%:J%!32=0:SYS&400C2,,J%TOL%(y%,ll%-&D):ENDPROC
 1156DEFPROCsy:LOCALy%,Py%:!J%=i%:FORy%=0TO&A:FORPy%=0TO1:IFL%(y%,Py%)<>-1THENJ%!4=L%(y%,Py%):SYS&400C4,,J%
 1157NEXT,:L%()=-1:ENDPROC
 1158DEFPROCo_(w%):LOCALy%,Py%,Ba%,Hi%,A$:FORy%=0TO&A:FORPy%=0TO1:IFL%(y%,Py%)=w%THENBa%=y%:Hi%=Py%
 1159NEXT,:IFHi%=0THENA$=Q$:jJ%=2ELSEA$=X$:jJ%=1
 1160PROCGy(A$+A$(Ba%,Hi%+&D)):ENDPROC
 1161DEFPROCGy(i$):!J%=256:J%!4=su%:J%!16=&4AF80:$(J%+20)=i$:SYS&400E7,18,J%,0:ENDPROC
 1162DEFPROCMu:DIMC%(&C),U%(&C):Dy%=3:DJ%=&B:e_%=-1:C%()=-1:w$=T$+"Anni":`l%=0:WJ%=-1:PJ%=-1:yl%=FNC("ANM","ANM",1,4):ENDPROC
 1163DEFFN_y=yl%
 1164DEFPROCWu(A%):B%(A%)=1:W%(A%)=&C:S%(A%)=1:M$(A%)=FNA("AnnTab"):PROCL_:ENDPROC
 1165DEFPROCZJ(v%,h%,a%,K%):LOCALJy%,Q%,r%:Jy%=(m%-Dy%*20-20)/Dy%:Q%=0:FORr%=v%+Dy%*ABSh%TOv%+Dy%*ABSh%+Dy%-1:Q%+=20+Jy%:PROCkJ(r%,a%+20,K%-Q%+Jy%,j%-40,Jy%):NEXT:IFh%=0ANDv%>1THENPROCR(h%,a%,K%)
 1166IFh%ANDr%<&CTHENPROCR(h%,a%,K%)
 1167ENDPROC
 1168DEFPROCNJ(p%,Oi%):CASE!p%OF
 1169WHEN0:IFPJ%<>-1THENPROCp(PJ%,-1)
 1170WHEN1:IFPJ%<>-1THENPROCp(PJ%,0)
 1171WHEN2:IFPJ%<>-1THENPROCUy(PJ%)
 1172WHEN3:PROCWy("X�s %n%t birthday",Uy%,Ua%,Fy%,0,0)
 1173ENDCASE:ENDPROC
 1174DEFPROCHy(l%):v%+=l%*2*Dy%:IFv%+2*Dy%>&DTHENv%-=2*Dy%
 1175IFv%<1THENv%=1
 1176ENDPROC
 1177DEFPROCf_(n%,h%,_%,Q%,o_%,wJ%):LOCALJy%,r%:Jy%=(m%-20)/Dy%:r%=-Q%DIVJy%+1:Q%+=(r%-1)*Jy%+20:IFQ%>0ORr%>Dy%OR_%<20OR_%>j%-40THENr%=0
 1178IFh%THENo_%=dy%+20ELSEo_%=yy%+20
 1179wJ%=-o%-20-Jy%*(r%-1):IFr%<>0THENPROCju(r%+Dy%*ABSh%+v%-1,n%,_%-20,Q%,o_%,wJ%,j%-40,-Jy%+20)
 1180ENDPROC
 1181DEFFNP_(w%,Cy%):k%=TRUE:CASECy%OF
 1182WHEN414:PROCHy(1)
 1183WHEN415:PROCHy(-1)
 1184OTHERWISEk%=FALSE
 1185ENDCASE:=k%
 1186DEFFNUy(e%,w%,Cy%):k%=FALSE:IFe%=Hy%THEN
 1187k%=TRUE:CASECy%OF
 1188WHEN394,398,399:PROCM(Hy%,6-w%)
 1189WHEN4,24:IFe_%<>-1THENPROCUy(e_%)
 1190WHEN27:PROCy
 1191WHEN&D:IFw%=2THEN
 1192IFFNSy(FNZ(Hy%,2),d%,q%,x%)THENPROCM(Hy%,4)
 1193ELSEPROCky
 1194ENDIF
 1195OTHERWISEk%=FALSE
 1196ENDCASE
 1197ENDIF:=k%
 1198DEFPROCfu:LOCALB%:z%=OPENOUTw$:B%=WJ%:WHILEB%<>-1:BPUT#z%,STR$B%!8:SYS&C,2,z%,B%+&C,B%!8 -&C:B%=B%!4:ENDWHILE:CLOSE#z%:z%=0:ENDPROC
 1199DEFPROCsJ(z%):BPUT#z%,DJ%:BPUT#z%,Dy%:ENDPROC
 1200DEFPROCSu(z%):DJ%=BGET#z%:Dy%=BGET#z%:ENDPROC
 1201DEFPROC_J(s%,Sy%,p%,_%,Q%):CASESy%OF
 1202WHEN1:PROCH(By%,0,-1):PROCJ(By%,FNq(s%,Sy%),1):PROCC(By%,_%,Q%,s%,Sy%)
 1203WHEN2,3,4,5:IFn%<>2THENPROCZ(s%,Sy%,1)
 1204ENDCASE:ENDPROC
 1205DEFPROCl_(My%,Ya%):PROCU(Ya%,1,!My%):PROCH(By%,0,-1):PROCJ(By%,!My%,1):ENDPROC
 1206DEFPROCfJ(s%):LOCALA%:PROCU(s%,1,DJ%):FORA%=2TO5:PROCZ(s%,A%,0):NEXT:IFDy%<5THENPROCZ(s%,Dy%+1,1)ELSEPROCZ(s%,5,1)
 1207ENDPROC
 1208DEFPROCj_(s%):LOCALA%,B%:B%=Dy%:DJ%=FNq(s%,1):A%=2:WHILEA%<5ANDNOTFNM(s%,A%):A%+=1:ENDWHILE:IFA%<5THENDy%=A%-1ELSEDy%=6
 1209IFB%<>Dy%THENU%()=0
 1210IFS%(FNP(5))+2*Dy%>&DTHEN
 1211IFZ%(t%)=5THENv%=&D-2*Dy%ELSES%(FNP(5))=&D-2*Dy%
 1212ENDIF:ENDPROC
 1213DEFPROCkJ(r%,a%,K%,s%,b%):LOCALcJ%,B%,Gy%,A%,Q%:B%=C%(r%):Gy%=28:IFFNS(a%,K%,s%,-b%)THEN
 1214cJ%=FNJ("Homerton.Bold",&C,&C):v_%=FNJ("Homerton.Medium",&A,&A):PROCV(0,7):IFr%=by%THENSYS&400E6,!SJ%ELSESYS&400E6,5
 1215PROCl(a%,K%,s%,b%,20):PROCL(cJ%,FNU(r%,-1),0,a%+s%/2,K%-&A):Q%=40:A%=U%(r%):WHILEA%>0:B%=B%!4:A%-=1:ENDWHILE:WHILEB%<>-1ANDQ%+Gy%-5<=b%:IFFNS(a%+20,K%-Q%-25,s%-50,Gy%)THEN
 1216PROCr(v_%,FN`(B%,FNL),a%+70,K%-Q%-20,s%-70,Gy%):PROCL(v_%,STR$(B%?&C),1,a%+60,K%-Q%-4)
 1217ENDIF:Q%+=Gy%:B%=FNZy(B%,r%):ENDWHILE:IFB%<>-1THENMOVEa%+8,K%-b%+20:MOVEBY18,0:PLOT81,-9,-18
 1218IFU%(r%)<>0THENMOVEa%+8,K%-60:MOVEBY18,0:PLOT81,-9,18
 1219PROCQ(cJ%):PROCQ(v_%)
 1220ENDIF:ENDPROC
 1221DEFPROCju(r%,n%,_%,Q%,a%,K%,s%,b%):LOCALL%,A%,B%,C%,N%,Gy%,A$:Gy%=28:C%=(-Q%-70+2*Gy%)DIVGy%+U%(r%):N%=-((b%+40)DIVGy%):A%=0:B%=C%(r%):WHILEB%<>-1:A%+=1:B%=FNZy(B%,r%):ENDWHILE:FORL%=0TO2:PROCK(yl%,L%,1):NEXT:PJ%=-1:Ua%=r%:CASETRUEOF
 1222WHEN_%>35ANDQ%<-40AND_%<s%ANDC%>0ANDC%<=A%:B%=C%(r%):WHILEC%>1:C%-=1:B%=FNZy(B%,r%):ENDWHILE:IFn%=2THEN
 1223FORL%=0TO2:PROCK(yl%,L%,0):NEXT:PJ%=B%
 1224ELSEPROCp(B%,n%=4)
 1225ENDIF
 1226WHENn%=2
 1227WHEN_%>0AND_%<30ANDQ%-20<b%:IFU%(r%)<A%-N%THENU%(r%)+=1:PROCD(i%,a%,K%,a%+s%,K%+b%)
 1228WHEN_%>0AND_%<30ANDQ%>-60ANDQ%<=-42:IFU%(r%)>0THENU%(r%)-=1:PROCD(i%,a%,K%,a%+s%,K%+b%)
 1229OTHERWISEIFn%<>2THENPROCWy("Chris� %n%t birthday",Uy%,r%,Fy%,0,0)
 1230ENDCASE:ENDPROC
 1231DEFPROCY_(d%,q%,N%,n%):LOCALB%:B%=-1:WHILEN%>0:B%=FNm(d%,q%,B%):N%-=1:ENDWHILE:PROCp(B%,n%=4):ENDPROC
 1232DEFPROCp(B%,ty%):LOCALA%,A$:IFty%THENe_%=B%ELSEe_%=-1
 1233A%=B%+16:WHILE?A%<>&B:A$+=CHR$?A%:A%+=1:ENDWHILE:PROCWy(A$,B%?&C,(B%!&C>>8)AND&F,(B%!&C>>&C)AND&FFF,B%?&F,ty%):ENDPROC
 1234DEFPROCWy(W$,c%,r%,Q%,h_%,ty%):PROCA(Hy%,4,W$):PROCA(Hy%,2,STR$c%+"/"+STR$r%+"/"+STR$Q%):ol%=h_%:IFh_%=0THENh_%=DJ%
 1235PROCU(Hy%,4,h_%):PROC_(Hy%,&D,(ty%=0)):IFty%=0THENA$=FNA("anset")ELSEA$=FNA("anedit")
 1236PROCG(Hy%):PROCx(Hy%,TRUE,TRUE):PROCM(Hy%,2):QJ%=TRUE:PROCi(Hy%,Na%,A$,0):ENDPROC
 1237DEFFNZy(B%,q%):LOCALA%,C%,c%,r%,Q%:B%=B%!4:IF((B%!&C>>8)AND&F)<>q%THENB%=-1
 1238=B%
 1239DEFFN`(B%,Fy%):LOCALA%,C%,c%,Q%,A$:Q%=(B%!&C>>&C)AND&FFF:IFQ%<=Fy%THEN
 1240C%=B%?&F:C%-=DJ%*(C%=0):PROCV(0,C%):A%=B%+16:WHILE?A%<>&B:IF?A%=37THENA%+=1:A$+=FNhy(?A%,Q%,Fy%)ELSEA$+=CHR$?A%
 1241A%+=1:ENDWHILE
 1242ENDIF:=A$
 1243DEFPROCtJ(w%):LOCALc%,r%,Q%:CASEw%OF
 1244WHEN5:!J%=Hy%:SYS&400CB,,J%:PROCC(Fl%,J%!&C+66,J%!16,e%,w%)
 1245WHEN&B:PROCky
 1246WHEN&C:PROCy
 1247WHEN&D:PROCUy(e_%)
 1248ENDCASE:ENDPROC
 1249DEFPROCky:LOCALA$,d%,q%,x%:A$=FNZ(Hy%,4):IFA$<>""THEN
 1250IFFNSy(FNZ(Hy%,2),d%,q%,x%)THEN
 1251IFe_%<>-1THENPROCxy(e_%)
 1252PROCHJ(A$,d%,q%,x%,ol%):U%()=0:PROCy:ey%=TRUE:IFVy%AND(Z%(t%)=5ORZ%(t%)=3)THENPROCO
 1253ELSEPROCM(Hy%,2)
 1254ENDIF
 1255ELSEPROCB(FNA("ErrMes"))
 1256ENDIF:ENDPROC
 1257DEFPROCy:e_%=-1:PROCG(Hy%):PROCG(ay%):IFVy%THENPROCM(i%,-1)
 1258ENDPROC
 1259DEFFNSy(A$,RETURNc%,RETURNr%,RETURNQ%):LOCALA%:c%=VALA$:A$=MID$(A$,INSTR(A$,"/")+1):r%=VALA$:A$=MID$(A$,INSTR(A$,"/")+1):Q%=VALA$:A%=FALSE:CASETRUEOF
 1260WHENr%<1ORr%>&C:PROCB(FNA("ErrMonth"))
 1261WHENQ%<1ORQ%>&FFF:PROCB(FNO("ErrYear","1","4095","",""))
 1262WHENc%<1:PROCB(FNA("ErrDateZ"))
 1263WHENc%>FNX(r%,Q%):PROCB(FNO("ErrDate",STR$FNX(r%,Q%),FNU(r%,-1)+STRING$(-(r%=2)," "+STR$Q%),"",""))
 1264OTHERWISEA%=TRUE
 1265ENDCASE:=A%
 1266DEFPROCHJ(v$,d%,q%,x%,h_%):LOCALgy%,Wy%,S%,B%,Oy%,T%,A_%:A_%=d%+(q%<<8)+(x%<<&C)+(h_%<<24):Oy%=FALSE:S%=LENv$+1+16:Wy%=WJ%:gy%=-1:WHILEWy%<>-1ANDNOTOy%:IFFNRy(d%,q%,Wy%!&C)THENOy%=TRUEELSEgy%=Wy%:Wy%=Wy%!4
 1267ENDWHILE:B%=FNw(w_%,S%,TRUE):!B%=gy%:B%!4=Wy%:B%!8=S%:B%!&C=A_%:$(B%+16)=v$+CHR$&B:IFgy%=-1THENWJ%=B%ELSEgy%!4=B%
 1268IFWy%<>-1THEN!Wy%=B%
 1269IFC%(q%)=Wy%ORC%(q%)=-1THENC%(q%)=B%
 1270ENDPROC
 1271DEFPROCUy(B%):PROCxy(B%):PROCy:ey%=TRUE:IFB%=e_%THENe_%=-1
 1272IFVy%AND(Z%(t%)=5ORZ%(t%)=3)THENPROCO
 1273ENDPROC
 1274DEFPROCxy(B%):LOCALgy%,Wy%,r%,Pi%:Pi%=-1:gy%=!B%:Wy%=B%!4:r%=(B%!&C>>8)AND&F:U%(r%)=0:IFgy%<>-1THENgy%!4=Wy%
 1275IFWy%<>-1THEN!Wy%=gy%:IF((Wy%!&C>>8)AND&F)=r%THENPi%=Wy%
 1276IFWJ%=B%THENWJ%=Wy%
 1277IFC%(r%)=B%THENC%(r%)=Pi%
 1278PROCDy(w_%,B%,TRUE):ENDPROC
 1279DEFFNRy(c%,r%,T%):LOCALg%,Nl%,ru%:Nl%=T%AND&FF:ru%=(T%>>8)AND&F:IFr%>=ru%THEN
 1280IFc%<Nl%ANDru%=r%THENg%=TRUEELSEg%=FALSE
 1281ELSEg%=TRUE
 1282ENDIF:=g%
 1283DEFPROCxJ:LOCALB%,Oy%,vJ%,c%,r%,mu%,fJ%,jy%,d%,q%,x%:PROCP(qJ%,c%,r%,mu%,fJ%,jy%):B%=C%(fJ%):d%=FNI:q%=FNV:x%=FNL:WHILEB%<>-1ANDNOTOy%ANDNOTvJ%:c%=B%?&C:r%=(B%!&C>>8)AND&F:IFr%>q%OR(r%=q%ANDc%>d%)THENvJ%=TRUE:PROCTy
 1284IF(r%>fJ%OR(r%=fJ%ANDc%>mu%))ANDNOTvJ%THENOy%=TRUE:PROCfy(B%)ELSEB%=B%!4
 1285ENDWHILE:IFNOTOy%THENPROCTy
 1286ENDPROC
 1287DEFPROCzy:LOCALB%,c%,r%,d%,q%,x%:d%=FNI:q%=FNV:x%=FNL:B%=`l%!4:J_%=0:IFB%<>-1THEN
 1288c%=B%?&C:r%=(B%!&C>>8)AND&F:IFr%>q%OR(r%=q%ANDc%>d%)THENPROCTyELSEPROCfy(B%)
 1289ENDIF:ENDPROC
 1290DEFPROCTy:Pu%=FALSE:qJ%=FNn(FNz):PROCG(VJ%):PROCc:ENDPROC
 1291DEFPROCfy(B%):LOCALc%:PROCA(VJ%,1,FNO("its",FNQ(d%,q%,x%,-1),"","","")):PROCA(VJ%,2,FN`(B%,x%)):c%=B%?&F:c%-=DJ%*(c%=0):PROCU(VJ%,2,c%):PROCw(VJ%,TRUE,TRUE):ey%=-1:J_%=&A:`l%=B%:ENDPROC
 1292DEFFNb(c%,r%):LOCALB%,C%,Nl%,ru%:B%=C%(r%):IFB%<>-1THEN
 1293REPEAT:IFB%?&C=c%THENC%+=1
 1294B%=B%!4:IFB%<>-1THENNl%=B%?&C:ru%=(B%!&C>>8)AND&FELSEru%=&D
 1295UNTILNl%>c%ORru%>r%
 1296ENDIF:=C%
 1297DEFFNm(c%,r%,B%):IFB%=-1THEN
 1298B%=C%(r%):WHILEB%?&C<>c%:B%=B%!4:ENDWHILE
 1299ELSEB%=B%!4
 1300ENDIF:IFB%<>-1THENIFB%?&C>c%OR((B%!&C>>8)AND&F)>r%THENB%=-1
 1301=B%
 1302DEFPROCL_:LOCALS%,C%,B%,r%:C%=-1:WJ%=-1:z%=OPENINw$:IFNOTlJ%ANDz%<>0THEN
 1303WHILENOTEOF#z%:S%=VALGET$#z%:B%=FNw(w_%,S%,TRUE):IFC%<>-1THENC%!4=B%ELSEWJ%=B%
 1304!B%=C%:B%!8=S%:SYS&C,4,z%,B%+&C,S%-&C:r%=((B%!&C)>>8)AND&F:IFC%(r%)=-1THENC%(r%)=B%
 1305C%=B%:IFs_%THENPROCd(NOT1)
 1306ENDWHILE:IFWJ%<>-1THENB%!4=-1
 1307CLOSE#z%:z%=0
 1308ENDIF:ENDPROC
 1309DEFFNhy(T%,Q%,Fy%):LOCALA$,x,c%,F%,L%:Ul%=(T%AND32)=0:c%=Fy%-Q%:CASECHR$T%OF
 1310WHEN"y","Y":A$=FNA("year"+STRING$(-(c%>1),"s")):IFUl%THENA$=FNs(A$)
 1311WHEN"n":A$=STR$c%
 1312WHEN"t","T":A$=FNNy(c%):IFUl%THENA$=FNs(A$)
 1313WHEN"c","C":SYS&61502,S_%,"Ann"+STR$c%,J%,256TO,,,L%;F%:IF(F%AND1)=0THENJ%?L%=&D:A$=" ("+$J%+")"
 1314IFUl%THENA$=FNs(A$)
 1315ENDCASE:=A$
 1316DEFPROCuJ:ky%=2:m_%=&F:Tu%=FALSE:oi%=FNC("FAM","FAM",1,4):Yi%=FNC("DIM4","ANM",1,3):F=FNC("DIM","DIM",1,6):PROCz(F,3,Yi%):PROCz(F,5,oi%):PROCc_(F,2,-1):sJ%=FNC("E","E",1,6):el%=FNC("OT","OT",1,6):xl%=FNC("Day","Day",1,7):al%=FNC("OE","OE",1,&C)
 1317Fl%=FNCy(FNA("Col")):$(Fl%+28+&C)=FNA("Def"):x$=T$+"Diary":DIMV%(&E):L_%=-1:BJ%=-1:Au%=0:Wu%=FNC("EN","EN",1,3):Vu%=FNC("EA","E",3,6):D_%=0:ly%=0:M_%=-1:T_%=6:PROCAl:ENDPROC
 1318DEFFNqy=F
 1319DEFPROCO_(A%):PROCV_:PROCTJ:PROCI(FNI,FNV,FNL):PROCJ(F,ky%-1,TRUE):B%(A%)=FNF(0,0,1,1,&77d):W%(A%)=FNF(0,0,31-6,&C,&fff):M$(A%)=FNA("DiaTab"):ENDPROC
 1320DEFPROCpJ:ENDPROC
 1321DEFPROCmu:BJ%=-1:ENDPROC
 1322DEFPROCUu(v%,h%,a%,K%):LOCALd%,q%,x%,cJ%,vl%,v_%,n_%,ZJ%,hl%:PROCP(v%,n_%,ZJ%,d%,q%,x%):cJ%=FNJ("Homerton.Bold",&E,&E):SYS&400E6,7:vl%=FNJ("Trinity.Bold",&C,&C):v_%=FNJ("Homerton.Medium",&A,&A):SYS&40081,,"Trinity.Medium",9*16,9*16TOhl%:CASEky%OF
 1323WHEN1:PROCou(v%,h%,a%,K%)
 1324WHEN2:PROCk_(v%,h%,a%,K%)
 1325WHEN3:PROCku(v%,h%,a%,K%)
 1326ENDCASE:PROCV(0,7):IFh%THEN
 1327A$=FNU(q%,-1)+" "+STR$x%:CASETRUEOF
 1328WHENZJ%<>x%:A$=FNU(n_%,3)+" "+STR$ZJ%+" - "+FNU(q%,3)+" "+STR$x%
 1329WHENn_%<>q%:A$=FNU(n_%,-1)+" - "+A$
 1330ENDCASE:IFFNG(FNF(0,0,d%,q%,x%),W%(t%))=-1THENPROCR(h%,a%,K%)
 1331PROCL(cJ%,A$,1,a%+j%-&A,K%-&A)
 1332ELSE:A$=STR$ZJ%+" "+FNU(n_%,-1):CASETRUEOF
 1333WHENZJ%<>x%:A$=STR$ZJ%+" "+FNU(n_%,3)+" - "+STR$x%+" "+FNU(q%,3)
 1334WHENn_%<>q%:A$+=" - "+FNU(q%,-1)
 1335ENDCASE:PROCL(cJ%,A$,-1,a%+&A,K%-&A):IFFNG(v%,B%(t%))=1THENPROCR(h%,a%,K%)
 1336ENDIF:PROCQ(cJ%):PROCQ(vl%):PROCQ(v_%):ENDPROC
 1337DEFPROCx_(p%,Oi%):CASE!p%OF
 1338WHEN0,1,2:IFky%<>!p%+1THEN
 1339PROCJ(F,ky%-1,FALSE):ky%=!p%+1:PROCJ(F,!p%,TRUE):PROCP(S%(FNP(3)),A%,B%,d%,q%,x%):PROCI(d%,q%,x%):IFZ%(t%)=3THENv%=S%(t%):uJ%=TRUE
 1340ENDIF
 1341WHEN3:CASEp%!4OF
 1342WHEN0:PROCOy(BJ%)
 1343WHEN1:PROCU_(BJ%)
 1344WHEN2:PROCk(BJ%)
 1345ENDCASE
 1346WHEN4:PROCAy(FNI,FNV,FNL,F,0)
 1347WHEN5:CASEp%!4OF
 1348WHEN0:PROC_u
 1349WHEN1:PROCLu
 1350WHEN2:PROCIu
 1351WHEN3:PROCH_
 1352ENDCASE
 1353ENDCASE:ENDPROC
 1354DEFPROCiy(My%,p%):CASEMy%OF
 1355WHENsJ%:A$=FNW(My%,!p%):IFFNS_(My%)="Every"THENPROCA(f%,30,A$):cu%=!p%+1ELSEPROCA(Ly%,&D,A$)
 1356WHENel%:PROCA(f%,33,FNW(My%,!p%)):fu%=!p%+1
 1357WHENxl%:PROCA(f%,34,FNW(My%,!p%)):vu%=!p%+1
 1358WHENal%:PROCA(f%,35,FNW(My%,!p%)):tu%=!p%+1
 1359ENDCASE:ENDPROC
 1360DEFPROCXy(l%):LOCALd%,q%,x%,A%,B%:PROCP(v%,A%,B%,d%,q%,x%):CASEky%OF
 1361WHEN1:PROCF(d%,q%,x%,l%*&E,0,0)
 1362WHEN2:PROCF(d%,q%,x%,l%*7,0,0)
 1363WHEN3:PROCF(d%,q%,x%,l%*2,0,0)
 1364ENDCASE:py%=-FNG(v%,FNF(0,0,d%,q%,x%)):PROCI(d%,q%,x%):IFFNG(v%,B%(t%))=-1THENv%=B%(t%)
 1365IFFNG(v%,W%(t%))=1THENv%=W%(t%)
 1366ENDPROC
 1367DEFPROCa_(n%,h%,_%,Q%,o_%,wJ%):LOCALR%:CASEky%OF
 1368WHEN1:R%=FNTy(n%,h%,_%,Q%)
 1369WHEN2:R%=FNky(n%,h%,_%,Q%)
 1370WHEN3:R%=FNYy(n%,h%,_%,Q%)
 1371ENDCASE:IFn%=2ANDR%>1THENBJ%=R%ELSEBJ%=-1
 1372ENDPROC
 1373DEFFNzy(w%,Cy%):k%=TRUE:CASECy%OF
 1374WHEN414:PROCXy(1)
 1375WHEN415:PROCXy(-1)
 1376WHEN30:PROCI(FNI,FNV,FNL)
 1377WHEN389:PROCAy(FNI,FNV,FNL,F,0)
 1378WHEN27:PROCG(ay%)
 1379OTHERWISEk%=FALSE
 1380ENDCASE:=k%
 1381DEFFNdy(e%,w%,Cy%):LOCALA%,B%:k%=TRUE:IFe%=f%THEN
 1382A%=0:IFCy%=&DORCy%=398ORCy%=394THENA%=1ELSEIFCy%=399THENA%=-1
 1383IFA%<>0THEN
 1384CASEw%OF
 1385WHEN16:IFA%=1THENB%=17ELSEB%=18
 1386WHEN17:B%=w%+A%
 1387WHEN18:IFA%=1THEN
 1388IFCy%<>&DTHENB%=16ELSEPROCN_
 1389ELSEB%=17
 1390ENDIF
 1391OTHERWISEk%=FALSE
 1392ENDCASE:IFB%<>0THENPROCM(e%,B%)
 1393ELSE:CASECy%OF
 1394WHEN27:PROCn
 1395WHEN4,24:IFL_%<>-1THENPROCk(L_%)
 1396OTHERWISEk%=FALSE
 1397ENDCASE
 1398ENDIF
 1399ELSEk%=FALSE
 1400ENDIF:=k%
 1401DEFPROClJ:LOCALz%,B%:z%=OPENOUTx$:B%=M_%:WHILEB%<>-1:BPUT#z%,STR$B%!8:SYS&C,2,z%,B%+&C,B%!8 -&C:B%=B%!4:ENDWHILE:CLOSE#z%:z%=0:ENDPROC
 1402DEFPROCAu(z%):BPUT#z%,ky%:BPUT#z%,m_%:BPUT#z%,Tu%+5:BPUT#z%,D_%:BPUT#z%,ly%:BPUT#z%,T_%:ENDPROC
 1403DEFPROCbJ(z%):ky%=BGET#z%:m_%=BGET#z%:Tu%=(BGET#z%)-5:D_%=BGET#z%:ly%=BGET#z%:T_%=BGET#z%:ENDPROC
 1404DEFPROCJu(s%,Sy%,p%,_%,Q%):LOCALA%,B%:!J%=s%:SYS&400CB,,J%:_%=J%!4+664:CASEw%OF
 1405WHEN1,2,3:IFn%<>2PROCZ(s%,Sy%,1)
 1406WHEN&D:PROCH(By%,0,-1):PROCJ(By%,FNq(s%,Sy%),1):PROCC(By%,_%,Q%,s%,Sy%)
 1407WHEN6:B%=NOTFNM(s%,Sy%):FORA%=7TO&A:PROCS(s%,A%,B%):NEXT
 1408WHEN8,9:A%=VALFNZ(s%,7):A%+=1+2*(Sy%=8):IFA%>0ANDA%<&DTHENPROCA(s%,7,STR$A%)
 1409WHEN&A:PROCC(Vu%,_%,Q%,s%,Sy%)
 1410WHEN&B:PROCS(s%,&C,NOTFNM(s%,Sy%))
 1411WHEN&C:PROCC(Wu%,_%,Q%,s%,Sy%)
 1412ENDCASE:ENDPROC
 1413DEFPROCiJ(p%,s%):CASEtJ%OF
 1414WHENBy%:PROCU(s%,&D,!p%):PROCH(By%,0,-1):PROCJ(By%,!p%,1)
 1415WHENVu%:PROCA(s%,&A,FNW(Vu%,!p%))
 1416WHENWu%:PROCA(s%,&C,FNW(Wu%,!p%))
 1417ENDCASE:ENDPROC
 1418DEFPROCnu(s%):LOCALA%:FORA%=1TO3:PROCZ(s%,A%,ABS(ky%=A%)):NEXT:PROCU(s%,&D,m_%):PROCZ(s%,5,-Tu%):PROCZ(s%,&B,-(D_%<>0)):PROCS(s%,&C,-(D_%=0)):PROCZ(s%,6,-(ly%<>0)):FORA%=7TO&A:PROCS(s%,A%,-(ly%=0)):NEXT:PROCZ(s%,&F,ABS((T_%AND4)>0)):PROCZ(s%,16,ABS((T_%AND2)>0)):PROCZ(s%,17,ABS((T_%AND1)>0))
 1419PROCS(s%,&F,ABS((T_%AND1)>0)):IFly%<>0THEN
 1420PROCA(s%,7,STR$(ly%AND&F)):PROCA(s%,&A,FNW(Vu%,ly%>>4))
 1421ELSEPROCA(s%,7,"1"):PROCA(s%,&A,FNA("E3"))
 1422ENDIF:IFD_%=0THENPROCA(s%,&C,FNA("EN1"))ELSEPROCA(s%,&C,FNW(Wu%,D_%-1))
 1423ENDPROC
 1424DEFPROCbu(s%):LOCALA%,B%,d%,q%,x%:A%=0:REPEATA%+=1:UNTILFNM(s%,A%)ORA%=3:ky%=A%:PROCP(S%(FNP(3)),A%,B%,d%,q%,x%):PROCI(d%,q%,x%):m_%=FNq(s%,&D):Tu%=FNM(s%,5):ly%=0:D_%=0:IFFNM(s%,6)THENly%=((FNk(Vu%,FNZ(s%,&A)))<<4)+VALFNZ(s%,7)
 1425IFFNM(s%,&B)THEND_%=FNk(Wu%,FNZ(s%,&C))+1
 1426T_%=ABS(FNM(s%,17)+2*FNM(s%,16)+4*FNM(s%,&F)):ENDPROC
 1427DEFPROCI(d%,q%,x%):LOCALu%,B%,Oy%,T%,y%:u%=FNH(d%,q%,x%):IFky%=3THEN
 1428PROCF(d%,q%,x%,FNZ_(d%,q%,x%)-1,0,0)
 1429ELSEPROCF(d%,q%,x%,-u%+1,0,0)
 1430ENDIF:y%=FNF(0,0,d%,q%,x%):S%(FNP(3))=y%:IFZ%(t%)=3THENv%=S%(t%)
 1431PROCMy:ENDPROC
 1432DEFPROCMy:LOCALB%,T%,Oy%:B%=M_%:kJ%=-1:y%=S%(FNP(3)):V%()=0:WHILEB%<>-1ANDNOTOy%:T%=B%!&C:IFFNG(y%,T%)<>1THENOy%=TRUE:kJ%=B%ELSEB%=B%!4
 1433ENDWHILE:ENDPROC
 1434DEFFNcy(T%):LOCALB%,F%:B%=M_%:F%=-1:WHILEB%<>-1ANDF%=-1:IF((B%!16)AND(1<<20))=0OR((B%!16)AND4)=4THENF%=B%ELSEB%=B%!4
 1435ENDWHILE:=F%
 1436DEFPROC__(B%):IF(B%!16AND(3<<20))=0THEN
 1437LOCALfy%,Ky%,d%,q%,x%,K_%,A$,A%,R%,C%:PROCP(B%!&C,fy%,Ky%,d%,q%,x%):Au%=B%:IFKy%>&CTHENKy%-=&C:K_%=TRUEELSEIFKy%=0THENKy%=&C
 1438A$=STR$Ky%+":"+STRING$(2-LENSTR$fy%,"0")+STR$fy%:IFK_%THENA$+=" pm,"ELSEA$+=" am,"
 1439PROCA(Ly%,1,FNO("WasSet",A$,"","","")):PROCA(Ly%,2,FNQ(d%,q%,x%,-1)):IF((B%!16)AND4)=4THEN
 1440R%=TRUE:IF((B%!16)AND8)=8THEN
 1441PROCmy(fy%,Ky%,d%,q%,x%,((B%!16)>>8)AND&FF,(((B%!16)>>16)AND&F)-1):IFKy%>&CTHENKy%-=&C:K_%=TRUEELSEIFKy%=0THENKy%=&C
 1442A$=STR$Ky%+":"+STRING$(2-LENSTR$fy%,"0")+STR$fy%:IFK_%THENA$+=" pm,"ELSEA$+=" am,"
 1443PROCA(Ly%,&F,FNO("WilRpt",A$,"","","")):PROCA(Ly%,16,FNQ(d%,q%,x%,-1))
 1444ELSE:PROCjy(d%,q%,x%,B%!16):A$=STR$Ky%+":"+STRING$(2-LENSTR$fy%,"0")+STR$fy%:IFK_%THENA$+=" pm,"ELSEA$+=" am,"
 1445PROCA(Ly%,&F,FNO("WilRpt",A$,"","","")):PROCA(Ly%,16,FNQ(d%,q%,x%,-1))
 1446ENDIF
 1447ENDIF:IF((B%!16)AND1)=1THENJ_%=&A
 1448C%=(B%!16>>4)AND&F:C%-=m_%*(C%=0):FORA%=4TO6:PROCU(Ly%,A%,C%):NEXT:B%+=20:FORA%=4TO6:A$="":WHILE?B%<>&B:A$+=CHR$?B%:B%+=1:ENDWHILE:B%+=1:PROCA(Ly%,A%,A$):NEXT:PROCZ(Ly%,9,0):FORA%=&ATO&D:PROCS(Ly%,A%,1):NEXT:PROCA(Ly%,&A,"1"):PROCA(Ly%,&D,FNA("E1")):PROCcJ(NOTR%,TRUE):rJ%=-1
 1449ELSE:IF(B%!16AND(1<<21))<>0THENPROCtu(B%)
 1450PROCBy(B%,0)
 1451ENDIF:ENDPROC
 1452DEFPROCtu(B%):LOCALA$,A%,Z$,xi%,`u%:B%+=20:FORA%=1TO3:WHILE?B%<>&B:A$+=CHR$?B%:B%+=1:ENDWHILE:B%+=1:NEXT:IFLEFT$(A$,1)="="THENA$=MID$(A$,INSTR(A$,"*")+1)
 1453Z$=FNs(LEFT$(A$,INSTR(A$," "))):IFZ$<>"FILER_RUN"ANDZ$<>"RUN"THEN
 1454SYS8,5,A$TOxi%,`u%:IFxi%=2THENA$="Run "+A$ELSEIFxi%<>0THENA$="Filer_Run "+A$
 1455ENDIF:SYS&400DE,A$:ENDPROC
 1456DEFPROCIu:LOCALy%,B%,Oy%,A%,C%,d%,q%,x%:y%=S%(FNP(3)):B%=kJ%:PROCP(y%,A%,C%,d%,q%,x%):A%=-&E*(ky%=1)-7*(ky%=2)-2*(ky%=3):PROCF(d%,q%,x%,A%,0,0):y%=FNF(0,0,d%,q%,x%):WHILEB%<>-1ANDNOTOy%:T%=B%!&C:IFFNG(y%,T%)=-1THENOy%=TRUEELSEB%=B%!4
 1457ENDWHILE:IFOy%THEN
 1458t%=FNP(3):PROCP(B%!&C,A%,C%,d%,q%,x%):PROCI(d%,q%,x%)
 1459ELSEPROCB(FNA("ErrNoMore"))
 1460ENDIF:ENDPROC
 1461DEFPROCLu:LOCALy%,B%,Oy%,A%,C%,d%,q%,x%:y%=S%(FNP(3)):B%=kJ%:WHILEB%<>-1ANDNOTOy%:T%=B%!&C:IFFNG(y%,T%)=1THENOy%=TRUEELSEB%=!B%
 1462ENDWHILE:IFOy%THEN
 1463t%=FNP(3):PROCP(B%!&C,A%,C%,d%,q%,x%):PROCI(d%,q%,x%)
 1464ELSEPROCB(FNA("ErrNoB4"))
 1465ENDIF:ENDPROC
 1466DEFPROC_u:IFM_%<>-1THEN
 1467t%=FNP(3):PROCP(M_%!&C,A%,C%,d%,q%,x%):PROCI(d%,q%,x%)
 1468ELSEPROCB(FNA("ErrNoEnt"))
 1469ENDIF:ENDPROC
 1470DEFPROCH_:LOCALB%:B%=M_%:IFB%<>-1THEN
 1471WHILEB%!4<>-1:B%=B%!4:ENDWHILE:t%=FNP(3):PROCP(B%!&C,A%,C%,d%,q%,x%):PROCI(d%,q%,x%)
 1472ELSEPROCB(FNA("ErrNoEnt"))
 1473ENDIF:ENDPROC
 1474DEFPROCou(v%,h%,a%,K%):LOCALGu%,Jy%,u%:IFh%THENPROCF(d%,q%,x%,7,0,0)
 1475Gu%=K%-40:Jy%=-(m%-60)/7:ZJ%=x%:n_%=q%:FORu%=1TO7:PROCay(u%+7*ABSh%,d%,u%,q%,x%,h%,a%+&A,Gu%,j%-20,Jy%):IFu%<>7THENPROCF(d%,q%,x%,1,0,0):Gu%+=Jy%
 1476NEXT:ENDPROC
 1477DEFFNTy(n%,h%,_%,Q%):LOCALJy%,l%,a%,R%:Jy%=(m%-60)/7:Q%=-Q%-40+Jy%:l%=((Q%DIVJy%)MOD8):IFl%<>0THENl%+=7*ABSh%:IF_%<&AOR_%>j%-20THENl%=0
 1478IFh%THENa%=dy%ELSEa%=yy%
 1479IFl%<>0THENR%=FNAy(l%,_%-&A,Q%MODJy%,n%,Jy%,a%+&A,-o%-40-(l%+7*(l%>7))*Jy%+Jy%)
 1480=R%
 1481DEFPROCk_(v%,h%,a%,K%):LOCALGu%,Jy%,vJ%,u%:IFh%THENPROCF(d%,q%,x%,3,0,0):u%=4:vJ%=7ELSEu%=1:vJ%=3
 1482Gu%=K%-40:Jy%=-(m%-60)/3:ZJ%=x%:n_%=q%:FORu%=u%TOvJ%:IFu%=6THENJy%=Jy%/2
 1483PROCay(u%,d%,u%,q%,x%,h%,a%+&A,Gu%,j%-20,Jy%):IFu%<>vJ%THENPROCF(d%,q%,x%,1,0,0):Gu%+=Jy%
 1484NEXT:ENDPROC
 1485DEFFNky(n%,h%,_%,Q%):LOCALJy%,l%,a%,K%,R%:Jy%=(m%-60)/3:Q%=-Q%-40+Jy%:l%=((Q%DIVJy%)MOD4):Q%=Q%MODJy%:K%=-o%-40-l%*Jy%+Jy%:IFl%<>0THENl%+=3*ABSh%:IF_%<&AOR_%>j%-20THENl%=0
 1486IFl%>=6THENJy%=Jy%/2
 1487IFl%=6ANDQ%>=Jy%THENQ%-=Jy%:l%=7:K%-=Jy%
 1488IFh%THENa%=dy%ELSEa%=yy%
 1489IFl%<>0THENR%=FNAy(l%,_%-&A,Q%,n%,Jy%,a%+&A,K%)
 1490=R%
 1491DEFPROCku(v%,h%,a%,K%):IFh%THENPROCF(d%,q%,x%,1,0,0)
 1492ZJ%=x%:n_%=q%:PROCay(ABSNOTh%,d%,FNH(d%,q%,x%),q%,x%,h%,a%+&A,K%-40,j%-20,-m%+60):ENDPROC
 1493DEFFNYy(n%,h%,_%,Q%):LOCALl%,a%,R%:Q%=-Q%-40:l%=1:IFh%THENa%=dy%ELSEa%=yy%
 1494IF_%<&AOR_%>j%-20ORQ%>m%-60ORQ%<0THENl%=0ELSEl%+=ABSh%
 1495IFl%<>0THENR%=FNAy(l%,_%-&A,Q%,n%,m%,a%+&A,-o%-40)
 1496=R%
 1497DEFPROCay(l%,d%,u%,q%,x%,h%,a%,K%,s%,b%):LOCALB%,C%,T%,Q%,Gy%,A%,A_%:Gy%=28:A_%=FNF(0,0,d%,q%,x%):IFFNS(a%,K%,s%,b%)THEN
 1498PROCV(0,7):IFA_%=FNF(0,0,FNI,FNV,FNL)THEN
 1499SYS&400E6,!SJ%:PROCl(a%-4,K%-4,s%+8,-b%-8,&C):SYS&400E6,7
 1500ENDIF:MOVEa%,K%:DRAWBYs%,0:MOVEBY0,b%:DRAWBY-s%,0:IFh%THEN
 1501PROCL(vl%,STR$d%,-1,a%+s%-30,K%-6):PROCL(v_%,FNc(u%,-1),1,a%+s%-40,K%-6):IFFNS(a%,K%-6,s%-&DC,-24)THENPROCB_(u%,d%,q%,x%,-1,a%,K%-6)
 1502ELSE:PROCL(vl%,STR$d%,1,a%+30,K%-6):PROCL(v_%,FNc(u%,-1),-1,a%+40,K%-6):IFFNS(a%+&DC,K%-6,s%-&DC,-24)THENPROCB_(u%,d%,q%,x%,1,a%+s%,K%-6)
 1503ENDIF:Q%=40:T%=FNb(d%,q%):B%=-1:A%=V%(l%):C%=A%-T%:WHILEA%>0ANDT%>0:B%=FNm(d%,q%,B%):T%-=1:A%-=1:ENDWHILE:WHILET%<>0ANDQ%+Gy%-5<=-b%:B%=FNm(d%,q%,B%):T%-=1:PROCr(v_%,FN`(B%,x%),a%+30,K%-Q%-20,j%-50,Gy%):Q%+=Gy%:ENDWHILE:B%=kJ%:T%=FNF(0,0,d%,q%,x%):A%=C%
 1504WHILEA%>0:B%=FNx(B%,T%):B%=B%!4:A%-=1:ENDWHILE:IFQ%+Gy%-5<=-b%THEN
 1505REPEAT:B%=FNx(B%,T%):IFB%<>-1THENPROCr(v_%,FNmy(B%),a%+30,K%-Q%-20,j%-50,Gy%):Q%+=Gy%:B%=B%!4
 1506UNTILB%=-1ORQ%+Gy%-5>-b%
 1507ENDIF:IFFNx(B%,T%)<>-1ANDQ%+Gy%-5>-b%THENMOVEa%,K%+b%+24:MOVEBY20,0:PLOT81,-&A,-20
 1508IFV%(l%)>0THENMOVEa%,K%-60:MOVEBY20,0:PLOT81,-&A,20
 1509ENDIF:ENDPROC
 1510DEFPROCTJ:LOCALA%,F%,P%,B%,A$,C%,L%:A%=1:REPEATSYS&61502,S_%,"Spec"+STR$A%,0TO,,P%;F%:A%+=1:UNTILF%AND1:Xi%=A%-3:DIMJ%(A%-3,4):B%=0:WHILEB%<=Xi%:SYS&41502,S_%,"Spec"+STR$(B%+1),0TO,,P%,L%;F%:P%?L%=&D:FORC%=1TO4:J%(B%,C%)=VAL($P%):WHILE?P%<>44:P%+=1:ENDWHILE:P%+=1:NEXT:J%(B%,0)=P%:B%+=1:ENDWHILE
 1511A%=1:REPEATSYS&61502,S_%,"Easter"+STR$A%,0TO,,P%;F%:A%+=1:UNTILF%AND1:Ma%=A%-3:DIMR%(A%-3,1):B%=0:WHILEB%<=A%-3:SYS&41502,S_%,"Easter"+STR$(B%+1),0TO,,P%,L%;F%:P%?L%=&D:R%(B%,1)=VAL($P%):WHILE?P%<>44:P%+=1:ENDWHILE:P%+=1:R%(B%,0)=P%:B%+=1:ENDWHILE:ENDPROC
 1512DEFPROCB_(Ka%,c%,r%,x%,_u%,_%,Q%):LOCALA$,LJ%,KJ%,Py%,A%:FORA%=0TOXi%:IFJ%(A%,1)=r%THEN
 1513IF(J%(A%,2)=-1ORJ%(A%,2)=Ka%)ANDc%>=J%(A%,3)ANDc%<=J%(A%,4)THENA$+=$J%(A%,0)+"/"
 1514ENDIF:NEXT:PROCvJ(LJ%,KJ%,x%):A%=0:Py%=0:WHILEA%<=Ma%:PROCF(LJ%,KJ%,x%,R%(A%,1)-Py%,0,0):Py%=R%(A%,1):IFLJ%=c%ANDKJ%=r%THENA$+=$R%(A%,0)+"/"
 1515A%+=1:ENDWHILE:IFINSTR(LEFT$(A$),"/")THENSYS&40081,,"Trinity.Medium",7*16,7*16TOPy%ELSEPy%=hl%
 1516IFA$<>""THENPROCL(Py%,LEFT$(A$),_u%,_%,Q%)
 1517IFPy%<>hl%THENSYS&40082,Py%
 1518ENDPROC
 1519DEFFNAy(l%,_%,Q%,n%,b%,a%,K%):LOCALny%,Gy%,A%,B%,d%,q%,x%,T%,F%,R%:Gy%=28:CASETRUEOF
 1520WHEN_%>=30AND_%<=j%-20ANDQ%>=40:PROCP(v%,A%,B%,d%,q%,x%):PROCF(d%,q%,x%,l%-1,0,0):ny%=(((Q%-40+Gy%)DIVGy%)):IFny%>0THENny%+=V%(l%)
 1521IFny%>0ANDny%<=FNb(d%,q%)ANDn%<>2THENPROCY_(d%,q%,ny%,n%):ny%=-1
 1522IFny%>0THENny%-=FNb(d%,q%)
 1523IFny%>0THEN
 1524T%=FNF(0,0,d%,q%,x%):B%=kJ%:B%=FNx(B%,T%):WHILEny%>1ANDB%<>-1:B%=B%!4:B%=FNx(B%,T%):ny%-=1:ENDWHILE:IFB%=-1THEN
 1525IFn%<>2THENPROCs(d%,q%,x%):QJ%=TRUE
 1526ELSE:CASEn%OF
 1527WHEN4:PROCOy(B%):QJ%=TRUE
 1528WHEN2:R%=B%
 1529WHEN1:PROCU_(B%):QJ%=TRUE
 1530ENDCASE
 1531ENDIF
 1532ELSE:IFn%<>2ANDny%=0THEN
 1533PROCP(v%,A%,B%,d%,q%,x%):PROCF(d%,q%,x%,l%-1,0,0):PROCs(d%,q%,x%):QJ%=TRUE
 1534ENDIF
 1535ENDIF
 1536WHENn%=2
 1537WHEN_%<=20ANDQ%>=b%-20:PROCP(v%,A%,B%,d%,q%,x%):PROCF(d%,q%,x%,l%-1,0,0):T%=FNF(0,0,d%,q%,x%):ny%=-((b%-40)DIVGy%):B%=FNx(kJ%,T%):WHILEB%<>-1:B%=B%!4:B%=FNx(B%,T%):ny%+=1:ENDWHILE:ny%+=FNb(d%,q%):IFV%(l%)<ny%THENV%(l%)+=1:PROCD(i%,a%,K%-40,a%+j%-&A,K%-b%+4)
 1538WHEN_%<=20ANDQ%<=60ANDQ%>=40ANDV%(l%)<>0:V%(l%)-=1:PROCD(i%,a%,K%-40,a%+j%-&A,K%-b%+4)
 1539WHEN_%<=20ANDQ%<=60ANDQ%>=40
 1540OTHERWISE:PROCP(v%,A%,B%,d%,q%,x%):PROCF(d%,q%,x%,l%-1,0,0):PROCs(d%,q%,x%):QJ%=TRUE
 1541ENDCASE:=R%
 1542DEFFNx(B%,T%):LOCALA%:A%=-1:WHILEB%<>-1ANDA%=-1:A%=FNG(FNn(B%!&C),T%):IFA%=-1THENB%=B%!4
 1543ENDWHILE:IFA%=0THENA%=B%ELSEA%=-1
 1544=A%
 1545DEFFNmy(B%):LOCALA$,A%,C%,Z$,T%:C%=(B%!16>>4)AND&F:T%=B%!16AND(1<<21):C%-=m_%*(C%=0):PROCV(0,C%):IF((B%!16>>1)AND1)=1THENZ$=FNoy(FNXy(B%!&C),FNvy(B%!&C),-1,Tu%)+"  "
 1546B%+=20:FORA%=1TO3:WHILE?B%<>&B:A$+=CHR$?B%:B%+=1:ENDWHILE:IFA%<>3THENA$+=" ":B%+=1
 1547NEXT:IFT%>0ANDLEFT$(A$,1)="="THENA$=MID$(A$,2,INSTR(A$,"*")-2)
 1548=Z$+A$
 1549DEFPROCv_(S$):LOCALA$,`i%,e:PROCZ(f%,39,1):A$=FNZ(f%,16):`i%=LENA$:PROCA(f%,16,A$+S$):ql%=LENFNZ(f%,16):S$=MID$(S$,ql%-`i%+1):PROCA(f%,17,S$):ql%=LENFNZ(f%,16):S$=MID$(S$,ql%+1):PROCA(f%,18,S$):ENDPROC
 1550DEFPROCs(c%,r%,Q%):LOCALA%,b%,K_%:FORA%=16TO18:PROCA(f%,A%,""):PROCU(f%,A%,m_%):NEXT:PROCZ(f%,24,0):hJ%=0:PROCZ(f%,21,ABS((T_%AND4)>0)):PROCZ(f%,23,ABS((T_%AND2)>0)):PROCZ(f%,38,ABS((T_%AND1)>0)):PROCS(f%,21,ABS((T_%AND1)>0)):PROCZ(f%,39,0):PROCJy(26):PROCA(f%,27,"1"):PROCA(f%,30,FNA("E1"))
 1551cu%=1:fu%=1:vu%=1:tu%=1:PROCS(f%,37,1):PROCA(f%,33,FNA("OT1")):PROCA(f%,34,FNA("Day1")):PROCA(f%,35,FNA("OE1")):PROCA(f%,1,FNQ(c%,r%,Q%,-1)):W_%=c%:C_%=r%:b_%=Q%:b%=FNf:r%=FNi:K_%=(b%>=&C):PROCi(f%,Ql%,FNA("alset"),-1):IFb%>&CTHENb%-=&C
 1552PROCA(f%,3,STR$b%):PROCA(f%,5,"00"):IFK_%THENPROCA(f%,&C,FNA("pm"))ELSEPROCA(f%,&C,FNA("am"))
 1553PROCY(0,r%):PROCIy(TRUE,TRUE):PROCM(f%,16):ENDPROC
 1554DEFPROCU_(B%):PROCOy(B%):L_%=-1:PROCS(f%,37,1):PROCi(f%,Ql%,FNA("alset"),0):ENDPROC
 1555DEFPROCOy(B%):LOCALd%,q%,x%,b%,r%,A$,ci%,R%:PROCP(B%!&C,r%,b%,d%,q%,x%):L_%=B%:IFb%<&CTHENA$=FNA("am")ELSEA$=FNA("pm"):IFb%>&CTHENb%-=&C
 1556PROCA(f%,&C,A$):IFb%=0THENb%=&C
 1557PROCZ(f%,38,((B%!16>>20)AND1)):A$=STR$r%:IFr%<&ATHENA$="0"+A$
 1558PROCA(f%,5,A$):hJ%=((B%!16)>>4)AND&F:IFhJ%=0THENhJ%=m_%
 1559FORA%=16TO18:PROCU(f%,A%,hJ%):NEXT:PROCS(f%,37,0):PROCA(f%,3,STR$b%):PROCi(f%,Ql%,FNA("aledit"),-1):PROCA(f%,1,FNQ(d%,q%,x%,-1)):W_%=d%:C_%=q%:b_%=x%:PROCZ(f%,21,ABS(((B%!16)AND1)=1)):PROCZ(f%,23,ABS(((B%!16)AND2)=2)):PROCZ(f%,39,ABS((B%!16AND(1<<21))>1)):PROCA(f%,27,"1"):PROCA(f%,30,FNA("E1"))
 1560cu%=1:fu%=1:vu%=1:tu%=1:PROCJy(26):PROCA(f%,33,FNA("OT1")):PROCA(f%,34,FNA("Day1")):PROCA(f%,35,FNA("OE1")):IF((B%!16)AND4)=4THEN
 1561ci%=TRUE:PROCZ(f%,24,1):IF((B%!16)AND8)=8THEN
 1562R%=((B%!16)>>8)AND&FF:PROCA(f%,27,STR$R%):cu%=((B%!16)>>16)AND&F:PROCA(f%,30,FNW(sJ%,cu%-1))
 1563ELSE:PROCJy(31):fu%=((B%!16)>>8)AND&F:PROCA(f%,33,FNW(el%,fu%-1)):vu%=((B%!16)>>&C)AND&F:PROCA(f%,34,FNW(xl%,vu%-1)):tu%=((B%!16)>>16)AND&F:PROCA(f%,35,FNW(al%,tu%-1))
 1564ENDIF
 1565ELSEPROCZ(f%,24,0)
 1566ENDIF:B%+=20:FORA%=16TO18:A$="":WHILE?B%<>&B:A$+=CHR$?B%:B%+=1:ENDWHILE:B%+=1:PROCA(f%,A%,A$):NEXT:PROCIy(NOTci%,TRUE):PROCM(f%,16):ENDPROC
 1567DEFPROCIy(La%,IJ%):!J%=f%:SYS&400CB,,J%:IFIJ%THENJ%!28=-1:J%!4=FNd-&64-(J%!&C-J%!4):J%!&C=J%!4+&3E8:J%!16=900
 1568J%!8=J%!16 -&7D0*ABSNOTLa%:SYS&400C5,,J%:ENDPROC
 1569DEFPROCcJ(La%,IJ%):!J%=Ly%:SYS&400CB,,J%:IFIJ%THENJ%!28=-1:J%!4=&64:J%!&C=J%!4+&3E8:J%!16=900
 1570J%!8=J%!16 -&7D0*ABSNOTLa%:SYS&400C5,,J%:ENDPROC
 1571DEFPROCJy(w%):LOCALA%:PROCZ(f%,w%,1):PROCZ(f%,57-w%,0):FORA%=27TO30:PROCS(f%,A%,-(w%=31)):NEXT:FORA%=33TO35:PROCS(f%,A%,-(w%=26)):NEXT:ENDPROC
 1572DEFPROCJ_:LOCALF%,c%,r%,Q%,my%,Lu%,Gy%,B%,mu%,fJ%,jy%:PROCP(qJ%,F%,B%,mu%,fJ%,jy%):CASETRUEOF
 1573WHEND_%=1:F%=TRUE
 1574WHEND_%=2AND(FND(Uy%,by%,Fy%)>FND(mu%,fJ%,jy%)-FNH(mu%,fJ%,jy%)+7):F%=TRUE
 1575WHEND_%=3ANDUy%=1:F%=TRUE
 1576OTHERWISEF%=FALSE
 1577ENDCASE:IFF%ANDNOTVy%THEN
 1578IFt%<>FNP(3)ANDIu%THENPROCC_(t%)
 1579t%=FNP(3):PROCI(Uy%,by%,Fy%):PROCx(i%,-1,-1)
 1580ENDIF:my%=0:Lu%=0:Gy%=0:IFly%<>0THEN
 1581CASEly%>>4OF
 1582WHEN0:my%=ly%AND&F
 1583WHEN1:my%=7*(ly%AND&F)
 1584WHEN2:Lu%=ly%AND&F
 1585WHEN3:Gy%=ly%AND&F
 1586ENDCASE:c%=Uy%:r%=by%:Q%=Fy%:PROCF(c%,r%,Q%,-my%,-Lu%,-Gy%):F%=FNF(0,0,c%,r%,Q%):B%=M_%:c%=TRUE:WHILEB%<>-1ANDc%:IFFNG(B%!&C,F%)=-1THENPROCk(B%):B%=B%!4ELSEc%=FALSE
 1587ENDWHILE
 1588ENDIF:ENDPROC
 1589DEFPROCN_:LOCALA_%,b%,r%,K_%,A$,Z$,C$,Py%:A$=FNZ(f%,16):Z$=FNZ(f%,17):C$=FNZ(f%,18):IFA$+Z$+C$<>""THEN
 1590b%=VALFNZ(f%,3):r%=VALFNZ(f%,5):IFb%=&CTHENb%=0
 1591K_%=(FNZ(f%,&C)=FNA("pm")):IFK_%THENb%+=&C
 1592Py%=Py%OR(-FNM(f%,21))OR((-FNM(f%,23))<<1)OR(hJ%<<4):Py%=Py%OR((-FNM(f%,38))<<20)OR((-FNM(f%,39))<<21):IFFNM(f%,24)THEN
 1593IFFNM(f%,26)THEN
 1594Py%=Py%OR&COR((VALFNZ(f%,27))<<8)OR(cu%<<16)
 1595ELSEPy%=Py%OR4OR(fu%<<8)OR(vu%<<&C)OR(tu%<<16)
 1596ENDIF
 1597ENDIF:A_%=FNF(r%,b%,W_%,C_%,b_%):PROCKy(A_%,Py%,A$,Z$,C$):PROCMy:PROCc:PROCn:ey%=TRUE:IFVy%ANDZ%(t%)=3THENPROCO
 1598ELSEPROCB(FNA("ErrMes"))
 1599ENDIF:ENDPROC
 1600DEFPROCKy(A_%,Py%,A$,Z$,C$):LOCALS%,B%,Oy%,T%,gy%,Wy%:IFL_%<>-1THENPROCFy(L_%)
 1601Oy%=FALSE:S%=LEN(A$+Z$+C$)+3+20:Wy%=M_%:gy%=-1:WHILEWy%<>-1ANDNOTOy%:T%=Wy%!&C:IFFNG(A_%,T%)=-1THENOy%=TRUEELSEgy%=Wy%:Wy%=Wy%!4
 1602ENDWHILE:B%=FNw(w_%,S%+1,TRUE):!B%=gy%:B%!4=Wy%:B%!8=S%:B%!&C=A_%:B%!16=Py%:IFgy%=-1THENM_%=B%ELSEgy%!4=B%
 1603IFWy%<>-1THEN!Wy%=B%
 1604$(B%+20)=A$+CHR$&B+Z$+CHR$&B+C$+CHR$&B:ENDPROC
 1605DEFPROCk(B%):PROCFy(B%):PROCMy:PROCc:ey%=TRUE:IFVy%ANDZ%(t%)=3THENPROCO
 1606IFB%=L_%THENPROCn
 1607IFB%=Au%THENAu%=-1:PROCG(Ly%)
 1608ENDPROC
 1609DEFPROCFy(B%):LOCALgy%,Wy%:gy%=!B%:Wy%=B%!4:IFgy%<>-1THENgy%!4=Wy%
 1610IFWy%<>-1THEN!Wy%=gy%
 1611IFM_%=B%THENM_%=Wy%
 1612PROCDy(w_%,B%,TRUE):ENDPROC
 1613DEFPROCn:PROCG(f%):PROCG(ay%):IFVy%THENPROCM(i%,-1)
 1614L_%=-1:ENDPROC
 1615DEFPROClu(Xy%,Ty%,e%,w%,X_%):LOCALA%:CASEw%OF
 1616WHEN1:PROCAy(W_%,C_%,b_%,e%,w%)
 1617WHEN6:PROCY(X_%,0)
 1618WHEN7:PROCY(-X_%,0)
 1619WHEN8:PROCY(0,&A*X_%)
 1620WHEN9:PROCY(0,-&A*X_%)
 1621WHEN&A:PROCY(0,X_%)
 1622WHEN&B:PROCY(0,-X_%)
 1623WHEN&C:A%=&C+24*(FNZ(f%,&C)=FNA("pm")):PROCY(A%,0)
 1624WHEN19:PROCN_
 1625WHEN20:PROCn
 1626WHEN22:PROCC(Fl%,Xy%,Ty%,e%,w%)
 1627WHEN24:PROCIy(NOTFNM(e%,24),FALSE)
 1628WHEN26,31:PROCJy(w%)
 1629WHEN28,29:IFn%=1THENw%=57-w%
 1630A%=VALFNZ(e%,27):A%+=(w%-27)*2-3:IFA%=0THENA%=&FFELSEIFA%=256THENA%=1
 1631PROCA(e%,27,STR$A%)
 1632WHEN30:PROC`(Xy%,Ty%):!sJ%=FNg("E"):PROCC(sJ%,Xy%,Ty%,e%,w%)
 1633WHEN33:PROC`(Xy%,Ty%):PROCC(el%,Xy%,Ty%,e%,w%)
 1634WHEN34:PROC`(Xy%,Ty%):PROCC(xl%,Xy%,Ty%,e%,w%)
 1635WHEN35:PROC`(Xy%,Ty%):PROCC(al%,Xy%,Ty%,e%,w%)
 1636WHEN37:PROCk(L_%)
 1637WHEN38:PROCS(f%,21,ABSFNM(f%,38))
 1638ENDCASE:ENDPROC
 1639DEFPROCjJ(Xy%,Ty%,e%,w%):LOCALA%:J_%=0:CASEw%OF
 1640WHEN7:PROCBy(Au%,FNM(Ly%,9)):Au%=-1
 1641WHEN8:PROCk(Au%)
 1642WHEN9:FORA%=&ATO&D:PROCS(e%,A%,ABSNOTFNM(e%,w%)):NEXT
 1643WHEN&B,&C:IFn%=1THENw%=23-w%
 1644A%=VALFNZ(e%,&A):A%+=(w%-&A)*2-3:IFA%=0THENA%=&FFELSEIFA%=256THENA%=1
 1645PROCA(e%,&A,STR$A%)
 1646WHEN&D:!J%=e%:SYS&400CB,,J%:Xy%=J%!4+686+64:Ty%=J%!16-312:!sJ%=FNg("ED"):PROCC(sJ%,Xy%,Ty%,e%,w%)
 1647ENDCASE:ENDPROC
 1648DEFPROCBy(B%,ni%):IFB%<>L_%THENLOCALL_%:L_%=-1
 1649IFNOTni%THEN
 1650IF(B%!16AND4)=4THEN
 1651IF(B%!16AND8)=8THEN
 1652PROCQ_(B%,FALSE)
 1653ELSEPROCoJ(B%)
 1654ENDIF
 1655ELSEB%!16=(B%!16)OR(1<<20):ey%=-1
 1656ENDIF
 1657ELSEPROCQ_(B%,TRUE)
 1658ENDIF:PROCMy:PROCc:ey%=TRUE:IFVy%ANDZ%(t%)=3THENPROCO
 1659J_%=0:PROCG(Ly%):ENDPROC
 1660DEFPROCQ_(B%,ni%):LOCALc%,T%,A$,fy%,Ky%,d%,q%,x%,A_%,Py%,Z$,C$,:IFni%THEN
 1661A_%=FNz:c%=VALFNZ(e%,&A):A$=FNZ(Ly%,&D):T%=0:WHILEA$<>FNW(sJ%,T%):T%+=1:ENDWHILE
 1662ELSEA_%=B%!&C:c%=((B%!16)>>8)AND&FF:T%=(((B%!16)>>16)AND&F)-1
 1663ENDIF:PROCP(A_%,fy%,Ky%,d%,q%,x%):PROCmy(fy%,Ky%,d%,q%,x%,c%,T%):A_%=FNF(fy%,Ky%,d%,q%,x%):Py%=B%!16:c%=B%+20:A$="":WHILE?c%<>&B:A$+=CHR$?c%:c%+=1:ENDWHILE:c%+=1:WHILE?c%<>&B:Z$+=CHR$?c%:c%+=1:ENDWHILE:c%+=1:WHILE?c%<>&B:C$+=CHR$?c%:c%+=1:ENDWHILE:PROCFy(B%):PROCKy(A_%,Py%,A$,Z$,C$):ENDPROC
 1664DEFPROCmy(RETURNfy%,RETURNKy%,RETURNd%,RETURNq%,RETURNx%,c%,T%):LOCALmy%:IFT%=0THENfy%+=c%:c%=fy%DIV60:fy%=fy%MOD60:IFc%>0THENT%=1
 1665IFT%=1THENKy%+=c%:c%=Ky%DIV24:Ky%=Ky%MOD24:IFc%>0THENT%=2
 1666IFT%=2THENmy%=c%ELSEIFT%=3THENmy%=7*c%
 1667WHILEmy%>0:PROCF(d%,q%,x%,1,0,0):my%-=1:ENDWHILE:IFT%=4THEN
 1668WHILEc%>0:PROCF(d%,q%,x%,0,1,0):c%-=1:ENDWHILE
 1669ENDIF:IFT%=5THEN
 1670WHILEc%>0:PROCF(d%,q%,x%,0,0,1):c%-=1:ENDWHILE
 1671ENDIF:ENDPROC
 1672DEFPROCoJ(B%):LOCALA_%,fy%,Ky%,d%,q%,x%,A$,Z$,C%,Py%,c%:Py%=B%!16:c%=B%+20:PROCP(B%!&C,fy%,Ky%,d%,q%,x%):PROCjy(d%,q%,x%,Py%):A_%=FNF(fy%,Ky%,d%,q%,x%):WHILE?c%<>&B:A$+=CHR$?c%:c%+=1:ENDWHILE:c%+=1:WHILE?c%<>&B:Z$+=CHR$?c%:c%+=1:ENDWHILE:c%+=1:WHILE?c%<>&B:C$+=CHR$?c%:c%+=1:ENDWHILE
 1673PROCFy(B%):PROCKy(A_%,Py%,A$,Z$,C$):ENDPROC
 1674DEFPROCjy(RETURNd%,RETURNq%,RETURNx%,F%):LOCALl%,c%,r%:l%=(F%>>8)AND&F:c%=(F%>>&C)AND&F:r%=(F%>>16)AND&F:WHILEr%>0:PROCF(d%,q%,x%,-d%+1,1,0):r%-=1:ENDWHILE:CASEl%OF
 1675WHEN1,2,3:u%=FNH(d%,q%,x%):WHILEu%<>c%:d%+=1:u%=FNo(u%+1):ENDWHILE:d%+=(l%-1)*7
 1676WHEN4,5,6:d%=FNX(q%,x%):u%=FNH(d%,q%,x%):WHILEu%<>c%:d%-=1:u%=FNo(u%+6):ENDWHILE:d%-=(l%-4)*7
 1677ENDCASE:ENDPROC
 1678DEFPROC`(RETURN_%,RETURNQ%):!J%=f%:SYS&400CB,,J%:_%=J%!4+714+64:Q%=J%!16-480-40:ENDPROC
 1679DEFPROCY(hu%,r%):LOCALK_%,M%,Lu%,my%,zi%,A$:Lu%=r%<>0:my%=FALSE:r%+=VALFNZ(f%,5):b%=VALFNZ(f%,3):K_%=(FNZ(f%,&C)=FNA("pm")):M%=FNX(C_%,b_%):IFb%=&CTHENb%=0
 1680IFK_%THENb%+=&C
 1681b%+=hu%:hu%=hu%<>0:IFr%<0THENb%-=1:r%+=60:hu%=TRUE
 1682IFr%>59THENb%+=1:r%-=60:hu%=TRUE
 1683IFb%<0THENW_%-=1:b%+=24:my%=TRUE
 1684IFb%>23THENW_%+=1:b%-=24:my%=TRUE
 1685IFW_%<1THENC_%-=1:my%=TRUE
 1686IFW_%>M%THENC_%+=1:W_%=1:my%=TRUE
 1687IFC_%<1THENb_%-=1:C_%=&C:my%=TRUE
 1688IFC_%>&CTHENb_%+=1:C_%=1:my%=TRUE
 1689M%=FNX(C_%,b_%):IFW_%=0ORW_%>M%THENW_%=M%
 1690zi%=(b%>=&C):IFb%>&CTHENb%-=&C
 1691IFmy%THENPROCA(f%,1,FNQ(W_%,C_%,b_%,-1))
 1692IFb%=0THENb%=&C
 1693IFhu%THENPROCA(f%,3,STR$b%)
 1694A$=STR$r%:IFr%<&ATHENA$="0"+A$:IFr%=0THENA$="00"
 1695IFLu%THENPROCA(f%,5,A$)
 1696IFzi%<>K_%THEN
 1697IFzi%THENA$=FNA("pm")ELSEA$=FNA("am")
 1698PROCA(f%,&C,A$)
 1699ENDIF:ENDPROC
 1700DEFPROCV_:LOCALS%,C%,B%:C%=-1:M_%=-1:z%=OPENINx$:IFNOTlJ%ANDz%<>0THEN
 1701WHILENOTEOF#z%:S%=VALGET$#z%:B%=FNw(w_%,S%+1,TRUE):IFC%<>-1THENC%!4=B%ELSEM_%=B%
 1702!B%=C%:B%!8=S%:SYS&C,4,z%,B%+&C,S%-&C:C%=B%:IFs_%THENPROCd(NOT1)
 1703ENDWHILE:IFM_%<>-1THENB%!4=-1
 1704CLOSE#z%:z%=0
 1705ENDIF:ENDPROC
 1706DEFPROCvJ(RETURNc%,RETURNr%,Q%):LOCAL_l%,_y%:_l%=(Q%+1)MOD19:IF_l%=0THEN_l%=19
 1707_y%=(ABS(1.25*Q%)+6)MOD7:c%=Y%(_l%-1,_y%):IFc%>31THENc%-=31:r%=4ELSEr%=3
 1708ENDPROC
 1709DEFPROCAl:LOCAL_i%,Ai%,d%,u%,c%:DIMY%(18,6):FOR_i%=1TO19:FORAi%=0TO6:CASE_i%OF
 1710WHEN&E:u%=1
 1711WHEN3:u%=2
 1712WHEN&B:u%=4
 1713WHEN19:u%=6
 1714WHEN8:u%=7
 1715WHEN16:u%=9
 1716WHEN5:u%=&A
 1717WHEN&D:u%=&C
 1718WHEN2:u%=&D
 1719WHEN&A:u%=&F
 1720WHEN18:u%=17
 1721WHEN7:u%=18
 1722WHEN&F:u%=20
 1723WHEN4:u%=21
 1724WHEN&C:u%=23
 1725WHEN1:u%=24
 1726WHEN9:u%=26
 1727WHEN17:u%=27
 1728WHEN6:u%=28
 1729ENDCASE:d%=21+u%:n$=FNA("Mon3")+" ":REPEATd%+=1:c%=5-(d%MOD7):IFc%=-1THENc%=6
 1730UNTILc%=Ai%:Y%(_i%-1,Ai%)=d%:IFd%>31THENd%-=31:n$=FNA("Mon4")+" "
 1731NEXT:NEXT:ENDPROC
 1732DEFPROCqu:sy%=2:Vi%=&B:TJ%=TRUE:bJ%=1:Si%=FNWy(FNA("GYM")+FNOy("GYM",1,2,"\","")+"\"):ji%=FNpy(Si%,2,"",5,"A0-9"):Zl%=FNC("CAM","CAM",1,3):PROCz(Zl%,2,Si%):ENDPROC
 1733DEFFNM_=Zl%
 1734DEFPROCCJ(A%):B%(A%)=&77d:W%(A%)=&fff:S%(A%)=Fy%:M$(A%)=FNA("CalTab"):PROCWJ:ENDPROC
 1735DEFPROCSJ(x%,h%,a%,K%):IFsy%=1THENPROCJJ(x%,h%,a%,K%)
 1736IFsy%=2THENPROCPu(x%,h%,a%,K%)
 1737ENDPROC
 1738DEFPROCn_(p%,Oi%):LOCALA%:CASE!p%OF
 1739WHEN0,1:A%=sy%:sy%=!p%+1:uJ%=sy%<>A%
 1740WHEN2:CASEp%!4OF
 1741WHEN0:IFv%<>Fy%+(sy%=1)THENv%=Fy%:t%=Oi%
 1742WHEN1:IFv%<>Fy%+1+(sy%=1)THENv%=Fy%+1:t%=Oi%
 1743WHEN2:A%=VAL$ji%:CASETRUEOF
 1744WHENA%<&77d:PROCB(FNO("ErrMin",STR$&77d,"","",""))
 1745WHENA%>&fff:PROCB(FNO("ErrMax",STR$&fff,"","",""))
 1746OTHERWISEIFv%<>A%+(sy%=1)THENv%=A%:t%=Oi%
 1747ENDCASE
 1748ENDCASE
 1749ENDCASE:ENDPROC
 1750DEFPROCNy(l%):v%+=(3-sy%)*l%:IFv%<B%(t%)THENv%=B%(t%)
 1751IFv%>W%(t%)THENv%=W%(t%)
 1752ENDPROC
 1753DEFPROCQu(n%,h%,_%,Q%,o_%,wJ%):LOCALPa%,d%,q%,x%:IFn%<>2THEN
 1754Pa%=FNly(h%,_%,Q%,d%,q%,x%):IFPa%THEN
 1755CASEbJ%+n%OF
 1756WHEN5,3:PROCI(d%,q%,x%):t%=FNP(3):v%=S%(t%)
 1757WHEN6,2:PROCs(d%,q%,x%):QJ%=TRUE
 1758ENDCASE
 1759ENDIF
 1760ENDIF:ENDPROC
 1761DEFFNfy(w%,Cy%):k%=TRUE:CASECy%OF
 1762WHEN414:PROCNy(1)
 1763WHEN415:PROCNy(-1)
 1764WHEN30:IFv%<>Fy%+(sy%=1)THENv%=Fy%
 1765OTHERWISEk%=FALSE
 1766ENDCASE:=k%
 1767DEFPROCGJ(p%,s%):IFtJ%=By%THENPROCb(s%,6,!p%):PROCH(By%,0,-1):PROCJ(By%,!p%,1)
 1768ENDPROC
 1769DEFFNLy(e%,w%,Cy%):=FALSE
 1770DEFPROCe_(z%):BPUT#z%,sy%:BPUT#z%,TJ%+5:BPUT#z%,!SJ%:BPUT#z%,bJ%:ENDPROC
 1771DEFPROCqJ(z%):sy%=BGET#z%:TJ%=BGET#z%-5:Vi%=BGET#z%:bJ%=BGET#z%:ENDPROC
 1772DEFPROCxu(s%,Sy%,p%,_%,Q%):CASESy%OF
 1773WHEN7,1,4,5:IFn%<>2PROCZ(s%,Sy%,1)
 1774WHEN6:PROCH(By%,0,-1):PROCJ(By%,FNp(s%,6),1):PROCC(By%,_%,Q%,s%,Sy%)
 1775WHEN9:IFFNZ(s%,9)=FNA("SetAlarm")+"/"+FNA("GotoDiary")THENPROCA(s%,9,FNA("GotoDiary")+"/"+FNA("SetAlarm"))ELSEPROCA(s%,9,FNA("SetAlarm")+"/"+FNA("GotoDiary"))
 1776ENDCASE:ENDPROC
 1777DEFPROCRu(s%):PROCZ(s%,7,-(sy%=1)):PROCZ(s%,1,-(sy%=2)):PROCb(s%,6,!SJ%):PROCZ(s%,4,-NOTTJ%):PROCZ(s%,5,-TJ%):IFbJ%=1THENPROCA(s%,9,FNA("GotoDiary")+"/"+FNA("SetAlarm"))ELSEPROCA(s%,9,FNA("SetAlarm")+"/"+FNA("GotoDiary"))
 1778ENDPROC
 1779DEFPROCKJ(s%):IFFNM(s%,7)THENsy%=1ELSEsy%=2
 1780TJ%=FNM(s%,5):!SJ%=FNp(s%,6):IFFNZ(s%,9)=FNA("GotoDiary")+"/"+FNA("SetAlarm")THENbJ%=1ELSEbJ%=2
 1781ENDPROC
 1782DEFFNly(h%,_%,Q%,RETURNd%,RETURNq%,RETURNx%):LOCALp_%,oy%,hy%,vy%,zu%,wu%:IFsy%=1THEN
 1783p_%=(j%-32)/2:oy%=(m%-50)/6:hy%=p_%/7:vy%=(oy%-&A)/8:x%=v%+ABSh%:q%=2*((-Q%-50)DIVoy%)+((_%-20)DIV((j%-8)/2)):_%-=20+(q%MOD2)*((j%-8)/2):Q%=-Q%-50-((q%DIV2)*oy%):q%+=1:zu%=(_%+hy%*(1-0.12)+20*ABSh%)DIVhy%:wu%=((Q%-&A-vy%)DIVvy%)-1
 1784IFzu%>0ANDzu%<8THENd%=1+zu%+7*wu%-FNH(1,q%,x%)
 1785ELSE:p_%=(j%-40)/2:oy%=(m%-50)/3:hy%=p_%/7:vy%=(oy%-&A)/8:x%=v%:q%=2*((-Q%-50)DIVoy%)+((_%-20)DIV((j%-8)/2)):_%-=20+(q%MOD2)*((j%-8)/2):Q%=-Q%-50-((q%DIV2)*oy%):q%+=1+6*ABSh%:zu%=(_%-hy%*0.25+20*ABSh%)DIVhy%-1:wu%=Q%DIVvy%:IFwu%>0ANDwu%<8THENd%=1+wu%+7*zu%-FNH(1,q%,x%)
 1786ENDIF:IFx%<>-1THEN
 1787IFd%<=0ORd%>FNX(q%,x%)ORx%>&fffTHENx%=-1:d%=-1:q%=-1
 1788ENDIF:=(x%>0)
 1789DEFPROCPu(x%,h%,a%,K%):LOCALq%,u%,c%,hy%,vy%,fa%,A$,r%,A%,B%,C%,D%,E%,F%,G%,H%:p_%=(j%-40)/2:oy%=(m%-50)/3:vy%=(oy%-&A)/8:hy%=p_%/7:IFh%THEN
 1790IFx%<W%(t%)THENPROCR(1,a%,K%)
 1791ELSEIFx%>B%(t%)THENPROCR(0,a%,K%)
 1792ENDIF:Bu%=FNJ("Homerton.Medium",20,20):yu%=FNJ("Homerton.Medium",&D,&D):bu%=FNJ("Homerton.Medium",9,9):PROCV(0,7):PROCL(Bu%,STR$x%,0,a%+j%/2,K%-8):FORr%=1TO6:q%=r%+6*h%:_%=(r%-1)MOD2*(j%-8)/2+20-20*h%:Q%=50+(r%-1)DIV2*oy%:IFFNS(a%+_%,K%-Q%,p_%,-oy%)THEN
 1793PROCL(yu%,FNU(q%,-1),-1,a%+_%,K%-Q%):u%=FNH(1,q%,x%)-1:SYS&4008A,bu%:Q%+=vy%-6:FORc%=1TO7:SYS&40086,,FNc(c%,2),1<<4,a%+_%,K%-Q%-vy%*c%:NEXT:_%+=hy%:A%=K%-Q%:D%=a%+_%:F%=FNX(q%,x%):G%=u%:H%=hy%:B%=-vy%:IFx%=Fy%ANDq%=by%THENC%=Uy%ELSEC%=0
 1794IFTJ%ANDC%<>0THENC%=0:SYS&400E6,!SJ%:RECTANGLEa%+_%+((u%-1+Uy%)DIV7+0.25)*hy%,K%-Q%-((u%-1+Uy%)MOD7+0.25)*vy%,hy%,-vy%
 1795CALLK
 1796ENDIF:NEXT:PROCQ(Bu%):PROCQ(yu%):PROCQ(bu%):ENDPROC
 1797DEFPROCJJ(v%,h%,a%,K%):LOCALq%,u%,c%,hy%,ra%,oy%,A$,A%,B%,C%,D%,E%,F%,G%,H%:p_%=(j%-32)/2:oy%=(m%-50)/6:hy%=p_%/7:vy%=(oy%-&A)/8:x%=v%+h%:IFh%THEN
 1798IFv%+1<W%(t%)THENPROCR(1,a%,K%)
 1799ELSEIFv%>B%(t%)THENPROCR(0,a%,K%)
 1800ENDIF:IFx%<=&fffTHEN
 1801Bu%=FNJ("Homerton.Medium",20,20):yu%=FNJ("Homerton.Medium",&A,&A):bu%=FNJ("Homerton.Medium",7,7):PROCV(0,7):PROCL(Bu%,STR$x%,0,a%+j%/2,K%-8):FORq%=1TO&C:_%=(q%-1)MOD2*(j%-8)/2+20-20*h%:Q%=50+(q%-1)DIV2*oy%:IFFNS(a%+_%,K%-Q%,p_%,-oy%)THEN
 1802PROCL(yu%,FNU(q%,-1),-1,a%+_%,K%-Q%):u%=FNH(1,q%,x%)-1:SYS&4008A,bu%:Q%+=vy%+4:FORc%=1TO7:SYS&40086,,"  "+FNc(c%,2),1<<4,a%+_%+hy%*c%-hy%,K%-Q%-vy%:NEXT:Q%+=vy%:A%=a%+_%-hy%:E%=K%-Q%-vy%:F%=FNX(q%,x%):G%=u%:H%=hy%:B%=vy%:IFx%=Fy%ANDq%=by%THENC%=Uy%ELSEC%=0
 1803IFTJ%ANDC%<>0THENC%=0:SYS&400E6,!SJ%:RECTANGLEa%+_%+((u%-1+Uy%)MOD7+0.12)*hy%,K%-Q%-((u%-1+Uy%)DIV7+0.18)*vy%,hy%*0.76,-vy%
 1804CALLY
 1805ENDIF:NEXT
 1806ENDIF:PROCQ(Bu%):PROCQ(yu%):PROCQ(bu%):ENDPROC
 1807DEFPROCWJ:LOCALP%,A%,Di%,Ia%,J,P,R,H,S,O,M,_,Z,T,X,B,A:DIMIa%456:J=&D:P=&E:R=&F:H=5:S=6:O=0:M=3:_=0:Z=4:T=7:X=8:B=9:A=&A:FORDi%=0TO2STEP2:P%=Ia%:[OPTDi%:.Y:STMFD(J)!,{P}:MOV X,1:MOV B,2:MOV A,#0:MOV2,#1<<4:ADR1,L:.z:ADD S,S,#1:ADD A,A,#1:CMP B,A:BLEQ D:MUL M,T,S
 1808ADD M,M,O:SWI &40086:CMP B,A:BLEQ I:CMP S,#7:SUBEQ Z,Z,X:MOVEQ S,#0:ADD1,1,#8:CMP A,H:BNE z:LDMFD(J)!,{pc}:.K:STMFD(J)!,{P}:MOV X,1:MOV B,2:MOV A,#0:MOV2,#1<<4:ADR1,L:.s:ADD S,S,#1:ADD A,A,#1:CMP B,A:BLEQ D:MUL Z,X,S
 1809ADD Z,Z,_:SWI &40086:CMP B,A:BLEQ I:CMP S,#7:ADDEQ M,M,T:MOVEQ S,#0:ADD1,1,#8:CMP A,H:BNE s:LDMFD(J)!,{pc}:.D:STMFD(J)!,{P,1-2}:LDR2,SJ%:B q:.I:STMFD(J)!,{P,1-2}:MOV2,#7:.q:MOV1,#0:SWI &400F3:LDMFD(J)!,{pc,1-2}:.SJ%&Vi%:.L
 1810]FORA%=1TO31:[OPTDi%:=STRING$(2-2*(A%<&A)," ")+STR$A%+CHR$0:ALIGN:]NEXT:NEXT:ENDPROC
�>!RunImage
0�Produced by BasCompress v1.71 (19 Sep 1996)
5�YJ:z%=0:ml%=�:di%=-1:��Vy:���,�$+" at line "+Þ
�eu%=-1:Ju%=0::�U%512:J%=U%+256:�pu:z%=�"<Organiser$Dir>.Resources.!Language":_$=�#z%:d$="<Organiser$Dir>.Resources."+_$:�#z%:z%=0:�FJ(d$+".Messages"):�wJ(�A("Title"),"<Organiser$Dir>","1.20 (27 Oct 97)",�):ș66�Ju%:eu%=Ju%+500:ȕ�Du%:�d(1):�:�Vy:�
0��Vy:�ml%=��ș&406C2:���,�$+" at line "+Þ:�
/ml%=�:f$=�$+" at line "+Þ:ii%=�:�ii%,f$
�z%<>0��#z%:z%=0
�nJ:�Cy:ș&400DD:�
	2��d(Al%):�A$,Ui%,Sl%,py%,uJ%:uJ%=�:�ey%�Su%��t

B�Iu%�ey%<>Ni%�Ni%=ey%:�i(i%,ti%,�A("Title")+�-(ey%=�)," *"),�)
�Al%�1�Sl%=&64
�B$<>""�Sl%=0

�(XJ%<>-1)�Vy%�Sl%=0
1Al%=(Al%�(3<<&B)+(1<<5))��(1+(3<<17)):�Sl%>0�
9ș66�mi%:ȕmi%>Ju%:Ju%+=&64:�:ș&400E1,Al%,U%,Ju%�Ui%
�ș&400C7,Al%,U%�Ui%
�:ȎUi%�
�0:Ȏ��
�XJ%<>-1�Vy%:�Vu
�Ju%>eu%�eu%<>-1:�W_
$�(Sl%<>0�B$<>"")�di%<>�Qy:�u:�I_
�B$<>"":�iu
�

�1:�VJ
�2:�!U%=I_%�
�yJ
�:�!U%=i%�FJ%�U%!20=0

笤Vy��`y
 ș&400C5,,U%:�!U%=i%�FJ%��`_
�

�3:Ȏ!U%�
 
�f%:�n
!�I_%:�h
"�Ly%:�By
#�Hy%:�y
$�VJ%:�zy
%�zy%:�Cy
&�G(!U%)
'�
()�4:�0<>0�ș&400E9,36,,"ptr_default",1
)�5
*)�6:�Iu%��e(U%!&C,U%!16,U%!8,!U%,U%!4)
+�7
,�8:�`J(!U%,U%!4,U%!24)
-
�9:�BJ
.�17,18:�gu
/�19:�U%!4=su%�U%!16=&4AF80�
01A$=�N(U%+20):�jJ%=1��t("Alias$URLOpen_HTTP")�
1ș&400DE,"URLOpen_HTTP "+A$
2(�:�jJ%=2��t("Alias$URLOpen_MailTo")�
3!ș&400DE,"URLOpen_MailTo "+A$
4�
5�
6�:�Du%��Vy:�
7�
8*ݤVy=(ry%<>U%!16-U%!8�xy%<>U%!&C-U%!4)
9B��u�A%,S%,M%,H%,R%,M$,ri%,vi%,bi%,hi%,Rl%,I$:�(qy%�4)=4�MJ%=0�
:�M$=�K("%12%mi%se"):H%=��M$,2):M%=��M$,3,2):S%=��M$,5,2):M%=M%*6:S%=S%*6:H%=H%*30+M%/&C:Rl%=�:ș46,316,Z_%,"clock",0�ri%,vi%,bi%,hi%:�1:ȓȐ0,0,U_%,Cu%:R%=56:ȑU_%/2,Cu%/2:�P%(0):ȏȐ0,0,R%:�P%(3)
;��A%=0�330�30:�R%*��A%,R%*��A%,(R%-&A)*��A%,(R%-&A)*��A%:�:�P%(1)+(P%(1)-P%(2))*(s_%��Iu%):ȏ0,0,R%:�P%(5):�0,0:�(R%*0.35)*��(M%-9),(R%*0.35)*��(M%-9):�85,(R%*0.35)*��(M%+9),(R%*0.35)*��(M%+9):�(R%*0.35)*��(M%-9),(R%*0.35)*��(M%-9)
<��85,(R%*0.7)*��M%,(R%*0.7)*��M%:�P%(4):�0,0:�(R%*0.25)*��(H%-9),(R%*0.25)*��(H%-9):�85,(R%*0.25)*��(H%+9),(R%*0.25)*��(H%+9):�(R%*0.25)*��(H%-9),(R%*0.25)*��(H%-9):�85,(R%*0.5)*��H%,(R%*0.5)*��H%:�P%(6):ȏȐ0,0,2
=+�qy%�2��0,0,(R%*0.9)*��S%,(R%*0.9)*��S%
>ș46,ri%,vi%,bi%,hi%
?�:�(qy%�8)=8�MJ%>0�
@Aș&400EC,-1,-1�,,H%:M$=�(H%�&400)+"k":�$aJ%<>M$�$aJ%=M$:Rl%=�
A�:�(qy%�16)=0�
B#M$=":%mi":�(qy%�2)=2�M$+=".%se"
C)�r_%�M$="%z24"+M$�M$="%z12"+M$+" %am"
D
�M$=N$
E'�:M$=�K(M$):�M$<>$aJ%�$aJ%=M$:Rl%=�
F�
GB�:�Rl%�!U%=-1-7*�(u_%):U%!4=NJ%:U%!8=0:U%!&C=0:ș&400CD,,U%:Ȗ
H�
I"��I_:�Uy%<>�I�by%<>�V�Fy%<>�L�
J9qJ%=�F(0,0,Uy%,by%,Fy%):Fy%=�L:by%=�V:Uy%=�I:�xJ%��Py
K�Vy%�py%=0:�O
LPu%=�:V_%=t%:z_%=v%:�J_:�c
M$�:�xJ%�mJ%<>0��G(mJ%,�z)<>1��gJ
N"�rJ%<>-1��G(rJ%!&C,�z)<>1��yu
O#�J_%>0��7:J_%-=1:�J_%=0�J_%=-&A
P�J_%<0�J_%+=1:�J_%=0�J_%=&A
Q�MJ%>0�MJ%-=1:�MJ%=0��m:�u
R
di%=�Qy:�
S6ݤK(A$):?J%=3:ș7,&E,J%:ș&C1,J%,J%,&80,A$:=�N(J%)
Tݤf=��K("%24")
Uݤi=��K("%MI")
VݤQy=��K("%SE")
WݤI=��K("%DY")
XݤV=��K("%MN")
YݤL=��K("%CE%YR")
Z?ݤF(fy%,b%,c%,r%,Q%)=fy%�(b%<<6)�(c%<<&B)�(r%<<16)�(Q%<<20)
[i��P(s%,�fy%,�b%,�c%,�r%,�Q%):fy%=s%�63:b%=(s%>>6)�31:c%=(s%>>&B)�31:r%=(s%>>16)�&F:Q%=(s%>>20)�&FFF:�
\ݤn(s%)=s%��&7FF
]ݤvy(s%)=s%�63
^ݤXy(s%)=(s%>>6)�31
_ݤz=�F(�i,�f,�I,�V,�L)
`EݤG(A%,B%):�Bi%,jl%,Li%,ei%,Ki%,Y_%:�Wi%,Ji%,Qi%,si%,ai%:�A%<>B%�
a>�P(A%,Ki%,ei%,Li%,jl%,Bi%):�P(B%,ai%,si%,Qi%,Ji%,Wi%):Ȏ��
b�Bi%>Wi%:Y_%=1
c�Bi%<Wi%:Y_%=-1
d�jl%>Ji%:Y_%=1
e�jl%<Ji%:Y_%=-1
f�Li%>Qi%:Y_%=1
g�Li%<Qi%:Y_%=-1
h�ei%>si%:Y_%=1
i�ei%<si%:Y_%=-1
j�Ki%>ai%:Y_%=1
k�Ki%<ai%:Y_%=-1
l�
m
�Y_%=0
n
�:=Y_%
ow��eu(_%,Q%,Ry%)ș&400E6,5:ȓȐ_%+20,Q%,36-20,20:ȓȐ_%+20,Q%+Ny%,36-20,-20:ș&400E6,Ry%:ȓȐ_%,Q%+20,36-20,Ny%-2*20
p�ȓȐ_%+36,Q%+2*20,-20,Ny%-4*20:�T(5,Ry%,_%+20,Q%,20,2):�T(5,Ry%,_%+20,Q%+Ny%,20,3):�T(Ry%,5,_%+36-20,Q%+2*20,20,4):�T(Ry%,5,_%+36-20,Q%+Ny%-2*20,20,1):�
q���wu(_%,Q%,Ry%)ș&400E6,5:ȓȐ_%-20,Q%,20-36,20:ȓȐ_%-20,Q%+Ny%,20-36,-20:ș&400E6,Ry%:ȓȐ_%,Q%+20,-36+20,Ny%-2*20:ȓȐ_%-36,Q%+2*20,20,Ny%-4*20
r}�T(5,Ry%,_%-20,Q%,20,1):�T(5,Ry%,_%-20,Q%+Ny%,20,4):�T(Ry%,5,_%-36+20,Q%+2*20,20,3):�T(Ry%,5,_%-36+20,Q%+Ny%-2*20,20,2):�
s5��T_(e%,a%,K%):�e%=i%��Zu(e%,a%,K%)��Cu(e%,a%,K%)
t�
u���Zu(e%,a%,K%)�A%,_%,Q%,Y%:�bl%,li%,pi%:ș46,40+256,Z_%,"ring"�,,,li%,pi%:ș&400E6,0:�X(a%+dy%-32,K%-o%,j%+32,-m%):�t%>0��X(a%+yy%,K%-o%,j%+32,-m%)
v�ș&400E6,1:�X(a%,K%,5,-ry%):�X(a%+i_%+36+20,K%,5,-ry%):�X(a%,K%,xy%,-5):�X(a%,K%-ry%,xy%,5):ș&400E6,5:�t%=0��X(a%+yy%,K%-o%,j%+32,-m%)
w!�t%=0��X(a%+GJ%,K%-o%,32,-m%)
x��X(a%+l_%,K%-o%-t%*Ny%,36,-m%+t%*Ny%):�X(a%+i_%,K%-o%,36,-Ny%*t%):�X(a%+i_%,K%-o%-iy%*Ny%,36,-m%+iy%*Ny%):�X(a%+5,K%-5,20,-m%-2*20):�X(a%+5,K%-5,xy%-2*5,-20):�X(a%+xy%-5,K%-5,-20,-m%-2*20):�X(a%+5,K%-ry%+5,xy%-2*5,20):�S(a%+GJ%,K%-o%,&64,-m%)�
y�ȓȐa%+GJ%+32,K%-o%,&64-2*32,-m%:_%=�a(a%+GJ%+&64/2):Y%=�a(K%-o%-m%/(_J%+1)):�A%=1�_J%:�S(_%-40-8,Y%-8,2*(40+8),40+8)�(Ku%�1<<(A%-1))>0�
z[ș&400ED,256,Z_%,"ring",,,,J%,J%+&80:ș46,52+256,Z_%,"ring",_%-li%,Y%-pi%/2,8,J%,J%+&80
{�:Y%-=�a(m%/(_J%+1)):�
|9�:�S(a%+5,K%-5-20,20,20)�T(5,1,a%+5+20,K%-5-20,20,2)
}<�S(a%+5,K%-ry%+5,20,20)�T(5,1,a%+5+20,K%-ry%+5+20,20,3)
~B�S(a%+xy%-5-20,K%-5-20,20,20)�T(5,1,a%+xy%-5-20,K%-5-20,20,1)
G�S(a%+xy%-5-20,K%-ry%+5,20,20)�T(5,1,a%+xy%-5-20,K%-ry%+5+20,20,4)
�=ș&40081,,"Homerton.Medium",&96,&96�bl%:�A%=1�iy%:�t%<A%�
�&�S(a%+i_%,K%-o%-(Ny%*A%),36,Ny%)�
�n�eu(a%+i_%,K%-o%-(Ny%*A%),D%(A%)):�V(D%(A%),I%(A%)):�ey(bl%,M$(A%),0,0,a%+i_%+36/2,K%-o%-(Ny%*(A%-0.5)),1)
��
�(�:�S(a%+l_%,K%-o%-(Ny%*A%),36,Ny%)�
�r�wu(a%+l_%+36,K%-o%-(Ny%*A%),D%(A%)):�V(D%(A%),I%(A%)):�ey(bl%,M$(A%),0,0,a%+l_%+36/2,K%-o%-(Ny%*(A%-0.5)),-1)
��
�A�:�:�t%>0��S(a%+yy%,K%-o%,j%+32,-m%)��`J%��ny(0,a%+yy%,K%-o%)
�;�S(a%+dy%-32,K%-o%,j%+32,-m%)��`J%��ny(1,a%+dy%,K%-o%)
�ș&40082,bl%:�
�V��R(h%,a%,K%):ș&400ED,256,Z_%,"corner",,,,J%,J%+&80:�h%=1��S(a%+j%,K%-m%,-32,32)�
��ș46,47+256,Z_%,"corner":ș46,52+256,Z_%,"corner",a%+j%-16*2,K%-m%+2,8,J%,J%+&80:ș46,47+256,Z_%,"corner":�S_(a%+j%-32,K%,G%(1))
��:�h%=0�
�!G%(0)=a%:�S(a%,K%-m%,32,32)�
�Fș46,52+256,Z_%,"corner",a%+2,K%-m%+2,8,J%,J%+&80:�S_(a%,K%,G%(0))
��
��:�
�9��S_(a%,K%,�cy%):!J%=i%:�cy%>=0�J%!4=cy%:ș&400C4,,J%
��ș&400CB,,J%:J%!4=a%-J%!4:J%!8=K%-J%!16-m%:J%!&C=J%!4+32:J%!16=J%!8+32:J%!20=&7003119:J%!24=Ol%:J%!32=0:�h%�J%!28=Ii%�J%!28=Ti%
�ș&400C2,,J%�cy%:�
�1��p_:!J%=i%:�G%(0)>=0�J%!4=G%(0):ș&400C4,,J%
�%�G%(1)>=0�J%!4=G%(1):ș&400C4,,J%
�
G%()=-1:�
����Cu(e%,a%,K%):�R%,A%:a%+=(24+&B8)/2:K%-=(64+&D0)/2:R%=56:ș&400E6,1:ȓȐ0,0,&BB8:ș&400E6,X%(0):ȏȐa%,K%,R%:ș&400E6,X%(3):�A%=0�330�30:�a%+R%*��A%,K%+R%*��A%,a%+(R%-&A)*��A%,K%+(R%-&A)*��A%:�:ș&400E6,X%(1):ȏa%,K%,R%:ș&400E6,X%(5):A%=60
���a%,K%:�a%+(R%*0.35)*��(A%-9),K%+(R%*0.35)*��(A%-9):�85,a%+(R%*0.35)*��(A%+9),K%+(R%*0.35)*��(A%+9):�a%+(R%*0.35)*��(A%-9),K%+(R%*0.35)*��(A%-9):�85,a%+(R%*0.7)*��A%,K%+(R%*0.7)*��A%:ș&400E6,X%(4):A%=300
���a%,K%:�a%+(R%*0.25)*��(A%-9),K%+(R%*0.25)*��(A%-9):�85,a%+(R%*0.25)*��(A%+9),K%+(R%*0.25)*��(A%+9):�a%+(R%*0.25)*��(A%-9),K%+(R%*0.25)*��(A%-9):�85,a%+(R%*0.5)*��A%,K%+(R%*0.5)*��A%:ș&400E6,X%(6):�a%,K%:�BY0,-(R%*0.9):ȏȐa%,K%,2:�
�0ݤc(u%,zJ%):=��A("Day"+�(((u%-1)�7)+1)),zJ%)
��ݤDy(u%,zJ%):�A$,q$:A$=",Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday,":u%=((u%-1)�7)+1:�A$=�A$,�A$,",")+1):u%-=1:�u%=0:q$=�A$,�A$,",")-1):�zJ%>0�q$=�q$,zJ%)
�=q$
��ݤIy(Wl%,zJ%):�A$,O$:A$=",January,February,March,April,May,June,July,August,September,October,November,December,":Wl%=((Wl%-1)�&C)+1:�A$=�A$,�A$,",")+1):Wl%-=1:�Wl%<=0:O$=�A$,�A$,",")-1):�zJ%>0�O$=�O$,zJ%)
�=O$
�ݤA_(d%):=�d%+�Ny(d%)
�}ݤNy(d%):�A$,Z$,C$,A%,Oy%:A$=�A("th"):Z$=�A$,�A$,",")-1):ȕ�A$,",")��Oy%:A$=�A$,�A$,",")+1):C$=�A$,�A$,",")-1):�C$,"#")�
����d%,�C$-1)=�C$,2)�Oy%=�
���C$=d%�Oy%=�
�
�:�:�Oy%�
�<ȕ�A$>0��(A$)=35:A$=�A$,�A$,",")+1):�:Z$=�A$,�A$,",")-1)
�	�:=Z$
�3ݤU(Wl%,zJ%):=��A("Mon"+�(((Wl%-1)�&C)+1)),zJ%)
�%ݤoy(b%,r%,Xu%,r_%):�A$,Z$:�r_%�
�*�b%>&B�Z$=" "+�A("pm")�Z$=" "+�A("am")
��:�b%>&C��r_%�b%-=&C
�&�r_%�A$=�-(b%<&A),"0")��b%=0�b%=&C
�HA$+=�b%+":"+�-(r%<&A),"0")+�r%:�Xu%<>-1�A$+=":"+�-(Xu%<&A),"0")+�Xu%
�
=A$+Z$
����wJ(k$,`$,Zy$,sa%):K$=k$:V$=Zy$:Ru%=0:Du%=�:J$=`$:c_%=0:x_%=0:Hu%=�:Vy%=�:ș&400C0,&C8,&4B534154,K$�za%,su%:�MJ:�sa%��du(aa%,d$+".Templates")
�
�t_:�Hu:�
���gu:�S%:ȎU%!16�
��0:Du%=�
��1:�OJ(U%!40,�N(U%+44))
��3:�g_(U%!40,�N(U%+44))
�
�8:�AJ
��&400C1:�F_
�$�&400C2:�N(U%+28)=K$�U%!4<>su%�
��B(�A("ErrRun")):�eJ(U%!4)
��
��&400CC:ȎU%!20�
��i%:$(U%+36)=�A("Title")
� �f%,Ly%:$(U%+36)=�A("Alarm")
��ay%:$(U%+36)=�A("Date")
� �I_%:$(U%+36)=�A("Settings")
�#�Hy%,VJ%:$(U%+36)=�A("AnniTab")
� �Ay%:$(U%+36)=�A("Setclock")
�K�:!U%=56:$(U%+28)="org":S%=U%!4:U%!4=su%:ȔU%!8,U%!&C:ș&400E7,17,U%,S%
��:�
�?ݤPy(`u%,S$):ș&400CF,,J%:=((`u%=&FFF)�(`u%=&DFE))�J%!&C=f%
�"��g_(`u%,S$):�z%:�Py(`u%,S$)�
�8ȔU%!8,U%!&C:U%!16=4:ș&400E7,17,U%,U%!4:�J%!&C<>f%�
��zy%<>-1��Cy
�R�"Copy "+S$+" "+J$+".Import ~c ~v f":�S$="<Wimp$Scrap>"��"Remove <Wimp$Scrap>"
��RJ(J$+".Import")
���v_(S$)
��
��:�
�
ݤu:�ey%�
��By(�A("ErrSave"),�)��t
��:=�
���F_�Xa%,Qa%,M%:�(qy%�4)>0�
��`y(�)�M%=20�M%=&C
ϊș&2002E,281,Z_%,"clock":ș53,M%,4�,,Xa%:ș53,M%,5�,,Qa%:ș46,8+512,Z_%�,,,,,F%:ș46,271,Z_%,"clock",0,&74/(1<<Xa%),&78/(1<<Qa%),M%:�u
��:�
�I��e(e%,w%,n%,Xy%,Ty%)�A%,B%,A$,X_%:V_%=t%:z_%=v%:X_%=1+2*(n%=1):Ȏe%�
�W�i%:!U%=i%:ș&400CB,,U%:a%=U%!4-U%!20:K%=U%!16-U%!24:�u_(w%,n%,Xy%-a%,Ty%-K%,a%,K%)
�
�-2:Ȏn%�
��1:�s(Uy%,by%,Fy%)
�(�2:BJ%=-1:�C(Qu%,Xy%,�by(Qu%),e%,w%)
��4:Ȏ��
�ɦ-1:�Yy%=0��Ry
�ɦ-3:MJ%=5:�m
��x(i%,-1,-1)
��
��
��ay%:Ȏw%�
�9�0:�H(d_%,0,-1):�J(d_%,HJ%-1,�):�C(d_%,Xy%,Ty%,e%,w%)
�1�2,3:�Ly(-1,-1,(1+2*(w%=2))*X_%*(1-49*(�-1)))
��35:�ry:�n%<>1��G(ay%)
��36:�G(ay%)
�:�n%=2�
�6�H(d_%,0,-1):�J(d_%,HJ%-1,�):�C(d_%,Xy%,Ty%,e%,w%)
���Ly(w%-3,-1,0):�n%<256��ry
��
��
��Ay%:�n%<>2�
�	Ȏw%�
� �1:�e(Ay%,9+�M(Ay%,1),4,0,0)
��2:�Ay(P_%,N_%,Q_%,Ay%,w%)
��3:�y<>�M(Ay%,1)��Sy(-1)
��A%=�(�Z(Ay%,4))�&C -&C*t_%:A$=�A%:A$=�2-�A$,"0")+A$:$J%=�24+�Dy(�H(P_%,N_%,Q_%),3)+","+�-(P_%<&A),"0")+�P_%+" "+�Iy(N_%,3)+" "+�Q_%+"."+A$+":"+�Z(Ay%,5)+":00":ș&20007,&F,J%�;B%:�n%=4��G(Ay%)
�c�8:A%=�(�Z(Ay%,4))�&C -&C*t_%+X_%:�A%=24�A%=0:�F(P_%,N_%,Q_%,1,0,0):�A(Ay%,2,�Q(P_%,N_%,Q_%,�))
�C�A%=-1�A%=23:�F(P_%,N_%,Q_%,-1,0,0):�A(Ay%,2,�Q(P_%,N_%,Q_%,�))
�:t_%=A%>&B:�A%>&B��A(Ay%,7,�A("pm"))��A(Ay%,7,�A("am"))
�(A%=A%�&C:A%-=&C*(A%=0):�A(Ay%,4,�A%)
�e�9:A%=�(�Z(Ay%,4))�&C -&C*t_%-X_%:�A%=-1�A%=23:�F(P_%,N_%,Q_%,-1,0,0):�A(Ay%,2,�Q(P_%,N_%,Q_%,�))
�A�A%=24�A%=0:�F(P_%,N_%,Q_%,1,0,0):�A(Ay%,2,�Q(P_%,N_%,Q_%,�))
�:t_%=A%>&B:�A%>&B��A(Ay%,7,�A("pm"))��A(Ay%,7,�A("am"))
�(A%=A%�&C:A%-=&C*(A%=0):�A(Ay%,4,�A%)
�H�&A,&C:A%=��Z(Ay%,5)+(1-9*(w%=&A))*X_%:�A%>59�A%-=60:�e(Ay%,8,4,0,0)
� �A%<0�A%+=60:�e(Ay%,9,4,0,0)
��A(Ay%,5,�2-��A%,"0")+�A%)
�H�&B,&D:A%=��Z(Ay%,5)-(1-9*(w%=&B))*X_%:�A%>59�A%-=60:�e(Ay%,8,4,0,0)
� �A%<0�A%+=60:�e(Ay%,9,4,0,0)
��A(Ay%,5,�2-��A%,"0")+�A%)
�:�7:t_%=�t_%:�t_%��A(Ay%,7,�A("pm"))��A(Ay%,7,�A("am"))
��
��
��f%:�lu(Xy%,Ty%,e%,w%,X_%)
��Ly%:�jJ(Xy%,Ty%,e%,w%)
��Zu%:�W_
�Hy%:�tJ(w%)
"�I_%,Yy%:�Nu(e%,w%,n%,Xy%,Ty%)
�VJ%:�zy
�zy%:�h_(e%,w%,n%,Xy%,Ty%)
�DJ(e%,w%,n%,Xy%,Ty%)
�:�Qy:�
D��u_(w%,n%,_%,Q%,o_%,wJ%):�va%,ca%,A%,QJ%:A%=n%-3-(n%=1):�n%<>2�
�w%>=0�n%<>2�
	Ȏw%�
	�G%(0):�X_(-A%)

�G%(1):�X_(A%)
�o_(w%)
�

$�:�A%=1�iy%:�t%<A%�X%=i_%�X%=l_%
$�r(_%,Q%,X%,-o%-A%*Ny%,36,Ny%)�
�n%<>2�t%=A%:v%=S%(t%)
�:�
�
K�:�(w%=-1�n%=2)��r(_%,Q%,yy%,-o%,j%,-m%)��hy(n%,�,_%-yy%,Q%+o%,o_%,wJ%)
I�(w%=-1�n%=2)��r(_%,Q%,dy%,-o%,j%,-m%)��hy(n%,�,_%-dy%,Q%+o%,o_%,wJ%)

�n%=2�
(�T%(t%)<>-1��C(T%(t%),Xy%,Ty%,e%,w%)
��QJ%��M(i%,-1)
�:�
��Qy:�V_%=t%�
#�v%<>z_%�py%=0�py%=1+2*(v%<z_%)
(��C_(V_%):�M(i%,-1):py%=1+2*(t%<V_%)
�:�(uJ%�py%<>0)�Vy%��O
.S%(V_%)=z_%:S%(t%)=v%:�V_%<>t%��by(t%):�py
�
P��O:�p_:�Xu(py%):�D(i%,yy%,-o%,yy%+j%,-o%-m%):�D(i%,dy%,-o%,dy%+j%,-o%-m%):�
-��w_:�D(i%,yy%+j%-32,-o%,dy%+32,-o%-m%):�
 a��py:�D(i%,l_%,-o%,l_%+36,-o%-m%):�D(i%,i_%,-o%,i_%+36,-o%-m%):�D(i%,GJ%,-o%,GJ%+32,-o%-m%):�
!&��x(e%,IJ%,Vl%):�A%:A%=Vy%:�e%=i%�
"
�eJ%<>-1�
#i!J%=i%:ș&400CB,,J%:J%!4=au%:J%!8=xu%-ry%:J%!&C=au%+xy%:J%!16=xu%:J%!28=IJ%:ș&400C5,,J%:�w(i%,IJ%,0)
$��w(e%,IJ%,Vl%)
%�:�A%��M(i%,-1)
&��w(e%,IJ%,Vl%)
'�:�
(��Xu(A%):�Mu%�A%<>0�
)��qu%,_%,a%,K%,Ry%,g%,R%,C%:!J%=i%:ș&400CB,,J%:a%=J%!4-J%!20:K%=J%!16-J%!24:Ry%=a%+dy%-&64�2:g%=(&64/2-32):R%=j%+&64/2:ș&40742,0�C%:C%+=3<<4:�_%=0�&B4�&F:�vy(_%,A%):T%=�:���>T%+1:�vy(_%,A%):�
*�:�
+J��vy(_%,A%):!J%=i%:J%!4=0:J%!8=-ry%:J%!&C=xy%:J%!16=0:�A%=-1�_%=&B4-_%
,�ș&400C9,,J%�qu%:ȕqu%:ș&400E6,C%:�Ry%+g%*��_%,K%-o%+0.2*g%*��_%:�Ry%+R%*��_%,K%-o%+0.2*R%*��_%:�BY0,-m%:�Ry%+g%*��_%,K%-o%-m%:�Ry%+g%*��_%,K%-o%+0.2*g%*��_%:ș&400CA,,J%�qu%:�:�
-;��BJ�A%,C%,Ri%,V_%,z_%,va%:Ri%=�Gy:V_%=t%:z_%=v%:ȎtJ%�
.�Qu%:Ȏ!U%�
/�0
0�1:�s(Uy%,by%,Fy%)
1��2:!U%=-1:U%!4=NJ%:ș&400CE,,U%:!J%=Ay%:ș&400CB,,J%:J%!4=U%!16-(J%!&C-J%!4):J%!&C=U%!16:J%!16=&88+(J%!16-J%!8):J%!28=-1:ș&400C5,,J%:�A(Ay%,2,�Q(Uy%,by%,Fy%,-1)):P_%=Uy%:N_%=by%:Q_%=Fy%:A%=�f:t_%=A%>&B:A%=A%�&C:A%-=&C*(A%=0):�A(Ay%,4,�A%)
2.�t_%��A(Ay%,7,�A("pm"))��A(Ay%,7,�A("am"))
3OA%=�i:�A(Ay%,5,�2-��A%,"0")+�A%):ș6,&A1,&DC�,,A%:�Z(Ay%,1,�((A%�&80)=&80))
4 �3:�"Filer_Run "+J$+".!Help"
5�4:�Yy%=0��Ry
6	�5:�t
7
�6:Du%=�u
8�
9�T%(t%):�cu(U%,t%)
:�d_%:�Ly(-1,!U%,0)
;�Fl%:ȎiJ%�
<$�f%:hJ%=!U%:�!U%>0�C%=!U%�C%=m_%
=�A%=16�18:�U(f%,A%,C%):�
>%�Hy%:ol%=!U%:�!U%=0�A%=DJ%�A%=!U%
?�U(Hy%,4,A%)
@�
A�uu%:�PJ(__%,!U%)
BB�oJ%:Q%(0)=!U%:�o(A%(6),18,Q%()):�H(oJ%,0,-1):�J(oJ%,Q%(0),-1)
C:ȎiJ%�
D�A%(6):Ȏ__%�
E�2,3,4,5:�U%!4<>-1�
F,�!U%=0��U(iJ%,__%,U%!4)��b(iJ%,__%,U%!4)
G�
H>�9,&A,&B,&C,&D,&E,&F:X%(__%-9)=!U%:�D(iJ%,24,-64,&B8,-&D0)
IN�20,21:Q%(__%-19)=!U%:�o(A%(6),18,Q%()):�H(By%,0,-1):�J(By%,Q%(__%-19),-1)
J�
K�Yy%:�UJ(U%)
L�f%,Ly%:�iy(tJ%,U%)
M�rJ(tJ%,U%)
N�
O �:�Ri%��C(tJ%,-1,-1,iJ%,__%)
P	�Qy:�
Q;��C(My%,_%,Q%,s%,Sy%)�A%:�(My%=Qu%�My%=T%(t%))�My%<>-1�
RB�J(Zl%,0,sy%=1):�J(Zl%,1,sy%=2):�A%=0�3:�K(Yi%,A%,-(BJ%<=0)):�
S5�:ș&400D4,,My%,_%-64,Q%:tJ%=My%:iJ%=s%:__%=Sy%:�
T:��`J(e%,w%,Cy%)�z_%,va%,A%,B%:V_%=t%:z_%=v%:k%=�:Ȏe%�
U�i%:k%=�yy(w%,Cy%)
V�-1
W�I_%,Yy%:k%=�jy(e%,w%,Cy%)
Xk%=�C_(e%,w%,Cy%)
Y�:�k%=��
Zk%=�:ȎCy%�
[�27:�Yy%<>0��h
\"�385:�"Filer_Run "+J$+".!Help"
]�386:�Yy%=0��Ry
^�387:�t
_�81-65+1:Du%=�u
`	k%=�
a6�:�Cy%>=401�Cy%<=400+iy%�t%=Cy%-400:v%=S%(t%):k%=�
b�:�Qy:�k%�ș&400DC,Cy%
c�
d��q(A$)�A$<>""�B$+=A$+�&D
e�
fR��iu:ș&400D3,,U%:�!U%<>i%�!U%<>`%�Z%(t%)=2�!U%<>-1�ș&400DC,��B$,1):B$=�B$,2)
g�
h���hJ:�B("You are about to get a message from the author of !Organiser, please read it, it will be worth your while!"):�"Filer_Run "+J$+".NewUser":�
i&��W_:!J%=Zu%:ș&400C3,,J%:eu%=-1:�
j6��Yy:`J%=�:�_y(0,0,0,0,0,�,�):�d(0):`J%=�:XJ%=-1:�
k,��D_(qi%,e%,_%,Q%,Tl%,Zi%,Mi%):�Mu%�Vy%�
l_XJ%=e%:x_%=qi%:Bl%=_%:Hl%=Q%:Hu%=Tl%:rl%=Zi%:fl%=Mi%:!J%=20:J%!&C=0:ș&400E7,0,J%,su%:`J%=�
m)��_y(qi%,e%,_%,Q%,Tl%,Zi%,Mi%):XJ%=-1
n�:�
o:��Vu:�_y(x_%,XJ%,Bl%,Hl%,Hu%,rl%,fl%):�XJ%=`%��M(`%,9)
pXJ%=-1:`J%=�:�
q���Ry:�A%,s%,b%,A$:A%=A%(1):�Z(A%,1,-s_%):�Z(A%,2,-gu%):�Z(A%,3,-du%):�Z(A%,4,-Mu%):�Z(A%,7,-((qy%�9)=0)):�Z(A%,8,-((qy%�4)>0)):�Z(A%,9,-((qy%�5)=1)):�Z(A%,22,-((qy%�8)=8)):�Z(A%,23,-(xJ%=-1)):�Z(A%,&A,-((qy%�2)>0)):�Z(A%,&B,-r_%)
r��Z(A%,24,-((qy%�16)=16)):�A(A%,25,N$):�Z(A%,&F,-Fu%):�Z(A%,16,-Su%):�Z(A%,&E,-(eJ%=-1)):�Z(A%,19,-(eJ%<>-1)):�Z(A%,20,-(u_%=-1)):�Z(A%,21,-�(FJ%)):�S(A%,&B,��(�M(A%,9)���M(A%,24))):�S(A%,&A,��(�M(A%,8)�(�M(A%,9)���M(A%,24)))):�S(A%,24,���M(A%,9))
s��S(A%,25,��(�M(A%,9)��M(A%,24))):�s%=_J%-1�0�-1:A$+=�((Ku%>>s%)�1):�:�A(A%,18,A$):�A(A%,27,_$):�A(A%,&D,D$):�Bu:!J%=I_%:ș&400CB,,J%:s%=J%!&C-J%!4:b%=J%!16-J%!8:J%!4=(�d-s%)/2:J%!16=�e-(�e-b%)/2:ș&400C5,,J%:�wy(1)
taX%()=P%():Q%()=H%():�o(A%(6),18,H%()):�A%=2�5:�b(A%(6),A%,D%(A%-1)):�U(A%(6),A%,I%(A%-1)):�:�
u���uy:�A%,C%,A$:A%=A%(1):B%=qy%:s_%=�M(A%,1):gu%=�M(A%,2):du%=�M(A%,3):Mu%=�M(A%,4):D$=�Z(A%,&D):r_%=�M(A%,&B):qy%=-�M(A%,9)-5*�M(A%,8)-8*�M(A%,22)-2*�M(A%,&A)-16*�M(A%,24):Fu%=�M(A%,&F):Su%=�M(A%,16):�zJ(��M(A%,21))
v3eJ%=�M(A%,&E):xJ%=�M(A%,23):N$=�Z(A%,25):�eJ%�
w=!J%=i%:ș&400CB,,J%:au%=J%!4:cl%=J%!8:wl%=J%!&C:xu%=J%!16
x)�:C%=�M(A%,20):�C%<>u_%�u_%=C%�u_%=C%
yX_J%=��Z(A%,18):Ku%=�("%"+�Z(A%,18)):P%()=X%():H%()=Q%():A$=�Z(A%,27):�A$<>_$��Gu(A$)
zS�A%=2�5:D%(A%-1)=�p(A%(6),A%):I%(A%-1)=�q(A%(6),A%):�:�Tu:�Vy%�py%=0:�O:�w_:�py
{MJ%=0:�m:�u:�m:�
|^��Gu(A$):z%=�"<Organiser$Dir>.Resources.!Language":�#z%,A$:�#z%:z%=0:�B(�A("ErrReload")):�
})��wy(I%):�Yy%<>0�!J%=Yy%:ș&400C6,,J%
~�!J%=I_%:ș&400CB,,J%:Yy%=A%(I%):!J%=Yy%:J%!4+=22:J%!16-=70:J%!8=J%!16-272:ș&400C5,,J%:!J%=I_%:J%!4=&B:J%!8=1<<23:J%!&C=1<<23:ș&400CD,,J%:J%!4=J%!88-1:ș&400C4,,J%:J%!4=I%:ș&400CE,,J%:J%!4=J%!8+4:J%!8=J%!&C-8:J%!&C=J%!16-4:J%!16=J%!8+&C
QJ%!20=&17000021:J%?24=0:ș&400C2,,J%�I%:J%!4=I%:J%!8=0:J%!&C=0:ș&400CD,,J%:�
�z��yJ:!J%=Yy%:ș&400CB,,J%:J%!4=U%!4+22:J%!16=U%!16-70:J%!8=J%!16-272:J%!28=U%!28:ș&400C5,,J%:U%!28=Yy%:ș&400C5,,U%:�
���Nu(e%,w%,n%,_%,Q%):Ȏe%�
��I_%:Ȏw%�
��1,2,3,4,5,6:�wy(w%)
�	�8:�h
��9:�uy:ey%=-1:�n%<>1��h
��&A:�uy:�t:�n%<>1��h
��
��A%(1):Ȏw%�
�(�&F:�n%<&A�n%<>2��B(�A("ErrReload"))
��7,8,9,22,&E,19:�n%<>2�
���Z(e%,w%,1):�S(e%,&B,��(�M(e%,9)���M(e%,24))):�S(e%,&A,��(�M(e%,8)�(�M(e%,9)���M(e%,24)))):�S(e%,24,���M(e%,9)):�S(e%,25,��(�M(e%,9)��M(e%,24)))
��
�G�24:�S(e%,25,���M(e%,24)):�S(e%,&A,��M(e%,24)):�S(e%,&B,��M(e%,24))
��27:�K_(A%(1),27)
��
�;�A%(6):!U%=e%:ș&400CB,,U%:_%=U%!4:Q%=U%!16-U%!24:Ȏw%�
�H�2,3,4,5:!Ml%=�iy(A%(6),w%):�C(Ml%,_%+750+64,Q%-&64-48*(w%-2),e%,w%)
�b�9,&A,&B,&C,&D,&E,&F:�H(By%,0,-1):�J(By%,X%(w%-9),-1):�C(By%,_%+470+64,Q%-&64-48*(w%-9),e%,w%)
�S�19:�H(oJ%,0,-1):�J(oJ%,Q%(w%-19),-1):�C(oJ%,_%+578+64,Q%-540-48*(w%-19),e%,w%)
�V�20,21:�H(By%,0,-1):�J(By%,Q%(w%-19),-1):�C(By%,_%+578+64,Q%-540-48*(w%-19),e%,w%)
��
��aJ(e%,w%,n%,_%,Q%)
��:�
�ݤjy(e%,w%,n%):Ȏe%�
��I_%,A%(1):k%=�
�k%=�F_(e%,w%,n%)
�	�:=k%
�,��h:�G(Yy%):Yy%=0:�G(I_%):�Vy%��M(i%,-1)
��
����K_(s%,Sy%):�Ll%,u$,Py%,R$,a$,c$,g%:Ll%=1:u$=�Z(s%,Sy%):�:ș&C,9,"<Organiser$Dir>.Resources",U%,1,Ll%,256,0�,,,g%,Ll%:�g%=1�
�a$=�N(U%):�c$=""�c$=a$
��Py%=��R$=a$
��a$=u$�Py%=�
�!�:�Ll%=-1�R$<>"":�R$=""�R$=c$
��A(s%,Sy%,R$):�
����Ay(c%,r%,Q%,s%,Sy%):�M%,A%:Ri%=�:�A(ay%,0,�My(c%,r%,Q%,-1)):M%=�X(r%,Q%):�A%=29�31:�_(ay%,A%+3,-(A%>M%)):�:�A%=1�M%:�g(A%,A%=c%):�:HJ%=r%:�A(ay%,1,�Q%):�x(ay%,-1,1):Aa%=s%:Va%=Sy%:�
�$��ry:�d%,q%,x%,A$:�G(ay%):ȎAa%�
�(�f%:�A(f%,1,�j(W_%,C_%,b_%)):�Y(0,0)
�9�T%(�P(3)):A$=�j(d%,q%,x%):V_%=t%:z_%=v%:�I(d%,q%,x%)
�"�Ay%:�A(Ay%,2,�j(P_%,N_%,Q_%))
��:�
�\��g(c%,F%):!J%=ay%:J%!4=c%+3:ș&400CE,,J%:$J%!32="R"+�(1-F%)+";F"+�(1-F%)+"7":�F%�Yu%=c%
�7�Ga%�J%!8=0:J%!&C=0�J%!8=(1+�(F%))<<28:J%!&C=&F<<28
�ș&400CD,,J%:�
�;��Ly(c%,r%,Gy%):�A%,M%,Q%,A$:�c%<>-1��g(Yu%,�):�g(c%,�)
�5�r%<>-1��J(d_%,HJ%-1,�):HJ%=!U%+1:�J(d_%,HJ%-1,�)
�L�Gy%<>0�Q%=��Z(ay%,1)+Gy%:�Q%>=&77d�Q%<=&fff��A(ay%,1,�Q%)�Q%=��Z(ay%,1)
�NM%=�X(HJ%,Q%):�A%=29�31:�_(ay%,A%+3,-(A%>M%)):�:�Yu%>M%��g(Yu%,�):�g(M%,�)
�"�A(ay%,0,�My(Yu%,HJ%,Q%,-1)):�
�Aݤj(�c%,�r%,�Q%):c%=Yu%:r%=HJ%:Q%=��Z(ay%,1):=�Q(c%,r%,Q%,-1)
�:ݤMy(c%,r%,Q%,Ry%):�A$:A$=�Q(c%,r%,Q%,Ry%):=�A$,�A$-5)
�/��Py:�Nu%,Pl%,LJ%,KJ%,Za%,l%,b%:mJ%=0:�xJ%�
��l%=�z:b%=�f:Pl%=J%(0,1):Nu%=J%(0,3):Nu%+=J%(0,2)-�H(Nu%,Pl%,Fy%):KJ%=J%(1,1):LJ%=J%(1,3):LJ%+=J%(1,2)-�H(LJ%,KJ%,Fy%):dl%=�F(0,1,Nu%,Pl%,Fy%):gl%=�F(0,2,LJ%,KJ%,Fy%):Za%=(�G(dl%,l%)<1��G(l%,gl%)<1):�D(Nu%,Pl%,Fy%)=�D(Uy%,by%,Fy%)���y�mJ%=dl%
�/�D(LJ%,KJ%,Fy%)=�D(Uy%,by%,Fy%)��y�mJ%=gl%
�V�Za%<>�y��D(Nu%,Pl%,Fy%)<>�D(Uy%,by%,Fy%)��D(LJ%,KJ%,Fy%)<>�D(Uy%,by%,Fy%)��Sy(-1)
��:�
���gJ:�mJ%=gl%��Sy(0)
��mJ%=dl%��Sy(1)
�	�Py:�
����MJ:J$=�ty("Organiser$Dir"):z%=0:Iu%=0:B$="":ey%=�:Ni%=�:XJ%=-1:`J%=�:T$=J$+".Data.":Z_%=�uy("<Organiser$Dir>.Sprites",&7AC+&C8):�Sa%3,aJ%32,G%(1),Ti%&B,Ii%&B,Ol%1:$Sa%="R2":G%()=-1:$Ti%="Pptr_turnl"+�0:$Ii%="Pptr_turnr"+�0:?Ol%=0
�n�D%(5),I%(5),B%(5),W%(5),S%(5),Z%(5),M$(5):�P%(7),X%(7),H%(2),Q%(2):A$=�wy:lJ%=�:�A$,"-delete_all_data")�
��By(�A("ErrSure"),�)�
�#�B(�A("ErrChange")):lJ%=�:ey%=�
��
�A�:�P_:�IJ:�zu:�ly:NJ%=-1:�m:w_%=�l(1*&400):�q_(w_%,Ru%):�s_%�
��qy%=1��S(-1,NJ%,1)
�
�d(�1)
�
�ș&406C0
��:�
�#��Hu:�dJ:v%=S%(t%):�Pu%��J_:�Py
�#Iu%=�:�x(i%,-1,-1):�gu%��G(i%)
��by(t%):�qy%>1��u
��qy%�1��S(-1,NJ%,0)
��du%��x(Zu%,-1,-1)�eu%=-1
��s_%�ș&406C1
��c:�Py:�
�5ݤP(Xu%):�A%:A%=iy%+1:�A%-=1:�Z%(A%)=Xu%�A%=0:=A%
����t_:�A$,S%:�T%(iy%):By%=�Cy(�A("Cols")):d_%=�C("Mon","Mon",1,&C):�yy(d_%,0,-1):�S%=1�iy%:T%(S%)=�Ky(S%):�:Qu%=�C("Title","Menu",1,7):�z(Qu%,0,nu%):Ml%=�C("TabM","TabM",1,2):�z(Ml%,0,By%):�z(Ml%,1,By%):oJ%=�C("BordM","BordM",1,5):�
����ly:�A%,da%,Qa%:Fy%=�L:by%=�V:Uy%=�I:Ny%=�a(m%/iy%):xy%=&64+2*(36+j%+5+20):ry%=m%+2*(5+20):l_%=5+20:i_%=l_%+36+&64+2*j%:yy%=l_%+36:dy%=yy%+&64+j%:o%=5+20:GJ%=dy%-&64:j_%=m%/27::dJ%=j%-40-2*&c:�
�.��`_:�B%:�ry%<>U%!16-U%!8�xy%<>U%!&C-U%!4�
��ry%=U%!16-U%!8:xy%=U%!&C-U%!4:m%=ry%-2*(5+20):j%=((xy%-&64)-2*(36+5+20))/2:�ly:ș30,6,,,yi%�,,B%:!B%=`%:ș&400CC,,B%:ș&400C3,,B%:�ty(B%!88,B%+4):ș&400C1,,B%+4�`%:ș30,7,,B%:�Z%(t%)=2�v%=0��Yy:�A_
�ș&400D1,i%,0,-ry%,xy%,0
��:�
�`��zu:�A%,g$:�:��:�#z%:z%=0:�B(�$+" at line "+Þ+", using default settings."):�P_:ey%=�:�
�z%=�(J$+".Data.Settings"):o$=�#z%:g$=�#z%:D$=�#z%:s_%=�R:gu%=�R:qy%=�Y:r_%=�R:Su%=�R:iy%=�Y:t%=�Y:du%=�R:Mu%=�R:xJ%=�R:Fu%=�R:Ga%=Fu%:_J%=�Y:�#z%,Ku%,qJ%:�#z%,eJ%,au%,wl%,xu%,cl%:u_%=�R:FJ%=�R:�#z%,j%,m%:�A%=0�6:P%(A%)=�Y:�:�A%=0�2:H%(A%)=�Y:�
փ�A%=1�iy%:Z%(A%)=�Y:D%(A%)=�Y:I%(A%)=�Y:�:N$=�#z%:��QJ(�#z%,z%):��#z%:�#z%:z%=0:��:Pu%=(�n(qJ%)<>�n(�z)):�lJ%�D$=�A("Yourname")
��g$<>J$��hJ
��
����d_:�A%:z%=�(J$+".Data.Settings"):�#z%,V$:�#z%,J$:�#z%,D$:�W(s_%):�W(gu%):�W(qy%):�W(r_%):�W(Su%):�W(iy%):�W(t%):�W(du%):�W(Mu%):�W(xJ%):�W(Fu%):�W(_J%):�#z%,Ku%,�z:�#z%,eJ%,au%,wl%,xu%,cl%:�W(u_%):�W(FJ%):�#z%,j%,m%:�A%=0�6:�W(P%(A%)):�
�g�A%=0�2:�W(H%(A%)):�:�A%=1�iy%:�W(Z%(A%)):�W(D%(A%)):�W(I%(A%)):�:�#z%,N$:�Ku(z%):�#z%:z%=0:ey%=�:�
���t:�d_:�Ou:�
����P_:::J_%=�:Pu%=0:qy%=1+2+4:N$="%z12:%mi:%se %am":H%()=2,2,7:s_%=�:r_%=�:Mu%=�:Su%=�:MJ%=0::::::Fu%=�:u_%=�:iy%=4:I%()=7:D%()=0,&B,&A,&F,9,&E:P%()=0,&F,8,&B,4,4,&B:gu%=�:eJ%=-1:au%=0:xu%=0:wl%=0:cl%=0:FJ%=�:t%=2:Z%()=0,1,3,5,2
�gdu%=�:D$="Chris Morison":xJ%=�:Su%=�:py%=�::::::j%=500:m%=920:::::::_J%=8:Ku%=&E7::::Pu%=�:qJ%=0::�
�ݤR=(�#z%=&FF)
���W(A%)�#z%,A%:�
�ݤY=�#z%
�!��m:�B%,H%:�MJ%>0�B%=8�B%=qy%
�8�NJ%<>-1�!J%=-1-7*�(u_%):J%!4=NJ%:ș&400C4,,J%:U_%=0
�ȎB%��(2+16)�
�
�1,8:Ȏ��
��B%=1:U_%=6-3*�r_%
��B%=3:U_%=9-3*�r_%
�;�(B%�8)>0:U_%=9:ș&400EC,-1,-1�,,H%:$aJ%=�(H%�&400)+"k"
��(B%�16)>0:U_%=��K(N$)+3
�_�:U_%=U_%*16:Cu%=68:J%!8=0:J%!&C=U_%:J%!16=Cu%:J%!20=&2700313D:J%!24=aJ%:J%!28=Sa%:J%!32=32
�k�1+4:U_%=&74:Cu%=&78:J%!8=-16:J%!&C=U_%:J%!16=Cu%:$aJ%="clock":J%!20=&3102:J%!24=aJ%:J%!28=Z_%:J%!32=32
�N:U_%=68:Cu%=68:J%!8=0:J%!&C=68:J%!16=68:J%!20=&3002:$(J%+24)="!Organiser"
�<�:!J%=-1-�(7*u_%):J%!4=0:ș&400C2,0,J%�NJ%:�(B%�4)=4��F_
��o(-1,NJ%,H%()):�
�6��o(e%,cy%,K%()):�g_%,A%:g_%=�gy(e%,cy%):�g_%<>-1�
�qA%=��N(g_%),"R"):g_%?A%=��K%(0):�U(e%,cy%,K%(2)):�b(e%,cy%,K%(1)):!J%=e%:J%!4=cy%:J%!8=0:J%!&C=0:ș&400CD,,J%
��:�
����hu:�A%,Iy%:�A%(6):Yy%=0:�mJ:nu%=�B("Info",Iy%):i%=�B("Main",Iy%):ti%=Iy%:`%=�B("Addresses",Iy%):G_%=�B("Important",Iy%):Zu%=�B("Banner",Iy%):ay%=�B("GetDate",Iy%):I_%=�B("Setup",Iy%):f%=�B("AlarmSet",Iy%):Ql%=Iy%:Ly%=�B("AlarmWarn",Iy%)
��Hy%=�B("Anni",Iy%):Na%=Iy%:VJ%=�B("AnniNotify",Iy%):A%(1)=�B("SetGen",Iy%):A%(2)=�B("SetAdd",Iy%):A%(3)=�B("SetAnn",Iy%):A%(4)=�B("SetCal",Iy%):A%(5)=�B("SetDia",Iy%):A%(6)=�B("SetColours",Iy%):Ay%=�B("SetClock",Iy%)
��A(nu%,8,V$):�A(nu%,5,"!Organiser"):�A(nu%,6,�A("Purp")):�A(Zu%,3,�A("Vers")+" "+V$):�A(Zu%,6,"� Chris Morison 19"+�V$,�V$,")")-2,2)):�A(Zu%,4,D$):�A%=1�31:�A(ay%,A%+3,�A%):�:�
�KݤB(G$,�Iy%):�H%,S%,I%,P%,ty%,g_%:ș&400DB,,,0,0,0,G$,0�,S%,I%:�S%>512�
�3ș&2001E,6,,,S%�,,P%;ty%:�ty%�1��2,�A("ErrWin")
�
�P%=U%
�?�:�g_%I%:ș&400DB,,P%,g_%,g_%+I%,Yl%,G$,0�,,g_%:�G$="Main"�
�>P%!68=&64+(&64<<16):P%!0=0:P%!4=0:P%!8=xy%:P%!&C=ry%:�FJ%�
�*P%!48=�d:P%!44=-�e:P%!28=P%!28�(3<<29)
�.�P%!48=xy%:P%!44=-ry%:P%!28=P%!28��(3<<29)
��
��:�G$="Setup"�_a%=S%
��G$="Addresses"�yi%=S%
� �:�Fu%�G$<>"Banner"��Yu(P%)
�!�G$="Addresses"��ty(P%!84,P%)
;P%!64=Z_%:ș&400C1,,P%�cy%:Iy%=P%!72:�S%>512�ș30,7,,P%
=cy%
 ��zJ(ty%):�UJ%,B%:�ty%<>FJ%�
Pș30,6,,,4+88+32*22�,,UJ%:!UJ%=i%:ș&400CC,,UJ%:B%=UJ%+4:ș&400C3,,UJ%:�ty%�
*B%!48=�d:B%!44=-�e:B%!28=B%!28�(3<<29)
.�B%!48=xy%:B%!44=-ry%:B%!28=B%!28��(3<<29)
5�:B%=i%:FJ%=ty%:ș&400C1,,UJ%+4�i%:�x_%=B%�x_%=i%
�Vy%�!UJ%=i%:ș&400C5,,UJ%
ș30,7,,UJ%
	�:�

��OJ(`u%,S$):�Py(`u%,S$)�
XȔU%!8,U%!&C:!U%=256:$(U%+44)="<Wimp$Scrap>"+�0:U%!36=-1:U%!16=2:ș&400E7,17,U%,U%!4
�:�

6��AJ:�u<>-1�U%!&C=U%!8:U%!8=0:ș&400E7,19,U%,U%!4
�
k��VJ:�qu%,a%,K%:ș&400C8,,U%�qu%:a%=U%!4-U%!20:K%=U%!16-U%!24:ȕqu%:�T_(!U%,a%,K%):ș&400CA,,U%�qu%:�:�
^ݤuy(S$,E%):�F%,A%,S%:F%=�S$:A%=�#F%+4:�#F%:A%+=E%:�S%A%:!S%=A%:S%!8=16:ș46,266,S%,S$:=S%
K��M(e%,w%):!J%=e%:J%!4=w%:ș&400CE,,J%:ș&400D2,e%,w%,,,-1,��N(J%!28):�
#ݤp(e%,w%):�k_%,`_%:�h(e%,w%)�
�dy(e%,w%,`_%,k_%)
3�!J%=e%:J%!4=w%:ș&400CE,,J%:k_%=(J%!24>>28)�&F

�:=k_%
��b(e%,w%,k_%):�h(e%,w%)�
�M_(e%,w%,-1,k_%)
:�!J%=e%:J%!4=w%:J%!&C=&F<<28:J%!8=k_%<<28:ș&400CD,,J%
�:�
>ݤh(e%,w%):!J%=e%:J%!4=w%:ș&400CE,,J%:=((J%!24)�(1<<6))>0
W��M_(e%,w%,`_%,k_%):�P%,A%:!J%=e%:J%!4=w%:ș&400CE,,J%:P%=J%!32:A%=�$P%,"F"):�A%>0�
�`_%<>-1�?(P%+A%+1)=��~`_%
�k_%<>-1�?(P%+A%)=��~k_%
J%!8=0:J%!&C=0:ș&400CD,,J%
�:�
 ���dy(e%,w%,�`_%,�k_%):�P%,A%:!J%=e%:J%!4=w%:ș&400CE,,J%:P%=J%!32:A%=�$P%,"F"):`_%=-1:k_%=-1:�A%>0�`_%=�("&"+�?(P%+A%+1)):k_%=�("&"+�?(P%+A%))
!�
"#ݤq(e%,w%):�k_%,`_%:�h(e%,w%)�
#�dy(e%,w%,`_%,k_%)
$3�!J%=e%:J%!4=w%:ș&400CE,,J%:`_%=(J%!24>>24)�&F
%
�:=`_%
&��U(e%,w%,`_%):�h(e%,w%)�
'�M_(e%,w%,`_%,-1)
(:�!J%=e%:J%!4=w%:J%!&C=&F<<24:J%!8=`_%<<24:ș&400CD,,J%
)�:�
*B��_(e%,w%,ty%):�p%:p%=J%+64:�ty%=1�!J%=e%:J%!4=w%:ș&400CE,,J%
+e!p%=e%:p%!4=w%:p%!8=(�ty%)<<23:p%!&C=1<<23:ș&400CD,,p%:�ty%=1�ș&400D1,e%,J%!8,J%!&C,J%!16,J%!20
,�
-Mݤgy(e%,w%):�A%:!J%=e%:J%!4=w%:ș&400CE,,J%:�(J%!24�256)>0�A%=J%!32�A%=-1
.=A%
/=��Z(e%,w%,ty%):�A%:!J%=e%:J%!4=w%:A%=1:�ty%=-1�ty%=1:A%=0
0,J%!8=ty%<<21:J%!&C=A%<<21:ș&400CD,,J%:�
1<ݤM(e%,w%):!J%=e%:J%!4=w%:ș&400CE,,J%:=-((J%!24>>21)�1)
2=��S(e%,w%,ty%):�A%:A%=1:!J%=e%:J%!4=w%:�ty%=-1�ty%=1:A%=0
30J%!8=ty%*(1<<22):J%!&C=A%<<22:ș&400CD,,J%:�
4h��A(e%,w%,W$):�P%,L%:!J%=e%:J%!4=w%:ș&400CE,,J%:�J%!24�(1<<8)�P%=J%!28:L%=(J%!36)-1:�P%=J%+28:L%=&B
5-$P%=�W$,L%):J%!8=0:J%!&C=0:ș&400CD,,J%:�
6WݤZ(e%,w%):�A$:!J%=e%:J%!4=w%:ș&400CE,,J%:�(J%!24�256)>0�A$=�N(J%!28)�A$=�N(J%+28)
7=A$
8Mݤiy(e%,w%):�A%:!J%=e%:J%!4=w%:ș&400CE,,J%:�(J%!24�256)>0�A%=J%!28�A%=-1
9=A%
:b��yy(My%,L%,H%):My%+=4+24*L%:�My%+=24:My%!8=My%!8�8:L%+=1:�((L%>H%)�(H%<>-1))�((!My%�&80)>0):�
;`��H(My%,L%,H%):My%+=4+24*L%:�My%+=24:!My%=!My%��1:L%+=1:�((L%>H%)�(H%<>-1))�((!My%�&80)>0):�
<]ݤCy(s$):�My%,_u%,Sy%:My%=�Wy(s$+"\0\1\2\3\4\5\6\7\8\9\10\11\12\13\14\15"):�Sy%=0�&F:Ȏ��
=+�Sy%<4,Sy%=9,Sy%=&C,Sy%=&E,Sy%=&F:_u%=7
>
_u%=0
?5�:My%?(39+Sy%*24)=Sy%*16+_u%:�:�yy(My%,0,-1):=My%
@�ݤWy(A$):�A%,B%,L%,Z$,I%:A$+="\":�A%4*�ny (A$)*24:B%=A%+4:Z$=�A$,�A$,"\")-1):$A%=Z$:A%!&C=&70207:A%!20=44:A%!24=0:L%=�Z$:A$=�A$,�A$,"\")+1):ȕ�A$,"\"):Z$=�A$,�A$,"\")-1):B%+=24:!B%=�xy(Z$):B%!4=0:B%!8=&7000021
A6�Z$,">")�B%!4=��Z$,�Z$,">")+1):Z$=�Z$,�Z$,">")-1)
BQ�Z$>&B��I%�Z$+1:$I%=Z$:B%!8=B%!8�256:B%!&C=I%:B%!16=0:B%!20=I%+1�$(B%+&C)=Z$
C�Z$>L%�L%=�Z$
D7A$=�A$,�A$,"\")+1):�:!B%=!B%�&80:A%!16=L%*16+16:=A%
E�ݤC(s$,h$,L%,H%):�M%,A%,C%,D%,Gl%,A$:�M%28+24* (H%-L%+1):!M%=�g(s$):M%!4=0:M%!8=0:Gl%=��A(s$):M%!&C=&70207:M%!20=44:M%!24=0:A%=M%+4:�C%=L%�H%:A%+=24:!A%=0:A%!4=0:A%!8=&7000121:A%!&C=�g(h$+�C%):A%!16=0:A%!20=0:D%=��A(h$+�C%):�D%>Gl%�Gl%=D%
F*�:!A%+=&80:M%!28+=256:M%!16=Gl%*16:=M%
G&��z(M%,I%,S%):M%!(28+24*I%+4)=S%:�
Hݤxy(�Z$):�A%,F%:�:Ȏ��Z$�
I�"�":A%+=1:Z$=�Z$,2)
J�"_":A%+=2:Z$=�Z$,2)
K�"*":A%+=8:Z$=�Z$,2)
L
F%=-1
M
�:�F%:=A%
N:ݤny(A$):�A%:ȕ�A$,"\"):A%+=1:A$=�A$,�A$,"\")+1):�:=A%
O7ݤby(A%):�H%:A%+=4:�A%+=24:H%+=44:�(!A%�2)>0�H%+=24
P�(!A%�&80)>0:=H%+96
Q�ݤpy(My%,Ta%,W$,ui%,b$):�pl%,g_%:�pl%ui%+1,g_%� (b$)+1:$pl%=W$:$g_%=b$:My%+=28+24*Ta%:!My%=!My%�4:My%!8=My%!8�256:My%!&C=pl%:My%!16=g_%:My%!20=ui%:=pl%
Rdݤk(My%,y$):�A%,B%:B%=My%+28:ȕ(y$<>�W(My%,A%))�(!B%�&80)=0:A%+=1:B%+=24:�:�y$<>�W(My%,A%)�A%=-1
S=A%
T��K(M%,I%,F%):�F%<>0�
U'M%!(36+24*I%)=M%!(36+24*I%)�(1<<22)
V)�M%!(36+24*I%)=M%!(36+24*I%)��(1<<22)
W�:�
X;ݤW(M%,I%):M%+=28+24*I%:�(M%!8�256)>0�M%=M%!&C�M%=M%+&C
Y=�N(M%)
ZW��J(M%,I%,F%):�F%<>0�M%!(28+24*I%)=M%!(28+24*I%)�1�M%!(28+24*I%)=M%!(28+24*I%)��(1)
[�
\ݤS_(M%):�M%!28>&80�M%=!M%
]=�N(M%)
^X��c_(M%,I%,F%):�F%<>0�M%!(28+24*I%)=M%!(28+24*I%)�2�M%!(28+24*I%)=M%!(28+24*I%)��(2)
_�
`ݤa(A%)=A%-A%�4
a%ݤGy:ș&400CF,,J%:=(((J%!8)�1)=1)
b*ݤy:�A%:ș6,&A1,&DC�,,A%:=(A%�&80)=&80
c'��Sy(F%):�A%:ș6,&A1,&DC�,,A%:ȎF%�
d�0:A%=A%��&80
e�1:A%=A%�&80
f�-1:A%=A%�&80
g�:ș6,&A2,&DC,A%:�
h7ݤe:�A%,B%:ș53,-1,&C�,,A%:ș53,-1,5�,,B%:=(A%<<B%)
i'ݤ`y(M%):�A%:ș53,M%,5�,,A%:=(A%=1)
jHݤw(H%,S%,F%):�P%,E%,V%,L%,T%:ș&2001D,2,H%,,S%�E%,,P%;V%:�(V%�1)=1�
k�F%�
l=P%=�Jy:�Zy(H%,(S%�P%)*P%-P%*((S%�P%)>0),�):P%=�w(H%,S%,�)
m�ș43,E%
n�
o	�:=P%
pW��au(H%,�B%,S%,F%):�L%,E%,V%,T%,P%:ș&2001D,4,H%,B%,S%�E%,,B%;V%:V%=((V%�1)=1):Ȏ��
q�V%��F%:ș43,E%
r.�V%�F%�(S%>0):�Zy(H%,S%,�):�au(H%,B%,S%,�)
s�V%�F%�(S%<0)
tɬV%�F%�(S%<0):�Zy(H%,-1,�)
u�:�
v?��Dy(H%,B%,F%):�A%,ty%:ș29,3,H%,B%�A%;ty%:�F%��Zy(H%,-1,�)
w�
x��Zy(H%,S%,F%):�P%:�F%�
y
�S%<0�
z�ș&2001D,5,H%,,-32*&400*&400:S%=H%!&C+H%-&8000:P%=�Jy:ș&400EC,-1,-1�F%:F%=�l(((S%�P%)*P%-P%*((S%�P%)>0))-F%):ș29,5,H%,,((S%�P%)*P%-P%*((S%�P%)>0))-S%
{(�:E%=Ru%:F%=�l(S%):ș29,5,H%,,Ru%-E%
|�
}�ș29,5,H%,,S%
~�:�
��q_(H%,S%):�S%=-1�S%=Ru%
�ș29,0,H%,,S%:�
�'��nJ:ș&61504,S_%:ș&2001E,7,,S_%:�
�X��FJ(j$):�F%:ș&2001E,6,,,17+�j$�,,S_%;F%:�F%�1��2,"Not enough memory for messages."
�($(S_%+16)=j$:ș&41501,S_%,S_%+16,0:�
�jݤA(U$):�F%,L%:ș&61502,S_%,U$,J%,256�,,,L%;F%:�F%�1�2,"Can't get message '"+U$+"' from Messages file"
�J%?L%=&D:=$J%
�dݤg(U$):�F%,P%:ș&61502,S_%,U$,0�,,P%;F%:�F%�1�2,"Can't get message '"+U$+"' from Messages file"
�=P%
��ݤO(U$,A$,Z$,C$,l$):�F%,L%:ș&61502,S_%,U$,J%,256,A$,Z$,C$,l$�,,,L%;F%:�F%�1�2,"Can't get message '"+U$+"' from Messages file"
�J%?L%=&D:=$J%
�DݤOy(U$,L%,H%,Z$,A$):�M$,A%:�A%=L%�H%:M$+=Z$+�A(U$+�A%)+A$:�:=M$
�1ݤr(_%,Q%,nl%,ul%,s%,b%):�s%<0�nl%+=s%:s%=-s%
��b%<0�ul%+=b%:b%=-b%
�8=((_%>=nl%)�(_%<=(nl%+s%))�(Q%>=ul%)�(Q%<=(ul%+b%)))
�ݤJy:�P%:ș81�P%:=P%
�Nݤwy:�I$,I%:ș16�I$:I%=�I$," -quit "):�I%�I$=�I$,�I$," ",I%+�" -quit ")+1)
�=I$
�8ݤty(A$):�L%:ș35,A$,J%,&FF,0,3�,,L%:J%?L%=0:=�N(J%)
�Yݤt(A$):�L%,F%:ș&20023,A$,J%,&FF,0,3�,,L%;F%:�(F%�1)=0�J%?L%=0:�N(J%)<>""�F%=��F%=�
�=F%
�Jݤl(M%):�S%:ș&400EC,-1,-1�S%:ș&400EC,S%+M%,-1�S%:Ru%=S%-(�-&8000):=�
�?ݤN(P%):�A$:ȕ?P%<>0�?P%<>&D�?P%<>&A:A$+=�(?P%):P%+=1:�:=A$
�:��eJ(cy%):!J%=256:J%!&C=0:J%!16=0:ș&400E7,17,J%,cy%:�
�Dݤs(A$):�A%,C%:�A%=1��A$:C%=��A$,A%,1):�C%>=97�C%<=&7A�C%=C%��32
��A$,A%)=�(C%):�:=A$
�7ݤd:�A%,B%:ș53,-1,&B�,,A%:ș53,-1,4�,,B%:=(A%<<B%)
�`��B(p$):!J%=&FF:$(J%+4)=p$+�0:ș&400DF,J%,17+(1<<8)+(1<<9),"Message from "+K$,"!Organiser":�
�fݤBy(A$,R%):!J%=0:$(J%+4)=A$:ș&400DF,J%,23-4*�R%+(1<<8),"Message from "+K$,"!Organiser"�,R%:=R%-2
�&ݤZ_(c%,r%,Q%):=(�D(c%,r%,Q%)+1)�2
�pݤD(c%,r%,Q%):�Uu%:Gy%=Q%-&77D:Uu%=Gy%*365:Uu%+=Gy%�4-(Q%-&76C-1)�&64+(Q%-&640-1)�400:ȕ(r%-1)>0:r%-=1:Ȏr%�
��1,3,5,7,8,&A,&C:Uu%+=31
��4,6,9,&B:Uu%+=30
��2:Uu%+=28-�Fy(Q%)
��:�:=Uu%+c%
�#ݤH(c%,r%,Q%):=�o(�D(c%,r%,Q%))
�ݤX(r%,Q%):�c%:Ȏr%�
��1,3,5,7,8,&A,&C:c%=31
��4,6,9,&B:c%=30
��2:c%=28-�Fy(Q%)
�	�:=c%
�.ݤFy(Q%)=((Q%�4=0)��(Q%�&64=0))�(Q%�400=0)
����F(�d%,�q%,�x%,my%,Lu%,Gy%):�gi%,Da%,K%:gi%=d%:Da%=q%:K%=x%:d%+=my%:q%+=Lu%:x%+=Gy%:ȕq%<1:q%+=&C:x%-=1:�:ȕq%>&C:q%-=&C:Oa%+=1:�:ȕd%<1:q%-=1:�q%<1�q%=&C:x%-=1
�Hd%+=�X(q%,x%):�:ȕd%>�X(q%,x%):d%-=�X(q%,x%):q%+=1:�q%>&C�q%=1:x%+=1
�*�:�x%<&77d�x%>&fff�d%=gi%:q%=Da%:x%=K%
��
�ݤo(u%):=((u%-1)�7)+1
�OݤQ(c%,r%,Q%,zJ%):=�c(�D(c%,r%,Q%),zJ%)+", "+�A_(c%)+" "+�U(r%,zJ%)+" "+�Q%
����pu:�C%,P%,J,P,R,M,Z,W,G,N,w,C,U:�C%&90:J=&D:P=&E:R=&F:M=2:Z=3:W=4:G=5:N=0:w=1:C=6:U=7:�S%=0�2�2:P%=C%:[OPTS%:.V CMP G,#0:RSBLT G,G,#0:SUBLT Z,Z,G:CMP W,#0:RSBLT W,W,#0:SUBLT M,M,W:ADD U,M,W:LDR C,[N,#28]:CMP U,C:BLT Q:LDR C,[N,#36]:CMP M,C:BGT Q
��LDR C,[N,#32]:ADD U,Z,G:CMP U,C:BLT Q:LDR C,[N,#40]:CMP Z,C:BGT Q:CMP w,#0:MVNEQ0,#1:�Qpc,P:B a:.Q MOV0,#0:MOVpc,P:.a MOV1,M:MOV2,Z:MOV0,#4:SWI 69:MOV1,W:MOV2,G:MOV0,#96+1:SWI 69:MVN0,#1:MOVpc,P:]�:�
�*ݤS(C%,D%,E%,F%):�A%,B%:A%=U%:B%=0:=�V
�+��X(C%,D%,E%,F%):�A%,B%:A%=U%:B%=1:�V:�
�B��G(e%):!J%=e%:ș&400C6,,J%:�e%=x_%�Hu%=�:!J%=c_%:ș&600C6,,J%
��e%=i%�Vy%=�
��
�@��Yu(B%):�N%,A$,Py%,p%:N%=B%!84:B%+=88:ȕN%:�((B%!16)�64)>0�
��A$=$(B%!24):p%=�("&"+�A$,�A$,"F")+1,1)):Py%=�("&"+�A$,�A$,"F")+2,1)):B%!16=B%!16��(64+(&FF<<24)):B%!16=B%!16�(Py%<<24)�(p%<<28)
��:B%+=32:N%-=1:�:�
�=��D(e%,O_%,`y%,B_%,jy%):ș&400D1,e%,O_%,jy%,B_%+2,`y%+4:�
����w(e%,IJ%,Vl%):�W%,H%,X%,Y%,Z%:!J%=e%:ș&400CB,,J%:X%=36*((J%!32>>28)�1):Y%=36*((J%!32>>26)�1)-36*((J%!32>>30)�1):W%=J%!&C-J%!4+X%:H%=J%!16-J%!8+Y%:�Vl%=-1�
�JJ%!4=�d/2-W%/2:J%!&C=J%!4+W%:J%!16=�e-((�e-&84)-H%)/2-Y%:J%!8=J%!16-H%
�
�:�Vl%=1�
�;ȗX%,Y%,Z%:J%!4=X%-64:J%!&C=J%!4+W%:J%!8=Y%-H%:J%!16=Y%
��
��:�IJ%<>0�J%!28=IJ%
�ș&400C5,,J%:�e%=i%�Vy%=�
�6�e%=x_%�Hu%=�:!U%=x_%:ș&400CB,,U%:U%!28=J%!28:�`y
��
�G��_y(qi%,e%,_%,Q%,Tl%,Zi%,Mi%):�c_%<>0�c_%<>e%�!J%=c_%:ș&600C6,,J%
�Ac_%=e%:x_%=qi%:Bl%=_%:Hl%=Q%:Hu%=Tl%:rl%=Zi%:fl%=Mi%:�c_%<>0�
�w!J%=c_%:ș&400CB,,J%:Fa%=J%!&C-J%!4:Ca%=J%!16-J%!8:!J%=x_%:ș&400CB,,J%:J%!4+=_%:J%!16+=Q%:�Tl%�!J%=e%:ș&400C5,,J%
��:�
���`y:�c_%<>0�!U%=x_%�
�i!J%=c_%:J%!4=U%!4+Bl%:J%!16=U%!16+Hl%:J%!&C=J%!4+Fa%:J%!8=J%!16-Ca%:J%!20=0:J%!24=0:J%!28=U%!28:�rl%�
�AJ%!4-=U%!20:J%!&C-=U%!20:�J%!4<U%!4�J%!20=U%!20-Bl%:J%!4=U%!4
��J%!&C>U%!&C�J%!&C=U%!&C
��:�fl%�
�GJ%!16-=U%!24:J%!8-=U%!24:�J%!16>U%!16�J%!24=U%!16-J%!16:J%!16=U%!16
��J%!8<U%!8�J%!8=U%!8
��:ș&400C5,,J%:U%!28=c_%
��:�
�-��mJ:�A%:�Yl%256:�A%=0�256�4:Yl%!A%=0:�:�
�3��du(aa%,r$):Yl%=-1:ș&400D9,,r$:�hu:ș&400DA:�
�$��i(W%,Iy%,A$,uJ%):$Iy%=A$:�uJ%�
�=!U%=W%:ș&400CB,,U%:ș&400D1,-1,U%!4,U%!16,U%!&C,U%!16+44
��:�
� ��V(B%,F%):ș&400F3,,B%,F%:�
�9ݤJ(r$,W%,H%):�F%:ș&40081,,r$,16*W%,16*H%,0,0�F%:=F%
���Q(H%):ș&40082,H%:�
�*��oy(�X%,�Y%):ș&40088,,X%,Y%�,X%,Y%:�
ٻ��L(cy%,W$,_u%,_%,Q%):�O_%,jy%,B_%,`y%,AJ%:ș&4008A,cy%:ș&40097,,W$�,O_%,jy%,B_%,`y%:ș&40088,,O_%,jy%�,O_%,jy%:ș&40088,,B_%,`y%�,B_%,`y%:AJ%=B_%+O_%:�_u%=0�_%-=AJ%/2��_u%>0�_%-=AJ%
�A�S(_%,Q%-`y%+jy%,AJ%,`y%-jy%)�ș&40086,cy%,W$,1<<4,_%,Q%-`y%
��
���ey(cy%,W$,Ja%,wi%,_%,Q%,g%):�O_%,jy%,B_%,`y%,AJ%:!J%=0:J%!4=-g%<<16:J%!8=g%<<16:J%!&C=0:J%!16=0:J%!20=0:ș&4008A,cy%:ș&40097,,W$�,O_%,jy%,B_%,`y%:ș&40088,,O_%,jy%�,jy%,O_%:ș&40088,,B_%,`y%�,`y%,B_%:�Ja%=0�_%-=g%*B_%/2��Ja%=g%�_%-=g%*B_%
�,�wi%=0�Q%+=g%*`y%/2��wi%=-g%�Q%-=wi%*`y%
�.ș&40086,cy%,W$,(1<<4)+(1<<6),_%,Q%,0,J%:�
�-��r(lu%,W$,a%,K%,s%,b%):�S(a%,K%,s%,b%)�
��A%,cy%,O_%,jy%,B_%,`y%,AJ%,fi%,Xl%,Dl%:ș&4008A,lu%:cy%=lu%:ș&40097,lu%,W$�,O_%,jy%,B_%,`y%:ș&40088,,B_%+O_%,`y%+jy%�,AJ%,fi%:�AJ%>s%�
�ș&40083,lu%,J%�,,Xl%,Dl%:ȕAJ%>s%:Xl%=Xl%*0.95:Dl%=Dl%*0.95:ș&40081,,J%,Xl%,Dl%:ș&40097,,W$�cy%,O_%,jy%,B_%,`y%:ș&40088,,B_%+O_%,`y%+jy%�,AJ%,fi%:�AJ%>s%�ș&40082,cy%
��
�4�:ș&40086,,W$,1<<4,a%,K%:�cy%<>lu%�ș&40082,cy%
��:�
�3��T(sl%,Cl%,R_%,H_%,g%,Ra%):ș&400E6,Cl%:ȎRa%�
�i�1:ȓȐR_%,H_%,g%:ș&400E6,sl%:�R_%,H_%:�BYg%,0:�&B1,-g%,g%:ș&400E6,Cl%:�R_%,H_%:�BYg%,0:�&A1,-g%,g%
�o�2:ȓȐR_%,H_%,-g%,g%:ș&400E6,sl%:�R_%,H_%:�BY0,g%:�&B1,-g%,-g%:ș&400E6,Cl%:�R_%,H_%:�BY0,g%:�&A1,-g%,-g%
�l�3:ȓȐR_%,H_%,-g%:ș&400E6,sl%:�R_%,H_%:�BY-g%,0:�&B1,g%,-g%:ș&400E6,Cl%:�R_%,H_%:�BY-g%,0:�&A1,g%,-g%
�o�4:ȓȐR_%,H_%,g%,-g%:ș&400E6,sl%:�R_%-2,H_%:�BY0,-g%:�&B1,g%,g%:ș&400E6,Cl%:�R_%,H_%:�BY0,-g%:�&A1,g%,g%
��:�
����l(_%,Q%,s%,b%,g%):�_%+g%,Q%:�BYs%-2*g%,0:�BYg%,-g%:�BY0,-b%+2*g%:�BY-g%,-g%:�BY-s%+2*g%,0:�BY-g%,g%:�BY0,b%-2*g%:�_%+g%,Q%-g%:�BY0,g%:�&A1,-g%,-g%:�_%+s%-g%,Q%-g%:�BYg%,0:�&A1,-g%,g%:�_%+s%-g%,Q%-b%+g%:�BY0,-g%
�5�&A1,g%,g%:�_%+g%,Q%-b%+g%:�BY-g%,0:�&A1,g%,-g%:�
�
��YJ:�
���yu:ȎFi%�
��3:�__(rJ%)
��:�
���c:rJ%=-1:Fi%=-1:�Pu%�
�rJ%=�cy(qJ%):�rJ%<>-1�Fi%=3
���xJ
��:�
���C_(Xu%):ȎZ%(Xu%)�
�
�2:�su
�
�3:�mu
��:�
�'��ny(h%,a%,K%):ș&400E6,0:ȎZ%(t%)�
��2:�i_(v%,h%,a%,K%)
��5:�ZJ(v%,h%,a%,K%)
��1:�SJ(v%,h%,a%,K%)
��3:�Uu(v%,h%,a%,K%)
��:�
�ݤyy(w%,Cy%):ȎZ%(t%)�
�2:k%=�W_(w%,Cy%)
�5:k%=�P_(w%,Cy%)
�1:k%=�fy(w%,Cy%)
�3:k%=�zy(w%,Cy%)
	�:=k%
��cu(p%,A%):ȎZ%(A%)�
�2:�s_(p%,A%)
�5:�NJ(p%,A%)
�1:�n_(p%,A%)
	�3:�x_(p%,A%)

�:�
ݤKy(S%):�ou%:ȎZ%(S%)�
�2:ou%=�ay

�5:ou%=�_y
�1:ou%=�M_
�3:ou%=�qy

�:=ou%
��by(Xu%):ȎZ%(Xu%)�

�2:�A_

�3:�pJ
�:�
'��hy(n%,h%,_%,Q%,o_%,wJ%):ȎZ%(t%)�
�2:�ru(n%,h%,_%,Q%,o_%,wJ%)
�5:�f_(n%,h%,_%,Q%,o_%,wJ%)
�1:�Qu(n%,h%,_%,Q%,o_%,wJ%)
�3:�a_(n%,h%,_%,Q%,o_%,wJ%)
�:�
��X_(l%):ȎZ%(t%)�

�2:�v(l%)
�5:�Hy(l%)
�1:�Ny(l%)
�3:�Xy(l%)
 �:�
!$��DJ(e%,w%,n%,Xy%,Ty%):ȎZ%(t%)�
"�2:�Zl(e%,w%,n%,Xy%,Ty%)
#�:�
$'ݤC_(e%,w%,Cy%):�A%:�A%=1�iy%:�k%�
%
ȎZ%(A%)�
&�2:k%=�Hy(e%,w%,Cy%)
'�5:k%=�Uy(e%,w%,Cy%)
(�1:k%=�Ly(e%,w%,Cy%)
)�3:k%=�dy(e%,w%,Cy%)
*�
+�:�:=k%
,��IJ:�Du:�Mu:�qu:�uJ:�
- ��dJ:�A%:�A%=1�iy%:ȎZ%(A%)�
.�2:�m_(A%)
/�5:�Wu(A%)
0�1:�CJ(A%)
1�3:�O_(A%)
2	�:�:�
3��Ou:�LJ:�fu:�lJ:�
4r��Ku(z%):�#z%,"Address book":�uu(z%):�#z%,"Anniversary":�sJ(z%):�#z%,"Calendar":�e_(z%):�#z%,"Diary":�Au(z%):�
5��QJ(Ay$,z%):ȎAy$�
6�"Address book":�vu(z%)
7�"Anniversary":�Su(z%)
8�"Calendar":�qJ(z%)
9�"Diary":�bJ(z%)
:�:�
;��aJ(e%,w%,n%,_%,Q%):Ȏe%�
<�A%(2):�`u(e%,w%,n%,_%,Q%)
=�A%(3):�_J(e%,w%,n%,_%,Q%)
>�A%(4):�xu(e%,w%,n%,_%,Q%)
?�A%(5):�Ju(e%,w%,n%,_%,Q%)
@�:�
AݤF_(e%,w%,Cy%):Ȏe%�
B�A%(2):k%=�ry(e%,w%,Cy%)
C�:=�
D��UJ(p%):ȎYy%�
E�A%(2):�b_(p%,Yy%)
F�A%(3):�l_(p%,Yy%)
G�A%(4):�GJ(p%,Yy%)
H�A%(5):�iJ(p%,Yy%)
I�:�
J6��Bu:�R_(A%(2)):�fJ(A%(3)):�Ru(A%(4)):�nu(A%(5)):�
K6��Tu:�y_(A%(2)):�j_(A%(3)):�KJ(A%(4)):�bu(A%(5)):�
L��rJ(My%,p%):ȎZ%(t%)�
M�3:�iy(My%,p%)
N�:�
O���Du:YJ%=�C("Paste","Paste",1,&A):zy%=-1:P$="":Q$="mailto:":X$="http://":H$="Important numbers":jJ%=-1:uu%=�C("Import","Import",1,5):f_%=�C("ABM","ABM",1,6):�z(f_%,3,YJ%):F$="":wy%=0:OJ%=0:a_%=-1:Y$="":ku%=0:pu%=0:gJ%=0:F_%=16:Qy%=3::::q_%=2:y_%=-1
P��M%(26),F%(26),A$(&A,&E),Z$(F_%-1,1),L%(&A,1),il%&B,N%(&E):N%()=7:N%(0)=5:L%()=-1:$il%="Pptr_hyper"+�0:M%(0)=1:uy%=0:z$=T$+"Addresses":e$=T$+"Important":�
Qݤay=f_%
RE��m_(A%):B%(A%)=0:W%(A%)=26:S%(A%)=0:M$(A%)=�A("AddTab"):�z_:�a:�
S-��A_:�v%=0��D_(i%,`%,dy%,-o%-j_%,Vy%,�,�)
T�
U��su:�sy:�z_%=0��Yy
V�
W���i_(v%,h%,a%,K%):�Jl%,A%,A$,G%,Zy%,F%,Q%,_%,B%,C%,y%,yJ%,D%,E%,Ou%,Gi%,RJ%,JJ%:JJ%=�a((m%-(Qy%+2)*24)/Qy%):Jl%=�J("Homerton.Medium",&A,&A):Zy%=j_%:ș&400E6,7:ș&400F3,,0,7:�(h%=0)�v%>0��R(0,a%,K%)
X_%=a%+h%*(j%-40):�h%=0�
YWA%=0:ȕA%<v%:ș&400E6,7:�_%,K%-Zy%*(A%+1),_%+40,K%-Zy%*(A%+1):�M%(A%)=0�Ry%=2�Ry%=5
Z,ș&400F3,,0,Ry%:�A%=0�A$="+"�A$=�(64+A%)
[dș&40086,Jl%,A$,1<<4,_%+&C,K%-Zy%*A%-Zy%+&A:A%+=1:�:�v%>0�ș&400E6,7:�_%+40,K%,_%+40,K%-Zy%*(v%)
\$�:A%=v%:�A%=0�A$="+"�A$=�(64+A%)
]�ș&400E6,7:�_%+40,K%-Zy%*(A%+1):�BY-40,0:�_%,K%-m%:ș&40086,Jl%,A$,1<<4,_%+&C,K%-Zy%*A%-Zy%+&A:A%+=1:ȕA%<27:ș&400E6,7:�_%,K%-Zy%*(A%+1),_%+40,K%-Zy%*(A%+1):�M%(A%)=0�Ry%=2�Ry%=5
^,ș&400F3,,0,Ry%:�A%=0�A$="+"�A$=�(64+A%)
_Eș&40086,Jl%,A$,1<<4,_%+&C,K%-Zy%*A%-Zy%+&A:�M%(A%)>0�A%>v%�F%=-1
`A%+=1:�
a0�:�h%=1�(F%�M%(v%)-uy%>2*Qy%)��R(1,_%-j%,K%)
b�v%<>0�
c!�h%=0�(h%=1�uy%+Qy%<=M%(v%))�
d�Ou%=�J("Trinity.Bold",&E,&E):A%=uy%+h%*Qy%:_%=a%-(40*(h%=0))+&c:ȕA%<M%(v%)�B%<Qy%:Q%=K%-24*(B%+1)-JJ%*B%:�S(_%,Q%,dJ%,-JJ%)�
eUș&400E6,4:�l(_%,Q%,dJ%,JJ%,&c):y%=A%�(Qy%*2):A$="":�A$(y%,1)<>""�A$=A$(y%,1)+" "
flA$+=A$(y%,0):�V(0,N%(1)):�r(Ou%,A$,_%+&C,Q%-40,dJ%-&C,40):D%=0:�C%=2�&E:D%-=(A$(y%,C%)<>""):�:�D%<5�D%=5
g5Zy%=�a((JJ%-48)/D%):C%=Zy%/3:�Zy%>30�Zy%=30:C%=&C
h�Gi%=�J("Homerton.Medium.Oblique",C%-2,C%-2):RJ%=�J("Trinity.Medium",C%,C%):G%=1:�C%=2�8:�A$(y%,C%)<>""�G%+=1:�V(0,N%(C%)):�r(RJ%,A$(y%,C%),_%+48,Q%-42-Zy%*(G%-1),dJ%-48,Zy%)
i,�:Q%-=JJ%-&E:�C%=&E�9�-1:�A$(y%,C%)<>""�
j�A$=�A("Fld"+�(C%-8))+":":ș&400F3,,0,N%(0):ș&4008A,Gi%:ș&40097,,A$�,D%,,F%:ș&40088,,F%-D%�,D%:ș&40086,,A$,1<<4,_%+92-D%,Q%-4:ș&400F3,,0,N%(C%):�r(RJ%,A$(y%,C%),_%+&64,Q%-4,dJ%-&64,Zy%+4):Q%+=Zy%:�C%>=&D��r_(y%,C%,_%+&64,Q%-4,dJ%-&64,Zy%+4)
k�:�:�Q(RJ%):�Q(Gi%)
l�:A%+=1:B%+=1:�:�Q(Ou%)
m�
n�:�h%=0�
o�Ou%=�J("Trinity.Bold",16,16):ș&400E6,4:�V(0,7):y%=j%-2*&c:�l(_%+&c,K%-24,y%,m%-2*24,2*&c):�L(Ou%,H$,0,a%+j%/2,K%-24-&C):�Q(Ou%):yJ%=&E:RJ%=�J("Trinity.Medium",yJ%,yJ%):Zy%=(m%-2*24-68-2*&c)/F_%:Q%=K%-24-68:_%=a%+&c:ș&400E6,1
p��_%+48,Q%-Zy%*F_%,_%+y%-48,Q%-Zy%*F_%:�A%=0�F_%-1:ș&4008A,RJ%:ș&400E6,1:�_%+48,Q%-Zy%*A%,_%+y%-48,Q%-Zy%*A%:�S(_%,Q%-Zy%*A%,y%,-Zy%)�Z$(A%,0)+Z$(A%,1)<>""�
q�ș&40097,,Z$(A%,0)+"  "�,B%,C%,D%,E%:B%=D%-B%:�oy(B%,E%):ș&40097,,Z$(A%,1)�,C%,F%,D%:C%=D%-C%:�oy(C%,F%):�B%+C%>y%-24�E%-F%>Zy%�
rJ�Zy%/(E%-F%)<(y%-24)/(B%+C%)�F%=yJ%*Zy%/(E%-F%)�F%=yJ%*(y%-24)/(B%+C%)
s;C%=C%*F%/yJ%:E%=E%*F%/yJ%:F%=�J("Trinity.Medium",F%,F%)
t�F%=RJ%
u��:ș&40086,,Z$(A%,0),1<<4,_%+&C,Q%-Zy%*(A%+0.5)-E%/2:ș&40086,,Z$(A%,1),1<<4,_%+y%-C%-&C,Q%-Zy%*(A%+0.5)-E%/2:�F%<>RJ%��Q(F%)
v�:�
w�
x�:�Q(Jl%):�
y%��s_(p%,Oi%):�A%,B%:B%=wy%:Ȏ!p%�
z;�0:�A%=9�23:�A(`%,A%,A$(B%,A%-9)):�:�_(`%,25,0):�N(0,0)
{H�1:�A%=9�23:�A(`%,A%,A$(B%,A%-9)):�:F$="":wy%=-1:�N(0,0):�_(`%,25,1)
|�2:�qy:�M%(v%)>0�
}�M%(v%)<=uy%�uy%-=2*Qy%
~�N(v%,uy%):uJ%=�
��N(0,0)
��
��3:�p%!4>=0�q_%=p%!4
�
�v%=0�
�$�A%=0�&E:A$(B%,A%)=�Z(`%,A%+9):�
��:Ȏq_%�
� �0:�q(A$(B%,1)+" "+A$(B%,0))
��1:�A%=2�8:�q(A$(B%,A%)):�
�8�2:�q(A$(B%,1)+" "+A$(B%,0)):�A%=2�8:�q(A$(B%,A%)):�
�9�9:�q(A$(B%,1)+" "+A$(B%,0)):�A%=2�&E:�q(A$(B%,A%)):�
��q(A$(B%,q_%+6))
��
��4:�Gy(X$+A$(wy%,&E)):jJ%=1
��5:�Gy(Q$+A$(wy%,&D)):jJ%=2
��:�
�l��gy:�A%:A%=(wy%<0):�B%=0�3:�K(f_%,B%,A%):�:�A%=0�9:�J(YJ%,A%,q_%=A%):�:�B%=4�5:�K(f_%,B%,1):�:�wy%<>-1�
��t("Alias$URLOpen_HTTP")�
��K(f_%,4,A$(wy%,&E)="")
�"�:�t("Alias$URLOpen_MailTo")�
��K(f_%,5,A$(wy%,&D)="")
��
���K(f_%,4,1):�K(f_%,5,1)
��:�
���v(l%)�A%:A%=v%:�l%=1�
��M%(v%)<=uy%+Qy%*2�
�-�A%+=1:�A%>26�M%(A%�27)>0:�A%<27��N(A%,0)
���N(v%,uy%+Qy%*2)
��
��:�uy%=0�v%>0�
�7�A%-=1:�M%(A%)>0:�N(A%,M%(A%)-1-(M%(A%)-1)�(Qy%*2))
���v%>0��N(v%,uy%-Qy%*2)
��:�v%=0��N(0,0)
��:�
�U��ru(n%,h%,_%,Q%,o_%,wJ%):�y%,A%,B%,X%,Y%,JJ%:JJ%=�a((m%-(Qy%+2)*24)/Qy%):�h%<>0�
�X%=&c:�_%>j%-40�n%<>2�
�y%=-Q%�j_%:�y%<27�y%>v%�
��v%=0�Y$=F$:ku%=wy%:pu%=OJ%
��M%(y%)>0��N(y%,0)
��
��
��:X%=&c+40:�_%<40�n%<>2�
�y%=-Q%�j_%:�y%<v%�
��y%=0�F$=Y$:wy%=ku%:OJ%=pu%
��M%(y%)>0��N(y%,0)
��
��
��:�v%>0�
�pA%=0:B%=-1:Y%=-24:h%=�(h%):F$="":wy%=-1:ȕA%<Qy%�A%+uy%+Qy%*h%<M%(v%):�r(_%,Q%,X%,Y%,dJ%,-JJ%)�B%=A%+Qy%*h%
�Y%-=JJ%+24:A%+=1:�:�B%>=0�
�:F$=�s(A$(B%,0)+" "+A$(B%,1)):wy%=B%:OJ%=B%+uy%:�n%<>2�
�8�A%=9�23:�A(`%,A%,A$(B%,A%-9)):�:�_(`%,25,0):�N(0,0)
��
��
���h%=0�n%<>2�
�CZy%=(m%-2*24-68-2*&c)/F_%:Y%=-(Q%+24+68-Zy%)/Zy%:�Y%>0�Y%<=F_%�
�hgJ%=Y%:�A(G_%,3,Z$(Y%-1,0)):�A(G_%,4,Z$(Y%-1,1)):ȗX%,Y%,A%:ș&400D4,,G_%,o_%+GJ%,Y%:�M(G_%,3):QJ%=�
��
��
��:�n%=2��gy
��
���Zl(e%,w%,n%,_%,Q%):Ȏe%�
��`%:�n%<>2�
�	Ȏw%�
��24:�j(�):�a
��25:�qy:�a:�M(`%,9)
��26:�a:�M(`%,9)
�#�-1,0,1,2,3,4,5,6,7,8:�M(i%,-1)
��
�!��gy:�C(f_%,Xy%-64,Ty%,e%,w%)
��
��G_%:Ȏw%�
�
�5:�cy
��6:ș&400D4,,-1:gJ%=0
�*�7:�A(G_%,3,""):�A(G_%,4,""):�M(G_%,3)
��
��:�
�ݤW_(w%,Cy%):k%=�:ȎCy%�
��414:�v(-a_%)
��415:�v(a_%)
�/�43,461:�v%>0�F$=Y$:wy%=ku%:OJ%=pu%:�N(0,0)
�.:�Cy%>=97�Cy%<=&7A�L%=Cy%-32-64�L%=Cy%-64
��L%>0�L%<28�
��v%=0�Y$=F$:ku%=wy%:pu%=OJ%
��M%(L%)>0��N(L%,0)
�	�k%=�
��
�	�:=k%
�ݤHy(e%,w%,Cy%):k%=�:Ȏe%�
��`%:ȎCy%�
��398,&D,394:�w%=23�
�Ȏ��
��Cy%=&D���-2:�j(�):�a
��Cy%=&D��-2:�M(`%,20)
�
�M(`%,9)
��
���M(`%,w%+1)
��
�$�399:�w%=9��M(`%,23)��M(`%,w%-1)
��414:�-1�
�	Ȏw%�
�$�9,&A,18,19,20,21,22:�M(`%,w%+1)
��23:�M(`%,9)
��M(`%,18)
��
�
��v(-a_%)
��
��415:�-1�
�	Ȏw%�
�"�&A,&B,19,20,21,23:�M(`%,w%-1)
��9:�M(`%,23)
��M(`%,&B)
��
���v(a_%)
��
��461:�j(�):�a
��83-64:�M(`%,9)
��70-64:�M(`%,&A)
��65-64:�M(`%,&B)
��84-64:�M(`%,18)
�#�88-64:�wy%<>-1��qy:�a:�M(`%,9)
��69-64:�M(`%,22)
��87-64:�M(`%,23)
�	k%=�
��
��G_%:ȎCy%�
��398,399:�M(G_%,7-w%)
��&D:�w%=3��M(G_%,4)��cy
�	k%=�
��
	k%=�
	�:=k%
^��uu(z%):�A%:�#z%,H$:�#z%,Qy%:�#z%,q_%:�#z%,a_%+5:�#z%,Q$:�#z%,X$:�A%=0�&E:�#z%,N%(A%):�:�
^��vu(z%):�A%:H$=�#z%:Qy%=�#z%:q_%=�#z%:a_%=�#z%-5:Q$=�#z%:X$=�#z%:�A%=0�&E:N%(A%)=�#z%:�:�
"��`u(s%,Sy%,p%,_%,Q%):�A%:Ȏ��
'�Sy%>=3�Sy%<=&D:�n%<>2��Z(s%,Sy%,1)
;�Sy%=9:�A%=0�9:�J(YJ%,A%,q_%=A%):�:�C(YJ%,_%,Q%,s%,Sy%)
M�Sy%>=22�Sy%<=36:�A%=0�&E:�J(By%,A%,�q(s%,Sy%)=A%):�:�C(By%,_%,Q%,s%,Sy%)
�:�
	(ݤry(s%,Sy%,qa%):�ju%,c%:k%=�:ȎSy%�

�1:c%=17:ju%=18
�17:c%=18:ju%=1
�18:c%=1:ju%=17

�:Ȏqa%�
%�&D,394,398:�c%<>0��M(s%,c%):k%=�
 �399:�ju%<>0��M(s%,ju%):k%=�
�:=�
��b_(p%,s%):�A%:Ȏ__%�
?�8:q_%=!p%:�A%=0�9:�J(YJ%,A%,q_%=A%):�:�A(s%,8,�W(YJ%,!p%))
0�A%=0�&F:�J(By%,A%,!p%=A%):�:�U(s%,__%,!p%)
�:�
���R_(s%):�A%:�A(s%,1,H$):�A%=1�5:�Z(s%,A%+2,-(Qy%=A%)):�:�A(s%,8,�W(YJ%,q_%)):�A(s%,17,X$):�A(s%,18,Q$):�Z(s%,&C,-(a_%=-1)):�Z(s%,&D,-(a_%=1)):�A%=0�&E:�U(s%,A%+22,N%(A%)):�:�
\��y_(s%):�A%,B%:H$=�Z(s%,1):X$=�Z(s%,17):Q$=�Z(s%,18):B%=Qy%:�A%=1�5:�M(s%,A%+2)�Qy%=A%
�:�A%<>B%�t%=�P(2)��N(v%,0)
�M(s%,&C)�a_%=-1�a_%=1
$�A%=0�&E:N%(A%)=�q(s%,A%+22):�:�
)��N(y%,iu%):�v%=0�y%<>0��M(i%,-1):�Yy
(�y%=0��D_(i%,`%,dy%,-o%-j_%,Vy%,�,�)
py%=0:�y%<v%py%=-1
�y%>v%py%=1
�py%=0�
 uJ%=iu%<>uy%:�iu%<uy%�py%=-1
 �iu%>uy%�py%=1
!*�:v%=y%:uy%=iu%:�sy:�y%<>0��XJ(y%,iu%)
"�
#���cy�Zy%,Y%:Z$(gJ%-1,0)=�Z(G_%,3):Z$(gJ%-1,1)=�Z(G_%,4):Zy%=(m%-2*24-68-2*&c)/F_%:Y%=o%+24+68+Zy%*(gJ%-1):�D(i%,yy%+&C,-Y%,GJ%-&C,-Y%-Zy%):ey%=�:笤Gy�ș&400D4,,-1:gJ%=0
$�
%=��a�A%:�A%=9�23:�A(`%,A%,""):�:F$="":wy%=-1:�_(`%,25,1):�
&M��qy:�_y%:�Z_:_y%=�_(F$)-64:M%(_y%)-=1:F$="":wy%=-1:�M%(_y%)=0�F%(_y%)=-1
'm�D(i%,dy%+j%-40,-o%-j_%*_y%,dy%+j%,-o%-j_%*(_y%+1)):�D(i%,yy%,-o%-j_%*_y%,yy%+40,-o%-j_%*(_y%+1)):ey%=�:�
(a��Z_:�B%,L%,A%:B%=y_%:L%=�_(F$)-64:B%=F%(L%):A%=OJ%:ȕA%>0:B%=B%!4:A%-=1:�:�OJ%=0�F%(L%)=B%!4
)�B%!4<>-1�!(B%!4)=!B%
*"�!B%=-1�y_%=B%!4�!(!B%+4)=B%!4
+�Dy(w_%,B%,�):�
,o��j(Ha%):�O%,L%,L$:L$=�v(�Z(`%,9)+" "+�Z(`%,&A)):L%=�_(L$)-64:M%(L%)+=1:�F$=""�O%=L%�O%=�_(F$)-64:M%(O%)-=1
-�wy%<0��G_��Z_:�G_
.F$="":wy%=-1:�Ha%��Fu(L$)
/ey%=�:�
0t��Fu(A$):�B%,A%,P%:P%=�_(A$)-64:B%=F%(P%):ȕ�s(�T(B%,0)+" "+�T(B%,1))<>L$:B%=B%!4:A%+=1:�:�N(P%,A%-A%�(2*Qy%)):�
1���G_:�A%,B%,C%,S%:S%=&C:�A%=9�23:S%+=��Z(`%,A%)+1:�:C%=�w(w_%,S%,�):B%=y_%:C%!8=S%:S%=C%+&C:�A%=9�23:$(S%)=�Z(`%,A%)+�&A:S%+=�($S%):�:A%=�_(�Z(`%,9)+" "+�Z(`%,&A))-64:�F%(A%)=-1�F%(A%)=C%:A%-=1
2�B%<>-1�
32ȕF%(A%)=-1�A%>1:A%-=1:�:�F%(A%)<>-1�B%=F%(A%)
4Uȕ�v(�T(B%,0)+" "+�T(B%,1))<L$�B%!4<>-1:B%=B%!4:�:�v(�T(B%,0)+" "+�T(B%,1))>=L$�
5�F%(A%)=B%�F%(A%)=C%
66!C%=!B%:C%!4=B%:!B%=C%:�!C%<>-1�!(!C%+4)=C%�y_%=C%
7�:B%!4=C%:!C%=B%:C%!4=-1
8�
9$�y_%=C%:!C%=-1:C%!4=-1:F%(A%)=C%
:�:�
;)ݤ_(A$):�B%:B%=�(�v(A$)):�B%<65�B%=65
<=B%
=fݤv(A$):�B%:A$=�s(A$):B%=��A$,1):ȕ�(B%>47�B%<58)��(B%>64�B%<91)�A$<>"":A$=�A$,2):B%=��A$,1):�:=A$
>���ty(l%,y%):�A%:_y%=j%-40:y%!8=!y%+_y%:y%!48=y%!40+_y%:y%+=88+8:�A%=&B�17:y%!(A%*32)=_y%-16:�:�A%=8�23:A%-=7*(A%=&B):y%!(A%*32)=_y%:�:y%!(24*32-8)=(_y%-384)/4:y%!(24*32)=y%!(24*32-8)+&80
?�y%!(25*32-8)=y%!(24*32)+(_y%-384)/4:y%!(25*32)=y%!(25*32-8)+&80:y%!(26*32-8)=y%!(25*32)+(_y%-384)/4:y%!(26*32)=y%!(26*32-8)+&80:�
@k��z_:�A%,B%,C%,S%,z%,L%:�A%=0�26:M%(A%)=0:F%(A%)=-1:�:M%(0)=1:C%=-1:y_%=-1:F_%=16:z%=�(z$):�lJ%�z%<>0�
A;ȕ��#z%:S%=��#z%:B%=�w(w_%,S%,�):�C%<>-1�C%!4=B%�y_%=B%
Bg!B%=C%:B%!8=S%:ș&C,4,z%,B%+&C,S%-&C:L%=�_(�T(B%,0)+" "+�T(B%,1))-64:M%(L%)+=1:�F%(L%)=-1�F%(L%)=B%
CC%=B%:�s_%��d(�1)
D�:�y_%<>-1�B%!4=-1
E�#z%
F�:z%=�e$:�lJ%�z%<>0�
G<F_%=��#z%:�B%=0�F_%-1:Z$(B%,0)=�#z%:Z$(B%,1)=�#z%:�:�#z%
H�:�
I���LJ:�z%,B%,S%,A%:z%=�z$:B%=y_%:ȕB%<>-1:�#z%,�B%!8:ș&C,2,z%,B%+&C,B%!8 -&C:B%=B%!4:�:�#z%:z%=�e$:�#z%,�F_%:�A%=0�F_%-1:�#z%,Z$(A%,0)+�&A+Z$(A%,1):�:�#z%:z%=0:�
J��XJ(_y%,ki%):�_y%>0�
K��A%,B%,C%,F%:B%=F%(_y%):ȕki%>0:B%=B%!4:ki%-=1:�:��C%=0�&E:A$(A%,C%)=�T(B%,C%):�:A%+=1:F%=(A%>Qy%*2-1)�B%!4=-1:B%=B%!4:�F%�F%=(�_(�T(B%,0)+" "+�T(B%,1))-64<>_y%)
L�F%
M�:�
N_ݤT(B%,L%):�A$:B%+=&C:ȕL%>0:ȕ?B%<>&A:B%+=1:�:B%+=1:L%-=1:�:ȕ?B%<>&A:A$+=�?B%:B%+=1:�:=A$
Oi��RJ(S$):�t$,A%,B%,S%,I%,xa%,ea%,Wa%,kl%:pJ%=0:nJ%=0:z%=�S$:ȕ��#z%:t$=�#z%:A%=�J_(t$):�A%>nJ%�nJ%=A%
PpJ%+=1:�:�#z%:z%=0:�nJ%>0�
Q�ș&400D9,,J$+".Resources.Default.Templates":ș&400DB,,,0,0,0,"Import"�,Wa%,kl%:ș30,6,,,Wa%�,,zl%;xa%:ș30,6,,,kl%�,,tl%;ea%:ș&400DB,,zl%,tl%,tl%+kl%,Yl%,"Import",0:ș&400C1,,zl%�zy%:ș&400DA:P$=S$
R<B%=1:�A%=&A�52�3:�A(zy%,A%,�B%):�B%>0�B%+=1:�B%>nJ%�B%=0
S@�:�A(zy%,54,�A("Import1")):�A(zy%,55,�A("Import1")):�f(S$,1)
T�P$="":�B(�A("ErrCSV"))
U�:�
V0��Cy:pJ%=0:nJ%=0:�P$<>""��"Remove "+P$:P$=""
W
�zy%<>-1�
X7!U%=zy%:zy%=-1:ș&400C3,,U%:ș30,7,,zl%:ș30,7,,tl%
Y�:�
Zx��f(S$,Kl%):�A%,B%,S%,m$,h_%:m$=�sy(S$,Kl%):F$="":wy%=-1:�_(`%,25,1):�A%=9�23:B%=&A+(A%-9)*3:h_%=��Z(zy%,B%):�B%<&E�
[!S%=�k(uu%,�Z(zy%,55+(B%=&A)))
\	�S%=0
]
�:�h_%>0�
^�A(`%,A%,�ey(m$,h_%,S%))
_��A(`%,A%,"")
`*�:�:�A(zy%,59,�Kl%):�Vy%��w(i%,-1,-1)
a<V_%=t%:z_%=v%:t%=�P(2):�N(0,0):�V_%<>t%�z_%<>v%�py%=0:�O
b�w(zy%,-1,0):�
cBݤsy(S$,Kl%):�A$:z%=�S$:ȕKl%>0:A$=�#z%:Kl%-=1:�:�#z%:z%=0:=A$
dCݤey(A$,h_%,wa%):�CJ%,B%,Z$,Il%:ȕh_%>1�A$<>"":�A$=34�CJ%=�CJ%
e�A$=44��CJ%�h_%-=1
f'A$=�A$,2):�:�A$=34�CJ%=�:A$=�A$,2)
g$ȕ�Il%:�A$=34�A$=""�CJ%=�:Il%=�
h�A$=44��CJ%�Il%=�
i�Il%�Z$+=�A$,1):A$=�A$,2)
j�:Ȏwa%�
k�1:Z$=�Z$,�Z$," ")-1)
l�2:Z$=�Z$,�Z$," ")+1)
m�3:�Z$," ")>0�
n-B%=�Z$:�B%-=1:��Z$,B%,1)=" ":Z$=�Z$,B%-1)
o
�Z$=""
p�
q&�4:ȕ�Z$," "):Z$=�Z$,�Z$," ")+1):�
r	�:=Z$
s/ݤJ_(A$):�Ci%,CJ%:ȕA$<>"":�A$=34�CJ%=�CJ%
t�A$=44��CJ%�Ci%+=1
uA$=�A$,2):�:=Ci%-(Ci%>0)
v&��h_(e%,w%,n%,Xy%,Ty%):�A%,B%:Ȏ��
wL�w%=58�w%=60:A%=��Z(e%,59)-(w%-59):�A%>0�A%<=pJ%��A(e%,59,�A%):�f(P$,A%)
xW�w%>=9�w%<=53:B%=&A+3*((w%-9)�3):A%=��Z(e%,B%)+(w%-B%)*(1+2*(n%=1)):�A%>=0�A%<=nJ%�
y#�A(e%,B%,�A%):�f(P$,��Z(e%,59))
z�
{&�w%=54�w%=55:�C(uu%,Xy%,Ty%,e%,w%)
|H�w%=66:�j(�):A%=��Z(zy%,59)+1:�A%>0�A%<=pJ%��A(zy%,59,�A%):�f(P$,A%)
}J�w%=67:�:�j(�):A%=��Z(zy%,59)+1:�A%>0�A%<=pJ%��A(zy%,59,�A%):�f(P$,A%)
~�A%>pJ%
�w%=68:�Cy
��:�
�:��PJ(w%,I%):�A(zy%,w%,�W(uu%,I%)):�f(P$,��Z(zy%,59)):�
�V��r_(y%,ll%,_%,Q%,s%,b%):!J%=i%:�L%(y%,ll%-&D)<>-1�J%!4=L%(y%,ll%-&D):ș&400C4,,J%
��ș&400CB,,J%:Q%-=8:b%-=8:J%!4=_%-J%!4:J%!8=Q%-J%!16-b%:J%!&C=J%!4+s%:J%!16=J%!8+b%:J%!20=&7003119:J%!24=Ol%:J%!28=il%:J%!32=0:ș&400C2,,J%�L%(y%,ll%-&D):�
�V��sy:�y%,Py%:!J%=i%:�y%=0�&A:�Py%=0�1:�L%(y%,Py%)<>-1�J%!4=L%(y%,Py%):ș&400C4,,J%
��,:L%()=-1:�
�O��o_(w%):�y%,Py%,Ba%,Hi%,A$:�y%=0�&A:�Py%=0�1:�L%(y%,Py%)=w%�Ba%=y%:Hi%=Py%
�%�,:�Hi%=0�A$=Q$:jJ%=2�A$=X$:jJ%=1
��Gy(A$+A$(Ba%,Hi%+&D)):�
�I��Gy(i$):!J%=256:J%!4=su%:J%!16=&4AF80:$(J%+20)=i$:ș&400E7,18,J%,0:�
�n��Mu:�C%(&C),U%(&C):Dy%=3:DJ%=&B:e_%=-1:C%()=-1:w$=T$+"Anni":`l%=0:WJ%=-1:PJ%=-1:yl%=�C("ANM","ANM",1,4):�
�ݤ_y=yl%
�B��Wu(A%):B%(A%)=1:W%(A%)=&C:S%(A%)=1:M$(A%)=�A("AnnTab"):�L_:�
����ZJ(v%,h%,a%,K%):�Jy%,Q%,r%:Jy%=(m%-Dy%*20-20)/Dy%:Q%=0:�r%=v%+Dy%*�h%�v%+Dy%*�h%+Dy%-1:Q%+=20+Jy%:�kJ(r%,a%+20,K%-Q%+Jy%,j%-40,Jy%):�:�h%=0�v%>1��R(h%,a%,K%)
��h%�r%<&C��R(h%,a%,K%)
��
���NJ(p%,Oi%):Ȏ!p%�
��0:�PJ%<>-1��p(PJ%,-1)
��1:�PJ%<>-1��p(PJ%,0)
��2:�PJ%<>-1��Uy(PJ%)
�/�3:�Wy("X�s %n%t birthday",Uy%,Ua%,Fy%,0,0)
��:�
�0��Hy(l%):v%+=l%*2*Dy%:�v%+2*Dy%>&D�v%-=2*Dy%
��v%<1�v%=1
��
�u��f_(n%,h%,_%,Q%,o_%,wJ%):�Jy%,r%:Jy%=(m%-20)/Dy%:r%=-Q%�Jy%+1:Q%+=(r%-1)*Jy%+20:�Q%>0�r%>Dy%�_%<20�_%>j%-40�r%=0
��h%�o_%=dy%+20�o_%=yy%+20
�WwJ%=-o%-20-Jy%*(r%-1):�r%<>0��ju(r%+Dy%*�h%+v%-1,n%,_%-20,Q%,o_%,wJ%,j%-40,-Jy%+20)
��
�ݤP_(w%,Cy%):k%=�:ȎCy%�
��414:�Hy(1)
��415:�Hy(-1)
�	k%=�
�	�:=k%
�!ݤUy(e%,w%,Cy%):k%=�:�e%=Hy%�
�k%=�:ȎCy%�
��394,398,399:�M(Hy%,6-w%)
��4,24:�e_%<>-1��Uy(e_%)
�
�27:�y
��&D:�w%=2�
�&�Sy(�Z(Hy%,2),d%,q%,x%)��M(Hy%,4)
���ky
��
�	k%=�
��
�	�:=k%
�]��fu:�B%:z%=�w$:B%=WJ%:ȕB%<>-1:�#z%,�B%!8:ș&C,2,z%,B%+&C,B%!8 -&C:B%=B%!4:�:�#z%:z%=0:�
� ��sJ(z%):�#z%,DJ%:�#z%,Dy%:�
� ��Su(z%):DJ%=�#z%:Dy%=�#z%:�
� ��_J(s%,Sy%,p%,_%,Q%):ȎSy%�
�=�1:�H(By%,0,-1):�J(By%,�q(s%,Sy%),1):�C(By%,_%,Q%,s%,Sy%)
� �2,3,4,5:�n%<>2��Z(s%,Sy%,1)
��:�
�>��l_(My%,Ya%):�U(Ya%,1,!My%):�H(By%,0,-1):�J(By%,!My%,1):�
�T��fJ(s%):�A%:�U(s%,1,DJ%):�A%=2�5:�Z(s%,A%,0):�:�Dy%<5��Z(s%,Dy%+1,1)��Z(s%,5,1)
��
�[��j_(s%):�A%,B%:B%=Dy%:DJ%=�q(s%,1):A%=2:ȕA%<5���M(s%,A%):A%+=1:�:�A%<5�Dy%=A%-1�Dy%=6
��B%<>Dy%�U%()=0
��S%(�P(5))+2*Dy%>&D�
�,�Z%(t%)=5�v%=&D-2*Dy%�S%(�P(5))=&D-2*Dy%
��:�
�N��kJ(r%,a%,K%,s%,b%):�cJ%,B%,Gy%,A%,Q%:B%=C%(r%):Gy%=28:�S(a%,K%,s%,-b%)�
�jcJ%=�J("Homerton.Bold",&C,&C):v_%=�J("Homerton.Medium",&A,&A):�V(0,7):�r%=by%�ș&400E6,!SJ%�ș&400E6,5
���l(a%,K%,s%,b%,20):�L(cJ%,�U(r%,-1),0,a%+s%/2,K%-&A):Q%=40:A%=U%(r%):ȕA%>0:B%=B%!4:A%-=1:�:ȕB%<>-1�Q%+Gy%-5<=b%:�S(a%+20,K%-Q%-25,s%-50,Gy%)�
�O�r(v_%,�`(B%,�L),a%+70,K%-Q%-20,s%-70,Gy%):�L(v_%,�(B%?&C),1,a%+60,K%-Q%-4)
�G�:Q%+=Gy%:B%=�Zy(B%,r%):�:�B%<>-1��a%+8,K%-b%+20:�BY18,0:�81,-9,-18
�,�U%(r%)<>0��a%+8,K%-60:�BY18,0:�81,-9,18
��Q(cJ%):�Q(v_%)
��:�
����ju(r%,n%,_%,Q%,a%,K%,s%,b%):�L%,A%,B%,C%,N%,Gy%,A$:Gy%=28:C%=(-Q%-70+2*Gy%)�Gy%+U%(r%):N%=-((b%+40)�Gy%):A%=0:B%=C%(r%):ȕB%<>-1:A%+=1:B%=�Zy(B%,r%):�:�L%=0�2:�K(yl%,L%,1):�:PJ%=-1:Ua%=r%:Ȏ��
�Q�_%>35�Q%<-40�_%<s%�C%>0�C%<=A%:B%=C%(r%):ȕC%>1:C%-=1:B%=�Zy(B%,r%):�:�n%=2�
�!�L%=0�2:�K(yl%,L%,0):�:PJ%=B%
���p(B%,n%=4)
��
�	�n%=2
�I�_%>0�_%<30�Q%-20<b%:�U%(r%)<A%-N%�U%(r%)+=1:�D(i%,a%,K%,a%+s%,K%+b%)
�K�_%>0�_%<30�Q%>-60�Q%<=-42:�U%(r%)>0�U%(r%)-=1:�D(i%,a%,K%,a%+s%,K%+b%)
�6�n%<>2��Wy("Chris� %n%t birthday",Uy%,r%,Fy%,0,0)
��:�
�L��Y_(d%,q%,N%,n%):�B%:B%=-1:ȕN%>0:B%=�m(d%,q%,B%):N%-=1:�:�p(B%,n%=4):�
�)��p(B%,ty%):�A%,A$:�ty%�e_%=B%�e_%=-1
�`A%=B%+16:ȕ?A%<>&B:A$+=�?A%:A%+=1:�:�Wy(A$,B%?&C,(B%!&C>>8)�&F,(B%!&C>>&C)�&FFF,B%?&F,ty%):�
�_��Wy(W$,c%,r%,Q%,h_%,ty%):�A(Hy%,4,W$):�A(Hy%,2,�c%+"/"+�r%+"/"+�Q%):ol%=h_%:�h_%=0�h_%=DJ%
�J�U(Hy%,4,h_%):�_(Hy%,&D,(ty%=0)):�ty%=0�A$=�A("anset")�A$=�A("anedit")
�:�G(Hy%):�x(Hy%,�,�):�M(Hy%,2):QJ%=�:�i(Hy%,Na%,A$,0):�
�BݤZy(B%,q%):�A%,C%,c%,r%,Q%:B%=B%!4:�((B%!&C>>8)�&F)<>q%�B%=-1
�=B%
�=ݤ`(B%,Fy%):�A%,C%,c%,Q%,A$:Q%=(B%!&C>>&C)�&FFF:�Q%<=Fy%�
�bC%=B%?&F:C%-=DJ%*(C%=0):�V(0,C%):A%=B%+16:ȕ?A%<>&B:�?A%=37�A%+=1:A$+=�hy(?A%,Q%,Fy%)�A$+=�?A%
�A%+=1:�
�	�:=A$
���tJ(w%):�c%,r%,Q%:Ȏw%�
�8�5:!J%=Hy%:ș&400CB,,J%:�C(Fl%,J%!&C+66,J%!16,e%,w%)
��&B:�ky
�
�&C:�y
��&D:�Uy(e_%)
��:�
�+��ky:�A$,d%,q%,x%:A$=�Z(Hy%,4):�A$<>""�
��Sy(�Z(Hy%,2),d%,q%,x%)�
��e_%<>-1��xy(e_%)
�D�HJ(A$,d%,q%,x%,ol%):U%()=0:�y:ey%=�:�Vy%�(Z%(t%)=5�Z%(t%)=3)��O
���M(Hy%,2)
��
���B(�A("ErrMes"))
��:�
�-��y:e_%=-1:�G(Hy%):�G(ay%):�Vy%��M(i%,-1)
��
�aݤSy(A$,�c%,�r%,�Q%):�A%:c%=�A$:A$=�A$,�A$,"/")+1):r%=�A$:A$=�A$,�A$,"/")+1):Q%=�A$:A%=�:Ȏ��
�"�r%<1�r%>&C:�B(�A("ErrMonth"))
�4�Q%<1�Q%>&FFF:�B(�O("ErrYear","1","4095","",""))
��c%<1:�B(�A("ErrDateZ"))
�P�c%>�X(r%,Q%):�B(�O("ErrDate",äX(r%,Q%),�U(r%,-1)+�-(r%=2)," "+�Q%),"",""))
�	A%=�
�	�:=A%
���HJ(v$,d%,q%,x%,h_%):�gy%,Wy%,S%,B%,Oy%,T%,A_%:A_%=d%+(q%<<8)+(x%<<&C)+(h_%<<24):Oy%=�:S%=�v$+1+16:Wy%=WJ%:gy%=-1:ȕWy%<>-1��Oy%:�Ry(d%,q%,Wy%!&C)�Oy%=��gy%=Wy%:Wy%=Wy%!4
�`�:B%=�w(w_%,S%,�):!B%=gy%:B%!4=Wy%:B%!8=S%:B%!&C=A_%:$(B%+16)=v$+�&B:�gy%=-1�WJ%=B%�gy%!4=B%
��Wy%<>-1�!Wy%=B%
�#�C%(q%)=Wy%�C%(q%)=-1�C%(q%)=B%
��
�,��Uy(B%):�xy(B%):�y:ey%=�:�B%=e_%�e_%=-1
��Vy%�(Z%(t%)=5�Z%(t%)=3)��O
��
�a��xy(B%):�gy%,Wy%,r%,Pi%:Pi%=-1:gy%=!B%:Wy%=B%!4:r%=(B%!&C>>8)�&F:U%(r%)=0:�gy%<>-1�gy%!4=Wy%
�2�Wy%<>-1�!Wy%=gy%:�((Wy%!&C>>8)�&F)=r%�Pi%=Wy%
��WJ%=B%�WJ%=Wy%
��C%(r%)=B%�C%(r%)=Pi%
��Dy(w_%,B%,�):�
�BݤRy(c%,r%,T%):�g%,Nl%,ru%:Nl%=T%�&FF:ru%=(T%>>8)�&F:�r%>=ru%�
�c%<Nl%�ru%=r%�g%=��g%=�
	�g%=�
	�:=g%
���xJ:�B%,Oy%,vJ%,c%,r%,mu%,fJ%,jy%,d%,q%,x%:�P(qJ%,c%,r%,mu%,fJ%,jy%):B%=C%(fJ%):d%=�I:q%=�V:x%=�L:ȕB%<>-1��Oy%��vJ%:c%=B%?&C:r%=(B%!&C>>8)�&F:�r%>q%�(r%=q%�c%>d%)�vJ%=�:�Ty
8�(r%>fJ%�(r%=fJ%�c%>mu%))��vJ%�Oy%=�:�fy(B%)�B%=B%!4
�:�Oy%��Ty
�
E��zy:�B%,c%,r%,d%,q%,x%:d%=�I:q%=�V:x%=�L:B%=`l%!4:J_%=0:�B%<>-1�
>c%=B%?&C:r%=(B%!&C>>8)�&F:�r%>q%�(r%=q%�c%>d%)��Ty��fy(B%)
	�:�

&��Ty:Pu%=�:qJ%=�n(�z):�G(VJ%):�c:�
���fy(B%):�c%:�A(VJ%,1,�O("its",�Q(d%,q%,x%,-1),"","","")):�A(VJ%,2,�`(B%,x%)):c%=B%?&F:c%-=DJ%*(c%=0):�U(VJ%,2,c%):�w(VJ%,�,�):ey%=-1:J_%=&A:`l%=B%:�
0ݤb(c%,r%):�B%,C%,Nl%,ru%:B%=C%(r%):�B%<>-1�

�:�B%?&C=c%�C%+=1
6B%=B%!4:�B%<>-1�Nl%=B%?&C:ru%=(B%!&C>>8)�&F�ru%=&D
�Nl%>c%�ru%>r%
	�:=C%
ݤm(c%,r%,B%):�B%=-1�
#B%=C%(r%):ȕB%?&C<>c%:B%=B%!4:�
�B%=B%!4
0�:�B%<>-1��B%?&C>c%�((B%!&C>>8)�&F)>r%�B%=-1
=B%
6��L_:�S%,C%,B%,r%:C%=-1:WJ%=-1:z%=�w$:�lJ%�z%<>0�
;ȕ��#z%:S%=��#z%:B%=�w(w_%,S%,�):�C%<>-1�C%!4=B%�WJ%=B%
P!B%=C%:B%!8=S%:ș&C,4,z%,B%+&C,S%-&C:r%=((B%!&C)>>8)�&F:�C%(r%)=-1�C%(r%)=B%
C%=B%:�s_%��d(�1)
�:�WJ%<>-1�B%!4=-1

�#z%:z%=0
�:�
Aݤhy(T%,Q%,Fy%):�A$,x,c%,F%,L%:Ul%=(T%�32)=0:c%=Fy%-Q%:Ȏ�T%�
7�"y","Y":A$=�A("year"+�-(c%>1),"s")):�Ul%�A$=�s(A$)
�"n":A$=�c%
 &�"t","T":A$=�Ny(c%):�Ul%�A$=�s(A$)
!V�"c","C":ș&61502,S_%,"Ann"+�c%,J%,256�,,,L%;F%:�(F%�1)=0�J%?L%=&D:A$=" ("+$J%+")"
"�Ul%�A$=�s(A$)
#	�:=A$
$���uJ:ky%=2:m_%=&F:Tu%=�:oi%=�C("FAM","FAM",1,4):Yi%=�C("DIM4","ANM",1,3):F=�C("DIM","DIM",1,6):�z(F,3,Yi%):�z(F,5,oi%):�c_(F,2,-1):sJ%=�C("E","E",1,6):el%=�C("OT","OT",1,6):xl%=�C("Day","Day",1,7):al%=�C("OE","OE",1,&C)
%�Fl%=�Cy(�A("Col")):$(Fl%+28+&C)=�A("Def"):x$=T$+"Diary":�V%(&E):L_%=-1:BJ%=-1:Au%=0:Wu%=�C("EN","EN",1,3):Vu%=�C("EA","E",3,6):D_%=0:ly%=0:M_%=-1:T_%=6:�Al:�
&
ݤqy=F
'y��O_(A%):�V_:�TJ:�I(�I,�V,�L):�J(F,ky%-1,�):B%(A%)=�F(0,0,1,1,&77d):W%(A%)=�F(0,0,31-6,&C,&fff):M$(A%)=�A("DiaTab"):�
(
��pJ:�
)��mu:BJ%=-1:�
*���Uu(v%,h%,a%,K%):�d%,q%,x%,cJ%,vl%,v_%,n_%,ZJ%,hl%:�P(v%,n_%,ZJ%,d%,q%,x%):cJ%=�J("Homerton.Bold",&E,&E):ș&400E6,7:vl%=�J("Trinity.Bold",&C,&C):v_%=�J("Homerton.Medium",&A,&A):ș&40081,,"Trinity.Medium",9*16,9*16�hl%:Ȏky%�
+�1:�ou(v%,h%,a%,K%)
,�2:�k_(v%,h%,a%,K%)
-�3:�ku(v%,h%,a%,K%)
.�:�V(0,7):�h%�
/A$=�U(q%,-1)+" "+�x%:Ȏ��
09�ZJ%<>x%:A$=�U(n_%,3)+" "+�ZJ%+" - "+�U(q%,3)+" "+�x%
1#�n_%<>q%:A$=�U(n_%,-1)+" - "+A$
22�:�G(�F(0,0,d%,q%,x%),W%(t%))=-1��R(h%,a%,K%)
3�L(cJ%,A$,1,a%+j%-&A,K%-&A)
4!�:A$=�ZJ%+" "+�U(n_%,-1):Ȏ��
59�ZJ%<>x%:A$=�ZJ%+" "+�U(n_%,3)+" - "+�x%+" "+�U(q%,3)
6 �n_%<>q%:A$+=" - "+�U(q%,-1)
7=�:�L(cJ%,A$,-1,a%+&A,K%-&A):�G(v%,B%(t%))=1��R(h%,a%,K%)
8�:�Q(cJ%):�Q(vl%):�Q(v_%):�
9��x_(p%,Oi%):Ȏ!p%�
:�0,1,2:�ky%<>!p%+1�
;k�J(F,ky%-1,�):ky%=!p%+1:�J(F,!p%,�):�P(S%(�P(3)),A%,B%,d%,q%,x%):�I(d%,q%,x%):�Z%(t%)=3�v%=S%(t%):uJ%=�
<�
=�3:Ȏp%!4�
>�0:�Oy(BJ%)
?�1:�U_(BJ%)
@�2:�k(BJ%)
A�
B�4:�Ay(�I,�V,�L,F,0)
C�5:Ȏp%!4�
D
�0:�_u
E
�1:�Lu
F
�2:�Iu
G
�3:�H_
H�
I�:�
J��iy(My%,p%):ȎMy%�
KN�sJ%:A$=�W(My%,!p%):�S_(My%)="Every"��A(f%,30,A$):cu%=!p%+1��A(Ly%,&D,A$)
L(�el%:�A(f%,33,�W(My%,!p%)):fu%=!p%+1
M(�xl%:�A(f%,34,�W(My%,!p%)):vu%=!p%+1
N(�al%:�A(f%,35,�W(My%,!p%)):tu%=!p%+1
O�:�
P9��Xy(l%):�d%,q%,x%,A%,B%:�P(v%,A%,B%,d%,q%,x%):Ȏky%�
Q�1:�F(d%,q%,x%,l%*&E,0,0)
R�2:�F(d%,q%,x%,l%*7,0,0)
S�3:�F(d%,q%,x%,l%*2,0,0)
TK�:py%=-�G(v%,�F(0,0,d%,q%,x%)):�I(d%,q%,x%):�G(v%,B%(t%))=-1�v%=B%(t%)
U�G(v%,W%(t%))=1�v%=W%(t%)
V�
W(��a_(n%,h%,_%,Q%,o_%,wJ%):�R%:Ȏky%�
X�1:R%=�Ty(n%,h%,_%,Q%)
Y�2:R%=�ky(n%,h%,_%,Q%)
Z�3:R%=�Yy(n%,h%,_%,Q%)
[�:�n%=2�R%>1�BJ%=R%�BJ%=-1
\�
]ݤzy(w%,Cy%):k%=�:ȎCy%�
^�414:�Xy(1)
_�415:�Xy(-1)
`�30:�I(�I,�V,�L)
a�389:�Ay(�I,�V,�L,F,0)
b�27:�G(ay%)
c	k%=�
d	�:=k%
e'ݤdy(e%,w%,Cy%):�A%,B%:k%=�:�e%=f%�
f4A%=0:�Cy%=&D�Cy%=398�Cy%=394�A%=1��Cy%=399�A%=-1
g�A%<>0�
h	Ȏw%�
i�16:�A%=1�B%=17�B%=18
j�17:B%=w%+A%
k�18:�A%=1�
l�Cy%<>&D�B%=16��N_
m
�B%=17
n�
o	k%=�
p�:�B%<>0��M(e%,B%)
q�:ȎCy%�
r
�27:�n
s�4,24:�L_%<>-1��k(L_%)
t	k%=�
u�
v�
w	�k%=�
x	�:=k%
y`��lJ:�z%,B%:z%=�x$:B%=M_%:ȕB%<>-1:�#z%,�B%!8:ș&C,2,z%,B%+&C,B%!8 -&C:B%=B%!4:�:�#z%:z%=0:�
zF��Au(z%):�#z%,ky%:�#z%,m_%:�#z%,Tu%+5:�#z%,D_%:�#z%,ly%:�#z%,T_%:�
{H��bJ(z%):ky%=�#z%:m_%=�#z%:Tu%=(�#z%)-5:D_%=�#z%:ly%=�#z%:T_%=�#z%:�
|F��Ju(s%,Sy%,p%,_%,Q%):�A%,B%:!J%=s%:ș&400CB,,J%:_%=J%!4+664:Ȏw%�
}�1,2,3:�n%<>2�Z(s%,Sy%,1)
~>�&D:�H(By%,0,-1):�J(By%,�q(s%,Sy%),1):�C(By%,_%,Q%,s%,Sy%)
-�6:B%=��M(s%,Sy%):�A%=7�&A:�S(s%,A%,B%):�
�>�8,9:A%=��Z(s%,7):A%+=1+2*(Sy%=8):�A%>0�A%<&D��A(s%,7,�A%)
��&A:�C(Vu%,_%,Q%,s%,Sy%)
��&B:�S(s%,&C,��M(s%,Sy%))
��&C:�C(Wu%,_%,Q%,s%,Sy%)
��:�
���iJ(p%,s%):ȎtJ%�
�1�By%:�U(s%,&D,!p%):�H(By%,0,-1):�J(By%,!p%,1)
��Vu%:�A(s%,&A,�W(Vu%,!p%))
��Wu%:�A(s%,&C,�W(Wu%,!p%))
��:�
����nu(s%):�A%:�A%=1�3:�Z(s%,A%,�(ky%=A%)):�:�U(s%,&D,m_%):�Z(s%,5,-Tu%):�Z(s%,&B,-(D_%<>0)):�S(s%,&C,-(D_%=0)):�Z(s%,6,-(ly%<>0)):�A%=7�&A:�S(s%,A%,-(ly%=0)):�:�Z(s%,&F,�((T_%�4)>0)):�Z(s%,16,�((T_%�2)>0)):�Z(s%,17,�((T_%�1)>0))
�#�S(s%,&F,�((T_%�1)>0)):�ly%<>0�
�/�A(s%,7,�(ly%�&F)):�A(s%,&A,�W(Vu%,ly%>>4))
�$��A(s%,7,"1"):�A(s%,&A,�A("E3"))
�8�:�D_%=0��A(s%,&C,�A("EN1"))��A(s%,&C,�W(Wu%,D_%-1))
��
����bu(s%):�A%,B%,d%,q%,x%:A%=0:�A%+=1:��M(s%,A%)�A%=3:ky%=A%:�P(S%(�P(3)),A%,B%,d%,q%,x%):�I(d%,q%,x%):m_%=�q(s%,&D):Tu%=�M(s%,5):ly%=0:D_%=0:�M(s%,6)�ly%=((�k(Vu%,�Z(s%,&A)))<<4)+��Z(s%,7)
�&�M(s%,&B)�D_%=�k(Wu%,�Z(s%,&C))+1
�.T_%=�(�M(s%,17)+2*�M(s%,16)+4*�M(s%,&F)):�
�:��I(d%,q%,x%):�u%,B%,Oy%,T%,y%:u%=�H(d%,q%,x%):�ky%=3�
�$�F(d%,q%,x%,�Z_(d%,q%,x%)-1,0,0)
���F(d%,q%,x%,-u%+1,0,0)
�:�:y%=�F(0,0,d%,q%,x%):S%(�P(3))=y%:�Z%(t%)=3�v%=S%(t%)
�	�My:�
�o��My:�B%,T%,Oy%:B%=M_%:kJ%=-1:y%=S%(�P(3)):V%()=0:ȕB%<>-1��Oy%:T%=B%!&C:�G(y%,T%)<>1�Oy%=�:kJ%=B%�B%=B%!4
��:�
�`ݤcy(T%):�B%,F%:B%=M_%:F%=-1:ȕB%<>-1�F%=-1:�((B%!16)�(1<<20))=0�((B%!16)�4)=4�F%=B%�B%=B%!4
�	�:=F%
� ��__(B%):�(B%!16�(3<<20))=0�
�k�fy%,Ky%,d%,q%,x%,K_%,A$,A%,R%,C%:�P(B%!&C,fy%,Ky%,d%,q%,x%):Au%=B%:�Ky%>&C�Ky%-=&C:K_%=���Ky%=0�Ky%=&C
�=A$=�Ky%+":"+�2-��fy%,"0")+�fy%:�K_%�A$+=" pm,"�A$+=" am,"
�P�A(Ly%,1,�O("WasSet",A$,"","","")):�A(Ly%,2,�Q(d%,q%,x%,-1)):�((B%!16)�4)=4�
�R%=�:�((B%!16)�8)=8�
�c�my(fy%,Ky%,d%,q%,x%,((B%!16)>>8)�&FF,(((B%!16)>>16)�&F)-1):�Ky%>&C�Ky%-=&C:K_%=���Ky%=0�Ky%=&C
�=A$=�Ky%+":"+�2-��fy%,"0")+�fy%:�K_%�A$+=" pm,"�A$+=" am,"
�B�A(Ly%,&F,�O("WilRpt",A$,"","","")):�A(Ly%,16,�Q(d%,q%,x%,-1))
�S�:�jy(d%,q%,x%,B%!16):A$=�Ky%+":"+�2-��fy%,"0")+�fy%:�K_%�A$+=" pm,"�A$+=" am,"
�B�A(Ly%,&F,�O("WilRpt",A$,"","","")):�A(Ly%,16,�Q(d%,q%,x%,-1))
��
��:�((B%!16)�1)=1�J_%=&A
��C%=(B%!16>>4)�&F:C%-=m_%*(C%=0):�A%=4�6:�U(Ly%,A%,C%):�:B%+=20:�A%=4�6:A$="":ȕ?B%<>&B:A$+=�?B%:B%+=1:�:B%+=1:�A(Ly%,A%,A$):�:�Z(Ly%,9,0):�A%=&A�&D:�S(Ly%,A%,1):�:�A(Ly%,&A,"1"):�A(Ly%,&D,�A("E1")):�cJ(�R%,�):rJ%=-1
�!�:�(B%!16�(1<<21))<>0��tu(B%)
�
�By(B%,0)
��:�
�o��tu(B%):�A$,A%,Z$,xi%,`u%:B%+=20:�A%=1�3:ȕ?B%<>&B:A$+=�?B%:B%+=1:�:B%+=1:�:�A$,1)="="�A$=�A$,�A$,"*")+1)
�4Z$=�s(�A$,�A$," "))):�Z$<>"FILER_RUN"�Z$<>"RUN"�
�Cș8,5,A$�xi%,`u%:�xi%=2�A$="Run "+A$��xi%<>0�A$="Filer_Run "+A$
��:ș&400DE,A$:�
����Iu:�y%,B%,Oy%,A%,C%,d%,q%,x%:y%=S%(�P(3)):B%=kJ%:�P(y%,A%,C%,d%,q%,x%):A%=-&E*(ky%=1)-7*(ky%=2)-2*(ky%=3):�F(d%,q%,x%,A%,0,0):y%=�F(0,0,d%,q%,x%):ȕB%<>-1��Oy%:T%=B%!&C:�G(y%,T%)=-1�Oy%=��B%=B%!4
��:�Oy%�
�2t%=�P(3):�P(B%!&C,A%,C%,d%,q%,x%):�I(d%,q%,x%)
���B(�A("ErrNoMore"))
��:�
�g��Lu:�y%,B%,Oy%,A%,C%,d%,q%,x%:y%=S%(�P(3)):B%=kJ%:ȕB%<>-1��Oy%:T%=B%!&C:�G(y%,T%)=1�Oy%=��B%=!B%
��:�Oy%�
�2t%=�P(3):�P(B%!&C,A%,C%,d%,q%,x%):�I(d%,q%,x%)
���B(�A("ErrNoB4"))
��:�
���_u:�M_%<>-1�
�3t%=�P(3):�P(M_%!&C,A%,C%,d%,q%,x%):�I(d%,q%,x%)
���B(�A("ErrNoEnt"))
��:�
���H_:�B%:B%=M_%:�B%<>-1�
�GȕB%!4<>-1:B%=B%!4:�:t%=�P(3):�P(B%!&C,A%,C%,d%,q%,x%):�I(d%,q%,x%)
���B(�A("ErrNoEnt"))
��:�
�8��ou(v%,h%,a%,K%):�Gu%,Jy%,u%:�h%��F(d%,q%,x%,7,0,0)
ÆGu%=K%-40:Jy%=-(m%-60)/7:ZJ%=x%:n_%=q%:�u%=1�7:�ay(u%+7*�h%,d%,u%,q%,x%,h%,a%+&A,Gu%,j%-20,Jy%):�u%<>7��F(d%,q%,x%,1,0,0):Gu%+=Jy%
��:�
�uݤTy(n%,h%,_%,Q%):�Jy%,l%,a%,R%:Jy%=(m%-60)/7:Q%=-Q%-40+Jy%:l%=((Q%�Jy%)�8):�l%<>0�l%+=7*�h%:�_%<&A�_%>j%-20�l%=0
��h%�a%=dy%�a%=yy%
�L�l%<>0�R%=�Ay(l%,_%-&A,Q%�Jy%,n%,Jy%,a%+&A,-o%-40-(l%+7*(l%>7))*Jy%+Jy%)
�=R%
�R��k_(v%,h%,a%,K%):�Gu%,Jy%,vJ%,u%:�h%��F(d%,q%,x%,3,0,0):u%=4:vJ%=7�u%=1:vJ%=3
�EGu%=K%-40:Jy%=-(m%-60)/3:ZJ%=x%:n_%=q%:�u%=u%�vJ%:�u%=6�Jy%=Jy%/2
�S�ay(u%,d%,u%,q%,x%,h%,a%+&A,Gu%,j%-20,Jy%):�u%<>vJ%��F(d%,q%,x%,1,0,0):Gu%+=Jy%
��:�
͗ݤky(n%,h%,_%,Q%):�Jy%,l%,a%,K%,R%:Jy%=(m%-60)/3:Q%=-Q%-40+Jy%:l%=((Q%�Jy%)�4):Q%=Q%�Jy%:K%=-o%-40-l%*Jy%+Jy%:�l%<>0�l%+=3*�h%:�_%<&A�_%>j%-20�l%=0
��l%>=6�Jy%=Jy%/2
�&�l%=6�Q%>=Jy%�Q%-=Jy%:l%=7:K%-=Jy%
��h%�a%=dy%�a%=yy%
�.�l%<>0�R%=�Ay(l%,_%-&A,Q%,n%,Jy%,a%+&A,K%)
�=R%
�,��ku(v%,h%,a%,K%):�h%��F(d%,q%,x%,1,0,0)
�OZJ%=x%:n_%=q%:�ay(��h%,d%,�H(d%,q%,x%),q%,x%,h%,a%+&A,K%-40,j%-20,-m%+60):�
�@ݤYy(n%,h%,_%,Q%):�l%,a%,R%:Q%=-Q%-40:l%=1:�h%�a%=dy%�a%=yy%
�.�_%<&A�_%>j%-20�Q%>m%-60�Q%<0�l%=0�l%+=�h%
�1�l%<>0�R%=�Ay(l%,_%-&A,Q%,n%,m%,a%+&A,-o%-40)
�=R%
�m��ay(l%,d%,u%,q%,x%,h%,a%,K%,s%,b%):�B%,C%,T%,Q%,Gy%,A%,A_%:Gy%=28:A_%=�F(0,0,d%,q%,x%):�S(a%,K%,s%,b%)�
�"�V(0,7):�A_%=�F(0,0,�I,�V,�L)�
�8ș&400E6,!SJ%:�l(a%-4,K%-4,s%+8,-b%-8,&C):ș&400E6,7
�*�:�a%,K%:�BYs%,0:�BY0,b%:�BY-s%,0:�h%�
�v�L(vl%,�d%,-1,a%+s%-30,K%-6):�L(v_%,�c(u%,-1),1,a%+s%-40,K%-6):�S(a%,K%-6,s%-&DC,-24)��B_(u%,d%,q%,x%,-1,a%,K%-6)
�x�:�L(vl%,�d%,1,a%+30,K%-6):�L(v_%,�c(u%,-1),-1,a%+40,K%-6):�S(a%+&DC,K%-6,s%-&DC,-24)��B_(u%,d%,q%,x%,1,a%+s%,K%-6)
���:Q%=40:T%=�b(d%,q%):B%=-1:A%=V%(l%):C%=A%-T%:ȕA%>0�T%>0:B%=�m(d%,q%,B%):T%-=1:A%-=1:�:ȕT%<>0�Q%+Gy%-5<=-b%:B%=�m(d%,q%,B%):T%-=1:�r(v_%,�`(B%,x%),a%+30,K%-Q%-20,j%-50,Gy%):Q%+=Gy%:�:B%=kJ%:T%=�F(0,0,d%,q%,x%):A%=C%
�7ȕA%>0:B%=�x(B%,T%):B%=B%!4:A%-=1:�:�Q%+Gy%-5<=-b%�
�S�:B%=�x(B%,T%):�B%<>-1��r(v_%,�my(B%),a%+30,K%-Q%-20,j%-50,Gy%):Q%+=Gy%:B%=B%!4
��B%=-1�Q%+Gy%-5>-b%
�B�:�x(B%,T%)<>-1�Q%+Gy%-5>-b%��a%,K%+b%+24:�BY20,0:�81,-&A,-20
�*�V%(l%)>0��a%,K%-60:�BY20,0:�81,-&A,20
��:�
����TJ:�A%,F%,P%,B%,A$,C%,L%:A%=1:�ș&61502,S_%,"Spec"+�A%,0�,,P%;F%:A%+=1:�F%�1:Xi%=A%-3:�J%(A%-3,4):B%=0:ȕB%<=Xi%:ș&41502,S_%,"Spec"+�(B%+1),0�,,P%,L%;F%:P%?L%=&D:�C%=1�4:J%(B%,C%)=�($P%):ȕ?P%<>44:P%+=1:�:P%+=1:�:J%(B%,0)=P%:B%+=1:�
��A%=1:�ș&61502,S_%,"Easter"+�A%,0�,,P%;F%:A%+=1:�F%�1:Ma%=A%-3:�R%(A%-3,1):B%=0:ȕB%<=A%-3:ș&41502,S_%,"Easter"+�(B%+1),0�,,P%,L%;F%:P%?L%=&D:R%(B%,1)=�($P%):ȕ?P%<>44:P%+=1:�:P%+=1:R%(B%,0)=P%:B%+=1:�:�
�K��B_(Ka%,c%,r%,x%,_u%,_%,Q%):�A$,LJ%,KJ%,Py%,A%:�A%=0�Xi%:�J%(A%,1)=r%�
�K�(J%(A%,2)=-1�J%(A%,2)=Ka%)�c%>=J%(A%,3)�c%<=J%(A%,4)�A$+=$J%(A%,0)+"/"
�z�:�:�vJ(LJ%,KJ%,x%):A%=0:Py%=0:ȕA%<=Ma%:�F(LJ%,KJ%,x%,R%(A%,1)-Py%,0,0):Py%=R%(A%,1):�LJ%=c%�KJ%=r%�A$+=$R%(A%,0)+"/"
�HA%+=1:�:�A$),"/")�ș&40081,,"Trinity.Medium",7*16,7*16�Py%�Py%=hl%
�"�A$<>""��L(Py%,�A$),_u%,_%,Q%)
��Py%<>hl%�ș&40082,Py%
��
�KݤAy(l%,_%,Q%,n%,b%,a%,K%):�ny%,Gy%,A%,B%,d%,q%,x%,T%,F%,R%:Gy%=28:Ȏ��
�s�_%>=30�_%<=j%-20�Q%>=40:�P(v%,A%,B%,d%,q%,x%):�F(d%,q%,x%,l%-1,0,0):ny%=(((Q%-40+Gy%)�Gy%)):�ny%>0�ny%+=V%(l%)
�8�ny%>0�ny%<=�b(d%,q%)�n%<>2��Y_(d%,q%,ny%,n%):ny%=-1
��ny%>0�ny%-=�b(d%,q%)
��ny%>0�
�`T%=�F(0,0,d%,q%,x%):B%=kJ%:B%=�x(B%,T%):ȕny%>1�B%<>-1:B%=B%!4:B%=�x(B%,T%):ny%-=1:�:�B%=-1�
��n%<>2��s(d%,q%,x%):QJ%=�
��:Ȏn%�
��4:�Oy(B%):QJ%=�
��2:R%=B%
��1:�U_(B%):QJ%=�
��
��
��:�n%<>2�ny%=0�
�B�P(v%,A%,B%,d%,q%,x%):�F(d%,q%,x%,l%-1,0,0):�s(d%,q%,x%):QJ%=�
��
��
	�n%=2
��_%<=20�Q%>=b%-20:�P(v%,A%,B%,d%,q%,x%):�F(d%,q%,x%,l%-1,0,0):T%=�F(0,0,d%,q%,x%):ny%=-((b%-40)�Gy%):B%=�x(kJ%,T%):ȕB%<>-1:B%=B%!4:B%=�x(B%,T%):ny%+=1:�:ny%+=�b(d%,q%):�V%(l%)<ny%�V%(l%)+=1:�D(i%,a%,K%-40,a%+j%-&A,K%-b%+4)
N�_%<=20�Q%<=60�Q%>=40�V%(l%)<>0:V%(l%)-=1:�D(i%,a%,K%-40,a%+j%-&A,K%-b%+4)
�_%<=20�Q%<=60�Q%>=40
D:�P(v%,A%,B%,d%,q%,x%):�F(d%,q%,x%,l%-1,0,0):�s(d%,q%,x%):QJ%=�
	�:=R%
Jݤx(B%,T%):�A%:A%=-1:ȕB%<>-1�A%=-1:A%=�G(�n(B%!&C),T%):�A%=-1�B%=B%!4
�:�A%=0�A%=B%�A%=-1
=A%
	�ݤmy(B%):�A$,A%,C%,Z$,T%:C%=(B%!16>>4)�&F:T%=B%!16�(1<<21):C%-=m_%*(C%=0):�V(0,C%):�((B%!16>>1)�1)=1�Z$=�oy(�Xy(B%!&C),�vy(B%!&C),-1,Tu%)+"  "

BB%+=20:�A%=1�3:ȕ?B%<>&B:A$+=�?B%:B%+=1:�:�A%<>3�A$+=" ":B%+=1
+�:�T%>0��A$,1)="="�A$=�A$,2,�A$,"*")-2)

=Z$+A$

���v_(S$):�A$,`i%,e:�Z(f%,39,1):A$=�Z(f%,16):`i%=�A$:�A(f%,16,A$+S$):ql%=��Z(f%,16):S$=�S$,ql%-`i%+1):�A(f%,17,S$):ql%=��Z(f%,16):S$=�S$,ql%+1):�A(f%,18,S$):�
���s(c%,r%,Q%):�A%,b%,K_%:�A%=16�18:�A(f%,A%,""):�U(f%,A%,m_%):�:�Z(f%,24,0):hJ%=0:�Z(f%,21,�((T_%�4)>0)):�Z(f%,23,�((T_%�2)>0)):�Z(f%,38,�((T_%�1)>0)):�S(f%,21,�((T_%�1)>0)):�Z(f%,39,0):�Jy(26):�A(f%,27,"1"):�A(f%,30,�A("E1"))
�cu%=1:fu%=1:vu%=1:tu%=1:�S(f%,37,1):�A(f%,33,�A("OT1")):�A(f%,34,�A("Day1")):�A(f%,35,�A("OE1")):�A(f%,1,�Q(c%,r%,Q%,-1)):W_%=c%:C_%=r%:b_%=Q%:b%=�f:r%=�i:K_%=(b%>=&C):�i(f%,Ql%,�A("alset"),-1):�b%>&C�b%-=&C
I�A(f%,3,�b%):�A(f%,5,"00"):�K_%��A(f%,&C,�A("pm"))��A(f%,&C,�A("am"))
!�Y(0,r%):�Iy(�,�):�M(f%,16):�
B��U_(B%):�Oy(B%):L_%=-1:�S(f%,37,1):�i(f%,Ql%,�A("alset"),0):�
s��Oy(B%):�d%,q%,x%,b%,r%,A$,ci%,R%:�P(B%!&C,r%,b%,d%,q%,x%):L_%=B%:�b%<&C�A$=�A("am")�A$=�A("pm"):�b%>&C�b%-=&C
�A(f%,&C,A$):�b%=0�b%=&C
5�Z(f%,38,((B%!16>>20)�1)):A$=�r%:�r%<&A�A$="0"+A$
2�A(f%,5,A$):hJ%=((B%!16)>>4)�&F:�hJ%=0�hJ%=m_%
��A%=16�18:�U(f%,A%,hJ%):�:�S(f%,37,0):�A(f%,3,�b%):�i(f%,Ql%,�A("aledit"),-1):�A(f%,1,�Q(d%,q%,x%,-1)):W_%=d%:C_%=q%:b_%=x%:�Z(f%,21,�(((B%!16)�1)=1)):�Z(f%,23,�(((B%!16)�2)=2)):�Z(f%,39,�((B%!16�(1<<21))>1)):�A(f%,27,"1"):�A(f%,30,�A("E1"))
pcu%=1:fu%=1:vu%=1:tu%=1:�Jy(26):�A(f%,33,�A("OT1")):�A(f%,34,�A("Day1")):�A(f%,35,�A("OE1")):�((B%!16)�4)=4�
%ci%=�:�Z(f%,24,1):�((B%!16)�8)=8�
RR%=((B%!16)>>8)�&FF:�A(f%,27,�R%):cu%=((B%!16)>>16)�&F:�A(f%,30,�W(sJ%,cu%-1))
��:�Jy(31):fu%=((B%!16)>>8)�&F:�A(f%,33,�W(el%,fu%-1)):vu%=((B%!16)>>&C)�&F:�A(f%,34,�W(xl%,vu%-1)):tu%=((B%!16)>>16)�&F:�A(f%,35,�W(al%,tu%-1))
�
��Z(f%,24,0)
d�:B%+=20:�A%=16�18:A$="":ȕ?B%<>&B:A$+=�?B%:B%+=1:�:B%+=1:�A(f%,A%,A$):�:�Iy(�ci%,�):�M(f%,16):�
f��Iy(La%,IJ%):!J%=f%:ș&400CB,,J%:�IJ%�J%!28=-1:J%!4=�d-&64-(J%!&C-J%!4):J%!&C=J%!4+&3E8:J%!16=900
 )J%!8=J%!16 -&7D0*��La%:ș&400C5,,J%:�
!W��cJ(La%,IJ%):!J%=Ly%:ș&400CB,,J%:�IJ%�J%!28=-1:J%!4=&64:J%!&C=J%!4+&3E8:J%!16=900
")J%!8=J%!16 -&7D0*��La%:ș&400C5,,J%:�
#k��Jy(w%):�A%:�Z(f%,w%,1):�Z(f%,57-w%,0):�A%=27�30:�S(f%,A%,-(w%=31)):�:�A%=33�35:�S(f%,A%,-(w%=26)):�:�
$O��J_:�F%,c%,r%,Q%,my%,Lu%,Gy%,B%,mu%,fJ%,jy%:�P(qJ%,F%,B%,mu%,fJ%,jy%):Ȏ��
%�D_%=1:F%=�
&C�D_%=2�(�D(Uy%,by%,Fy%)>�D(mu%,fJ%,jy%)-�H(mu%,fJ%,jy%)+7):F%=�
'�D_%=3�Uy%=1:F%=�
(	F%=�
)�:�F%��Vy%�
*�t%<>�P(3)�Iu%��C_(t%)
+)t%=�P(3):�I(Uy%,by%,Fy%):�x(i%,-1,-1)
, �:my%=0:Lu%=0:Gy%=0:�ly%<>0�
-
Ȏly%>>4�
.�0:my%=ly%�&F
/�1:my%=7*(ly%�&F)
0�2:Lu%=ly%�&F
1�3:Gy%=ly%�&F
2��:c%=Uy%:r%=by%:Q%=Fy%:�F(c%,r%,Q%,-my%,-Lu%,-Gy%):F%=�F(0,0,c%,r%,Q%):B%=M_%:c%=�:ȕB%<>-1�c%:�G(B%!&C,F%)=-1��k(B%):B%=B%!4�c%=�
3�
4�:�
5Z��N_:�A_%,b%,r%,K_%,A$,Z$,C$,Py%:A$=�Z(f%,16):Z$=�Z(f%,17):C$=�Z(f%,18):�A$+Z$+C$<>""�
6)b%=��Z(f%,3):r%=��Z(f%,5):�b%=&C�b%=0
7(K_%=(�Z(f%,&C)=�A("pm")):�K_%�b%+=&C
8mPy%=Py%�(-�M(f%,21))�((-�M(f%,23))<<1)�(hJ%<<4):Py%=Py%�((-�M(f%,38))<<20)�((-�M(f%,39))<<21):�M(f%,24)�
9�M(f%,26)�
:*Py%=Py%�&C�((��Z(f%,27))<<8)�(cu%<<16)
;+�Py%=Py%�4�(fu%<<8)�(vu%<<&C)�(tu%<<16)
<�
=V�:A_%=�F(r%,b%,W_%,C_%,b_%):�Ky(A_%,Py%,A$,Z$,C$):�My:�c:�n:ey%=�:�Vy%�Z%(t%)=3��O
>��B(�A("ErrMes"))
?�:�
@B��Ky(A_%,Py%,A$,Z$,C$):�S%,B%,Oy%,T%,gy%,Wy%:�L_%<>-1��Fy(L_%)
AlOy%=�:S%=�(A$+Z$+C$)+3+20:Wy%=M_%:gy%=-1:ȕWy%<>-1��Oy%:T%=Wy%!&C:�G(A_%,T%)=-1�Oy%=��gy%=Wy%:Wy%=Wy%!4
B\�:B%=�w(w_%,S%+1,�):!B%=gy%:B%!4=Wy%:B%!8=S%:B%!&C=A_%:B%!16=Py%:�gy%=-1�M_%=B%�gy%!4=B%
C�Wy%<>-1�!Wy%=B%
D#$(B%+20)=A$+�&B+Z$+�&B+C$+�&B:�
E1��k(B%):�Fy(B%):�My:�c:ey%=�:�Vy%�Z%(t%)=3��O
F�B%=L_%��n
G�B%=Au%�Au%=-1:�G(Ly%)
H�
I9��Fy(B%):�gy%,Wy%:gy%=!B%:Wy%=B%!4:�gy%<>-1�gy%!4=Wy%
J�Wy%<>-1�!Wy%=gy%
K�M_%=B%�M_%=Wy%
L�Dy(w_%,B%,�):�
M%��n:�G(f%):�G(ay%):�Vy%��M(i%,-1)
NL_%=-1:�
O%��lu(Xy%,Ty%,e%,w%,X_%):�A%:Ȏw%�
P�1:�Ay(W_%,C_%,b_%,e%,w%)
Q�6:�Y(X_%,0)
R�7:�Y(-X_%,0)
S�8:�Y(0,&A*X_%)
T�9:�Y(0,-&A*X_%)
U�&A:�Y(0,X_%)
V�&B:�Y(0,-X_%)
W.�&C:A%=&C+24*(�Z(f%,&C)=�A("pm")):�Y(A%,0)
X�19:�N_
Y
�20:�n
Z�22:�C(Fl%,Xy%,Ty%,e%,w%)
[�24:�Iy(��M(e%,24),�)
\�26,31:�Jy(w%)
]�28,29:�n%=1�w%=57-w%
^;A%=��Z(e%,27):A%+=(w%-27)*2-3:�A%=0�A%=&FF��A%=256�A%=1
_�A(e%,27,�A%)
`6�30:�`(Xy%,Ty%):!sJ%=�g("E"):�C(sJ%,Xy%,Ty%,e%,w%)
a)�33:�`(Xy%,Ty%):�C(el%,Xy%,Ty%,e%,w%)
b)�34:�`(Xy%,Ty%):�C(xl%,Xy%,Ty%,e%,w%)
c)�35:�`(Xy%,Ty%):�C(al%,Xy%,Ty%,e%,w%)
d�37:�k(L_%)
e�38:�S(f%,21,��M(f%,38))
f�:�
g'��jJ(Xy%,Ty%,e%,w%):�A%:J_%=0:Ȏw%�
h �7:�By(Au%,�M(Ly%,9)):Au%=-1
i�8:�k(Au%)
j(�9:�A%=&A�&D:�S(e%,A%,���M(e%,w%)):�
k�&B,&C:�n%=1�w%=23-w%
l;A%=��Z(e%,&A):A%+=(w%-&A)*2-3:�A%=0�A%=&FF��A%=256�A%=1
m�A(e%,&A,�A%)
n]�&D:!J%=e%:ș&400CB,,J%:Xy%=J%!4+686+64:Ty%=J%!16-312:!sJ%=�g("ED"):�C(sJ%,Xy%,Ty%,e%,w%)
o�:�
p%��By(B%,ni%):�B%<>L_%��L_%:L_%=-1
q
�ni%�
r�(B%!16�4)=4�
s�(B%!16�8)=8�
t
�Q_(B%,�)
u��oJ(B%)
v�
w!�B%!16=(B%!16)�(1<<20):ey%=-1
x�
y��Q_(B%,�)
z#�:�My:�c:ey%=�:�Vy%�Z%(t%)=3��O
{J_%=0:�G(Ly%):�
|@��Q_(B%,ni%):�c%,T%,A$,fy%,Ky%,d%,q%,x%,A_%,Py%,Z$,C$,:�ni%�
}DA_%=�z:c%=��Z(e%,&A):A$=�Z(Ly%,&D):T%=0:ȕA$<>�W(sJ%,T%):T%+=1:�
~:�A_%=B%!&C:c%=((B%!16)>>8)�&FF:T%=(((B%!16)>>16)�&F)-1
��:�P(A_%,fy%,Ky%,d%,q%,x%):�my(fy%,Ky%,d%,q%,x%,c%,T%):A_%=�F(fy%,Ky%,d%,q%,x%):Py%=B%!16:c%=B%+20:A$="":ȕ?c%<>&B:A$+=�?c%:c%+=1:�:c%+=1:ȕ?c%<>&B:Z$+=�?c%:c%+=1:�:c%+=1:ȕ?c%<>&B:C$+=�?c%:c%+=1:�:�Fy(B%):�Ky(A_%,Py%,A$,Z$,C$):�
�X��my(�fy%,�Ky%,�d%,�q%,�x%,c%,T%):�my%:�T%=0�fy%+=c%:c%=fy%�60:fy%=fy%�60:�c%>0�T%=1
�1�T%=1�Ky%+=c%:c%=Ky%�24:Ky%=Ky%�24:�c%>0�T%=2
��T%=2�my%=c%��T%=3�my%=7*c%
�.ȕmy%>0:�F(d%,q%,x%,1,0,0):my%-=1:�:�T%=4�
�%ȕc%>0:�F(d%,q%,x%,0,1,0):c%-=1:�
��:�T%=5�
�%ȕc%>0:�F(d%,q%,x%,0,0,1):c%-=1:�
��:�
����oJ(B%):�A_%,fy%,Ky%,d%,q%,x%,A$,Z$,C%,Py%,c%:Py%=B%!16:c%=B%+20:�P(B%!&C,fy%,Ky%,d%,q%,x%):�jy(d%,q%,x%,Py%):A_%=�F(fy%,Ky%,d%,q%,x%):ȕ?c%<>&B:A$+=�?c%:c%+=1:�:c%+=1:ȕ?c%<>&B:Z$+=�?c%:c%+=1:�:c%+=1:ȕ?c%<>&B:C$+=�?c%:c%+=1:�
�#�Fy(B%):�Ky(A_%,Py%,A$,Z$,C$):�
�z��jy(�d%,�q%,�x%,F%):�l%,c%,r%:l%=(F%>>8)�&F:c%=(F%>>&C)�&F:r%=(F%>>16)�&F:ȕr%>0:�F(d%,q%,x%,-d%+1,1,0):r%-=1:�:Ȏl%�
�D�1,2,3:u%=�H(d%,q%,x%):ȕu%<>c%:d%+=1:u%=�o(u%+1):�:d%+=(l%-1)*7
�Q�4,5,6:d%=�X(q%,x%):u%=�H(d%,q%,x%):ȕu%<>c%:d%-=1:u%=�o(u%+6):�:d%-=(l%-4)*7
��:�
�E��`(�_%,�Q%):!J%=f%:ș&400CB,,J%:_%=J%!4+714+64:Q%=J%!16-480-40:�
����Y(hu%,r%):�K_%,M%,Lu%,my%,zi%,A$:Lu%=r%<>0:my%=�:r%+=��Z(f%,5):b%=��Z(f%,3):K_%=(�Z(f%,&C)=�A("pm")):M%=�X(C_%,b_%):�b%=&C�b%=0
��K_%�b%+=&C
�/b%+=hu%:hu%=hu%<>0:�r%<0�b%-=1:r%+=60:hu%=�
��r%>59�b%+=1:r%-=60:hu%=�
��b%<0�W_%-=1:b%+=24:my%=�
��b%>23�W_%+=1:b%-=24:my%=�
��W_%<1�C_%-=1:my%=�
��W_%>M%�C_%+=1:W_%=1:my%=�
��C_%<1�b_%-=1:C_%=&C:my%=�
��C_%>&C�b_%+=1:C_%=1:my%=�
�'M%=�X(C_%,b_%):�W_%=0�W_%>M%�W_%=M%
�zi%=(b%>=&C):�b%>&C�b%-=&C
�$�my%��A(f%,1,�Q(W_%,C_%,b_%,-1))
��b%=0�b%=&C
��hu%��A(f%,3,�b%)
�)A$=�r%:�r%<&A�A$="0"+A$:�r%=0�A$="00"
��Lu%��A(f%,5,A$)
��zi%<>K_%�
� �zi%�A$=�A("pm")�A$=�A("am")
��A(f%,&C,A$)
��:�
�3��V_:�S%,C%,B%:C%=-1:M_%=-1:z%=�x$:�lJ%�z%<>0�
�=ȕ��#z%:S%=��#z%:B%=�w(w_%,S%+1,�):�C%<>-1�C%!4=B%�M_%=B%
�:!B%=C%:B%!8=S%:ș&C,4,z%,B%+&C,S%-&C:C%=B%:�s_%��d(�1)
��:�M_%<>-1�B%!4=-1
�
�#z%:z%=0
��:�
�9��vJ(�c%,�r%,Q%):�_l%,_y%:_l%=(Q%+1)�19:�_l%=0�_l%=19
�A_y%=(�(1.25*Q%)+6)�7:c%=Y%(_l%-1,_y%):�c%>31�c%-=31:r%=4�r%=3
��
�>��Al:�_i%,Ai%,d%,u%,c%:�Y%(18,6):�_i%=1�19:�Ai%=0�6:Ȏ_i%�
��&E:u%=1
��3:u%=2
��&B:u%=4
��19:u%=6
��8:u%=7
��16:u%=9
��5:u%=&A
�
�&D:u%=&C
��2:u%=&D
�
�&A:u%=&F
�
�18:u%=17
��7:u%=18
�
�&F:u%=20
��4:u%=21
�
�&C:u%=23
��1:u%=24
��9:u%=26
�
�17:u%=27
��6:u%=28
�?�:d%=21+u%:n$=�A("Mon3")+" ":�d%+=1:c%=5-(d%�7):�c%=-1�c%=6
�<�c%=Ai%:Y%(_i%-1,Ai%)=d%:�d%>31�d%-=31:n$=�A("Mon4")+" "
�	�:�:�
đ��qu:sy%=2:Vi%=&B:TJ%=�:bJ%=1:Si%=�Wy(�A("GYM")+�Oy("GYM",1,2,"\","")+"\"):ji%=�py(Si%,2,"",5,"A0-9"):Zl%=�C("CAM","CAM",1,3):�z(Zl%,2,Si%):�
�ݤM_=Zl%
�I��CJ(A%):B%(A%)=&77d:W%(A%)=&fff:S%(A%)=Fy%:M$(A%)=�A("CalTab"):�WJ:�
�-��SJ(x%,h%,a%,K%):�sy%=1��JJ(x%,h%,a%,K%)
��sy%=2��Pu(x%,h%,a%,K%)
��
���n_(p%,Oi%):�A%:Ȏ!p%�
�%�0,1:A%=sy%:sy%=!p%+1:uJ%=sy%<>A%
��2:Ȏp%!4�
�%�0:�v%<>Fy%+(sy%=1)�v%=Fy%:t%=Oi%
�)�1:�v%<>Fy%+1+(sy%=1)�v%=Fy%+1:t%=Oi%
��2:A%=�$ji%:Ȏ��
�,�A%<&77d:�B(�O("ErrMin",�&77d,"","",""))
�,�A%>&fff:�B(�O("ErrMax",�&fff,"","",""))
�!�v%<>A%+(sy%=1)�v%=A%:t%=Oi%
��
��
��:�
�0��Ny(l%):v%+=(3-sy%)*l%:�v%<B%(t%)�v%=B%(t%)
��v%>W%(t%)�v%=W%(t%)
��
�3��Qu(n%,h%,_%,Q%,o_%,wJ%):�Pa%,d%,q%,x%:�n%<>2�
�$Pa%=�ly(h%,_%,Q%,d%,q%,x%):�Pa%�
�
ȎbJ%+n%�
�(�5,3:�I(d%,q%,x%):t%=�P(3):v%=S%(t%)
��6,2:�s(d%,q%,x%):QJ%=�
��
��
��:�
�ݤfy(w%,Cy%):k%=�:ȎCy%�
��414:�Ny(1)
��415:�Ny(-1)
��30:�v%<>Fy%+(sy%=1)�v%=Fy%
�	k%=�
�	�:=k%
�@��GJ(p%,s%):�tJ%=By%��b(s%,6,!p%):�H(By%,0,-1):�J(By%,!p%,1)
��
�ݤLy(e%,w%,Cy%):=�
�5��e_(z%):�#z%,sy%:�#z%,TJ%+5:�#z%,!SJ%:�#z%,bJ%:�
�4��qJ(z%):sy%=�#z%:TJ%=�#z%-5:Vi%=�#z%:bJ%=�#z%:�
� ��xu(s%,Sy%,p%,_%,Q%):ȎSy%�
��7,1,4,5:�n%<>2�Z(s%,Sy%,1)
�;�6:�H(By%,0,-1):�J(By%,�p(s%,6),1):�C(By%,_%,Q%,s%,Sy%)
��9:�Z(s%,9)=�A("SetAlarm")+"/"+�A("GotoDiary")��A(s%,9,�A("GotoDiary")+"/"+�A("SetAlarm"))��A(s%,9,�A("SetAlarm")+"/"+�A("GotoDiary"))
��:�
���Ru(s%):�Z(s%,7,-(sy%=1)):�Z(s%,1,-(sy%=2)):�b(s%,6,!SJ%):�Z(s%,4,-�TJ%):�Z(s%,5,-TJ%):�bJ%=1��A(s%,9,�A("GotoDiary")+"/"+�A("SetAlarm"))��A(s%,9,�A("SetAlarm")+"/"+�A("GotoDiary"))
��
�"��KJ(s%):�M(s%,7)�sy%=1�sy%=2
�WTJ%=�M(s%,5):!SJ%=�p(s%,6):�Z(s%,9)=�A("GotoDiary")+"/"+�A("SetAlarm")�bJ%=1�bJ%=2
��
�?ݤly(h%,_%,Q%,�d%,�q%,�x%):�p_%,oy%,hy%,vy%,zu%,wu%:�sy%=1�
��p_%=(j%-32)/2:oy%=(m%-50)/6:hy%=p_%/7:vy%=(oy%-&A)/8:x%=v%+�h%:q%=2*((-Q%-50)�oy%)+((_%-20)�((j%-8)/2)):_%-=20+(q%�2)*((j%-8)/2):Q%=-Q%-50-((q%�2)*oy%):q%+=1:zu%=(_%+hy%*(1-0.12)+20*�h%)�hy%:wu%=((Q%-&A-vy%)�vy%)-1
�+�zu%>0�zu%<8�d%=1+zu%+7*wu%-�H(1,q%,x%)
���:p_%=(j%-40)/2:oy%=(m%-50)/3:hy%=p_%/7:vy%=(oy%-&A)/8:x%=v%:q%=2*((-Q%-50)�oy%)+((_%-20)�((j%-8)/2)):_%-=20+(q%�2)*((j%-8)/2):Q%=-Q%-50-((q%�2)*oy%):q%+=1+6*�h%:zu%=(_%-hy%*0.25+20*�h%)�hy%-1:wu%=Q%�vy%:�wu%>0�wu%<8�d%=1+wu%+7*zu%-�H(1,q%,x%)
��:�x%<>-1�
�1�d%<=0�d%>�X(q%,x%)�x%>&fff�x%=-1:d%=-1:q%=-1
�
�:=(x%>0)
����Pu(x%,h%,a%,K%):�q%,u%,c%,hy%,vy%,fa%,A$,r%,A%,B%,C%,D%,E%,F%,G%,H%:p_%=(j%-40)/2:oy%=(m%-50)/3:vy%=(oy%-&A)/8:hy%=p_%/7:�h%�
��x%<W%(t%)��R(1,a%,K%)
���x%>B%(t%)��R(0,a%,K%)
��:Bu%=�J("Homerton.Medium",20,20):yu%=�J("Homerton.Medium",&D,&D):bu%=�J("Homerton.Medium",9,9):�V(0,7):�L(Bu%,�x%,0,a%+j%/2,K%-8):�r%=1�6:q%=r%+6*h%:_%=(r%-1)�2*(j%-8)/2+20-20*h%:Q%=50+(r%-1)�2*oy%:�S(a%+_%,K%-Q%,p_%,-oy%)�
��L(yu%,�U(q%,-1),-1,a%+_%,K%-Q%):u%=�H(1,q%,x%)-1:ș&4008A,bu%:Q%+=vy%-6:�c%=1�7:ș&40086,,�c(c%,2),1<<4,a%+_%,K%-Q%-vy%*c%:�:_%+=hy%:A%=K%-Q%:D%=a%+_%:F%=�X(q%,x%):G%=u%:H%=hy%:B%=-vy%:�x%=Fy%�q%=by%�C%=Uy%�C%=0
h�TJ%�C%<>0�C%=0:ș&400E6,!SJ%:ȓa%+_%+((u%-1+Uy%)�7+0.25)*hy%,K%-Q%-((u%-1+Uy%)�7+0.25)*vy%,hy%,-vy%
�K
!�:�:�Q(Bu%):�Q(yu%):�Q(bu%):�
���JJ(v%,h%,a%,K%):�q%,u%,c%,hy%,ra%,oy%,A$,A%,B%,C%,D%,E%,F%,G%,H%:p_%=(j%-32)/2:oy%=(m%-50)/6:hy%=p_%/7:vy%=(oy%-&A)/8:x%=v%+h%:�h%�
�v%+1<W%(t%)��R(1,a%,K%)
��v%>B%(t%)��R(0,a%,K%)
�:�x%<=&fff�
	�Bu%=�J("Homerton.Medium",20,20):yu%=�J("Homerton.Medium",&A,&A):bu%=�J("Homerton.Medium",7,7):�V(0,7):�L(Bu%,�x%,0,a%+j%/2,K%-8):�q%=1�&C:_%=(q%-1)�2*(j%-8)/2+20-20*h%:Q%=50+(q%-1)�2*oy%:�S(a%+_%,K%-Q%,p_%,-oy%)�

��L(yu%,�U(q%,-1),-1,a%+_%,K%-Q%):u%=�H(1,q%,x%)-1:ș&4008A,bu%:Q%+=vy%+4:�c%=1�7:ș&40086,,"  "+�c(c%,2),1<<4,a%+_%+hy%*c%-hy%,K%-Q%-vy%:�:Q%+=vy%:A%=a%+_%-hy%:E%=K%-Q%-vy%:F%=�X(q%,x%):G%=u%:H%=hy%:B%=vy%:�x%=Fy%�q%=by%�C%=Uy%�C%=0
m�TJ%�C%<>0�C%=0:ș&400E6,!SJ%:ȓa%+_%+((u%-1+Uy%)�7+0.12)*hy%,K%-Q%-((u%-1+Uy%)�7+0.18)*vy%,hy%*0.76,-vy%
�Y

�:�
�:�Q(Bu%):�Q(yu%):�Q(bu%):�
���WJ:�P%,A%,Di%,Ia%,J,P,R,H,S,O,M,_,Z,T,X,B,A:�Ia%456:J=&D:P=&E:R=&F:H=5:S=6:O=0:M=3:_=0:Z=4:T=7:X=8:B=9:A=&A:�Di%=0�2�2:P%=Ia%:[OPTDi%:.Y:STMFD(J)!,{P}:MOV X,1:MOV B,2:MOV A,#0:MOV2,#1<<4:ADR1,L:.z:ADD S,S,#1:ADD A,A,#1:CMP B,A:BLEQ D:MUL M,T,S
�ADD M,M,O:SWI &40086:CMP B,A:BLEQ I:CMP S,#7:SUBEQ Z,Z,X:�Q S,#0:ADD1,1,#8:CMP A,H:BNE z:LDMFD(J)!,{pc}:.K:STMFD(J)!,{P}:MOV X,1:MOV B,2:MOV A,#0:MOV2,#1<<4:ADR1,L:.s:ADD S,S,#1:ADD A,A,#1:CMP B,A:BLEQ D:MUL Z,X,S
�ADD Z,Z,_:SWI &40086:CMP B,A:BLEQ I:CMP S,#7:ADDEQ M,M,T:�Q S,#0:ADD1,1,#8:CMP A,H:BNE s:LDMFD(J)!,{pc}:.D:STMFD(J)!,{P,1-2}:LDR2,SJ%:B q:.I:STMFD(J)!,{P,1-2}:MOV2,#7:.q:MOV1,#0:SWI &400F3:LDMFD(J)!,{pc,1-2}:.SJ%&Vi%:.L
<]�A%=1�31:[OPTDi%:=�2-2*(A%<&A)," ")+�A%+�0:ALIGN:]�:�:�
�
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 37  |BasCompress v1.7|
00000030  31 20 28 31 39 20 53 65  70 20 31 39 39 36 29 0d  |1 (19 Sep 1996).|
00000040  00 03 35 f2 59 4a 3a 7a  25 3d 30 3a 6d 6c 25 3d  |..5.YJ:z%=0:ml%=|
00000050  a3 3a 64 69 25 3d 2d 31  3a ee 85 f2 56 79 3a 85  |.:di%=-1:...Vy:.|
00000060  a2 9e 2c f6 24 2b 22 20  61 74 20 6c 69 6e 65 20  |..,.$+" at line |
00000070  22 2b c3 9e 0d 00 04 fb  65 75 25 3d 2d 31 3a 4a  |"+......eu%=-1:J|
00000080  75 25 3d 30 3a 3a de 55  25 35 31 32 3a 4a 25 3d  |u%=0::.U%512:J%=|
00000090  55 25 2b 32 35 36 3a f2  70 75 3a 7a 25 3d 8e 22  |U%+256:.pu:z%=."|
000000a0  3c 4f 72 67 61 6e 69 73  65 72 24 44 69 72 3e 2e  |<Organiser$Dir>.|
000000b0  52 65 73 6f 75 72 63 65  73 2e 21 4c 61 6e 67 75  |Resources.!Langu|
000000c0  61 67 65 22 3a 5f 24 3d  be 23 7a 25 3a 64 24 3d  |age":_$=.#z%:d$=|
000000d0  22 3c 4f 72 67 61 6e 69  73 65 72 24 44 69 72 3e  |"<Organiser$Dir>|
000000e0  2e 52 65 73 6f 75 72 63  65 73 2e 22 2b 5f 24 3a  |.Resources."+_$:|
000000f0  d9 23 7a 25 3a 7a 25 3d  30 3a f2 46 4a 28 64 24  |.#z%:z%=0:.FJ(d$|
00000100  2b 22 2e 4d 65 73 73 61  67 65 73 22 29 3a f2 77  |+".Messages"):.w|
00000110  4a 28 a4 41 28 22 54 69  74 6c 65 22 29 2c 22 3c  |J(.A("Title"),"<|
00000120  4f 72 67 61 6e 69 73 65  72 24 44 69 72 3e 22 2c  |Organiser$Dir>",|
00000130  22 31 2e 32 30 20 28 32  37 20 4f 63 74 20 39 37  |"1.20 (27 Oct 97|
00000140  29 22 2c b9 29 3a c8 99  36 36 b8 4a 75 25 3a 65  |)",.):..66.Ju%:e|
00000150  75 25 3d 4a 75 25 2b 35  30 30 3a c8 95 ac 44 75  |u%=Ju%+500:...Du|
00000160  25 3a f2 64 28 31 29 3a  ce 3a f2 56 79 3a e0 0d  |%:.d(1):.:.Vy:..|
00000170  00 05 30 dd f2 56 79 3a  e7 6d 6c 25 3d b9 8c c8  |..0..Vy:.ml%=...|
00000180  99 26 34 30 36 43 32 3a  85 a2 9e 2c f6 24 2b 22  |.&406C2:...,.$+"|
00000190  20 61 74 20 6c 69 6e 65  20 22 2b c3 9e 3a e0 0d  | at line "+..:..|
000001a0  00 06 2f 6d 6c 25 3d b9  3a 66 24 3d f6 24 2b 22  |../ml%=.:f$=.$+"|
000001b0  20 61 74 20 6c 69 6e 65  20 22 2b c3 9e 3a 69 69  | at line "+..:ii|
000001c0  25 3d 9f 3a ee 85 85 a2  69 69 25 2c 66 24 0d 00  |%=.:....ii%,f$..|
000001d0  07 14 e7 7a 25 3c 3e 30  8c d9 23 7a 25 3a 7a 25  |...z%<>0..#z%:z%|
000001e0  3d 30 0d 00 08 16 f2 6e  4a 3a f2 43 79 3a c8 99  |=0.....nJ:.Cy:..|
000001f0  26 34 30 30 44 44 3a e1  0d 00 09 32 dd f2 64 28  |&400DD:....2..d(|
00000200  41 6c 25 29 3a ea 41 24  2c 55 69 25 2c 53 6c 25  |Al%):.A$,Ui%,Sl%|
00000210  2c 70 79 25 2c 75 4a 25  3a 75 4a 25 3d a3 3a e7  |,py%,uJ%:uJ%=.:.|
00000220  65 79 25 80 53 75 25 8c  f2 74 0d 00 0a 42 e7 49  |ey%.Su%..t...B.I|
00000230  75 25 80 65 79 25 3c 3e  4e 69 25 8c 4e 69 25 3d  |u%.ey%<>Ni%.Ni%=|
00000240  65 79 25 3a f2 69 28 69  25 2c 74 69 25 2c a4 41  |ey%:.i(i%,ti%,.A|
00000250  28 22 54 69 74 6c 65 22  29 2b c4 2d 28 65 79 25  |("Title")+.-(ey%|
00000260  3d b9 29 2c 22 20 2a 22  29 2c b9 29 0d 00 0b 12  |=.)," *"),.)....|
00000270  e7 41 6c 25 80 31 8c 53  6c 25 3d 26 36 34 0d 00  |.Al%.1.Sl%=&64..|
00000280  0c 11 e7 42 24 3c 3e 22  22 8c 53 6c 25 3d 30 0d  |...B$<>"".Sl%=0.|
00000290  00 0d 18 e7 28 58 4a 25  3c 3e 2d 31 29 80 56 79  |....(XJ%<>-1).Vy|
000002a0  25 8c 53 6c 25 3d 30 0d  00 0e 31 41 6c 25 3d 28  |%.Sl%=0...1Al%=(|
000002b0  41 6c 25 84 28 33 3c 3c  26 42 29 2b 28 31 3c 3c  |Al%.(3<<&B)+(1<<|
000002c0  35 29 29 80 ac 28 31 2b  28 33 3c 3c 31 37 29 29  |5))..(1+(3<<17))|
000002d0  3a e7 53 6c 25 3e 30 8c  0d 00 0f 39 c8 99 36 36  |:.Sl%>0....9..66|
000002e0  b8 6d 69 25 3a c8 95 6d  69 25 3e 4a 75 25 3a 4a  |.mi%:..mi%>Ju%:J|
000002f0  75 25 2b 3d 26 36 34 3a  ce 3a c8 99 26 34 30 30  |u%+=&64:.:..&400|
00000300  45 31 2c 41 6c 25 2c 55  25 2c 4a 75 25 b8 55 69  |E1,Al%,U%,Ju%.Ui|
00000310  25 0d 00 10 18 cc c8 99  26 34 30 30 43 37 2c 41  |%.......&400C7,A|
00000320  6c 25 2c 55 25 b8 55 69  25 0d 00 11 0c cd 3a c8  |l%,U%.Ui%.....:.|
00000330  8e 55 69 25 ca 0d 00 12  0b c9 30 3a c8 8e b9 ca  |.Ui%......0:....|
00000340  0d 00 13 14 c9 58 4a 25  3c 3e 2d 31 80 56 79 25  |.....XJ%<>-1.Vy%|
00000350  3a f2 56 75 0d 00 14 18  c9 4a 75 25 3e 65 75 25  |:.Vu.....Ju%>eu%|
00000360  80 65 75 25 3c 3e 2d 31  3a f2 57 5f 0d 00 15 24  |.eu%<>-1:.W_...$|
00000370  c9 28 53 6c 25 3c 3e 30  84 42 24 3c 3e 22 22 29  |.(Sl%<>0.B$<>"")|
00000380  80 64 69 25 3c 3e a4 51  79 3a f2 75 3a f2 49 5f  |.di%<>.Qy:.u:.I_|
00000390  0d 00 16 0f c9 42 24 3c  3e 22 22 3a f2 69 75 0d  |.....B$<>"":.iu.|
000003a0  00 17 05 cb 0d 00 18 0a  c9 31 3a f2 56 4a 0d 00  |.........1:.VJ..|
000003b0  19 10 c9 32 3a e7 21 55  25 3d 49 5f 25 8c 0d 00  |...2:.!U%=I_%...|
000003c0  1a 07 f2 79 4a 0d 00 1b  19 cc 3a e7 21 55 25 3d  |...yJ.....:.!U%=|
000003d0  69 25 80 46 4a 25 8c 55  25 21 32 30 3d 30 0d 00  |i%.FJ%.U%!20=0..|
000003e0  1c 0d e7 ac a4 56 79 8c  f2 60 79 0d 00 1d 20 c8  |.....Vy..`y... .|
000003f0  99 26 34 30 30 43 35 2c  2c 55 25 3a e7 21 55 25  |.&400C5,,U%:.!U%|
00000400  3d 69 25 80 46 4a 25 8c  f2 60 5f 0d 00 1e 05 cd  |=i%.FJ%..`_.....|
00000410  0d 00 1f 0d c9 33 3a c8  8e 21 55 25 ca 0d 00 20  |.....3:..!U%... |
00000420  0a c9 66 25 3a f2 6e 0d  00 21 0b c9 49 5f 25 3a  |..f%:.n..!..I_%:|
00000430  f2 68 0d 00 22 0c c9 4c  79 25 3a f2 42 79 0d 00  |.h.."..Ly%:.By..|
00000440  23 0b c9 48 79 25 3a f2  79 0d 00 24 0c c9 56 4a  |#..Hy%:.y..$..VJ|
00000450  25 3a f2 7a 79 0d 00 25  0c c9 7a 79 25 3a f2 43  |%:.zy..%..zy%:.C|
00000460  79 0d 00 26 0c 7f f2 47  28 21 55 25 29 0d 00 27  |y..&...G(!U%)..'|
00000470  05 cb 0d 00 28 29 c9 34  3a e7 30 3c 3e 30 8c c8  |....().4:.0<>0..|
00000480  99 26 34 30 30 45 39 2c  33 36 2c 2c 22 70 74 72  |.&400E9,36,,"ptr|
00000490  5f 64 65 66 61 75 6c 74  22 2c 31 0d 00 29 06 c9  |_default",1..)..|
000004a0  35 0d 00 2a 29 c9 36 3a  e7 49 75 25 8c f2 65 28  |5..*).6:.Iu%..e(|
000004b0  55 25 21 26 43 2c 55 25  21 31 36 2c 55 25 21 38  |U%!&C,U%!16,U%!8|
000004c0  2c 21 55 25 2c 55 25 21  34 29 0d 00 2b 06 c9 37  |,!U%,U%!4)..+..7|
000004d0  0d 00 2c 1a c9 38 3a f2  60 4a 28 21 55 25 2c 55  |..,..8:.`J(!U%,U|
000004e0  25 21 34 2c 55 25 21 32  34 29 0d 00 2d 0a c9 39  |%!4,U%!24)..-..9|
000004f0  3a f2 42 4a 0d 00 2e 0e  c9 31 37 2c 31 38 3a f2  |:.BJ.....17,18:.|
00000500  67 75 0d 00 2f 1f c9 31  39 3a e7 55 25 21 34 3d  |gu../..19:.U%!4=|
00000510  73 75 25 80 55 25 21 31  36 3d 26 34 41 46 38 30  |su%.U%!16=&4AF80|
00000520  8c 0d 00 30 31 41 24 3d  a4 4e 28 55 25 2b 32 30  |...01A$=.N(U%+20|
00000530  29 3a e7 6a 4a 25 3d 31  80 a4 74 28 22 41 6c 69  |):.jJ%=1..t("Ali|
00000540  61 73 24 55 52 4c 4f 70  65 6e 5f 48 54 54 50 22  |as$URLOpen_HTTP"|
00000550  29 8c 0d 00 31 1f c8 99  26 34 30 30 44 45 2c 22  |)...1...&400DE,"|
00000560  55 52 4c 4f 70 65 6e 5f  48 54 54 50 20 22 2b 41  |URLOpen_HTTP "+A|
00000570  24 0d 00 32 28 cd 3a e7  6a 4a 25 3d 32 80 a4 74  |$..2(.:.jJ%=2..t|
00000580  28 22 41 6c 69 61 73 24  55 52 4c 4f 70 65 6e 5f  |("Alias$URLOpen_|
00000590  4d 61 69 6c 54 6f 22 29  8c 0d 00 33 21 c8 99 26  |MailTo")...3!..&|
000005a0  34 30 30 44 45 2c 22 55  52 4c 4f 70 65 6e 5f 4d  |400DE,"URLOpen_M|
000005b0  61 69 6c 54 6f 20 22 2b  41 24 0d 00 34 05 cd 0d  |ailTo "+A$..4...|
000005c0  00 35 05 cd 0d 00 36 10  cb 3a e7 44 75 25 8c f2  |.5....6..:.Du%..|
000005d0  56 79 3a e0 0d 00 37 05  e1 0d 00 38 2a dd a4 56  |Vy:...7....8*..V|
000005e0  79 3d 28 72 79 25 3c 3e  55 25 21 31 36 2d 55 25  |y=(ry%<>U%!16-U%|
000005f0  21 38 84 78 79 25 3c 3e  55 25 21 26 43 2d 55 25  |!8.xy%<>U%!&C-U%|
00000600  21 34 29 0d 00 39 42 dd  f2 75 ea 41 25 2c 53 25  |!4)..9B..u.A%,S%|
00000610  2c 4d 25 2c 48 25 2c 52  25 2c 4d 24 2c 72 69 25  |,M%,H%,R%,M$,ri%|
00000620  2c 76 69 25 2c 62 69 25  2c 68 69 25 2c 52 6c 25  |,vi%,bi%,hi%,Rl%|
00000630  2c 49 24 3a e7 28 71 79  25 80 34 29 3d 34 80 4d  |,I$:.(qy%.4)=4.M|
00000640  4a 25 3d 30 8c 0d 00 3a  c7 4d 24 3d a4 4b 28 22  |J%=0...:.M$=.K("|
00000650  25 31 32 25 6d 69 25 73  65 22 29 3a 48 25 3d bb  |%12%mi%se"):H%=.|
00000660  c0 4d 24 2c 32 29 3a 4d  25 3d bb c1 4d 24 2c 33  |.M$,2):M%=..M$,3|
00000670  2c 32 29 3a 53 25 3d bb  c1 4d 24 2c 35 2c 32 29  |,2):S%=..M$,5,2)|
00000680  3a 4d 25 3d 4d 25 2a 36  3a 53 25 3d 53 25 2a 36  |:M%=M%*6:S%=S%*6|
00000690  3a 48 25 3d 48 25 2a 33  30 2b 4d 25 2f 26 43 3a  |:H%=H%*30+M%/&C:|
000006a0  52 6c 25 3d b9 3a c8 99  34 36 2c 33 31 36 2c 5a  |Rl%=.:..46,316,Z|
000006b0  5f 25 2c 22 63 6c 6f 63  6b 22 2c 30 b8 72 69 25  |_%,"clock",0.ri%|
000006c0  2c 76 69 25 2c 62 69 25  2c 68 69 25 3a e6 31 3a  |,vi%,bi%,hi%:.1:|
000006d0  c8 93 c8 90 30 2c 30 2c  55 5f 25 2c 43 75 25 3a  |....0,0,U_%,Cu%:|
000006e0  52 25 3d 35 36 3a c8 91  55 5f 25 2f 32 2c 43 75  |R%=56:..U_%/2,Cu|
000006f0  25 2f 32 3a e6 50 25 28  30 29 3a c8 8f c8 90 30  |%/2:.P%(0):....0|
00000700  2c 30 2c 52 25 3a e6 50  25 28 33 29 0d 00 3b ea  |,0,R%:.P%(3)..;.|
00000710  e3 41 25 3d 30 b8 33 33  30 88 33 30 3a 86 52 25  |.A%=0.330.30:.R%|
00000720  2a b5 b2 41 25 2c 52 25  2a 9b b2 41 25 2c 28 52  |*..A%,R%*..A%,(R|
00000730  25 2d 26 41 29 2a b5 b2  41 25 2c 28 52 25 2d 26  |%-&A)*..A%,(R%-&|
00000740  41 29 2a 9b b2 41 25 3a  ed 3a e6 50 25 28 31 29  |A)*..A%:.:.P%(1)|
00000750  2b 28 50 25 28 31 29 2d  50 25 28 32 29 29 2a 28  |+(P%(1)-P%(2))*(|
00000760  73 5f 25 80 ac 49 75 25  29 3a c8 8f 30 2c 30 2c  |s_%..Iu%):..0,0,|
00000770  52 25 3a e6 50 25 28 35  29 3a ec 30 2c 30 3a ec  |R%:.P%(5):.0,0:.|
00000780  28 52 25 2a 30 2e 33 35  29 2a b5 b2 28 4d 25 2d  |(R%*0.35)*..(M%-|
00000790  39 29 2c 28 52 25 2a 30  2e 33 35 29 2a 9b b2 28  |9),(R%*0.35)*..(|
000007a0  4d 25 2d 39 29 3a f0 38  35 2c 28 52 25 2a 30 2e  |M%-9):.85,(R%*0.|
000007b0  33 35 29 2a b5 b2 28 4d  25 2b 39 29 2c 28 52 25  |35)*..(M%+9),(R%|
000007c0  2a 30 2e 33 35 29 2a 9b  b2 28 4d 25 2b 39 29 3a  |*0.35)*..(M%+9):|
000007d0  ec 28 52 25 2a 30 2e 33  35 29 2a b5 b2 28 4d 25  |.(R%*0.35)*..(M%|
000007e0  2d 39 29 2c 28 52 25 2a  30 2e 33 35 29 2a 9b b2  |-9),(R%*0.35)*..|
000007f0  28 4d 25 2d 39 29 0d 00  3c d8 f0 38 35 2c 28 52  |(M%-9)..<..85,(R|
00000800  25 2a 30 2e 37 29 2a b5  b2 4d 25 2c 28 52 25 2a  |%*0.7)*..M%,(R%*|
00000810  30 2e 37 29 2a 9b b2 4d  25 3a e6 50 25 28 34 29  |0.7)*..M%:.P%(4)|
00000820  3a ec 30 2c 30 3a ec 28  52 25 2a 30 2e 32 35 29  |:.0,0:.(R%*0.25)|
00000830  2a b5 b2 28 48 25 2d 39  29 2c 28 52 25 2a 30 2e  |*..(H%-9),(R%*0.|
00000840  32 35 29 2a 9b b2 28 48  25 2d 39 29 3a f0 38 35  |25)*..(H%-9):.85|
00000850  2c 28 52 25 2a 30 2e 32  35 29 2a b5 b2 28 48 25  |,(R%*0.25)*..(H%|
00000860  2b 39 29 2c 28 52 25 2a  30 2e 32 35 29 2a 9b b2  |+9),(R%*0.25)*..|
00000870  28 48 25 2b 39 29 3a ec  28 52 25 2a 30 2e 32 35  |(H%+9):.(R%*0.25|
00000880  29 2a b5 b2 28 48 25 2d  39 29 2c 28 52 25 2a 30  |)*..(H%-9),(R%*0|
00000890  2e 32 35 29 2a 9b b2 28  48 25 2d 39 29 3a f0 38  |.25)*..(H%-9):.8|
000008a0  35 2c 28 52 25 2a 30 2e  35 29 2a b5 b2 48 25 2c  |5,(R%*0.5)*..H%,|
000008b0  28 52 25 2a 30 2e 35 29  2a 9b b2 48 25 3a e6 50  |(R%*0.5)*..H%:.P|
000008c0  25 28 36 29 3a c8 8f c8  90 30 2c 30 2c 32 0d 00  |%(6):....0,0,2..|
000008d0  3d 2b e7 71 79 25 80 32  8c 86 30 2c 30 2c 28 52  |=+.qy%.2..0,0,(R|
000008e0  25 2a 30 2e 39 29 2a b5  b2 53 25 2c 28 52 25 2a  |%*0.9)*..S%,(R%*|
000008f0  30 2e 39 29 2a 9b b2 53  25 0d 00 3e 18 c8 99 34  |0.9)*..S%..>...4|
00000900  36 2c 72 69 25 2c 76 69  25 2c 62 69 25 2c 68 69  |6,ri%,vi%,bi%,hi|
00000910  25 0d 00 3f 17 cc 3a e7  28 71 79 25 80 38 29 3d  |%..?..:.(qy%.8)=|
00000920  38 84 4d 4a 25 3e 30 8c  0d 00 40 41 c8 99 26 34  |8.MJ%>0...@A..&4|
00000930  30 30 45 43 2c 2d 31 2c  2d 31 b8 2c 2c 48 25 3a  |00EC,-1,-1.,,H%:|
00000940  4d 24 3d c3 28 48 25 81  26 34 30 30 29 2b 22 6b  |M$=.(H%.&400)+"k|
00000950  22 3a e7 24 61 4a 25 3c  3e 4d 24 8c 24 61 4a 25  |":.$aJ%<>M$.$aJ%|
00000960  3d 4d 24 3a 52 6c 25 3d  b9 0d 00 41 12 cc 3a e7  |=M$:Rl%=...A..:.|
00000970  28 71 79 25 80 31 36 29  3d 30 8c 0d 00 42 23 4d  |(qy%.16)=0...B#M|
00000980  24 3d 22 3a 25 6d 69 22  3a e7 28 71 79 25 80 32  |$=":%mi":.(qy%.2|
00000990  29 3d 32 8c 4d 24 2b 3d  22 2e 25 73 65 22 0d 00  |)=2.M$+=".%se"..|
000009a0  43 29 e7 72 5f 25 8c 4d  24 3d 22 25 7a 32 34 22  |C).r_%.M$="%z24"|
000009b0  2b 4d 24 8b 4d 24 3d 22  25 7a 31 32 22 2b 4d 24  |+M$.M$="%z12"+M$|
000009c0  2b 22 20 25 61 6d 22 0d  00 44 0a cc 4d 24 3d 4e  |+" %am"..D..M$=N|
000009d0  24 0d 00 45 27 cd 3a 4d  24 3d a4 4b 28 4d 24 29  |$..E'.:M$=.K(M$)|
000009e0  3a e7 4d 24 3c 3e 24 61  4a 25 8c 24 61 4a 25 3d  |:.M$<>$aJ%.$aJ%=|
000009f0  4d 24 3a 52 6c 25 3d b9  0d 00 46 05 cd 0d 00 47  |M$:Rl%=...F....G|
00000a00  42 cd 3a e7 52 6c 25 8c  21 55 25 3d 2d 31 2d 37  |B.:.Rl%.!U%=-1-7|
00000a10  2a 94 28 75 5f 25 29 3a  55 25 21 34 3d 4e 4a 25  |*.(u_%):U%!4=NJ%|
00000a20  3a 55 25 21 38 3d 30 3a  55 25 21 26 43 3d 30 3a  |:U%!8=0:U%!&C=0:|
00000a30  c8 99 26 34 30 30 43 44  2c 2c 55 25 3a c8 96 0d  |..&400CD,,U%:...|
00000a40  00 48 05 e1 0d 00 49 22  dd f2 49 5f 3a e7 55 79  |.H....I"..I_:.Uy|
00000a50  25 3c 3e a4 49 84 62 79  25 3c 3e a4 56 84 46 79  |%<>.I.by%<>.V.Fy|
00000a60  25 3c 3e a4 4c 8c 0d 00  4a 39 71 4a 25 3d a4 46  |%<>.L...J9qJ%=.F|
00000a70  28 30 2c 30 2c 55 79 25  2c 62 79 25 2c 46 79 25  |(0,0,Uy%,by%,Fy%|
00000a80  29 3a 46 79 25 3d a4 4c  3a 62 79 25 3d a4 56 3a  |):Fy%=.L:by%=.V:|
00000a90  55 79 25 3d a4 49 3a e7  78 4a 25 8c f2 50 79 0d  |Uy%=.I:.xJ%..Py.|
00000aa0  00 4b 11 e7 56 79 25 8c  70 79 25 3d 30 3a f2 4f  |.K..Vy%.py%=0:.O|
00000ab0  0d 00 4c 1e 50 75 25 3d  b9 3a 56 5f 25 3d 74 25  |..L.Pu%=.:V_%=t%|
00000ac0  3a 7a 5f 25 3d 76 25 3a  f2 4a 5f 3a f2 63 0d 00  |:z_%=v%:.J_:.c..|
00000ad0  4d 24 cd 3a e7 78 4a 25  80 6d 4a 25 3c 3e 30 8c  |M$.:.xJ%.mJ%<>0.|
00000ae0  e7 a4 47 28 6d 4a 25 2c  a4 7a 29 3c 3e 31 8c f2  |..G(mJ%,.z)<>1..|
00000af0  67 4a 0d 00 4e 22 e7 72  4a 25 3c 3e 2d 31 8c e7  |gJ..N".rJ%<>-1..|
00000b00  a4 47 28 72 4a 25 21 26  43 2c a4 7a 29 3c 3e 31  |.G(rJ%!&C,.z)<>1|
00000b10  8c f2 79 75 0d 00 4f 23  e7 4a 5f 25 3e 30 8c ef  |..yu..O#.J_%>0..|
00000b20  37 3a 4a 5f 25 2d 3d 31  3a e7 4a 5f 25 3d 30 8c  |7:J_%-=1:.J_%=0.|
00000b30  4a 5f 25 3d 2d 26 41 0d  00 50 1f e7 4a 5f 25 3c  |J_%=-&A..P..J_%<|
00000b40  30 8c 4a 5f 25 2b 3d 31  3a e7 4a 5f 25 3d 30 8c  |0.J_%+=1:.J_%=0.|
00000b50  4a 5f 25 3d 26 41 0d 00  51 1e e7 4d 4a 25 3e 30  |J_%=&A..Q..MJ%>0|
00000b60  8c 4d 4a 25 2d 3d 31 3a  e7 4d 4a 25 3d 30 8c f2  |.MJ%-=1:.MJ%=0..|
00000b70  6d 3a f2 75 0d 00 52 0d  64 69 25 3d a4 51 79 3a  |m:.u..R.di%=.Qy:|
00000b80  e1 0d 00 53 36 dd a4 4b  28 41 24 29 3a 3f 4a 25  |...S6..K(A$):?J%|
00000b90  3d 33 3a c8 99 37 2c 26  45 2c 4a 25 3a c8 99 26  |=3:..7,&E,J%:..&|
00000ba0  43 31 2c 4a 25 2c 4a 25  2c 26 38 30 2c 41 24 3a  |C1,J%,J%,&80,A$:|
00000bb0  3d a4 4e 28 4a 25 29 0d  00 54 12 dd a4 66 3d bb  |=.N(J%)..T...f=.|
00000bc0  a4 4b 28 22 25 32 34 22  29 0d 00 55 12 dd a4 69  |.K("%24")..U...i|
00000bd0  3d bb a4 4b 28 22 25 4d  49 22 29 0d 00 56 13 dd  |=..K("%MI")..V..|
00000be0  a4 51 79 3d bb a4 4b 28  22 25 53 45 22 29 0d 00  |.Qy=..K("%SE")..|
00000bf0  57 12 dd a4 49 3d bb a4  4b 28 22 25 44 59 22 29  |W...I=..K("%DY")|
00000c00  0d 00 58 12 dd a4 56 3d  bb a4 4b 28 22 25 4d 4e  |..X...V=..K("%MN|
00000c10  22 29 0d 00 59 15 dd a4  4c 3d bb a4 4b 28 22 25  |")..Y...L=..K("%|
00000c20  43 45 25 59 52 22 29 0d  00 5a 3f dd a4 46 28 66  |CE%YR")..Z?..F(f|
00000c30  79 25 2c 62 25 2c 63 25  2c 72 25 2c 51 25 29 3d  |y%,b%,c%,r%,Q%)=|
00000c40  66 79 25 84 28 62 25 3c  3c 36 29 84 28 63 25 3c  |fy%.(b%<<6).(c%<|
00000c50  3c 26 42 29 84 28 72 25  3c 3c 31 36 29 84 28 51  |<&B).(r%<<16).(Q|
00000c60  25 3c 3c 32 30 29 0d 00  5b 69 dd f2 50 28 73 25  |%<<20)..[i..P(s%|
00000c70  2c f8 66 79 25 2c f8 62  25 2c f8 63 25 2c f8 72  |,.fy%,.b%,.c%,.r|
00000c80  25 2c f8 51 25 29 3a 66  79 25 3d 73 25 80 36 33  |%,.Q%):fy%=s%.63|
00000c90  3a 62 25 3d 28 73 25 3e  3e 36 29 80 33 31 3a 63  |:b%=(s%>>6).31:c|
00000ca0  25 3d 28 73 25 3e 3e 26  42 29 80 33 31 3a 72 25  |%=(s%>>&B).31:r%|
00000cb0  3d 28 73 25 3e 3e 31 36  29 80 26 46 3a 51 25 3d  |=(s%>>16).&F:Q%=|
00000cc0  28 73 25 3e 3e 32 30 29  80 26 46 46 46 3a e1 0d  |(s%>>20).&FFF:..|
00000cd0  00 5c 14 dd a4 6e 28 73  25 29 3d 73 25 80 ac 26  |.\...n(s%)=s%..&|
00000ce0  37 46 46 0d 00 5d 12 dd  a4 76 79 28 73 25 29 3d  |7FF..]...vy(s%)=|
00000cf0  73 25 80 36 33 0d 00 5e  17 dd a4 58 79 28 73 25  |s%.63..^...Xy(s%|
00000d00  29 3d 28 73 25 3e 3e 36  29 80 33 31 0d 00 5f 1a  |)=(s%>>6).31.._.|
00000d10  dd a4 7a 3d a4 46 28 a4  69 2c a4 66 2c a4 49 2c  |..z=.F(.i,.f,.I,|
00000d20  a4 56 2c a4 4c 29 0d 00  60 45 dd a4 47 28 41 25  |.V,.L)..`E..G(A%|
00000d30  2c 42 25 29 3a ea 42 69  25 2c 6a 6c 25 2c 4c 69  |,B%):.Bi%,jl%,Li|
00000d40  25 2c 65 69 25 2c 4b 69  25 2c 59 5f 25 3a ea 57  |%,ei%,Ki%,Y_%:.W|
00000d50  69 25 2c 4a 69 25 2c 51  69 25 2c 73 69 25 2c 61  |i%,Ji%,Qi%,si%,a|
00000d60  69 25 3a e7 41 25 3c 3e  42 25 8c 0d 00 61 3e f2  |i%:.A%<>B%...a>.|
00000d70  50 28 41 25 2c 4b 69 25  2c 65 69 25 2c 4c 69 25  |P(A%,Ki%,ei%,Li%|
00000d80  2c 6a 6c 25 2c 42 69 25  29 3a f2 50 28 42 25 2c  |,jl%,Bi%):.P(B%,|
00000d90  61 69 25 2c 73 69 25 2c  51 69 25 2c 4a 69 25 2c  |ai%,si%,Qi%,Ji%,|
00000da0  57 69 25 29 3a c8 8e b9  ca 0d 00 62 12 c9 42 69  |Wi%):......b..Bi|
00000db0  25 3e 57 69 25 3a 59 5f  25 3d 31 0d 00 63 13 c9  |%>Wi%:Y_%=1..c..|
00000dc0  42 69 25 3c 57 69 25 3a  59 5f 25 3d 2d 31 0d 00  |Bi%<Wi%:Y_%=-1..|
00000dd0  64 12 c9 6a 6c 25 3e 4a  69 25 3a 59 5f 25 3d 31  |d..jl%>Ji%:Y_%=1|
00000de0  0d 00 65 13 c9 6a 6c 25  3c 4a 69 25 3a 59 5f 25  |..e..jl%<Ji%:Y_%|
00000df0  3d 2d 31 0d 00 66 12 c9  4c 69 25 3e 51 69 25 3a  |=-1..f..Li%>Qi%:|
00000e00  59 5f 25 3d 31 0d 00 67  13 c9 4c 69 25 3c 51 69  |Y_%=1..g..Li%<Qi|
00000e10  25 3a 59 5f 25 3d 2d 31  0d 00 68 12 c9 65 69 25  |%:Y_%=-1..h..ei%|
00000e20  3e 73 69 25 3a 59 5f 25  3d 31 0d 00 69 13 c9 65  |>si%:Y_%=1..i..e|
00000e30  69 25 3c 73 69 25 3a 59  5f 25 3d 2d 31 0d 00 6a  |i%<si%:Y_%=-1..j|
00000e40  12 c9 4b 69 25 3e 61 69  25 3a 59 5f 25 3d 31 0d  |..Ki%>ai%:Y_%=1.|
00000e50  00 6b 13 c9 4b 69 25 3c  61 69 25 3a 59 5f 25 3d  |.k..Ki%<ai%:Y_%=|
00000e60  2d 31 0d 00 6c 05 cb 0d  00 6d 0a cc 59 5f 25 3d  |-1..l....m..Y_%=|
00000e70  30 0d 00 6e 0a cd 3a 3d  59 5f 25 0d 00 6f 77 dd  |0..n..:=Y_%..ow.|
00000e80  f2 65 75 28 5f 25 2c 51  25 2c 52 79 25 29 c8 99  |.eu(_%,Q%,Ry%)..|
00000e90  26 34 30 30 45 36 2c 35  3a c8 93 c8 90 5f 25 2b  |&400E6,5:...._%+|
00000ea0  32 30 2c 51 25 2c 33 36  2d 32 30 2c 32 30 3a c8  |20,Q%,36-20,20:.|
00000eb0  93 c8 90 5f 25 2b 32 30  2c 51 25 2b 4e 79 25 2c  |..._%+20,Q%+Ny%,|
00000ec0  33 36 2d 32 30 2c 2d 32  30 3a c8 99 26 34 30 30  |36-20,-20:..&400|
00000ed0  45 36 2c 52 79 25 3a c8  93 c8 90 5f 25 2c 51 25  |E6,Ry%:...._%,Q%|
00000ee0  2b 32 30 2c 33 36 2d 32  30 2c 4e 79 25 2d 32 2a  |+20,36-20,Ny%-2*|
00000ef0  32 30 0d 00 70 9c c8 93  c8 90 5f 25 2b 33 36 2c  |20..p....._%+36,|
00000f00  51 25 2b 32 2a 32 30 2c  2d 32 30 2c 4e 79 25 2d  |Q%+2*20,-20,Ny%-|
00000f10  34 2a 32 30 3a f2 54 28  35 2c 52 79 25 2c 5f 25  |4*20:.T(5,Ry%,_%|
00000f20  2b 32 30 2c 51 25 2c 32  30 2c 32 29 3a f2 54 28  |+20,Q%,20,2):.T(|
00000f30  35 2c 52 79 25 2c 5f 25  2b 32 30 2c 51 25 2b 4e  |5,Ry%,_%+20,Q%+N|
00000f40  79 25 2c 32 30 2c 33 29  3a f2 54 28 52 79 25 2c  |y%,20,3):.T(Ry%,|
00000f50  35 2c 5f 25 2b 33 36 2d  32 30 2c 51 25 2b 32 2a  |5,_%+36-20,Q%+2*|
00000f60  32 30 2c 32 30 2c 34 29  3a f2 54 28 52 79 25 2c  |20,20,4):.T(Ry%,|
00000f70  35 2c 5f 25 2b 33 36 2d  32 30 2c 51 25 2b 4e 79  |5,_%+36-20,Q%+Ny|
00000f80  25 2d 32 2a 32 30 2c 32  30 2c 31 29 3a e1 0d 00  |%-2*20,20,1):...|
00000f90  71 96 dd f2 77 75 28 5f  25 2c 51 25 2c 52 79 25  |q...wu(_%,Q%,Ry%|
00000fa0  29 c8 99 26 34 30 30 45  36 2c 35 3a c8 93 c8 90  |)..&400E6,5:....|
00000fb0  5f 25 2d 32 30 2c 51 25  2c 32 30 2d 33 36 2c 32  |_%-20,Q%,20-36,2|
00000fc0  30 3a c8 93 c8 90 5f 25  2d 32 30 2c 51 25 2b 4e  |0:...._%-20,Q%+N|
00000fd0  79 25 2c 32 30 2d 33 36  2c 2d 32 30 3a c8 99 26  |y%,20-36,-20:..&|
00000fe0  34 30 30 45 36 2c 52 79  25 3a c8 93 c8 90 5f 25  |400E6,Ry%:...._%|
00000ff0  2c 51 25 2b 32 30 2c 2d  33 36 2b 32 30 2c 4e 79  |,Q%+20,-36+20,Ny|
00001000  25 2d 32 2a 32 30 3a c8  93 c8 90 5f 25 2d 33 36  |%-2*20:...._%-36|
00001010  2c 51 25 2b 32 2a 32 30  2c 32 30 2c 4e 79 25 2d  |,Q%+2*20,20,Ny%-|
00001020  34 2a 32 30 0d 00 72 7d  f2 54 28 35 2c 52 79 25  |4*20..r}.T(5,Ry%|
00001030  2c 5f 25 2d 32 30 2c 51  25 2c 32 30 2c 31 29 3a  |,_%-20,Q%,20,1):|
00001040  f2 54 28 35 2c 52 79 25  2c 5f 25 2d 32 30 2c 51  |.T(5,Ry%,_%-20,Q|
00001050  25 2b 4e 79 25 2c 32 30  2c 34 29 3a f2 54 28 52  |%+Ny%,20,4):.T(R|
00001060  79 25 2c 35 2c 5f 25 2d  33 36 2b 32 30 2c 51 25  |y%,5,_%-36+20,Q%|
00001070  2b 32 2a 32 30 2c 32 30  2c 33 29 3a f2 54 28 52  |+2*20,20,3):.T(R|
00001080  79 25 2c 35 2c 5f 25 2d  33 36 2b 32 30 2c 51 25  |y%,5,_%-36+20,Q%|
00001090  2b 4e 79 25 2d 32 2a 32  30 2c 32 30 2c 32 29 3a  |+Ny%-2*20,20,2):|
000010a0  e1 0d 00 73 35 dd f2 54  5f 28 65 25 2c 61 25 2c  |...s5..T_(e%,a%,|
000010b0  4b 25 29 3a e7 65 25 3d  69 25 8c f2 5a 75 28 65  |K%):.e%=i%..Zu(e|
000010c0  25 2c 61 25 2c 4b 25 29  8b f2 43 75 28 65 25 2c  |%,a%,K%)..Cu(e%,|
000010d0  61 25 2c 4b 25 29 0d 00  74 05 e1 0d 00 75 97 dd  |a%,K%)..t....u..|
000010e0  f2 5a 75 28 65 25 2c 61  25 2c 4b 25 29 ea 41 25  |.Zu(e%,a%,K%).A%|
000010f0  2c 5f 25 2c 51 25 2c 59  25 3a ea 62 6c 25 2c 6c  |,_%,Q%,Y%:.bl%,l|
00001100  69 25 2c 70 69 25 3a c8  99 34 36 2c 34 30 2b 32  |i%,pi%:..46,40+2|
00001110  35 36 2c 5a 5f 25 2c 22  72 69 6e 67 22 b8 2c 2c  |56,Z_%,"ring".,,|
00001120  2c 6c 69 25 2c 70 69 25  3a c8 99 26 34 30 30 45  |,li%,pi%:..&400E|
00001130  36 2c 30 3a f2 58 28 61  25 2b 64 79 25 2d 33 32  |6,0:.X(a%+dy%-32|
00001140  2c 4b 25 2d 6f 25 2c 6a  25 2b 33 32 2c 2d 6d 25  |,K%-o%,j%+32,-m%|
00001150  29 3a e7 74 25 3e 30 8c  f2 58 28 61 25 2b 79 79  |):.t%>0..X(a%+yy|
00001160  25 2c 4b 25 2d 6f 25 2c  6a 25 2b 33 32 2c 2d 6d  |%,K%-o%,j%+32,-m|
00001170  25 29 0d 00 76 8b c8 99  26 34 30 30 45 36 2c 31  |%)..v...&400E6,1|
00001180  3a f2 58 28 61 25 2c 4b  25 2c 35 2c 2d 72 79 25  |:.X(a%,K%,5,-ry%|
00001190  29 3a f2 58 28 61 25 2b  69 5f 25 2b 33 36 2b 32  |):.X(a%+i_%+36+2|
000011a0  30 2c 4b 25 2c 35 2c 2d  72 79 25 29 3a f2 58 28  |0,K%,5,-ry%):.X(|
000011b0  61 25 2c 4b 25 2c 78 79  25 2c 2d 35 29 3a f2 58  |a%,K%,xy%,-5):.X|
000011c0  28 61 25 2c 4b 25 2d 72  79 25 2c 78 79 25 2c 35  |(a%,K%-ry%,xy%,5|
000011d0  29 3a c8 99 26 34 30 30  45 36 2c 35 3a e7 74 25  |):..&400E6,5:.t%|
000011e0  3d 30 8c f2 58 28 61 25  2b 79 79 25 2c 4b 25 2d  |=0..X(a%+yy%,K%-|
000011f0  6f 25 2c 6a 25 2b 33 32  2c 2d 6d 25 29 0d 00 77  |o%,j%+32,-m%)..w|
00001200  21 e7 74 25 3d 30 8c f2  58 28 61 25 2b 47 4a 25  |!.t%=0..X(a%+GJ%|
00001210  2c 4b 25 2d 6f 25 2c 33  32 2c 2d 6d 25 29 0d 00  |,K%-o%,32,-m%)..|
00001220  78 f8 f2 58 28 61 25 2b  6c 5f 25 2c 4b 25 2d 6f  |x..X(a%+l_%,K%-o|
00001230  25 2d 74 25 2a 4e 79 25  2c 33 36 2c 2d 6d 25 2b  |%-t%*Ny%,36,-m%+|
00001240  74 25 2a 4e 79 25 29 3a  f2 58 28 61 25 2b 69 5f  |t%*Ny%):.X(a%+i_|
00001250  25 2c 4b 25 2d 6f 25 2c  33 36 2c 2d 4e 79 25 2a  |%,K%-o%,36,-Ny%*|
00001260  74 25 29 3a f2 58 28 61  25 2b 69 5f 25 2c 4b 25  |t%):.X(a%+i_%,K%|
00001270  2d 6f 25 2d 69 79 25 2a  4e 79 25 2c 33 36 2c 2d  |-o%-iy%*Ny%,36,-|
00001280  6d 25 2b 69 79 25 2a 4e  79 25 29 3a f2 58 28 61  |m%+iy%*Ny%):.X(a|
00001290  25 2b 35 2c 4b 25 2d 35  2c 32 30 2c 2d 6d 25 2d  |%+5,K%-5,20,-m%-|
000012a0  32 2a 32 30 29 3a f2 58  28 61 25 2b 35 2c 4b 25  |2*20):.X(a%+5,K%|
000012b0  2d 35 2c 78 79 25 2d 32  2a 35 2c 2d 32 30 29 3a  |-5,xy%-2*5,-20):|
000012c0  f2 58 28 61 25 2b 78 79  25 2d 35 2c 4b 25 2d 35  |.X(a%+xy%-5,K%-5|
000012d0  2c 2d 32 30 2c 2d 6d 25  2d 32 2a 32 30 29 3a f2  |,-20,-m%-2*20):.|
000012e0  58 28 61 25 2b 35 2c 4b  25 2d 72 79 25 2b 35 2c  |X(a%+5,K%-ry%+5,|
000012f0  78 79 25 2d 32 2a 35 2c  32 30 29 3a e7 a4 53 28  |xy%-2*5,20):..S(|
00001300  61 25 2b 47 4a 25 2c 4b  25 2d 6f 25 2c 26 36 34  |a%+GJ%,K%-o%,&64|
00001310  2c 2d 6d 25 29 8c 0d 00  79 8d c8 93 c8 90 61 25  |,-m%)...y.....a%|
00001320  2b 47 4a 25 2b 33 32 2c  4b 25 2d 6f 25 2c 26 36  |+GJ%+32,K%-o%,&6|
00001330  34 2d 32 2a 33 32 2c 2d  6d 25 3a 5f 25 3d a4 61  |4-2*32,-m%:_%=.a|
00001340  28 61 25 2b 47 4a 25 2b  26 36 34 2f 32 29 3a 59  |(a%+GJ%+&64/2):Y|
00001350  25 3d a4 61 28 4b 25 2d  6f 25 2d 6d 25 2f 28 5f  |%=.a(K%-o%-m%/(_|
00001360  4a 25 2b 31 29 29 3a e3  41 25 3d 31 b8 5f 4a 25  |J%+1)):.A%=1._J%|
00001370  3a e7 a4 53 28 5f 25 2d  34 30 2d 38 2c 59 25 2d  |:..S(_%-40-8,Y%-|
00001380  38 2c 32 2a 28 34 30 2b  38 29 2c 34 30 2b 38 29  |8,2*(40+8),40+8)|
00001390  80 28 4b 75 25 80 31 3c  3c 28 41 25 2d 31 29 29  |.(Ku%.1<<(A%-1))|
000013a0  3e 30 8c 0d 00 7a 5b c8  99 26 34 30 30 45 44 2c  |>0...z[..&400ED,|
000013b0  32 35 36 2c 5a 5f 25 2c  22 72 69 6e 67 22 2c 2c  |256,Z_%,"ring",,|
000013c0  2c 2c 4a 25 2c 4a 25 2b  26 38 30 3a c8 99 34 36  |,,J%,J%+&80:..46|
000013d0  2c 35 32 2b 32 35 36 2c  5a 5f 25 2c 22 72 69 6e  |,52+256,Z_%,"rin|
000013e0  67 22 2c 5f 25 2d 6c 69  25 2c 59 25 2d 70 69 25  |g",_%-li%,Y%-pi%|
000013f0  2f 32 2c 38 2c 4a 25 2c  4a 25 2b 26 38 30 0d 00  |/2,8,J%,J%+&80..|
00001400  7b 1a cd 3a 59 25 2d 3d  a4 61 28 6d 25 2f 28 5f  |{..:Y%-=.a(m%/(_|
00001410  4a 25 2b 31 29 29 3a ed  0d 00 7c 39 cd 3a e7 a4  |J%+1)):...|9.:..|
00001420  53 28 61 25 2b 35 2c 4b  25 2d 35 2d 32 30 2c 32  |S(a%+5,K%-5-20,2|
00001430  30 2c 32 30 29 f2 54 28  35 2c 31 2c 61 25 2b 35  |0,20).T(5,1,a%+5|
00001440  2b 32 30 2c 4b 25 2d 35  2d 32 30 2c 32 30 2c 32  |+20,K%-5-20,20,2|
00001450  29 0d 00 7d 3c e7 a4 53  28 61 25 2b 35 2c 4b 25  |)..}<..S(a%+5,K%|
00001460  2d 72 79 25 2b 35 2c 32  30 2c 32 30 29 f2 54 28  |-ry%+5,20,20).T(|
00001470  35 2c 31 2c 61 25 2b 35  2b 32 30 2c 4b 25 2d 72  |5,1,a%+5+20,K%-r|
00001480  79 25 2b 35 2b 32 30 2c  32 30 2c 33 29 0d 00 7e  |y%+5+20,20,3)..~|
00001490  42 e7 a4 53 28 61 25 2b  78 79 25 2d 35 2d 32 30  |B..S(a%+xy%-5-20|
000014a0  2c 4b 25 2d 35 2d 32 30  2c 32 30 2c 32 30 29 f2  |,K%-5-20,20,20).|
000014b0  54 28 35 2c 31 2c 61 25  2b 78 79 25 2d 35 2d 32  |T(5,1,a%+xy%-5-2|
000014c0  30 2c 4b 25 2d 35 2d 32  30 2c 32 30 2c 31 29 0d  |0,K%-5-20,20,1).|
000014d0  00 7f 47 e7 a4 53 28 61  25 2b 78 79 25 2d 35 2d  |..G..S(a%+xy%-5-|
000014e0  32 30 2c 4b 25 2d 72 79  25 2b 35 2c 32 30 2c 32  |20,K%-ry%+5,20,2|
000014f0  30 29 f2 54 28 35 2c 31  2c 61 25 2b 78 79 25 2d  |0).T(5,1,a%+xy%-|
00001500  35 2d 32 30 2c 4b 25 2d  72 79 25 2b 35 2b 32 30  |5-20,K%-ry%+5+20|
00001510  2c 32 30 2c 34 29 0d 00  80 3d c8 99 26 34 30 30  |,20,4)...=..&400|
00001520  38 31 2c 2c 22 48 6f 6d  65 72 74 6f 6e 2e 4d 65  |81,,"Homerton.Me|
00001530  64 69 75 6d 22 2c 26 39  36 2c 26 39 36 b8 62 6c  |dium",&96,&96.bl|
00001540  25 3a e3 41 25 3d 31 b8  69 79 25 3a e7 74 25 3c  |%:.A%=1.iy%:.t%<|
00001550  41 25 8c 0d 00 81 26 e7  a4 53 28 61 25 2b 69 5f  |A%....&..S(a%+i_|
00001560  25 2c 4b 25 2d 6f 25 2d  28 4e 79 25 2a 41 25 29  |%,K%-o%-(Ny%*A%)|
00001570  2c 33 36 2c 4e 79 25 29  8c 0d 00 82 6e f2 65 75  |,36,Ny%)....n.eu|
00001580  28 61 25 2b 69 5f 25 2c  4b 25 2d 6f 25 2d 28 4e  |(a%+i_%,K%-o%-(N|
00001590  79 25 2a 41 25 29 2c 44  25 28 41 25 29 29 3a f2  |y%*A%),D%(A%)):.|
000015a0  56 28 44 25 28 41 25 29  2c 49 25 28 41 25 29 29  |V(D%(A%),I%(A%))|
000015b0  3a f2 65 79 28 62 6c 25  2c 4d 24 28 41 25 29 2c  |:.ey(bl%,M$(A%),|
000015c0  30 2c 30 2c 61 25 2b 69  5f 25 2b 33 36 2f 32 2c  |0,0,a%+i_%+36/2,|
000015d0  4b 25 2d 6f 25 2d 28 4e  79 25 2a 28 41 25 2d 30  |K%-o%-(Ny%*(A%-0|
000015e0  2e 35 29 29 2c 31 29 0d  00 83 05 cd 0d 00 84 28  |.5)),1)........(|
000015f0  cc 3a e7 a4 53 28 61 25  2b 6c 5f 25 2c 4b 25 2d  |.:..S(a%+l_%,K%-|
00001600  6f 25 2d 28 4e 79 25 2a  41 25 29 2c 33 36 2c 4e  |o%-(Ny%*A%),36,N|
00001610  79 25 29 8c 0d 00 85 72  f2 77 75 28 61 25 2b 6c  |y%)....r.wu(a%+l|
00001620  5f 25 2b 33 36 2c 4b 25  2d 6f 25 2d 28 4e 79 25  |_%+36,K%-o%-(Ny%|
00001630  2a 41 25 29 2c 44 25 28  41 25 29 29 3a f2 56 28  |*A%),D%(A%)):.V(|
00001640  44 25 28 41 25 29 2c 49  25 28 41 25 29 29 3a f2  |D%(A%),I%(A%)):.|
00001650  65 79 28 62 6c 25 2c 4d  24 28 41 25 29 2c 30 2c  |ey(bl%,M$(A%),0,|
00001660  30 2c 61 25 2b 6c 5f 25  2b 33 36 2f 32 2c 4b 25  |0,a%+l_%+36/2,K%|
00001670  2d 6f 25 2d 28 4e 79 25  2a 28 41 25 2d 30 2e 35  |-o%-(Ny%*(A%-0.5|
00001680  29 29 2c 2d 31 29 0d 00  86 05 cd 0d 00 87 41 cd  |)),-1)........A.|
00001690  3a ed 3a e7 74 25 3e 30  80 a4 53 28 61 25 2b 79  |:.:.t%>0..S(a%+y|
000016a0  79 25 2c 4b 25 2d 6f 25  2c 6a 25 2b 33 32 2c 2d  |y%,K%-o%,j%+32,-|
000016b0  6d 25 29 80 ac 60 4a 25  8c f2 6e 79 28 30 2c 61  |m%)..`J%..ny(0,a|
000016c0  25 2b 79 79 25 2c 4b 25  2d 6f 25 29 0d 00 88 3b  |%+yy%,K%-o%)...;|
000016d0  e7 a4 53 28 61 25 2b 64  79 25 2d 33 32 2c 4b 25  |..S(a%+dy%-32,K%|
000016e0  2d 6f 25 2c 6a 25 2b 33  32 2c 2d 6d 25 29 80 ac  |-o%,j%+32,-m%)..|
000016f0  60 4a 25 8c f2 6e 79 28  31 2c 61 25 2b 64 79 25  |`J%..ny(1,a%+dy%|
00001700  2c 4b 25 2d 6f 25 29 0d  00 89 12 c8 99 26 34 30  |,K%-o%)......&40|
00001710  30 38 32 2c 62 6c 25 3a  e1 0d 00 8a 56 dd f2 52  |082,bl%:....V..R|
00001720  28 68 25 2c 61 25 2c 4b  25 29 3a c8 99 26 34 30  |(h%,a%,K%):..&40|
00001730  30 45 44 2c 32 35 36 2c  5a 5f 25 2c 22 63 6f 72  |0ED,256,Z_%,"cor|
00001740  6e 65 72 22 2c 2c 2c 2c  4a 25 2c 4a 25 2b 26 38  |ner",,,,J%,J%+&8|
00001750  30 3a e7 68 25 3d 31 80  a4 53 28 61 25 2b 6a 25  |0:.h%=1..S(a%+j%|
00001760  2c 4b 25 2d 6d 25 2c 2d  33 32 2c 33 32 29 8c 0d  |,K%-m%,-32,32)..|
00001770  00 8b 84 c8 99 34 36 2c  34 37 2b 32 35 36 2c 5a  |.....46,47+256,Z|
00001780  5f 25 2c 22 63 6f 72 6e  65 72 22 3a c8 99 34 36  |_%,"corner":..46|
00001790  2c 35 32 2b 32 35 36 2c  5a 5f 25 2c 22 63 6f 72  |,52+256,Z_%,"cor|
000017a0  6e 65 72 22 2c 61 25 2b  6a 25 2d 31 36 2a 32 2c  |ner",a%+j%-16*2,|
000017b0  4b 25 2d 6d 25 2b 32 2c  38 2c 4a 25 2c 4a 25 2b  |K%-m%+2,8,J%,J%+|
000017c0  26 38 30 3a c8 99 34 36  2c 34 37 2b 32 35 36 2c  |&80:..46,47+256,|
000017d0  5a 5f 25 2c 22 63 6f 72  6e 65 72 22 3a f2 53 5f  |Z_%,"corner":.S_|
000017e0  28 61 25 2b 6a 25 2d 33  32 2c 4b 25 2c 47 25 28  |(a%+j%-32,K%,G%(|
000017f0  31 29 29 0d 00 8c 0c cd  3a e7 68 25 3d 30 8c 0d  |1)).....:.h%=0..|
00001800  00 8d 21 47 25 28 30 29  3d 61 25 3a e7 a4 53 28  |..!G%(0)=a%:..S(|
00001810  61 25 2c 4b 25 2d 6d 25  2c 33 32 2c 33 32 29 8c  |a%,K%-m%,32,32).|
00001820  0d 00 8e 46 c8 99 34 36  2c 35 32 2b 32 35 36 2c  |...F..46,52+256,|
00001830  5a 5f 25 2c 22 63 6f 72  6e 65 72 22 2c 61 25 2b  |Z_%,"corner",a%+|
00001840  32 2c 4b 25 2d 6d 25 2b  32 2c 38 2c 4a 25 2c 4a  |2,K%-m%+2,8,J%,J|
00001850  25 2b 26 38 30 3a f2 53  5f 28 61 25 2c 4b 25 2c  |%+&80:.S_(a%,K%,|
00001860  47 25 28 30 29 29 0d 00  8f 05 cd 0d 00 90 07 cd  |G%(0))..........|
00001870  3a e1 0d 00 91 39 dd f2  53 5f 28 61 25 2c 4b 25  |:....9..S_(a%,K%|
00001880  2c f8 63 79 25 29 3a 21  4a 25 3d 69 25 3a e7 63  |,.cy%):!J%=i%:.c|
00001890  79 25 3e 3d 30 8c 4a 25  21 34 3d 63 79 25 3a c8  |y%>=0.J%!4=cy%:.|
000018a0  99 26 34 30 30 43 34 2c  2c 4a 25 0d 00 92 83 c8  |.&400C4,,J%.....|
000018b0  99 26 34 30 30 43 42 2c  2c 4a 25 3a 4a 25 21 34  |.&400CB,,J%:J%!4|
000018c0  3d 61 25 2d 4a 25 21 34  3a 4a 25 21 38 3d 4b 25  |=a%-J%!4:J%!8=K%|
000018d0  2d 4a 25 21 31 36 2d 6d  25 3a 4a 25 21 26 43 3d  |-J%!16-m%:J%!&C=|
000018e0  4a 25 21 34 2b 33 32 3a  4a 25 21 31 36 3d 4a 25  |J%!4+32:J%!16=J%|
000018f0  21 38 2b 33 32 3a 4a 25  21 32 30 3d 26 37 30 30  |!8+32:J%!20=&700|
00001900  33 31 31 39 3a 4a 25 21  32 34 3d 4f 6c 25 3a 4a  |3119:J%!24=Ol%:J|
00001910  25 21 33 32 3d 30 3a e7  68 25 8c 4a 25 21 32 38  |%!32=0:.h%.J%!28|
00001920  3d 49 69 25 8b 4a 25 21  32 38 3d 54 69 25 0d 00  |=Ii%.J%!28=Ti%..|
00001930  93 16 c8 99 26 34 30 30  43 32 2c 2c 4a 25 b8 63  |....&400C2,,J%.c|
00001940  79 25 3a e1 0d 00 94 31  dd f2 70 5f 3a 21 4a 25  |y%:....1..p_:!J%|
00001950  3d 69 25 3a e7 47 25 28  30 29 3e 3d 30 8c 4a 25  |=i%:.G%(0)>=0.J%|
00001960  21 34 3d 47 25 28 30 29  3a c8 99 26 34 30 30 43  |!4=G%(0):..&400C|
00001970  34 2c 2c 4a 25 0d 00 95  25 e7 47 25 28 31 29 3e  |4,,J%...%.G%(1)>|
00001980  3d 30 8c 4a 25 21 34 3d  47 25 28 31 29 3a c8 99  |=0.J%!4=G%(1):..|
00001990  26 34 30 30 43 34 2c 2c  4a 25 0d 00 96 0d 47 25  |&400C4,,J%....G%|
000019a0  28 29 3d 2d 31 3a e1 0d  00 97 f5 dd f2 43 75 28  |()=-1:.......Cu(|
000019b0  65 25 2c 61 25 2c 4b 25  29 3a ea 52 25 2c 41 25  |e%,a%,K%):.R%,A%|
000019c0  3a 61 25 2b 3d 28 32 34  2b 26 42 38 29 2f 32 3a  |:a%+=(24+&B8)/2:|
000019d0  4b 25 2d 3d 28 36 34 2b  26 44 30 29 2f 32 3a 52  |K%-=(64+&D0)/2:R|
000019e0  25 3d 35 36 3a c8 99 26  34 30 30 45 36 2c 31 3a  |%=56:..&400E6,1:|
000019f0  c8 93 c8 90 30 2c 30 2c  26 42 42 38 3a c8 99 26  |....0,0,&BB8:..&|
00001a00  34 30 30 45 36 2c 58 25  28 30 29 3a c8 8f c8 90  |400E6,X%(0):....|
00001a10  61 25 2c 4b 25 2c 52 25  3a c8 99 26 34 30 30 45  |a%,K%,R%:..&400E|
00001a20  36 2c 58 25 28 33 29 3a  e3 41 25 3d 30 b8 33 33  |6,X%(3):.A%=0.33|
00001a30  30 88 33 30 3a 86 61 25  2b 52 25 2a b5 b2 41 25  |0.30:.a%+R%*..A%|
00001a40  2c 4b 25 2b 52 25 2a 9b  b2 41 25 2c 61 25 2b 28  |,K%+R%*..A%,a%+(|
00001a50  52 25 2d 26 41 29 2a b5  b2 41 25 2c 4b 25 2b 28  |R%-&A)*..A%,K%+(|
00001a60  52 25 2d 26 41 29 2a 9b  b2 41 25 3a ed 3a c8 99  |R%-&A)*..A%:.:..|
00001a70  26 34 30 30 45 36 2c 58  25 28 31 29 3a c8 8f 61  |&400E6,X%(1):..a|
00001a80  25 2c 4b 25 2c 52 25 3a  c8 99 26 34 30 30 45 36  |%,K%,R%:..&400E6|
00001a90  2c 58 25 28 35 29 3a 41  25 3d 36 30 0d 00 98 d0  |,X%(5):A%=60....|
00001aa0  ec 61 25 2c 4b 25 3a ec  61 25 2b 28 52 25 2a 30  |.a%,K%:.a%+(R%*0|
00001ab0  2e 33 35 29 2a b5 b2 28  41 25 2d 39 29 2c 4b 25  |.35)*..(A%-9),K%|
00001ac0  2b 28 52 25 2a 30 2e 33  35 29 2a 9b b2 28 41 25  |+(R%*0.35)*..(A%|
00001ad0  2d 39 29 3a f0 38 35 2c  61 25 2b 28 52 25 2a 30  |-9):.85,a%+(R%*0|
00001ae0  2e 33 35 29 2a b5 b2 28  41 25 2b 39 29 2c 4b 25  |.35)*..(A%+9),K%|
00001af0  2b 28 52 25 2a 30 2e 33  35 29 2a 9b b2 28 41 25  |+(R%*0.35)*..(A%|
00001b00  2b 39 29 3a ec 61 25 2b  28 52 25 2a 30 2e 33 35  |+9):.a%+(R%*0.35|
00001b10  29 2a b5 b2 28 41 25 2d  39 29 2c 4b 25 2b 28 52  |)*..(A%-9),K%+(R|
00001b20  25 2a 30 2e 33 35 29 2a  9b b2 28 41 25 2d 39 29  |%*0.35)*..(A%-9)|
00001b30  3a f0 38 35 2c 61 25 2b  28 52 25 2a 30 2e 37 29  |:.85,a%+(R%*0.7)|
00001b40  2a b5 b2 41 25 2c 4b 25  2b 28 52 25 2a 30 2e 37  |*..A%,K%+(R%*0.7|
00001b50  29 2a 9b b2 41 25 3a c8  99 26 34 30 30 45 36 2c  |)*..A%:..&400E6,|
00001b60  58 25 28 34 29 3a 41 25  3d 33 30 30 0d 00 99 ed  |X%(4):A%=300....|
00001b70  ec 61 25 2c 4b 25 3a ec  61 25 2b 28 52 25 2a 30  |.a%,K%:.a%+(R%*0|
00001b80  2e 32 35 29 2a b5 b2 28  41 25 2d 39 29 2c 4b 25  |.25)*..(A%-9),K%|
00001b90  2b 28 52 25 2a 30 2e 32  35 29 2a 9b b2 28 41 25  |+(R%*0.25)*..(A%|
00001ba0  2d 39 29 3a f0 38 35 2c  61 25 2b 28 52 25 2a 30  |-9):.85,a%+(R%*0|
00001bb0  2e 32 35 29 2a b5 b2 28  41 25 2b 39 29 2c 4b 25  |.25)*..(A%+9),K%|
00001bc0  2b 28 52 25 2a 30 2e 32  35 29 2a 9b b2 28 41 25  |+(R%*0.25)*..(A%|
00001bd0  2b 39 29 3a ec 61 25 2b  28 52 25 2a 30 2e 32 35  |+9):.a%+(R%*0.25|
00001be0  29 2a b5 b2 28 41 25 2d  39 29 2c 4b 25 2b 28 52  |)*..(A%-9),K%+(R|
00001bf0  25 2a 30 2e 32 35 29 2a  9b b2 28 41 25 2d 39 29  |%*0.25)*..(A%-9)|
00001c00  3a f0 38 35 2c 61 25 2b  28 52 25 2a 30 2e 35 29  |:.85,a%+(R%*0.5)|
00001c10  2a b5 b2 41 25 2c 4b 25  2b 28 52 25 2a 30 2e 35  |*..A%,K%+(R%*0.5|
00001c20  29 2a 9b b2 41 25 3a c8  99 26 34 30 30 45 36 2c  |)*..A%:..&400E6,|
00001c30  58 25 28 36 29 3a ec 61  25 2c 4b 25 3a df 42 59  |X%(6):.a%,K%:.BY|
00001c40  30 2c 2d 28 52 25 2a 30  2e 39 29 3a c8 8f c8 90  |0,-(R%*0.9):....|
00001c50  61 25 2c 4b 25 2c 32 3a  e1 0d 00 9a 30 dd a4 63  |a%,K%,2:....0..c|
00001c60  28 75 25 2c 7a 4a 25 29  3a 3d c0 a4 41 28 22 44  |(u%,zJ%):=..A("D|
00001c70  61 79 22 2b c3 28 28 28  75 25 2d 31 29 83 37 29  |ay"+.(((u%-1).7)|
00001c80  2b 31 29 29 2c 7a 4a 25  29 0d 00 9b ad dd a4 44  |+1)),zJ%)......D|
00001c90  79 28 75 25 2c 7a 4a 25  29 3a ea 41 24 2c 71 24  |y(u%,zJ%):.A$,q$|
00001ca0  3a 41 24 3d 22 2c 4d 6f  6e 64 61 79 2c 54 75 65  |:A$=",Monday,Tue|
00001cb0  73 64 61 79 2c 57 65 64  6e 65 73 64 61 79 2c 54  |sday,Wednesday,T|
00001cc0  68 75 72 73 64 61 79 2c  46 72 69 64 61 79 2c 53  |hursday,Friday,S|
00001cd0  61 74 75 72 64 61 79 2c  53 75 6e 64 61 79 2c 22  |aturday,Sunday,"|
00001ce0  3a 75 25 3d 28 28 75 25  2d 31 29 83 37 29 2b 31  |:u%=((u%-1).7)+1|
00001cf0  3a f5 41 24 3d c1 41 24  2c a7 41 24 2c 22 2c 22  |:.A$=.A$,.A$,","|
00001d00  29 2b 31 29 3a 75 25 2d  3d 31 3a fd 75 25 3d 30  |)+1):u%-=1:.u%=0|
00001d10  3a 71 24 3d c0 41 24 2c  a7 41 24 2c 22 2c 22 29  |:q$=.A$,.A$,",")|
00001d20  2d 31 29 3a e7 7a 4a 25  3e 30 8c 71 24 3d c0 71  |-1):.zJ%>0.q$=.q|
00001d30  24 2c 7a 4a 25 29 0d 00  9c 07 3d 71 24 0d 00 9d  |$,zJ%)....=q$...|
00001d40  d1 dd a4 49 79 28 57 6c  25 2c 7a 4a 25 29 3a ea  |...Iy(Wl%,zJ%):.|
00001d50  41 24 2c 4f 24 3a 41 24  3d 22 2c 4a 61 6e 75 61  |A$,O$:A$=",Janua|
00001d60  72 79 2c 46 65 62 72 75  61 72 79 2c 4d 61 72 63  |ry,February,Marc|
00001d70  68 2c 41 70 72 69 6c 2c  4d 61 79 2c 4a 75 6e 65  |h,April,May,June|
00001d80  2c 4a 75 6c 79 2c 41 75  67 75 73 74 2c 53 65 70  |,July,August,Sep|
00001d90  74 65 6d 62 65 72 2c 4f  63 74 6f 62 65 72 2c 4e  |tember,October,N|
00001da0  6f 76 65 6d 62 65 72 2c  44 65 63 65 6d 62 65 72  |ovember,December|
00001db0  2c 22 3a 57 6c 25 3d 28  28 57 6c 25 2d 31 29 83  |,":Wl%=((Wl%-1).|
00001dc0  26 43 29 2b 31 3a f5 41  24 3d c1 41 24 2c a7 41  |&C)+1:.A$=.A$,.A|
00001dd0  24 2c 22 2c 22 29 2b 31  29 3a 57 6c 25 2d 3d 31  |$,",")+1):Wl%-=1|
00001de0  3a fd 57 6c 25 3c 3d 30  3a 4f 24 3d c0 41 24 2c  |:.Wl%<=0:O$=.A$,|
00001df0  a7 41 24 2c 22 2c 22 29  2d 31 29 3a e7 7a 4a 25  |.A$,",")-1):.zJ%|
00001e00  3e 30 8c 4f 24 3d c0 4f  24 2c 7a 4a 25 29 0d 00  |>0.O$=.O$,zJ%)..|
00001e10  9e 07 3d 4f 24 0d 00 9f  19 dd a4 41 5f 28 64 25  |..=O$......A_(d%|
00001e20  29 3a 3d c3 64 25 2b a4  4e 79 28 64 25 29 0d 00  |):=.d%+.Ny(d%)..|
00001e30  a0 7d dd a4 4e 79 28 64  25 29 3a ea 41 24 2c 5a  |.}..Ny(d%):.A$,Z|
00001e40  24 2c 43 24 2c 41 25 2c  4f 79 25 3a 41 24 3d a4  |$,C$,A%,Oy%:A$=.|
00001e50  41 28 22 74 68 22 29 3a  5a 24 3d c0 41 24 2c a7  |A("th"):Z$=.A$,.|
00001e60  41 24 2c 22 2c 22 29 2d  31 29 3a c8 95 a7 41 24  |A$,",")-1):...A$|
00001e70  2c 22 2c 22 29 80 ac 4f  79 25 3a 41 24 3d c1 41  |,",")..Oy%:A$=.A|
00001e80  24 2c a7 41 24 2c 22 2c  22 29 2b 31 29 3a 43 24  |$,.A$,",")+1):C$|
00001e90  3d c0 41 24 2c a7 41 24  2c 22 2c 22 29 2d 31 29  |=.A$,.A$,",")-1)|
00001ea0  3a e7 a7 43 24 2c 22 23  22 29 8c 0d 00 a1 1d e7  |:..C$,"#")......|
00001eb0  c2 c3 64 25 2c a9 43 24  2d 31 29 3d c1 43 24 2c  |..d%,.C$-1)=.C$,|
00001ec0  32 29 8c 4f 79 25 3d b9  0d 00 a2 12 cc e7 bb 43  |2).Oy%=........C|
00001ed0  24 3d 64 25 8c 4f 79 25  3d b9 0d 00 a3 0d cd 3a  |$=d%.Oy%=......:|
00001ee0  ce 3a e7 4f 79 25 8c 0d  00 a4 3c c8 95 bb 41 24  |.:.Oy%....<...A$|
00001ef0  3e 30 84 97 28 41 24 29  3d 33 35 3a 41 24 3d c1  |>0..(A$)=35:A$=.|
00001f00  41 24 2c a7 41 24 2c 22  2c 22 29 2b 31 29 3a ce  |A$,.A$,",")+1):.|
00001f10  3a 5a 24 3d c0 41 24 2c  a7 41 24 2c 22 2c 22 29  |:Z$=.A$,.A$,",")|
00001f20  2d 31 29 0d 00 a5 09 cd  3a 3d 5a 24 0d 00 a6 33  |-1).....:=Z$...3|
00001f30  dd a4 55 28 57 6c 25 2c  7a 4a 25 29 3a 3d c0 a4  |..U(Wl%,zJ%):=..|
00001f40  41 28 22 4d 6f 6e 22 2b  c3 28 28 28 57 6c 25 2d  |A("Mon"+.(((Wl%-|
00001f50  31 29 83 26 43 29 2b 31  29 29 2c 7a 4a 25 29 0d  |1).&C)+1)),zJ%).|
00001f60  00 a7 25 dd a4 6f 79 28  62 25 2c 72 25 2c 58 75  |..%..oy(b%,r%,Xu|
00001f70  25 2c 72 5f 25 29 3a ea  41 24 2c 5a 24 3a e7 ac  |%,r_%):.A$,Z$:..|
00001f80  72 5f 25 8c 0d 00 a8 2a  e7 62 25 3e 26 42 8c 5a  |r_%....*.b%>&B.Z|
00001f90  24 3d 22 20 22 2b a4 41  28 22 70 6d 22 29 8b 5a  |$=" "+.A("pm").Z|
00001fa0  24 3d 22 20 22 2b a4 41  28 22 61 6d 22 29 0d 00  |$=" "+.A("am")..|
00001fb0  a9 18 cd 3a e7 62 25 3e  26 43 80 ac 72 5f 25 8c  |...:.b%>&C..r_%.|
00001fc0  62 25 2d 3d 26 43 0d 00  aa 26 e7 72 5f 25 8c 41  |b%-=&C...&.r_%.A|
00001fd0  24 3d c4 2d 28 62 25 3c  26 41 29 2c 22 30 22 29  |$=.-(b%<&A),"0")|
00001fe0  8b e7 62 25 3d 30 8c 62  25 3d 26 43 0d 00 ab 48  |..b%=0.b%=&C...H|
00001ff0  41 24 2b 3d c3 62 25 2b  22 3a 22 2b c4 2d 28 72  |A$+=.b%+":"+.-(r|
00002000  25 3c 26 41 29 2c 22 30  22 29 2b c3 72 25 3a e7  |%<&A),"0")+.r%:.|
00002010  58 75 25 3c 3e 2d 31 8c  41 24 2b 3d 22 3a 22 2b  |Xu%<>-1.A$+=":"+|
00002020  c4 2d 28 58 75 25 3c 26  41 29 2c 22 30 22 29 2b  |.-(Xu%<&A),"0")+|
00002030  c3 58 75 25 0d 00 ac 0a  3d 41 24 2b 5a 24 0d 00  |.Xu%....=A$+Z$..|
00002040  ad 92 dd f2 77 4a 28 6b  24 2c 60 24 2c 5a 79 24  |....wJ(k$,`$,Zy$|
00002050  2c 73 61 25 29 3a 4b 24  3d 6b 24 3a 56 24 3d 5a  |,sa%):K$=k$:V$=Z|
00002060  79 24 3a 52 75 25 3d 30  3a 44 75 25 3d a3 3a 4a  |y$:Ru%=0:Du%=.:J|
00002070  24 3d 60 24 3a 63 5f 25  3d 30 3a 78 5f 25 3d 30  |$=`$:c_%=0:x_%=0|
00002080  3a 48 75 25 3d a3 3a 56  79 25 3d a3 3a c8 99 26  |:Hu%=.:Vy%=.:..&|
00002090  34 30 30 43 30 2c 26 43  38 2c 26 34 42 35 33 34  |400C0,&C8,&4B534|
000020a0  31 35 34 2c 4b 24 b8 7a  61 25 2c 73 75 25 3a f2  |154,K$.za%,su%:.|
000020b0  4d 4a 3a e7 73 61 25 8c  f2 64 75 28 61 61 25 2c  |MJ:.sa%..du(aa%,|
000020c0  64 24 2b 22 2e 54 65 6d  70 6c 61 74 65 73 22 29  |d$+".Templates")|
000020d0  0d 00 ae 0d f2 74 5f 3a  f2 48 75 3a e1 0d 00 af  |.....t_:.Hu:....|
000020e0  15 dd f2 67 75 3a ea 53  25 3a c8 8e 55 25 21 31  |...gu:.S%:..U%!1|
000020f0  36 ca 0d 00 b0 0c c9 30  3a 44 75 25 3d b9 0d 00  |6......0:Du%=...|
00002100  b1 1b c9 31 3a f2 4f 4a  28 55 25 21 34 30 2c a4  |...1:.OJ(U%!40,.|
00002110  4e 28 55 25 2b 34 34 29  29 0d 00 b2 1b c9 33 3a  |N(U%+44)).....3:|
00002120  f2 67 5f 28 55 25 21 34  30 2c a4 4e 28 55 25 2b  |.g_(U%!40,.N(U%+|
00002130  34 34 29 29 0d 00 b3 0a  c9 38 3a f2 41 4a 0d 00  |44)).....8:.AJ..|
00002140  b4 0f c9 26 34 30 30 43  31 3a f2 46 5f 0d 00 b5  |...&400C1:.F_...|
00002150  24 c9 26 34 30 30 43 32  3a e7 a4 4e 28 55 25 2b  |$.&400C2:..N(U%+|
00002160  32 38 29 3d 4b 24 80 55  25 21 34 3c 3e 73 75 25  |28)=K$.U%!4<>su%|
00002170  8c 0d 00 b6 1e f2 42 28  a4 41 28 22 45 72 72 52  |......B(.A("ErrR|
00002180  75 6e 22 29 29 3a f2 65  4a 28 55 25 21 34 29 0d  |un")):.eJ(U%!4).|
00002190  00 b7 05 cd 0d 00 b8 14  c9 26 34 30 30 43 43 3a  |.........&400CC:|
000021a0  c8 8e 55 25 21 32 30 ca  0d 00 b9 1c c9 69 25 3a  |..U%!20......i%:|
000021b0  24 28 55 25 2b 33 36 29  3d a4 41 28 22 54 69 74  |$(U%+36)=.A("Tit|
000021c0  6c 65 22 29 0d 00 ba 20  c9 66 25 2c 4c 79 25 3a  |le")... .f%,Ly%:|
000021d0  24 28 55 25 2b 33 36 29  3d a4 41 28 22 41 6c 61  |$(U%+36)=.A("Ala|
000021e0  72 6d 22 29 0d 00 bb 1c  c9 61 79 25 3a 24 28 55  |rm").....ay%:$(U|
000021f0  25 2b 33 36 29 3d a4 41  28 22 44 61 74 65 22 29  |%+36)=.A("Date")|
00002200  0d 00 bc 20 c9 49 5f 25  3a 24 28 55 25 2b 33 36  |... .I_%:$(U%+36|
00002210  29 3d a4 41 28 22 53 65  74 74 69 6e 67 73 22 29  |)=.A("Settings")|
00002220  0d 00 bd 23 c9 48 79 25  2c 56 4a 25 3a 24 28 55  |...#.Hy%,VJ%:$(U|
00002230  25 2b 33 36 29 3d a4 41  28 22 41 6e 6e 69 54 61  |%+36)=.A("AnniTa|
00002240  62 22 29 0d 00 be 20 c9  41 79 25 3a 24 28 55 25  |b")... .Ay%:$(U%|
00002250  2b 33 36 29 3d a4 41 28  22 53 65 74 63 6c 6f 63  |+36)=.A("Setcloc|
00002260  6b 22 29 0d 00 bf 4b cb  3a 21 55 25 3d 35 36 3a  |k")...K.:!U%=56:|
00002270  24 28 55 25 2b 32 38 29  3d 22 6f 72 67 22 3a 53  |$(U%+28)="org":S|
00002280  25 3d 55 25 21 34 3a 55  25 21 34 3d 73 75 25 3a  |%=U%!4:U%!4=su%:|
00002290  c8 94 55 25 21 38 2c 55  25 21 26 43 3a c8 99 26  |..U%!8,U%!&C:..&|
000022a0  34 30 30 45 37 2c 31 37  2c 55 25 2c 53 25 0d 00  |400E7,17,U%,S%..|
000022b0  c0 07 cb 3a e1 0d 00 c1  3f dd a4 50 79 28 60 75  |...:....?..Py(`u|
000022c0  25 2c 53 24 29 3a c8 99  26 34 30 30 43 46 2c 2c  |%,S$):..&400CF,,|
000022d0  4a 25 3a 3d 28 28 60 75  25 3d 26 46 46 46 29 84  |J%:=((`u%=&FFF).|
000022e0  28 60 75 25 3d 26 44 46  45 29 29 84 4a 25 21 26  |(`u%=&DFE)).J%!&|
000022f0  43 3d 66 25 0d 00 c2 22  dd f2 67 5f 28 60 75 25  |C=f%..."..g_(`u%|
00002300  2c 53 24 29 3a ea 7a 25  3a e7 a4 50 79 28 60 75  |,S$):.z%:..Py(`u|
00002310  25 2c 53 24 29 8c 0d 00  c3 38 c8 94 55 25 21 38  |%,S$)....8..U%!8|
00002320  2c 55 25 21 26 43 3a 55  25 21 31 36 3d 34 3a c8  |,U%!&C:U%!16=4:.|
00002330  99 26 34 30 30 45 37 2c  31 37 2c 55 25 2c 55 25  |.&400E7,17,U%,U%|
00002340  21 34 3a e7 4a 25 21 26  43 3c 3e 66 25 8c 0d 00  |!4:.J%!&C<>f%...|
00002350  c4 10 e7 7a 79 25 3c 3e  2d 31 8c f2 43 79 0d 00  |...zy%<>-1..Cy..|
00002360  c5 52 ff 22 43 6f 70 79  20 22 2b 53 24 2b 22 20  |.R."Copy "+S$+" |
00002370  22 2b 4a 24 2b 22 2e 49  6d 70 6f 72 74 20 7e 63  |"+J$+".Import ~c|
00002380  20 7e 76 20 66 22 3a e7  53 24 3d 22 3c 57 69 6d  | ~v f":.S$="<Wim|
00002390  70 24 53 63 72 61 70 3e  22 8c ff 22 52 65 6d 6f  |p$Scrap>".."Remo|
000023a0  76 65 20 3c 57 69 6d 70  24 53 63 72 61 70 3e 22  |ve <Wimp$Scrap>"|
000023b0  0d 00 c6 15 f2 52 4a 28  4a 24 2b 22 2e 49 6d 70  |.....RJ(J$+".Imp|
000023c0  6f 72 74 22 29 0d 00 c7  0c cc f2 76 5f 28 53 24  |ort")......v_(S$|
000023d0  29 0d 00 c8 05 cd 0d 00  c9 07 cd 3a e1 0d 00 ca  |)..........:....|
000023e0  0d dd a4 75 3a e7 65 79  25 8c 0d 00 cb 1c e7 a4  |...u:.ey%.......|
000023f0  42 79 28 a4 41 28 22 45  72 72 53 61 76 65 22 29  |By(.A("ErrSave")|
00002400  2c b9 29 8c f2 74 0d 00  cc 08 cd 3a 3d b9 0d 00  |,.)..t.....:=...|
00002410  cd 1f dd f2 46 5f ea 58  61 25 2c 51 61 25 2c 4d  |....F_.Xa%,Qa%,M|
00002420  25 3a e7 28 71 79 25 80  34 29 3e 30 8c 0d 00 ce  |%:.(qy%.4)>0....|
00002430  17 e7 a4 60 79 28 eb 29  8c 4d 25 3d 32 30 8b 4d  |...`y(.).M%=20.M|
00002440  25 3d 26 43 0d 00 cf 8a  c8 99 26 32 30 30 32 45  |%=&C......&2002E|
00002450  2c 32 38 31 2c 5a 5f 25  2c 22 63 6c 6f 63 6b 22  |,281,Z_%,"clock"|
00002460  3a c8 99 35 33 2c 4d 25  2c 34 b8 2c 2c 58 61 25  |:..53,M%,4.,,Xa%|
00002470  3a c8 99 35 33 2c 4d 25  2c 35 b8 2c 2c 51 61 25  |:..53,M%,5.,,Qa%|
00002480  3a c8 99 34 36 2c 38 2b  35 31 32 2c 5a 5f 25 b8  |:..46,8+512,Z_%.|
00002490  2c 2c 2c 2c 2c 46 25 3a  c8 99 34 36 2c 32 37 31  |,,,,,F%:..46,271|
000024a0  2c 5a 5f 25 2c 22 63 6c  6f 63 6b 22 2c 30 2c 26  |,Z_%,"clock",0,&|
000024b0  37 34 2f 28 31 3c 3c 58  61 25 29 2c 26 37 38 2f  |74/(1<<Xa%),&78/|
000024c0  28 31 3c 3c 51 61 25 29  2c 4d 25 3a f2 75 0d 00  |(1<<Qa%),M%:.u..|
000024d0  d0 07 cd 3a e1 0d 00 d1  49 dd f2 65 28 65 25 2c  |...:....I..e(e%,|
000024e0  77 25 2c 6e 25 2c 58 79  25 2c 54 79 25 29 ea 41  |w%,n%,Xy%,Ty%).A|
000024f0  25 2c 42 25 2c 41 24 2c  58 5f 25 3a 56 5f 25 3d  |%,B%,A$,X_%:V_%=|
00002500  74 25 3a 7a 5f 25 3d 76  25 3a 58 5f 25 3d 31 2b  |t%:z_%=v%:X_%=1+|
00002510  32 2a 28 6e 25 3d 31 29  3a c8 8e 65 25 ca 0d 00  |2*(n%=1):..e%...|
00002520  d2 57 c9 69 25 3a 21 55  25 3d 69 25 3a c8 99 26  |.W.i%:!U%=i%:..&|
00002530  34 30 30 43 42 2c 2c 55  25 3a 61 25 3d 55 25 21  |400CB,,U%:a%=U%!|
00002540  34 2d 55 25 21 32 30 3a  4b 25 3d 55 25 21 31 36  |4-U%!20:K%=U%!16|
00002550  2d 55 25 21 32 34 3a f2  75 5f 28 77 25 2c 6e 25  |-U%!24:.u_(w%,n%|
00002560  2c 58 79 25 2d 61 25 2c  54 79 25 2d 4b 25 2c 61  |,Xy%-a%,Ty%-K%,a|
00002570  25 2c 4b 25 29 0d 00 d3  0d c9 2d 32 3a c8 8e 6e  |%,K%).....-2:..n|
00002580  25 ca 0d 00 d4 16 c9 31  3a f2 73 28 55 79 25 2c  |%......1:.s(Uy%,|
00002590  62 79 25 2c 46 79 25 29  0d 00 d5 28 c9 32 3a 42  |by%,Fy%)...(.2:B|
000025a0  4a 25 3d 2d 31 3a f2 43  28 51 75 25 2c 58 79 25  |J%=-1:.C(Qu%,Xy%|
000025b0  2c a4 62 79 28 51 75 25  29 2c 65 25 2c 77 25 29  |,.by(Qu%),e%,w%)|
000025c0  0d 00 d6 0b c9 34 3a c8  8e b9 ca 0d 00 d7 13 c9  |.....4:.........|
000025d0  a6 2d 31 3a e7 59 79 25  3d 30 8c f2 52 79 0d 00  |.-1:.Yy%=0..Ry..|
000025e0  d8 11 c9 a6 2d 33 3a 4d  4a 25 3d 35 3a f2 6d 0d  |....-3:MJ%=5:.m.|
000025f0  00 d9 11 7f f2 78 28 69  25 2c 2d 31 2c 2d 31 29  |.....x(i%,-1,-1)|
00002600  0d 00 da 05 cb 0d 00 db  05 cb 0d 00 dc 0e c9 61  |...............a|
00002610  79 25 3a c8 8e 77 25 ca  0d 00 dd 39 c9 30 3a f2  |y%:..w%....9.0:.|
00002620  48 28 64 5f 25 2c 30 2c  2d 31 29 3a f2 4a 28 64  |H(d_%,0,-1):.J(d|
00002630  5f 25 2c 48 4a 25 2d 31  2c b9 29 3a f2 43 28 64  |_%,HJ%-1,.):.C(d|
00002640  5f 25 2c 58 79 25 2c 54  79 25 2c 65 25 2c 77 25  |_%,Xy%,Ty%,e%,w%|
00002650  29 0d 00 de 31 c9 32 2c  33 3a f2 4c 79 28 2d 31  |)...1.2,3:.Ly(-1|
00002660  2c 2d 31 2c 28 31 2b 32  2a 28 77 25 3d 32 29 29  |,-1,(1+2*(w%=2))|
00002670  2a 58 5f 25 2a 28 31 2d  34 39 2a 28 a6 2d 31 29  |*X_%*(1-49*(.-1)|
00002680  29 29 0d 00 df 1a c9 33  35 3a f2 72 79 3a e7 6e  |)).....35:.ry:.n|
00002690  25 3c 3e 31 8c f2 47 28  61 79 25 29 0d 00 e0 0f  |%<>1..G(ay%)....|
000026a0  c9 33 36 3a f2 47 28 61  79 25 29 0d 00 e1 0c 7f  |.36:.G(ay%).....|
000026b0  3a e7 6e 25 3d 32 8c 0d  00 e2 36 f2 48 28 64 5f  |:.n%=2....6.H(d_|
000026c0  25 2c 30 2c 2d 31 29 3a  f2 4a 28 64 5f 25 2c 48  |%,0,-1):.J(d_%,H|
000026d0  4a 25 2d 31 2c b9 29 3a  f2 43 28 64 5f 25 2c 58  |J%-1,.):.C(d_%,X|
000026e0  79 25 2c 54 79 25 2c 65  25 2c 77 25 29 0d 00 e3  |y%,Ty%,e%,w%)...|
000026f0  1f cc f2 4c 79 28 77 25  2d 33 2c 2d 31 2c 30 29  |...Ly(w%-3,-1,0)|
00002700  3a e7 6e 25 3c 32 35 36  8c f2 72 79 0d 00 e4 05  |:.n%<256..ry....|
00002710  cd 0d 00 e5 05 cb 0d 00  e6 10 c9 41 79 25 3a e7  |...........Ay%:.|
00002720  6e 25 3c 3e 32 8c 0d 00  e7 09 c8 8e 77 25 ca 0d  |n%<>2.......w%..|
00002730  00 e8 20 c9 31 3a f2 65  28 41 79 25 2c 39 2b a4  |.. .1:.e(Ay%,9+.|
00002740  4d 28 41 79 25 2c 31 29  2c 34 2c 30 2c 30 29 0d  |M(Ay%,1),4,0,0).|
00002750  00 e9 1e c9 32 3a f2 41  79 28 50 5f 25 2c 4e 5f  |....2:.Ay(P_%,N_|
00002760  25 2c 51 5f 25 2c 41 79  25 2c 77 25 29 0d 00 ea  |%,Q_%,Ay%,w%)...|
00002770  1d c9 33 3a e7 a4 79 3c  3e a4 4d 28 41 79 25 2c  |..3:..y<>.M(Ay%,|
00002780  31 29 8c f2 53 79 28 2d  31 29 0d 00 eb c3 41 25  |1)..Sy(-1)....A%|
00002790  3d bb 28 a4 5a 28 41 79  25 2c 34 29 29 83 26 43  |=.(.Z(Ay%,4)).&C|
000027a0  20 2d 26 43 2a 74 5f 25  3a 41 24 3d c3 41 25 3a  | -&C*t_%:A$=.A%:|
000027b0  41 24 3d c4 32 2d a9 41  24 2c 22 30 22 29 2b 41  |A$=.2-.A$,"0")+A|
000027c0  24 3a 24 4a 25 3d bd 32  34 2b a4 44 79 28 a4 48  |$:$J%=.24+.Dy(.H|
000027d0  28 50 5f 25 2c 4e 5f 25  2c 51 5f 25 29 2c 33 29  |(P_%,N_%,Q_%),3)|
000027e0  2b 22 2c 22 2b c4 2d 28  50 5f 25 3c 26 41 29 2c  |+","+.-(P_%<&A),|
000027f0  22 30 22 29 2b c3 50 5f  25 2b 22 20 22 2b a4 49  |"0")+.P_%+" "+.I|
00002800  79 28 4e 5f 25 2c 33 29  2b 22 20 22 2b c3 51 5f  |y(N_%,3)+" "+.Q_|
00002810  25 2b 22 2e 22 2b 41 24  2b 22 3a 22 2b a4 5a 28  |%+"."+A$+":"+.Z(|
00002820  41 79 25 2c 35 29 2b 22  3a 30 30 22 3a c8 99 26  |Ay%,5)+":00":..&|
00002830  32 30 30 30 37 2c 26 46  2c 4a 25 b8 3b 42 25 3a  |20007,&F,J%.;B%:|
00002840  e7 6e 25 3d 34 8c f2 47  28 41 79 25 29 0d 00 ec  |.n%=4..G(Ay%)...|
00002850  63 c9 38 3a 41 25 3d bb  28 a4 5a 28 41 79 25 2c  |c.8:A%=.(.Z(Ay%,|
00002860  34 29 29 83 26 43 20 2d  26 43 2a 74 5f 25 2b 58  |4)).&C -&C*t_%+X|
00002870  5f 25 3a e7 41 25 3d 32  34 8c 41 25 3d 30 3a f2  |_%:.A%=24.A%=0:.|
00002880  46 28 50 5f 25 2c 4e 5f  25 2c 51 5f 25 2c 31 2c  |F(P_%,N_%,Q_%,1,|
00002890  30 2c 30 29 3a f2 41 28  41 79 25 2c 32 2c a4 51  |0,0):.A(Ay%,2,.Q|
000028a0  28 50 5f 25 2c 4e 5f 25  2c 51 5f 25 2c b9 29 29  |(P_%,N_%,Q_%,.))|
000028b0  0d 00 ed 43 e7 41 25 3d  2d 31 8c 41 25 3d 32 33  |...C.A%=-1.A%=23|
000028c0  3a f2 46 28 50 5f 25 2c  4e 5f 25 2c 51 5f 25 2c  |:.F(P_%,N_%,Q_%,|
000028d0  2d 31 2c 30 2c 30 29 3a  f2 41 28 41 79 25 2c 32  |-1,0,0):.A(Ay%,2|
000028e0  2c a4 51 28 50 5f 25 2c  4e 5f 25 2c 51 5f 25 2c  |,.Q(P_%,N_%,Q_%,|
000028f0  b9 29 29 0d 00 ee 3a 74  5f 25 3d 41 25 3e 26 42  |.))...:t_%=A%>&B|
00002900  3a e7 41 25 3e 26 42 8c  f2 41 28 41 79 25 2c 37  |:.A%>&B..A(Ay%,7|
00002910  2c a4 41 28 22 70 6d 22  29 29 8b f2 41 28 41 79  |,.A("pm"))..A(Ay|
00002920  25 2c 37 2c a4 41 28 22  61 6d 22 29 29 0d 00 ef  |%,7,.A("am"))...|
00002930  28 41 25 3d 41 25 83 26  43 3a 41 25 2d 3d 26 43  |(A%=A%.&C:A%-=&C|
00002940  2a 28 41 25 3d 30 29 3a  f2 41 28 41 79 25 2c 34  |*(A%=0):.A(Ay%,4|
00002950  2c c3 41 25 29 0d 00 f0  65 c9 39 3a 41 25 3d bb  |,.A%)...e.9:A%=.|
00002960  28 a4 5a 28 41 79 25 2c  34 29 29 83 26 43 20 2d  |(.Z(Ay%,4)).&C -|
00002970  26 43 2a 74 5f 25 2d 58  5f 25 3a e7 41 25 3d 2d  |&C*t_%-X_%:.A%=-|
00002980  31 8c 41 25 3d 32 33 3a  f2 46 28 50 5f 25 2c 4e  |1.A%=23:.F(P_%,N|
00002990  5f 25 2c 51 5f 25 2c 2d  31 2c 30 2c 30 29 3a f2  |_%,Q_%,-1,0,0):.|
000029a0  41 28 41 79 25 2c 32 2c  a4 51 28 50 5f 25 2c 4e  |A(Ay%,2,.Q(P_%,N|
000029b0  5f 25 2c 51 5f 25 2c b9  29 29 0d 00 f1 41 e7 41  |_%,Q_%,.))...A.A|
000029c0  25 3d 32 34 8c 41 25 3d  30 3a f2 46 28 50 5f 25  |%=24.A%=0:.F(P_%|
000029d0  2c 4e 5f 25 2c 51 5f 25  2c 31 2c 30 2c 30 29 3a  |,N_%,Q_%,1,0,0):|
000029e0  f2 41 28 41 79 25 2c 32  2c a4 51 28 50 5f 25 2c  |.A(Ay%,2,.Q(P_%,|
000029f0  4e 5f 25 2c 51 5f 25 2c  b9 29 29 0d 00 f2 3a 74  |N_%,Q_%,.))...:t|
00002a00  5f 25 3d 41 25 3e 26 42  3a e7 41 25 3e 26 42 8c  |_%=A%>&B:.A%>&B.|
00002a10  f2 41 28 41 79 25 2c 37  2c a4 41 28 22 70 6d 22  |.A(Ay%,7,.A("pm"|
00002a20  29 29 8b f2 41 28 41 79  25 2c 37 2c a4 41 28 22  |))..A(Ay%,7,.A("|
00002a30  61 6d 22 29 29 0d 00 f3  28 41 25 3d 41 25 83 26  |am"))...(A%=A%.&|
00002a40  43 3a 41 25 2d 3d 26 43  2a 28 41 25 3d 30 29 3a  |C:A%-=&C*(A%=0):|
00002a50  f2 41 28 41 79 25 2c 34  2c c3 41 25 29 0d 00 f4  |.A(Ay%,4,.A%)...|
00002a60  48 c9 26 41 2c 26 43 3a  41 25 3d bb a4 5a 28 41  |H.&A,&C:A%=..Z(A|
00002a70  79 25 2c 35 29 2b 28 31  2d 39 2a 28 77 25 3d 26  |y%,5)+(1-9*(w%=&|
00002a80  41 29 29 2a 58 5f 25 3a  e7 41 25 3e 35 39 8c 41  |A))*X_%:.A%>59.A|
00002a90  25 2d 3d 36 30 3a f2 65  28 41 79 25 2c 38 2c 34  |%-=60:.e(Ay%,8,4|
00002aa0  2c 30 2c 30 29 0d 00 f5  20 e7 41 25 3c 30 8c 41  |,0,0)... .A%<0.A|
00002ab0  25 2b 3d 36 30 3a f2 65  28 41 79 25 2c 39 2c 34  |%+=60:.e(Ay%,9,4|
00002ac0  2c 30 2c 30 29 0d 00 f6  1e f2 41 28 41 79 25 2c  |,0,0).....A(Ay%,|
00002ad0  35 2c c4 32 2d a9 c3 41  25 2c 22 30 22 29 2b c3  |5,.2-..A%,"0")+.|
00002ae0  41 25 29 0d 00 f7 48 c9  26 42 2c 26 44 3a 41 25  |A%)...H.&B,&D:A%|
00002af0  3d bb a4 5a 28 41 79 25  2c 35 29 2d 28 31 2d 39  |=..Z(Ay%,5)-(1-9|
00002b00  2a 28 77 25 3d 26 42 29  29 2a 58 5f 25 3a e7 41  |*(w%=&B))*X_%:.A|
00002b10  25 3e 35 39 8c 41 25 2d  3d 36 30 3a f2 65 28 41  |%>59.A%-=60:.e(A|
00002b20  79 25 2c 38 2c 34 2c 30  2c 30 29 0d 00 f8 20 e7  |y%,8,4,0,0)... .|
00002b30  41 25 3c 30 8c 41 25 2b  3d 36 30 3a f2 65 28 41  |A%<0.A%+=60:.e(A|
00002b40  79 25 2c 39 2c 34 2c 30  2c 30 29 0d 00 f9 1e f2  |y%,9,4,0,0).....|
00002b50  41 28 41 79 25 2c 35 2c  c4 32 2d a9 c3 41 25 2c  |A(Ay%,5,.2-..A%,|
00002b60  22 30 22 29 2b c3 41 25  29 0d 00 fa 3a c9 37 3a  |"0")+.A%)...:.7:|
00002b70  74 5f 25 3d ac 74 5f 25  3a e7 74 5f 25 8c f2 41  |t_%=.t_%:.t_%..A|
00002b80  28 41 79 25 2c 37 2c a4  41 28 22 70 6d 22 29 29  |(Ay%,7,.A("pm"))|
00002b90  8b f2 41 28 41 79 25 2c  37 2c a4 41 28 22 61 6d  |..A(Ay%,7,.A("am|
00002ba0  22 29 29 0d 00 fb 05 cb  0d 00 fc 05 cd 0d 00 fd  |")).............|
00002bb0  1e c9 66 25 3a f2 6c 75  28 58 79 25 2c 54 79 25  |..f%:.lu(Xy%,Ty%|
00002bc0  2c 65 25 2c 77 25 2c 58  5f 25 29 0d 00 fe 1b c9  |,e%,w%,X_%).....|
00002bd0  4c 79 25 3a f2 6a 4a 28  58 79 25 2c 54 79 25 2c  |Ly%:.jJ(Xy%,Ty%,|
00002be0  65 25 2c 77 25 29 0d 00  ff 0c c9 5a 75 25 3a f2  |e%,w%).....Zu%:.|
00002bf0  57 5f 0d 01 00 10 c9 48  79 25 3a f2 74 4a 28 77  |W_.....Hy%:.tJ(w|
00002c00  25 29 0d 01 01 22 c9 49  5f 25 2c 59 79 25 3a f2  |%)...".I_%,Yy%:.|
00002c10  4e 75 28 65 25 2c 77 25  2c 6e 25 2c 58 79 25 2c  |Nu(e%,w%,n%,Xy%,|
00002c20  54 79 25 29 0d 01 02 0c  c9 56 4a 25 3a f2 7a 79  |Ty%).....VJ%:.zy|
00002c30  0d 01 03 1e c9 7a 79 25  3a f2 68 5f 28 65 25 2c  |.....zy%:.h_(e%,|
00002c40  77 25 2c 6e 25 2c 58 79  25 2c 54 79 25 29 0d 01  |w%,n%,Xy%,Ty%)..|
00002c50  04 1a 7f f2 44 4a 28 65  25 2c 77 25 2c 6e 25 2c  |....DJ(e%,w%,n%,|
00002c60  58 79 25 2c 54 79 25 29  0d 01 05 0b cb 3a f2 51  |Xy%,Ty%).....:.Q|
00002c70  79 3a e1 0d 01 06 44 dd  f2 75 5f 28 77 25 2c 6e  |y:....D..u_(w%,n|
00002c80  25 2c 5f 25 2c 51 25 2c  6f 5f 25 2c 77 4a 25 29  |%,_%,Q%,o_%,wJ%)|
00002c90  3a ea 76 61 25 2c 63 61  25 2c 41 25 2c 51 4a 25  |:.va%,ca%,A%,QJ%|
00002ca0  3a 41 25 3d 6e 25 2d 33  2d 28 6e 25 3d 31 29 3a  |:A%=n%-3-(n%=1):|
00002cb0  e7 6e 25 3c 3e 32 8c 0d  01 07 11 e7 77 25 3e 3d  |.n%<>2......w%>=|
00002cc0  30 80 6e 25 3c 3e 32 8c  0d 01 08 09 c8 8e 77 25  |0.n%<>2.......w%|
00002cd0  ca 0d 01 09 13 c9 47 25  28 30 29 3a f2 58 5f 28  |......G%(0):.X_(|
00002ce0  2d 41 25 29 0d 01 0a 12  c9 47 25 28 31 29 3a f2  |-A%).....G%(1):.|
00002cf0  58 5f 28 41 25 29 0d 01  0b 0c 7f f2 6f 5f 28 77  |X_(A%)......o_(w|
00002d00  25 29 0d 01 0c 05 cb 0d  01 0d 24 cc 3a e3 41 25  |%)........$.:.A%|
00002d10  3d 31 b8 69 79 25 3a e7  74 25 3c 41 25 8c 58 25  |=1.iy%:.t%<A%.X%|
00002d20  3d 69 5f 25 8b 58 25 3d  6c 5f 25 0d 01 0e 24 e7  |=i_%.X%=l_%...$.|
00002d30  a4 72 28 5f 25 2c 51 25  2c 58 25 2c 2d 6f 25 2d  |.r(_%,Q%,X%,-o%-|
00002d40  41 25 2a 4e 79 25 2c 33  36 2c 4e 79 25 29 8c 0d  |A%*Ny%,36,Ny%)..|
00002d50  01 0f 1a e7 6e 25 3c 3e  32 8c 74 25 3d 41 25 3a  |....n%<>2.t%=A%:|
00002d60  76 25 3d 53 25 28 74 25  29 0d 01 10 07 cd 3a ed  |v%=S%(t%).....:.|
00002d70  0d 01 11 05 cd 0d 01 12  4b cd 3a e7 28 77 25 3d  |........K.:.(w%=|
00002d80  2d 31 84 6e 25 3d 32 29  80 a4 72 28 5f 25 2c 51  |-1.n%=2)..r(_%,Q|
00002d90  25 2c 79 79 25 2c 2d 6f  25 2c 6a 25 2c 2d 6d 25  |%,yy%,-o%,j%,-m%|
00002da0  29 8c f2 68 79 28 6e 25  2c a3 2c 5f 25 2d 79 79  |)..hy(n%,.,_%-yy|
00002db0  25 2c 51 25 2b 6f 25 2c  6f 5f 25 2c 77 4a 25 29  |%,Q%+o%,o_%,wJ%)|
00002dc0  0d 01 13 49 e7 28 77 25  3d 2d 31 84 6e 25 3d 32  |...I.(w%=-1.n%=2|
00002dd0  29 80 a4 72 28 5f 25 2c  51 25 2c 64 79 25 2c 2d  |)..r(_%,Q%,dy%,-|
00002de0  6f 25 2c 6a 25 2c 2d 6d  25 29 8c f2 68 79 28 6e  |o%,j%,-m%)..hy(n|
00002df0  25 2c b9 2c 5f 25 2d 64  79 25 2c 51 25 2b 6f 25  |%,.,_%-dy%,Q%+o%|
00002e00  2c 6f 5f 25 2c 77 4a 25  29 0d 01 14 0a e7 6e 25  |,o_%,wJ%).....n%|
00002e10  3d 32 8c 0d 01 15 28 e7  54 25 28 74 25 29 3c 3e  |=2....(.T%(t%)<>|
00002e20  2d 31 8c f2 43 28 54 25  28 74 25 29 2c 58 79 25  |-1..C(T%(t%),Xy%|
00002e30  2c 54 79 25 2c 65 25 2c  77 25 29 0d 01 16 14 cc  |,Ty%,e%,w%).....|
00002e40  e7 ac 51 4a 25 8c f2 4d  28 69 25 2c 2d 31 29 0d  |..QJ%..M(i%,-1).|
00002e50  01 17 07 cd 3a e1 0d 01  18 11 dd f2 51 79 3a e7  |....:.......Qy:.|
00002e60  56 5f 25 3d 74 25 8c 0d  01 19 23 e7 76 25 3c 3e  |V_%=t%....#.v%<>|
00002e70  7a 5f 25 80 70 79 25 3d  30 8c 70 79 25 3d 31 2b  |z_%.py%=0.py%=1+|
00002e80  32 2a 28 76 25 3c 7a 5f  25 29 0d 01 1a 28 cc f2  |2*(v%<z_%)...(..|
00002e90  43 5f 28 56 5f 25 29 3a  f2 4d 28 69 25 2c 2d 31  |C_(V_%):.M(i%,-1|
00002ea0  29 3a 70 79 25 3d 31 2b  32 2a 28 74 25 3c 56 5f  |):py%=1+2*(t%<V_|
00002eb0  25 29 0d 01 1b 1a cd 3a  e7 28 75 4a 25 84 70 79  |%).....:.(uJ%.py|
00002ec0  25 3c 3e 30 29 80 56 79  25 8c f2 4f 0d 01 1c 2e  |%<>0).Vy%..O....|
00002ed0  53 25 28 56 5f 25 29 3d  7a 5f 25 3a 53 25 28 74  |S%(V_%)=z_%:S%(t|
00002ee0  25 29 3d 76 25 3a e7 56  5f 25 3c 3e 74 25 8c f2  |%)=v%:.V_%<>t%..|
00002ef0  62 79 28 74 25 29 3a f2  70 79 0d 01 1d 05 e1 0d  |by(t%):.py......|
00002f00  01 1e 50 dd f2 4f 3a f2  70 5f 3a f2 58 75 28 70  |..P..O:.p_:.Xu(p|
00002f10  79 25 29 3a f2 44 28 69  25 2c 79 79 25 2c 2d 6f  |y%):.D(i%,yy%,-o|
00002f20  25 2c 79 79 25 2b 6a 25  2c 2d 6f 25 2d 6d 25 29  |%,yy%+j%,-o%-m%)|
00002f30  3a f2 44 28 69 25 2c 64  79 25 2c 2d 6f 25 2c 64  |:.D(i%,dy%,-o%,d|
00002f40  79 25 2b 6a 25 2c 2d 6f  25 2d 6d 25 29 3a e1 0d  |y%+j%,-o%-m%):..|
00002f50  01 1f 2d dd f2 77 5f 3a  f2 44 28 69 25 2c 79 79  |..-..w_:.D(i%,yy|
00002f60  25 2b 6a 25 2d 33 32 2c  2d 6f 25 2c 64 79 25 2b  |%+j%-32,-o%,dy%+|
00002f70  33 32 2c 2d 6f 25 2d 6d  25 29 3a e1 0d 01 20 61  |32,-o%-m%):... a|
00002f80  dd f2 70 79 3a f2 44 28  69 25 2c 6c 5f 25 2c 2d  |..py:.D(i%,l_%,-|
00002f90  6f 25 2c 6c 5f 25 2b 33  36 2c 2d 6f 25 2d 6d 25  |o%,l_%+36,-o%-m%|
00002fa0  29 3a f2 44 28 69 25 2c  69 5f 25 2c 2d 6f 25 2c  |):.D(i%,i_%,-o%,|
00002fb0  69 5f 25 2b 33 36 2c 2d  6f 25 2d 6d 25 29 3a f2  |i_%+36,-o%-m%):.|
00002fc0  44 28 69 25 2c 47 4a 25  2c 2d 6f 25 2c 47 4a 25  |D(i%,GJ%,-o%,GJ%|
00002fd0  2b 33 32 2c 2d 6f 25 2d  6d 25 29 3a e1 0d 01 21  |+32,-o%-m%):...!|
00002fe0  26 dd f2 78 28 65 25 2c  49 4a 25 2c 56 6c 25 29  |&..x(e%,IJ%,Vl%)|
00002ff0  3a ea 41 25 3a 41 25 3d  56 79 25 3a e7 65 25 3d  |:.A%:A%=Vy%:.e%=|
00003000  69 25 8c 0d 01 22 0d e7  65 4a 25 3c 3e 2d 31 8c  |i%..."..eJ%<>-1.|
00003010  0d 01 23 69 21 4a 25 3d  69 25 3a c8 99 26 34 30  |..#i!J%=i%:..&40|
00003020  30 43 42 2c 2c 4a 25 3a  4a 25 21 34 3d 61 75 25  |0CB,,J%:J%!4=au%|
00003030  3a 4a 25 21 38 3d 78 75  25 2d 72 79 25 3a 4a 25  |:J%!8=xu%-ry%:J%|
00003040  21 26 43 3d 61 75 25 2b  78 79 25 3a 4a 25 21 31  |!&C=au%+xy%:J%!1|
00003050  36 3d 78 75 25 3a 4a 25  21 32 38 3d 49 4a 25 3a  |6=xu%:J%!28=IJ%:|
00003060  c8 99 26 34 30 30 43 35  2c 2c 4a 25 3a f2 77 28  |..&400C5,,J%:.w(|
00003070  69 25 2c 49 4a 25 2c 30  29 0d 01 24 13 cc f2 77  |i%,IJ%,0)..$...w|
00003080  28 65 25 2c 49 4a 25 2c  56 6c 25 29 0d 01 25 14  |(e%,IJ%,Vl%)..%.|
00003090  cd 3a e7 ac 41 25 8c f2  4d 28 69 25 2c 2d 31 29  |.:..A%..M(i%,-1)|
000030a0  0d 01 26 13 cc f2 77 28  65 25 2c 49 4a 25 2c 56  |..&...w(e%,IJ%,V|
000030b0  6c 25 29 0d 01 27 07 cd  3a e1 0d 01 28 18 dd f2  |l%)..'..:...(...|
000030c0  58 75 28 41 25 29 3a e7  4d 75 25 80 41 25 3c 3e  |Xu(A%):.Mu%.A%<>|
000030d0  30 8c 0d 01 29 c4 ea 71  75 25 2c 5f 25 2c 61 25  |0...)..qu%,_%,a%|
000030e0  2c 4b 25 2c 52 79 25 2c  67 25 2c 52 25 2c 43 25  |,K%,Ry%,g%,R%,C%|
000030f0  3a 21 4a 25 3d 69 25 3a  c8 99 26 34 30 30 43 42  |:!J%=i%:..&400CB|
00003100  2c 2c 4a 25 3a 61 25 3d  4a 25 21 34 2d 4a 25 21  |,,J%:a%=J%!4-J%!|
00003110  32 30 3a 4b 25 3d 4a 25  21 31 36 2d 4a 25 21 32  |20:K%=J%!16-J%!2|
00003120  34 3a 52 79 25 3d 61 25  2b 64 79 25 2d 26 36 34  |4:Ry%=a%+dy%-&64|
00003130  81 32 3a 67 25 3d 28 26  36 34 2f 32 2d 33 32 29  |.2:g%=(&64/2-32)|
00003140  3a 52 25 3d 6a 25 2b 26  36 34 2f 32 3a c8 99 26  |:R%=j%+&64/2:..&|
00003150  34 30 37 34 32 2c 30 b8  43 25 3a 43 25 2b 3d 33  |40742,0.C%:C%+=3|
00003160  3c 3c 34 3a e3 5f 25 3d  30 b8 26 42 34 88 26 46  |<<4:._%=0.&B4.&F|
00003170  3a f2 76 79 28 5f 25 2c  41 25 29 3a 54 25 3d 91  |:.vy(_%,A%):T%=.|
00003180  3a f5 fd 91 3e 54 25 2b  31 3a f2 76 79 28 5f 25  |:...>T%+1:.vy(_%|
00003190  2c 41 25 29 3a ed 0d 01  2a 07 cd 3a e1 0d 01 2b  |,A%):...*..:...+|
000031a0  4a dd f2 76 79 28 5f 25  2c 41 25 29 3a 21 4a 25  |J..vy(_%,A%):!J%|
000031b0  3d 69 25 3a 4a 25 21 34  3d 30 3a 4a 25 21 38 3d  |=i%:J%!4=0:J%!8=|
000031c0  2d 72 79 25 3a 4a 25 21  26 43 3d 78 79 25 3a 4a  |-ry%:J%!&C=xy%:J|
000031d0  25 21 31 36 3d 30 3a e7  41 25 3d 2d 31 8c 5f 25  |%!16=0:.A%=-1._%|
000031e0  3d 26 42 34 2d 5f 25 0d  01 2c b7 c8 99 26 34 30  |=&B4-_%..,...&40|
000031f0  30 43 39 2c 2c 4a 25 b8  71 75 25 3a c8 95 71 75  |0C9,,J%.qu%:..qu|
00003200  25 3a c8 99 26 34 30 30  45 36 2c 43 25 3a ec 52  |%:..&400E6,C%:.R|
00003210  79 25 2b 67 25 2a 9b b2  5f 25 2c 4b 25 2d 6f 25  |y%+g%*.._%,K%-o%|
00003220  2b 30 2e 32 2a 67 25 2a  b5 b2 5f 25 3a df 52 79  |+0.2*g%*.._%:.Ry|
00003230  25 2b 52 25 2a 9b b2 5f  25 2c 4b 25 2d 6f 25 2b  |%+R%*.._%,K%-o%+|
00003240  30 2e 32 2a 52 25 2a b5  b2 5f 25 3a df 42 59 30  |0.2*R%*.._%:.BY0|
00003250  2c 2d 6d 25 3a df 52 79  25 2b 67 25 2a 9b b2 5f  |,-m%:.Ry%+g%*.._|
00003260  25 2c 4b 25 2d 6f 25 2d  6d 25 3a df 52 79 25 2b  |%,K%-o%-m%:.Ry%+|
00003270  67 25 2a 9b b2 5f 25 2c  4b 25 2d 6f 25 2b 30 2e  |g%*.._%,K%-o%+0.|
00003280  32 2a 67 25 2a b5 b2 5f  25 3a c8 99 26 34 30 30  |2*g%*.._%:..&400|
00003290  43 41 2c 2c 4a 25 b8 71  75 25 3a ce 3a e1 0d 01  |CA,,J%.qu%:.:...|
000032a0  2d 3b dd f2 42 4a ea 41  25 2c 43 25 2c 52 69 25  |-;..BJ.A%,C%,Ri%|
000032b0  2c 56 5f 25 2c 7a 5f 25  2c 76 61 25 3a 52 69 25  |,V_%,z_%,va%:Ri%|
000032c0  3d a4 47 79 3a 56 5f 25  3d 74 25 3a 7a 5f 25 3d  |=.Gy:V_%=t%:z_%=|
000032d0  76 25 3a c8 8e 74 4a 25  ca 0d 01 2e 0f c9 51 75  |v%:..tJ%......Qu|
000032e0  25 3a c8 8e 21 55 25 ca  0d 01 2f 06 c9 30 0d 01  |%:..!U%.../..0..|
000032f0  30 16 c9 31 3a f2 73 28  55 79 25 2c 62 79 25 2c  |0..1:.s(Uy%,by%,|
00003300  46 79 25 29 0d 01 31 f3  c9 32 3a 21 55 25 3d 2d  |Fy%)..1..2:!U%=-|
00003310  31 3a 55 25 21 34 3d 4e  4a 25 3a c8 99 26 34 30  |1:U%!4=NJ%:..&40|
00003320  30 43 45 2c 2c 55 25 3a  21 4a 25 3d 41 79 25 3a  |0CE,,U%:!J%=Ay%:|
00003330  c8 99 26 34 30 30 43 42  2c 2c 4a 25 3a 4a 25 21  |..&400CB,,J%:J%!|
00003340  34 3d 55 25 21 31 36 2d  28 4a 25 21 26 43 2d 4a  |4=U%!16-(J%!&C-J|
00003350  25 21 34 29 3a 4a 25 21  26 43 3d 55 25 21 31 36  |%!4):J%!&C=U%!16|
00003360  3a 4a 25 21 31 36 3d 26  38 38 2b 28 4a 25 21 31  |:J%!16=&88+(J%!1|
00003370  36 2d 4a 25 21 38 29 3a  4a 25 21 32 38 3d 2d 31  |6-J%!8):J%!28=-1|
00003380  3a c8 99 26 34 30 30 43  35 2c 2c 4a 25 3a f2 41  |:..&400C5,,J%:.A|
00003390  28 41 79 25 2c 32 2c a4  51 28 55 79 25 2c 62 79  |(Ay%,2,.Q(Uy%,by|
000033a0  25 2c 46 79 25 2c 2d 31  29 29 3a 50 5f 25 3d 55  |%,Fy%,-1)):P_%=U|
000033b0  79 25 3a 4e 5f 25 3d 62  79 25 3a 51 5f 25 3d 46  |y%:N_%=by%:Q_%=F|
000033c0  79 25 3a 41 25 3d a4 66  3a 74 5f 25 3d 41 25 3e  |y%:A%=.f:t_%=A%>|
000033d0  26 42 3a 41 25 3d 41 25  83 26 43 3a 41 25 2d 3d  |&B:A%=A%.&C:A%-=|
000033e0  26 43 2a 28 41 25 3d 30  29 3a f2 41 28 41 79 25  |&C*(A%=0):.A(Ay%|
000033f0  2c 34 2c c3 41 25 29 0d  01 32 2e e7 74 5f 25 8c  |,4,.A%)..2..t_%.|
00003400  f2 41 28 41 79 25 2c 37  2c a4 41 28 22 70 6d 22  |.A(Ay%,7,.A("pm"|
00003410  29 29 8b f2 41 28 41 79  25 2c 37 2c a4 41 28 22  |))..A(Ay%,7,.A("|
00003420  61 6d 22 29 29 0d 01 33  4f 41 25 3d a4 69 3a f2  |am"))..3OA%=.i:.|
00003430  41 28 41 79 25 2c 35 2c  c4 32 2d a9 c3 41 25 2c  |A(Ay%,5,.2-..A%,|
00003440  22 30 22 29 2b c3 41 25  29 3a c8 99 36 2c 26 41  |"0")+.A%):..6,&A|
00003450  31 2c 26 44 43 b8 2c 2c  41 25 3a f2 5a 28 41 79  |1,&DC.,,A%:.Z(Ay|
00003460  25 2c 31 2c 94 28 28 41  25 80 26 38 30 29 3d 26  |%,1,.((A%.&80)=&|
00003470  38 30 29 29 0d 01 34 20  c9 33 3a ff 22 46 69 6c  |80))..4 .3:."Fil|
00003480  65 72 5f 52 75 6e 20 22  2b 4a 24 2b 22 2e 21 48  |er_Run "+J$+".!H|
00003490  65 6c 70 22 0d 01 35 11  c9 34 3a e7 59 79 25 3d  |elp"..5..4:.Yy%=|
000034a0  30 8c f2 52 79 0d 01 36  09 c9 35 3a f2 74 0d 01  |0..Ry..6..5:.t..|
000034b0  37 0d c9 36 3a 44 75 25  3d a4 75 0d 01 38 05 cb  |7..6:Du%=.u..8..|
000034c0  0d 01 39 16 c9 54 25 28  74 25 29 3a f2 63 75 28  |..9..T%(t%):.cu(|
000034d0  55 25 2c 74 25 29 0d 01  3a 16 c9 64 5f 25 3a f2  |U%,t%)..:..d_%:.|
000034e0  4c 79 28 2d 31 2c 21 55  25 2c 30 29 0d 01 3b 0f  |Ly(-1,!U%,0)..;.|
000034f0  c9 46 6c 25 3a c8 8e 69  4a 25 ca 0d 01 3c 24 c9  |.Fl%:..iJ%...<$.|
00003500  66 25 3a 68 4a 25 3d 21  55 25 3a e7 21 55 25 3e  |f%:hJ%=!U%:.!U%>|
00003510  30 8c 43 25 3d 21 55 25  8b 43 25 3d 6d 5f 25 0d  |0.C%=!U%.C%=m_%.|
00003520  01 3d 1c e3 41 25 3d 31  36 b8 31 38 3a f2 55 28  |.=..A%=16.18:.U(|
00003530  66 25 2c 41 25 2c 43 25  29 3a ed 0d 01 3e 25 c9  |f%,A%,C%):...>%.|
00003540  48 79 25 3a 6f 6c 25 3d  21 55 25 3a e7 21 55 25  |Hy%:ol%=!U%:.!U%|
00003550  3d 30 8c 41 25 3d 44 4a  25 8b 41 25 3d 21 55 25  |=0.A%=DJ%.A%=!U%|
00003560  0d 01 3f 10 f2 55 28 48  79 25 2c 34 2c 41 25 29  |..?..U(Hy%,4,A%)|
00003570  0d 01 40 05 cb 0d 01 41  15 c9 75 75 25 3a f2 50  |..@....A..uu%:.P|
00003580  4a 28 5f 5f 25 2c 21 55  25 29 0d 01 42 42 c9 6f  |J(__%,!U%)..BB.o|
00003590  4a 25 3a 51 25 28 30 29  3d 21 55 25 3a f2 6f 28  |J%:Q%(0)=!U%:.o(|
000035a0  41 25 28 36 29 2c 31 38  2c 51 25 28 29 29 3a f2  |A%(6),18,Q%()):.|
000035b0  48 28 6f 4a 25 2c 30 2c  2d 31 29 3a f2 4a 28 6f  |H(oJ%,0,-1):.J(o|
000035c0  4a 25 2c 51 25 28 30 29  2c 2d 31 29 0d 01 43 0c  |J%,Q%(0),-1)..C.|
000035d0  7f 3a c8 8e 69 4a 25 ca  0d 01 44 11 c9 41 25 28  |.:..iJ%...D..A%(|
000035e0  36 29 3a c8 8e 5f 5f 25  ca 0d 01 45 17 c9 32 2c  |6):..__%...E..2,|
000035f0  33 2c 34 2c 35 3a e7 55  25 21 34 3c 3e 2d 31 8c  |3,4,5:.U%!4<>-1.|
00003600  0d 01 46 2c e7 21 55 25  3d 30 8c f2 55 28 69 4a  |..F,.!U%=0..U(iJ|
00003610  25 2c 5f 5f 25 2c 55 25  21 34 29 8b f2 62 28 69  |%,__%,U%!4)..b(i|
00003620  4a 25 2c 5f 5f 25 2c 55  25 21 34 29 0d 01 47 05  |J%,__%,U%!4)..G.|
00003630  cd 0d 01 48 3e c9 39 2c  26 41 2c 26 42 2c 26 43  |...H>.9,&A,&B,&C|
00003640  2c 26 44 2c 26 45 2c 26  46 3a 58 25 28 5f 5f 25  |,&D,&E,&F:X%(__%|
00003650  2d 39 29 3d 21 55 25 3a  f2 44 28 69 4a 25 2c 32  |-9)=!U%:.D(iJ%,2|
00003660  34 2c 2d 36 34 2c 26 42  38 2c 2d 26 44 30 29 0d  |4,-64,&B8,-&D0).|
00003670  01 49 4e c9 32 30 2c 32  31 3a 51 25 28 5f 5f 25  |.IN.20,21:Q%(__%|
00003680  2d 31 39 29 3d 21 55 25  3a f2 6f 28 41 25 28 36  |-19)=!U%:.o(A%(6|
00003690  29 2c 31 38 2c 51 25 28  29 29 3a f2 48 28 42 79  |),18,Q%()):.H(By|
000036a0  25 2c 30 2c 2d 31 29 3a  f2 4a 28 42 79 25 2c 51  |%,0,-1):.J(By%,Q|
000036b0  25 28 5f 5f 25 2d 31 39  29 2c 2d 31 29 0d 01 4a  |%(__%-19),-1)..J|
000036c0  05 cb 0d 01 4b 10 c9 59  79 25 3a f2 55 4a 28 55  |....K..Yy%:.UJ(U|
000036d0  25 29 0d 01 4c 17 c9 66  25 2c 4c 79 25 3a f2 69  |%)..L..f%,Ly%:.i|
000036e0  79 28 74 4a 25 2c 55 25  29 0d 01 4d 10 7f f2 72  |y(tJ%,U%)..M...r|
000036f0  4a 28 74 4a 25 2c 55 25  29 0d 01 4e 05 cb 0d 01  |J(tJ%,U%)..N....|
00003700  4f 20 cb 3a e7 52 69 25  8c f2 43 28 74 4a 25 2c  |O .:.Ri%..C(tJ%,|
00003710  2d 31 2c 2d 31 2c 69 4a  25 2c 5f 5f 25 29 0d 01  |-1,-1,iJ%,__%)..|
00003720  50 09 f2 51 79 3a e1 0d  01 51 3b dd f2 43 28 4d  |P..Qy:...Q;..C(M|
00003730  79 25 2c 5f 25 2c 51 25  2c 73 25 2c 53 79 25 29  |y%,_%,Q%,s%,Sy%)|
00003740  ea 41 25 3a e7 28 4d 79  25 3d 51 75 25 84 4d 79  |.A%:.(My%=Qu%.My|
00003750  25 3d 54 25 28 74 25 29  29 80 4d 79 25 3c 3e 2d  |%=T%(t%)).My%<>-|
00003760  31 8c 0d 01 52 42 f2 4a  28 5a 6c 25 2c 30 2c 73  |1...RB.J(Zl%,0,s|
00003770  79 25 3d 31 29 3a f2 4a  28 5a 6c 25 2c 31 2c 73  |y%=1):.J(Zl%,1,s|
00003780  79 25 3d 32 29 3a e3 41  25 3d 30 b8 33 3a f2 4b  |y%=2):.A%=0.3:.K|
00003790  28 59 69 25 2c 41 25 2c  2d 28 42 4a 25 3c 3d 30  |(Yi%,A%,-(BJ%<=0|
000037a0  29 29 3a ed 0d 01 53 35  cd 3a c8 99 26 34 30 30  |)):...S5.:..&400|
000037b0  44 34 2c 2c 4d 79 25 2c  5f 25 2d 36 34 2c 51 25  |D4,,My%,_%-64,Q%|
000037c0  3a 74 4a 25 3d 4d 79 25  3a 69 4a 25 3d 73 25 3a  |:tJ%=My%:iJ%=s%:|
000037d0  5f 5f 25 3d 53 79 25 3a  e1 0d 01 54 3a dd f2 60  |__%=Sy%:...T:..`|
000037e0  4a 28 65 25 2c 77 25 2c  43 79 25 29 ea 7a 5f 25  |J(e%,w%,Cy%).z_%|
000037f0  2c 76 61 25 2c 41 25 2c  42 25 3a 56 5f 25 3d 74  |,va%,A%,B%:V_%=t|
00003800  25 3a 7a 5f 25 3d 76 25  3a 6b 25 3d a3 3a c8 8e  |%:z_%=v%:k%=.:..|
00003810  65 25 ca 0d 01 55 16 c9  69 25 3a 6b 25 3d a4 79  |e%...U..i%:k%=.y|
00003820  79 28 77 25 2c 43 79 25  29 0d 01 56 07 c9 2d 31  |y(w%,Cy%)..V..-1|
00003830  0d 01 57 1e c9 49 5f 25  2c 59 79 25 3a 6b 25 3d  |..W..I_%,Yy%:k%=|
00003840  a4 6a 79 28 65 25 2c 77  25 2c 43 79 25 29 0d 01  |.jy(e%,w%,Cy%)..|
00003850  58 16 7f 6b 25 3d a4 43  5f 28 65 25 2c 77 25 2c  |X..k%=.C_(e%,w%,|
00003860  43 79 25 29 0d 01 59 0c  cb 3a e7 6b 25 3d a3 8c  |Cy%)..Y..:.k%=..|
00003870  0d 01 5a 0f 6b 25 3d b9  3a c8 8e 43 79 25 ca 0d  |..Z.k%=.:..Cy%..|
00003880  01 5b 12 c9 32 37 3a e7  59 79 25 3c 3e 30 8c f2  |.[..27:.Yy%<>0..|
00003890  68 0d 01 5c 22 c9 33 38  35 3a ff 22 46 69 6c 65  |h..\".385:."File|
000038a0  72 5f 52 75 6e 20 22 2b  4a 24 2b 22 2e 21 48 65  |r_Run "+J$+".!He|
000038b0  6c 70 22 0d 01 5d 13 c9  33 38 36 3a e7 59 79 25  |lp"..]..386:.Yy%|
000038c0  3d 30 8c f2 52 79 0d 01  5e 0b c9 33 38 37 3a f2  |=0..Ry..^..387:.|
000038d0  74 0d 01 5f 13 c9 38 31  2d 36 35 2b 31 3a 44 75  |t.._..81-65+1:Du|
000038e0  25 3d a4 75 0d 01 60 09  7f 6b 25 3d a3 0d 01 61  |%=.u..`..k%=...a|
000038f0  36 cb 3a e7 43 79 25 3e  3d 34 30 31 80 43 79 25  |6.:.Cy%>=401.Cy%|
00003900  3c 3d 34 30 30 2b 69 79  25 8c 74 25 3d 43 79 25  |<=400+iy%.t%=Cy%|
00003910  2d 34 30 30 3a 76 25 3d  53 25 28 74 25 29 3a 6b  |-400:v%=S%(t%):k|
00003920  25 3d b9 0d 01 62 1b cd  3a f2 51 79 3a e7 ac 6b  |%=...b..:.Qy:..k|
00003930  25 8c c8 99 26 34 30 30  44 43 2c 43 79 25 0d 01  |%...&400DC,Cy%..|
00003940  63 05 e1 0d 01 64 1d dd  f2 71 28 41 24 29 e7 41  |c....d...q(A$).A|
00003950  24 3c 3e 22 22 8c 42 24  2b 3d 41 24 2b bd 26 44  |$<>"".B$+=A$+.&D|
00003960  0d 01 65 05 e1 0d 01 66  52 dd f2 69 75 3a c8 99  |..e....fR..iu:..|
00003970  26 34 30 30 44 33 2c 2c  55 25 3a e7 21 55 25 3c  |&400D3,,U%:.!U%<|
00003980  3e 69 25 80 21 55 25 3c  3e 60 25 80 5a 25 28 74  |>i%.!U%<>`%.Z%(t|
00003990  25 29 3d 32 80 21 55 25  3c 3e 2d 31 8c c8 99 26  |%)=2.!U%<>-1...&|
000039a0  34 30 30 44 43 2c 97 c0  42 24 2c 31 29 3a 42 24  |400DC,..B$,1):B$|
000039b0  3d c1 42 24 2c 32 29 0d  01 67 05 e1 0d 01 68 97  |=.B$,2)..g....h.|
000039c0  dd f2 68 4a 3a f2 42 28  22 59 6f 75 20 61 72 65  |..hJ:.B("You are|
000039d0  20 61 62 6f 75 74 20 74  6f 20 67 65 74 20 61 20  | about to get a |
000039e0  6d 65 73 73 61 67 65 20  66 72 6f 6d 20 74 68 65  |message from the|
000039f0  20 61 75 74 68 6f 72 20  6f 66 20 21 4f 72 67 61  | author of !Orga|
00003a00  6e 69 73 65 72 2c 20 70  6c 65 61 73 65 20 72 65  |niser, please re|
00003a10  61 64 20 69 74 2c 20 69  74 20 77 69 6c 6c 20 62  |ad it, it will b|
00003a20  65 20 77 6f 72 74 68 20  79 6f 75 72 20 77 68 69  |e worth your whi|
00003a30  6c 65 21 22 29 3a ff 22  46 69 6c 65 72 5f 52 75  |le!"):."Filer_Ru|
00003a40  6e 20 22 2b 4a 24 2b 22  2e 4e 65 77 55 73 65 72  |n "+J$+".NewUser|
00003a50  22 3a e1 0d 01 69 26 dd  f2 57 5f 3a 21 4a 25 3d  |":...i&..W_:!J%=|
00003a60  5a 75 25 3a c8 99 26 34  30 30 43 33 2c 2c 4a 25  |Zu%:..&400C3,,J%|
00003a70  3a 65 75 25 3d 2d 31 3a  e1 0d 01 6a 36 dd f2 59  |:eu%=-1:...j6..Y|
00003a80  79 3a 60 4a 25 3d b9 3a  f2 5f 79 28 30 2c 30 2c  |y:`J%=.:._y(0,0,|
00003a90  30 2c 30 2c 30 2c a3 2c  a3 29 3a f2 64 28 30 29  |0,0,0,.,.):.d(0)|
00003aa0  3a 60 4a 25 3d a3 3a 58  4a 25 3d 2d 31 3a e1 0d  |:`J%=.:XJ%=-1:..|
00003ab0  01 6b 2c dd f2 44 5f 28  71 69 25 2c 65 25 2c 5f  |.k,..D_(qi%,e%,_|
00003ac0  25 2c 51 25 2c 54 6c 25  2c 5a 69 25 2c 4d 69 25  |%,Q%,Tl%,Zi%,Mi%|
00003ad0  29 3a e7 4d 75 25 80 56  79 25 8c 0d 01 6c 5f 58  |):.Mu%.Vy%...l_X|
00003ae0  4a 25 3d 65 25 3a 78 5f  25 3d 71 69 25 3a 42 6c  |J%=e%:x_%=qi%:Bl|
00003af0  25 3d 5f 25 3a 48 6c 25  3d 51 25 3a 48 75 25 3d  |%=_%:Hl%=Q%:Hu%=|
00003b00  54 6c 25 3a 72 6c 25 3d  5a 69 25 3a 66 6c 25 3d  |Tl%:rl%=Zi%:fl%=|
00003b10  4d 69 25 3a 21 4a 25 3d  32 30 3a 4a 25 21 26 43  |Mi%:!J%=20:J%!&C|
00003b20  3d 30 3a c8 99 26 34 30  30 45 37 2c 30 2c 4a 25  |=0:..&400E7,0,J%|
00003b30  2c 73 75 25 3a 60 4a 25  3d b9 0d 01 6d 29 cc f2  |,su%:`J%=...m)..|
00003b40  5f 79 28 71 69 25 2c 65  25 2c 5f 25 2c 51 25 2c  |_y(qi%,e%,_%,Q%,|
00003b50  54 6c 25 2c 5a 69 25 2c  4d 69 25 29 3a 58 4a 25  |Tl%,Zi%,Mi%):XJ%|
00003b60  3d 2d 31 0d 01 6e 07 cd  3a e1 0d 01 6f 3a dd f2  |=-1..n..:...o:..|
00003b70  56 75 3a f2 5f 79 28 78  5f 25 2c 58 4a 25 2c 42  |Vu:._y(x_%,XJ%,B|
00003b80  6c 25 2c 48 6c 25 2c 48  75 25 2c 72 6c 25 2c 66  |l%,Hl%,Hu%,rl%,f|
00003b90  6c 25 29 3a e7 58 4a 25  3d 60 25 8c f2 4d 28 60  |l%):.XJ%=`%..M(`|
00003ba0  25 2c 39 29 0d 01 70 12  58 4a 25 3d 2d 31 3a 60  |%,9)..p.XJ%=-1:`|
00003bb0  4a 25 3d a3 3a e1 0d 01  71 e9 dd f2 52 79 3a ea  |J%=.:...q...Ry:.|
00003bc0  41 25 2c 73 25 2c 62 25  2c 41 24 3a 41 25 3d 41  |A%,s%,b%,A$:A%=A|
00003bd0  25 28 31 29 3a f2 5a 28  41 25 2c 31 2c 2d 73 5f  |%(1):.Z(A%,1,-s_|
00003be0  25 29 3a f2 5a 28 41 25  2c 32 2c 2d 67 75 25 29  |%):.Z(A%,2,-gu%)|
00003bf0  3a f2 5a 28 41 25 2c 33  2c 2d 64 75 25 29 3a f2  |:.Z(A%,3,-du%):.|
00003c00  5a 28 41 25 2c 34 2c 2d  4d 75 25 29 3a f2 5a 28  |Z(A%,4,-Mu%):.Z(|
00003c10  41 25 2c 37 2c 2d 28 28  71 79 25 80 39 29 3d 30  |A%,7,-((qy%.9)=0|
00003c20  29 29 3a f2 5a 28 41 25  2c 38 2c 2d 28 28 71 79  |)):.Z(A%,8,-((qy|
00003c30  25 80 34 29 3e 30 29 29  3a f2 5a 28 41 25 2c 39  |%.4)>0)):.Z(A%,9|
00003c40  2c 2d 28 28 71 79 25 80  35 29 3d 31 29 29 3a f2  |,-((qy%.5)=1)):.|
00003c50  5a 28 41 25 2c 32 32 2c  2d 28 28 71 79 25 80 38  |Z(A%,22,-((qy%.8|
00003c60  29 3d 38 29 29 3a f2 5a  28 41 25 2c 32 33 2c 2d  |)=8)):.Z(A%,23,-|
00003c70  28 78 4a 25 3d 2d 31 29  29 3a f2 5a 28 41 25 2c  |(xJ%=-1)):.Z(A%,|
00003c80  26 41 2c 2d 28 28 71 79  25 80 32 29 3e 30 29 29  |&A,-((qy%.2)>0))|
00003c90  3a f2 5a 28 41 25 2c 26  42 2c 2d 72 5f 25 29 0d  |:.Z(A%,&B,-r_%).|
00003ca0  01 72 fa f2 5a 28 41 25  2c 32 34 2c 2d 28 28 71  |.r..Z(A%,24,-((q|
00003cb0  79 25 80 31 36 29 3d 31  36 29 29 3a f2 41 28 41  |y%.16)=16)):.A(A|
00003cc0  25 2c 32 35 2c 4e 24 29  3a f2 5a 28 41 25 2c 26  |%,25,N$):.Z(A%,&|
00003cd0  46 2c 2d 46 75 25 29 3a  f2 5a 28 41 25 2c 31 36  |F,-Fu%):.Z(A%,16|
00003ce0  2c 2d 53 75 25 29 3a f2  5a 28 41 25 2c 26 45 2c  |,-Su%):.Z(A%,&E,|
00003cf0  2d 28 65 4a 25 3d 2d 31  29 29 3a f2 5a 28 41 25  |-(eJ%=-1)):.Z(A%|
00003d00  2c 31 39 2c 2d 28 65 4a  25 3c 3e 2d 31 29 29 3a  |,19,-(eJ%<>-1)):|
00003d10  f2 5a 28 41 25 2c 32 30  2c 2d 28 75 5f 25 3d 2d  |.Z(A%,20,-(u_%=-|
00003d20  31 29 29 3a f2 5a 28 41  25 2c 32 31 2c 2d ac 28  |1)):.Z(A%,21,-.(|
00003d30  46 4a 25 29 29 3a f2 53  28 41 25 2c 26 42 2c 94  |FJ%)):.S(A%,&B,.|
00003d40  ac 28 a4 4d 28 41 25 2c  39 29 80 ac a4 4d 28 41  |.(.M(A%,9)...M(A|
00003d50  25 2c 32 34 29 29 29 3a  f2 53 28 41 25 2c 26 41  |%,24))):.S(A%,&A|
00003d60  2c 94 ac 28 a4 4d 28 41  25 2c 38 29 84 28 a4 4d  |,..(.M(A%,8).(.M|
00003d70  28 41 25 2c 39 29 80 ac  a4 4d 28 41 25 2c 32 34  |(A%,9)...M(A%,24|
00003d80  29 29 29 29 3a f2 53 28  41 25 2c 32 34 2c 94 ac  |)))):.S(A%,24,..|
00003d90  a4 4d 28 41 25 2c 39 29  29 0d 01 73 da f2 53 28  |.M(A%,9))..s..S(|
00003da0  41 25 2c 32 35 2c 94 ac  28 a4 4d 28 41 25 2c 39  |A%,25,..(.M(A%,9|
00003db0  29 80 a4 4d 28 41 25 2c  32 34 29 29 29 3a e3 73  |)..M(A%,24))):.s|
00003dc0  25 3d 5f 4a 25 2d 31 b8  30 88 2d 31 3a 41 24 2b  |%=_J%-1.0.-1:A$+|
00003dd0  3d c3 28 28 4b 75 25 3e  3e 73 25 29 80 31 29 3a  |=.((Ku%>>s%).1):|
00003de0  ed 3a f2 41 28 41 25 2c  31 38 2c 41 24 29 3a f2  |.:.A(A%,18,A$):.|
00003df0  41 28 41 25 2c 32 37 2c  5f 24 29 3a f2 41 28 41  |A(A%,27,_$):.A(A|
00003e00  25 2c 26 44 2c 44 24 29  3a f2 42 75 3a 21 4a 25  |%,&D,D$):.Bu:!J%|
00003e10  3d 49 5f 25 3a c8 99 26  34 30 30 43 42 2c 2c 4a  |=I_%:..&400CB,,J|
00003e20  25 3a 73 25 3d 4a 25 21  26 43 2d 4a 25 21 34 3a  |%:s%=J%!&C-J%!4:|
00003e30  62 25 3d 4a 25 21 31 36  2d 4a 25 21 38 3a 4a 25  |b%=J%!16-J%!8:J%|
00003e40  21 34 3d 28 a4 64 2d 73  25 29 2f 32 3a 4a 25 21  |!4=(.d-s%)/2:J%!|
00003e50  31 36 3d a4 65 2d 28 a4  65 2d 62 25 29 2f 32 3a  |16=.e-(.e-b%)/2:|
00003e60  c8 99 26 34 30 30 43 35  2c 2c 4a 25 3a f2 77 79  |..&400C5,,J%:.wy|
00003e70  28 31 29 0d 01 74 61 58  25 28 29 3d 50 25 28 29  |(1)..taX%()=P%()|
00003e80  3a 51 25 28 29 3d 48 25  28 29 3a f2 6f 28 41 25  |:Q%()=H%():.o(A%|
00003e90  28 36 29 2c 31 38 2c 48  25 28 29 29 3a e3 41 25  |(6),18,H%()):.A%|
00003ea0  3d 32 b8 35 3a f2 62 28  41 25 28 36 29 2c 41 25  |=2.5:.b(A%(6),A%|
00003eb0  2c 44 25 28 41 25 2d 31  29 29 3a f2 55 28 41 25  |,D%(A%-1)):.U(A%|
00003ec0  28 36 29 2c 41 25 2c 49  25 28 41 25 2d 31 29 29  |(6),A%,I%(A%-1))|
00003ed0  3a ed 3a e1 0d 01 75 db  dd f2 75 79 3a ea 41 25  |:.:...u...uy:.A%|
00003ee0  2c 43 25 2c 41 24 3a 41  25 3d 41 25 28 31 29 3a  |,C%,A$:A%=A%(1):|
00003ef0  42 25 3d 71 79 25 3a 73  5f 25 3d a4 4d 28 41 25  |B%=qy%:s_%=.M(A%|
00003f00  2c 31 29 3a 67 75 25 3d  a4 4d 28 41 25 2c 32 29  |,1):gu%=.M(A%,2)|
00003f10  3a 64 75 25 3d a4 4d 28  41 25 2c 33 29 3a 4d 75  |:du%=.M(A%,3):Mu|
00003f20  25 3d a4 4d 28 41 25 2c  34 29 3a 44 24 3d a4 5a  |%=.M(A%,4):D$=.Z|
00003f30  28 41 25 2c 26 44 29 3a  72 5f 25 3d a4 4d 28 41  |(A%,&D):r_%=.M(A|
00003f40  25 2c 26 42 29 3a 71 79  25 3d 2d a4 4d 28 41 25  |%,&B):qy%=-.M(A%|
00003f50  2c 39 29 2d 35 2a a4 4d  28 41 25 2c 38 29 2d 38  |,9)-5*.M(A%,8)-8|
00003f60  2a a4 4d 28 41 25 2c 32  32 29 2d 32 2a a4 4d 28  |*.M(A%,22)-2*.M(|
00003f70  41 25 2c 26 41 29 2d 31  36 2a a4 4d 28 41 25 2c  |A%,&A)-16*.M(A%,|
00003f80  32 34 29 3a 46 75 25 3d  a4 4d 28 41 25 2c 26 46  |24):Fu%=.M(A%,&F|
00003f90  29 3a 53 75 25 3d a4 4d  28 41 25 2c 31 36 29 3a  |):Su%=.M(A%,16):|
00003fa0  f2 7a 4a 28 ac a4 4d 28  41 25 2c 32 31 29 29 0d  |.zJ(..M(A%,21)).|
00003fb0  01 76 33 65 4a 25 3d a4  4d 28 41 25 2c 26 45 29  |.v3eJ%=.M(A%,&E)|
00003fc0  3a 78 4a 25 3d a4 4d 28  41 25 2c 32 33 29 3a 4e  |:xJ%=.M(A%,23):N|
00003fd0  24 3d a4 5a 28 41 25 2c  32 35 29 3a e7 ac 65 4a  |$=.Z(A%,25):..eJ|
00003fe0  25 8c 0d 01 77 3d 21 4a  25 3d 69 25 3a c8 99 26  |%...w=!J%=i%:..&|
00003ff0  34 30 30 43 42 2c 2c 4a  25 3a 61 75 25 3d 4a 25  |400CB,,J%:au%=J%|
00004000  21 34 3a 63 6c 25 3d 4a  25 21 38 3a 77 6c 25 3d  |!4:cl%=J%!8:wl%=|
00004010  4a 25 21 26 43 3a 78 75  25 3d 4a 25 21 31 36 0d  |J%!&C:xu%=J%!16.|
00004020  01 78 29 cd 3a 43 25 3d  a4 4d 28 41 25 2c 32 30  |.x).:C%=.M(A%,20|
00004030  29 3a e7 43 25 3c 3e 75  5f 25 8c 75 5f 25 3d 43  |):.C%<>u_%.u_%=C|
00004040  25 8b 75 5f 25 3d 43 25  0d 01 79 58 5f 4a 25 3d  |%.u_%=C%..yX_J%=|
00004050  a9 a4 5a 28 41 25 2c 31  38 29 3a 4b 75 25 3d a0  |..Z(A%,18):Ku%=.|
00004060  28 22 25 22 2b a4 5a 28  41 25 2c 31 38 29 29 3a  |("%"+.Z(A%,18)):|
00004070  50 25 28 29 3d 58 25 28  29 3a 48 25 28 29 3d 51  |P%()=X%():H%()=Q|
00004080  25 28 29 3a 41 24 3d a4  5a 28 41 25 2c 32 37 29  |%():A$=.Z(A%,27)|
00004090  3a e7 41 24 3c 3e 5f 24  8c f2 47 75 28 41 24 29  |:.A$<>_$..Gu(A$)|
000040a0  0d 01 7a 53 e3 41 25 3d  32 b8 35 3a 44 25 28 41  |..zS.A%=2.5:D%(A|
000040b0  25 2d 31 29 3d a4 70 28  41 25 28 36 29 2c 41 25  |%-1)=.p(A%(6),A%|
000040c0  29 3a 49 25 28 41 25 2d  31 29 3d a4 71 28 41 25  |):I%(A%-1)=.q(A%|
000040d0  28 36 29 2c 41 25 29 3a  ed 3a f2 54 75 3a e7 56  |(6),A%):.:.Tu:.V|
000040e0  79 25 8c 70 79 25 3d 30  3a f2 4f 3a f2 77 5f 3a  |y%.py%=0:.O:.w_:|
000040f0  f2 70 79 0d 01 7b 14 4d  4a 25 3d 30 3a f2 6d 3a  |.py..{.MJ%=0:.m:|
00004100  f2 75 3a f2 6d 3a e1 0d  01 7c 5e dd f2 47 75 28  |.u:.m:...|^..Gu(|
00004110  41 24 29 3a 7a 25 3d ae  22 3c 4f 72 67 61 6e 69  |A$):z%=."<Organi|
00004120  73 65 72 24 44 69 72 3e  2e 52 65 73 6f 75 72 63  |ser$Dir>.Resourc|
00004130  65 73 2e 21 4c 61 6e 67  75 61 67 65 22 3a d5 23  |es.!Language":.#|
00004140  7a 25 2c 41 24 3a d9 23  7a 25 3a 7a 25 3d 30 3a  |z%,A$:.#z%:z%=0:|
00004150  f2 42 28 a4 41 28 22 45  72 72 52 65 6c 6f 61 64  |.B(.A("ErrReload|
00004160  22 29 29 3a e1 0d 01 7d  29 dd f2 77 79 28 49 25  |")):...})..wy(I%|
00004170  29 3a e7 59 79 25 3c 3e  30 8c 21 4a 25 3d 59 79  |):.Yy%<>0.!J%=Yy|
00004180  25 3a c8 99 26 34 30 30  43 36 2c 2c 4a 25 0d 01  |%:..&400C6,,J%..|
00004190  7e f2 21 4a 25 3d 49 5f  25 3a c8 99 26 34 30 30  |~.!J%=I_%:..&400|
000041a0  43 42 2c 2c 4a 25 3a 59  79 25 3d 41 25 28 49 25  |CB,,J%:Yy%=A%(I%|
000041b0  29 3a 21 4a 25 3d 59 79  25 3a 4a 25 21 34 2b 3d  |):!J%=Yy%:J%!4+=|
000041c0  32 32 3a 4a 25 21 31 36  2d 3d 37 30 3a 4a 25 21  |22:J%!16-=70:J%!|
000041d0  38 3d 4a 25 21 31 36 2d  32 37 32 3a c8 99 26 34  |8=J%!16-272:..&4|
000041e0  30 30 43 35 2c 2c 4a 25  3a 21 4a 25 3d 49 5f 25  |00C5,,J%:!J%=I_%|
000041f0  3a 4a 25 21 34 3d 26 42  3a 4a 25 21 38 3d 31 3c  |:J%!4=&B:J%!8=1<|
00004200  3c 32 33 3a 4a 25 21 26  43 3d 31 3c 3c 32 33 3a  |<23:J%!&C=1<<23:|
00004210  c8 99 26 34 30 30 43 44  2c 2c 4a 25 3a 4a 25 21  |..&400CD,,J%:J%!|
00004220  34 3d 4a 25 21 38 38 2d  31 3a c8 99 26 34 30 30  |4=J%!88-1:..&400|
00004230  43 34 2c 2c 4a 25 3a 4a  25 21 34 3d 49 25 3a c8  |C4,,J%:J%!4=I%:.|
00004240  99 26 34 30 30 43 45 2c  2c 4a 25 3a 4a 25 21 34  |.&400CE,,J%:J%!4|
00004250  3d 4a 25 21 38 2b 34 3a  4a 25 21 38 3d 4a 25 21  |=J%!8+4:J%!8=J%!|
00004260  26 43 2d 38 3a 4a 25 21  26 43 3d 4a 25 21 31 36  |&C-8:J%!&C=J%!16|
00004270  2d 34 3a 4a 25 21 31 36  3d 4a 25 21 38 2b 26 43  |-4:J%!16=J%!8+&C|
00004280  0d 01 7f 51 4a 25 21 32  30 3d 26 31 37 30 30 30  |...QJ%!20=&17000|
00004290  30 32 31 3a 4a 25 3f 32  34 3d 30 3a c8 99 26 34  |021:J%?24=0:..&4|
000042a0  30 30 43 32 2c 2c 4a 25  b8 49 25 3a 4a 25 21 34  |00C2,,J%.I%:J%!4|
000042b0  3d 49 25 3a 4a 25 21 38  3d 30 3a 4a 25 21 26 43  |=I%:J%!8=0:J%!&C|
000042c0  3d 30 3a c8 99 26 34 30  30 43 44 2c 2c 4a 25 3a  |=0:..&400CD,,J%:|
000042d0  e1 0d 01 80 7a dd f2 79  4a 3a 21 4a 25 3d 59 79  |....z..yJ:!J%=Yy|
000042e0  25 3a c8 99 26 34 30 30  43 42 2c 2c 4a 25 3a 4a  |%:..&400CB,,J%:J|
000042f0  25 21 34 3d 55 25 21 34  2b 32 32 3a 4a 25 21 31  |%!4=U%!4+22:J%!1|
00004300  36 3d 55 25 21 31 36 2d  37 30 3a 4a 25 21 38 3d  |6=U%!16-70:J%!8=|
00004310  4a 25 21 31 36 2d 32 37  32 3a 4a 25 21 32 38 3d  |J%!16-272:J%!28=|
00004320  55 25 21 32 38 3a c8 99  26 34 30 30 43 35 2c 2c  |U%!28:..&400C5,,|
00004330  4a 25 3a 55 25 21 32 38  3d 59 79 25 3a c8 99 26  |J%:U%!28=Yy%:..&|
00004340  34 30 30 43 35 2c 2c 55  25 3a e1 0d 01 81 1e dd  |400C5,,U%:......|
00004350  f2 4e 75 28 65 25 2c 77  25 2c 6e 25 2c 5f 25 2c  |.Nu(e%,w%,n%,_%,|
00004360  51 25 29 3a c8 8e 65 25  ca 0d 01 82 0e c9 49 5f  |Q%):..e%......I_|
00004370  25 3a c8 8e 77 25 ca 0d  01 83 18 c9 31 2c 32 2c  |%:..w%......1,2,|
00004380  33 2c 34 2c 35 2c 36 3a  f2 77 79 28 77 25 29 0d  |3,4,5,6:.wy(w%).|
00004390  01 84 09 c9 38 3a f2 68  0d 01 85 1b c9 39 3a f2  |....8:.h.....9:.|
000043a0  75 79 3a 65 79 25 3d 2d  31 3a e7 6e 25 3c 3e 31  |uy:ey%=-1:.n%<>1|
000043b0  8c f2 68 0d 01 86 18 c9  26 41 3a f2 75 79 3a f2  |..h.....&A:.uy:.|
000043c0  74 3a e7 6e 25 3c 3e 31  8c f2 68 0d 01 87 05 cb  |t:.n%<>1..h.....|
000043d0  0d 01 88 10 c9 41 25 28  31 29 3a c8 8e 77 25 ca  |.....A%(1):..w%.|
000043e0  0d 01 89 28 c9 26 46 3a  e7 6e 25 3c 26 41 80 6e  |...(.&F:.n%<&A.n|
000043f0  25 3c 3e 32 8c f2 42 28  a4 41 28 22 45 72 72 52  |%<>2..B(.A("ErrR|
00004400  65 6c 6f 61 64 22 29 29  0d 01 8a 1b c9 37 2c 38  |eload")).....7,8|
00004410  2c 39 2c 32 32 2c 26 45  2c 31 39 3a e7 6e 25 3c  |,9,22,&E,19:.n%<|
00004420  3e 32 8c 0d 01 8b 94 f2  5a 28 65 25 2c 77 25 2c  |>2......Z(e%,w%,|
00004430  31 29 3a f2 53 28 65 25  2c 26 42 2c 94 ac 28 a4  |1):.S(e%,&B,..(.|
00004440  4d 28 65 25 2c 39 29 80  ac a4 4d 28 65 25 2c 32  |M(e%,9)...M(e%,2|
00004450  34 29 29 29 3a f2 53 28  65 25 2c 26 41 2c 94 ac  |4))):.S(e%,&A,..|
00004460  28 a4 4d 28 65 25 2c 38  29 84 28 a4 4d 28 65 25  |(.M(e%,8).(.M(e%|
00004470  2c 39 29 80 ac a4 4d 28  65 25 2c 32 34 29 29 29  |,9)...M(e%,24)))|
00004480  29 3a f2 53 28 65 25 2c  32 34 2c 94 ac a4 4d 28  |):.S(e%,24,...M(|
00004490  65 25 2c 39 29 29 3a f2  53 28 65 25 2c 32 35 2c  |e%,9)):.S(e%,25,|
000044a0  94 ac 28 a4 4d 28 65 25  2c 39 29 80 a4 4d 28 65  |..(.M(e%,9)..M(e|
000044b0  25 2c 32 34 29 29 29 0d  01 8c 05 cd 0d 01 8d 47  |%,24)))........G|
000044c0  c9 32 34 3a f2 53 28 65  25 2c 32 35 2c 94 ac a4  |.24:.S(e%,25,...|
000044d0  4d 28 65 25 2c 32 34 29  29 3a f2 53 28 65 25 2c  |M(e%,24)):.S(e%,|
000044e0  26 41 2c 94 a4 4d 28 65  25 2c 32 34 29 29 3a f2  |&A,..M(e%,24)):.|
000044f0  53 28 65 25 2c 26 42 2c  94 a4 4d 28 65 25 2c 32  |S(e%,&B,..M(e%,2|
00004500  34 29 29 0d 01 8e 15 c9  32 37 3a f2 4b 5f 28 41  |4)).....27:.K_(A|
00004510  25 28 31 29 2c 32 37 29  0d 01 8f 05 cb 0d 01 90  |%(1),27)........|
00004520  3b c9 41 25 28 36 29 3a  21 55 25 3d 65 25 3a c8  |;.A%(6):!U%=e%:.|
00004530  99 26 34 30 30 43 42 2c  2c 55 25 3a 5f 25 3d 55  |.&400CB,,U%:_%=U|
00004540  25 21 34 3a 51 25 3d 55  25 21 31 36 2d 55 25 21  |%!4:Q%=U%!16-U%!|
00004550  32 34 3a c8 8e 77 25 ca  0d 01 91 48 c9 32 2c 33  |24:..w%....H.2,3|
00004560  2c 34 2c 35 3a 21 4d 6c  25 3d a4 69 79 28 41 25  |,4,5:!Ml%=.iy(A%|
00004570  28 36 29 2c 77 25 29 3a  f2 43 28 4d 6c 25 2c 5f  |(6),w%):.C(Ml%,_|
00004580  25 2b 37 35 30 2b 36 34  2c 51 25 2d 26 36 34 2d  |%+750+64,Q%-&64-|
00004590  34 38 2a 28 77 25 2d 32  29 2c 65 25 2c 77 25 29  |48*(w%-2),e%,w%)|
000045a0  0d 01 92 62 c9 39 2c 26  41 2c 26 42 2c 26 43 2c  |...b.9,&A,&B,&C,|
000045b0  26 44 2c 26 45 2c 26 46  3a f2 48 28 42 79 25 2c  |&D,&E,&F:.H(By%,|
000045c0  30 2c 2d 31 29 3a f2 4a  28 42 79 25 2c 58 25 28  |0,-1):.J(By%,X%(|
000045d0  77 25 2d 39 29 2c 2d 31  29 3a f2 43 28 42 79 25  |w%-9),-1):.C(By%|
000045e0  2c 5f 25 2b 34 37 30 2b  36 34 2c 51 25 2d 26 36  |,_%+470+64,Q%-&6|
000045f0  34 2d 34 38 2a 28 77 25  2d 39 29 2c 65 25 2c 77  |4-48*(w%-9),e%,w|
00004600  25 29 0d 01 93 53 c9 31  39 3a f2 48 28 6f 4a 25  |%)...S.19:.H(oJ%|
00004610  2c 30 2c 2d 31 29 3a f2  4a 28 6f 4a 25 2c 51 25  |,0,-1):.J(oJ%,Q%|
00004620  28 77 25 2d 31 39 29 2c  2d 31 29 3a f2 43 28 6f  |(w%-19),-1):.C(o|
00004630  4a 25 2c 5f 25 2b 35 37  38 2b 36 34 2c 51 25 2d  |J%,_%+578+64,Q%-|
00004640  35 34 30 2d 34 38 2a 28  77 25 2d 31 39 29 2c 65  |540-48*(w%-19),e|
00004650  25 2c 77 25 29 0d 01 94  56 c9 32 30 2c 32 31 3a  |%,w%)...V.20,21:|
00004660  f2 48 28 42 79 25 2c 30  2c 2d 31 29 3a f2 4a 28  |.H(By%,0,-1):.J(|
00004670  42 79 25 2c 51 25 28 77  25 2d 31 39 29 2c 2d 31  |By%,Q%(w%-19),-1|
00004680  29 3a f2 43 28 42 79 25  2c 5f 25 2b 35 37 38 2b  |):.C(By%,_%+578+|
00004690  36 34 2c 51 25 2d 35 34  30 2d 34 38 2a 28 77 25  |64,Q%-540-48*(w%|
000046a0  2d 31 39 29 2c 65 25 2c  77 25 29 0d 01 95 05 cb  |-19),e%,w%).....|
000046b0  0d 01 96 18 7f f2 61 4a  28 65 25 2c 77 25 2c 6e  |......aJ(e%,w%,n|
000046c0  25 2c 5f 25 2c 51 25 29  0d 01 97 07 cb 3a e1 0d  |%,_%,Q%).....:..|
000046d0  01 98 18 dd a4 6a 79 28  65 25 2c 77 25 2c 6e 25  |.....jy(e%,w%,n%|
000046e0  29 3a c8 8e 65 25 ca 0d  01 99 13 c9 49 5f 25 2c  |):..e%......I_%,|
000046f0  41 25 28 31 29 3a 6b 25  3d a3 0d 01 9a 15 7f 6b  |A%(1):k%=......k|
00004700  25 3d a4 46 5f 28 65 25  2c 77 25 2c 6e 25 29 0d  |%=.F_(e%,w%,n%).|
00004710  01 9b 09 cb 3a 3d 6b 25  0d 01 9c 2c dd f2 68 3a  |....:=k%...,..h:|
00004720  f2 47 28 59 79 25 29 3a  59 79 25 3d 30 3a f2 47  |.G(Yy%):Yy%=0:.G|
00004730  28 49 5f 25 29 3a e7 56  79 25 8c f2 4d 28 69 25  |(I_%):.Vy%..M(i%|
00004740  2c 2d 31 29 0d 01 9d 05  e1 0d 01 9e 81 dd f2 4b  |,-1)...........K|
00004750  5f 28 73 25 2c 53 79 25  29 3a ea 4c 6c 25 2c 75  |_(s%,Sy%):.Ll%,u|
00004760  24 2c 50 79 25 2c 52 24  2c 61 24 2c 63 24 2c 67  |$,Py%,R$,a$,c$,g|
00004770  25 3a 4c 6c 25 3d 31 3a  75 24 3d a4 5a 28 73 25  |%:Ll%=1:u$=.Z(s%|
00004780  2c 53 79 25 29 3a f5 3a  c8 99 26 43 2c 39 2c 22  |,Sy%):.:..&C,9,"|
00004790  3c 4f 72 67 61 6e 69 73  65 72 24 44 69 72 3e 2e  |<Organiser$Dir>.|
000047a0  52 65 73 6f 75 72 63 65  73 22 2c 55 25 2c 31 2c  |Resources",U%,1,|
000047b0  4c 6c 25 2c 32 35 36 2c  30 b8 2c 2c 2c 67 25 2c  |Ll%,256,0.,,,g%,|
000047c0  4c 6c 25 3a e7 67 25 3d  31 8c 0d 01 9f 1a 61 24  |Ll%:.g%=1.....a$|
000047d0  3d a4 4e 28 55 25 29 3a  e7 63 24 3d 22 22 8c 63  |=.N(U%):.c$="".c|
000047e0  24 3d 61 24 0d 01 a0 10  e7 50 79 25 3d b9 8c 52  |$=a$.....Py%=..R|
000047f0  24 3d 61 24 0d 01 a1 10  e7 61 24 3d 75 24 8c 50  |$=a$.....a$=u$.P|
00004800  79 25 3d b9 0d 01 a2 21  cd 3a fd 4c 6c 25 3d 2d  |y%=....!.:.Ll%=-|
00004810  31 84 52 24 3c 3e 22 22  3a e7 52 24 3d 22 22 8c  |1.R$<>"":.R$="".|
00004820  52 24 3d 63 24 0d 01 a3  13 f2 41 28 73 25 2c 53  |R$=c$.....A(s%,S|
00004830  79 25 2c 52 24 29 3a e1  0d 01 a4 bb dd f2 41 79  |y%,R$):.......Ay|
00004840  28 63 25 2c 72 25 2c 51  25 2c 73 25 2c 53 79 25  |(c%,r%,Q%,s%,Sy%|
00004850  29 3a ea 4d 25 2c 41 25  3a 52 69 25 3d a3 3a f2  |):.M%,A%:Ri%=.:.|
00004860  41 28 61 79 25 2c 30 2c  a4 4d 79 28 63 25 2c 72  |A(ay%,0,.My(c%,r|
00004870  25 2c 51 25 2c 2d 31 29  29 3a 4d 25 3d a4 58 28  |%,Q%,-1)):M%=.X(|
00004880  72 25 2c 51 25 29 3a e3  41 25 3d 32 39 b8 33 31  |r%,Q%):.A%=29.31|
00004890  3a f2 5f 28 61 79 25 2c  41 25 2b 33 2c 2d 28 41  |:._(ay%,A%+3,-(A|
000048a0  25 3e 4d 25 29 29 3a ed  3a e3 41 25 3d 31 b8 4d  |%>M%)):.:.A%=1.M|
000048b0  25 3a f2 67 28 41 25 2c  41 25 3d 63 25 29 3a ed  |%:.g(A%,A%=c%):.|
000048c0  3a 48 4a 25 3d 72 25 3a  f2 41 28 61 79 25 2c 31  |:HJ%=r%:.A(ay%,1|
000048d0  2c c3 51 25 29 3a f2 78  28 61 79 25 2c 2d 31 2c  |,.Q%):.x(ay%,-1,|
000048e0  31 29 3a 41 61 25 3d 73  25 3a 56 61 25 3d 53 79  |1):Aa%=s%:Va%=Sy|
000048f0  25 3a e1 0d 01 a5 24 dd  f2 72 79 3a ea 64 25 2c  |%:....$..ry:.d%,|
00004900  71 25 2c 78 25 2c 41 24  3a f2 47 28 61 79 25 29  |q%,x%,A$:.G(ay%)|
00004910  3a c8 8e 41 61 25 ca 0d  01 a6 28 c9 66 25 3a f2  |:..Aa%....(.f%:.|
00004920  41 28 66 25 2c 31 2c a4  6a 28 57 5f 25 2c 43 5f  |A(f%,1,.j(W_%,C_|
00004930  25 2c 62 5f 25 29 29 3a  f2 59 28 30 2c 30 29 0d  |%,b_%)):.Y(0,0).|
00004940  01 a7 39 c9 54 25 28 a4  50 28 33 29 29 3a 41 24  |..9.T%(.P(3)):A$|
00004950  3d a4 6a 28 64 25 2c 71  25 2c 78 25 29 3a 56 5f  |=.j(d%,q%,x%):V_|
00004960  25 3d 74 25 3a 7a 5f 25  3d 76 25 3a f2 49 28 64  |%=t%:z_%=v%:.I(d|
00004970  25 2c 71 25 2c 78 25 29  0d 01 a8 22 c9 41 79 25  |%,q%,x%)...".Ay%|
00004980  3a f2 41 28 41 79 25 2c  32 2c a4 6a 28 50 5f 25  |:.A(Ay%,2,.j(P_%|
00004990  2c 4e 5f 25 2c 51 5f 25  29 29 0d 01 a9 07 cb 3a  |,N_%,Q_%)).....:|
000049a0  e1 0d 01 aa 5c dd f2 67  28 63 25 2c 46 25 29 3a  |....\..g(c%,F%):|
000049b0  21 4a 25 3d 61 79 25 3a  4a 25 21 34 3d 63 25 2b  |!J%=ay%:J%!4=c%+|
000049c0  33 3a c8 99 26 34 30 30  43 45 2c 2c 4a 25 3a 24  |3:..&400CE,,J%:$|
000049d0  4a 25 21 33 32 3d 22 52  22 2b c3 28 31 2d 46 25  |J%!32="R"+.(1-F%|
000049e0  29 2b 22 3b 46 22 2b c3  28 31 2d 46 25 29 2b 22  |)+";F"+.(1-F%)+"|
000049f0  37 22 3a e7 46 25 8c 59  75 25 3d 63 25 0d 01 ab  |7":.F%.Yu%=c%...|
00004a00  37 e7 47 61 25 8c 4a 25  21 38 3d 30 3a 4a 25 21  |7.Ga%.J%!8=0:J%!|
00004a10  26 43 3d 30 8b 4a 25 21  38 3d 28 31 2b 94 28 46  |&C=0.J%!8=(1+.(F|
00004a20  25 29 29 3c 3c 32 38 3a  4a 25 21 26 43 3d 26 46  |%))<<28:J%!&C=&F|
00004a30  3c 3c 32 38 0d 01 ac 12  c8 99 26 34 30 30 43 44  |<<28......&400CD|
00004a40  2c 2c 4a 25 3a e1 0d 01  ad 3b dd f2 4c 79 28 63  |,,J%:....;..Ly(c|
00004a50  25 2c 72 25 2c 47 79 25  29 3a ea 41 25 2c 4d 25  |%,r%,Gy%):.A%,M%|
00004a60  2c 51 25 2c 41 24 3a e7  63 25 3c 3e 2d 31 8c f2  |,Q%,A$:.c%<>-1..|
00004a70  67 28 59 75 25 2c a3 29  3a f2 67 28 63 25 2c b9  |g(Yu%,.):.g(c%,.|
00004a80  29 0d 01 ae 35 e7 72 25  3c 3e 2d 31 8c f2 4a 28  |)...5.r%<>-1..J(|
00004a90  64 5f 25 2c 48 4a 25 2d  31 2c a3 29 3a 48 4a 25  |d_%,HJ%-1,.):HJ%|
00004aa0  3d 21 55 25 2b 31 3a f2  4a 28 64 5f 25 2c 48 4a  |=!U%+1:.J(d_%,HJ|
00004ab0  25 2d 31 2c b9 29 0d 01  af 4c e7 47 79 25 3c 3e  |%-1,.)...L.Gy%<>|
00004ac0  30 8c 51 25 3d bb a4 5a  28 61 79 25 2c 31 29 2b  |0.Q%=..Z(ay%,1)+|
00004ad0  47 79 25 3a e7 51 25 3e  3d 26 37 37 64 80 51 25  |Gy%:.Q%>=&77d.Q%|
00004ae0  3c 3d 26 66 66 66 8c f2  41 28 61 79 25 2c 31 2c  |<=&fff..A(ay%,1,|
00004af0  c3 51 25 29 8b 51 25 3d  bb a4 5a 28 61 79 25 2c  |.Q%).Q%=..Z(ay%,|
00004b00  31 29 0d 01 b0 4e 4d 25  3d a4 58 28 48 4a 25 2c  |1)...NM%=.X(HJ%,|
00004b10  51 25 29 3a e3 41 25 3d  32 39 b8 33 31 3a f2 5f  |Q%):.A%=29.31:._|
00004b20  28 61 79 25 2c 41 25 2b  33 2c 2d 28 41 25 3e 4d  |(ay%,A%+3,-(A%>M|
00004b30  25 29 29 3a ed 3a e7 59  75 25 3e 4d 25 8c f2 67  |%)):.:.Yu%>M%..g|
00004b40  28 59 75 25 2c a3 29 3a  f2 67 28 4d 25 2c b9 29  |(Yu%,.):.g(M%,.)|
00004b50  0d 01 b1 22 f2 41 28 61  79 25 2c 30 2c a4 4d 79  |...".A(ay%,0,.My|
00004b60  28 59 75 25 2c 48 4a 25  2c 51 25 2c 2d 31 29 29  |(Yu%,HJ%,Q%,-1))|
00004b70  3a e1 0d 01 b2 41 dd a4  6a 28 f8 63 25 2c f8 72  |:....A..j(.c%,.r|
00004b80  25 2c f8 51 25 29 3a 63  25 3d 59 75 25 3a 72 25  |%,.Q%):c%=Yu%:r%|
00004b90  3d 48 4a 25 3a 51 25 3d  bb a4 5a 28 61 79 25 2c  |=HJ%:Q%=..Z(ay%,|
00004ba0  31 29 3a 3d a4 51 28 63  25 2c 72 25 2c 51 25 2c  |1):=.Q(c%,r%,Q%,|
00004bb0  2d 31 29 0d 01 b3 3a dd  a4 4d 79 28 63 25 2c 72  |-1)...:..My(c%,r|
00004bc0  25 2c 51 25 2c 52 79 25  29 3a ea 41 24 3a 41 24  |%,Q%,Ry%):.A$:A$|
00004bd0  3d a4 51 28 63 25 2c 72  25 2c 51 25 2c 52 79 25  |=.Q(c%,r%,Q%,Ry%|
00004be0  29 3a 3d c0 41 24 2c a9  41 24 2d 35 29 0d 01 b4  |):=.A$,.A$-5)...|
00004bf0  2f dd f2 50 79 3a ea 4e  75 25 2c 50 6c 25 2c 4c  |/..Py:.Nu%,Pl%,L|
00004c00  4a 25 2c 4b 4a 25 2c 5a  61 25 2c 6c 25 2c 62 25  |J%,KJ%,Za%,l%,b%|
00004c10  3a 6d 4a 25 3d 30 3a e7  78 4a 25 8c 0d 01 b5 f6  |:mJ%=0:.xJ%.....|
00004c20  6c 25 3d a4 7a 3a 62 25  3d a4 66 3a 50 6c 25 3d  |l%=.z:b%=.f:Pl%=|
00004c30  4a 25 28 30 2c 31 29 3a  4e 75 25 3d 4a 25 28 30  |J%(0,1):Nu%=J%(0|
00004c40  2c 33 29 3a 4e 75 25 2b  3d 4a 25 28 30 2c 32 29  |,3):Nu%+=J%(0,2)|
00004c50  2d a4 48 28 4e 75 25 2c  50 6c 25 2c 46 79 25 29  |-.H(Nu%,Pl%,Fy%)|
00004c60  3a 4b 4a 25 3d 4a 25 28  31 2c 31 29 3a 4c 4a 25  |:KJ%=J%(1,1):LJ%|
00004c70  3d 4a 25 28 31 2c 33 29  3a 4c 4a 25 2b 3d 4a 25  |=J%(1,3):LJ%+=J%|
00004c80  28 31 2c 32 29 2d a4 48  28 4c 4a 25 2c 4b 4a 25  |(1,2)-.H(LJ%,KJ%|
00004c90  2c 46 79 25 29 3a 64 6c  25 3d a4 46 28 30 2c 31  |,Fy%):dl%=.F(0,1|
00004ca0  2c 4e 75 25 2c 50 6c 25  2c 46 79 25 29 3a 67 6c  |,Nu%,Pl%,Fy%):gl|
00004cb0  25 3d a4 46 28 30 2c 32  2c 4c 4a 25 2c 4b 4a 25  |%=.F(0,2,LJ%,KJ%|
00004cc0  2c 46 79 25 29 3a 5a 61  25 3d 28 a4 47 28 64 6c  |,Fy%):Za%=(.G(dl|
00004cd0  25 2c 6c 25 29 3c 31 80  a4 47 28 6c 25 2c 67 6c  |%,l%)<1..G(l%,gl|
00004ce0  25 29 3c 31 29 3a e7 a4  44 28 4e 75 25 2c 50 6c  |%)<1):..D(Nu%,Pl|
00004cf0  25 2c 46 79 25 29 3d a4  44 28 55 79 25 2c 62 79  |%,Fy%)=.D(Uy%,by|
00004d00  25 2c 46 79 25 29 80 ac  a4 79 8c 6d 4a 25 3d 64  |%,Fy%)...y.mJ%=d|
00004d10  6c 25 0d 01 b6 2f e7 a4  44 28 4c 4a 25 2c 4b 4a  |l%.../..D(LJ%,KJ|
00004d20  25 2c 46 79 25 29 3d a4  44 28 55 79 25 2c 62 79  |%,Fy%)=.D(Uy%,by|
00004d30  25 2c 46 79 25 29 80 a4  79 8c 6d 4a 25 3d 67 6c  |%,Fy%)..y.mJ%=gl|
00004d40  25 0d 01 b7 56 e7 5a 61  25 3c 3e a4 79 80 a4 44  |%...V.Za%<>.y..D|
00004d50  28 4e 75 25 2c 50 6c 25  2c 46 79 25 29 3c 3e a4  |(Nu%,Pl%,Fy%)<>.|
00004d60  44 28 55 79 25 2c 62 79  25 2c 46 79 25 29 80 a4  |D(Uy%,by%,Fy%)..|
00004d70  44 28 4c 4a 25 2c 4b 4a  25 2c 46 79 25 29 3c 3e  |D(LJ%,KJ%,Fy%)<>|
00004d80  a4 44 28 55 79 25 2c 62  79 25 2c 46 79 25 29 8c  |.D(Uy%,by%,Fy%).|
00004d90  f2 53 79 28 2d 31 29 0d  01 b8 07 cd 3a e1 0d 01  |.Sy(-1).....:...|
00004da0  b9 18 dd f2 67 4a 3a e7  6d 4a 25 3d 67 6c 25 8c  |....gJ:.mJ%=gl%.|
00004db0  f2 53 79 28 30 29 0d 01  ba 13 e7 6d 4a 25 3d 64  |.Sy(0).....mJ%=d|
00004dc0  6c 25 8c f2 53 79 28 31  29 0d 01 bb 09 f2 50 79  |l%..Sy(1).....Py|
00004dd0  3a e1 0d 01 bc eb dd f2  4d 4a 3a 4a 24 3d a4 74  |:.......MJ:J$=.t|
00004de0  79 28 22 4f 72 67 61 6e  69 73 65 72 24 44 69 72  |y("Organiser$Dir|
00004df0  22 29 3a 7a 25 3d 30 3a  49 75 25 3d 30 3a 42 24  |"):z%=0:Iu%=0:B$|
00004e00  3d 22 22 3a 65 79 25 3d  a3 3a 4e 69 25 3d a3 3a  |="":ey%=.:Ni%=.:|
00004e10  58 4a 25 3d 2d 31 3a 60  4a 25 3d a3 3a 54 24 3d  |XJ%=-1:`J%=.:T$=|
00004e20  4a 24 2b 22 2e 44 61 74  61 2e 22 3a 5a 5f 25 3d  |J$+".Data.":Z_%=|
00004e30  a4 75 79 28 22 3c 4f 72  67 61 6e 69 73 65 72 24  |.uy("<Organiser$|
00004e40  44 69 72 3e 2e 53 70 72  69 74 65 73 22 2c 26 37  |Dir>.Sprites",&7|
00004e50  41 43 2b 26 43 38 29 3a  de 53 61 25 33 2c 61 4a  |AC+&C8):.Sa%3,aJ|
00004e60  25 33 32 2c 47 25 28 31  29 2c 54 69 25 26 42 2c  |%32,G%(1),Ti%&B,|
00004e70  49 69 25 26 42 2c 4f 6c  25 31 3a 24 53 61 25 3d  |Ii%&B,Ol%1:$Sa%=|
00004e80  22 52 32 22 3a 47 25 28  29 3d 2d 31 3a 24 54 69  |"R2":G%()=-1:$Ti|
00004e90  25 3d 22 50 70 74 72 5f  74 75 72 6e 6c 22 2b bd  |%="Pptr_turnl"+.|
00004ea0  30 3a 24 49 69 25 3d 22  50 70 74 72 5f 74 75 72  |0:$Ii%="Pptr_tur|
00004eb0  6e 72 22 2b bd 30 3a 3f  4f 6c 25 3d 30 0d 01 bd  |nr"+.0:?Ol%=0...|
00004ec0  6e de 44 25 28 35 29 2c  49 25 28 35 29 2c 42 25  |n.D%(5),I%(5),B%|
00004ed0  28 35 29 2c 57 25 28 35  29 2c 53 25 28 35 29 2c  |(5),W%(5),S%(5),|
00004ee0  5a 25 28 35 29 2c 4d 24  28 35 29 3a de 50 25 28  |Z%(5),M$(5):.P%(|
00004ef0  37 29 2c 58 25 28 37 29  2c 48 25 28 32 29 2c 51  |7),X%(7),H%(2),Q|
00004f00  25 28 32 29 3a 41 24 3d  a4 77 79 3a 6c 4a 25 3d  |%(2):A$=.wy:lJ%=|
00004f10  a3 3a e7 a7 41 24 2c 22  2d 64 65 6c 65 74 65 5f  |.:..A$,"-delete_|
00004f20  61 6c 6c 5f 64 61 74 61  22 29 8c 0d 01 be 1a e7  |all_data")......|
00004f30  a4 42 79 28 a4 41 28 22  45 72 72 53 75 72 65 22  |.By(.A("ErrSure"|
00004f40  29 2c b9 29 8c 0d 01 bf  23 f2 42 28 a4 41 28 22  |),.)....#.B(.A("|
00004f50  45 72 72 43 68 61 6e 67  65 22 29 29 3a 6c 4a 25  |ErrChange")):lJ%|
00004f60  3d b9 3a 65 79 25 3d b9  0d 01 c0 05 cd 0d 01 c1  |=.:ey%=.........|
00004f70  41 cd 3a f2 50 5f 3a f2  49 4a 3a f2 7a 75 3a f2  |A.:.P_:.IJ:.zu:.|
00004f80  6c 79 3a 4e 4a 25 3d 2d  31 3a f2 6d 3a 77 5f 25  |ly:NJ%=-1:.m:w_%|
00004f90  3d a4 6c 28 31 2a 26 34  30 30 29 3a f2 71 5f 28  |=.l(1*&400):.q_(|
00004fa0  77 5f 25 2c 52 75 25 29  3a e7 73 5f 25 8c 0d 01  |w_%,Ru%):.s_%...|
00004fb0  c2 17 e7 71 79 25 3d 31  8c f2 53 28 2d 31 2c 4e  |...qy%=1..S(-1,N|
00004fc0  4a 25 2c 31 29 0d 01 c3  0a f2 64 28 ac 31 29 0d  |J%,1).....d(.1).|
00004fd0  01 c4 0d cc c8 99 26 34  30 36 43 30 0d 01 c5 07  |......&406C0....|
00004fe0  cd 3a e1 0d 01 c6 23 dd  f2 48 75 3a f2 64 4a 3a  |.:....#..Hu:.dJ:|
00004ff0  76 25 3d 53 25 28 74 25  29 3a e7 50 75 25 8c f2  |v%=S%(t%):.Pu%..|
00005000  4a 5f 3a f2 50 79 0d 01  c7 23 49 75 25 3d b9 3a  |J_:.Py...#Iu%=.:|
00005010  f2 78 28 69 25 2c 2d 31  2c 2d 31 29 3a e7 ac 67  |.x(i%,-1,-1):..g|
00005020  75 25 8c f2 47 28 69 25  29 0d 01 c8 15 f2 62 79  |u%..G(i%).....by|
00005030  28 74 25 29 3a e7 71 79  25 3e 31 8c f2 75 0d 01  |(t%):.qy%>1..u..|
00005040  c9 17 e7 71 79 25 80 31  8c f2 53 28 2d 31 2c 4e  |...qy%.1..S(-1,N|
00005050  4a 25 2c 30 29 0d 01 ca  1d e7 64 75 25 8c f2 78  |J%,0).....du%..x|
00005060  28 5a 75 25 2c 2d 31 2c  2d 31 29 8b 65 75 25 3d  |(Zu%,-1,-1).eu%=|
00005070  2d 31 0d 01 cb 12 e7 ac  73 5f 25 8c c8 99 26 34  |-1......s_%...&4|
00005080  30 36 43 31 0d 01 cc 0c  f2 63 3a f2 50 79 3a e1  |06C1.....c:.Py:.|
00005090  0d 01 cd 35 dd a4 50 28  58 75 25 29 3a ea 41 25  |...5..P(Xu%):.A%|
000050a0  3a 41 25 3d 69 79 25 2b  31 3a f5 41 25 2d 3d 31  |:A%=iy%+1:.A%-=1|
000050b0  3a fd 5a 25 28 41 25 29  3d 58 75 25 84 41 25 3d  |:.Z%(A%)=Xu%.A%=|
000050c0  30 3a 3d 41 25 0d 01 ce  eb dd f2 74 5f 3a ea 41  |0:=A%......t_:.A|
000050d0  24 2c 53 25 3a de 54 25  28 69 79 25 29 3a 42 79  |$,S%:.T%(iy%):By|
000050e0  25 3d a4 43 79 28 a4 41  28 22 43 6f 6c 73 22 29  |%=.Cy(.A("Cols")|
000050f0  29 3a 64 5f 25 3d a4 43  28 22 4d 6f 6e 22 2c 22  |):d_%=.C("Mon","|
00005100  4d 6f 6e 22 2c 31 2c 26  43 29 3a f2 79 79 28 64  |Mon",1,&C):.yy(d|
00005110  5f 25 2c 30 2c 2d 31 29  3a e3 53 25 3d 31 b8 69  |_%,0,-1):.S%=1.i|
00005120  79 25 3a 54 25 28 53 25  29 3d a4 4b 79 28 53 25  |y%:T%(S%)=.Ky(S%|
00005130  29 3a ed 3a 51 75 25 3d  a4 43 28 22 54 69 74 6c  |):.:Qu%=.C("Titl|
00005140  65 22 2c 22 4d 65 6e 75  22 2c 31 2c 37 29 3a f2  |e","Menu",1,7):.|
00005150  7a 28 51 75 25 2c 30 2c  6e 75 25 29 3a 4d 6c 25  |z(Qu%,0,nu%):Ml%|
00005160  3d a4 43 28 22 54 61 62  4d 22 2c 22 54 61 62 4d  |=.C("TabM","TabM|
00005170  22 2c 31 2c 32 29 3a f2  7a 28 4d 6c 25 2c 30 2c  |",1,2):.z(Ml%,0,|
00005180  42 79 25 29 3a f2 7a 28  4d 6c 25 2c 31 2c 42 79  |By%):.z(Ml%,1,By|
00005190  25 29 3a 6f 4a 25 3d a4  43 28 22 42 6f 72 64 4d  |%):oJ%=.C("BordM|
000051a0  22 2c 22 42 6f 72 64 4d  22 2c 31 2c 35 29 3a e1  |","BordM",1,5):.|
000051b0  0d 01 cf c6 dd f2 6c 79  3a ea 41 25 2c 64 61 25  |......ly:.A%,da%|
000051c0  2c 51 61 25 3a 46 79 25  3d a4 4c 3a 62 79 25 3d  |,Qa%:Fy%=.L:by%=|
000051d0  a4 56 3a 55 79 25 3d a4  49 3a 4e 79 25 3d a4 61  |.V:Uy%=.I:Ny%=.a|
000051e0  28 6d 25 2f 69 79 25 29  3a 78 79 25 3d 26 36 34  |(m%/iy%):xy%=&64|
000051f0  2b 32 2a 28 33 36 2b 6a  25 2b 35 2b 32 30 29 3a  |+2*(36+j%+5+20):|
00005200  72 79 25 3d 6d 25 2b 32  2a 28 35 2b 32 30 29 3a  |ry%=m%+2*(5+20):|
00005210  6c 5f 25 3d 35 2b 32 30  3a 69 5f 25 3d 6c 5f 25  |l_%=5+20:i_%=l_%|
00005220  2b 33 36 2b 26 36 34 2b  32 2a 6a 25 3a 79 79 25  |+36+&64+2*j%:yy%|
00005230  3d 6c 5f 25 2b 33 36 3a  64 79 25 3d 79 79 25 2b  |=l_%+36:dy%=yy%+|
00005240  26 36 34 2b 6a 25 3a 6f  25 3d 35 2b 32 30 3a 47  |&64+j%:o%=5+20:G|
00005250  4a 25 3d 64 79 25 2d 26  36 34 3a 6a 5f 25 3d 6d  |J%=dy%-&64:j_%=m|
00005260  25 2f 32 37 3a 3a 64 4a  25 3d 6a 25 2d 34 30 2d  |%/27::dJ%=j%-40-|
00005270  32 2a 26 63 3a e1 0d 01  d0 2e dd f2 60 5f 3a ea  |2*&c:.......`_:.|
00005280  42 25 3a e7 72 79 25 3c  3e 55 25 21 31 36 2d 55  |B%:.ry%<>U%!16-U|
00005290  25 21 38 84 78 79 25 3c  3e 55 25 21 26 43 2d 55  |%!8.xy%<>U%!&C-U|
000052a0  25 21 34 8c 0d 01 d1 c9  72 79 25 3d 55 25 21 31  |%!4.....ry%=U%!1|
000052b0  36 2d 55 25 21 38 3a 78  79 25 3d 55 25 21 26 43  |6-U%!8:xy%=U%!&C|
000052c0  2d 55 25 21 34 3a 6d 25  3d 72 79 25 2d 32 2a 28  |-U%!4:m%=ry%-2*(|
000052d0  35 2b 32 30 29 3a 6a 25  3d 28 28 78 79 25 2d 26  |5+20):j%=((xy%-&|
000052e0  36 34 29 2d 32 2a 28 33  36 2b 35 2b 32 30 29 29  |64)-2*(36+5+20))|
000052f0  2f 32 3a f2 6c 79 3a c8  99 33 30 2c 36 2c 2c 2c  |/2:.ly:..30,6,,,|
00005300  79 69 25 b8 2c 2c 42 25  3a 21 42 25 3d 60 25 3a  |yi%.,,B%:!B%=`%:|
00005310  c8 99 26 34 30 30 43 43  2c 2c 42 25 3a c8 99 26  |..&400CC,,B%:..&|
00005320  34 30 30 43 33 2c 2c 42  25 3a f2 74 79 28 42 25  |400C3,,B%:.ty(B%|
00005330  21 38 38 2c 42 25 2b 34  29 3a c8 99 26 34 30 30  |!88,B%+4):..&400|
00005340  43 31 2c 2c 42 25 2b 34  b8 60 25 3a c8 99 33 30  |C1,,B%+4.`%:..30|
00005350  2c 37 2c 2c 42 25 3a e7  5a 25 28 74 25 29 3d 32  |,7,,B%:.Z%(t%)=2|
00005360  80 76 25 3d 30 8c f2 59  79 3a f2 41 5f 0d 01 d2  |.v%=0..Yy:.A_...|
00005370  1c c8 99 26 34 30 30 44  31 2c 69 25 2c 30 2c 2d  |...&400D1,i%,0,-|
00005380  72 79 25 2c 78 79 25 2c  30 0d 01 d3 07 cd 3a e1  |ry%,xy%,0.....:.|
00005390  0d 01 d4 60 dd f2 7a 75  3a ea 41 25 2c 67 24 3a  |...`..zu:.A%,g$:|
000053a0  ea 85 3a ee 85 ea f7 85  3a d9 23 7a 25 3a 7a 25  |..:.....:.#z%:z%|
000053b0  3d 30 3a f2 42 28 f6 24  2b 22 20 61 74 20 6c 69  |=0:.B(.$+" at li|
000053c0  6e 65 20 22 2b c3 9e 2b  22 2c 20 75 73 69 6e 67  |ne "+..+", using|
000053d0  20 64 65 66 61 75 6c 74  20 73 65 74 74 69 6e 67  | default setting|
000053e0  73 2e 22 29 3a f2 50 5f  3a 65 79 25 3d b9 3a e1  |s."):.P_:ey%=.:.|
000053f0  0d 01 d5 f7 7a 25 3d 8e  28 4a 24 2b 22 2e 44 61  |....z%=.(J$+".Da|
00005400  74 61 2e 53 65 74 74 69  6e 67 73 22 29 3a 6f 24  |ta.Settings"):o$|
00005410  3d be 23 7a 25 3a 67 24  3d be 23 7a 25 3a 44 24  |=.#z%:g$=.#z%:D$|
00005420  3d be 23 7a 25 3a 73 5f  25 3d a4 52 3a 67 75 25  |=.#z%:s_%=.R:gu%|
00005430  3d a4 52 3a 71 79 25 3d  a4 59 3a 72 5f 25 3d a4  |=.R:qy%=.Y:r_%=.|
00005440  52 3a 53 75 25 3d a4 52  3a 69 79 25 3d a4 59 3a  |R:Su%=.R:iy%=.Y:|
00005450  74 25 3d a4 59 3a 64 75  25 3d a4 52 3a 4d 75 25  |t%=.Y:du%=.R:Mu%|
00005460  3d a4 52 3a 78 4a 25 3d  a4 52 3a 46 75 25 3d a4  |=.R:xJ%=.R:Fu%=.|
00005470  52 3a 47 61 25 3d 46 75  25 3a 5f 4a 25 3d a4 59  |R:Ga%=Fu%:_J%=.Y|
00005480  3a e8 23 7a 25 2c 4b 75  25 2c 71 4a 25 3a e8 23  |:.#z%,Ku%,qJ%:.#|
00005490  7a 25 2c 65 4a 25 2c 61  75 25 2c 77 6c 25 2c 78  |z%,eJ%,au%,wl%,x|
000054a0  75 25 2c 63 6c 25 3a 75  5f 25 3d a4 52 3a 46 4a  |u%,cl%:u_%=.R:FJ|
000054b0  25 3d a4 52 3a e8 23 7a  25 2c 6a 25 2c 6d 25 3a  |%=.R:.#z%,j%,m%:|
000054c0  e3 41 25 3d 30 b8 36 3a  50 25 28 41 25 29 3d a4  |.A%=0.6:P%(A%)=.|
000054d0  59 3a ed 3a e3 41 25 3d  30 b8 32 3a 48 25 28 41  |Y:.:.A%=0.2:H%(A|
000054e0  25 29 3d a4 59 3a ed 0d  01 d6 83 e3 41 25 3d 31  |%)=.Y:......A%=1|
000054f0  b8 69 79 25 3a 5a 25 28  41 25 29 3d a4 59 3a 44  |.iy%:Z%(A%)=.Y:D|
00005500  25 28 41 25 29 3d a4 59  3a 49 25 28 41 25 29 3d  |%(A%)=.Y:I%(A%)=|
00005510  a4 59 3a ed 3a 4e 24 3d  be 23 7a 25 3a f5 f2 51  |.Y:.:N$=.#z%:..Q|
00005520  4a 28 be 23 7a 25 2c 7a  25 29 3a fd c5 23 7a 25  |J(.#z%,z%):..#z%|
00005530  3a d9 23 7a 25 3a 7a 25  3d 30 3a f7 85 3a 50 75  |:.#z%:z%=0:..:Pu|
00005540  25 3d 28 a4 6e 28 71 4a  25 29 3c 3e a4 6e 28 a4  |%=(.n(qJ%)<>.n(.|
00005550  7a 29 29 3a e7 6c 4a 25  8c 44 24 3d a4 41 28 22  |z)):.lJ%.D$=.A("|
00005560  59 6f 75 72 6e 61 6d 65  22 29 0d 01 d7 0f e7 67  |Yourname").....g|
00005570  24 3c 3e 4a 24 8c f2 68  4a 0d 01 d8 05 e1 0d 01  |$<>J$..hJ.......|
00005580  d9 f2 dd f2 64 5f 3a ea  41 25 3a 7a 25 3d ae 28  |....d_:.A%:z%=.(|
00005590  4a 24 2b 22 2e 44 61 74  61 2e 53 65 74 74 69 6e  |J$+".Data.Settin|
000055a0  67 73 22 29 3a d5 23 7a  25 2c 56 24 3a d5 23 7a  |gs"):.#z%,V$:.#z|
000055b0  25 2c 4a 24 3a d5 23 7a  25 2c 44 24 3a f2 57 28  |%,J$:.#z%,D$:.W(|
000055c0  73 5f 25 29 3a f2 57 28  67 75 25 29 3a f2 57 28  |s_%):.W(gu%):.W(|
000055d0  71 79 25 29 3a f2 57 28  72 5f 25 29 3a f2 57 28  |qy%):.W(r_%):.W(|
000055e0  53 75 25 29 3a f2 57 28  69 79 25 29 3a f2 57 28  |Su%):.W(iy%):.W(|
000055f0  74 25 29 3a f2 57 28 64  75 25 29 3a f2 57 28 4d  |t%):.W(du%):.W(M|
00005600  75 25 29 3a f2 57 28 78  4a 25 29 3a f2 57 28 46  |u%):.W(xJ%):.W(F|
00005610  75 25 29 3a f2 57 28 5f  4a 25 29 3a f1 23 7a 25  |u%):.W(_J%):.#z%|
00005620  2c 4b 75 25 2c a4 7a 3a  f1 23 7a 25 2c 65 4a 25  |,Ku%,.z:.#z%,eJ%|
00005630  2c 61 75 25 2c 77 6c 25  2c 78 75 25 2c 63 6c 25  |,au%,wl%,xu%,cl%|
00005640  3a f2 57 28 75 5f 25 29  3a f2 57 28 46 4a 25 29  |:.W(u_%):.W(FJ%)|
00005650  3a f1 23 7a 25 2c 6a 25  2c 6d 25 3a e3 41 25 3d  |:.#z%,j%,m%:.A%=|
00005660  30 b8 36 3a f2 57 28 50  25 28 41 25 29 29 3a ed  |0.6:.W(P%(A%)):.|
00005670  0d 01 da 67 e3 41 25 3d  30 b8 32 3a f2 57 28 48  |...g.A%=0.2:.W(H|
00005680  25 28 41 25 29 29 3a ed  3a e3 41 25 3d 31 b8 69  |%(A%)):.:.A%=1.i|
00005690  79 25 3a f2 57 28 5a 25  28 41 25 29 29 3a f2 57  |y%:.W(Z%(A%)):.W|
000056a0  28 44 25 28 41 25 29 29  3a f2 57 28 49 25 28 41  |(D%(A%)):.W(I%(A|
000056b0  25 29 29 3a ed 3a d5 23  7a 25 2c 4e 24 3a f2 4b  |%)):.:.#z%,N$:.K|
000056c0  75 28 7a 25 29 3a d9 23  7a 25 3a 7a 25 3d 30 3a  |u(z%):.#z%:z%=0:|
000056d0  65 79 25 3d a3 3a e1 0d  01 db 11 dd f2 74 3a f2  |ey%=.:.......t:.|
000056e0  64 5f 3a f2 4f 75 3a e1  0d 01 dc e7 dd f2 50 5f  |d_:.Ou:.......P_|
000056f0  3a 3a 3a 4a 5f 25 3d a3  3a 50 75 25 3d 30 3a 71  |:::J_%=.:Pu%=0:q|
00005700  79 25 3d 31 2b 32 2b 34  3a 4e 24 3d 22 25 7a 31  |y%=1+2+4:N$="%z1|
00005710  32 3a 25 6d 69 3a 25 73  65 20 25 61 6d 22 3a 48  |2:%mi:%se %am":H|
00005720  25 28 29 3d 32 2c 32 2c  37 3a 73 5f 25 3d a3 3a  |%()=2,2,7:s_%=.:|
00005730  72 5f 25 3d a3 3a 4d 75  25 3d b9 3a 53 75 25 3d  |r_%=.:Mu%=.:Su%=|
00005740  b9 3a 4d 4a 25 3d 30 3a  3a 3a 3a 3a 3a 46 75 25  |.:MJ%=0::::::Fu%|
00005750  3d a3 3a 75 5f 25 3d b9  3a 69 79 25 3d 34 3a 49  |=.:u_%=.:iy%=4:I|
00005760  25 28 29 3d 37 3a 44 25  28 29 3d 30 2c 26 42 2c  |%()=7:D%()=0,&B,|
00005770  26 41 2c 26 46 2c 39 2c  26 45 3a 50 25 28 29 3d  |&A,&F,9,&E:P%()=|
00005780  30 2c 26 46 2c 38 2c 26  42 2c 34 2c 34 2c 26 42  |0,&F,8,&B,4,4,&B|
00005790  3a 67 75 25 3d a3 3a 65  4a 25 3d 2d 31 3a 61 75  |:gu%=.:eJ%=-1:au|
000057a0  25 3d 30 3a 78 75 25 3d  30 3a 77 6c 25 3d 30 3a  |%=0:xu%=0:wl%=0:|
000057b0  63 6c 25 3d 30 3a 46 4a  25 3d a3 3a 74 25 3d 32  |cl%=0:FJ%=.:t%=2|
000057c0  3a 5a 25 28 29 3d 30 2c  31 2c 33 2c 35 2c 32 0d  |:Z%()=0,1,3,5,2.|
000057d0  01 dd 67 64 75 25 3d b9  3a 44 24 3d 22 43 68 72  |..gdu%=.:D$="Chr|
000057e0  69 73 20 4d 6f 72 69 73  6f 6e 22 3a 78 4a 25 3d  |is Morison":xJ%=|
000057f0  a3 3a 53 75 25 3d a3 3a  70 79 25 3d a3 3a 3a 3a  |.:Su%=.:py%=.:::|
00005800  3a 3a 3a 6a 25 3d 35 30  30 3a 6d 25 3d 39 32 30  |:::j%=500:m%=920|
00005810  3a 3a 3a 3a 3a 3a 3a 5f  4a 25 3d 38 3a 4b 75 25  |:::::::_J%=8:Ku%|
00005820  3d 26 45 37 3a 3a 3a 3a  50 75 25 3d a3 3a 71 4a  |=&E7::::Pu%=.:qJ|
00005830  25 3d 30 3a 3a e1 0d 01  de 12 dd a4 52 3d 28 9a  |%=0::.......R=(.|
00005840  23 7a 25 3d 26 46 46 29  0d 01 df 14 dd f2 57 28  |#z%=&FF)......W(|
00005850  41 25 29 d5 23 7a 25 2c  41 25 3a e1 0d 01 e0 0c  |A%).#z%,A%:.....|
00005860  dd a4 59 3d 9a 23 7a 25  0d 01 e1 21 dd f2 6d 3a  |..Y=.#z%...!..m:|
00005870  ea 42 25 2c 48 25 3a e7  4d 4a 25 3e 30 8c 42 25  |.B%,H%:.MJ%>0.B%|
00005880  3d 38 8b 42 25 3d 71 79  25 0d 01 e2 38 e7 4e 4a  |=8.B%=qy%...8.NJ|
00005890  25 3c 3e 2d 31 8c 21 4a  25 3d 2d 31 2d 37 2a 94  |%<>-1.!J%=-1-7*.|
000058a0  28 75 5f 25 29 3a 4a 25  21 34 3d 4e 4a 25 3a c8  |(u_%):J%!4=NJ%:.|
000058b0  99 26 34 30 30 43 34 2c  2c 4a 25 3a 55 5f 25 3d  |.&400C4,,J%:U_%=|
000058c0  30 0d 01 e3 11 c8 8e 42  25 80 ac 28 32 2b 31 36  |0......B%..(2+16|
000058d0  29 ca 0d 01 e4 0d c9 31  2c 38 3a c8 8e b9 ca 0d  |)......1,8:.....|
000058e0  01 e5 16 c9 42 25 3d 31  3a 55 5f 25 3d 36 2d 33  |....B%=1:U_%=6-3|
000058f0  2a ac 72 5f 25 0d 01 e6  16 c9 42 25 3d 33 3a 55  |*.r_%.....B%=3:U|
00005900  5f 25 3d 39 2d 33 2a ac  72 5f 25 0d 01 e7 3b c9  |_%=9-3*.r_%...;.|
00005910  28 42 25 80 38 29 3e 30  3a 55 5f 25 3d 39 3a c8  |(B%.8)>0:U_%=9:.|
00005920  99 26 34 30 30 45 43 2c  2d 31 2c 2d 31 b8 2c 2c  |.&400EC,-1,-1.,,|
00005930  48 25 3a 24 61 4a 25 3d  c3 28 48 25 81 26 34 30  |H%:$aJ%=.(H%.&40|
00005940  30 29 2b 22 6b 22 0d 01  e8 1c c9 28 42 25 80 31  |0)+"k".....(B%.1|
00005950  36 29 3e 30 3a 55 5f 25  3d a9 a4 4b 28 4e 24 29  |6)>0:U_%=..K(N$)|
00005960  2b 33 0d 01 e9 5f cb 3a  55 5f 25 3d 55 5f 25 2a  |+3..._.:U_%=U_%*|
00005970  31 36 3a 43 75 25 3d 36  38 3a 4a 25 21 38 3d 30  |16:Cu%=68:J%!8=0|
00005980  3a 4a 25 21 26 43 3d 55  5f 25 3a 4a 25 21 31 36  |:J%!&C=U_%:J%!16|
00005990  3d 43 75 25 3a 4a 25 21  32 30 3d 26 32 37 30 30  |=Cu%:J%!20=&2700|
000059a0  33 31 33 44 3a 4a 25 21  32 34 3d 61 4a 25 3a 4a  |313D:J%!24=aJ%:J|
000059b0  25 21 32 38 3d 53 61 25  3a 4a 25 21 33 32 3d 33  |%!28=Sa%:J%!32=3|
000059c0  32 0d 01 ea 6b c9 31 2b  34 3a 55 5f 25 3d 26 37  |2...k.1+4:U_%=&7|
000059d0  34 3a 43 75 25 3d 26 37  38 3a 4a 25 21 38 3d 2d  |4:Cu%=&78:J%!8=-|
000059e0  31 36 3a 4a 25 21 26 43  3d 55 5f 25 3a 4a 25 21  |16:J%!&C=U_%:J%!|
000059f0  31 36 3d 43 75 25 3a 24  61 4a 25 3d 22 63 6c 6f  |16=Cu%:$aJ%="clo|
00005a00  63 6b 22 3a 4a 25 21 32  30 3d 26 33 31 30 32 3a  |ck":J%!20=&3102:|
00005a10  4a 25 21 32 34 3d 61 4a  25 3a 4a 25 21 32 38 3d  |J%!24=aJ%:J%!28=|
00005a20  5a 5f 25 3a 4a 25 21 33  32 3d 33 32 0d 01 eb 4e  |Z_%:J%!32=32...N|
00005a30  7f 3a 55 5f 25 3d 36 38  3a 43 75 25 3d 36 38 3a  |.:U_%=68:Cu%=68:|
00005a40  4a 25 21 38 3d 30 3a 4a  25 21 26 43 3d 36 38 3a  |J%!8=0:J%!&C=68:|
00005a50  4a 25 21 31 36 3d 36 38  3a 4a 25 21 32 30 3d 26  |J%!16=68:J%!20=&|
00005a60  33 30 30 32 3a 24 28 4a  25 2b 32 34 29 3d 22 21  |3002:$(J%+24)="!|
00005a70  4f 72 67 61 6e 69 73 65  72 22 0d 01 ec 3c cb 3a  |Organiser"...<.:|
00005a80  21 4a 25 3d 2d 31 2d 94  28 37 2a 75 5f 25 29 3a  |!J%=-1-.(7*u_%):|
00005a90  4a 25 21 34 3d 30 3a c8  99 26 34 30 30 43 32 2c  |J%!4=0:..&400C2,|
00005aa0  30 2c 4a 25 b8 4e 4a 25  3a e7 28 42 25 80 34 29  |0,J%.NJ%:.(B%.4)|
00005ab0  3d 34 8c f2 46 5f 0d 01  ed 15 f2 6f 28 2d 31 2c  |=4..F_.....o(-1,|
00005ac0  4e 4a 25 2c 48 25 28 29  29 3a e1 0d 01 ee 36 dd  |NJ%,H%()):....6.|
00005ad0  f2 6f 28 65 25 2c 63 79  25 2c 4b 25 28 29 29 3a  |.o(e%,cy%,K%()):|
00005ae0  ea 67 5f 25 2c 41 25 3a  67 5f 25 3d a4 67 79 28  |.g_%,A%:g_%=.gy(|
00005af0  65 25 2c 63 79 25 29 3a  e7 67 5f 25 3c 3e 2d 31  |e%,cy%):.g_%<>-1|
00005b00  8c 0d 01 ef 71 41 25 3d  a7 a4 4e 28 67 5f 25 29  |....qA%=..N(g_%)|
00005b10  2c 22 52 22 29 3a 67 5f  25 3f 41 25 3d 97 c3 4b  |,"R"):g_%?A%=..K|
00005b20  25 28 30 29 3a f2 55 28  65 25 2c 63 79 25 2c 4b  |%(0):.U(e%,cy%,K|
00005b30  25 28 32 29 29 3a f2 62  28 65 25 2c 63 79 25 2c  |%(2)):.b(e%,cy%,|
00005b40  4b 25 28 31 29 29 3a 21  4a 25 3d 65 25 3a 4a 25  |K%(1)):!J%=e%:J%|
00005b50  21 34 3d 63 79 25 3a 4a  25 21 38 3d 30 3a 4a 25  |!4=cy%:J%!8=0:J%|
00005b60  21 26 43 3d 30 3a c8 99  26 34 30 30 43 44 2c 2c  |!&C=0:..&400CD,,|
00005b70  4a 25 0d 01 f0 07 cd 3a  e1 0d 01 f1 f2 dd f2 68  |J%.....:.......h|
00005b80  75 3a ea 41 25 2c 49 79  25 3a de 41 25 28 36 29  |u:.A%,Iy%:.A%(6)|
00005b90  3a 59 79 25 3d 30 3a f2  6d 4a 3a 6e 75 25 3d a4  |:Yy%=0:.mJ:nu%=.|
00005ba0  42 28 22 49 6e 66 6f 22  2c 49 79 25 29 3a 69 25  |B("Info",Iy%):i%|
00005bb0  3d a4 42 28 22 4d 61 69  6e 22 2c 49 79 25 29 3a  |=.B("Main",Iy%):|
00005bc0  74 69 25 3d 49 79 25 3a  60 25 3d a4 42 28 22 41  |ti%=Iy%:`%=.B("A|
00005bd0  64 64 72 65 73 73 65 73  22 2c 49 79 25 29 3a 47  |ddresses",Iy%):G|
00005be0  5f 25 3d a4 42 28 22 49  6d 70 6f 72 74 61 6e 74  |_%=.B("Important|
00005bf0  22 2c 49 79 25 29 3a 5a  75 25 3d a4 42 28 22 42  |",Iy%):Zu%=.B("B|
00005c00  61 6e 6e 65 72 22 2c 49  79 25 29 3a 61 79 25 3d  |anner",Iy%):ay%=|
00005c10  a4 42 28 22 47 65 74 44  61 74 65 22 2c 49 79 25  |.B("GetDate",Iy%|
00005c20  29 3a 49 5f 25 3d a4 42  28 22 53 65 74 75 70 22  |):I_%=.B("Setup"|
00005c30  2c 49 79 25 29 3a 66 25  3d a4 42 28 22 41 6c 61  |,Iy%):f%=.B("Ala|
00005c40  72 6d 53 65 74 22 2c 49  79 25 29 3a 51 6c 25 3d  |rmSet",Iy%):Ql%=|
00005c50  49 79 25 3a 4c 79 25 3d  a4 42 28 22 41 6c 61 72  |Iy%:Ly%=.B("Alar|
00005c60  6d 57 61 72 6e 22 2c 49  79 25 29 0d 01 f2 dc 48  |mWarn",Iy%)....H|
00005c70  79 25 3d a4 42 28 22 41  6e 6e 69 22 2c 49 79 25  |y%=.B("Anni",Iy%|
00005c80  29 3a 4e 61 25 3d 49 79  25 3a 56 4a 25 3d a4 42  |):Na%=Iy%:VJ%=.B|
00005c90  28 22 41 6e 6e 69 4e 6f  74 69 66 79 22 2c 49 79  |("AnniNotify",Iy|
00005ca0  25 29 3a 41 25 28 31 29  3d a4 42 28 22 53 65 74  |%):A%(1)=.B("Set|
00005cb0  47 65 6e 22 2c 49 79 25  29 3a 41 25 28 32 29 3d  |Gen",Iy%):A%(2)=|
00005cc0  a4 42 28 22 53 65 74 41  64 64 22 2c 49 79 25 29  |.B("SetAdd",Iy%)|
00005cd0  3a 41 25 28 33 29 3d a4  42 28 22 53 65 74 41 6e  |:A%(3)=.B("SetAn|
00005ce0  6e 22 2c 49 79 25 29 3a  41 25 28 34 29 3d a4 42  |n",Iy%):A%(4)=.B|
00005cf0  28 22 53 65 74 43 61 6c  22 2c 49 79 25 29 3a 41  |("SetCal",Iy%):A|
00005d00  25 28 35 29 3d a4 42 28  22 53 65 74 44 69 61 22  |%(5)=.B("SetDia"|
00005d10  2c 49 79 25 29 3a 41 25  28 36 29 3d a4 42 28 22  |,Iy%):A%(6)=.B("|
00005d20  53 65 74 43 6f 6c 6f 75  72 73 22 2c 49 79 25 29  |SetColours",Iy%)|
00005d30  3a 41 79 25 3d a4 42 28  22 53 65 74 43 6c 6f 63  |:Ay%=.B("SetCloc|
00005d40  6b 22 2c 49 79 25 29 0d  01 f3 b4 f2 41 28 6e 75  |k",Iy%).....A(nu|
00005d50  25 2c 38 2c 56 24 29 3a  f2 41 28 6e 75 25 2c 35  |%,8,V$):.A(nu%,5|
00005d60  2c 22 21 4f 72 67 61 6e  69 73 65 72 22 29 3a f2  |,"!Organiser"):.|
00005d70  41 28 6e 75 25 2c 36 2c  a4 41 28 22 50 75 72 70  |A(nu%,6,.A("Purp|
00005d80  22 29 29 3a f2 41 28 5a  75 25 2c 33 2c a4 41 28  |")):.A(Zu%,3,.A(|
00005d90  22 56 65 72 73 22 29 2b  22 20 22 2b 56 24 29 3a  |"Vers")+" "+V$):|
00005da0  f2 41 28 5a 75 25 2c 36  2c 22 a9 20 43 68 72 69  |.A(Zu%,6,". Chri|
00005db0  73 20 4d 6f 72 69 73 6f  6e 20 31 39 22 2b c1 56  |s Morison 19"+.V|
00005dc0  24 2c a7 56 24 2c 22 29  22 29 2d 32 2c 32 29 29  |$,.V$,")")-2,2))|
00005dd0  3a f2 41 28 5a 75 25 2c  34 2c 44 24 29 3a e3 41  |:.A(Zu%,4,D$):.A|
00005de0  25 3d 31 b8 33 31 3a f2  41 28 61 79 25 2c 41 25  |%=1.31:.A(ay%,A%|
00005df0  2b 33 2c c3 41 25 29 3a  ed 3a e1 0d 01 f4 4b dd  |+3,.A%):.:....K.|
00005e00  a4 42 28 47 24 2c f8 49  79 25 29 3a ea 48 25 2c  |.B(G$,.Iy%):.H%,|
00005e10  53 25 2c 49 25 2c 50 25  2c 74 79 25 2c 67 5f 25  |S%,I%,P%,ty%,g_%|
00005e20  3a c8 99 26 34 30 30 44  42 2c 2c 2c 30 2c 30 2c  |:..&400DB,,,0,0,|
00005e30  30 2c 47 24 2c 30 b8 2c  53 25 2c 49 25 3a e7 53  |0,G$,0.,S%,I%:.S|
00005e40  25 3e 35 31 32 8c 0d 01  f5 33 c8 99 26 32 30 30  |%>512....3..&200|
00005e50  31 45 2c 36 2c 2c 2c 53  25 b8 2c 2c 50 25 3b 74  |1E,6,,,S%.,,P%;t|
00005e60  79 25 3a e7 74 79 25 80  31 8c 85 32 2c a4 41 28  |y%:.ty%.1..2,.A(|
00005e70  22 45 72 72 57 69 6e 22  29 0d 01 f6 0a cc 50 25  |"ErrWin").....P%|
00005e80  3d 55 25 0d 01 f7 3f cd  3a de 67 5f 25 49 25 3a  |=U%...?.:.g_%I%:|
00005e90  c8 99 26 34 30 30 44 42  2c 2c 50 25 2c 67 5f 25  |..&400DB,,P%,g_%|
00005ea0  2c 67 5f 25 2b 49 25 2c  59 6c 25 2c 47 24 2c 30  |,g_%+I%,Yl%,G$,0|
00005eb0  b8 2c 2c 67 5f 25 3a e7  47 24 3d 22 4d 61 69 6e  |.,,g_%:.G$="Main|
00005ec0  22 8c 0d 01 f8 3e 50 25  21 36 38 3d 26 36 34 2b  |"....>P%!68=&64+|
00005ed0  28 26 36 34 3c 3c 31 36  29 3a 50 25 21 30 3d 30  |(&64<<16):P%!0=0|
00005ee0  3a 50 25 21 34 3d 30 3a  50 25 21 38 3d 78 79 25  |:P%!4=0:P%!8=xy%|
00005ef0  3a 50 25 21 26 43 3d 72  79 25 3a e7 46 4a 25 8c  |:P%!&C=ry%:.FJ%.|
00005f00  0d 01 f9 2a 50 25 21 34  38 3d a4 64 3a 50 25 21  |...*P%!48=.d:P%!|
00005f10  34 34 3d 2d a4 65 3a 50  25 21 32 38 3d 50 25 21  |44=-.e:P%!28=P%!|
00005f20  32 38 84 28 33 3c 3c 32  39 29 0d 01 fa 2e cc 50  |28.(3<<29).....P|
00005f30  25 21 34 38 3d 78 79 25  3a 50 25 21 34 34 3d 2d  |%!48=xy%:P%!44=-|
00005f40  72 79 25 3a 50 25 21 32  38 3d 50 25 21 32 38 80  |ry%:P%!28=P%!28.|
00005f50  ac 28 33 3c 3c 32 39 29  0d 01 fb 05 cd 0d 01 fc  |.(3<<29)........|
00005f60  18 cc 3a e7 47 24 3d 22  53 65 74 75 70 22 8c 5f  |..:.G$="Setup"._|
00005f70  61 25 3d 53 25 0d 01 fd  1a e7 47 24 3d 22 41 64  |a%=S%.....G$="Ad|
00005f80  64 72 65 73 73 65 73 22  8c 79 69 25 3d 53 25 0d  |dresses".yi%=S%.|
00005f90  01 fe 20 cd 3a e7 ac 46  75 25 80 47 24 3c 3e 22  |.. .:..Fu%.G$<>"|
00005fa0  42 61 6e 6e 65 72 22 8c  f2 59 75 28 50 25 29 0d  |Banner"..Yu(P%).|
00005fb0  01 ff 21 e7 47 24 3d 22  41 64 64 72 65 73 73 65  |..!.G$="Addresse|
00005fc0  73 22 8c f2 74 79 28 50  25 21 38 34 2c 50 25 29  |s"..ty(P%!84,P%)|
00005fd0  0d 02 00 3b 50 25 21 36  34 3d 5a 5f 25 3a c8 99  |...;P%!64=Z_%:..|
00005fe0  26 34 30 30 43 31 2c 2c  50 25 b8 63 79 25 3a 49  |&400C1,,P%.cy%:I|
00005ff0  79 25 3d 50 25 21 37 32  3a e7 53 25 3e 35 31 32  |y%=P%!72:.S%>512|
00006000  8c c8 99 33 30 2c 37 2c  2c 50 25 0d 02 01 08 3d  |...30,7,,P%....=|
00006010  63 79 25 0d 02 02 20 dd  f2 7a 4a 28 74 79 25 29  |cy%... ..zJ(ty%)|
00006020  3a ea 55 4a 25 2c 42 25  3a e7 74 79 25 3c 3e 46  |:.UJ%,B%:.ty%<>F|
00006030  4a 25 8c 0d 02 03 50 c8  99 33 30 2c 36 2c 2c 2c  |J%....P..30,6,,,|
00006040  34 2b 38 38 2b 33 32 2a  32 32 b8 2c 2c 55 4a 25  |4+88+32*22.,,UJ%|
00006050  3a 21 55 4a 25 3d 69 25  3a c8 99 26 34 30 30 43  |:!UJ%=i%:..&400C|
00006060  43 2c 2c 55 4a 25 3a 42  25 3d 55 4a 25 2b 34 3a  |C,,UJ%:B%=UJ%+4:|
00006070  c8 99 26 34 30 30 43 33  2c 2c 55 4a 25 3a e7 74  |..&400C3,,UJ%:.t|
00006080  79 25 8c 0d 02 04 2a 42  25 21 34 38 3d a4 64 3a  |y%....*B%!48=.d:|
00006090  42 25 21 34 34 3d 2d a4  65 3a 42 25 21 32 38 3d  |B%!44=-.e:B%!28=|
000060a0  42 25 21 32 38 84 28 33  3c 3c 32 39 29 0d 02 05  |B%!28.(3<<29)...|
000060b0  2e cc 42 25 21 34 38 3d  78 79 25 3a 42 25 21 34  |..B%!48=xy%:B%!4|
000060c0  34 3d 2d 72 79 25 3a 42  25 21 32 38 3d 42 25 21  |4=-ry%:B%!28=B%!|
000060d0  32 38 80 ac 28 33 3c 3c  32 39 29 0d 02 06 35 cd  |28..(3<<29)...5.|
000060e0  3a 42 25 3d 69 25 3a 46  4a 25 3d 74 79 25 3a c8  |:B%=i%:FJ%=ty%:.|
000060f0  99 26 34 30 30 43 31 2c  2c 55 4a 25 2b 34 b8 69  |.&400C1,,UJ%+4.i|
00006100  25 3a e7 78 5f 25 3d 42  25 8c 78 5f 25 3d 69 25  |%:.x_%=B%.x_%=i%|
00006110  0d 02 07 1e e7 56 79 25  8c 21 55 4a 25 3d 69 25  |.....Vy%.!UJ%=i%|
00006120  3a c8 99 26 34 30 30 43  35 2c 2c 55 4a 25 0d 02  |:..&400C5,,UJ%..|
00006130  08 0f c8 99 33 30 2c 37  2c 2c 55 4a 25 0d 02 09  |....30,7,,UJ%...|
00006140  07 cd 3a e1 0d 02 0a 1e  dd f2 4f 4a 28 60 75 25  |..:.......OJ(`u%|
00006150  2c 53 24 29 3a e7 a4 50  79 28 60 75 25 2c 53 24  |,S$):..Py(`u%,S$|
00006160  29 8c 0d 02 0b 58 c8 94  55 25 21 38 2c 55 25 21  |)....X..U%!8,U%!|
00006170  26 43 3a 21 55 25 3d 32  35 36 3a 24 28 55 25 2b  |&C:!U%=256:$(U%+|
00006180  34 34 29 3d 22 3c 57 69  6d 70 24 53 63 72 61 70  |44)="<Wimp$Scrap|
00006190  3e 22 2b bd 30 3a 55 25  21 33 36 3d 2d 31 3a 55  |>"+.0:U%!36=-1:U|
000061a0  25 21 31 36 3d 32 3a c8  99 26 34 30 30 45 37 2c  |%!16=2:..&400E7,|
000061b0  31 37 2c 55 25 2c 55 25  21 34 0d 02 0c 07 cd 3a  |17,U%,U%!4.....:|
000061c0  e1 0d 02 0d 36 dd f2 41  4a 3a e7 a4 75 3c 3e 2d  |....6..AJ:..u<>-|
000061d0  31 8c 55 25 21 26 43 3d  55 25 21 38 3a 55 25 21  |1.U%!&C=U%!8:U%!|
000061e0  38 3d 30 3a c8 99 26 34  30 30 45 37 2c 31 39 2c  |8=0:..&400E7,19,|
000061f0  55 25 2c 55 25 21 34 0d  02 0e 05 e1 0d 02 0f 6b  |U%,U%!4........k|
00006200  dd f2 56 4a 3a ea 71 75  25 2c 61 25 2c 4b 25 3a  |..VJ:.qu%,a%,K%:|
00006210  c8 99 26 34 30 30 43 38  2c 2c 55 25 b8 71 75 25  |..&400C8,,U%.qu%|
00006220  3a 61 25 3d 55 25 21 34  2d 55 25 21 32 30 3a 4b  |:a%=U%!4-U%!20:K|
00006230  25 3d 55 25 21 31 36 2d  55 25 21 32 34 3a c8 95  |%=U%!16-U%!24:..|
00006240  71 75 25 3a f2 54 5f 28  21 55 25 2c 61 25 2c 4b  |qu%:.T_(!U%,a%,K|
00006250  25 29 3a c8 99 26 34 30  30 43 41 2c 2c 55 25 b8  |%):..&400CA,,U%.|
00006260  71 75 25 3a ce 3a e1 0d  02 10 5e dd a4 75 79 28  |qu%:.:....^..uy(|
00006270  53 24 2c 45 25 29 3a ea  46 25 2c 41 25 2c 53 25  |S$,E%):.F%,A%,S%|
00006280  3a 46 25 3d 8e 53 24 3a  41 25 3d a2 23 46 25 2b  |:F%=.S$:A%=.#F%+|
00006290  34 3a d9 23 46 25 3a 41  25 2b 3d 45 25 3a de 53  |4:.#F%:A%+=E%:.S|
000062a0  25 41 25 3a 21 53 25 3d  41 25 3a 53 25 21 38 3d  |%A%:!S%=A%:S%!8=|
000062b0  31 36 3a c8 99 34 36 2c  32 36 36 2c 53 25 2c 53  |16:..46,266,S%,S|
000062c0  24 3a 3d 53 25 0d 02 11  4b dd f2 4d 28 65 25 2c  |$:=S%...K..M(e%,|
000062d0  77 25 29 3a 21 4a 25 3d  65 25 3a 4a 25 21 34 3d  |w%):!J%=e%:J%!4=|
000062e0  77 25 3a c8 99 26 34 30  30 43 45 2c 2c 4a 25 3a  |w%:..&400CE,,J%:|
000062f0  c8 99 26 34 30 30 44 32  2c 65 25 2c 77 25 2c 2c  |..&400D2,e%,w%,,|
00006300  2c 2d 31 2c a9 a4 4e 28  4a 25 21 32 38 29 3a e1  |,-1,..N(J%!28):.|
00006310  0d 02 12 23 dd a4 70 28  65 25 2c 77 25 29 3a ea  |...#..p(e%,w%):.|
00006320  6b 5f 25 2c 60 5f 25 3a  e7 a4 68 28 65 25 2c 77  |k_%,`_%:..h(e%,w|
00006330  25 29 8c 0d 02 13 16 f2  64 79 28 65 25 2c 77 25  |%)......dy(e%,w%|
00006340  2c 60 5f 25 2c 6b 5f 25  29 0d 02 14 33 cc 21 4a  |,`_%,k_%)...3.!J|
00006350  25 3d 65 25 3a 4a 25 21  34 3d 77 25 3a c8 99 26  |%=e%:J%!4=w%:..&|
00006360  34 30 30 43 45 2c 2c 4a  25 3a 6b 5f 25 3d 28 4a  |400CE,,J%:k_%=(J|
00006370  25 21 32 34 3e 3e 32 38  29 80 26 46 0d 02 15 0a  |%!24>>28).&F....|
00006380  cd 3a 3d 6b 5f 25 0d 02  16 1e dd f2 62 28 65 25  |.:=k_%......b(e%|
00006390  2c 77 25 2c 6b 5f 25 29  3a e7 a4 68 28 65 25 2c  |,w%,k_%):..h(e%,|
000063a0  77 25 29 8c 0d 02 17 15  f2 4d 5f 28 65 25 2c 77  |w%)......M_(e%,w|
000063b0  25 2c 2d 31 2c 6b 5f 25  29 0d 02 18 3a cc 21 4a  |%,-1,k_%)...:.!J|
000063c0  25 3d 65 25 3a 4a 25 21  34 3d 77 25 3a 4a 25 21  |%=e%:J%!4=w%:J%!|
000063d0  26 43 3d 26 46 3c 3c 32  38 3a 4a 25 21 38 3d 6b  |&C=&F<<28:J%!8=k|
000063e0  5f 25 3c 3c 32 38 3a c8  99 26 34 30 30 43 44 2c  |_%<<28:..&400CD,|
000063f0  2c 4a 25 0d 02 19 07 cd  3a e1 0d 02 1a 3e dd a4  |,J%.....:....>..|
00006400  68 28 65 25 2c 77 25 29  3a 21 4a 25 3d 65 25 3a  |h(e%,w%):!J%=e%:|
00006410  4a 25 21 34 3d 77 25 3a  c8 99 26 34 30 30 43 45  |J%!4=w%:..&400CE|
00006420  2c 2c 4a 25 3a 3d 28 28  4a 25 21 32 34 29 80 28  |,,J%:=((J%!24).(|
00006430  31 3c 3c 36 29 29 3e 30  0d 02 1b 57 dd f2 4d 5f  |1<<6))>0...W..M_|
00006440  28 65 25 2c 77 25 2c 60  5f 25 2c 6b 5f 25 29 3a  |(e%,w%,`_%,k_%):|
00006450  ea 50 25 2c 41 25 3a 21  4a 25 3d 65 25 3a 4a 25  |.P%,A%:!J%=e%:J%|
00006460  21 34 3d 77 25 3a c8 99  26 34 30 30 43 45 2c 2c  |!4=w%:..&400CE,,|
00006470  4a 25 3a 50 25 3d 4a 25  21 33 32 3a 41 25 3d a7  |J%:P%=J%!32:A%=.|
00006480  24 50 25 2c 22 46 22 29  3a e7 41 25 3e 30 8c 0d  |$P%,"F"):.A%>0..|
00006490  02 1c 1e e7 60 5f 25 3c  3e 2d 31 8c 3f 28 50 25  |....`_%<>-1.?(P%|
000064a0  2b 41 25 2b 31 29 3d 97  c3 7e 60 5f 25 0d 02 1d  |+A%+1)=..~`_%...|
000064b0  1c e7 6b 5f 25 3c 3e 2d  31 8c 3f 28 50 25 2b 41  |..k_%<>-1.?(P%+A|
000064c0  25 29 3d 97 c3 7e 6b 5f  25 0d 02 1e 1f 4a 25 21  |%)=..~k_%....J%!|
000064d0  38 3d 30 3a 4a 25 21 26  43 3d 30 3a c8 99 26 34  |8=0:J%!&C=0:..&4|
000064e0  30 30 43 44 2c 2c 4a 25  0d 02 1f 07 cd 3a e1 0d  |00CD,,J%.....:..|
000064f0  02 20 92 dd f2 64 79 28  65 25 2c 77 25 2c f8 60  |. ...dy(e%,w%,.`|
00006500  5f 25 2c f8 6b 5f 25 29  3a ea 50 25 2c 41 25 3a  |_%,.k_%):.P%,A%:|
00006510  21 4a 25 3d 65 25 3a 4a  25 21 34 3d 77 25 3a c8  |!J%=e%:J%!4=w%:.|
00006520  99 26 34 30 30 43 45 2c  2c 4a 25 3a 50 25 3d 4a  |.&400CE,,J%:P%=J|
00006530  25 21 33 32 3a 41 25 3d  a7 24 50 25 2c 22 46 22  |%!32:A%=.$P%,"F"|
00006540  29 3a 60 5f 25 3d 2d 31  3a 6b 5f 25 3d 2d 31 3a  |):`_%=-1:k_%=-1:|
00006550  e7 41 25 3e 30 8c 60 5f  25 3d a0 28 22 26 22 2b  |.A%>0.`_%=.("&"+|
00006560  bd 3f 28 50 25 2b 41 25  2b 31 29 29 3a 6b 5f 25  |.?(P%+A%+1)):k_%|
00006570  3d a0 28 22 26 22 2b bd  3f 28 50 25 2b 41 25 29  |=.("&"+.?(P%+A%)|
00006580  29 0d 02 21 05 e1 0d 02  22 23 dd a4 71 28 65 25  |)..!...."#..q(e%|
00006590  2c 77 25 29 3a ea 6b 5f  25 2c 60 5f 25 3a e7 a4  |,w%):.k_%,`_%:..|
000065a0  68 28 65 25 2c 77 25 29  8c 0d 02 23 16 f2 64 79  |h(e%,w%)...#..dy|
000065b0  28 65 25 2c 77 25 2c 60  5f 25 2c 6b 5f 25 29 0d  |(e%,w%,`_%,k_%).|
000065c0  02 24 33 cc 21 4a 25 3d  65 25 3a 4a 25 21 34 3d  |.$3.!J%=e%:J%!4=|
000065d0  77 25 3a c8 99 26 34 30  30 43 45 2c 2c 4a 25 3a  |w%:..&400CE,,J%:|
000065e0  60 5f 25 3d 28 4a 25 21  32 34 3e 3e 32 34 29 80  |`_%=(J%!24>>24).|
000065f0  26 46 0d 02 25 0a cd 3a  3d 60 5f 25 0d 02 26 1e  |&F..%..:=`_%..&.|
00006600  dd f2 55 28 65 25 2c 77  25 2c 60 5f 25 29 3a e7  |..U(e%,w%,`_%):.|
00006610  a4 68 28 65 25 2c 77 25  29 8c 0d 02 27 15 f2 4d  |.h(e%,w%)...'..M|
00006620  5f 28 65 25 2c 77 25 2c  60 5f 25 2c 2d 31 29 0d  |_(e%,w%,`_%,-1).|
00006630  02 28 3a cc 21 4a 25 3d  65 25 3a 4a 25 21 34 3d  |.(:.!J%=e%:J%!4=|
00006640  77 25 3a 4a 25 21 26 43  3d 26 46 3c 3c 32 34 3a  |w%:J%!&C=&F<<24:|
00006650  4a 25 21 38 3d 60 5f 25  3c 3c 32 34 3a c8 99 26  |J%!8=`_%<<24:..&|
00006660  34 30 30 43 44 2c 2c 4a  25 0d 02 29 07 cd 3a e1  |400CD,,J%..)..:.|
00006670  0d 02 2a 42 dd f2 5f 28  65 25 2c 77 25 2c 74 79  |..*B.._(e%,w%,ty|
00006680  25 29 3a ea 70 25 3a 70  25 3d 4a 25 2b 36 34 3a  |%):.p%:p%=J%+64:|
00006690  e7 74 79 25 3d 31 8c 21  4a 25 3d 65 25 3a 4a 25  |.ty%=1.!J%=e%:J%|
000066a0  21 34 3d 77 25 3a c8 99  26 34 30 30 43 45 2c 2c  |!4=w%:..&400CE,,|
000066b0  4a 25 0d 02 2b 65 21 70  25 3d 65 25 3a 70 25 21  |J%..+e!p%=e%:p%!|
000066c0  34 3d 77 25 3a 70 25 21  38 3d 28 94 74 79 25 29  |4=w%:p%!8=(.ty%)|
000066d0  3c 3c 32 33 3a 70 25 21  26 43 3d 31 3c 3c 32 33  |<<23:p%!&C=1<<23|
000066e0  3a c8 99 26 34 30 30 43  44 2c 2c 70 25 3a e7 74  |:..&400CD,,p%:.t|
000066f0  79 25 3d 31 8c c8 99 26  34 30 30 44 31 2c 65 25  |y%=1...&400D1,e%|
00006700  2c 4a 25 21 38 2c 4a 25  21 26 43 2c 4a 25 21 31  |,J%!8,J%!&C,J%!1|
00006710  36 2c 4a 25 21 32 30 0d  02 2c 05 e1 0d 02 2d 4d  |6,J%!20..,....-M|
00006720  dd a4 67 79 28 65 25 2c  77 25 29 3a ea 41 25 3a  |..gy(e%,w%):.A%:|
00006730  21 4a 25 3d 65 25 3a 4a  25 21 34 3d 77 25 3a c8  |!J%=e%:J%!4=w%:.|
00006740  99 26 34 30 30 43 45 2c  2c 4a 25 3a e7 28 4a 25  |.&400CE,,J%:.(J%|
00006750  21 32 34 80 32 35 36 29  3e 30 8c 41 25 3d 4a 25  |!24.256)>0.A%=J%|
00006760  21 33 32 8b 41 25 3d 2d  31 0d 02 2e 07 3d 41 25  |!32.A%=-1....=A%|
00006770  0d 02 2f 3d dd f2 5a 28  65 25 2c 77 25 2c 74 79  |../=..Z(e%,w%,ty|
00006780  25 29 3a ea 41 25 3a 21  4a 25 3d 65 25 3a 4a 25  |%):.A%:!J%=e%:J%|
00006790  21 34 3d 77 25 3a 41 25  3d 31 3a e7 74 79 25 3d  |!4=w%:A%=1:.ty%=|
000067a0  2d 31 8c 74 79 25 3d 31  3a 41 25 3d 30 0d 02 30  |-1.ty%=1:A%=0..0|
000067b0  2c 4a 25 21 38 3d 74 79  25 3c 3c 32 31 3a 4a 25  |,J%!8=ty%<<21:J%|
000067c0  21 26 43 3d 41 25 3c 3c  32 31 3a c8 99 26 34 30  |!&C=A%<<21:..&40|
000067d0  30 43 44 2c 2c 4a 25 3a  e1 0d 02 31 3c dd a4 4d  |0CD,,J%:...1<..M|
000067e0  28 65 25 2c 77 25 29 3a  21 4a 25 3d 65 25 3a 4a  |(e%,w%):!J%=e%:J|
000067f0  25 21 34 3d 77 25 3a c8  99 26 34 30 30 43 45 2c  |%!4=w%:..&400CE,|
00006800  2c 4a 25 3a 3d 2d 28 28  4a 25 21 32 34 3e 3e 32  |,J%:=-((J%!24>>2|
00006810  31 29 80 31 29 0d 02 32  3d dd f2 53 28 65 25 2c  |1).1)..2=..S(e%,|
00006820  77 25 2c 74 79 25 29 3a  ea 41 25 3a 41 25 3d 31  |w%,ty%):.A%:A%=1|
00006830  3a 21 4a 25 3d 65 25 3a  4a 25 21 34 3d 77 25 3a  |:!J%=e%:J%!4=w%:|
00006840  e7 74 79 25 3d 2d 31 8c  74 79 25 3d 31 3a 41 25  |.ty%=-1.ty%=1:A%|
00006850  3d 30 0d 02 33 30 4a 25  21 38 3d 74 79 25 2a 28  |=0..30J%!8=ty%*(|
00006860  31 3c 3c 32 32 29 3a 4a  25 21 26 43 3d 41 25 3c  |1<<22):J%!&C=A%<|
00006870  3c 32 32 3a c8 99 26 34  30 30 43 44 2c 2c 4a 25  |<22:..&400CD,,J%|
00006880  3a e1 0d 02 34 68 dd f2  41 28 65 25 2c 77 25 2c  |:...4h..A(e%,w%,|
00006890  57 24 29 3a ea 50 25 2c  4c 25 3a 21 4a 25 3d 65  |W$):.P%,L%:!J%=e|
000068a0  25 3a 4a 25 21 34 3d 77  25 3a c8 99 26 34 30 30  |%:J%!4=w%:..&400|
000068b0  43 45 2c 2c 4a 25 3a e7  4a 25 21 32 34 80 28 31  |CE,,J%:.J%!24.(1|
000068c0  3c 3c 38 29 8c 50 25 3d  4a 25 21 32 38 3a 4c 25  |<<8).P%=J%!28:L%|
000068d0  3d 28 4a 25 21 33 36 29  2d 31 3a 8b 50 25 3d 4a  |=(J%!36)-1:.P%=J|
000068e0  25 2b 32 38 3a 4c 25 3d  26 42 0d 02 35 2d 24 50  |%+28:L%=&B..5-$P|
000068f0  25 3d c0 57 24 2c 4c 25  29 3a 4a 25 21 38 3d 30  |%=.W$,L%):J%!8=0|
00006900  3a 4a 25 21 26 43 3d 30  3a c8 99 26 34 30 30 43  |:J%!&C=0:..&400C|
00006910  44 2c 2c 4a 25 3a e1 0d  02 36 57 dd a4 5a 28 65  |D,,J%:...6W..Z(e|
00006920  25 2c 77 25 29 3a ea 41  24 3a 21 4a 25 3d 65 25  |%,w%):.A$:!J%=e%|
00006930  3a 4a 25 21 34 3d 77 25  3a c8 99 26 34 30 30 43  |:J%!4=w%:..&400C|
00006940  45 2c 2c 4a 25 3a e7 28  4a 25 21 32 34 80 32 35  |E,,J%:.(J%!24.25|
00006950  36 29 3e 30 8c 41 24 3d  a4 4e 28 4a 25 21 32 38  |6)>0.A$=.N(J%!28|
00006960  29 8b 41 24 3d a4 4e 28  4a 25 2b 32 38 29 0d 02  |).A$=.N(J%+28)..|
00006970  37 07 3d 41 24 0d 02 38  4d dd a4 69 79 28 65 25  |7.=A$..8M..iy(e%|
00006980  2c 77 25 29 3a ea 41 25  3a 21 4a 25 3d 65 25 3a  |,w%):.A%:!J%=e%:|
00006990  4a 25 21 34 3d 77 25 3a  c8 99 26 34 30 30 43 45  |J%!4=w%:..&400CE|
000069a0  2c 2c 4a 25 3a e7 28 4a  25 21 32 34 80 32 35 36  |,,J%:.(J%!24.256|
000069b0  29 3e 30 8c 41 25 3d 4a  25 21 32 38 8b 41 25 3d  |)>0.A%=J%!28.A%=|
000069c0  2d 31 0d 02 39 07 3d 41  25 0d 02 3a 62 dd f2 79  |-1..9.=A%..:b..y|
000069d0  79 28 4d 79 25 2c 4c 25  2c 48 25 29 3a 4d 79 25  |y(My%,L%,H%):My%|
000069e0  2b 3d 34 2b 32 34 2a 4c  25 3a f5 4d 79 25 2b 3d  |+=4+24*L%:.My%+=|
000069f0  32 34 3a 4d 79 25 21 38  3d 4d 79 25 21 38 84 38  |24:My%!8=My%!8.8|
00006a00  3a 4c 25 2b 3d 31 3a fd  28 28 4c 25 3e 48 25 29  |:L%+=1:.((L%>H%)|
00006a10  80 28 48 25 3c 3e 2d 31  29 29 84 28 28 21 4d 79  |.(H%<>-1)).((!My|
00006a20  25 80 26 38 30 29 3e 30  29 3a e1 0d 02 3b 60 dd  |%.&80)>0):...;`.|
00006a30  f2 48 28 4d 79 25 2c 4c  25 2c 48 25 29 3a 4d 79  |.H(My%,L%,H%):My|
00006a40  25 2b 3d 34 2b 32 34 2a  4c 25 3a f5 4d 79 25 2b  |%+=4+24*L%:.My%+|
00006a50  3d 32 34 3a 21 4d 79 25  3d 21 4d 79 25 80 ac 31  |=24:!My%=!My%..1|
00006a60  3a 4c 25 2b 3d 31 3a fd  28 28 4c 25 3e 48 25 29  |:L%+=1:.((L%>H%)|
00006a70  80 28 48 25 3c 3e 2d 31  29 29 84 28 28 21 4d 79  |.(H%<>-1)).((!My|
00006a80  25 80 26 38 30 29 3e 30  29 3a e1 0d 02 3c 5d dd  |%.&80)>0):...<].|
00006a90  a4 43 79 28 73 24 29 3a  ea 4d 79 25 2c 5f 75 25  |.Cy(s$):.My%,_u%|
00006aa0  2c 53 79 25 3a 4d 79 25  3d a4 57 79 28 73 24 2b  |,Sy%:My%=.Wy(s$+|
00006ab0  22 5c 30 5c 31 5c 32 5c  33 5c 34 5c 35 5c 36 5c  |"\0\1\2\3\4\5\6\|
00006ac0  37 5c 38 5c 39 5c 31 30  5c 31 31 5c 31 32 5c 31  |7\8\9\10\11\12\1|
00006ad0  33 5c 31 34 5c 31 35 22  29 3a e3 53 79 25 3d 30  |3\14\15"):.Sy%=0|
00006ae0  b8 26 46 3a c8 8e b9 ca  0d 02 3d 2b c9 53 79 25  |.&F:......=+.Sy%|
00006af0  3c 34 2c 53 79 25 3d 39  2c 53 79 25 3d 26 43 2c  |<4,Sy%=9,Sy%=&C,|
00006b00  53 79 25 3d 26 45 2c 53  79 25 3d 26 46 3a 5f 75  |Sy%=&E,Sy%=&F:_u|
00006b10  25 3d 37 0d 02 3e 0a 7f  5f 75 25 3d 30 0d 02 3f  |%=7..>.._u%=0..?|
00006b20  35 cb 3a 4d 79 25 3f 28  33 39 2b 53 79 25 2a 32  |5.:My%?(39+Sy%*2|
00006b30  34 29 3d 53 79 25 2a 31  36 2b 5f 75 25 3a ed 3a  |4)=Sy%*16+_u%:.:|
00006b40  f2 79 79 28 4d 79 25 2c  30 2c 2d 31 29 3a 3d 4d  |.yy(My%,0,-1):=M|
00006b50  79 25 0d 02 40 d5 dd a4  57 79 28 41 24 29 3a ea  |y%..@...Wy(A$):.|
00006b60  41 25 2c 42 25 2c 4c 25  2c 5a 24 2c 49 25 3a 41  |A%,B%,L%,Z$,I%:A|
00006b70  24 2b 3d 22 5c 22 3a de  41 25 34 2a a4 6e 79 20  |$+="\":.A%4*.ny |
00006b80  28 41 24 29 2a 32 34 3a  42 25 3d 41 25 2b 34 3a  |(A$)*24:B%=A%+4:|
00006b90  5a 24 3d c0 41 24 2c a7  41 24 2c 22 5c 22 29 2d  |Z$=.A$,.A$,"\")-|
00006ba0  31 29 3a 24 41 25 3d 5a  24 3a 41 25 21 26 43 3d  |1):$A%=Z$:A%!&C=|
00006bb0  26 37 30 32 30 37 3a 41  25 21 32 30 3d 34 34 3a  |&70207:A%!20=44:|
00006bc0  41 25 21 32 34 3d 30 3a  4c 25 3d a9 5a 24 3a 41  |A%!24=0:L%=.Z$:A|
00006bd0  24 3d c1 41 24 2c a7 41  24 2c 22 5c 22 29 2b 31  |$=.A$,.A$,"\")+1|
00006be0  29 3a c8 95 a7 41 24 2c  22 5c 22 29 3a 5a 24 3d  |):...A$,"\"):Z$=|
00006bf0  c0 41 24 2c a7 41 24 2c  22 5c 22 29 2d 31 29 3a  |.A$,.A$,"\")-1):|
00006c00  42 25 2b 3d 32 34 3a 21  42 25 3d a4 78 79 28 5a  |B%+=24:!B%=.xy(Z|
00006c10  24 29 3a 42 25 21 34 3d  30 3a 42 25 21 38 3d 26  |$):B%!4=0:B%!8=&|
00006c20  37 30 30 30 30 32 31 0d  02 41 36 e7 a7 5a 24 2c  |7000021..A6..Z$,|
00006c30  22 3e 22 29 8c 42 25 21  34 3d bb c1 5a 24 2c a7  |">").B%!4=..Z$,.|
00006c40  5a 24 2c 22 3e 22 29 2b  31 29 3a 5a 24 3d c0 5a  |Z$,">")+1):Z$=.Z|
00006c50  24 2c a7 5a 24 2c 22 3e  22 29 2d 31 29 0d 02 42  |$,.Z$,">")-1)..B|
00006c60  51 e7 a9 5a 24 3e 26 42  8c de 49 25 a9 5a 24 2b  |Q..Z$>&B..I%.Z$+|
00006c70  31 3a 24 49 25 3d 5a 24  3a 42 25 21 38 3d 42 25  |1:$I%=Z$:B%!8=B%|
00006c80  21 38 84 32 35 36 3a 42  25 21 26 43 3d 49 25 3a  |!8.256:B%!&C=I%:|
00006c90  42 25 21 31 36 3d 30 3a  42 25 21 32 30 3d 49 25  |B%!16=0:B%!20=I%|
00006ca0  2b 31 8b 24 28 42 25 2b  26 43 29 3d 5a 24 0d 02  |+1.$(B%+&C)=Z$..|
00006cb0  43 12 e7 a9 5a 24 3e 4c  25 8c 4c 25 3d a9 5a 24  |C...Z$>L%.L%=.Z$|
00006cc0  0d 02 44 37 41 24 3d c1  41 24 2c a7 41 24 2c 22  |..D7A$=.A$,.A$,"|
00006cd0  5c 22 29 2b 31 29 3a ce  3a 21 42 25 3d 21 42 25  |\")+1):.:!B%=!B%|
00006ce0  84 26 38 30 3a 41 25 21  31 36 3d 4c 25 2a 31 36  |.&80:A%!16=L%*16|
00006cf0  2b 31 36 3a 3d 41 25 0d  02 45 f2 dd a4 43 28 73  |+16:=A%..E...C(s|
00006d00  24 2c 68 24 2c 4c 25 2c  48 25 29 3a ea 4d 25 2c  |$,h$,L%,H%):.M%,|
00006d10  41 25 2c 43 25 2c 44 25  2c 47 6c 25 2c 41 24 3a  |A%,C%,D%,Gl%,A$:|
00006d20  de 4d 25 32 38 2b 32 34  2a 20 28 48 25 2d 4c 25  |.M%28+24* (H%-L%|
00006d30  2b 31 29 3a 21 4d 25 3d  a4 67 28 73 24 29 3a 4d  |+1):!M%=.g(s$):M|
00006d40  25 21 34 3d 30 3a 4d 25  21 38 3d 30 3a 47 6c 25  |%!4=0:M%!8=0:Gl%|
00006d50  3d a9 a4 41 28 73 24 29  3a 4d 25 21 26 43 3d 26  |=..A(s$):M%!&C=&|
00006d60  37 30 32 30 37 3a 4d 25  21 32 30 3d 34 34 3a 4d  |70207:M%!20=44:M|
00006d70  25 21 32 34 3d 30 3a 41  25 3d 4d 25 2b 34 3a e3  |%!24=0:A%=M%+4:.|
00006d80  43 25 3d 4c 25 b8 48 25  3a 41 25 2b 3d 32 34 3a  |C%=L%.H%:A%+=24:|
00006d90  21 41 25 3d 30 3a 41 25  21 34 3d 30 3a 41 25 21  |!A%=0:A%!4=0:A%!|
00006da0  38 3d 26 37 30 30 30 31  32 31 3a 41 25 21 26 43  |8=&7000121:A%!&C|
00006db0  3d a4 67 28 68 24 2b c3  43 25 29 3a 41 25 21 31  |=.g(h$+.C%):A%!1|
00006dc0  36 3d 30 3a 41 25 21 32  30 3d 30 3a 44 25 3d a9  |6=0:A%!20=0:D%=.|
00006dd0  a4 41 28 68 24 2b c3 43  25 29 3a e7 44 25 3e 47  |.A(h$+.C%):.D%>G|
00006de0  6c 25 8c 47 6c 25 3d 44  25 0d 02 46 2a ed 3a 21  |l%.Gl%=D%..F*.:!|
00006df0  41 25 2b 3d 26 38 30 3a  4d 25 21 32 38 2b 3d 32  |A%+=&80:M%!28+=2|
00006e00  35 36 3a 4d 25 21 31 36  3d 47 6c 25 2a 31 36 3a  |56:M%!16=Gl%*16:|
00006e10  3d 4d 25 0d 02 47 26 dd  f2 7a 28 4d 25 2c 49 25  |=M%..G&..z(M%,I%|
00006e20  2c 53 25 29 3a 4d 25 21  28 32 38 2b 32 34 2a 49  |,S%):M%!(28+24*I|
00006e30  25 2b 34 29 3d 53 25 3a  e1 0d 02 48 1e dd a4 78  |%+4)=S%:...H...x|
00006e40  79 28 f8 5a 24 29 3a ea  41 25 2c 46 25 3a f5 3a  |y(.Z$):.A%,F%:.:|
00006e50  c8 8e bd 97 5a 24 ca 0d  02 49 18 c9 22 80 22 3a  |....Z$...I..".":|
00006e60  41 25 2b 3d 31 3a 5a 24  3d c1 5a 24 2c 32 29 0d  |A%+=1:Z$=.Z$,2).|
00006e70  02 4a 18 c9 22 5f 22 3a  41 25 2b 3d 32 3a 5a 24  |.J.."_":A%+=2:Z$|
00006e80  3d c1 5a 24 2c 32 29 0d  02 4b 18 c9 22 2a 22 3a  |=.Z$,2)..K.."*":|
00006e90  41 25 2b 3d 38 3a 5a 24  3d c1 5a 24 2c 32 29 0d  |A%+=8:Z$=.Z$,2).|
00006ea0  02 4c 0a 7f 46 25 3d 2d  31 0d 02 4d 0d cb 3a fd  |.L..F%=-1..M..:.|
00006eb0  46 25 3a 3d 41 25 0d 02  4e 3a dd a4 6e 79 28 41  |F%:=A%..N:..ny(A|
00006ec0  24 29 3a ea 41 25 3a c8  95 a7 41 24 2c 22 5c 22  |$):.A%:...A$,"\"|
00006ed0  29 3a 41 25 2b 3d 31 3a  41 24 3d c1 41 24 2c a7  |):A%+=1:A$=.A$,.|
00006ee0  41 24 2c 22 5c 22 29 2b  31 29 3a ce 3a 3d 41 25  |A$,"\")+1):.:=A%|
00006ef0  0d 02 4f 37 dd a4 62 79  28 41 25 29 3a ea 48 25  |..O7..by(A%):.H%|
00006f00  3a 41 25 2b 3d 34 3a f5  41 25 2b 3d 32 34 3a 48  |:A%+=4:.A%+=24:H|
00006f10  25 2b 3d 34 34 3a e7 28  21 41 25 80 32 29 3e 30  |%+=44:.(!A%.2)>0|
00006f20  8c 48 25 2b 3d 32 34 0d  02 50 17 fd 28 21 41 25  |.H%+=24..P..(!A%|
00006f30  80 26 38 30 29 3e 30 3a  3d 48 25 2b 39 36 0d 02  |.&80)>0:=H%+96..|
00006f40  51 9b dd a4 70 79 28 4d  79 25 2c 54 61 25 2c 57  |Q...py(My%,Ta%,W|
00006f50  24 2c 75 69 25 2c 62 24  29 3a ea 70 6c 25 2c 67  |$,ui%,b$):.pl%,g|
00006f60  5f 25 3a de 70 6c 25 75  69 25 2b 31 2c 67 5f 25  |_%:.pl%ui%+1,g_%|
00006f70  a9 20 28 62 24 29 2b 31  3a 24 70 6c 25 3d 57 24  |. (b$)+1:$pl%=W$|
00006f80  3a 24 67 5f 25 3d 62 24  3a 4d 79 25 2b 3d 32 38  |:$g_%=b$:My%+=28|
00006f90  2b 32 34 2a 54 61 25 3a  21 4d 79 25 3d 21 4d 79  |+24*Ta%:!My%=!My|
00006fa0  25 84 34 3a 4d 79 25 21  38 3d 4d 79 25 21 38 84  |%.4:My%!8=My%!8.|
00006fb0  32 35 36 3a 4d 79 25 21  26 43 3d 70 6c 25 3a 4d  |256:My%!&C=pl%:M|
00006fc0  79 25 21 31 36 3d 67 5f  25 3a 4d 79 25 21 32 30  |y%!16=g_%:My%!20|
00006fd0  3d 75 69 25 3a 3d 70 6c  25 0d 02 52 64 dd a4 6b  |=ui%:=pl%..Rd..k|
00006fe0  28 4d 79 25 2c 79 24 29  3a ea 41 25 2c 42 25 3a  |(My%,y$):.A%,B%:|
00006ff0  42 25 3d 4d 79 25 2b 32  38 3a c8 95 28 79 24 3c  |B%=My%+28:..(y$<|
00007000  3e a4 57 28 4d 79 25 2c  41 25 29 29 80 28 21 42  |>.W(My%,A%)).(!B|
00007010  25 80 26 38 30 29 3d 30  3a 41 25 2b 3d 31 3a 42  |%.&80)=0:A%+=1:B|
00007020  25 2b 3d 32 34 3a ce 3a  e7 79 24 3c 3e a4 57 28  |%+=24:.:.y$<>.W(|
00007030  4d 79 25 2c 41 25 29 8c  41 25 3d 2d 31 0d 02 53  |My%,A%).A%=-1..S|
00007040  07 3d 41 25 0d 02 54 19  dd f2 4b 28 4d 25 2c 49  |.=A%..T...K(M%,I|
00007050  25 2c 46 25 29 3a e7 46  25 3c 3e 30 8c 0d 02 55  |%,F%):.F%<>0...U|
00007060  27 4d 25 21 28 33 36 2b  32 34 2a 49 25 29 3d 4d  |'M%!(36+24*I%)=M|
00007070  25 21 28 33 36 2b 32 34  2a 49 25 29 84 28 31 3c  |%!(36+24*I%).(1<|
00007080  3c 32 32 29 0d 02 56 29  cc 4d 25 21 28 33 36 2b  |<22)..V).M%!(36+|
00007090  32 34 2a 49 25 29 3d 4d  25 21 28 33 36 2b 32 34  |24*I%)=M%!(36+24|
000070a0  2a 49 25 29 80 ac 28 31  3c 3c 32 32 29 0d 02 57  |*I%)..(1<<22)..W|
000070b0  07 cd 3a e1 0d 02 58 3b  dd a4 57 28 4d 25 2c 49  |..:...X;..W(M%,I|
000070c0  25 29 3a 4d 25 2b 3d 32  38 2b 32 34 2a 49 25 3a  |%):M%+=28+24*I%:|
000070d0  e7 28 4d 25 21 38 80 32  35 36 29 3e 30 8c 4d 25  |.(M%!8.256)>0.M%|
000070e0  3d 4d 25 21 26 43 8b 4d  25 3d 4d 25 2b 26 43 0d  |=M%!&C.M%=M%+&C.|
000070f0  02 59 0b 3d a4 4e 28 4d  25 29 0d 02 5a 57 dd f2  |.Y.=.N(M%)..ZW..|
00007100  4a 28 4d 25 2c 49 25 2c  46 25 29 3a e7 46 25 3c  |J(M%,I%,F%):.F%<|
00007110  3e 30 8c 4d 25 21 28 32  38 2b 32 34 2a 49 25 29  |>0.M%!(28+24*I%)|
00007120  3d 4d 25 21 28 32 38 2b  32 34 2a 49 25 29 84 31  |=M%!(28+24*I%).1|
00007130  8b 4d 25 21 28 32 38 2b  32 34 2a 49 25 29 3d 4d  |.M%!(28+24*I%)=M|
00007140  25 21 28 32 38 2b 32 34  2a 49 25 29 80 ac 28 31  |%!(28+24*I%)..(1|
00007150  29 0d 02 5b 05 e1 0d 02  5c 1e dd a4 53 5f 28 4d  |)..[....\...S_(M|
00007160  25 29 3a e7 4d 25 21 32  38 3e 26 38 30 8c 4d 25  |%):.M%!28>&80.M%|
00007170  3d 21 4d 25 0d 02 5d 0b  3d a4 4e 28 4d 25 29 0d  |=!M%..].=.N(M%).|
00007180  02 5e 58 dd f2 63 5f 28  4d 25 2c 49 25 2c 46 25  |.^X..c_(M%,I%,F%|
00007190  29 3a e7 46 25 3c 3e 30  8c 4d 25 21 28 32 38 2b  |):.F%<>0.M%!(28+|
000071a0  32 34 2a 49 25 29 3d 4d  25 21 28 32 38 2b 32 34  |24*I%)=M%!(28+24|
000071b0  2a 49 25 29 84 32 8b 4d  25 21 28 32 38 2b 32 34  |*I%).2.M%!(28+24|
000071c0  2a 49 25 29 3d 4d 25 21  28 32 38 2b 32 34 2a 49  |*I%)=M%!(28+24*I|
000071d0  25 29 80 ac 28 32 29 0d  02 5f 05 e1 0d 02 60 13  |%)..(2).._....`.|
000071e0  dd a4 61 28 41 25 29 3d  41 25 2d 41 25 83 34 0d  |..a(A%)=A%-A%.4.|
000071f0  02 61 25 dd a4 47 79 3a  c8 99 26 34 30 30 43 46  |.a%..Gy:..&400CF|
00007200  2c 2c 4a 25 3a 3d 28 28  28 4a 25 21 38 29 80 31  |,,J%:=(((J%!8).1|
00007210  29 3d 31 29 0d 02 62 2a  dd a4 79 3a ea 41 25 3a  |)=1)..b*..y:.A%:|
00007220  c8 99 36 2c 26 41 31 2c  26 44 43 b8 2c 2c 41 25  |..6,&A1,&DC.,,A%|
00007230  3a 3d 28 41 25 80 26 38  30 29 3d 26 38 30 0d 02  |:=(A%.&80)=&80..|
00007240  63 27 dd f2 53 79 28 46  25 29 3a ea 41 25 3a c8  |c'..Sy(F%):.A%:.|
00007250  99 36 2c 26 41 31 2c 26  44 43 b8 2c 2c 41 25 3a  |.6,&A1,&DC.,,A%:|
00007260  c8 8e 46 25 ca 0d 02 64  11 c9 30 3a 41 25 3d 41  |..F%...d..0:A%=A|
00007270  25 80 ac 26 38 30 0d 02  65 10 c9 31 3a 41 25 3d  |%..&80..e..1:A%=|
00007280  41 25 84 26 38 30 0d 02  66 11 c9 2d 31 3a 41 25  |A%.&80..f..-1:A%|
00007290  3d 41 25 82 26 38 30 0d  02 67 16 cb 3a c8 99 36  |=A%.&80..g..:..6|
000072a0  2c 26 41 32 2c 26 44 43  2c 41 25 3a e1 0d 02 68  |,&A2,&DC,A%:...h|
000072b0  37 dd a4 65 3a ea 41 25  2c 42 25 3a c8 99 35 33  |7..e:.A%,B%:..53|
000072c0  2c 2d 31 2c 26 43 b8 2c  2c 41 25 3a c8 99 35 33  |,-1,&C.,,A%:..53|
000072d0  2c 2d 31 2c 35 b8 2c 2c  42 25 3a 3d 28 41 25 3c  |,-1,5.,,B%:=(A%<|
000072e0  3c 42 25 29 0d 02 69 27  dd a4 60 79 28 4d 25 29  |<B%)..i'..`y(M%)|
000072f0  3a ea 41 25 3a c8 99 35  33 2c 4d 25 2c 35 b8 2c  |:.A%:..53,M%,5.,|
00007300  2c 41 25 3a 3d 28 41 25  3d 31 29 0d 02 6a 48 dd  |,A%:=(A%=1)..jH.|
00007310  a4 77 28 48 25 2c 53 25  2c 46 25 29 3a ea 50 25  |.w(H%,S%,F%):.P%|
00007320  2c 45 25 2c 56 25 2c 4c  25 2c 54 25 3a c8 99 26  |,E%,V%,L%,T%:..&|
00007330  32 30 30 31 44 2c 32 2c  48 25 2c 2c 53 25 b8 45  |2001D,2,H%,,S%.E|
00007340  25 2c 2c 50 25 3b 56 25  3a e7 28 56 25 80 31 29  |%,,P%;V%:.(V%.1)|
00007350  3d 31 8c 0d 02 6b 08 e7  46 25 8c 0d 02 6c 3d 50  |=1...k..F%...l=P|
00007360  25 3d a4 4a 79 3a f2 5a  79 28 48 25 2c 28 53 25  |%=.Jy:.Zy(H%,(S%|
00007370  81 50 25 29 2a 50 25 2d  50 25 2a 28 28 53 25 83  |.P%)*P%-P%*((S%.|
00007380  50 25 29 3e 30 29 2c b9  29 3a 50 25 3d a4 77 28  |P%)>0),.):P%=.w(|
00007390  48 25 2c 53 25 2c a3 29  0d 02 6d 0c cc c8 99 34  |H%,S%,.)..m....4|
000073a0  33 2c 45 25 0d 02 6e 05  cd 0d 02 6f 09 cd 3a 3d  |3,E%..n....o..:=|
000073b0  50 25 0d 02 70 57 dd f2  61 75 28 48 25 2c f8 42  |P%..pW..au(H%,.B|
000073c0  25 2c 53 25 2c 46 25 29  3a ea 4c 25 2c 45 25 2c  |%,S%,F%):.L%,E%,|
000073d0  56 25 2c 54 25 2c 50 25  3a c8 99 26 32 30 30 31  |V%,T%,P%:..&2001|
000073e0  44 2c 34 2c 48 25 2c 42  25 2c 53 25 b8 45 25 2c  |D,4,H%,B%,S%.E%,|
000073f0  2c 42 25 3b 56 25 3a 56  25 3d 28 28 56 25 80 31  |,B%;V%:V%=((V%.1|
00007400  29 3d 31 29 3a c8 8e b9  ca 0d 02 71 13 c9 56 25  |)=1):......q..V%|
00007410  80 ac 46 25 3a c8 99 34  33 2c 45 25 0d 02 72 2e  |..F%:..43,E%..r.|
00007420  c9 56 25 80 46 25 80 28  53 25 3e 30 29 3a f2 5a  |.V%.F%.(S%>0):.Z|
00007430  79 28 48 25 2c 53 25 2c  b9 29 3a f2 61 75 28 48  |y(H%,S%,.):.au(H|
00007440  25 2c 42 25 2c 53 25 2c  b9 29 0d 02 73 11 c9 56  |%,B%,S%,.)..s..V|
00007450  25 80 46 25 80 28 53 25  3c 30 29 0d 02 74 1f c9  |%.F%.(S%<0)..t..|
00007460  ac 56 25 80 46 25 80 28  53 25 3c 30 29 3a f2 5a  |.V%.F%.(S%<0):.Z|
00007470  79 28 48 25 2c 2d 31 2c  b9 29 0d 02 75 07 cb 3a  |y(H%,-1,.)..u..:|
00007480  e1 0d 02 76 3f dd f2 44  79 28 48 25 2c 42 25 2c  |...v?..Dy(H%,B%,|
00007490  46 25 29 3a ea 41 25 2c  74 79 25 3a c8 99 32 39  |F%):.A%,ty%:..29|
000074a0  2c 33 2c 48 25 2c 42 25  b8 41 25 3b 74 79 25 3a  |,3,H%,B%.A%;ty%:|
000074b0  e7 46 25 8c f2 5a 79 28  48 25 2c 2d 31 2c b9 29  |.F%..Zy(H%,-1,.)|
000074c0  0d 02 77 05 e1 0d 02 78  1b dd f2 5a 79 28 48 25  |..w....x...Zy(H%|
000074d0  2c 53 25 2c 46 25 29 3a  ea 50 25 3a e7 46 25 8c  |,S%,F%):.P%:.F%.|
000074e0  0d 02 79 0a e7 53 25 3c  30 8c 0d 02 7a 9b c8 99  |..y..S%<0...z...|
000074f0  26 32 30 30 31 44 2c 35  2c 48 25 2c 2c 2d 33 32  |&2001D,5,H%,,-32|
00007500  2a 26 34 30 30 2a 26 34  30 30 3a 53 25 3d 48 25  |*&400*&400:S%=H%|
00007510  21 26 43 2b 48 25 2d 26  38 30 30 30 3a 50 25 3d  |!&C+H%-&8000:P%=|
00007520  a4 4a 79 3a c8 99 26 34  30 30 45 43 2c 2d 31 2c  |.Jy:..&400EC,-1,|
00007530  2d 31 b8 46 25 3a 46 25  3d a4 6c 28 28 28 53 25  |-1.F%:F%=.l(((S%|
00007540  81 50 25 29 2a 50 25 2d  50 25 2a 28 28 53 25 83  |.P%)*P%-P%*((S%.|
00007550  50 25 29 3e 30 29 29 2d  46 25 29 3a c8 99 32 39  |P%)>0))-F%):..29|
00007560  2c 35 2c 48 25 2c 2c 28  28 53 25 81 50 25 29 2a  |,5,H%,,((S%.P%)*|
00007570  50 25 2d 50 25 2a 28 28  53 25 83 50 25 29 3e 30  |P%-P%*((S%.P%)>0|
00007580  29 29 2d 53 25 0d 02 7b  28 cc 3a 45 25 3d 52 75  |))-S%..{(.:E%=Ru|
00007590  25 3a 46 25 3d a4 6c 28  53 25 29 3a c8 99 32 39  |%:F%=.l(S%):..29|
000075a0  2c 35 2c 48 25 2c 2c 52  75 25 2d 45 25 0d 02 7c  |,5,H%,,Ru%-E%..||
000075b0  05 cd 0d 02 7d 12 cc c8  99 32 39 2c 35 2c 48 25  |....}....29,5,H%|
000075c0  2c 2c 53 25 0d 02 7e 07  cd 3a e1 0d 02 7f 1d dd  |,,S%..~..:......|
000075d0  f2 71 5f 28 48 25 2c 53  25 29 3a e7 53 25 3d 2d  |.q_(H%,S%):.S%=-|
000075e0  31 8c 53 25 3d 52 75 25  0d 02 80 13 c8 99 32 39  |1.S%=Ru%......29|
000075f0  2c 30 2c 48 25 2c 2c 53  25 3a e1 0d 02 81 27 dd  |,0,H%,,S%:....'.|
00007600  f2 6e 4a 3a c8 99 26 36  31 35 30 34 2c 53 5f 25  |.nJ:..&61504,S_%|
00007610  3a c8 99 26 32 30 30 31  45 2c 37 2c 2c 53 5f 25  |:..&2001E,7,,S_%|
00007620  3a e1 0d 02 82 58 dd f2  46 4a 28 6a 24 29 3a ea  |:....X..FJ(j$):.|
00007630  46 25 3a c8 99 26 32 30  30 31 45 2c 36 2c 2c 2c  |F%:..&2001E,6,,,|
00007640  31 37 2b a9 6a 24 b8 2c  2c 53 5f 25 3b 46 25 3a  |17+.j$.,,S_%;F%:|
00007650  e7 46 25 80 31 8c 85 32  2c 22 4e 6f 74 20 65 6e  |.F%.1..2,"Not en|
00007660  6f 75 67 68 20 6d 65 6d  6f 72 79 20 66 6f 72 20  |ough memory for |
00007670  6d 65 73 73 61 67 65 73  2e 22 0d 02 83 28 24 28  |messages."...($(|
00007680  53 5f 25 2b 31 36 29 3d  6a 24 3a c8 99 26 34 31  |S_%+16)=j$:..&41|
00007690  35 30 31 2c 53 5f 25 2c  53 5f 25 2b 31 36 2c 30  |501,S_%,S_%+16,0|
000076a0  3a e1 0d 02 84 6a dd a4  41 28 55 24 29 3a ea 46  |:....j..A(U$):.F|
000076b0  25 2c 4c 25 3a c8 99 26  36 31 35 30 32 2c 53 5f  |%,L%:..&61502,S_|
000076c0  25 2c 55 24 2c 4a 25 2c  32 35 36 b8 2c 2c 2c 4c  |%,U$,J%,256.,,,L|
000076d0  25 3b 46 25 3a e7 46 25  80 31 85 32 2c 22 43 61  |%;F%:.F%.1.2,"Ca|
000076e0  6e 27 74 20 67 65 74 20  6d 65 73 73 61 67 65 20  |n't get message |
000076f0  27 22 2b 55 24 2b 22 27  20 66 72 6f 6d 20 4d 65  |'"+U$+"' from Me|
00007700  73 73 61 67 65 73 20 66  69 6c 65 22 0d 02 85 11  |ssages file"....|
00007710  4a 25 3f 4c 25 3d 26 44  3a 3d 24 4a 25 0d 02 86  |J%?L%=&D:=$J%...|
00007720  64 dd a4 67 28 55 24 29  3a ea 46 25 2c 50 25 3a  |d..g(U$):.F%,P%:|
00007730  c8 99 26 36 31 35 30 32  2c 53 5f 25 2c 55 24 2c  |..&61502,S_%,U$,|
00007740  30 b8 2c 2c 50 25 3b 46  25 3a e7 46 25 80 31 85  |0.,,P%;F%:.F%.1.|
00007750  32 2c 22 43 61 6e 27 74  20 67 65 74 20 6d 65 73  |2,"Can't get mes|
00007760  73 61 67 65 20 27 22 2b  55 24 2b 22 27 20 66 72  |sage '"+U$+"' fr|
00007770  6f 6d 20 4d 65 73 73 61  67 65 73 20 66 69 6c 65  |om Messages file|
00007780  22 0d 02 87 07 3d 50 25  0d 02 88 82 dd a4 4f 28  |"....=P%......O(|
00007790  55 24 2c 41 24 2c 5a 24  2c 43 24 2c 6c 24 29 3a  |U$,A$,Z$,C$,l$):|
000077a0  ea 46 25 2c 4c 25 3a c8  99 26 36 31 35 30 32 2c  |.F%,L%:..&61502,|
000077b0  53 5f 25 2c 55 24 2c 4a  25 2c 32 35 36 2c 41 24  |S_%,U$,J%,256,A$|
000077c0  2c 5a 24 2c 43 24 2c 6c  24 b8 2c 2c 2c 4c 25 3b  |,Z$,C$,l$.,,,L%;|
000077d0  46 25 3a e7 46 25 80 31  85 32 2c 22 43 61 6e 27  |F%:.F%.1.2,"Can'|
000077e0  74 20 67 65 74 20 6d 65  73 73 61 67 65 20 27 22  |t get message '"|
000077f0  2b 55 24 2b 22 27 20 66  72 6f 6d 20 4d 65 73 73  |+U$+"' from Mess|
00007800  61 67 65 73 20 66 69 6c  65 22 0d 02 89 11 4a 25  |ages file"....J%|
00007810  3f 4c 25 3d 26 44 3a 3d  24 4a 25 0d 02 8a 44 dd  |?L%=&D:=$J%...D.|
00007820  a4 4f 79 28 55 24 2c 4c  25 2c 48 25 2c 5a 24 2c  |.Oy(U$,L%,H%,Z$,|
00007830  41 24 29 3a ea 4d 24 2c  41 25 3a e3 41 25 3d 4c  |A$):.M$,A%:.A%=L|
00007840  25 b8 48 25 3a 4d 24 2b  3d 5a 24 2b a4 41 28 55  |%.H%:M$+=Z$+.A(U|
00007850  24 2b c3 41 25 29 2b 41  24 3a ed 3a 3d 4d 24 0d  |$+.A%)+A$:.:=M$.|
00007860  02 8b 31 dd a4 72 28 5f  25 2c 51 25 2c 6e 6c 25  |..1..r(_%,Q%,nl%|
00007870  2c 75 6c 25 2c 73 25 2c  62 25 29 3a e7 73 25 3c  |,ul%,s%,b%):.s%<|
00007880  30 8c 6e 6c 25 2b 3d 73  25 3a 73 25 3d 2d 73 25  |0.nl%+=s%:s%=-s%|
00007890  0d 02 8c 18 e7 62 25 3c  30 8c 75 6c 25 2b 3d 62  |.....b%<0.ul%+=b|
000078a0  25 3a 62 25 3d 2d 62 25  0d 02 8d 38 3d 28 28 5f  |%:b%=-b%...8=((_|
000078b0  25 3e 3d 6e 6c 25 29 80  28 5f 25 3c 3d 28 6e 6c  |%>=nl%).(_%<=(nl|
000078c0  25 2b 73 25 29 29 80 28  51 25 3e 3d 75 6c 25 29  |%+s%)).(Q%>=ul%)|
000078d0  80 28 51 25 3c 3d 28 75  6c 25 2b 62 25 29 29 29  |.(Q%<=(ul%+b%)))|
000078e0  0d 02 8e 18 dd a4 4a 79  3a ea 50 25 3a c8 99 38  |......Jy:.P%:..8|
000078f0  31 b8 50 25 3a 3d 50 25  0d 02 8f 4e dd a4 77 79  |1.P%:=P%...N..wy|
00007900  3a ea 49 24 2c 49 25 3a  c8 99 31 36 b8 49 24 3a  |:.I$,I%:..16.I$:|
00007910  49 25 3d a7 49 24 2c 22  20 2d 71 75 69 74 20 22  |I%=.I$," -quit "|
00007920  29 3a e7 49 25 8c 49 24  3d c1 49 24 2c a7 49 24  |):.I%.I$=.I$,.I$|
00007930  2c 22 20 22 2c 49 25 2b  a9 22 20 2d 71 75 69 74  |," ",I%+." -quit|
00007940  20 22 29 2b 31 29 0d 02  90 07 3d 49 24 0d 02 91  | ")+1)....=I$...|
00007950  38 dd a4 74 79 28 41 24  29 3a ea 4c 25 3a c8 99  |8..ty(A$):.L%:..|
00007960  33 35 2c 41 24 2c 4a 25  2c 26 46 46 2c 30 2c 33  |35,A$,J%,&FF,0,3|
00007970  b8 2c 2c 4c 25 3a 4a 25  3f 4c 25 3d 30 3a 3d a4  |.,,L%:J%?L%=0:=.|
00007980  4e 28 4a 25 29 0d 02 92  59 dd a4 74 28 41 24 29  |N(J%)...Y..t(A$)|
00007990  3a ea 4c 25 2c 46 25 3a  c8 99 26 32 30 30 32 33  |:.L%,F%:..&20023|
000079a0  2c 41 24 2c 4a 25 2c 26  46 46 2c 30 2c 33 b8 2c  |,A$,J%,&FF,0,3.,|
000079b0  2c 4c 25 3b 46 25 3a e7  28 46 25 80 31 29 3d 30  |,L%;F%:.(F%.1)=0|
000079c0  8c 4a 25 3f 4c 25 3d 30  3a e7 a4 4e 28 4a 25 29  |.J%?L%=0:..N(J%)|
000079d0  3c 3e 22 22 8c 46 25 3d  b9 8b 46 25 3d a3 0d 02  |<>"".F%=..F%=...|
000079e0  93 07 3d 46 25 0d 02 94  4a dd a4 6c 28 4d 25 29  |..=F%...J..l(M%)|
000079f0  3a ea 53 25 3a c8 99 26  34 30 30 45 43 2c 2d 31  |:.S%:..&400EC,-1|
00007a00  2c 2d 31 b8 53 25 3a c8  99 26 34 30 30 45 43 2c  |,-1.S%:..&400EC,|
00007a10  53 25 2b 4d 25 2c 2d 31  b8 53 25 3a 52 75 25 3d  |S%+M%,-1.S%:Ru%=|
00007a20  53 25 2d 28 93 2d 26 38  30 30 30 29 3a 3d 93 0d  |S%-(.-&8000):=..|
00007a30  02 95 3f dd a4 4e 28 50  25 29 3a ea 41 24 3a c8  |..?..N(P%):.A$:.|
00007a40  95 3f 50 25 3c 3e 30 80  3f 50 25 3c 3e 26 44 80  |.?P%<>0.?P%<>&D.|
00007a50  3f 50 25 3c 3e 26 41 3a  41 24 2b 3d bd 28 3f 50  |?P%<>&A:A$+=.(?P|
00007a60  25 29 3a 50 25 2b 3d 31  3a ce 3a 3d 41 24 0d 02  |%):P%+=1:.:=A$..|
00007a70  96 3a dd f2 65 4a 28 63  79 25 29 3a 21 4a 25 3d  |.:..eJ(cy%):!J%=|
00007a80  32 35 36 3a 4a 25 21 26  43 3d 30 3a 4a 25 21 31  |256:J%!&C=0:J%!1|
00007a90  36 3d 30 3a c8 99 26 34  30 30 45 37 2c 31 37 2c  |6=0:..&400E7,17,|
00007aa0  4a 25 2c 63 79 25 3a e1  0d 02 97 44 dd a4 73 28  |J%,cy%:....D..s(|
00007ab0  41 24 29 3a ea 41 25 2c  43 25 3a e3 41 25 3d 31  |A$):.A%,C%:.A%=1|
00007ac0  b8 a9 41 24 3a 43 25 3d  97 c1 41 24 2c 41 25 2c  |..A$:C%=..A$,A%,|
00007ad0  31 29 3a e7 43 25 3e 3d  39 37 80 43 25 3c 3d 26  |1):.C%>=97.C%<=&|
00007ae0  37 41 8c 43 25 3d 43 25  80 ac 33 32 0d 02 98 17  |7A.C%=C%..32....|
00007af0  c1 41 24 2c 41 25 29 3d  bd 28 43 25 29 3a ed 3a  |.A$,A%)=.(C%):.:|
00007b00  3d 41 24 0d 02 99 37 dd  a4 64 3a ea 41 25 2c 42  |=A$...7..d:.A%,B|
00007b10  25 3a c8 99 35 33 2c 2d  31 2c 26 42 b8 2c 2c 41  |%:..53,-1,&B.,,A|
00007b20  25 3a c8 99 35 33 2c 2d  31 2c 34 b8 2c 2c 42 25  |%:..53,-1,4.,,B%|
00007b30  3a 3d 28 41 25 3c 3c 42  25 29 0d 02 9a 60 dd f2  |:=(A%<<B%)...`..|
00007b40  42 28 70 24 29 3a 21 4a  25 3d 26 46 46 3a 24 28  |B(p$):!J%=&FF:$(|
00007b50  4a 25 2b 34 29 3d 70 24  2b bd 30 3a c8 99 26 34  |J%+4)=p$+.0:..&4|
00007b60  30 30 44 46 2c 4a 25 2c  31 37 2b 28 31 3c 3c 38  |00DF,J%,17+(1<<8|
00007b70  29 2b 28 31 3c 3c 39 29  2c 22 4d 65 73 73 61 67  |)+(1<<9),"Messag|
00007b80  65 20 66 72 6f 6d 20 22  2b 4b 24 2c 22 21 4f 72  |e from "+K$,"!Or|
00007b90  67 61 6e 69 73 65 72 22  3a e1 0d 02 9b 66 dd a4  |ganiser":....f..|
00007ba0  42 79 28 41 24 2c 52 25  29 3a 21 4a 25 3d 30 3a  |By(A$,R%):!J%=0:|
00007bb0  24 28 4a 25 2b 34 29 3d  41 24 3a c8 99 26 34 30  |$(J%+4)=A$:..&40|
00007bc0  30 44 46 2c 4a 25 2c 32  33 2d 34 2a 94 52 25 2b  |0DF,J%,23-4*.R%+|
00007bd0  28 31 3c 3c 38 29 2c 22  4d 65 73 73 61 67 65 20  |(1<<8),"Message |
00007be0  66 72 6f 6d 20 22 2b 4b  24 2c 22 21 4f 72 67 61  |from "+K$,"!Orga|
00007bf0  6e 69 73 65 72 22 b8 2c  52 25 3a 3d 52 25 2d 32  |niser".,R%:=R%-2|
00007c00  0d 02 9c 26 dd a4 5a 5f  28 63 25 2c 72 25 2c 51  |...&..Z_(c%,r%,Q|
00007c10  25 29 3a 3d 28 a4 44 28  63 25 2c 72 25 2c 51 25  |%):=(.D(c%,r%,Q%|
00007c20  29 2b 31 29 83 32 0d 02  9d 70 dd a4 44 28 63 25  |)+1).2...p..D(c%|
00007c30  2c 72 25 2c 51 25 29 3a  ea 55 75 25 3a 47 79 25  |,r%,Q%):.Uu%:Gy%|
00007c40  3d 51 25 2d 26 37 37 44  3a 55 75 25 3d 47 79 25  |=Q%-&77D:Uu%=Gy%|
00007c50  2a 33 36 35 3a 55 75 25  2b 3d 47 79 25 81 34 2d  |*365:Uu%+=Gy%.4-|
00007c60  28 51 25 2d 26 37 36 43  2d 31 29 81 26 36 34 2b  |(Q%-&76C-1).&64+|
00007c70  28 51 25 2d 26 36 34 30  2d 31 29 81 34 30 30 3a  |(Q%-&640-1).400:|
00007c80  c8 95 28 72 25 2d 31 29  3e 30 3a 72 25 2d 3d 31  |..(r%-1)>0:r%-=1|
00007c90  3a c8 8e 72 25 ca 0d 02  9e 1c c9 31 2c 33 2c 35  |:..r%......1,3,5|
00007ca0  2c 37 2c 38 2c 26 41 2c  26 43 3a 55 75 25 2b 3d  |,7,8,&A,&C:Uu%+=|
00007cb0  33 31 0d 02 9f 15 c9 34  2c 36 2c 39 2c 26 42 3a  |31.....4,6,9,&B:|
00007cc0  55 75 25 2b 3d 33 30 0d  02 a0 16 c9 32 3a 55 75  |Uu%+=30.....2:Uu|
00007cd0  25 2b 3d 32 38 2d a4 46  79 28 51 25 29 0d 02 a1  |%+=28-.Fy(Q%)...|
00007ce0  0f cb 3a ce 3a 3d 55 75  25 2b 63 25 0d 02 a2 23  |..:.:=Uu%+c%...#|
00007cf0  dd a4 48 28 63 25 2c 72  25 2c 51 25 29 3a 3d a4  |..H(c%,r%,Q%):=.|
00007d00  6f 28 a4 44 28 63 25 2c  72 25 2c 51 25 29 29 0d  |o(.D(c%,r%,Q%)).|
00007d10  02 a3 18 dd a4 58 28 72  25 2c 51 25 29 3a ea 63  |.....X(r%,Q%):.c|
00007d20  25 3a c8 8e 72 25 ca 0d  02 a4 1a c9 31 2c 33 2c  |%:..r%......1,3,|
00007d30  35 2c 37 2c 38 2c 26 41  2c 26 43 3a 63 25 3d 33  |5,7,8,&A,&C:c%=3|
00007d40  31 0d 02 a5 13 c9 34 2c  36 2c 39 2c 26 42 3a 63  |1.....4,6,9,&B:c|
00007d50  25 3d 33 30 0d 02 a6 14  c9 32 3a 63 25 3d 32 38  |%=30.....2:c%=28|
00007d60  2d a4 46 79 28 51 25 29  0d 02 a7 09 cb 3a 3d 63  |-.Fy(Q%).....:=c|
00007d70  25 0d 02 a8 2e dd a4 46  79 28 51 25 29 3d 28 28  |%......Fy(Q%)=((|
00007d80  51 25 83 34 3d 30 29 80  ac 28 51 25 83 26 36 34  |Q%.4=0)..(Q%.&64|
00007d90  3d 30 29 29 84 28 51 25  83 34 30 30 3d 30 29 0d  |=0)).(Q%.400=0).|
00007da0  02 a9 a5 dd f2 46 28 f8  64 25 2c f8 71 25 2c f8  |.....F(.d%,.q%,.|
00007db0  78 25 2c 6d 79 25 2c 4c  75 25 2c 47 79 25 29 3a  |x%,my%,Lu%,Gy%):|
00007dc0  ea 67 69 25 2c 44 61 25  2c 4b 25 3a 67 69 25 3d  |.gi%,Da%,K%:gi%=|
00007dd0  64 25 3a 44 61 25 3d 71  25 3a 4b 25 3d 78 25 3a  |d%:Da%=q%:K%=x%:|
00007de0  64 25 2b 3d 6d 79 25 3a  71 25 2b 3d 4c 75 25 3a  |d%+=my%:q%+=Lu%:|
00007df0  78 25 2b 3d 47 79 25 3a  c8 95 71 25 3c 31 3a 71  |x%+=Gy%:..q%<1:q|
00007e00  25 2b 3d 26 43 3a 78 25  2d 3d 31 3a ce 3a c8 95  |%+=&C:x%-=1:.:..|
00007e10  71 25 3e 26 43 3a 71 25  2d 3d 26 43 3a 4f 61 25  |q%>&C:q%-=&C:Oa%|
00007e20  2b 3d 31 3a ce 3a c8 95  64 25 3c 31 3a 71 25 2d  |+=1:.:..d%<1:q%-|
00007e30  3d 31 3a e7 71 25 3c 31  8c 71 25 3d 26 43 3a 78  |=1:.q%<1.q%=&C:x|
00007e40  25 2d 3d 31 0d 02 aa 48  64 25 2b 3d a4 58 28 71  |%-=1...Hd%+=.X(q|
00007e50  25 2c 78 25 29 3a ce 3a  c8 95 64 25 3e a4 58 28  |%,x%):.:..d%>.X(|
00007e60  71 25 2c 78 25 29 3a 64  25 2d 3d a4 58 28 71 25  |q%,x%):d%-=.X(q%|
00007e70  2c 78 25 29 3a 71 25 2b  3d 31 3a e7 71 25 3e 26  |,x%):q%+=1:.q%>&|
00007e80  43 8c 71 25 3d 31 3a 78  25 2b 3d 31 0d 02 ab 2a  |C.q%=1:x%+=1...*|
00007e90  ce 3a e7 78 25 3c 26 37  37 64 84 78 25 3e 26 66  |.:.x%<&77d.x%>&f|
00007ea0  66 66 8c 64 25 3d 67 69  25 3a 71 25 3d 44 61 25  |ff.d%=gi%:q%=Da%|
00007eb0  3a 78 25 3d 4b 25 0d 02  ac 05 e1 0d 02 ad 19 dd  |:x%=K%..........|
00007ec0  a4 6f 28 75 25 29 3a 3d  28 28 75 25 2d 31 29 83  |.o(u%):=((u%-1).|
00007ed0  37 29 2b 31 0d 02 ae 4f  dd a4 51 28 63 25 2c 72  |7)+1...O..Q(c%,r|
00007ee0  25 2c 51 25 2c 7a 4a 25  29 3a 3d a4 63 28 a4 44  |%,Q%,zJ%):=.c(.D|
00007ef0  28 63 25 2c 72 25 2c 51  25 29 2c 7a 4a 25 29 2b  |(c%,r%,Q%),zJ%)+|
00007f00  22 2c 20 22 2b a4 41 5f  28 63 25 29 2b 22 20 22  |", "+.A_(c%)+" "|
00007f10  2b a4 55 28 72 25 2c 7a  4a 25 29 2b 22 20 22 2b  |+.U(r%,zJ%)+" "+|
00007f20  c3 51 25 0d 02 af fb dd  f2 70 75 3a ea 43 25 2c  |.Q%......pu:.C%,|
00007f30  50 25 2c 4a 2c 50 2c 52  2c 4d 2c 5a 2c 57 2c 47  |P%,J,P,R,M,Z,W,G|
00007f40  2c 4e 2c 77 2c 43 2c 55  3a de 43 25 26 39 30 3a  |,N,w,C,U:.C%&90:|
00007f50  4a 3d 26 44 3a 50 3d 26  45 3a 52 3d 26 46 3a 4d  |J=&D:P=&E:R=&F:M|
00007f60  3d 32 3a 5a 3d 33 3a 57  3d 34 3a 47 3d 35 3a 4e  |=2:Z=3:W=4:G=5:N|
00007f70  3d 30 3a 77 3d 31 3a 43  3d 36 3a 55 3d 37 3a e3  |=0:w=1:C=6:U=7:.|
00007f80  53 25 3d 30 b8 32 88 32  3a 50 25 3d 43 25 3a 5b  |S%=0.2.2:P%=C%:[|
00007f90  4f 50 54 53 25 3a 2e 56  20 43 4d 50 20 47 2c 23  |OPTS%:.V CMP G,#|
00007fa0  30 3a 52 53 42 4c 54 20  47 2c 47 2c 23 30 3a 53  |0:RSBLT G,G,#0:S|
00007fb0  55 42 4c 54 20 5a 2c 5a  2c 47 3a 43 4d 50 20 57  |UBLT Z,Z,G:CMP W|
00007fc0  2c 23 30 3a 52 53 42 4c  54 20 57 2c 57 2c 23 30  |,#0:RSBLT W,W,#0|
00007fd0  3a 53 55 42 4c 54 20 4d  2c 4d 2c 57 3a 41 44 44  |:SUBLT M,M,W:ADD|
00007fe0  20 55 2c 4d 2c 57 3a 4c  44 52 20 43 2c 5b 4e 2c  | U,M,W:LDR C,[N,|
00007ff0  23 32 38 5d 3a 43 4d 50  20 55 2c 43 3a 42 4c 54  |#28]:CMP U,C:BLT|
00008000  20 51 3a 4c 44 52 20 43  2c 5b 4e 2c 23 33 36 5d  | Q:LDR C,[N,#36]|
00008010  3a 43 4d 50 20 4d 2c 43  3a 42 47 54 20 51 0d 02  |:CMP M,C:BGT Q..|
00008020  b0 cb 4c 44 52 20 43 2c  5b 4e 2c 23 33 32 5d 3a  |..LDR C,[N,#32]:|
00008030  41 44 44 20 55 2c 5a 2c  47 3a 43 4d 50 20 55 2c  |ADD U,Z,G:CMP U,|
00008040  43 3a 42 4c 54 20 51 3a  4c 44 52 20 43 2c 5b 4e  |C:BLT Q:LDR C,[N|
00008050  2c 23 34 30 5d 3a 43 4d  50 20 5a 2c 43 3a 42 47  |,#40]:CMP Z,C:BG|
00008060  54 20 51 3a 43 4d 50 20  77 2c 23 30 3a 4d 56 4e  |T Q:CMP w,#0:MVN|
00008070  45 51 30 2c 23 31 3a ec  51 70 63 2c 50 3a 42 20  |EQ0,#1:.Qpc,P:B |
00008080  61 3a 2e 51 20 4d 4f 56  30 2c 23 30 3a 4d 4f 56  |a:.Q MOV0,#0:MOV|
00008090  70 63 2c 50 3a 2e 61 20  4d 4f 56 31 2c 4d 3a 4d  |pc,P:.a MOV1,M:M|
000080a0  4f 56 32 2c 5a 3a 4d 4f  56 30 2c 23 34 3a 53 57  |OV2,Z:MOV0,#4:SW|
000080b0  49 20 36 39 3a 4d 4f 56  31 2c 57 3a 4d 4f 56 32  |I 69:MOV1,W:MOV2|
000080c0  2c 47 3a 4d 4f 56 30 2c  23 39 36 2b 31 3a 53 57  |,G:MOV0,#96+1:SW|
000080d0  49 20 36 39 3a 4d 56 4e  30 2c 23 31 3a 4d 4f 56  |I 69:MVN0,#1:MOV|
000080e0  70 63 2c 50 3a 5d ed 3a  e1 0d 02 b1 2a dd a4 53  |pc,P:].:....*..S|
000080f0  28 43 25 2c 44 25 2c 45  25 2c 46 25 29 3a ea 41  |(C%,D%,E%,F%):.A|
00008100  25 2c 42 25 3a 41 25 3d  55 25 3a 42 25 3d 30 3a  |%,B%:A%=U%:B%=0:|
00008110  3d ba 56 0d 02 b2 2b dd  f2 58 28 43 25 2c 44 25  |=.V...+..X(C%,D%|
00008120  2c 45 25 2c 46 25 29 3a  ea 41 25 2c 42 25 3a 41  |,E%,F%):.A%,B%:A|
00008130  25 3d 55 25 3a 42 25 3d  31 3a d6 56 3a e1 0d 02  |%=U%:B%=1:.V:...|
00008140  b3 42 dd f2 47 28 65 25  29 3a 21 4a 25 3d 65 25  |.B..G(e%):!J%=e%|
00008150  3a c8 99 26 34 30 30 43  36 2c 2c 4a 25 3a e7 65  |:..&400C6,,J%:.e|
00008160  25 3d 78 5f 25 8c 48 75  25 3d a3 3a 21 4a 25 3d  |%=x_%.Hu%=.:!J%=|
00008170  63 5f 25 3a c8 99 26 36  30 30 43 36 2c 2c 4a 25  |c_%:..&600C6,,J%|
00008180  0d 02 b4 10 e7 65 25 3d  69 25 8c 56 79 25 3d a3  |.....e%=i%.Vy%=.|
00008190  0d 02 b5 05 e1 0d 02 b6  40 dd f2 59 75 28 42 25  |........@..Yu(B%|
000081a0  29 3a ea 4e 25 2c 41 24  2c 50 79 25 2c 70 25 3a  |):.N%,A$,Py%,p%:|
000081b0  4e 25 3d 42 25 21 38 34  3a 42 25 2b 3d 38 38 3a  |N%=B%!84:B%+=88:|
000081c0  c8 95 4e 25 3a e7 28 28  42 25 21 31 36 29 80 36  |..N%:.((B%!16).6|
000081d0  34 29 3e 30 8c 0d 02 b7  83 41 24 3d 24 28 42 25  |4)>0.....A$=$(B%|
000081e0  21 32 34 29 3a 70 25 3d  a0 28 22 26 22 2b c1 41  |!24):p%=.("&"+.A|
000081f0  24 2c a7 41 24 2c 22 46  22 29 2b 31 2c 31 29 29  |$,.A$,"F")+1,1))|
00008200  3a 50 79 25 3d a0 28 22  26 22 2b c1 41 24 2c a7  |:Py%=.("&"+.A$,.|
00008210  41 24 2c 22 46 22 29 2b  32 2c 31 29 29 3a 42 25  |A$,"F")+2,1)):B%|
00008220  21 31 36 3d 42 25 21 31  36 80 ac 28 36 34 2b 28  |!16=B%!16..(64+(|
00008230  26 46 46 3c 3c 32 34 29  29 3a 42 25 21 31 36 3d  |&FF<<24)):B%!16=|
00008240  42 25 21 31 36 84 28 50  79 25 3c 3c 32 34 29 84  |B%!16.(Py%<<24).|
00008250  28 70 25 3c 3c 32 38 29  0d 02 b8 16 cd 3a 42 25  |(p%<<28).....:B%|
00008260  2b 3d 33 32 3a 4e 25 2d  3d 31 3a ce 3a e1 0d 02  |+=32:N%-=1:.:...|
00008270  b9 3d dd f2 44 28 65 25  2c 4f 5f 25 2c 60 79 25  |.=..D(e%,O_%,`y%|
00008280  2c 42 5f 25 2c 6a 79 25  29 3a c8 99 26 34 30 30  |,B_%,jy%):..&400|
00008290  44 31 2c 65 25 2c 4f 5f  25 2c 6a 79 25 2c 42 5f  |D1,e%,O_%,jy%,B_|
000082a0  25 2b 32 2c 60 79 25 2b  34 3a e1 0d 02 ba a1 dd  |%+2,`y%+4:......|
000082b0  f2 77 28 65 25 2c 49 4a  25 2c 56 6c 25 29 3a ea  |.w(e%,IJ%,Vl%):.|
000082c0  57 25 2c 48 25 2c 58 25  2c 59 25 2c 5a 25 3a 21  |W%,H%,X%,Y%,Z%:!|
000082d0  4a 25 3d 65 25 3a c8 99  26 34 30 30 43 42 2c 2c  |J%=e%:..&400CB,,|
000082e0  4a 25 3a 58 25 3d 33 36  2a 28 28 4a 25 21 33 32  |J%:X%=36*((J%!32|
000082f0  3e 3e 32 38 29 80 31 29  3a 59 25 3d 33 36 2a 28  |>>28).1):Y%=36*(|
00008300  28 4a 25 21 33 32 3e 3e  32 36 29 80 31 29 2d 33  |(J%!32>>26).1)-3|
00008310  36 2a 28 28 4a 25 21 33  32 3e 3e 33 30 29 80 31  |6*((J%!32>>30).1|
00008320  29 3a 57 25 3d 4a 25 21  26 43 2d 4a 25 21 34 2b  |):W%=J%!&C-J%!4+|
00008330  58 25 3a 48 25 3d 4a 25  21 31 36 2d 4a 25 21 38  |X%:H%=J%!16-J%!8|
00008340  2b 59 25 3a e7 56 6c 25  3d 2d 31 8c 0d 02 bb 4a  |+Y%:.Vl%=-1....J|
00008350  4a 25 21 34 3d a4 64 2f  32 2d 57 25 2f 32 3a 4a  |J%!4=.d/2-W%/2:J|
00008360  25 21 26 43 3d 4a 25 21  34 2b 57 25 3a 4a 25 21  |%!&C=J%!4+W%:J%!|
00008370  31 36 3d a4 65 2d 28 28  a4 65 2d 26 38 34 29 2d  |16=.e-((.e-&84)-|
00008380  48 25 29 2f 32 2d 59 25  3a 4a 25 21 38 3d 4a 25  |H%)/2-Y%:J%!8=J%|
00008390  21 31 36 2d 48 25 0d 02  bc 0d cc 3a e7 56 6c 25  |!16-H%.....:.Vl%|
000083a0  3d 31 8c 0d 02 bd 3b c8  97 58 25 2c 59 25 2c 5a  |=1....;..X%,Y%,Z|
000083b0  25 3a 4a 25 21 34 3d 58  25 2d 36 34 3a 4a 25 21  |%:J%!4=X%-64:J%!|
000083c0  26 43 3d 4a 25 21 34 2b  57 25 3a 4a 25 21 38 3d  |&C=J%!4+W%:J%!8=|
000083d0  59 25 2d 48 25 3a 4a 25  21 31 36 3d 59 25 0d 02  |Y%-H%:J%!16=Y%..|
000083e0  be 05 cd 0d 02 bf 17 cd  3a e7 49 4a 25 3c 3e 30  |........:.IJ%<>0|
000083f0  8c 4a 25 21 32 38 3d 49  4a 25 0d 02 c0 1d c8 99  |.J%!28=IJ%......|
00008400  26 34 30 30 43 35 2c 2c  4a 25 3a e7 65 25 3d 69  |&400C5,,J%:.e%=i|
00008410  25 8c 56 79 25 3d b9 0d  02 c1 36 e7 65 25 3d 78  |%.Vy%=....6.e%=x|
00008420  5f 25 8c 48 75 25 3d b9  3a 21 55 25 3d 78 5f 25  |_%.Hu%=.:!U%=x_%|
00008430  3a c8 99 26 34 30 30 43  42 2c 2c 55 25 3a 55 25  |:..&400CB,,U%:U%|
00008440  21 32 38 3d 4a 25 21 32  38 3a f2 60 79 0d 02 c2  |!28=J%!28:.`y...|
00008450  05 e1 0d 02 c3 47 dd f2  5f 79 28 71 69 25 2c 65  |.....G.._y(qi%,e|
00008460  25 2c 5f 25 2c 51 25 2c  54 6c 25 2c 5a 69 25 2c  |%,_%,Q%,Tl%,Zi%,|
00008470  4d 69 25 29 3a e7 63 5f  25 3c 3e 30 80 63 5f 25  |Mi%):.c_%<>0.c_%|
00008480  3c 3e 65 25 8c 21 4a 25  3d 63 5f 25 3a c8 99 26  |<>e%.!J%=c_%:..&|
00008490  36 30 30 43 36 2c 2c 4a  25 0d 02 c4 41 63 5f 25  |600C6,,J%...Ac_%|
000084a0  3d 65 25 3a 78 5f 25 3d  71 69 25 3a 42 6c 25 3d  |=e%:x_%=qi%:Bl%=|
000084b0  5f 25 3a 48 6c 25 3d 51  25 3a 48 75 25 3d 54 6c  |_%:Hl%=Q%:Hu%=Tl|
000084c0  25 3a 72 6c 25 3d 5a 69  25 3a 66 6c 25 3d 4d 69  |%:rl%=Zi%:fl%=Mi|
000084d0  25 3a e7 63 5f 25 3c 3e  30 8c 0d 02 c5 77 21 4a  |%:.c_%<>0....w!J|
000084e0  25 3d 63 5f 25 3a c8 99  26 34 30 30 43 42 2c 2c  |%=c_%:..&400CB,,|
000084f0  4a 25 3a 46 61 25 3d 4a  25 21 26 43 2d 4a 25 21  |J%:Fa%=J%!&C-J%!|
00008500  34 3a 43 61 25 3d 4a 25  21 31 36 2d 4a 25 21 38  |4:Ca%=J%!16-J%!8|
00008510  3a 21 4a 25 3d 78 5f 25  3a c8 99 26 34 30 30 43  |:!J%=x_%:..&400C|
00008520  42 2c 2c 4a 25 3a 4a 25  21 34 2b 3d 5f 25 3a 4a  |B,,J%:J%!4+=_%:J|
00008530  25 21 31 36 2b 3d 51 25  3a e7 54 6c 25 8c 21 4a  |%!16+=Q%:.Tl%.!J|
00008540  25 3d 65 25 3a c8 99 26  34 30 30 43 35 2c 2c 4a  |%=e%:..&400C5,,J|
00008550  25 0d 02 c6 07 cd 3a e1  0d 02 c7 19 dd f2 60 79  |%.....:.......`y|
00008560  3a e7 63 5f 25 3c 3e 30  80 21 55 25 3d 78 5f 25  |:.c_%<>0.!U%=x_%|
00008570  8c 0d 02 c8 69 21 4a 25  3d 63 5f 25 3a 4a 25 21  |....i!J%=c_%:J%!|
00008580  34 3d 55 25 21 34 2b 42  6c 25 3a 4a 25 21 31 36  |4=U%!4+Bl%:J%!16|
00008590  3d 55 25 21 31 36 2b 48  6c 25 3a 4a 25 21 26 43  |=U%!16+Hl%:J%!&C|
000085a0  3d 4a 25 21 34 2b 46 61  25 3a 4a 25 21 38 3d 4a  |=J%!4+Fa%:J%!8=J|
000085b0  25 21 31 36 2d 43 61 25  3a 4a 25 21 32 30 3d 30  |%!16-Ca%:J%!20=0|
000085c0  3a 4a 25 21 32 34 3d 30  3a 4a 25 21 32 38 3d 55  |:J%!24=0:J%!28=U|
000085d0  25 21 32 38 3a e7 72 6c  25 8c 0d 02 c9 41 4a 25  |%!28:.rl%....AJ%|
000085e0  21 34 2d 3d 55 25 21 32  30 3a 4a 25 21 26 43 2d  |!4-=U%!20:J%!&C-|
000085f0  3d 55 25 21 32 30 3a e7  4a 25 21 34 3c 55 25 21  |=U%!20:.J%!4<U%!|
00008600  34 8c 4a 25 21 32 30 3d  55 25 21 32 30 2d 42 6c  |4.J%!20=U%!20-Bl|
00008610  25 3a 4a 25 21 34 3d 55  25 21 34 0d 02 ca 1c e7  |%:J%!4=U%!4.....|
00008620  4a 25 21 26 43 3e 55 25  21 26 43 8c 4a 25 21 26  |J%!&C>U%!&C.J%!&|
00008630  43 3d 55 25 21 26 43 0d  02 cb 0b cd 3a e7 66 6c  |C=U%!&C.....:.fl|
00008640  25 8c 0d 02 cc 47 4a 25  21 31 36 2d 3d 55 25 21  |%....GJ%!16-=U%!|
00008650  32 34 3a 4a 25 21 38 2d  3d 55 25 21 32 34 3a e7  |24:J%!8-=U%!24:.|
00008660  4a 25 21 31 36 3e 55 25  21 31 36 8c 4a 25 21 32  |J%!16>U%!16.J%!2|
00008670  34 3d 55 25 21 31 36 2d  4a 25 21 31 36 3a 4a 25  |4=U%!16-J%!16:J%|
00008680  21 31 36 3d 55 25 21 31  36 0d 02 cd 18 e7 4a 25  |!16=U%!16.....J%|
00008690  21 38 3c 55 25 21 38 8c  4a 25 21 38 3d 55 25 21  |!8<U%!8.J%!8=U%!|
000086a0  38 0d 02 ce 1c cd 3a c8  99 26 34 30 30 43 35 2c  |8.....:..&400C5,|
000086b0  2c 4a 25 3a 55 25 21 32  38 3d 63 5f 25 0d 02 cf  |,J%:U%!28=c_%...|
000086c0  07 cd 3a e1 0d 02 d0 2d  dd f2 6d 4a 3a ea 41 25  |..:....-..mJ:.A%|
000086d0  3a de 59 6c 25 32 35 36  3a e3 41 25 3d 30 b8 32  |:.Yl%256:.A%=0.2|
000086e0  35 36 88 34 3a 59 6c 25  21 41 25 3d 30 3a ed 3a  |56.4:Yl%!A%=0:.:|
000086f0  e1 0d 02 d1 33 dd f2 64  75 28 61 61 25 2c 72 24  |....3..du(aa%,r$|
00008700  29 3a 59 6c 25 3d 2d 31  3a c8 99 26 34 30 30 44  |):Yl%=-1:..&400D|
00008710  39 2c 2c 72 24 3a f2 68  75 3a c8 99 26 34 30 30  |9,,r$:.hu:..&400|
00008720  44 41 3a e1 0d 02 d2 24  dd f2 69 28 57 25 2c 49  |DA:....$..i(W%,I|
00008730  79 25 2c 41 24 2c 75 4a  25 29 3a 24 49 79 25 3d  |y%,A$,uJ%):$Iy%=|
00008740  41 24 3a e7 75 4a 25 8c  0d 02 d3 3d 21 55 25 3d  |A$:.uJ%....=!U%=|
00008750  57 25 3a c8 99 26 34 30  30 43 42 2c 2c 55 25 3a  |W%:..&400CB,,U%:|
00008760  c8 99 26 34 30 30 44 31  2c 2d 31 2c 55 25 21 34  |..&400D1,-1,U%!4|
00008770  2c 55 25 21 31 36 2c 55  25 21 26 43 2c 55 25 21  |,U%!16,U%!&C,U%!|
00008780  31 36 2b 34 34 0d 02 d4  07 cd 3a e1 0d 02 d5 20  |16+44.....:.... |
00008790  dd f2 56 28 42 25 2c 46  25 29 3a c8 99 26 34 30  |..V(B%,F%):..&40|
000087a0  30 46 33 2c 2c 42 25 2c  46 25 3a e1 0d 02 d6 39  |0F3,,B%,F%:....9|
000087b0  dd a4 4a 28 72 24 2c 57  25 2c 48 25 29 3a ea 46  |..J(r$,W%,H%):.F|
000087c0  25 3a c8 99 26 34 30 30  38 31 2c 2c 72 24 2c 31  |%:..&40081,,r$,1|
000087d0  36 2a 57 25 2c 31 36 2a  48 25 2c 30 2c 30 b8 46  |6*W%,16*H%,0,0.F|
000087e0  25 3a 3d 46 25 0d 02 d7  19 dd f2 51 28 48 25 29  |%:=F%......Q(H%)|
000087f0  3a c8 99 26 34 30 30 38  32 2c 48 25 3a e1 0d 02  |:..&40082,H%:...|
00008800  d8 2a dd f2 6f 79 28 f8  58 25 2c f8 59 25 29 3a  |.*..oy(.X%,.Y%):|
00008810  c8 99 26 34 30 30 38 38  2c 2c 58 25 2c 59 25 b8  |..&40088,,X%,Y%.|
00008820  2c 58 25 2c 59 25 3a e1  0d 02 d9 bb dd f2 4c 28  |,X%,Y%:.......L(|
00008830  63 79 25 2c 57 24 2c 5f  75 25 2c 5f 25 2c 51 25  |cy%,W$,_u%,_%,Q%|
00008840  29 3a ea 4f 5f 25 2c 6a  79 25 2c 42 5f 25 2c 60  |):.O_%,jy%,B_%,`|
00008850  79 25 2c 41 4a 25 3a c8  99 26 34 30 30 38 41 2c  |y%,AJ%:..&4008A,|
00008860  63 79 25 3a c8 99 26 34  30 30 39 37 2c 2c 57 24  |cy%:..&40097,,W$|
00008870  b8 2c 4f 5f 25 2c 6a 79  25 2c 42 5f 25 2c 60 79  |.,O_%,jy%,B_%,`y|
00008880  25 3a c8 99 26 34 30 30  38 38 2c 2c 4f 5f 25 2c  |%:..&40088,,O_%,|
00008890  6a 79 25 b8 2c 4f 5f 25  2c 6a 79 25 3a c8 99 26  |jy%.,O_%,jy%:..&|
000088a0  34 30 30 38 38 2c 2c 42  5f 25 2c 60 79 25 b8 2c  |40088,,B_%,`y%.,|
000088b0  42 5f 25 2c 60 79 25 3a  41 4a 25 3d 42 5f 25 2b  |B_%,`y%:AJ%=B_%+|
000088c0  4f 5f 25 3a e7 5f 75 25  3d 30 8c 5f 25 2d 3d 41  |O_%:._u%=0._%-=A|
000088d0  4a 25 2f 32 8b e7 5f 75  25 3e 30 8c 5f 25 2d 3d  |J%/2.._u%>0._%-=|
000088e0  41 4a 25 0d 02 da 41 e7  a4 53 28 5f 25 2c 51 25  |AJ%...A..S(_%,Q%|
000088f0  2d 60 79 25 2b 6a 79 25  2c 41 4a 25 2c 60 79 25  |-`y%+jy%,AJ%,`y%|
00008900  2d 6a 79 25 29 8c c8 99  26 34 30 30 38 36 2c 63  |-jy%)...&40086,c|
00008910  79 25 2c 57 24 2c 31 3c  3c 34 2c 5f 25 2c 51 25  |y%,W$,1<<4,_%,Q%|
00008920  2d 60 79 25 0d 02 db 05  e1 0d 02 dc f5 dd f2 65  |-`y%...........e|
00008930  79 28 63 79 25 2c 57 24  2c 4a 61 25 2c 77 69 25  |y(cy%,W$,Ja%,wi%|
00008940  2c 5f 25 2c 51 25 2c 67  25 29 3a ea 4f 5f 25 2c  |,_%,Q%,g%):.O_%,|
00008950  6a 79 25 2c 42 5f 25 2c  60 79 25 2c 41 4a 25 3a  |jy%,B_%,`y%,AJ%:|
00008960  21 4a 25 3d 30 3a 4a 25  21 34 3d 2d 67 25 3c 3c  |!J%=0:J%!4=-g%<<|
00008970  31 36 3a 4a 25 21 38 3d  67 25 3c 3c 31 36 3a 4a  |16:J%!8=g%<<16:J|
00008980  25 21 26 43 3d 30 3a 4a  25 21 31 36 3d 30 3a 4a  |%!&C=0:J%!16=0:J|
00008990  25 21 32 30 3d 30 3a c8  99 26 34 30 30 38 41 2c  |%!20=0:..&4008A,|
000089a0  63 79 25 3a c8 99 26 34  30 30 39 37 2c 2c 57 24  |cy%:..&40097,,W$|
000089b0  b8 2c 4f 5f 25 2c 6a 79  25 2c 42 5f 25 2c 60 79  |.,O_%,jy%,B_%,`y|
000089c0  25 3a c8 99 26 34 30 30  38 38 2c 2c 4f 5f 25 2c  |%:..&40088,,O_%,|
000089d0  6a 79 25 b8 2c 6a 79 25  2c 4f 5f 25 3a c8 99 26  |jy%.,jy%,O_%:..&|
000089e0  34 30 30 38 38 2c 2c 42  5f 25 2c 60 79 25 b8 2c  |40088,,B_%,`y%.,|
000089f0  60 79 25 2c 42 5f 25 3a  e7 4a 61 25 3d 30 8c 5f  |`y%,B_%:.Ja%=0._|
00008a00  25 2d 3d 67 25 2a 42 5f  25 2f 32 8b e7 4a 61 25  |%-=g%*B_%/2..Ja%|
00008a10  3d 67 25 8c 5f 25 2d 3d  67 25 2a 42 5f 25 0d 02  |=g%._%-=g%*B_%..|
00008a20  dd 2c e7 77 69 25 3d 30  8c 51 25 2b 3d 67 25 2a  |.,.wi%=0.Q%+=g%*|
00008a30  60 79 25 2f 32 8b e7 77  69 25 3d 2d 67 25 8c 51  |`y%/2..wi%=-g%.Q|
00008a40  25 2d 3d 77 69 25 2a 60  79 25 0d 02 de 2e c8 99  |%-=wi%*`y%......|
00008a50  26 34 30 30 38 36 2c 63  79 25 2c 57 24 2c 28 31  |&40086,cy%,W$,(1|
00008a60  3c 3c 34 29 2b 28 31 3c  3c 36 29 2c 5f 25 2c 51  |<<4)+(1<<6),_%,Q|
00008a70  25 2c 30 2c 4a 25 3a e1  0d 02 df 2d dd f2 72 28  |%,0,J%:....-..r(|
00008a80  6c 75 25 2c 57 24 2c 61  25 2c 4b 25 2c 73 25 2c  |lu%,W$,a%,K%,s%,|
00008a90  62 25 29 3a e7 a4 53 28  61 25 2c 4b 25 2c 73 25  |b%):..S(a%,K%,s%|
00008aa0  2c 62 25 29 8c 0d 02 e0  8d ea 41 25 2c 63 79 25  |,b%)......A%,cy%|
00008ab0  2c 4f 5f 25 2c 6a 79 25  2c 42 5f 25 2c 60 79 25  |,O_%,jy%,B_%,`y%|
00008ac0  2c 41 4a 25 2c 66 69 25  2c 58 6c 25 2c 44 6c 25  |,AJ%,fi%,Xl%,Dl%|
00008ad0  3a c8 99 26 34 30 30 38  41 2c 6c 75 25 3a 63 79  |:..&4008A,lu%:cy|
00008ae0  25 3d 6c 75 25 3a c8 99  26 34 30 30 39 37 2c 6c  |%=lu%:..&40097,l|
00008af0  75 25 2c 57 24 b8 2c 4f  5f 25 2c 6a 79 25 2c 42  |u%,W$.,O_%,jy%,B|
00008b00  5f 25 2c 60 79 25 3a c8  99 26 34 30 30 38 38 2c  |_%,`y%:..&40088,|
00008b10  2c 42 5f 25 2b 4f 5f 25  2c 60 79 25 2b 6a 79 25  |,B_%+O_%,`y%+jy%|
00008b20  b8 2c 41 4a 25 2c 66 69  25 3a e7 41 4a 25 3e 73  |.,AJ%,fi%:.AJ%>s|
00008b30  25 8c 0d 02 e1 ae c8 99  26 34 30 30 38 33 2c 6c  |%.......&40083,l|
00008b40  75 25 2c 4a 25 b8 2c 2c  58 6c 25 2c 44 6c 25 3a  |u%,J%.,,Xl%,Dl%:|
00008b50  c8 95 41 4a 25 3e 73 25  3a 58 6c 25 3d 58 6c 25  |..AJ%>s%:Xl%=Xl%|
00008b60  2a 30 2e 39 35 3a 44 6c  25 3d 44 6c 25 2a 30 2e  |*0.95:Dl%=Dl%*0.|
00008b70  39 35 3a c8 99 26 34 30  30 38 31 2c 2c 4a 25 2c  |95:..&40081,,J%,|
00008b80  58 6c 25 2c 44 6c 25 3a  c8 99 26 34 30 30 39 37  |Xl%,Dl%:..&40097|
00008b90  2c 2c 57 24 b8 63 79 25  2c 4f 5f 25 2c 6a 79 25  |,,W$.cy%,O_%,jy%|
00008ba0  2c 42 5f 25 2c 60 79 25  3a c8 99 26 34 30 30 38  |,B_%,`y%:..&4008|
00008bb0  38 2c 2c 42 5f 25 2b 4f  5f 25 2c 60 79 25 2b 6a  |8,,B_%+O_%,`y%+j|
00008bc0  79 25 b8 2c 41 4a 25 2c  66 69 25 3a e7 41 4a 25  |y%.,AJ%,fi%:.AJ%|
00008bd0  3e 73 25 8c c8 99 26 34  30 30 38 32 2c 63 79 25  |>s%...&40082,cy%|
00008be0  0d 02 e2 05 ce 0d 02 e3  34 cd 3a c8 99 26 34 30  |........4.:..&40|
00008bf0  30 38 36 2c 2c 57 24 2c  31 3c 3c 34 2c 61 25 2c  |086,,W$,1<<4,a%,|
00008c00  4b 25 3a e7 63 79 25 3c  3e 6c 75 25 8c c8 99 26  |K%:.cy%<>lu%...&|
00008c10  34 30 30 38 32 2c 63 79  25 0d 02 e4 07 cd 3a e1  |40082,cy%.....:.|
00008c20  0d 02 e5 33 dd f2 54 28  73 6c 25 2c 43 6c 25 2c  |...3..T(sl%,Cl%,|
00008c30  52 5f 25 2c 48 5f 25 2c  67 25 2c 52 61 25 29 3a  |R_%,H_%,g%,Ra%):|
00008c40  c8 99 26 34 30 30 45 36  2c 43 6c 25 3a c8 8e 52  |..&400E6,Cl%:..R|
00008c50  61 25 ca 0d 02 e6 69 c9  31 3a c8 93 c8 90 52 5f  |a%....i.1:....R_|
00008c60  25 2c 48 5f 25 2c 67 25  3a c8 99 26 34 30 30 45  |%,H_%,g%:..&400E|
00008c70  36 2c 73 6c 25 3a ec 52  5f 25 2c 48 5f 25 3a ec  |6,sl%:.R_%,H_%:.|
00008c80  42 59 67 25 2c 30 3a f0  26 42 31 2c 2d 67 25 2c  |BYg%,0:.&B1,-g%,|
00008c90  67 25 3a c8 99 26 34 30  30 45 36 2c 43 6c 25 3a  |g%:..&400E6,Cl%:|
00008ca0  ec 52 5f 25 2c 48 5f 25  3a ec 42 59 67 25 2c 30  |.R_%,H_%:.BYg%,0|
00008cb0  3a f0 26 41 31 2c 2d 67  25 2c 67 25 0d 02 e7 6f  |:.&A1,-g%,g%...o|
00008cc0  c9 32 3a c8 93 c8 90 52  5f 25 2c 48 5f 25 2c 2d  |.2:....R_%,H_%,-|
00008cd0  67 25 2c 67 25 3a c8 99  26 34 30 30 45 36 2c 73  |g%,g%:..&400E6,s|
00008ce0  6c 25 3a ec 52 5f 25 2c  48 5f 25 3a ec 42 59 30  |l%:.R_%,H_%:.BY0|
00008cf0  2c 67 25 3a f0 26 42 31  2c 2d 67 25 2c 2d 67 25  |,g%:.&B1,-g%,-g%|
00008d00  3a c8 99 26 34 30 30 45  36 2c 43 6c 25 3a ec 52  |:..&400E6,Cl%:.R|
00008d10  5f 25 2c 48 5f 25 3a ec  42 59 30 2c 67 25 3a f0  |_%,H_%:.BY0,g%:.|
00008d20  26 41 31 2c 2d 67 25 2c  2d 67 25 0d 02 e8 6c c9  |&A1,-g%,-g%...l.|
00008d30  33 3a c8 93 c8 90 52 5f  25 2c 48 5f 25 2c 2d 67  |3:....R_%,H_%,-g|
00008d40  25 3a c8 99 26 34 30 30  45 36 2c 73 6c 25 3a ec  |%:..&400E6,sl%:.|
00008d50  52 5f 25 2c 48 5f 25 3a  ec 42 59 2d 67 25 2c 30  |R_%,H_%:.BY-g%,0|
00008d60  3a f0 26 42 31 2c 67 25  2c 2d 67 25 3a c8 99 26  |:.&B1,g%,-g%:..&|
00008d70  34 30 30 45 36 2c 43 6c  25 3a ec 52 5f 25 2c 48  |400E6,Cl%:.R_%,H|
00008d80  5f 25 3a ec 42 59 2d 67  25 2c 30 3a f0 26 41 31  |_%:.BY-g%,0:.&A1|
00008d90  2c 67 25 2c 2d 67 25 0d  02 e9 6f c9 34 3a c8 93  |,g%,-g%...o.4:..|
00008da0  c8 90 52 5f 25 2c 48 5f  25 2c 67 25 2c 2d 67 25  |..R_%,H_%,g%,-g%|
00008db0  3a c8 99 26 34 30 30 45  36 2c 73 6c 25 3a ec 52  |:..&400E6,sl%:.R|
00008dc0  5f 25 2d 32 2c 48 5f 25  3a ec 42 59 30 2c 2d 67  |_%-2,H_%:.BY0,-g|
00008dd0  25 3a f0 26 42 31 2c 67  25 2c 67 25 3a c8 99 26  |%:.&B1,g%,g%:..&|
00008de0  34 30 30 45 36 2c 43 6c  25 3a ec 52 5f 25 2c 48  |400E6,Cl%:.R_%,H|
00008df0  5f 25 3a ec 42 59 30 2c  2d 67 25 3a f0 26 41 31  |_%:.BY0,-g%:.&A1|
00008e00  2c 67 25 2c 67 25 0d 02  ea 07 cb 3a e1 0d 02 eb  |,g%,g%.....:....|
00008e10  d8 dd f2 6c 28 5f 25 2c  51 25 2c 73 25 2c 62 25  |...l(_%,Q%,s%,b%|
00008e20  2c 67 25 29 3a ec 5f 25  2b 67 25 2c 51 25 3a df  |,g%):._%+g%,Q%:.|
00008e30  42 59 73 25 2d 32 2a 67  25 2c 30 3a ec 42 59 67  |BYs%-2*g%,0:.BYg|
00008e40  25 2c 2d 67 25 3a df 42  59 30 2c 2d 62 25 2b 32  |%,-g%:.BY0,-b%+2|
00008e50  2a 67 25 3a ec 42 59 2d  67 25 2c 2d 67 25 3a df  |*g%:.BY-g%,-g%:.|
00008e60  42 59 2d 73 25 2b 32 2a  67 25 2c 30 3a ec 42 59  |BY-s%+2*g%,0:.BY|
00008e70  2d 67 25 2c 67 25 3a df  42 59 30 2c 62 25 2d 32  |-g%,g%:.BY0,b%-2|
00008e80  2a 67 25 3a ec 5f 25 2b  67 25 2c 51 25 2d 67 25  |*g%:._%+g%,Q%-g%|
00008e90  3a ec 42 59 30 2c 67 25  3a f0 26 41 31 2c 2d 67  |:.BY0,g%:.&A1,-g|
00008ea0  25 2c 2d 67 25 3a ec 5f  25 2b 73 25 2d 67 25 2c  |%,-g%:._%+s%-g%,|
00008eb0  51 25 2d 67 25 3a ec 42  59 67 25 2c 30 3a f0 26  |Q%-g%:.BYg%,0:.&|
00008ec0  41 31 2c 2d 67 25 2c 67  25 3a ec 5f 25 2b 73 25  |A1,-g%,g%:._%+s%|
00008ed0  2d 67 25 2c 51 25 2d 62  25 2b 67 25 3a ec 42 59  |-g%,Q%-b%+g%:.BY|
00008ee0  30 2c 2d 67 25 0d 02 ec  35 f0 26 41 31 2c 67 25  |0,-g%...5.&A1,g%|
00008ef0  2c 67 25 3a ec 5f 25 2b  67 25 2c 51 25 2d 62 25  |,g%:._%+g%,Q%-b%|
00008f00  2b 67 25 3a ec 42 59 2d  67 25 2c 30 3a f0 26 41  |+g%:.BY-g%,0:.&A|
00008f10  31 2c 67 25 2c 2d 67 25  3a e1 0d 02 ed 0a dd f2  |1,g%,-g%:.......|
00008f20  59 4a 3a e1 0d 02 ee 0f  dd f2 79 75 3a c8 8e 46  |YJ:.......yu:..F|
00008f30  69 25 ca 0d 02 ef 0f c9  33 3a f2 5f 5f 28 72 4a  |i%......3:.__(rJ|
00008f40  25 29 0d 02 f0 07 cb 3a  e1 0d 02 f1 1c dd f2 63  |%).....:.......c|
00008f50  3a 72 4a 25 3d 2d 31 3a  46 69 25 3d 2d 31 3a e7  |:rJ%=-1:Fi%=-1:.|
00008f60  ac 50 75 25 8c 0d 02 f2  1f 72 4a 25 3d a4 63 79  |.Pu%.....rJ%=.cy|
00008f70  28 71 4a 25 29 3a e7 72  4a 25 3c 3e 2d 31 8c 46  |(qJ%):.rJ%<>-1.F|
00008f80  69 25 3d 33 0d 02 f3 08  cc f2 78 4a 0d 02 f4 07  |i%=3......xJ....|
00008f90  cd 3a e1 0d 02 f5 18 dd  f2 43 5f 28 58 75 25 29  |.:.......C_(Xu%)|
00008fa0  3a c8 8e 5a 25 28 58 75  25 29 ca 0d 02 f6 0a c9  |:..Z%(Xu%)......|
00008fb0  32 3a f2 73 75 0d 02 f7  0a c9 33 3a f2 6d 75 0d  |2:.su.....3:.mu.|
00008fc0  02 f8 07 cb 3a e1 0d 02  f9 27 dd f2 6e 79 28 68  |....:....'..ny(h|
00008fd0  25 2c 61 25 2c 4b 25 29  3a c8 99 26 34 30 30 45  |%,a%,K%):..&400E|
00008fe0  36 2c 30 3a c8 8e 5a 25  28 74 25 29 ca 0d 02 fa  |6,0:..Z%(t%)....|
00008ff0  17 c9 32 3a f2 69 5f 28  76 25 2c 68 25 2c 61 25  |..2:.i_(v%,h%,a%|
00009000  2c 4b 25 29 0d 02 fb 17  c9 35 3a f2 5a 4a 28 76  |,K%).....5:.ZJ(v|
00009010  25 2c 68 25 2c 61 25 2c  4b 25 29 0d 02 fc 17 c9  |%,h%,a%,K%).....|
00009020  31 3a f2 53 4a 28 76 25  2c 68 25 2c 61 25 2c 4b  |1:.SJ(v%,h%,a%,K|
00009030  25 29 0d 02 fd 17 c9 33  3a f2 55 75 28 76 25 2c  |%).....3:.Uu(v%,|
00009040  68 25 2c 61 25 2c 4b 25  29 0d 02 fe 07 cb 3a e1  |h%,a%,K%).....:.|
00009050  0d 02 ff 1a dd a4 79 79  28 77 25 2c 43 79 25 29  |......yy(w%,Cy%)|
00009060  3a c8 8e 5a 25 28 74 25  29 ca 0d 03 00 15 c9 32  |:..Z%(t%)......2|
00009070  3a 6b 25 3d a4 57 5f 28  77 25 2c 43 79 25 29 0d  |:k%=.W_(w%,Cy%).|
00009080  03 01 15 c9 35 3a 6b 25  3d a4 50 5f 28 77 25 2c  |....5:k%=.P_(w%,|
00009090  43 79 25 29 0d 03 02 15  c9 31 3a 6b 25 3d a4 66  |Cy%).....1:k%=.f|
000090a0  79 28 77 25 2c 43 79 25  29 0d 03 03 15 c9 33 3a  |y(w%,Cy%).....3:|
000090b0  6b 25 3d a4 7a 79 28 77  25 2c 43 79 25 29 0d 03  |k%=.zy(w%,Cy%)..|
000090c0  04 09 cb 3a 3d 6b 25 0d  03 05 19 dd f2 63 75 28  |...:=k%......cu(|
000090d0  70 25 2c 41 25 29 3a c8  8e 5a 25 28 41 25 29 ca  |p%,A%):..Z%(A%).|
000090e0  0d 03 06 11 c9 32 3a f2  73 5f 28 70 25 2c 41 25  |.....2:.s_(p%,A%|
000090f0  29 0d 03 07 11 c9 35 3a  f2 4e 4a 28 70 25 2c 41  |).....5:.NJ(p%,A|
00009100  25 29 0d 03 08 11 c9 31  3a f2 6e 5f 28 70 25 2c  |%).....1:.n_(p%,|
00009110  41 25 29 0d 03 09 11 c9  33 3a f2 78 5f 28 70 25  |A%).....3:.x_(p%|
00009120  2c 41 25 29 0d 03 0a 07  cb 3a e1 0d 03 0b 1b dd  |,A%).....:......|
00009130  a4 4b 79 28 53 25 29 3a  ea 6f 75 25 3a c8 8e 5a  |.Ky(S%):.ou%:..Z|
00009140  25 28 53 25 29 ca 0d 03  0c 0e c9 32 3a 6f 75 25  |%(S%)......2:ou%|
00009150  3d a4 61 79 0d 03 0d 0e  c9 35 3a 6f 75 25 3d a4  |=.ay.....5:ou%=.|
00009160  5f 79 0d 03 0e 0e c9 31  3a 6f 75 25 3d a4 4d 5f  |_y.....1:ou%=.M_|
00009170  0d 03 0f 0e c9 33 3a 6f  75 25 3d a4 71 79 0d 03  |.....3:ou%=.qy..|
00009180  10 0a cb 3a 3d 6f 75 25  0d 03 11 18 dd f2 62 79  |...:=ou%......by|
00009190  28 58 75 25 29 3a c8 8e  5a 25 28 58 75 25 29 ca  |(Xu%):..Z%(Xu%).|
000091a0  0d 03 12 0a c9 32 3a f2  41 5f 0d 03 13 0a c9 33  |.....2:.A_.....3|
000091b0  3a f2 70 4a 0d 03 14 07  cb 3a e1 0d 03 15 27 dd  |:.pJ.....:....'.|
000091c0  f2 68 79 28 6e 25 2c 68  25 2c 5f 25 2c 51 25 2c  |.hy(n%,h%,_%,Q%,|
000091d0  6f 5f 25 2c 77 4a 25 29  3a c8 8e 5a 25 28 74 25  |o_%,wJ%):..Z%(t%|
000091e0  29 ca 0d 03 16 1f c9 32  3a f2 72 75 28 6e 25 2c  |)......2:.ru(n%,|
000091f0  68 25 2c 5f 25 2c 51 25  2c 6f 5f 25 2c 77 4a 25  |h%,_%,Q%,o_%,wJ%|
00009200  29 0d 03 17 1f c9 35 3a  f2 66 5f 28 6e 25 2c 68  |).....5:.f_(n%,h|
00009210  25 2c 5f 25 2c 51 25 2c  6f 5f 25 2c 77 4a 25 29  |%,_%,Q%,o_%,wJ%)|
00009220  0d 03 18 1f c9 31 3a f2  51 75 28 6e 25 2c 68 25  |.....1:.Qu(n%,h%|
00009230  2c 5f 25 2c 51 25 2c 6f  5f 25 2c 77 4a 25 29 0d  |,_%,Q%,o_%,wJ%).|
00009240  03 19 1f c9 33 3a f2 61  5f 28 6e 25 2c 68 25 2c  |....3:.a_(n%,h%,|
00009250  5f 25 2c 51 25 2c 6f 5f  25 2c 77 4a 25 29 0d 03  |_%,Q%,o_%,wJ%)..|
00009260  1a 07 cb 3a e1 0d 03 1b  16 dd f2 58 5f 28 6c 25  |...:.......X_(l%|
00009270  29 3a c8 8e 5a 25 28 74  25 29 ca 0d 03 1c 0d c9  |):..Z%(t%)......|
00009280  32 3a f2 76 28 6c 25 29  0d 03 1d 0e c9 35 3a f2  |2:.v(l%).....5:.|
00009290  48 79 28 6c 25 29 0d 03  1e 0e c9 31 3a f2 4e 79  |Hy(l%).....1:.Ny|
000092a0  28 6c 25 29 0d 03 1f 0e  c9 33 3a f2 58 79 28 6c  |(l%).....3:.Xy(l|
000092b0  25 29 0d 03 20 07 cb 3a  e1 0d 03 21 24 dd f2 44  |%).. ..:...!$..D|
000092c0  4a 28 65 25 2c 77 25 2c  6e 25 2c 58 79 25 2c 54  |J(e%,w%,n%,Xy%,T|
000092d0  79 25 29 3a c8 8e 5a 25  28 74 25 29 ca 0d 03 22  |y%):..Z%(t%)..."|
000092e0  1c c9 32 3a f2 5a 6c 28  65 25 2c 77 25 2c 6e 25  |..2:.Zl(e%,w%,n%|
000092f0  2c 58 79 25 2c 54 79 25  29 0d 03 23 07 cb 3a e1  |,Xy%,Ty%)..#..:.|
00009300  0d 03 24 27 dd a4 43 5f  28 65 25 2c 77 25 2c 43  |..$'..C_(e%,w%,C|
00009310  79 25 29 3a ea 41 25 3a  e3 41 25 3d 31 b8 69 79  |y%):.A%:.A%=1.iy|
00009320  25 3a e7 ac 6b 25 8c 0d  03 25 0d c8 8e 5a 25 28  |%:..k%...%...Z%(|
00009330  41 25 29 ca 0d 03 26 18  c9 32 3a 6b 25 3d a4 48  |A%)...&..2:k%=.H|
00009340  79 28 65 25 2c 77 25 2c  43 79 25 29 0d 03 27 18  |y(e%,w%,Cy%)..'.|
00009350  c9 35 3a 6b 25 3d a4 55  79 28 65 25 2c 77 25 2c  |.5:k%=.Uy(e%,w%,|
00009360  43 79 25 29 0d 03 28 18  c9 31 3a 6b 25 3d a4 4c  |Cy%)..(..1:k%=.L|
00009370  79 28 65 25 2c 77 25 2c  43 79 25 29 0d 03 29 18  |y(e%,w%,Cy%)..).|
00009380  c9 33 3a 6b 25 3d a4 64  79 28 65 25 2c 77 25 2c  |.3:k%=.dy(e%,w%,|
00009390  43 79 25 29 0d 03 2a 05  cb 0d 03 2b 0b cd 3a ed  |Cy%)..*....+..:.|
000093a0  3a 3d 6b 25 0d 03 2c 1a  dd f2 49 4a 3a f2 44 75  |:=k%..,...IJ:.Du|
000093b0  3a f2 4d 75 3a f2 71 75  3a f2 75 4a 3a e1 0d 03  |:.Mu:.qu:.uJ:...|
000093c0  2d 20 dd f2 64 4a 3a ea  41 25 3a e3 41 25 3d 31  |- ..dJ:.A%:.A%=1|
000093d0  b8 69 79 25 3a c8 8e 5a  25 28 41 25 29 ca 0d 03  |.iy%:..Z%(A%)...|
000093e0  2e 0e c9 32 3a f2 6d 5f  28 41 25 29 0d 03 2f 0e  |...2:.m_(A%)../.|
000093f0  c9 35 3a f2 57 75 28 41  25 29 0d 03 30 0e c9 31  |.5:.Wu(A%)..0..1|
00009400  3a f2 43 4a 28 41 25 29  0d 03 31 0e c9 33 3a f2  |:.CJ(A%)..1..3:.|
00009410  4f 5f 28 41 25 29 0d 03  32 09 cb 3a ed 3a e1 0d  |O_(A%)..2..:.:..|
00009420  03 33 16 dd f2 4f 75 3a  f2 4c 4a 3a f2 66 75 3a  |.3...Ou:.LJ:.fu:|
00009430  f2 6c 4a 3a e1 0d 03 34  72 dd f2 4b 75 28 7a 25  |.lJ:...4r..Ku(z%|
00009440  29 3a d5 23 7a 25 2c 22  41 64 64 72 65 73 73 20  |):.#z%,"Address |
00009450  62 6f 6f 6b 22 3a f2 75  75 28 7a 25 29 3a d5 23  |book":.uu(z%):.#|
00009460  7a 25 2c 22 41 6e 6e 69  76 65 72 73 61 72 79 22  |z%,"Anniversary"|
00009470  3a f2 73 4a 28 7a 25 29  3a d5 23 7a 25 2c 22 43  |:.sJ(z%):.#z%,"C|
00009480  61 6c 65 6e 64 61 72 22  3a f2 65 5f 28 7a 25 29  |alendar":.e_(z%)|
00009490  3a d5 23 7a 25 2c 22 44  69 61 72 79 22 3a f2 41  |:.#z%,"Diary":.A|
000094a0  75 28 7a 25 29 3a e1 0d  03 35 17 dd f2 51 4a 28  |u(z%):...5...QJ(|
000094b0  41 79 24 2c 7a 25 29 3a  c8 8e 41 79 24 ca 0d 03  |Ay$,z%):..Ay$...|
000094c0  36 1b c9 22 41 64 64 72  65 73 73 20 62 6f 6f 6b  |6.."Address book|
000094d0  22 3a f2 76 75 28 7a 25  29 0d 03 37 1a c9 22 41  |":.vu(z%)..7.."A|
000094e0  6e 6e 69 76 65 72 73 61  72 79 22 3a f2 53 75 28  |nniversary":.Su(|
000094f0  7a 25 29 0d 03 38 17 c9  22 43 61 6c 65 6e 64 61  |z%)..8.."Calenda|
00009500  72 22 3a f2 71 4a 28 7a  25 29 0d 03 39 14 c9 22  |r":.qJ(z%)..9.."|
00009510  44 69 61 72 79 22 3a f2  62 4a 28 7a 25 29 0d 03  |Diary":.bJ(z%)..|
00009520  3a 07 cb 3a e1 0d 03 3b  1e dd f2 61 4a 28 65 25  |:..:...;...aJ(e%|
00009530  2c 77 25 2c 6e 25 2c 5f  25 2c 51 25 29 3a c8 8e  |,w%,n%,_%,Q%):..|
00009540  65 25 ca 0d 03 3c 1e c9  41 25 28 32 29 3a f2 60  |e%...<..A%(2):.`|
00009550  75 28 65 25 2c 77 25 2c  6e 25 2c 5f 25 2c 51 25  |u(e%,w%,n%,_%,Q%|
00009560  29 0d 03 3d 1e c9 41 25  28 33 29 3a f2 5f 4a 28  |)..=..A%(3):._J(|
00009570  65 25 2c 77 25 2c 6e 25  2c 5f 25 2c 51 25 29 0d  |e%,w%,n%,_%,Q%).|
00009580  03 3e 1e c9 41 25 28 34  29 3a f2 78 75 28 65 25  |.>..A%(4):.xu(e%|
00009590  2c 77 25 2c 6e 25 2c 5f  25 2c 51 25 29 0d 03 3f  |,w%,n%,_%,Q%)..?|
000095a0  1e c9 41 25 28 35 29 3a  f2 4a 75 28 65 25 2c 77  |..A%(5):.Ju(e%,w|
000095b0  25 2c 6e 25 2c 5f 25 2c  51 25 29 0d 03 40 07 cb  |%,n%,_%,Q%)..@..|
000095c0  3a e1 0d 03 41 19 dd a4  46 5f 28 65 25 2c 77 25  |:...A...F_(e%,w%|
000095d0  2c 43 79 25 29 3a c8 8e  65 25 ca 0d 03 42 1c c9  |,Cy%):..e%...B..|
000095e0  41 25 28 32 29 3a 6b 25  3d a4 72 79 28 65 25 2c  |A%(2):k%=.ry(e%,|
000095f0  77 25 2c 43 79 25 29 0d  03 43 08 cb 3a 3d a3 0d  |w%,Cy%)..C..:=..|
00009600  03 44 13 dd f2 55 4a 28  70 25 29 3a c8 8e 59 79  |.D...UJ(p%):..Yy|
00009610  25 ca 0d 03 45 16 c9 41  25 28 32 29 3a f2 62 5f  |%...E..A%(2):.b_|
00009620  28 70 25 2c 59 79 25 29  0d 03 46 16 c9 41 25 28  |(p%,Yy%)..F..A%(|
00009630  33 29 3a f2 6c 5f 28 70  25 2c 59 79 25 29 0d 03  |3):.l_(p%,Yy%)..|
00009640  47 16 c9 41 25 28 34 29  3a f2 47 4a 28 70 25 2c  |G..A%(4):.GJ(p%,|
00009650  59 79 25 29 0d 03 48 16  c9 41 25 28 35 29 3a f2  |Yy%)..H..A%(5):.|
00009660  69 4a 28 70 25 2c 59 79  25 29 0d 03 49 07 cb 3a  |iJ(p%,Yy%)..I..:|
00009670  e1 0d 03 4a 36 dd f2 42  75 3a f2 52 5f 28 41 25  |...J6..Bu:.R_(A%|
00009680  28 32 29 29 3a f2 66 4a  28 41 25 28 33 29 29 3a  |(2)):.fJ(A%(3)):|
00009690  f2 52 75 28 41 25 28 34  29 29 3a f2 6e 75 28 41  |.Ru(A%(4)):.nu(A|
000096a0  25 28 35 29 29 3a e1 0d  03 4b 36 dd f2 54 75 3a  |%(5)):...K6..Tu:|
000096b0  f2 79 5f 28 41 25 28 32  29 29 3a f2 6a 5f 28 41  |.y_(A%(2)):.j_(A|
000096c0  25 28 33 29 29 3a f2 4b  4a 28 41 25 28 34 29 29  |%(3)):.KJ(A%(4))|
000096d0  3a f2 62 75 28 41 25 28  35 29 29 3a e1 0d 03 4c  |:.bu(A%(5)):...L|
000096e0  1a dd f2 72 4a 28 4d 79  25 2c 70 25 29 3a c8 8e  |...rJ(My%,p%):..|
000096f0  5a 25 28 74 25 29 ca 0d  03 4d 12 c9 33 3a f2 69  |Z%(t%)...M..3:.i|
00009700  79 28 4d 79 25 2c 70 25  29 0d 03 4e 07 cb 3a e1  |y(My%,p%)..N..:.|
00009710  0d 03 4f fc dd f2 44 75  3a 59 4a 25 3d a4 43 28  |..O...Du:YJ%=.C(|
00009720  22 50 61 73 74 65 22 2c  22 50 61 73 74 65 22 2c  |"Paste","Paste",|
00009730  31 2c 26 41 29 3a 7a 79  25 3d 2d 31 3a 50 24 3d  |1,&A):zy%=-1:P$=|
00009740  22 22 3a 51 24 3d 22 6d  61 69 6c 74 6f 3a 22 3a  |"":Q$="mailto:":|
00009750  58 24 3d 22 68 74 74 70  3a 2f 2f 22 3a 48 24 3d  |X$="http://":H$=|
00009760  22 49 6d 70 6f 72 74 61  6e 74 20 6e 75 6d 62 65  |"Important numbe|
00009770  72 73 22 3a 6a 4a 25 3d  2d 31 3a 75 75 25 3d a4  |rs":jJ%=-1:uu%=.|
00009780  43 28 22 49 6d 70 6f 72  74 22 2c 22 49 6d 70 6f  |C("Import","Impo|
00009790  72 74 22 2c 31 2c 35 29  3a 66 5f 25 3d a4 43 28  |rt",1,5):f_%=.C(|
000097a0  22 41 42 4d 22 2c 22 41  42 4d 22 2c 31 2c 36 29  |"ABM","ABM",1,6)|
000097b0  3a f2 7a 28 66 5f 25 2c  33 2c 59 4a 25 29 3a 46  |:.z(f_%,3,YJ%):F|
000097c0  24 3d 22 22 3a 77 79 25  3d 30 3a 4f 4a 25 3d 30  |$="":wy%=0:OJ%=0|
000097d0  3a 61 5f 25 3d 2d 31 3a  59 24 3d 22 22 3a 6b 75  |:a_%=-1:Y$="":ku|
000097e0  25 3d 30 3a 70 75 25 3d  30 3a 67 4a 25 3d 30 3a  |%=0:pu%=0:gJ%=0:|
000097f0  46 5f 25 3d 31 36 3a 51  79 25 3d 33 3a 3a 3a 3a  |F_%=16:Qy%=3::::|
00009800  71 5f 25 3d 32 3a 79 5f  25 3d 2d 31 0d 03 50 9e  |q_%=2:y_%=-1..P.|
00009810  de 4d 25 28 32 36 29 2c  46 25 28 32 36 29 2c 41  |.M%(26),F%(26),A|
00009820  24 28 26 41 2c 26 45 29  2c 5a 24 28 46 5f 25 2d  |$(&A,&E),Z$(F_%-|
00009830  31 2c 31 29 2c 4c 25 28  26 41 2c 31 29 2c 69 6c  |1,1),L%(&A,1),il|
00009840  25 26 42 2c 4e 25 28 26  45 29 3a 4e 25 28 29 3d  |%&B,N%(&E):N%()=|
00009850  37 3a 4e 25 28 30 29 3d  35 3a 4c 25 28 29 3d 2d  |7:N%(0)=5:L%()=-|
00009860  31 3a 24 69 6c 25 3d 22  50 70 74 72 5f 68 79 70  |1:$il%="Pptr_hyp|
00009870  65 72 22 2b bd 30 3a 4d  25 28 30 29 3d 31 3a 75  |er"+.0:M%(0)=1:u|
00009880  79 25 3d 30 3a 7a 24 3d  54 24 2b 22 41 64 64 72  |y%=0:z$=T$+"Addr|
00009890  65 73 73 65 73 22 3a 65  24 3d 54 24 2b 22 49 6d  |esses":e$=T$+"Im|
000098a0  70 6f 72 74 61 6e 74 22  3a e1 0d 03 51 0c dd a4  |portant":...Q...|
000098b0  61 79 3d 66 5f 25 0d 03  52 45 dd f2 6d 5f 28 41  |ay=f_%..RE..m_(A|
000098c0  25 29 3a 42 25 28 41 25  29 3d 30 3a 57 25 28 41  |%):B%(A%)=0:W%(A|
000098d0  25 29 3d 32 36 3a 53 25  28 41 25 29 3d 30 3a 4d  |%)=26:S%(A%)=0:M|
000098e0  24 28 41 25 29 3d a4 41  28 22 41 64 64 54 61 62  |$(A%)=.A("AddTab|
000098f0  22 29 3a f2 7a 5f 3a f2  61 3a e1 0d 03 53 2d dd  |"):.z_:.a:...S-.|
00009900  f2 41 5f 3a e7 76 25 3d  30 8c f2 44 5f 28 69 25  |.A_:.v%=0..D_(i%|
00009910  2c 60 25 2c 64 79 25 2c  2d 6f 25 2d 6a 5f 25 2c  |,`%,dy%,-o%-j_%,|
00009920  56 79 25 2c b9 2c b9 29  0d 03 54 05 e1 0d 03 55  |Vy%,.,.)..T....U|
00009930  17 dd f2 73 75 3a f2 73  79 3a e7 7a 5f 25 3d 30  |...su:.sy:.z_%=0|
00009940  8c f2 59 79 0d 03 56 05  e1 0d 03 57 c9 dd f2 69  |..Yy..V....W...i|
00009950  5f 28 76 25 2c 68 25 2c  61 25 2c 4b 25 29 3a ea  |_(v%,h%,a%,K%):.|
00009960  4a 6c 25 2c 41 25 2c 41  24 2c 47 25 2c 5a 79 25  |Jl%,A%,A$,G%,Zy%|
00009970  2c 46 25 2c 51 25 2c 5f  25 2c 42 25 2c 43 25 2c  |,F%,Q%,_%,B%,C%,|
00009980  79 25 2c 79 4a 25 2c 44  25 2c 45 25 2c 4f 75 25  |y%,yJ%,D%,E%,Ou%|
00009990  2c 47 69 25 2c 52 4a 25  2c 4a 4a 25 3a 4a 4a 25  |,Gi%,RJ%,JJ%:JJ%|
000099a0  3d a4 61 28 28 6d 25 2d  28 51 79 25 2b 32 29 2a  |=.a((m%-(Qy%+2)*|
000099b0  32 34 29 2f 51 79 25 29  3a 4a 6c 25 3d a4 4a 28  |24)/Qy%):Jl%=.J(|
000099c0  22 48 6f 6d 65 72 74 6f  6e 2e 4d 65 64 69 75 6d  |"Homerton.Medium|
000099d0  22 2c 26 41 2c 26 41 29  3a 5a 79 25 3d 6a 5f 25  |",&A,&A):Zy%=j_%|
000099e0  3a c8 99 26 34 30 30 45  36 2c 37 3a c8 99 26 34  |:..&400E6,7:..&4|
000099f0  30 30 46 33 2c 2c 30 2c  37 3a e7 28 68 25 3d 30  |00F3,,0,7:.(h%=0|
00009a00  29 80 76 25 3e 30 8c f2  52 28 30 2c 61 25 2c 4b  |).v%>0..R(0,a%,K|
00009a10  25 29 0d 03 58 1b 5f 25  3d 61 25 2b 68 25 2a 28  |%)..X._%=a%+h%*(|
00009a20  6a 25 2d 34 30 29 3a e7  68 25 3d 30 8c 0d 03 59  |j%-40):.h%=0...Y|
00009a30  57 41 25 3d 30 3a c8 95  41 25 3c 76 25 3a c8 99  |WA%=0:..A%<v%:..|
00009a40  26 34 30 30 45 36 2c 37  3a 86 5f 25 2c 4b 25 2d  |&400E6,7:._%,K%-|
00009a50  5a 79 25 2a 28 41 25 2b  31 29 2c 5f 25 2b 34 30  |Zy%*(A%+1),_%+40|
00009a60  2c 4b 25 2d 5a 79 25 2a  28 41 25 2b 31 29 3a e7  |,K%-Zy%*(A%+1):.|
00009a70  4d 25 28 41 25 29 3d 30  8c 52 79 25 3d 32 8b 52  |M%(A%)=0.Ry%=2.R|
00009a80  79 25 3d 35 0d 03 5a 2c  c8 99 26 34 30 30 46 33  |y%=5..Z,..&400F3|
00009a90  2c 2c 30 2c 52 79 25 3a  e7 41 25 3d 30 8c 41 24  |,,0,Ry%:.A%=0.A$|
00009aa0  3d 22 2b 22 8b 41 24 3d  bd 28 36 34 2b 41 25 29  |="+".A$=.(64+A%)|
00009ab0  0d 03 5b 64 c8 99 26 34  30 30 38 36 2c 4a 6c 25  |..[d..&40086,Jl%|
00009ac0  2c 41 24 2c 31 3c 3c 34  2c 5f 25 2b 26 43 2c 4b  |,A$,1<<4,_%+&C,K|
00009ad0  25 2d 5a 79 25 2a 41 25  2d 5a 79 25 2b 26 41 3a  |%-Zy%*A%-Zy%+&A:|
00009ae0  41 25 2b 3d 31 3a ce 3a  e7 76 25 3e 30 8c c8 99  |A%+=1:.:.v%>0...|
00009af0  26 34 30 30 45 36 2c 37  3a 86 5f 25 2b 34 30 2c  |&400E6,7:._%+40,|
00009b00  4b 25 2c 5f 25 2b 34 30  2c 4b 25 2d 5a 79 25 2a  |K%,_%+40,K%-Zy%*|
00009b10  28 76 25 29 0d 03 5c 24  cc 3a 41 25 3d 76 25 3a  |(v%)..\$.:A%=v%:|
00009b20  e7 41 25 3d 30 8c 41 24  3d 22 2b 22 8b 41 24 3d  |.A%=0.A$="+".A$=|
00009b30  bd 28 36 34 2b 41 25 29  0d 03 5d b7 c8 99 26 34  |.(64+A%)..]...&4|
00009b40  30 30 45 36 2c 37 3a ec  5f 25 2b 34 30 2c 4b 25  |00E6,7:._%+40,K%|
00009b50  2d 5a 79 25 2a 28 41 25  2b 31 29 3a df 42 59 2d  |-Zy%*(A%+1):.BY-|
00009b60  34 30 2c 30 3a df 5f 25  2c 4b 25 2d 6d 25 3a c8  |40,0:._%,K%-m%:.|
00009b70  99 26 34 30 30 38 36 2c  4a 6c 25 2c 41 24 2c 31  |.&40086,Jl%,A$,1|
00009b80  3c 3c 34 2c 5f 25 2b 26  43 2c 4b 25 2d 5a 79 25  |<<4,_%+&C,K%-Zy%|
00009b90  2a 41 25 2d 5a 79 25 2b  26 41 3a 41 25 2b 3d 31  |*A%-Zy%+&A:A%+=1|
00009ba0  3a c8 95 41 25 3c 32 37  3a c8 99 26 34 30 30 45  |:..A%<27:..&400E|
00009bb0  36 2c 37 3a 86 5f 25 2c  4b 25 2d 5a 79 25 2a 28  |6,7:._%,K%-Zy%*(|
00009bc0  41 25 2b 31 29 2c 5f 25  2b 34 30 2c 4b 25 2d 5a  |A%+1),_%+40,K%-Z|
00009bd0  79 25 2a 28 41 25 2b 31  29 3a e7 4d 25 28 41 25  |y%*(A%+1):.M%(A%|
00009be0  29 3d 30 8c 52 79 25 3d  32 8b 52 79 25 3d 35 0d  |)=0.Ry%=2.Ry%=5.|
00009bf0  03 5e 2c c8 99 26 34 30  30 46 33 2c 2c 30 2c 52  |.^,..&400F3,,0,R|
00009c00  79 25 3a e7 41 25 3d 30  8c 41 24 3d 22 2b 22 8b  |y%:.A%=0.A$="+".|
00009c10  41 24 3d bd 28 36 34 2b  41 25 29 0d 03 5f 45 c8  |A$=.(64+A%).._E.|
00009c20  99 26 34 30 30 38 36 2c  4a 6c 25 2c 41 24 2c 31  |.&40086,Jl%,A$,1|
00009c30  3c 3c 34 2c 5f 25 2b 26  43 2c 4b 25 2d 5a 79 25  |<<4,_%+&C,K%-Zy%|
00009c40  2a 41 25 2d 5a 79 25 2b  26 41 3a e7 4d 25 28 41  |*A%-Zy%+&A:.M%(A|
00009c50  25 29 3e 30 80 41 25 3e  76 25 8c 46 25 3d 2d 31  |%)>0.A%>v%.F%=-1|
00009c60  0d 03 60 0b 41 25 2b 3d  31 3a ce 0d 03 61 30 cd  |..`.A%+=1:...a0.|
00009c70  3a e7 68 25 3d 31 80 28  46 25 84 4d 25 28 76 25  |:.h%=1.(F%.M%(v%|
00009c80  29 2d 75 79 25 3e 32 2a  51 79 25 29 8c f2 52 28  |)-uy%>2*Qy%)..R(|
00009c90  31 2c 5f 25 2d 6a 25 2c  4b 25 29 0d 03 62 0b e7  |1,_%-j%,K%)..b..|
00009ca0  76 25 3c 3e 30 8c 0d 03  63 21 e7 68 25 3d 30 84  |v%<>0...c!.h%=0.|
00009cb0  28 68 25 3d 31 80 75 79  25 2b 51 79 25 3c 3d 4d  |(h%=1.uy%+Qy%<=M|
00009cc0  25 28 76 25 29 29 8c 0d  03 64 82 4f 75 25 3d a4  |%(v%))...d.Ou%=.|
00009cd0  4a 28 22 54 72 69 6e 69  74 79 2e 42 6f 6c 64 22  |J("Trinity.Bold"|
00009ce0  2c 26 45 2c 26 45 29 3a  41 25 3d 75 79 25 2b 68  |,&E,&E):A%=uy%+h|
00009cf0  25 2a 51 79 25 3a 5f 25  3d 61 25 2d 28 34 30 2a  |%*Qy%:_%=a%-(40*|
00009d00  28 68 25 3d 30 29 29 2b  26 63 3a c8 95 41 25 3c  |(h%=0))+&c:..A%<|
00009d10  4d 25 28 76 25 29 80 42  25 3c 51 79 25 3a 51 25  |M%(v%).B%<Qy%:Q%|
00009d20  3d 4b 25 2d 32 34 2a 28  42 25 2b 31 29 2d 4a 4a  |=K%-24*(B%+1)-JJ|
00009d30  25 2a 42 25 3a e7 a4 53  28 5f 25 2c 51 25 2c 64  |%*B%:..S(_%,Q%,d|
00009d40  4a 25 2c 2d 4a 4a 25 29  8c 0d 03 65 55 c8 99 26  |J%,-JJ%)...eU..&|
00009d50  34 30 30 45 36 2c 34 3a  f2 6c 28 5f 25 2c 51 25  |400E6,4:.l(_%,Q%|
00009d60  2c 64 4a 25 2c 4a 4a 25  2c 26 63 29 3a 79 25 3d  |,dJ%,JJ%,&c):y%=|
00009d70  41 25 83 28 51 79 25 2a  32 29 3a 41 24 3d 22 22  |A%.(Qy%*2):A$=""|
00009d80  3a e7 41 24 28 79 25 2c  31 29 3c 3e 22 22 8c 41  |:.A$(y%,1)<>"".A|
00009d90  24 3d 41 24 28 79 25 2c  31 29 2b 22 20 22 0d 03  |$=A$(y%,1)+" "..|
00009da0  66 6c 41 24 2b 3d 41 24  28 79 25 2c 30 29 3a f2  |flA$+=A$(y%,0):.|
00009db0  56 28 30 2c 4e 25 28 31  29 29 3a f2 72 28 4f 75  |V(0,N%(1)):.r(Ou|
00009dc0  25 2c 41 24 2c 5f 25 2b  26 43 2c 51 25 2d 34 30  |%,A$,_%+&C,Q%-40|
00009dd0  2c 64 4a 25 2d 26 43 2c  34 30 29 3a 44 25 3d 30  |,dJ%-&C,40):D%=0|
00009de0  3a e3 43 25 3d 32 b8 26  45 3a 44 25 2d 3d 28 41  |:.C%=2.&E:D%-=(A|
00009df0  24 28 79 25 2c 43 25 29  3c 3e 22 22 29 3a ed 3a  |$(y%,C%)<>""):.:|
00009e00  e7 44 25 3c 35 8c 44 25  3d 35 0d 03 67 35 5a 79  |.D%<5.D%=5..g5Zy|
00009e10  25 3d a4 61 28 28 4a 4a  25 2d 34 38 29 2f 44 25  |%=.a((JJ%-48)/D%|
00009e20  29 3a 43 25 3d 5a 79 25  2f 33 3a e7 5a 79 25 3e  |):C%=Zy%/3:.Zy%>|
00009e30  33 30 8c 5a 79 25 3d 33  30 3a 43 25 3d 26 43 0d  |30.Zy%=30:C%=&C.|
00009e40  03 68 b1 47 69 25 3d a4  4a 28 22 48 6f 6d 65 72  |.h.Gi%=.J("Homer|
00009e50  74 6f 6e 2e 4d 65 64 69  75 6d 2e 4f 62 6c 69 71  |ton.Medium.Obliq|
00009e60  75 65 22 2c 43 25 2d 32  2c 43 25 2d 32 29 3a 52  |ue",C%-2,C%-2):R|
00009e70  4a 25 3d a4 4a 28 22 54  72 69 6e 69 74 79 2e 4d  |J%=.J("Trinity.M|
00009e80  65 64 69 75 6d 22 2c 43  25 2c 43 25 29 3a 47 25  |edium",C%,C%):G%|
00009e90  3d 31 3a e3 43 25 3d 32  b8 38 3a e7 41 24 28 79  |=1:.C%=2.8:.A$(y|
00009ea0  25 2c 43 25 29 3c 3e 22  22 8c 47 25 2b 3d 31 3a  |%,C%)<>"".G%+=1:|
00009eb0  f2 56 28 30 2c 4e 25 28  43 25 29 29 3a f2 72 28  |.V(0,N%(C%)):.r(|
00009ec0  52 4a 25 2c 41 24 28 79  25 2c 43 25 29 2c 5f 25  |RJ%,A$(y%,C%),_%|
00009ed0  2b 34 38 2c 51 25 2d 34  32 2d 5a 79 25 2a 28 47  |+48,Q%-42-Zy%*(G|
00009ee0  25 2d 31 29 2c 64 4a 25  2d 34 38 2c 5a 79 25 29  |%-1),dJ%-48,Zy%)|
00009ef0  0d 03 69 2c ed 3a 51 25  2d 3d 4a 4a 25 2d 26 45  |..i,.:Q%-=JJ%-&E|
00009f00  3a e3 43 25 3d 26 45 b8  39 88 2d 31 3a e7 41 24  |:.C%=&E.9.-1:.A$|
00009f10  28 79 25 2c 43 25 29 3c  3e 22 22 8c 0d 03 6a f8  |(y%,C%)<>""...j.|
00009f20  41 24 3d a4 41 28 22 46  6c 64 22 2b c3 28 43 25  |A$=.A("Fld"+.(C%|
00009f30  2d 38 29 29 2b 22 3a 22  3a c8 99 26 34 30 30 46  |-8))+":":..&400F|
00009f40  33 2c 2c 30 2c 4e 25 28  30 29 3a c8 99 26 34 30  |3,,0,N%(0):..&40|
00009f50  30 38 41 2c 47 69 25 3a  c8 99 26 34 30 30 39 37  |08A,Gi%:..&40097|
00009f60  2c 2c 41 24 b8 2c 44 25  2c 2c 46 25 3a c8 99 26  |,,A$.,D%,,F%:..&|
00009f70  34 30 30 38 38 2c 2c 46  25 2d 44 25 b8 2c 44 25  |40088,,F%-D%.,D%|
00009f80  3a c8 99 26 34 30 30 38  36 2c 2c 41 24 2c 31 3c  |:..&40086,,A$,1<|
00009f90  3c 34 2c 5f 25 2b 39 32  2d 44 25 2c 51 25 2d 34  |<4,_%+92-D%,Q%-4|
00009fa0  3a c8 99 26 34 30 30 46  33 2c 2c 30 2c 4e 25 28  |:..&400F3,,0,N%(|
00009fb0  43 25 29 3a f2 72 28 52  4a 25 2c 41 24 28 79 25  |C%):.r(RJ%,A$(y%|
00009fc0  2c 43 25 29 2c 5f 25 2b  26 36 34 2c 51 25 2d 34  |,C%),_%+&64,Q%-4|
00009fd0  2c 64 4a 25 2d 26 36 34  2c 5a 79 25 2b 34 29 3a  |,dJ%-&64,Zy%+4):|
00009fe0  51 25 2b 3d 5a 79 25 3a  e7 43 25 3e 3d 26 44 8c  |Q%+=Zy%:.C%>=&D.|
00009ff0  f2 72 5f 28 79 25 2c 43  25 2c 5f 25 2b 26 36 34  |.r_(y%,C%,_%+&64|
0000a000  2c 51 25 2d 34 2c 64 4a  25 2d 26 36 34 2c 5a 79  |,Q%-4,dJ%-&64,Zy|
0000a010  25 2b 34 29 0d 03 6b 17  cd 3a ed 3a f2 51 28 52  |%+4)..k..:.:.Q(R|
0000a020  4a 25 29 3a f2 51 28 47  69 25 29 0d 03 6c 1b cd  |J%):.Q(Gi%)..l..|
0000a030  3a 41 25 2b 3d 31 3a 42  25 2b 3d 31 3a ce 3a f2  |:A%+=1:B%+=1:.:.|
0000a040  51 28 4f 75 25 29 0d 03  6d 05 cd 0d 03 6e 0c cc  |Q(Ou%)..m....n..|
0000a050  3a e7 68 25 3d 30 8c 0d  03 6f e6 4f 75 25 3d a4  |:.h%=0...o.Ou%=.|
0000a060  4a 28 22 54 72 69 6e 69  74 79 2e 42 6f 6c 64 22  |J("Trinity.Bold"|
0000a070  2c 31 36 2c 31 36 29 3a  c8 99 26 34 30 30 45 36  |,16,16):..&400E6|
0000a080  2c 34 3a f2 56 28 30 2c  37 29 3a 79 25 3d 6a 25  |,4:.V(0,7):y%=j%|
0000a090  2d 32 2a 26 63 3a f2 6c  28 5f 25 2b 26 63 2c 4b  |-2*&c:.l(_%+&c,K|
0000a0a0  25 2d 32 34 2c 79 25 2c  6d 25 2d 32 2a 32 34 2c  |%-24,y%,m%-2*24,|
0000a0b0  32 2a 26 63 29 3a f2 4c  28 4f 75 25 2c 48 24 2c  |2*&c):.L(Ou%,H$,|
0000a0c0  30 2c 61 25 2b 6a 25 2f  32 2c 4b 25 2d 32 34 2d  |0,a%+j%/2,K%-24-|
0000a0d0  26 43 29 3a f2 51 28 4f  75 25 29 3a 79 4a 25 3d  |&C):.Q(Ou%):yJ%=|
0000a0e0  26 45 3a 52 4a 25 3d a4  4a 28 22 54 72 69 6e 69  |&E:RJ%=.J("Trini|
0000a0f0  74 79 2e 4d 65 64 69 75  6d 22 2c 79 4a 25 2c 79  |ty.Medium",yJ%,y|
0000a100  4a 25 29 3a 5a 79 25 3d  28 6d 25 2d 32 2a 32 34  |J%):Zy%=(m%-2*24|
0000a110  2d 36 38 2d 32 2a 26 63  29 2f 46 5f 25 3a 51 25  |-68-2*&c)/F_%:Q%|
0000a120  3d 4b 25 2d 32 34 2d 36  38 3a 5f 25 3d 61 25 2b  |=K%-24-68:_%=a%+|
0000a130  26 63 3a c8 99 26 34 30  30 45 36 2c 31 0d 03 70  |&c:..&400E6,1..p|
0000a140  a2 86 5f 25 2b 34 38 2c  51 25 2d 5a 79 25 2a 46  |.._%+48,Q%-Zy%*F|
0000a150  5f 25 2c 5f 25 2b 79 25  2d 34 38 2c 51 25 2d 5a  |_%,_%+y%-48,Q%-Z|
0000a160  79 25 2a 46 5f 25 3a e3  41 25 3d 30 b8 46 5f 25  |y%*F_%:.A%=0.F_%|
0000a170  2d 31 3a c8 99 26 34 30  30 38 41 2c 52 4a 25 3a  |-1:..&4008A,RJ%:|
0000a180  c8 99 26 34 30 30 45 36  2c 31 3a 86 5f 25 2b 34  |..&400E6,1:._%+4|
0000a190  38 2c 51 25 2d 5a 79 25  2a 41 25 2c 5f 25 2b 79  |8,Q%-Zy%*A%,_%+y|
0000a1a0  25 2d 34 38 2c 51 25 2d  5a 79 25 2a 41 25 3a e7  |%-48,Q%-Zy%*A%:.|
0000a1b0  a4 53 28 5f 25 2c 51 25  2d 5a 79 25 2a 41 25 2c  |.S(_%,Q%-Zy%*A%,|
0000a1c0  79 25 2c 2d 5a 79 25 29  80 5a 24 28 41 25 2c 30  |y%,-Zy%).Z$(A%,0|
0000a1d0  29 2b 5a 24 28 41 25 2c  31 29 3c 3e 22 22 8c 0d  |)+Z$(A%,1)<>""..|
0000a1e0  03 71 85 c8 99 26 34 30  30 39 37 2c 2c 5a 24 28  |.q...&40097,,Z$(|
0000a1f0  41 25 2c 30 29 2b 22 20  20 22 b8 2c 42 25 2c 43  |A%,0)+"  ".,B%,C|
0000a200  25 2c 44 25 2c 45 25 3a  42 25 3d 44 25 2d 42 25  |%,D%,E%:B%=D%-B%|
0000a210  3a f2 6f 79 28 42 25 2c  45 25 29 3a c8 99 26 34  |:.oy(B%,E%):..&4|
0000a220  30 30 39 37 2c 2c 5a 24  28 41 25 2c 31 29 b8 2c  |0097,,Z$(A%,1).,|
0000a230  43 25 2c 46 25 2c 44 25  3a 43 25 3d 44 25 2d 43  |C%,F%,D%:C%=D%-C|
0000a240  25 3a f2 6f 79 28 43 25  2c 46 25 29 3a e7 42 25  |%:.oy(C%,F%):.B%|
0000a250  2b 43 25 3e 79 25 2d 32  34 84 45 25 2d 46 25 3e  |+C%>y%-24.E%-F%>|
0000a260  5a 79 25 8c 0d 03 72 4a  e7 5a 79 25 2f 28 45 25  |Zy%...rJ.Zy%/(E%|
0000a270  2d 46 25 29 3c 28 79 25  2d 32 34 29 2f 28 42 25  |-F%)<(y%-24)/(B%|
0000a280  2b 43 25 29 8c 46 25 3d  79 4a 25 2a 5a 79 25 2f  |+C%).F%=yJ%*Zy%/|
0000a290  28 45 25 2d 46 25 29 8b  46 25 3d 79 4a 25 2a 28  |(E%-F%).F%=yJ%*(|
0000a2a0  79 25 2d 32 34 29 2f 28  42 25 2b 43 25 29 0d 03  |y%-24)/(B%+C%)..|
0000a2b0  73 3b 43 25 3d 43 25 2a  46 25 2f 79 4a 25 3a 45  |s;C%=C%*F%/yJ%:E|
0000a2c0  25 3d 45 25 2a 46 25 2f  79 4a 25 3a 46 25 3d a4  |%=E%*F%/yJ%:F%=.|
0000a2d0  4a 28 22 54 72 69 6e 69  74 79 2e 4d 65 64 69 75  |J("Trinity.Mediu|
0000a2e0  6d 22 2c 46 25 2c 46 25  29 0d 03 74 0b cc 46 25  |m",F%,F%)..t..F%|
0000a2f0  3d 52 4a 25 0d 03 75 81  cd 3a c8 99 26 34 30 30  |=RJ%..u..:..&400|
0000a300  38 36 2c 2c 5a 24 28 41  25 2c 30 29 2c 31 3c 3c  |86,,Z$(A%,0),1<<|
0000a310  34 2c 5f 25 2b 26 43 2c  51 25 2d 5a 79 25 2a 28  |4,_%+&C,Q%-Zy%*(|
0000a320  41 25 2b 30 2e 35 29 2d  45 25 2f 32 3a c8 99 26  |A%+0.5)-E%/2:..&|
0000a330  34 30 30 38 36 2c 2c 5a  24 28 41 25 2c 31 29 2c  |40086,,Z$(A%,1),|
0000a340  31 3c 3c 34 2c 5f 25 2b  79 25 2d 43 25 2d 26 43  |1<<4,_%+y%-C%-&C|
0000a350  2c 51 25 2d 5a 79 25 2a  28 41 25 2b 30 2e 35 29  |,Q%-Zy%*(A%+0.5)|
0000a360  2d 45 25 2f 32 3a e7 46  25 3c 3e 52 4a 25 8c f2  |-E%/2:.F%<>RJ%..|
0000a370  51 28 46 25 29 0d 03 76  07 cd 3a ed 0d 03 77 05  |Q(F%)..v..:...w.|
0000a380  cd 0d 03 78 0f cd 3a f2  51 28 4a 6c 25 29 3a e1  |...x..:.Q(Jl%):.|
0000a390  0d 03 79 25 dd f2 73 5f  28 70 25 2c 4f 69 25 29  |..y%..s_(p%,Oi%)|
0000a3a0  3a ea 41 25 2c 42 25 3a  42 25 3d 77 79 25 3a c8  |:.A%,B%:B%=wy%:.|
0000a3b0  8e 21 70 25 ca 0d 03 7a  3b c9 30 3a e3 41 25 3d  |.!p%...z;.0:.A%=|
0000a3c0  39 b8 32 33 3a f2 41 28  60 25 2c 41 25 2c 41 24  |9.23:.A(`%,A%,A$|
0000a3d0  28 42 25 2c 41 25 2d 39  29 29 3a ed 3a f2 5f 28  |(B%,A%-9)):.:._(|
0000a3e0  60 25 2c 32 35 2c 30 29  3a f2 4e 28 30 2c 30 29  |`%,25,0):.N(0,0)|
0000a3f0  0d 03 7b 48 c9 31 3a e3  41 25 3d 39 b8 32 33 3a  |..{H.1:.A%=9.23:|
0000a400  f2 41 28 60 25 2c 41 25  2c 41 24 28 42 25 2c 41  |.A(`%,A%,A$(B%,A|
0000a410  25 2d 39 29 29 3a ed 3a  46 24 3d 22 22 3a 77 79  |%-9)):.:F$="":wy|
0000a420  25 3d 2d 31 3a f2 4e 28  30 2c 30 29 3a f2 5f 28  |%=-1:.N(0,0):._(|
0000a430  60 25 2c 32 35 2c 31 29  0d 03 7c 15 c9 32 3a f2  |`%,25,1)..|..2:.|
0000a440  71 79 3a e7 4d 25 28 76  25 29 3e 30 8c 0d 03 7d  |qy:.M%(v%)>0...}|
0000a450  1b e7 4d 25 28 76 25 29  3c 3d 75 79 25 8c 75 79  |..M%(v%)<=uy%.uy|
0000a460  25 2d 3d 32 2a 51 79 25  0d 03 7e 14 f2 4e 28 76  |%-=2*Qy%..~..N(v|
0000a470  25 2c 75 79 25 29 3a 75  4a 25 3d b9 0d 03 7f 0c  |%,uy%):uJ%=.....|
0000a480  cc f2 4e 28 30 2c 30 29  0d 03 80 05 cd 0d 03 81  |..N(0,0)........|
0000a490  18 c9 33 3a e7 70 25 21  34 3e 3d 30 8c 71 5f 25  |..3:.p%!4>=0.q_%|
0000a4a0  3d 70 25 21 34 0d 03 82  0a e7 76 25 3d 30 8c 0d  |=p%!4.....v%=0..|
0000a4b0  03 83 24 e3 41 25 3d 30  b8 26 45 3a 41 24 28 42  |..$.A%=0.&E:A$(B|
0000a4c0  25 2c 41 25 29 3d a4 5a  28 60 25 2c 41 25 2b 39  |%,A%)=.Z(`%,A%+9|
0000a4d0  29 3a ed 0d 03 84 0c cd  3a c8 8e 71 5f 25 ca 0d  |):......:..q_%..|
0000a4e0  03 85 20 c9 30 3a f2 71  28 41 24 28 42 25 2c 31  |.. .0:.q(A$(B%,1|
0000a4f0  29 2b 22 20 22 2b 41 24  28 42 25 2c 30 29 29 0d  |)+" "+A$(B%,0)).|
0000a500  03 86 1e c9 31 3a e3 41  25 3d 32 b8 38 3a f2 71  |....1:.A%=2.8:.q|
0000a510  28 41 24 28 42 25 2c 41  25 29 29 3a ed 0d 03 87  |(A$(B%,A%)):....|
0000a520  38 c9 32 3a f2 71 28 41  24 28 42 25 2c 31 29 2b  |8.2:.q(A$(B%,1)+|
0000a530  22 20 22 2b 41 24 28 42  25 2c 30 29 29 3a e3 41  |" "+A$(B%,0)):.A|
0000a540  25 3d 32 b8 38 3a f2 71  28 41 24 28 42 25 2c 41  |%=2.8:.q(A$(B%,A|
0000a550  25 29 29 3a ed 0d 03 88  39 c9 39 3a f2 71 28 41  |%)):....9.9:.q(A|
0000a560  24 28 42 25 2c 31 29 2b  22 20 22 2b 41 24 28 42  |$(B%,1)+" "+A$(B|
0000a570  25 2c 30 29 29 3a e3 41  25 3d 32 b8 26 45 3a f2  |%,0)):.A%=2.&E:.|
0000a580  71 28 41 24 28 42 25 2c  41 25 29 29 3a ed 0d 03  |q(A$(B%,A%)):...|
0000a590  89 15 7f f2 71 28 41 24  28 42 25 2c 71 5f 25 2b  |....q(A$(B%,q_%+|
0000a5a0  36 29 29 0d 03 8a 05 cb  0d 03 8b 1f c9 34 3a f2  |6))..........4:.|
0000a5b0  47 79 28 58 24 2b 41 24  28 77 79 25 2c 26 45 29  |Gy(X$+A$(wy%,&E)|
0000a5c0  29 3a 6a 4a 25 3d 31 0d  03 8c 1f c9 35 3a f2 47  |):jJ%=1.....5:.G|
0000a5d0  79 28 51 24 2b 41 24 28  77 79 25 2c 26 44 29 29  |y(Q$+A$(wy%,&D))|
0000a5e0  3a 6a 4a 25 3d 32 0d 03  8d 07 cb 3a e1 0d 03 8e  |:jJ%=2.....:....|
0000a5f0  6c dd f2 67 79 3a ea 41  25 3a 41 25 3d 28 77 79  |l..gy:.A%:A%=(wy|
0000a600  25 3c 30 29 3a e3 42 25  3d 30 b8 33 3a f2 4b 28  |%<0):.B%=0.3:.K(|
0000a610  66 5f 25 2c 42 25 2c 41  25 29 3a ed 3a e3 41 25  |f_%,B%,A%):.:.A%|
0000a620  3d 30 b8 39 3a f2 4a 28  59 4a 25 2c 41 25 2c 71  |=0.9:.J(YJ%,A%,q|
0000a630  5f 25 3d 41 25 29 3a ed  3a e3 42 25 3d 34 b8 35  |_%=A%):.:.B%=4.5|
0000a640  3a f2 4b 28 66 5f 25 2c  42 25 2c 31 29 3a ed 3a  |:.K(f_%,B%,1):.:|
0000a650  e7 77 79 25 3c 3e 2d 31  8c 0d 03 8f 1e e7 a4 74  |.wy%<>-1.......t|
0000a660  28 22 41 6c 69 61 73 24  55 52 4c 4f 70 65 6e 5f  |("Alias$URLOpen_|
0000a670  48 54 54 50 22 29 8c 0d  03 90 1b f2 4b 28 66 5f  |HTTP")......K(f_|
0000a680  25 2c 34 2c 41 24 28 77  79 25 2c 26 45 29 3d 22  |%,4,A$(wy%,&E)="|
0000a690  22 29 0d 03 91 22 cd 3a  e7 a4 74 28 22 41 6c 69  |")...".:..t("Ali|
0000a6a0  61 73 24 55 52 4c 4f 70  65 6e 5f 4d 61 69 6c 54  |as$URLOpen_MailT|
0000a6b0  6f 22 29 8c 0d 03 92 1b  f2 4b 28 66 5f 25 2c 35  |o")......K(f_%,5|
0000a6c0  2c 41 24 28 77 79 25 2c  26 44 29 3d 22 22 29 0d  |,A$(wy%,&D)="").|
0000a6d0  03 93 05 cd 0d 03 94 1c  cc f2 4b 28 66 5f 25 2c  |..........K(f_%,|
0000a6e0  34 2c 31 29 3a f2 4b 28  66 5f 25 2c 35 2c 31 29  |4,1):.K(f_%,5,1)|
0000a6f0  0d 03 95 07 cd 3a e1 0d  03 96 1b dd f2 76 28 6c  |.....:.......v(l|
0000a700  25 29 ea 41 25 3a 41 25  3d 76 25 3a e7 6c 25 3d  |%).A%:A%=v%:.l%=|
0000a710  31 8c 0d 03 97 17 e7 4d  25 28 76 25 29 3c 3d 75  |1......M%(v%)<=u|
0000a720  79 25 2b 51 79 25 2a 32  8c 0d 03 98 2d f5 41 25  |y%+Qy%*2....-.A%|
0000a730  2b 3d 31 3a fd 41 25 3e  32 36 84 4d 25 28 41 25  |+=1:.A%>26.M%(A%|
0000a740  83 32 37 29 3e 30 3a e7  41 25 3c 32 37 8c f2 4e  |.27)>0:.A%<27..N|
0000a750  28 41 25 2c 30 29 0d 03  99 15 cc f2 4e 28 76 25  |(A%,0)......N(v%|
0000a760  2c 75 79 25 2b 51 79 25  2a 32 29 0d 03 9a 05 cd  |,uy%+Qy%*2).....|
0000a770  0d 03 9b 12 cc 3a e7 75  79 25 3d 30 80 76 25 3e  |.....:.uy%=0.v%>|
0000a780  30 8c 0d 03 9c 37 f5 41  25 2d 3d 31 3a fd 4d 25  |0....7.A%-=1:.M%|
0000a790  28 41 25 29 3e 30 3a f2  4e 28 41 25 2c 4d 25 28  |(A%)>0:.N(A%,M%(|
0000a7a0  41 25 29 2d 31 2d 28 4d  25 28 41 25 29 2d 31 29  |A%)-1-(M%(A%)-1)|
0000a7b0  83 28 51 79 25 2a 32 29  29 0d 03 9d 1b cc e7 76  |.(Qy%*2))......v|
0000a7c0  25 3e 30 8c f2 4e 28 76  25 2c 75 79 25 2d 51 79  |%>0..N(v%,uy%-Qy|
0000a7d0  25 2a 32 29 0d 03 9e 13  cd 3a e7 76 25 3d 30 8c  |%*2).....:.v%=0.|
0000a7e0  f2 4e 28 30 2c 30 29 0d  03 9f 07 cd 3a e1 0d 03  |.N(0,0).....:...|
0000a7f0  a0 55 dd f2 72 75 28 6e  25 2c 68 25 2c 5f 25 2c  |.U..ru(n%,h%,_%,|
0000a800  51 25 2c 6f 5f 25 2c 77  4a 25 29 3a ea 79 25 2c  |Q%,o_%,wJ%):.y%,|
0000a810  41 25 2c 42 25 2c 58 25  2c 59 25 2c 4a 4a 25 3a  |A%,B%,X%,Y%,JJ%:|
0000a820  4a 4a 25 3d a4 61 28 28  6d 25 2d 28 51 79 25 2b  |JJ%=.a((m%-(Qy%+|
0000a830  32 29 2a 32 34 29 2f 51  79 25 29 3a e7 68 25 3c  |2)*24)/Qy%):.h%<|
0000a840  3e 30 8c 0d 03 a1 1a 58  25 3d 26 63 3a e7 5f 25  |>0.....X%=&c:._%|
0000a850  3e 6a 25 2d 34 30 80 6e  25 3c 3e 32 8c 0d 03 a2  |>j%-40.n%<>2....|
0000a860  1c 79 25 3d 2d 51 25 81  6a 5f 25 3a e7 79 25 3c  |.y%=-Q%.j_%:.y%<|
0000a870  32 37 80 79 25 3e 76 25  8c 0d 03 a3 1f e7 76 25  |27.y%>v%......v%|
0000a880  3d 30 8c 59 24 3d 46 24  3a 6b 75 25 3d 77 79 25  |=0.Y$=F$:ku%=wy%|
0000a890  3a 70 75 25 3d 4f 4a 25  0d 03 a4 16 e7 4d 25 28  |:pu%=OJ%.....M%(|
0000a8a0  79 25 29 3e 30 8c f2 4e  28 79 25 2c 30 29 0d 03  |y%)>0..N(y%,0)..|
0000a8b0  a5 05 cd 0d 03 a6 05 cd  0d 03 a7 1c cc 3a 58 25  |.............:X%|
0000a8c0  3d 26 63 2b 34 30 3a e7  5f 25 3c 34 30 80 6e 25  |=&c+40:._%<40.n%|
0000a8d0  3c 3e 32 8c 0d 03 a8 16  79 25 3d 2d 51 25 81 6a  |<>2.....y%=-Q%.j|
0000a8e0  5f 25 3a e7 79 25 3c 76  25 8c 0d 03 a9 1f e7 79  |_%:.y%<v%......y|
0000a8f0  25 3d 30 8c 46 24 3d 59  24 3a 77 79 25 3d 6b 75  |%=0.F$=Y$:wy%=ku|
0000a900  25 3a 4f 4a 25 3d 70 75  25 0d 03 aa 16 e7 4d 25  |%:OJ%=pu%.....M%|
0000a910  28 79 25 29 3e 30 8c f2  4e 28 79 25 2c 30 29 0d  |(y%)>0..N(y%,0).|
0000a920  03 ab 05 cd 0d 03 ac 05  cd 0d 03 ad 0c cd 3a e7  |..............:.|
0000a930  76 25 3e 30 8c 0d 03 ae  70 41 25 3d 30 3a 42 25  |v%>0....pA%=0:B%|
0000a940  3d 2d 31 3a 59 25 3d 2d  32 34 3a 68 25 3d 94 28  |=-1:Y%=-24:h%=.(|
0000a950  68 25 29 3a 46 24 3d 22  22 3a 77 79 25 3d 2d 31  |h%):F$="":wy%=-1|
0000a960  3a c8 95 41 25 3c 51 79  25 80 41 25 2b 75 79 25  |:..A%<Qy%.A%+uy%|
0000a970  2b 51 79 25 2a 68 25 3c  4d 25 28 76 25 29 3a e7  |+Qy%*h%<M%(v%):.|
0000a980  a4 72 28 5f 25 2c 51 25  2c 58 25 2c 59 25 2c 64  |.r(_%,Q%,X%,Y%,d|
0000a990  4a 25 2c 2d 4a 4a 25 29  8c 42 25 3d 41 25 2b 51  |J%,-JJ%).B%=A%+Q|
0000a9a0  79 25 2a 68 25 0d 03 af  1e 59 25 2d 3d 4a 4a 25  |y%*h%....Y%-=JJ%|
0000a9b0  2b 32 34 3a 41 25 2b 3d  31 3a ce 3a e7 42 25 3e  |+24:A%+=1:.:.B%>|
0000a9c0  3d 30 8c 0d 03 b0 3a 46  24 3d a4 73 28 41 24 28  |=0....:F$=.s(A$(|
0000a9d0  42 25 2c 30 29 2b 22 20  22 2b 41 24 28 42 25 2c  |B%,0)+" "+A$(B%,|
0000a9e0  31 29 29 3a 77 79 25 3d  42 25 3a 4f 4a 25 3d 42  |1)):wy%=B%:OJ%=B|
0000a9f0  25 2b 75 79 25 3a e7 6e  25 3c 3e 32 8c 0d 03 b1  |%+uy%:.n%<>2....|
0000aa00  38 e3 41 25 3d 39 b8 32  33 3a f2 41 28 60 25 2c  |8.A%=9.23:.A(`%,|
0000aa10  41 25 2c 41 24 28 42 25  2c 41 25 2d 39 29 29 3a  |A%,A$(B%,A%-9)):|
0000aa20  ed 3a f2 5f 28 60 25 2c  32 35 2c 30 29 3a f2 4e  |.:._(`%,25,0):.N|
0000aa30  28 30 2c 30 29 0d 03 b2  05 cd 0d 03 b3 05 cd 0d  |(0,0)...........|
0000aa40  03 b4 11 cc e7 68 25 3d  30 80 6e 25 3c 3e 32 8c  |.....h%=0.n%<>2.|
0000aa50  0d 03 b5 43 5a 79 25 3d  28 6d 25 2d 32 2a 32 34  |...CZy%=(m%-2*24|
0000aa60  2d 36 38 2d 32 2a 26 63  29 2f 46 5f 25 3a 59 25  |-68-2*&c)/F_%:Y%|
0000aa70  3d 2d 28 51 25 2b 32 34  2b 36 38 2d 5a 79 25 29  |=-(Q%+24+68-Zy%)|
0000aa80  2f 5a 79 25 3a e7 59 25  3e 30 80 59 25 3c 3d 46  |/Zy%:.Y%>0.Y%<=F|
0000aa90  5f 25 8c 0d 03 b6 68 67  4a 25 3d 59 25 3a f2 41  |_%....hgJ%=Y%:.A|
0000aaa0  28 47 5f 25 2c 33 2c 5a  24 28 59 25 2d 31 2c 30  |(G_%,3,Z$(Y%-1,0|
0000aab0  29 29 3a f2 41 28 47 5f  25 2c 34 2c 5a 24 28 59  |)):.A(G_%,4,Z$(Y|
0000aac0  25 2d 31 2c 31 29 29 3a  c8 97 58 25 2c 59 25 2c  |%-1,1)):..X%,Y%,|
0000aad0  41 25 3a c8 99 26 34 30  30 44 34 2c 2c 47 5f 25  |A%:..&400D4,,G_%|
0000aae0  2c 6f 5f 25 2b 47 4a 25  2c 59 25 3a f2 4d 28 47  |,o_%+GJ%,Y%:.M(G|
0000aaf0  5f 25 2c 33 29 3a 51 4a  25 3d b9 0d 03 b7 05 cd  |_%,3):QJ%=......|
0000ab00  0d 03 b8 05 cd 0d 03 b9  0f cd 3a e7 6e 25 3d 32  |..........:.n%=2|
0000ab10  8c f2 67 79 0d 03 ba 05  e1 0d 03 bb 1e dd f2 5a  |..gy...........Z|
0000ab20  6c 28 65 25 2c 77 25 2c  6e 25 2c 5f 25 2c 51 25  |l(e%,w%,n%,_%,Q%|
0000ab30  29 3a c8 8e 65 25 ca 0d  03 bc 0f c9 60 25 3a e7  |):..e%......`%:.|
0000ab40  6e 25 3c 3e 32 8c 0d 03  bd 09 c8 8e 77 25 ca 0d  |n%<>2.......w%..|
0000ab50  03 be 10 c9 32 34 3a f2  6a 28 b9 29 3a f2 61 0d  |....24:.j(.):.a.|
0000ab60  03 bf 17 c9 32 35 3a f2  71 79 3a f2 61 3a f2 4d  |....25:.qy:.a:.M|
0000ab70  28 60 25 2c 39 29 0d 03  c0 13 c9 32 36 3a f2 61  |(`%,9).....26:.a|
0000ab80  3a f2 4d 28 60 25 2c 39  29 0d 03 c1 23 c9 2d 31  |:.M(`%,9)...#.-1|
0000ab90  2c 30 2c 31 2c 32 2c 33  2c 34 2c 35 2c 36 2c 37  |,0,1,2,3,4,5,6,7|
0000aba0  2c 38 3a f2 4d 28 69 25  2c 2d 31 29 0d 03 c2 05  |,8:.M(i%,-1)....|
0000abb0  cb 0d 03 c3 21 cc f2 67  79 3a f2 43 28 66 5f 25  |....!..gy:.C(f_%|
0000abc0  2c 58 79 25 2d 36 34 2c  54 79 25 2c 65 25 2c 77  |,Xy%-64,Ty%,e%,w|
0000abd0  25 29 0d 03 c4 05 cd 0d  03 c5 0e c9 47 5f 25 3a  |%)..........G_%:|
0000abe0  c8 8e 77 25 ca 0d 03 c6  0a c9 35 3a f2 63 79 0d  |..w%......5:.cy.|
0000abf0  03 c7 19 c9 36 3a c8 99  26 34 30 30 44 34 2c 2c  |....6:..&400D4,,|
0000ac00  2d 31 3a 67 4a 25 3d 30  0d 03 c8 2a c9 37 3a f2  |-1:gJ%=0...*.7:.|
0000ac10  41 28 47 5f 25 2c 33 2c  22 22 29 3a f2 41 28 47  |A(G_%,3,""):.A(G|
0000ac20  5f 25 2c 34 2c 22 22 29  3a f2 4d 28 47 5f 25 2c  |_%,4,""):.M(G_%,|
0000ac30  33 29 0d 03 c9 05 cb 0d  03 ca 07 cb 3a e1 0d 03  |3)..........:...|
0000ac40  cb 1c dd a4 57 5f 28 77  25 2c 43 79 25 29 3a 6b  |....W_(w%,Cy%):k|
0000ac50  25 3d b9 3a c8 8e 43 79  25 ca 0d 03 cc 11 c9 34  |%=.:..Cy%......4|
0000ac60  31 34 3a f2 76 28 2d 61  5f 25 29 0d 03 cd 10 c9  |14:.v(-a_%).....|
0000ac70  34 31 35 3a f2 76 28 61  5f 25 29 0d 03 ce 2f c9  |415:.v(a_%).../.|
0000ac80  34 33 2c 34 36 31 3a e7  76 25 3e 30 8c 46 24 3d  |43,461:.v%>0.F$=|
0000ac90  59 24 3a 77 79 25 3d 6b  75 25 3a 4f 4a 25 3d 70  |Y$:wy%=ku%:OJ%=p|
0000aca0  75 25 3a f2 4e 28 30 2c  30 29 0d 03 cf 2e 7f 3a  |u%:.N(0,0).....:|
0000acb0  e7 43 79 25 3e 3d 39 37  80 43 79 25 3c 3d 26 37  |.Cy%>=97.Cy%<=&7|
0000acc0  41 8c 4c 25 3d 43 79 25  2d 33 32 2d 36 34 8b 4c  |A.L%=Cy%-32-64.L|
0000acd0  25 3d 43 79 25 2d 36 34  0d 03 d0 10 e7 4c 25 3e  |%=Cy%-64.....L%>|
0000ace0  30 80 4c 25 3c 32 38 8c  0d 03 d1 1f e7 76 25 3d  |0.L%<28......v%=|
0000acf0  30 8c 59 24 3d 46 24 3a  6b 75 25 3d 77 79 25 3a  |0.Y$=F$:ku%=wy%:|
0000ad00  70 75 25 3d 4f 4a 25 0d  03 d2 16 e7 4d 25 28 4c  |pu%=OJ%.....M%(L|
0000ad10  25 29 3e 30 8c f2 4e 28  4c 25 2c 30 29 0d 03 d3  |%)>0..N(L%,0)...|
0000ad20  09 cc 6b 25 3d a3 0d 03  d4 05 cd 0d 03 d5 09 cb  |..k%=...........|
0000ad30  3a 3d 6b 25 0d 03 d6 1e  dd a4 48 79 28 65 25 2c  |:=k%......Hy(e%,|
0000ad40  77 25 2c 43 79 25 29 3a  6b 25 3d b9 3a c8 8e 65  |w%,Cy%):k%=.:..e|
0000ad50  25 ca 0d 03 d7 0e c9 60  25 3a c8 8e 43 79 25 ca  |%......`%:..Cy%.|
0000ad60  0d 03 d8 17 c9 33 39 38  2c 26 44 2c 33 39 34 3a  |.....398,&D,394:|
0000ad70  e7 77 25 3d 32 33 8c 0d  03 d9 08 c8 8e b9 ca 0d  |.w%=23..........|
0000ad80  03 da 19 c9 43 79 25 3d  26 44 80 ac a6 2d 32 3a  |....Cy%=&D...-2:|
0000ad90  f2 6a 28 b9 29 3a f2 61  0d 03 db 19 c9 43 79 25  |.j(.):.a.....Cy%|
0000ada0  3d 26 44 80 a6 2d 32 3a  f2 4d 28 60 25 2c 32 30  |=&D..-2:.M(`%,20|
0000adb0  29 0d 03 dc 0d 7f f2 4d  28 60 25 2c 39 29 0d 03  |)......M(`%,9)..|
0000adc0  dd 05 cb 0d 03 de 10 cc  f2 4d 28 60 25 2c 77 25  |.........M(`%,w%|
0000add0  2b 31 29 0d 03 df 05 cd  0d 03 e0 24 c9 33 39 39  |+1)........$.399|
0000ade0  3a e7 77 25 3d 39 8c f2  4d 28 60 25 2c 32 33 29  |:.w%=9..M(`%,23)|
0000adf0  8b f2 4d 28 60 25 2c 77  25 2d 31 29 0d 03 e1 0e  |..M(`%,w%-1)....|
0000ae00  c9 34 31 34 3a e7 a6 2d  31 8c 0d 03 e2 09 c8 8e  |.414:..-1.......|
0000ae10  77 25 ca 0d 03 e3 24 c9  39 2c 26 41 2c 31 38 2c  |w%....$.9,&A,18,|
0000ae20  31 39 2c 32 30 2c 32 31  2c 32 32 3a f2 4d 28 60  |19,20,21,22:.M(`|
0000ae30  25 2c 77 25 2b 31 29 0d  03 e4 10 c9 32 33 3a f2  |%,w%+1).....23:.|
0000ae40  4d 28 60 25 2c 39 29 0d  03 e5 0e 7f f2 4d 28 60  |M(`%,9)......M(`|
0000ae50  25 2c 31 38 29 0d 03 e6  05 cb 0d 03 e7 0d cc f2  |%,18)...........|
0000ae60  76 28 2d 61 5f 25 29 0d  03 e8 05 cd 0d 03 e9 0e  |v(-a_%).........|
0000ae70  c9 34 31 35 3a e7 a6 2d  31 8c 0d 03 ea 09 c8 8e  |.415:..-1.......|
0000ae80  77 25 ca 0d 03 eb 22 c9  26 41 2c 26 42 2c 31 39  |w%....".&A,&B,19|
0000ae90  2c 32 30 2c 32 31 2c 32  33 3a f2 4d 28 60 25 2c  |,20,21,23:.M(`%,|
0000aea0  77 25 2d 31 29 0d 03 ec  10 c9 39 3a f2 4d 28 60  |w%-1).....9:.M(`|
0000aeb0  25 2c 32 33 29 0d 03 ed  0e 7f f2 4d 28 60 25 2c  |%,23)......M(`%,|
0000aec0  26 42 29 0d 03 ee 05 cb  0d 03 ef 0c cc f2 76 28  |&B)...........v(|
0000aed0  61 5f 25 29 0d 03 f0 05  cd 0d 03 f1 11 c9 34 36  |a_%)..........46|
0000aee0  31 3a f2 6a 28 b9 29 3a  f2 61 0d 03 f2 13 c9 38  |1:.j(.):.a.....8|
0000aef0  33 2d 36 34 3a f2 4d 28  60 25 2c 39 29 0d 03 f3  |3-64:.M(`%,9)...|
0000af00  14 c9 37 30 2d 36 34 3a  f2 4d 28 60 25 2c 26 41  |..70-64:.M(`%,&A|
0000af10  29 0d 03 f4 14 c9 36 35  2d 36 34 3a f2 4d 28 60  |).....65-64:.M(`|
0000af20  25 2c 26 42 29 0d 03 f5  14 c9 38 34 2d 36 34 3a  |%,&B).....84-64:|
0000af30  f2 4d 28 60 25 2c 31 38  29 0d 03 f6 23 c9 38 38  |.M(`%,18)...#.88|
0000af40  2d 36 34 3a e7 77 79 25  3c 3e 2d 31 8c f2 71 79  |-64:.wy%<>-1..qy|
0000af50  3a f2 61 3a f2 4d 28 60  25 2c 39 29 0d 03 f7 14  |:.a:.M(`%,9)....|
0000af60  c9 36 39 2d 36 34 3a f2  4d 28 60 25 2c 32 32 29  |.69-64:.M(`%,22)|
0000af70  0d 03 f8 14 c9 38 37 2d  36 34 3a f2 4d 28 60 25  |.....87-64:.M(`%|
0000af80  2c 32 33 29 0d 03 f9 09  7f 6b 25 3d a3 0d 03 fa  |,23).....k%=....|
0000af90  05 cb 0d 03 fb 0f c9 47  5f 25 3a c8 8e 43 79 25  |.......G_%:..Cy%|
0000afa0  ca 0d 03 fc 19 c9 33 39  38 2c 33 39 39 3a f2 4d  |......398,399:.M|
0000afb0  28 47 5f 25 2c 37 2d 77  25 29 0d 03 fd 1b c9 26  |(G_%,7-w%).....&|
0000afc0  44 3a e7 77 25 3d 33 8c  f2 4d 28 47 5f 25 2c 34  |D:.w%=3..M(G_%,4|
0000afd0  29 8b f2 63 79 0d 03 fe  09 7f 6b 25 3d a3 0d 03  |)..cy.....k%=...|
0000afe0  ff 05 cb 0d 04 00 09 7f  6b 25 3d a3 0d 04 01 09  |........k%=.....|
0000aff0  cb 3a 3d 6b 25 0d 04 02  5e dd f2 75 75 28 7a 25  |.:=k%...^..uu(z%|
0000b000  29 3a ea 41 25 3a d5 23  7a 25 2c 48 24 3a d5 23  |):.A%:.#z%,H$:.#|
0000b010  7a 25 2c 51 79 25 3a d5  23 7a 25 2c 71 5f 25 3a  |z%,Qy%:.#z%,q_%:|
0000b020  d5 23 7a 25 2c 61 5f 25  2b 35 3a d5 23 7a 25 2c  |.#z%,a_%+5:.#z%,|
0000b030  51 24 3a d5 23 7a 25 2c  58 24 3a e3 41 25 3d 30  |Q$:.#z%,X$:.A%=0|
0000b040  b8 26 45 3a d5 23 7a 25  2c 4e 25 28 41 25 29 3a  |.&E:.#z%,N%(A%):|
0000b050  ed 3a e1 0d 04 03 5e dd  f2 76 75 28 7a 25 29 3a  |.:....^..vu(z%):|
0000b060  ea 41 25 3a 48 24 3d be  23 7a 25 3a 51 79 25 3d  |.A%:H$=.#z%:Qy%=|
0000b070  9a 23 7a 25 3a 71 5f 25  3d 9a 23 7a 25 3a 61 5f  |.#z%:q_%=.#z%:a_|
0000b080  25 3d 9a 23 7a 25 2d 35  3a 51 24 3d be 23 7a 25  |%=.#z%-5:Q$=.#z%|
0000b090  3a 58 24 3d be 23 7a 25  3a e3 41 25 3d 30 b8 26  |:X$=.#z%:.A%=0.&|
0000b0a0  45 3a 4e 25 28 41 25 29  3d 9a 23 7a 25 3a ed 3a  |E:N%(A%)=.#z%:.:|
0000b0b0  e1 0d 04 04 22 dd f2 60  75 28 73 25 2c 53 79 25  |...."..`u(s%,Sy%|
0000b0c0  2c 70 25 2c 5f 25 2c 51  25 29 3a ea 41 25 3a c8  |,p%,_%,Q%):.A%:.|
0000b0d0  8e b9 ca 0d 04 05 27 c9  53 79 25 3e 3d 33 80 53  |......'.Sy%>=3.S|
0000b0e0  79 25 3c 3d 26 44 3a e7  6e 25 3c 3e 32 8c f2 5a  |y%<=&D:.n%<>2..Z|
0000b0f0  28 73 25 2c 53 79 25 2c  31 29 0d 04 06 3b c9 53  |(s%,Sy%,1)...;.S|
0000b100  79 25 3d 39 3a e3 41 25  3d 30 b8 39 3a f2 4a 28  |y%=9:.A%=0.9:.J(|
0000b110  59 4a 25 2c 41 25 2c 71  5f 25 3d 41 25 29 3a ed  |YJ%,A%,q_%=A%):.|
0000b120  3a f2 43 28 59 4a 25 2c  5f 25 2c 51 25 2c 73 25  |:.C(YJ%,_%,Q%,s%|
0000b130  2c 53 79 25 29 0d 04 07  4d c9 53 79 25 3e 3d 32  |,Sy%)...M.Sy%>=2|
0000b140  32 80 53 79 25 3c 3d 33  36 3a e3 41 25 3d 30 b8  |2.Sy%<=36:.A%=0.|
0000b150  26 45 3a f2 4a 28 42 79  25 2c 41 25 2c a4 71 28  |&E:.J(By%,A%,.q(|
0000b160  73 25 2c 53 79 25 29 3d  41 25 29 3a ed 3a f2 43  |s%,Sy%)=A%):.:.C|
0000b170  28 42 79 25 2c 5f 25 2c  51 25 2c 73 25 2c 53 79  |(By%,_%,Q%,s%,Sy|
0000b180  25 29 0d 04 08 07 cb 3a  e1 0d 04 09 28 dd a4 72  |%).....:....(..r|
0000b190  79 28 73 25 2c 53 79 25  2c 71 61 25 29 3a ea 6a  |y(s%,Sy%,qa%):.j|
0000b1a0  75 25 2c 63 25 3a 6b 25  3d a3 3a c8 8e 53 79 25  |u%,c%:k%=.:..Sy%|
0000b1b0  ca 0d 04 0a 13 c9 31 3a  63 25 3d 31 37 3a 6a 75  |......1:c%=17:ju|
0000b1c0  25 3d 31 38 0d 04 0b 13  c9 31 37 3a 63 25 3d 31  |%=18.....17:c%=1|
0000b1d0  38 3a 6a 75 25 3d 31 0d  04 0c 13 c9 31 38 3a 63  |8:ju%=1.....18:c|
0000b1e0  25 3d 31 3a 6a 75 25 3d  31 37 0d 04 0d 0c cb 3a  |%=1:ju%=17.....:|
0000b1f0  c8 8e 71 61 25 ca 0d 04  0e 25 c9 26 44 2c 33 39  |..qa%....%.&D,39|
0000b200  34 2c 33 39 38 3a e7 63  25 3c 3e 30 8c f2 4d 28  |4,398:.c%<>0..M(|
0000b210  73 25 2c 63 25 29 3a 6b  25 3d b9 0d 04 0f 20 c9  |s%,c%):k%=.... .|
0000b220  33 39 39 3a e7 6a 75 25  3c 3e 30 8c f2 4d 28 73  |399:.ju%<>0..M(s|
0000b230  25 2c 6a 75 25 29 3a 6b  25 3d b9 0d 04 10 08 cb  |%,ju%):k%=......|
0000b240  3a 3d b9 0d 04 11 1a dd  f2 62 5f 28 70 25 2c 73  |:=.......b_(p%,s|
0000b250  25 29 3a ea 41 25 3a c8  8e 5f 5f 25 ca 0d 04 12  |%):.A%:..__%....|
0000b260  3f c9 38 3a 71 5f 25 3d  21 70 25 3a e3 41 25 3d  |?.8:q_%=!p%:.A%=|
0000b270  30 b8 39 3a f2 4a 28 59  4a 25 2c 41 25 2c 71 5f  |0.9:.J(YJ%,A%,q_|
0000b280  25 3d 41 25 29 3a ed 3a  f2 41 28 73 25 2c 38 2c  |%=A%):.:.A(s%,8,|
0000b290  a4 57 28 59 4a 25 2c 21  70 25 29 29 0d 04 13 30  |.W(YJ%,!p%))...0|
0000b2a0  7f e3 41 25 3d 30 b8 26  46 3a f2 4a 28 42 79 25  |..A%=0.&F:.J(By%|
0000b2b0  2c 41 25 2c 21 70 25 3d  41 25 29 3a ed 3a f2 55  |,A%,!p%=A%):.:.U|
0000b2c0  28 73 25 2c 5f 5f 25 2c  21 70 25 29 0d 04 14 07  |(s%,__%,!p%)....|
0000b2d0  cb 3a e1 0d 04 15 b3 dd  f2 52 5f 28 73 25 29 3a  |.:.......R_(s%):|
0000b2e0  ea 41 25 3a f2 41 28 73  25 2c 31 2c 48 24 29 3a  |.A%:.A(s%,1,H$):|
0000b2f0  e3 41 25 3d 31 b8 35 3a  f2 5a 28 73 25 2c 41 25  |.A%=1.5:.Z(s%,A%|
0000b300  2b 32 2c 2d 28 51 79 25  3d 41 25 29 29 3a ed 3a  |+2,-(Qy%=A%)):.:|
0000b310  f2 41 28 73 25 2c 38 2c  a4 57 28 59 4a 25 2c 71  |.A(s%,8,.W(YJ%,q|
0000b320  5f 25 29 29 3a f2 41 28  73 25 2c 31 37 2c 58 24  |_%)):.A(s%,17,X$|
0000b330  29 3a f2 41 28 73 25 2c  31 38 2c 51 24 29 3a f2  |):.A(s%,18,Q$):.|
0000b340  5a 28 73 25 2c 26 43 2c  2d 28 61 5f 25 3d 2d 31  |Z(s%,&C,-(a_%=-1|
0000b350  29 29 3a f2 5a 28 73 25  2c 26 44 2c 2d 28 61 5f  |)):.Z(s%,&D,-(a_|
0000b360  25 3d 31 29 29 3a e3 41  25 3d 30 b8 26 45 3a f2  |%=1)):.A%=0.&E:.|
0000b370  55 28 73 25 2c 41 25 2b  32 32 2c 4e 25 28 41 25  |U(s%,A%+22,N%(A%|
0000b380  29 29 3a ed 3a e1 0d 04  16 5c dd f2 79 5f 28 73  |)):.:....\..y_(s|
0000b390  25 29 3a ea 41 25 2c 42  25 3a 48 24 3d a4 5a 28  |%):.A%,B%:H$=.Z(|
0000b3a0  73 25 2c 31 29 3a 58 24  3d a4 5a 28 73 25 2c 31  |s%,1):X$=.Z(s%,1|
0000b3b0  37 29 3a 51 24 3d a4 5a  28 73 25 2c 31 38 29 3a  |7):Q$=.Z(s%,18):|
0000b3c0  42 25 3d 51 79 25 3a e3  41 25 3d 31 b8 35 3a e7  |B%=Qy%:.A%=1.5:.|
0000b3d0  a4 4d 28 73 25 2c 41 25  2b 32 29 8c 51 79 25 3d  |.M(s%,A%+2).Qy%=|
0000b3e0  41 25 0d 04 17 1f ed 3a  e7 41 25 3c 3e 42 25 80  |A%.....:.A%<>B%.|
0000b3f0  74 25 3d a4 50 28 32 29  8c f2 4e 28 76 25 2c 30  |t%=.P(2)..N(v%,0|
0000b400  29 0d 04 18 1b e7 a4 4d  28 73 25 2c 26 43 29 8c  |)......M(s%,&C).|
0000b410  61 5f 25 3d 2d 31 8b 61  5f 25 3d 31 0d 04 19 24  |a_%=-1.a_%=1...$|
0000b420  e3 41 25 3d 30 b8 26 45  3a 4e 25 28 41 25 29 3d  |.A%=0.&E:N%(A%)=|
0000b430  a4 71 28 73 25 2c 41 25  2b 32 32 29 3a ed 3a e1  |.q(s%,A%+22):.:.|
0000b440  0d 04 1a 29 dd f2 4e 28  79 25 2c 69 75 25 29 3a  |...)..N(y%,iu%):|
0000b450  e7 76 25 3d 30 80 79 25  3c 3e 30 8c f2 4d 28 69  |.v%=0.y%<>0..M(i|
0000b460  25 2c 2d 31 29 3a f2 59  79 0d 04 1b 28 e7 79 25  |%,-1):.Yy...(.y%|
0000b470  3d 30 8c f2 44 5f 28 69  25 2c 60 25 2c 64 79 25  |=0..D_(i%,`%,dy%|
0000b480  2c 2d 6f 25 2d 6a 5f 25  2c 56 79 25 2c b9 2c b9  |,-o%-j_%,Vy%,.,.|
0000b490  29 0d 04 1c 16 70 79 25  3d 30 3a e7 79 25 3c 76  |)....py%=0:.y%<v|
0000b4a0  25 70 79 25 3d 2d 31 0d  04 1d 0f e7 79 25 3e 76  |%py%=-1.....y%>v|
0000b4b0  25 70 79 25 3d 31 0d 04  1e 0b e7 70 79 25 3d 30  |%py%=1.....py%=0|
0000b4c0  8c 0d 04 1f 20 75 4a 25  3d 69 75 25 3c 3e 75 79  |.... uJ%=iu%<>uy|
0000b4d0  25 3a e7 69 75 25 3c 75  79 25 8c 70 79 25 3d 2d  |%:.iu%<uy%.py%=-|
0000b4e0  31 0d 04 20 12 e7 69 75  25 3e 75 79 25 8c 70 79  |1.. ..iu%>uy%.py|
0000b4f0  25 3d 31 0d 04 21 2a cd  3a 76 25 3d 79 25 3a 75  |%=1..!*.:v%=y%:u|
0000b500  79 25 3d 69 75 25 3a f2  73 79 3a e7 79 25 3c 3e  |y%=iu%:.sy:.y%<>|
0000b510  30 8c f2 58 4a 28 79 25  2c 69 75 25 29 0d 04 22  |0..XJ(y%,iu%).."|
0000b520  05 e1 0d 04 23 ad dd f2  63 79 ea 5a 79 25 2c 59  |....#...cy.Zy%,Y|
0000b530  25 3a 5a 24 28 67 4a 25  2d 31 2c 30 29 3d a4 5a  |%:Z$(gJ%-1,0)=.Z|
0000b540  28 47 5f 25 2c 33 29 3a  5a 24 28 67 4a 25 2d 31  |(G_%,3):Z$(gJ%-1|
0000b550  2c 31 29 3d a4 5a 28 47  5f 25 2c 34 29 3a 5a 79  |,1)=.Z(G_%,4):Zy|
0000b560  25 3d 28 6d 25 2d 32 2a  32 34 2d 36 38 2d 32 2a  |%=(m%-2*24-68-2*|
0000b570  26 63 29 2f 46 5f 25 3a  59 25 3d 6f 25 2b 32 34  |&c)/F_%:Y%=o%+24|
0000b580  2b 36 38 2b 5a 79 25 2a  28 67 4a 25 2d 31 29 3a  |+68+Zy%*(gJ%-1):|
0000b590  f2 44 28 69 25 2c 79 79  25 2b 26 43 2c 2d 59 25  |.D(i%,yy%+&C,-Y%|
0000b5a0  2c 47 4a 25 2d 26 43 2c  2d 59 25 2d 5a 79 25 29  |,GJ%-&C,-Y%-Zy%)|
0000b5b0  3a 65 79 25 3d b9 3a e7  ac a4 47 79 8c c8 99 26  |:ey%=.:...Gy...&|
0000b5c0  34 30 30 44 34 2c 2c 2d  31 3a 67 4a 25 3d 30 0d  |400D4,,-1:gJ%=0.|
0000b5d0  04 24 05 e1 0d 04 25 3d  dd f2 61 ea 41 25 3a e3  |.$....%=..a.A%:.|
0000b5e0  41 25 3d 39 b8 32 33 3a  f2 41 28 60 25 2c 41 25  |A%=9.23:.A(`%,A%|
0000b5f0  2c 22 22 29 3a ed 3a 46  24 3d 22 22 3a 77 79 25  |,""):.:F$="":wy%|
0000b600  3d 2d 31 3a f2 5f 28 60  25 2c 32 35 2c 31 29 3a  |=-1:._(`%,25,1):|
0000b610  e1 0d 04 26 4d dd f2 71  79 3a ea 5f 79 25 3a f2  |...&M..qy:._y%:.|
0000b620  5a 5f 3a 5f 79 25 3d a4  5f 28 46 24 29 2d 36 34  |Z_:_y%=._(F$)-64|
0000b630  3a 4d 25 28 5f 79 25 29  2d 3d 31 3a 46 24 3d 22  |:M%(_y%)-=1:F$="|
0000b640  22 3a 77 79 25 3d 2d 31  3a e7 4d 25 28 5f 79 25  |":wy%=-1:.M%(_y%|
0000b650  29 3d 30 8c 46 25 28 5f  79 25 29 3d 2d 31 0d 04  |)=0.F%(_y%)=-1..|
0000b660  27 6d f2 44 28 69 25 2c  64 79 25 2b 6a 25 2d 34  |'m.D(i%,dy%+j%-4|
0000b670  30 2c 2d 6f 25 2d 6a 5f  25 2a 5f 79 25 2c 64 79  |0,-o%-j_%*_y%,dy|
0000b680  25 2b 6a 25 2c 2d 6f 25  2d 6a 5f 25 2a 28 5f 79  |%+j%,-o%-j_%*(_y|
0000b690  25 2b 31 29 29 3a f2 44  28 69 25 2c 79 79 25 2c  |%+1)):.D(i%,yy%,|
0000b6a0  2d 6f 25 2d 6a 5f 25 2a  5f 79 25 2c 79 79 25 2b  |-o%-j_%*_y%,yy%+|
0000b6b0  34 30 2c 2d 6f 25 2d 6a  5f 25 2a 28 5f 79 25 2b  |40,-o%-j_%*(_y%+|
0000b6c0  31 29 29 3a 65 79 25 3d  b9 3a e1 0d 04 28 61 dd  |1)):ey%=.:...(a.|
0000b6d0  f2 5a 5f 3a ea 42 25 2c  4c 25 2c 41 25 3a 42 25  |.Z_:.B%,L%,A%:B%|
0000b6e0  3d 79 5f 25 3a 4c 25 3d  a4 5f 28 46 24 29 2d 36  |=y_%:L%=._(F$)-6|
0000b6f0  34 3a 42 25 3d 46 25 28  4c 25 29 3a 41 25 3d 4f  |4:B%=F%(L%):A%=O|
0000b700  4a 25 3a c8 95 41 25 3e  30 3a 42 25 3d 42 25 21  |J%:..A%>0:B%=B%!|
0000b710  34 3a 41 25 2d 3d 31 3a  ce 3a e7 4f 4a 25 3d 30  |4:A%-=1:.:.OJ%=0|
0000b720  8c 46 25 28 4c 25 29 3d  42 25 21 34 0d 04 29 19  |.F%(L%)=B%!4..).|
0000b730  e7 42 25 21 34 3c 3e 2d  31 8c 21 28 42 25 21 34  |.B%!4<>-1.!(B%!4|
0000b740  29 3d 21 42 25 0d 04 2a  22 e7 21 42 25 3d 2d 31  |)=!B%..*".!B%=-1|
0000b750  8c 79 5f 25 3d 42 25 21  34 8b 21 28 21 42 25 2b  |.y_%=B%!4.!(!B%+|
0000b760  34 29 3d 42 25 21 34 0d  04 2b 13 f2 44 79 28 77  |4)=B%!4..+..Dy(w|
0000b770  5f 25 2c 42 25 2c b9 29  3a e1 0d 04 2c 6f dd f2  |_%,B%,.):...,o..|
0000b780  6a 28 48 61 25 29 3a ea  4f 25 2c 4c 25 2c 4c 24  |j(Ha%):.O%,L%,L$|
0000b790  3a 4c 24 3d a4 76 28 a4  5a 28 60 25 2c 39 29 2b  |:L$=.v(.Z(`%,9)+|
0000b7a0  22 20 22 2b a4 5a 28 60  25 2c 26 41 29 29 3a 4c  |" "+.Z(`%,&A)):L|
0000b7b0  25 3d a4 5f 28 4c 24 29  2d 36 34 3a 4d 25 28 4c  |%=._(L$)-64:M%(L|
0000b7c0  25 29 2b 3d 31 3a e7 46  24 3d 22 22 8c 4f 25 3d  |%)+=1:.F$="".O%=|
0000b7d0  4c 25 8b 4f 25 3d a4 5f  28 46 24 29 2d 36 34 3a  |L%.O%=._(F$)-64:|
0000b7e0  4d 25 28 4f 25 29 2d 3d  31 0d 04 2d 16 e7 77 79  |M%(O%)-=1..-..wy|
0000b7f0  25 3c 30 8c f2 47 5f 8b  f2 5a 5f 3a f2 47 5f 0d  |%<0..G_..Z_:.G_.|
0000b800  04 2e 1d 46 24 3d 22 22  3a 77 79 25 3d 2d 31 3a  |...F$="":wy%=-1:|
0000b810  e7 48 61 25 8c f2 46 75  28 4c 24 29 0d 04 2f 0b  |.Ha%..Fu(L$)../.|
0000b820  65 79 25 3d b9 3a e1 0d  04 30 74 dd f2 46 75 28  |ey%=.:...0t..Fu(|
0000b830  41 24 29 3a ea 42 25 2c  41 25 2c 50 25 3a 50 25  |A$):.B%,A%,P%:P%|
0000b840  3d a4 5f 28 41 24 29 2d  36 34 3a 42 25 3d 46 25  |=._(A$)-64:B%=F%|
0000b850  28 50 25 29 3a c8 95 a4  73 28 a4 54 28 42 25 2c  |(P%):...s(.T(B%,|
0000b860  30 29 2b 22 20 22 2b a4  54 28 42 25 2c 31 29 29  |0)+" "+.T(B%,1))|
0000b870  3c 3e 4c 24 3a 42 25 3d  42 25 21 34 3a 41 25 2b  |<>L$:B%=B%!4:A%+|
0000b880  3d 31 3a ce 3a f2 4e 28  50 25 2c 41 25 2d 41 25  |=1:.:.N(P%,A%-A%|
0000b890  83 28 32 2a 51 79 25 29  29 3a e1 0d 04 31 c5 dd  |.(2*Qy%)):...1..|
0000b8a0  f2 47 5f 3a ea 41 25 2c  42 25 2c 43 25 2c 53 25  |.G_:.A%,B%,C%,S%|
0000b8b0  3a 53 25 3d 26 43 3a e3  41 25 3d 39 b8 32 33 3a  |:S%=&C:.A%=9.23:|
0000b8c0  53 25 2b 3d a9 a4 5a 28  60 25 2c 41 25 29 2b 31  |S%+=..Z(`%,A%)+1|
0000b8d0  3a ed 3a 43 25 3d a4 77  28 77 5f 25 2c 53 25 2c  |:.:C%=.w(w_%,S%,|
0000b8e0  b9 29 3a 42 25 3d 79 5f  25 3a 43 25 21 38 3d 53  |.):B%=y_%:C%!8=S|
0000b8f0  25 3a 53 25 3d 43 25 2b  26 43 3a e3 41 25 3d 39  |%:S%=C%+&C:.A%=9|
0000b900  b8 32 33 3a 24 28 53 25  29 3d a4 5a 28 60 25 2c  |.23:$(S%)=.Z(`%,|
0000b910  41 25 29 2b bd 26 41 3a  53 25 2b 3d a9 28 24 53  |A%)+.&A:S%+=.($S|
0000b920  25 29 3a ed 3a 41 25 3d  a4 5f 28 a4 5a 28 60 25  |%):.:A%=._(.Z(`%|
0000b930  2c 39 29 2b 22 20 22 2b  a4 5a 28 60 25 2c 26 41  |,9)+" "+.Z(`%,&A|
0000b940  29 29 2d 36 34 3a e7 46  25 28 41 25 29 3d 2d 31  |))-64:.F%(A%)=-1|
0000b950  8c 46 25 28 41 25 29 3d  43 25 3a 41 25 2d 3d 31  |.F%(A%)=C%:A%-=1|
0000b960  0d 04 32 0c e7 42 25 3c  3e 2d 31 8c 0d 04 33 32  |..2..B%<>-1...32|
0000b970  c8 95 46 25 28 41 25 29  3d 2d 31 80 41 25 3e 31  |..F%(A%)=-1.A%>1|
0000b980  3a 41 25 2d 3d 31 3a ce  3a e7 46 25 28 41 25 29  |:A%-=1:.:.F%(A%)|
0000b990  3c 3e 2d 31 8c 42 25 3d  46 25 28 41 25 29 0d 04  |<>-1.B%=F%(A%)..|
0000b9a0  34 55 c8 95 a4 76 28 a4  54 28 42 25 2c 30 29 2b  |4U...v(.T(B%,0)+|
0000b9b0  22 20 22 2b a4 54 28 42  25 2c 31 29 29 3c 4c 24  |" "+.T(B%,1))<L$|
0000b9c0  80 42 25 21 34 3c 3e 2d  31 3a 42 25 3d 42 25 21  |.B%!4<>-1:B%=B%!|
0000b9d0  34 3a ce 3a e7 a4 76 28  a4 54 28 42 25 2c 30 29  |4:.:..v(.T(B%,0)|
0000b9e0  2b 22 20 22 2b a4 54 28  42 25 2c 31 29 29 3e 3d  |+" "+.T(B%,1))>=|
0000b9f0  4c 24 8c 0d 04 35 18 e7  46 25 28 41 25 29 3d 42  |L$...5..F%(A%)=B|
0000ba00  25 8c 46 25 28 41 25 29  3d 43 25 0d 04 36 36 21  |%.F%(A%)=C%..66!|
0000ba10  43 25 3d 21 42 25 3a 43  25 21 34 3d 42 25 3a 21  |C%=!B%:C%!4=B%:!|
0000ba20  42 25 3d 43 25 3a e7 21  43 25 3c 3e 2d 31 8c 21  |B%=C%:.!C%<>-1.!|
0000ba30  28 21 43 25 2b 34 29 3d  43 25 8b 79 5f 25 3d 43  |(!C%+4)=C%.y_%=C|
0000ba40  25 0d 04 37 1c cc 3a 42  25 21 34 3d 43 25 3a 21  |%..7..:B%!4=C%:!|
0000ba50  43 25 3d 42 25 3a 43 25  21 34 3d 2d 31 0d 04 38  |C%=B%:C%!4=-1..8|
0000ba60  05 cd 0d 04 39 24 cc 79  5f 25 3d 43 25 3a 21 43  |....9$.y_%=C%:!C|
0000ba70  25 3d 2d 31 3a 43 25 21  34 3d 2d 31 3a 46 25 28  |%=-1:C%!4=-1:F%(|
0000ba80  41 25 29 3d 43 25 0d 04  3a 07 cd 3a e1 0d 04 3b  |A%)=C%..:..:...;|
0000ba90  29 dd a4 5f 28 41 24 29  3a ea 42 25 3a 42 25 3d  |).._(A$):.B%:B%=|
0000baa0  97 28 a4 76 28 41 24 29  29 3a e7 42 25 3c 36 35  |.(.v(A$)):.B%<65|
0000bab0  8c 42 25 3d 36 35 0d 04  3c 07 3d 42 25 0d 04 3d  |.B%=65..<.=B%..=|
0000bac0  66 dd a4 76 28 41 24 29  3a ea 42 25 3a 41 24 3d  |f..v(A$):.B%:A$=|
0000bad0  a4 73 28 41 24 29 3a 42  25 3d 97 c0 41 24 2c 31  |.s(A$):B%=..A$,1|
0000bae0  29 3a c8 95 ac 28 42 25  3e 34 37 80 42 25 3c 35  |):...(B%>47.B%<5|
0000baf0  38 29 80 ac 28 42 25 3e  36 34 80 42 25 3c 39 31  |8)..(B%>64.B%<91|
0000bb00  29 80 41 24 3c 3e 22 22  3a 41 24 3d c1 41 24 2c  |).A$<>"":A$=.A$,|
0000bb10  32 29 3a 42 25 3d 97 c0  41 24 2c 31 29 3a ce 3a  |2):B%=..A$,1):.:|
0000bb20  3d 41 24 0d 04 3e be dd  f2 74 79 28 6c 25 2c 79  |=A$..>...ty(l%,y|
0000bb30  25 29 3a ea 41 25 3a 5f  79 25 3d 6a 25 2d 34 30  |%):.A%:_y%=j%-40|
0000bb40  3a 79 25 21 38 3d 21 79  25 2b 5f 79 25 3a 79 25  |:y%!8=!y%+_y%:y%|
0000bb50  21 34 38 3d 79 25 21 34  30 2b 5f 79 25 3a 79 25  |!48=y%!40+_y%:y%|
0000bb60  2b 3d 38 38 2b 38 3a e3  41 25 3d 26 42 b8 31 37  |+=88+8:.A%=&B.17|
0000bb70  3a 79 25 21 28 41 25 2a  33 32 29 3d 5f 79 25 2d  |:y%!(A%*32)=_y%-|
0000bb80  31 36 3a ed 3a e3 41 25  3d 38 b8 32 33 3a 41 25  |16:.:.A%=8.23:A%|
0000bb90  2d 3d 37 2a 28 41 25 3d  26 42 29 3a 79 25 21 28  |-=7*(A%=&B):y%!(|
0000bba0  41 25 2a 33 32 29 3d 5f  79 25 3a ed 3a 79 25 21  |A%*32)=_y%:.:y%!|
0000bbb0  28 32 34 2a 33 32 2d 38  29 3d 28 5f 79 25 2d 33  |(24*32-8)=(_y%-3|
0000bbc0  38 34 29 2f 34 3a 79 25  21 28 32 34 2a 33 32 29  |84)/4:y%!(24*32)|
0000bbd0  3d 79 25 21 28 32 34 2a  33 32 2d 38 29 2b 26 38  |=y%!(24*32-8)+&8|
0000bbe0  30 0d 04 3f 85 79 25 21  28 32 35 2a 33 32 2d 38  |0..?.y%!(25*32-8|
0000bbf0  29 3d 79 25 21 28 32 34  2a 33 32 29 2b 28 5f 79  |)=y%!(24*32)+(_y|
0000bc00  25 2d 33 38 34 29 2f 34  3a 79 25 21 28 32 35 2a  |%-384)/4:y%!(25*|
0000bc10  33 32 29 3d 79 25 21 28  32 35 2a 33 32 2d 38 29  |32)=y%!(25*32-8)|
0000bc20  2b 26 38 30 3a 79 25 21  28 32 36 2a 33 32 2d 38  |+&80:y%!(26*32-8|
0000bc30  29 3d 79 25 21 28 32 35  2a 33 32 29 2b 28 5f 79  |)=y%!(25*32)+(_y|
0000bc40  25 2d 33 38 34 29 2f 34  3a 79 25 21 28 32 36 2a  |%-384)/4:y%!(26*|
0000bc50  33 32 29 3d 79 25 21 28  32 36 2a 33 32 2d 38 29  |32)=y%!(26*32-8)|
0000bc60  2b 26 38 30 3a e1 0d 04  40 6b dd f2 7a 5f 3a ea  |+&80:...@k..z_:.|
0000bc70  41 25 2c 42 25 2c 43 25  2c 53 25 2c 7a 25 2c 4c  |A%,B%,C%,S%,z%,L|
0000bc80  25 3a e3 41 25 3d 30 b8  32 36 3a 4d 25 28 41 25  |%:.A%=0.26:M%(A%|
0000bc90  29 3d 30 3a 46 25 28 41  25 29 3d 2d 31 3a ed 3a  |)=0:F%(A%)=-1:.:|
0000bca0  4d 25 28 30 29 3d 31 3a  43 25 3d 2d 31 3a 79 5f  |M%(0)=1:C%=-1:y_|
0000bcb0  25 3d 2d 31 3a 46 5f 25  3d 31 36 3a 7a 25 3d 8e  |%=-1:F_%=16:z%=.|
0000bcc0  28 7a 24 29 3a e7 ac 6c  4a 25 80 7a 25 3c 3e 30  |(z$):..lJ%.z%<>0|
0000bcd0  8c 0d 04 41 3b c8 95 ac  c5 23 7a 25 3a 53 25 3d  |...A;....#z%:S%=|
0000bce0  bb be 23 7a 25 3a 42 25  3d a4 77 28 77 5f 25 2c  |..#z%:B%=.w(w_%,|
0000bcf0  53 25 2c b9 29 3a e7 43  25 3c 3e 2d 31 8c 43 25  |S%,.):.C%<>-1.C%|
0000bd00  21 34 3d 42 25 8b 79 5f  25 3d 42 25 0d 04 42 67  |!4=B%.y_%=B%..Bg|
0000bd10  21 42 25 3d 43 25 3a 42  25 21 38 3d 53 25 3a c8  |!B%=C%:B%!8=S%:.|
0000bd20  99 26 43 2c 34 2c 7a 25  2c 42 25 2b 26 43 2c 53  |.&C,4,z%,B%+&C,S|
0000bd30  25 2d 26 43 3a 4c 25 3d  a4 5f 28 a4 54 28 42 25  |%-&C:L%=._(.T(B%|
0000bd40  2c 30 29 2b 22 20 22 2b  a4 54 28 42 25 2c 31 29  |,0)+" "+.T(B%,1)|
0000bd50  29 2d 36 34 3a 4d 25 28  4c 25 29 2b 3d 31 3a e7  |)-64:M%(L%)+=1:.|
0000bd60  46 25 28 4c 25 29 3d 2d  31 8c 46 25 28 4c 25 29  |F%(L%)=-1.F%(L%)|
0000bd70  3d 42 25 0d 04 43 15 43  25 3d 42 25 3a e7 73 5f  |=B%..C.C%=B%:.s_|
0000bd80  25 8c f2 64 28 ac 31 29  0d 04 44 16 ce 3a e7 79  |%..d(.1)..D..:.y|
0000bd90  5f 25 3c 3e 2d 31 8c 42  25 21 34 3d 2d 31 0d 04  |_%<>-1.B%!4=-1..|
0000bda0  45 08 d9 23 7a 25 0d 04  46 19 cd 3a 7a 25 3d 8e  |E..#z%..F..:z%=.|
0000bdb0  65 24 3a e7 ac 6c 4a 25  80 7a 25 3c 3e 30 8c 0d  |e$:..lJ%.z%<>0..|
0000bdc0  04 47 3c 46 5f 25 3d bb  be 23 7a 25 3a e3 42 25  |.G<F_%=..#z%:.B%|
0000bdd0  3d 30 b8 46 5f 25 2d 31  3a 5a 24 28 42 25 2c 30  |=0.F_%-1:Z$(B%,0|
0000bde0  29 3d be 23 7a 25 3a 5a  24 28 42 25 2c 31 29 3d  |)=.#z%:Z$(B%,1)=|
0000bdf0  be 23 7a 25 3a ed 3a d9  23 7a 25 0d 04 48 07 cd  |.#z%:.:.#z%..H..|
0000be00  3a e1 0d 04 49 a5 dd f2  4c 4a 3a ea 7a 25 2c 42  |:...I...LJ:.z%,B|
0000be10  25 2c 53 25 2c 41 25 3a  7a 25 3d ae 7a 24 3a 42  |%,S%,A%:z%=.z$:B|
0000be20  25 3d 79 5f 25 3a c8 95  42 25 3c 3e 2d 31 3a d5  |%=y_%:..B%<>-1:.|
0000be30  23 7a 25 2c c3 42 25 21  38 3a c8 99 26 43 2c 32  |#z%,.B%!8:..&C,2|
0000be40  2c 7a 25 2c 42 25 2b 26  43 2c 42 25 21 38 20 2d  |,z%,B%+&C,B%!8 -|
0000be50  26 43 3a 42 25 3d 42 25  21 34 3a ce 3a d9 23 7a  |&C:B%=B%!4:.:.#z|
0000be60  25 3a 7a 25 3d ae 65 24  3a d5 23 7a 25 2c c3 46  |%:z%=.e$:.#z%,.F|
0000be70  5f 25 3a e3 41 25 3d 30  b8 46 5f 25 2d 31 3a d5  |_%:.A%=0.F_%-1:.|
0000be80  23 7a 25 2c 5a 24 28 41  25 2c 30 29 2b bd 26 41  |#z%,Z$(A%,0)+.&A|
0000be90  2b 5a 24 28 41 25 2c 31  29 3a ed 3a d9 23 7a 25  |+Z$(A%,1):.:.#z%|
0000bea0  3a 7a 25 3d 30 3a e1 0d  04 4a 19 dd f2 58 4a 28  |:z%=0:...J...XJ(|
0000beb0  5f 79 25 2c 6b 69 25 29  3a e7 5f 79 25 3e 30 8c  |_y%,ki%):._y%>0.|
0000bec0  0d 04 4b a6 ea 41 25 2c  42 25 2c 43 25 2c 46 25  |..K..A%,B%,C%,F%|
0000bed0  3a 42 25 3d 46 25 28 5f  79 25 29 3a c8 95 6b 69  |:B%=F%(_y%):..ki|
0000bee0  25 3e 30 3a 42 25 3d 42  25 21 34 3a 6b 69 25 2d  |%>0:B%=B%!4:ki%-|
0000bef0  3d 31 3a ce 3a f5 e3 43  25 3d 30 b8 26 45 3a 41  |=1:.:..C%=0.&E:A|
0000bf00  24 28 41 25 2c 43 25 29  3d a4 54 28 42 25 2c 43  |$(A%,C%)=.T(B%,C|
0000bf10  25 29 3a ed 3a 41 25 2b  3d 31 3a 46 25 3d 28 41  |%):.:A%+=1:F%=(A|
0000bf20  25 3e 51 79 25 2a 32 2d  31 29 84 42 25 21 34 3d  |%>Qy%*2-1).B%!4=|
0000bf30  2d 31 3a 42 25 3d 42 25  21 34 3a e7 ac 46 25 8c  |-1:B%=B%!4:..F%.|
0000bf40  46 25 3d 28 a4 5f 28 a4  54 28 42 25 2c 30 29 2b  |F%=(._(.T(B%,0)+|
0000bf50  22 20 22 2b a4 54 28 42  25 2c 31 29 29 2d 36 34  |" "+.T(B%,1))-64|
0000bf60  3c 3e 5f 79 25 29 0d 04  4c 07 fd 46 25 0d 04 4d  |<>_y%)..L..F%..M|
0000bf70  07 cd 3a e1 0d 04 4e 5f  dd a4 54 28 42 25 2c 4c  |..:...N_..T(B%,L|
0000bf80  25 29 3a ea 41 24 3a 42  25 2b 3d 26 43 3a c8 95  |%):.A$:B%+=&C:..|
0000bf90  4c 25 3e 30 3a c8 95 3f  42 25 3c 3e 26 41 3a 42  |L%>0:..?B%<>&A:B|
0000bfa0  25 2b 3d 31 3a ce 3a 42  25 2b 3d 31 3a 4c 25 2d  |%+=1:.:B%+=1:L%-|
0000bfb0  3d 31 3a ce 3a c8 95 3f  42 25 3c 3e 26 41 3a 41  |=1:.:..?B%<>&A:A|
0000bfc0  24 2b 3d bd 3f 42 25 3a  42 25 2b 3d 31 3a ce 3a  |$+=.?B%:B%+=1:.:|
0000bfd0  3d 41 24 0d 04 4f 69 dd  f2 52 4a 28 53 24 29 3a  |=A$..Oi..RJ(S$):|
0000bfe0  ea 74 24 2c 41 25 2c 42  25 2c 53 25 2c 49 25 2c  |.t$,A%,B%,S%,I%,|
0000bff0  78 61 25 2c 65 61 25 2c  57 61 25 2c 6b 6c 25 3a  |xa%,ea%,Wa%,kl%:|
0000c000  70 4a 25 3d 30 3a 6e 4a  25 3d 30 3a 7a 25 3d 8e  |pJ%=0:nJ%=0:z%=.|
0000c010  53 24 3a c8 95 ac c5 23  7a 25 3a 74 24 3d be 23  |S$:....#z%:t$=.#|
0000c020  7a 25 3a 41 25 3d a4 4a  5f 28 74 24 29 3a e7 41  |z%:A%=.J_(t$):.A|
0000c030  25 3e 6e 4a 25 8c 6e 4a  25 3d 41 25 0d 04 50 1e  |%>nJ%.nJ%=A%..P.|
0000c040  70 4a 25 2b 3d 31 3a ce  3a d9 23 7a 25 3a 7a 25  |pJ%+=1:.:.#z%:z%|
0000c050  3d 30 3a e7 6e 4a 25 3e  30 8c 0d 04 51 ca c8 99  |=0:.nJ%>0...Q...|
0000c060  26 34 30 30 44 39 2c 2c  4a 24 2b 22 2e 52 65 73  |&400D9,,J$+".Res|
0000c070  6f 75 72 63 65 73 2e 44  65 66 61 75 6c 74 2e 54  |ources.Default.T|
0000c080  65 6d 70 6c 61 74 65 73  22 3a c8 99 26 34 30 30  |emplates":..&400|
0000c090  44 42 2c 2c 2c 30 2c 30  2c 30 2c 22 49 6d 70 6f  |DB,,,0,0,0,"Impo|
0000c0a0  72 74 22 b8 2c 57 61 25  2c 6b 6c 25 3a c8 99 33  |rt".,Wa%,kl%:..3|
0000c0b0  30 2c 36 2c 2c 2c 57 61  25 b8 2c 2c 7a 6c 25 3b  |0,6,,,Wa%.,,zl%;|
0000c0c0  78 61 25 3a c8 99 33 30  2c 36 2c 2c 2c 6b 6c 25  |xa%:..30,6,,,kl%|
0000c0d0  b8 2c 2c 74 6c 25 3b 65  61 25 3a c8 99 26 34 30  |.,,tl%;ea%:..&40|
0000c0e0  30 44 42 2c 2c 7a 6c 25  2c 74 6c 25 2c 74 6c 25  |0DB,,zl%,tl%,tl%|
0000c0f0  2b 6b 6c 25 2c 59 6c 25  2c 22 49 6d 70 6f 72 74  |+kl%,Yl%,"Import|
0000c100  22 2c 30 3a c8 99 26 34  30 30 43 31 2c 2c 7a 6c  |",0:..&400C1,,zl|
0000c110  25 b8 7a 79 25 3a c8 99  26 34 30 30 44 41 3a 50  |%.zy%:..&400DA:P|
0000c120  24 3d 53 24 0d 04 52 3c  42 25 3d 31 3a e3 41 25  |$=S$..R<B%=1:.A%|
0000c130  3d 26 41 b8 35 32 88 33  3a f2 41 28 7a 79 25 2c  |=&A.52.3:.A(zy%,|
0000c140  41 25 2c c3 42 25 29 3a  e7 42 25 3e 30 8c 42 25  |A%,.B%):.B%>0.B%|
0000c150  2b 3d 31 3a e7 42 25 3e  6e 4a 25 8c 42 25 3d 30  |+=1:.B%>nJ%.B%=0|
0000c160  0d 04 53 40 ed 3a f2 41  28 7a 79 25 2c 35 34 2c  |..S@.:.A(zy%,54,|
0000c170  a4 41 28 22 49 6d 70 6f  72 74 31 22 29 29 3a f2  |.A("Import1")):.|
0000c180  41 28 7a 79 25 2c 35 35  2c a4 41 28 22 49 6d 70  |A(zy%,55,.A("Imp|
0000c190  6f 72 74 31 22 29 29 3a  f2 66 28 53 24 2c 31 29  |ort1")):.f(S$,1)|
0000c1a0  0d 04 54 1b cc 50 24 3d  22 22 3a f2 42 28 a4 41  |..T..P$="":.B(.A|
0000c1b0  28 22 45 72 72 43 53 56  22 29 29 0d 04 55 07 cd  |("ErrCSV"))..U..|
0000c1c0  3a e1 0d 04 56 30 dd f2  43 79 3a 70 4a 25 3d 30  |:...V0..Cy:pJ%=0|
0000c1d0  3a 6e 4a 25 3d 30 3a e7  50 24 3c 3e 22 22 8c ff  |:nJ%=0:.P$<>""..|
0000c1e0  22 52 65 6d 6f 76 65 20  22 2b 50 24 3a 50 24 3d  |"Remove "+P$:P$=|
0000c1f0  22 22 0d 04 57 0d e7 7a  79 25 3c 3e 2d 31 8c 0d  |""..W..zy%<>-1..|
0000c200  04 58 37 21 55 25 3d 7a  79 25 3a 7a 79 25 3d 2d  |.X7!U%=zy%:zy%=-|
0000c210  31 3a c8 99 26 34 30 30  43 33 2c 2c 55 25 3a c8  |1:..&400C3,,U%:.|
0000c220  99 33 30 2c 37 2c 2c 7a  6c 25 3a c8 99 33 30 2c  |.30,7,,zl%:..30,|
0000c230  37 2c 2c 74 6c 25 0d 04  59 07 cd 3a e1 0d 04 5a  |7,,tl%..Y..:...Z|
0000c240  78 dd f2 66 28 53 24 2c  4b 6c 25 29 3a ea 41 25  |x..f(S$,Kl%):.A%|
0000c250  2c 42 25 2c 53 25 2c 6d  24 2c 68 5f 25 3a 6d 24  |,B%,S%,m$,h_%:m$|
0000c260  3d a4 73 79 28 53 24 2c  4b 6c 25 29 3a 46 24 3d  |=.sy(S$,Kl%):F$=|
0000c270  22 22 3a 77 79 25 3d 2d  31 3a f2 5f 28 60 25 2c  |"":wy%=-1:._(`%,|
0000c280  32 35 2c 31 29 3a e3 41  25 3d 39 b8 32 33 3a 42  |25,1):.A%=9.23:B|
0000c290  25 3d 26 41 2b 28 41 25  2d 39 29 2a 33 3a 68 5f  |%=&A+(A%-9)*3:h_|
0000c2a0  25 3d bb a4 5a 28 7a 79  25 2c 42 25 29 3a e7 42  |%=..Z(zy%,B%):.B|
0000c2b0  25 3c 26 45 8c 0d 04 5b  21 53 25 3d a4 6b 28 75  |%<&E...[!S%=.k(u|
0000c2c0  75 25 2c a4 5a 28 7a 79  25 2c 35 35 2b 28 42 25  |u%,.Z(zy%,55+(B%|
0000c2d0  3d 26 41 29 29 29 0d 04  5c 09 cc 53 25 3d 30 0d  |=&A)))..\..S%=0.|
0000c2e0  04 5d 0d cd 3a e7 68 5f  25 3e 30 8c 0d 04 5e 1c  |.]..:.h_%>0...^.|
0000c2f0  f2 41 28 60 25 2c 41 25  2c a4 65 79 28 6d 24 2c  |.A(`%,A%,.ey(m$,|
0000c300  68 5f 25 2c 53 25 29 29  0d 04 5f 11 cc f2 41 28  |h_%,S%)).._...A(|
0000c310  60 25 2c 41 25 2c 22 22  29 0d 04 60 2a cd 3a ed  |`%,A%,"")..`*.:.|
0000c320  3a f2 41 28 7a 79 25 2c  35 39 2c c3 4b 6c 25 29  |:.A(zy%,59,.Kl%)|
0000c330  3a e7 ac 56 79 25 8c f2  77 28 69 25 2c 2d 31 2c  |:..Vy%..w(i%,-1,|
0000c340  2d 31 29 0d 04 61 3c 56  5f 25 3d 74 25 3a 7a 5f  |-1)..a<V_%=t%:z_|
0000c350  25 3d 76 25 3a 74 25 3d  a4 50 28 32 29 3a f2 4e  |%=v%:t%=.P(2):.N|
0000c360  28 30 2c 30 29 3a e7 56  5f 25 3c 3e 74 25 84 7a  |(0,0):.V_%<>t%.z|
0000c370  5f 25 3c 3e 76 25 8c 70  79 25 3d 30 3a f2 4f 0d  |_%<>v%.py%=0:.O.|
0000c380  04 62 12 f2 77 28 7a 79  25 2c 2d 31 2c 30 29 3a  |.b..w(zy%,-1,0):|
0000c390  e1 0d 04 63 42 dd a4 73  79 28 53 24 2c 4b 6c 25  |...cB..sy(S$,Kl%|
0000c3a0  29 3a ea 41 24 3a 7a 25  3d 8e 53 24 3a c8 95 4b  |):.A$:z%=.S$:..K|
0000c3b0  6c 25 3e 30 3a 41 24 3d  be 23 7a 25 3a 4b 6c 25  |l%>0:A$=.#z%:Kl%|
0000c3c0  2d 3d 31 3a ce 3a d9 23  7a 25 3a 7a 25 3d 30 3a  |-=1:.:.#z%:z%=0:|
0000c3d0  3d 41 24 0d 04 64 43 dd  a4 65 79 28 41 24 2c 68  |=A$..dC..ey(A$,h|
0000c3e0  5f 25 2c 77 61 25 29 3a  ea 43 4a 25 2c 42 25 2c  |_%,wa%):.CJ%,B%,|
0000c3f0  5a 24 2c 49 6c 25 3a c8  95 68 5f 25 3e 31 80 41  |Z$,Il%:..h_%>1.A|
0000c400  24 3c 3e 22 22 3a e7 97  41 24 3d 33 34 8c 43 4a  |$<>"":..A$=34.CJ|
0000c410  25 3d ac 43 4a 25 0d 04  65 17 e7 97 41 24 3d 34  |%=.CJ%..e...A$=4|
0000c420  34 80 ac 43 4a 25 8c 68  5f 25 2d 3d 31 0d 04 66  |4..CJ%.h_%-=1..f|
0000c430  27 41 24 3d c1 41 24 2c  32 29 3a ce 3a e7 97 41  |'A$=.A$,2):.:..A|
0000c440  24 3d 33 34 8c 43 4a 25  3d b9 3a 41 24 3d c1 41  |$=34.CJ%=.:A$=.A|
0000c450  24 2c 32 29 0d 04 67 24  c8 95 ac 49 6c 25 3a e7  |$,2)..g$...Il%:.|
0000c460  97 41 24 3d 33 34 84 41  24 3d 22 22 8c 43 4a 25  |.A$=34.A$="".CJ%|
0000c470  3d a3 3a 49 6c 25 3d b9  0d 04 68 16 e7 97 41 24  |=.:Il%=...h...A$|
0000c480  3d 34 34 80 ac 43 4a 25  8c 49 6c 25 3d b9 0d 04  |=44..CJ%.Il%=...|
0000c490  69 1e e7 ac 49 6c 25 8c  5a 24 2b 3d c0 41 24 2c  |i...Il%.Z$+=.A$,|
0000c4a0  31 29 3a 41 24 3d c1 41  24 2c 32 29 0d 04 6a 0c  |1):A$=.A$,2)..j.|
0000c4b0  ce 3a c8 8e 77 61 25 ca  0d 04 6b 19 c9 31 3a 5a  |.:..wa%...k..1:Z|
0000c4c0  24 3d c0 5a 24 2c a7 5a  24 2c 22 20 22 29 2d 31  |$=.Z$,.Z$," ")-1|
0000c4d0  29 0d 04 6c 19 c9 32 3a  5a 24 3d c1 5a 24 2c a7  |)..l..2:Z$=.Z$,.|
0000c4e0  5a 24 2c 22 20 22 29 2b  31 29 0d 04 6d 13 c9 33  |Z$," ")+1)..m..3|
0000c4f0  3a e7 a7 5a 24 2c 22 20  22 29 3e 30 8c 0d 04 6e  |:..Z$," ")>0...n|
0000c500  2d 42 25 3d a9 5a 24 3a  f5 42 25 2d 3d 31 3a fd  |-B%=.Z$:.B%-=1:.|
0000c510  c1 5a 24 2c 42 25 2c 31  29 3d 22 20 22 3a 5a 24  |.Z$,B%,1)=" ":Z$|
0000c520  3d c0 5a 24 2c 42 25 2d  31 29 0d 04 6f 0a cc 5a  |=.Z$,B%-1)..o..Z|
0000c530  24 3d 22 22 0d 04 70 05  cd 0d 04 71 26 c9 34 3a  |$=""..p....q&.4:|
0000c540  c8 95 a7 5a 24 2c 22 20  22 29 3a 5a 24 3d c1 5a  |...Z$," "):Z$=.Z|
0000c550  24 2c a7 5a 24 2c 22 20  22 29 2b 31 29 3a ce 0d  |$,.Z$," ")+1):..|
0000c560  04 72 09 cb 3a 3d 5a 24  0d 04 73 2f dd a4 4a 5f  |.r..:=Z$..s/..J_|
0000c570  28 41 24 29 3a ea 43 69  25 2c 43 4a 25 3a c8 95  |(A$):.Ci%,CJ%:..|
0000c580  41 24 3c 3e 22 22 3a e7  97 41 24 3d 33 34 8c 43  |A$<>"":..A$=34.C|
0000c590  4a 25 3d ac 43 4a 25 0d  04 74 17 e7 97 41 24 3d  |J%=.CJ%..t...A$=|
0000c5a0  34 34 80 ac 43 4a 25 8c  43 69 25 2b 3d 31 0d 04  |44..CJ%.Ci%+=1..|
0000c5b0  75 1c 41 24 3d c1 41 24  2c 32 29 3a ce 3a 3d 43  |u.A$=.A$,2):.:=C|
0000c5c0  69 25 2d 28 43 69 25 3e  30 29 0d 04 76 26 dd f2  |i%-(Ci%>0)..v&..|
0000c5d0  68 5f 28 65 25 2c 77 25  2c 6e 25 2c 58 79 25 2c  |h_(e%,w%,n%,Xy%,|
0000c5e0  54 79 25 29 3a ea 41 25  2c 42 25 3a c8 8e b9 ca  |Ty%):.A%,B%:....|
0000c5f0  0d 04 77 4c c9 77 25 3d  35 38 84 77 25 3d 36 30  |..wL.w%=58.w%=60|
0000c600  3a 41 25 3d bb a4 5a 28  65 25 2c 35 39 29 2d 28  |:A%=..Z(e%,59)-(|
0000c610  77 25 2d 35 39 29 3a e7  41 25 3e 30 80 41 25 3c  |w%-59):.A%>0.A%<|
0000c620  3d 70 4a 25 8c f2 41 28  65 25 2c 35 39 2c c3 41  |=pJ%..A(e%,59,.A|
0000c630  25 29 3a f2 66 28 50 24  2c 41 25 29 0d 04 78 57  |%):.f(P$,A%)..xW|
0000c640  c9 77 25 3e 3d 39 80 77  25 3c 3d 35 33 3a 42 25  |.w%>=9.w%<=53:B%|
0000c650  3d 26 41 2b 33 2a 28 28  77 25 2d 39 29 81 33 29  |=&A+3*((w%-9).3)|
0000c660  3a 41 25 3d bb a4 5a 28  65 25 2c 42 25 29 2b 28  |:A%=..Z(e%,B%)+(|
0000c670  77 25 2d 42 25 29 2a 28  31 2b 32 2a 28 6e 25 3d  |w%-B%)*(1+2*(n%=|
0000c680  31 29 29 3a e7 41 25 3e  3d 30 80 41 25 3c 3d 6e  |1)):.A%>=0.A%<=n|
0000c690  4a 25 8c 0d 04 79 23 f2  41 28 65 25 2c 42 25 2c  |J%...y#.A(e%,B%,|
0000c6a0  c3 41 25 29 3a f2 66 28  50 24 2c bb a4 5a 28 65  |.A%):.f(P$,..Z(e|
0000c6b0  25 2c 35 39 29 29 0d 04  7a 05 cd 0d 04 7b 26 c9  |%,59))..z....{&.|
0000c6c0  77 25 3d 35 34 84 77 25  3d 35 35 3a f2 43 28 75  |w%=54.w%=55:.C(u|
0000c6d0  75 25 2c 58 79 25 2c 54  79 25 2c 65 25 2c 77 25  |u%,Xy%,Ty%,e%,w%|
0000c6e0  29 0d 04 7c 48 c9 77 25  3d 36 36 3a f2 6a 28 a3  |)..|H.w%=66:.j(.|
0000c6f0  29 3a 41 25 3d bb a4 5a  28 7a 79 25 2c 35 39 29  |):A%=..Z(zy%,59)|
0000c700  2b 31 3a e7 41 25 3e 30  80 41 25 3c 3d 70 4a 25  |+1:.A%>0.A%<=pJ%|
0000c710  8c f2 41 28 7a 79 25 2c  35 39 2c c3 41 25 29 3a  |..A(zy%,59,.A%):|
0000c720  f2 66 28 50 24 2c 41 25  29 0d 04 7d 4a c9 77 25  |.f(P$,A%)..}J.w%|
0000c730  3d 36 37 3a f5 3a f2 6a  28 a3 29 3a 41 25 3d bb  |=67:.:.j(.):A%=.|
0000c740  a4 5a 28 7a 79 25 2c 35  39 29 2b 31 3a e7 41 25  |.Z(zy%,59)+1:.A%|
0000c750  3e 30 80 41 25 3c 3d 70  4a 25 8c f2 41 28 7a 79  |>0.A%<=pJ%..A(zy|
0000c760  25 2c 35 39 2c c3 41 25  29 3a f2 66 28 50 24 2c  |%,59,.A%):.f(P$,|
0000c770  41 25 29 0d 04 7e 0b fd  41 25 3e 70 4a 25 0d 04  |A%)..~..A%>pJ%..|
0000c780  7f 0e c9 77 25 3d 36 38  3a f2 43 79 0d 04 80 07  |...w%=68:.Cy....|
0000c790  cb 3a e1 0d 04 81 3a dd  f2 50 4a 28 77 25 2c 49  |.:....:..PJ(w%,I|
0000c7a0  25 29 3a f2 41 28 7a 79  25 2c 77 25 2c a4 57 28  |%):.A(zy%,w%,.W(|
0000c7b0  75 75 25 2c 49 25 29 29  3a f2 66 28 50 24 2c bb  |uu%,I%)):.f(P$,.|
0000c7c0  a4 5a 28 7a 79 25 2c 35  39 29 29 3a e1 0d 04 82  |.Z(zy%,59)):....|
0000c7d0  56 dd f2 72 5f 28 79 25  2c 6c 6c 25 2c 5f 25 2c  |V..r_(y%,ll%,_%,|
0000c7e0  51 25 2c 73 25 2c 62 25  29 3a 21 4a 25 3d 69 25  |Q%,s%,b%):!J%=i%|
0000c7f0  3a e7 4c 25 28 79 25 2c  6c 6c 25 2d 26 44 29 3c  |:.L%(y%,ll%-&D)<|
0000c800  3e 2d 31 8c 4a 25 21 34  3d 4c 25 28 79 25 2c 6c  |>-1.J%!4=L%(y%,l|
0000c810  6c 25 2d 26 44 29 3a c8  99 26 34 30 30 43 34 2c  |l%-&D):..&400C4,|
0000c820  2c 4a 25 0d 04 83 9e c8  99 26 34 30 30 43 42 2c  |,J%......&400CB,|
0000c830  2c 4a 25 3a 51 25 2d 3d  38 3a 62 25 2d 3d 38 3a  |,J%:Q%-=8:b%-=8:|
0000c840  4a 25 21 34 3d 5f 25 2d  4a 25 21 34 3a 4a 25 21  |J%!4=_%-J%!4:J%!|
0000c850  38 3d 51 25 2d 4a 25 21  31 36 2d 62 25 3a 4a 25  |8=Q%-J%!16-b%:J%|
0000c860  21 26 43 3d 4a 25 21 34  2b 73 25 3a 4a 25 21 31  |!&C=J%!4+s%:J%!1|
0000c870  36 3d 4a 25 21 38 2b 62  25 3a 4a 25 21 32 30 3d  |6=J%!8+b%:J%!20=|
0000c880  26 37 30 30 33 31 31 39  3a 4a 25 21 32 34 3d 4f  |&7003119:J%!24=O|
0000c890  6c 25 3a 4a 25 21 32 38  3d 69 6c 25 3a 4a 25 21  |l%:J%!28=il%:J%!|
0000c8a0  33 32 3d 30 3a c8 99 26  34 30 30 43 32 2c 2c 4a  |32=0:..&400C2,,J|
0000c8b0  25 b8 4c 25 28 79 25 2c  6c 6c 25 2d 26 44 29 3a  |%.L%(y%,ll%-&D):|
0000c8c0  e1 0d 04 84 56 dd f2 73  79 3a ea 79 25 2c 50 79  |....V..sy:.y%,Py|
0000c8d0  25 3a 21 4a 25 3d 69 25  3a e3 79 25 3d 30 b8 26  |%:!J%=i%:.y%=0.&|
0000c8e0  41 3a e3 50 79 25 3d 30  b8 31 3a e7 4c 25 28 79  |A:.Py%=0.1:.L%(y|
0000c8f0  25 2c 50 79 25 29 3c 3e  2d 31 8c 4a 25 21 34 3d  |%,Py%)<>-1.J%!4=|
0000c900  4c 25 28 79 25 2c 50 79  25 29 3a c8 99 26 34 30  |L%(y%,Py%):..&40|
0000c910  30 43 34 2c 2c 4a 25 0d  04 85 10 ed 2c 3a 4c 25  |0C4,,J%.....,:L%|
0000c920  28 29 3d 2d 31 3a e1 0d  04 86 4f dd f2 6f 5f 28  |()=-1:....O..o_(|
0000c930  77 25 29 3a ea 79 25 2c  50 79 25 2c 42 61 25 2c  |w%):.y%,Py%,Ba%,|
0000c940  48 69 25 2c 41 24 3a e3  79 25 3d 30 b8 26 41 3a  |Hi%,A$:.y%=0.&A:|
0000c950  e3 50 79 25 3d 30 b8 31  3a e7 4c 25 28 79 25 2c  |.Py%=0.1:.L%(y%,|
0000c960  50 79 25 29 3d 77 25 8c  42 61 25 3d 79 25 3a 48  |Py%)=w%.Ba%=y%:H|
0000c970  69 25 3d 50 79 25 0d 04  87 25 ed 2c 3a e7 48 69  |i%=Py%...%.,:.Hi|
0000c980  25 3d 30 8c 41 24 3d 51  24 3a 6a 4a 25 3d 32 8b  |%=0.A$=Q$:jJ%=2.|
0000c990  41 24 3d 58 24 3a 6a 4a  25 3d 31 0d 04 88 1c f2  |A$=X$:jJ%=1.....|
0000c9a0  47 79 28 41 24 2b 41 24  28 42 61 25 2c 48 69 25  |Gy(A$+A$(Ba%,Hi%|
0000c9b0  2b 26 44 29 29 3a e1 0d  04 89 49 dd f2 47 79 28  |+&D)):....I..Gy(|
0000c9c0  69 24 29 3a 21 4a 25 3d  32 35 36 3a 4a 25 21 34  |i$):!J%=256:J%!4|
0000c9d0  3d 73 75 25 3a 4a 25 21  31 36 3d 26 34 41 46 38  |=su%:J%!16=&4AF8|
0000c9e0  30 3a 24 28 4a 25 2b 32  30 29 3d 69 24 3a c8 99  |0:$(J%+20)=i$:..|
0000c9f0  26 34 30 30 45 37 2c 31  38 2c 4a 25 2c 30 3a e1  |&400E7,18,J%,0:.|
0000ca00  0d 04 8a 6e dd f2 4d 75  3a de 43 25 28 26 43 29  |...n..Mu:.C%(&C)|
0000ca10  2c 55 25 28 26 43 29 3a  44 79 25 3d 33 3a 44 4a  |,U%(&C):Dy%=3:DJ|
0000ca20  25 3d 26 42 3a 65 5f 25  3d 2d 31 3a 43 25 28 29  |%=&B:e_%=-1:C%()|
0000ca30  3d 2d 31 3a 77 24 3d 54  24 2b 22 41 6e 6e 69 22  |=-1:w$=T$+"Anni"|
0000ca40  3a 60 6c 25 3d 30 3a 57  4a 25 3d 2d 31 3a 50 4a  |:`l%=0:WJ%=-1:PJ|
0000ca50  25 3d 2d 31 3a 79 6c 25  3d a4 43 28 22 41 4e 4d  |%=-1:yl%=.C("ANM|
0000ca60  22 2c 22 41 4e 4d 22 2c  31 2c 34 29 3a e1 0d 04  |","ANM",1,4):...|
0000ca70  8b 0c dd a4 5f 79 3d 79  6c 25 0d 04 8c 42 dd f2  |...._y=yl%...B..|
0000ca80  57 75 28 41 25 29 3a 42  25 28 41 25 29 3d 31 3a  |Wu(A%):B%(A%)=1:|
0000ca90  57 25 28 41 25 29 3d 26  43 3a 53 25 28 41 25 29  |W%(A%)=&C:S%(A%)|
0000caa0  3d 31 3a 4d 24 28 41 25  29 3d a4 41 28 22 41 6e  |=1:M$(A%)=.A("An|
0000cab0  6e 54 61 62 22 29 3a f2  4c 5f 3a e1 0d 04 8d a3  |nTab"):.L_:.....|
0000cac0  dd f2 5a 4a 28 76 25 2c  68 25 2c 61 25 2c 4b 25  |..ZJ(v%,h%,a%,K%|
0000cad0  29 3a ea 4a 79 25 2c 51  25 2c 72 25 3a 4a 79 25  |):.Jy%,Q%,r%:Jy%|
0000cae0  3d 28 6d 25 2d 44 79 25  2a 32 30 2d 32 30 29 2f  |=(m%-Dy%*20-20)/|
0000caf0  44 79 25 3a 51 25 3d 30  3a e3 72 25 3d 76 25 2b  |Dy%:Q%=0:.r%=v%+|
0000cb00  44 79 25 2a 94 68 25 b8  76 25 2b 44 79 25 2a 94  |Dy%*.h%.v%+Dy%*.|
0000cb10  68 25 2b 44 79 25 2d 31  3a 51 25 2b 3d 32 30 2b  |h%+Dy%-1:Q%+=20+|
0000cb20  4a 79 25 3a f2 6b 4a 28  72 25 2c 61 25 2b 32 30  |Jy%:.kJ(r%,a%+20|
0000cb30  2c 4b 25 2d 51 25 2b 4a  79 25 2c 6a 25 2d 34 30  |,K%-Q%+Jy%,j%-40|
0000cb40  2c 4a 79 25 29 3a ed 3a  e7 68 25 3d 30 80 76 25  |,Jy%):.:.h%=0.v%|
0000cb50  3e 31 8c f2 52 28 68 25  2c 61 25 2c 4b 25 29 0d  |>1..R(h%,a%,K%).|
0000cb60  04 8e 1a e7 68 25 80 72  25 3c 26 43 8c f2 52 28  |....h%.r%<&C..R(|
0000cb70  68 25 2c 61 25 2c 4b 25  29 0d 04 8f 05 e1 0d 04  |h%,a%,K%).......|
0000cb80  90 17 dd f2 4e 4a 28 70  25 2c 4f 69 25 29 3a c8  |....NJ(p%,Oi%):.|
0000cb90  8e 21 70 25 ca 0d 04 91  1a c9 30 3a e7 50 4a 25  |.!p%......0:.PJ%|
0000cba0  3c 3e 2d 31 8c f2 70 28  50 4a 25 2c 2d 31 29 0d  |<>-1..p(PJ%,-1).|
0000cbb0  04 92 19 c9 31 3a e7 50  4a 25 3c 3e 2d 31 8c f2  |....1:.PJ%<>-1..|
0000cbc0  70 28 50 4a 25 2c 30 29  0d 04 93 18 c9 32 3a e7  |p(PJ%,0).....2:.|
0000cbd0  50 4a 25 3c 3e 2d 31 8c  f2 55 79 28 50 4a 25 29  |PJ%<>-1..Uy(PJ%)|
0000cbe0  0d 04 94 2f c9 33 3a f2  57 79 28 22 58 91 73 20  |.../.3:.Wy("X.s |
0000cbf0  25 6e 25 74 20 62 69 72  74 68 64 61 79 22 2c 55  |%n%t birthday",U|
0000cc00  79 25 2c 55 61 25 2c 46  79 25 2c 30 2c 30 29 0d  |y%,Ua%,Fy%,0,0).|
0000cc10  04 95 07 cb 3a e1 0d 04  96 30 dd f2 48 79 28 6c  |....:....0..Hy(l|
0000cc20  25 29 3a 76 25 2b 3d 6c  25 2a 32 2a 44 79 25 3a  |%):v%+=l%*2*Dy%:|
0000cc30  e7 76 25 2b 32 2a 44 79  25 3e 26 44 8c 76 25 2d  |.v%+2*Dy%>&D.v%-|
0000cc40  3d 32 2a 44 79 25 0d 04  97 0e e7 76 25 3c 31 8c  |=2*Dy%.....v%<1.|
0000cc50  76 25 3d 31 0d 04 98 05  e1 0d 04 99 75 dd f2 66  |v%=1........u..f|
0000cc60  5f 28 6e 25 2c 68 25 2c  5f 25 2c 51 25 2c 6f 5f  |_(n%,h%,_%,Q%,o_|
0000cc70  25 2c 77 4a 25 29 3a ea  4a 79 25 2c 72 25 3a 4a  |%,wJ%):.Jy%,r%:J|
0000cc80  79 25 3d 28 6d 25 2d 32  30 29 2f 44 79 25 3a 72  |y%=(m%-20)/Dy%:r|
0000cc90  25 3d 2d 51 25 81 4a 79  25 2b 31 3a 51 25 2b 3d  |%=-Q%.Jy%+1:Q%+=|
0000cca0  28 72 25 2d 31 29 2a 4a  79 25 2b 32 30 3a e7 51  |(r%-1)*Jy%+20:.Q|
0000ccb0  25 3e 30 84 72 25 3e 44  79 25 84 5f 25 3c 32 30  |%>0.r%>Dy%._%<20|
0000ccc0  84 5f 25 3e 6a 25 2d 34  30 8c 72 25 3d 30 0d 04  |._%>j%-40.r%=0..|
0000ccd0  9a 1d e7 68 25 8c 6f 5f  25 3d 64 79 25 2b 32 30  |...h%.o_%=dy%+20|
0000cce0  8b 6f 5f 25 3d 79 79 25  2b 32 30 0d 04 9b 57 77  |.o_%=yy%+20...Ww|
0000ccf0  4a 25 3d 2d 6f 25 2d 32  30 2d 4a 79 25 2a 28 72  |J%=-o%-20-Jy%*(r|
0000cd00  25 2d 31 29 3a e7 72 25  3c 3e 30 8c f2 6a 75 28  |%-1):.r%<>0..ju(|
0000cd10  72 25 2b 44 79 25 2a 94  68 25 2b 76 25 2d 31 2c  |r%+Dy%*.h%+v%-1,|
0000cd20  6e 25 2c 5f 25 2d 32 30  2c 51 25 2c 6f 5f 25 2c  |n%,_%-20,Q%,o_%,|
0000cd30  77 4a 25 2c 6a 25 2d 34  30 2c 2d 4a 79 25 2b 32  |wJ%,j%-40,-Jy%+2|
0000cd40  30 29 0d 04 9c 05 e1 0d  04 9d 1c dd a4 50 5f 28  |0)...........P_(|
0000cd50  77 25 2c 43 79 25 29 3a  6b 25 3d b9 3a c8 8e 43  |w%,Cy%):k%=.:..C|
0000cd60  79 25 ca 0d 04 9e 0f c9  34 31 34 3a f2 48 79 28  |y%......414:.Hy(|
0000cd70  31 29 0d 04 9f 10 c9 34  31 35 3a f2 48 79 28 2d  |1).....415:.Hy(-|
0000cd80  31 29 0d 04 a0 09 7f 6b  25 3d a3 0d 04 a1 09 cb  |1).....k%=......|
0000cd90  3a 3d 6b 25 0d 04 a2 21  dd a4 55 79 28 65 25 2c  |:=k%...!..Uy(e%,|
0000cda0  77 25 2c 43 79 25 29 3a  6b 25 3d a3 3a e7 65 25  |w%,Cy%):k%=.:.e%|
0000cdb0  3d 48 79 25 8c 0d 04 a3  0f 6b 25 3d b9 3a c8 8e  |=Hy%.....k%=.:..|
0000cdc0  43 79 25 ca 0d 04 a4 1d  c9 33 39 34 2c 33 39 38  |Cy%......394,398|
0000cdd0  2c 33 39 39 3a f2 4d 28  48 79 25 2c 36 2d 77 25  |,399:.M(Hy%,6-w%|
0000cde0  29 0d 04 a5 1b c9 34 2c  32 34 3a e7 65 5f 25 3c  |).....4,24:.e_%<|
0000cdf0  3e 2d 31 8c f2 55 79 28  65 5f 25 29 0d 04 a6 0a  |>-1..Uy(e_%)....|
0000ce00  c9 32 37 3a f2 79 0d 04  a7 0e c9 26 44 3a e7 77  |.27:.y.....&D:.w|
0000ce10  25 3d 32 8c 0d 04 a8 26  e7 a4 53 79 28 a4 5a 28  |%=2....&..Sy(.Z(|
0000ce20  48 79 25 2c 32 29 2c 64  25 2c 71 25 2c 78 25 29  |Hy%,2),d%,q%,x%)|
0000ce30  8c f2 4d 28 48 79 25 2c  34 29 0d 04 a9 08 cc f2  |..M(Hy%,4)......|
0000ce40  6b 79 0d 04 aa 05 cd 0d  04 ab 09 7f 6b 25 3d a3  |ky..........k%=.|
0000ce50  0d 04 ac 05 cb 0d 04 ad  09 cd 3a 3d 6b 25 0d 04  |..........:=k%..|
0000ce60  ae 5d dd f2 66 75 3a ea  42 25 3a 7a 25 3d ae 77  |.]..fu:.B%:z%=.w|
0000ce70  24 3a 42 25 3d 57 4a 25  3a c8 95 42 25 3c 3e 2d  |$:B%=WJ%:..B%<>-|
0000ce80  31 3a d5 23 7a 25 2c c3  42 25 21 38 3a c8 99 26  |1:.#z%,.B%!8:..&|
0000ce90  43 2c 32 2c 7a 25 2c 42  25 2b 26 43 2c 42 25 21  |C,2,z%,B%+&C,B%!|
0000cea0  38 20 2d 26 43 3a 42 25  3d 42 25 21 34 3a ce 3a  |8 -&C:B%=B%!4:.:|
0000ceb0  d9 23 7a 25 3a 7a 25 3d  30 3a e1 0d 04 af 20 dd  |.#z%:z%=0:.... .|
0000cec0  f2 73 4a 28 7a 25 29 3a  d5 23 7a 25 2c 44 4a 25  |.sJ(z%):.#z%,DJ%|
0000ced0  3a d5 23 7a 25 2c 44 79  25 3a e1 0d 04 b0 20 dd  |:.#z%,Dy%:.... .|
0000cee0  f2 53 75 28 7a 25 29 3a  44 4a 25 3d 9a 23 7a 25  |.Su(z%):DJ%=.#z%|
0000cef0  3a 44 79 25 3d 9a 23 7a  25 3a e1 0d 04 b1 20 dd  |:Dy%=.#z%:.... .|
0000cf00  f2 5f 4a 28 73 25 2c 53  79 25 2c 70 25 2c 5f 25  |._J(s%,Sy%,p%,_%|
0000cf10  2c 51 25 29 3a c8 8e 53  79 25 ca 0d 04 b2 3d c9  |,Q%):..Sy%....=.|
0000cf20  31 3a f2 48 28 42 79 25  2c 30 2c 2d 31 29 3a f2  |1:.H(By%,0,-1):.|
0000cf30  4a 28 42 79 25 2c a4 71  28 73 25 2c 53 79 25 29  |J(By%,.q(s%,Sy%)|
0000cf40  2c 31 29 3a f2 43 28 42  79 25 2c 5f 25 2c 51 25  |,1):.C(By%,_%,Q%|
0000cf50  2c 73 25 2c 53 79 25 29  0d 04 b3 20 c9 32 2c 33  |,s%,Sy%)... .2,3|
0000cf60  2c 34 2c 35 3a e7 6e 25  3c 3e 32 8c f2 5a 28 73  |,4,5:.n%<>2..Z(s|
0000cf70  25 2c 53 79 25 2c 31 29  0d 04 b4 07 cb 3a e1 0d  |%,Sy%,1).....:..|
0000cf80  04 b5 3e dd f2 6c 5f 28  4d 79 25 2c 59 61 25 29  |..>..l_(My%,Ya%)|
0000cf90  3a f2 55 28 59 61 25 2c  31 2c 21 4d 79 25 29 3a  |:.U(Ya%,1,!My%):|
0000cfa0  f2 48 28 42 79 25 2c 30  2c 2d 31 29 3a f2 4a 28  |.H(By%,0,-1):.J(|
0000cfb0  42 79 25 2c 21 4d 79 25  2c 31 29 3a e1 0d 04 b6  |By%,!My%,1):....|
0000cfc0  54 dd f2 66 4a 28 73 25  29 3a ea 41 25 3a f2 55  |T..fJ(s%):.A%:.U|
0000cfd0  28 73 25 2c 31 2c 44 4a  25 29 3a e3 41 25 3d 32  |(s%,1,DJ%):.A%=2|
0000cfe0  b8 35 3a f2 5a 28 73 25  2c 41 25 2c 30 29 3a ed  |.5:.Z(s%,A%,0):.|
0000cff0  3a e7 44 79 25 3c 35 8c  f2 5a 28 73 25 2c 44 79  |:.Dy%<5..Z(s%,Dy|
0000d000  25 2b 31 2c 31 29 8b f2  5a 28 73 25 2c 35 2c 31  |%+1,1)..Z(s%,5,1|
0000d010  29 0d 04 b7 05 e1 0d 04  b8 5b dd f2 6a 5f 28 73  |)........[..j_(s|
0000d020  25 29 3a ea 41 25 2c 42  25 3a 42 25 3d 44 79 25  |%):.A%,B%:B%=Dy%|
0000d030  3a 44 4a 25 3d a4 71 28  73 25 2c 31 29 3a 41 25  |:DJ%=.q(s%,1):A%|
0000d040  3d 32 3a c8 95 41 25 3c  35 80 ac a4 4d 28 73 25  |=2:..A%<5...M(s%|
0000d050  2c 41 25 29 3a 41 25 2b  3d 31 3a ce 3a e7 41 25  |,A%):A%+=1:.:.A%|
0000d060  3c 35 8c 44 79 25 3d 41  25 2d 31 8b 44 79 25 3d  |<5.Dy%=A%-1.Dy%=|
0000d070  36 0d 04 b9 13 e7 42 25  3c 3e 44 79 25 8c 55 25  |6.....B%<>Dy%.U%|
0000d080  28 29 3d 30 0d 04 ba 18  e7 53 25 28 a4 50 28 35  |()=0.....S%(.P(5|
0000d090  29 29 2b 32 2a 44 79 25  3e 26 44 8c 0d 04 bb 2c  |))+2*Dy%>&D....,|
0000d0a0  e7 5a 25 28 74 25 29 3d  35 8c 76 25 3d 26 44 2d  |.Z%(t%)=5.v%=&D-|
0000d0b0  32 2a 44 79 25 8b 53 25  28 a4 50 28 35 29 29 3d  |2*Dy%.S%(.P(5))=|
0000d0c0  26 44 2d 32 2a 44 79 25  0d 04 bc 07 cd 3a e1 0d  |&D-2*Dy%.....:..|
0000d0d0  04 bd 4e dd f2 6b 4a 28  72 25 2c 61 25 2c 4b 25  |..N..kJ(r%,a%,K%|
0000d0e0  2c 73 25 2c 62 25 29 3a  ea 63 4a 25 2c 42 25 2c  |,s%,b%):.cJ%,B%,|
0000d0f0  47 79 25 2c 41 25 2c 51  25 3a 42 25 3d 43 25 28  |Gy%,A%,Q%:B%=C%(|
0000d100  72 25 29 3a 47 79 25 3d  32 38 3a e7 a4 53 28 61  |r%):Gy%=28:..S(a|
0000d110  25 2c 4b 25 2c 73 25 2c  2d 62 25 29 8c 0d 04 be  |%,K%,s%,-b%)....|
0000d120  6a 63 4a 25 3d a4 4a 28  22 48 6f 6d 65 72 74 6f  |jcJ%=.J("Homerto|
0000d130  6e 2e 42 6f 6c 64 22 2c  26 43 2c 26 43 29 3a 76  |n.Bold",&C,&C):v|
0000d140  5f 25 3d a4 4a 28 22 48  6f 6d 65 72 74 6f 6e 2e  |_%=.J("Homerton.|
0000d150  4d 65 64 69 75 6d 22 2c  26 41 2c 26 41 29 3a f2  |Medium",&A,&A):.|
0000d160  56 28 30 2c 37 29 3a e7  72 25 3d 62 79 25 8c c8  |V(0,7):.r%=by%..|
0000d170  99 26 34 30 30 45 36 2c  21 53 4a 25 8b c8 99 26  |.&400E6,!SJ%...&|
0000d180  34 30 30 45 36 2c 35 0d  04 bf 94 f2 6c 28 61 25  |400E6,5.....l(a%|
0000d190  2c 4b 25 2c 73 25 2c 62  25 2c 32 30 29 3a f2 4c  |,K%,s%,b%,20):.L|
0000d1a0  28 63 4a 25 2c a4 55 28  72 25 2c 2d 31 29 2c 30  |(cJ%,.U(r%,-1),0|
0000d1b0  2c 61 25 2b 73 25 2f 32  2c 4b 25 2d 26 41 29 3a  |,a%+s%/2,K%-&A):|
0000d1c0  51 25 3d 34 30 3a 41 25  3d 55 25 28 72 25 29 3a  |Q%=40:A%=U%(r%):|
0000d1d0  c8 95 41 25 3e 30 3a 42  25 3d 42 25 21 34 3a 41  |..A%>0:B%=B%!4:A|
0000d1e0  25 2d 3d 31 3a ce 3a c8  95 42 25 3c 3e 2d 31 80  |%-=1:.:..B%<>-1.|
0000d1f0  51 25 2b 47 79 25 2d 35  3c 3d 62 25 3a e7 a4 53  |Q%+Gy%-5<=b%:..S|
0000d200  28 61 25 2b 32 30 2c 4b  25 2d 51 25 2d 32 35 2c  |(a%+20,K%-Q%-25,|
0000d210  73 25 2d 35 30 2c 47 79  25 29 8c 0d 04 c0 4f f2  |s%-50,Gy%)....O.|
0000d220  72 28 76 5f 25 2c a4 60  28 42 25 2c a4 4c 29 2c  |r(v_%,.`(B%,.L),|
0000d230  61 25 2b 37 30 2c 4b 25  2d 51 25 2d 32 30 2c 73  |a%+70,K%-Q%-20,s|
0000d240  25 2d 37 30 2c 47 79 25  29 3a f2 4c 28 76 5f 25  |%-70,Gy%):.L(v_%|
0000d250  2c c3 28 42 25 3f 26 43  29 2c 31 2c 61 25 2b 36  |,.(B%?&C),1,a%+6|
0000d260  30 2c 4b 25 2d 51 25 2d  34 29 0d 04 c1 47 cd 3a  |0,K%-Q%-4)...G.:|
0000d270  51 25 2b 3d 47 79 25 3a  42 25 3d a4 5a 79 28 42  |Q%+=Gy%:B%=.Zy(B|
0000d280  25 2c 72 25 29 3a ce 3a  e7 42 25 3c 3e 2d 31 8c  |%,r%):.:.B%<>-1.|
0000d290  ec 61 25 2b 38 2c 4b 25  2d 62 25 2b 32 30 3a ec  |.a%+8,K%-b%+20:.|
0000d2a0  42 59 31 38 2c 30 3a f0  38 31 2c 2d 39 2c 2d 31  |BY18,0:.81,-9,-1|
0000d2b0  38 0d 04 c2 2c e7 55 25  28 72 25 29 3c 3e 30 8c  |8...,.U%(r%)<>0.|
0000d2c0  ec 61 25 2b 38 2c 4b 25  2d 36 30 3a ec 42 59 31  |.a%+8,K%-60:.BY1|
0000d2d0  38 2c 30 3a f0 38 31 2c  2d 39 2c 31 38 0d 04 c3  |8,0:.81,-9,18...|
0000d2e0  13 f2 51 28 63 4a 25 29  3a f2 51 28 76 5f 25 29  |..Q(cJ%):.Q(v_%)|
0000d2f0  0d 04 c4 07 cd 3a e1 0d  04 c5 c6 dd f2 6a 75 28  |.....:.......ju(|
0000d300  72 25 2c 6e 25 2c 5f 25  2c 51 25 2c 61 25 2c 4b  |r%,n%,_%,Q%,a%,K|
0000d310  25 2c 73 25 2c 62 25 29  3a ea 4c 25 2c 41 25 2c  |%,s%,b%):.L%,A%,|
0000d320  42 25 2c 43 25 2c 4e 25  2c 47 79 25 2c 41 24 3a  |B%,C%,N%,Gy%,A$:|
0000d330  47 79 25 3d 32 38 3a 43  25 3d 28 2d 51 25 2d 37  |Gy%=28:C%=(-Q%-7|
0000d340  30 2b 32 2a 47 79 25 29  81 47 79 25 2b 55 25 28  |0+2*Gy%).Gy%+U%(|
0000d350  72 25 29 3a 4e 25 3d 2d  28 28 62 25 2b 34 30 29  |r%):N%=-((b%+40)|
0000d360  81 47 79 25 29 3a 41 25  3d 30 3a 42 25 3d 43 25  |.Gy%):A%=0:B%=C%|
0000d370  28 72 25 29 3a c8 95 42  25 3c 3e 2d 31 3a 41 25  |(r%):..B%<>-1:A%|
0000d380  2b 3d 31 3a 42 25 3d a4  5a 79 28 42 25 2c 72 25  |+=1:B%=.Zy(B%,r%|
0000d390  29 3a ce 3a e3 4c 25 3d  30 b8 32 3a f2 4b 28 79  |):.:.L%=0.2:.K(y|
0000d3a0  6c 25 2c 4c 25 2c 31 29  3a ed 3a 50 4a 25 3d 2d  |l%,L%,1):.:PJ%=-|
0000d3b0  31 3a 55 61 25 3d 72 25  3a c8 8e b9 ca 0d 04 c6  |1:Ua%=r%:.......|
0000d3c0  51 c9 5f 25 3e 33 35 80  51 25 3c 2d 34 30 80 5f  |Q._%>35.Q%<-40._|
0000d3d0  25 3c 73 25 80 43 25 3e  30 80 43 25 3c 3d 41 25  |%<s%.C%>0.C%<=A%|
0000d3e0  3a 42 25 3d 43 25 28 72  25 29 3a c8 95 43 25 3e  |:B%=C%(r%):..C%>|
0000d3f0  31 3a 43 25 2d 3d 31 3a  42 25 3d a4 5a 79 28 42  |1:C%-=1:B%=.Zy(B|
0000d400  25 2c 72 25 29 3a ce 3a  e7 6e 25 3d 32 8c 0d 04  |%,r%):.:.n%=2...|
0000d410  c7 21 e3 4c 25 3d 30 b8  32 3a f2 4b 28 79 6c 25  |.!.L%=0.2:.K(yl%|
0000d420  2c 4c 25 2c 30 29 3a ed  3a 50 4a 25 3d 42 25 0d  |,L%,0):.:PJ%=B%.|
0000d430  04 c8 10 cc f2 70 28 42  25 2c 6e 25 3d 34 29 0d  |.....p(B%,n%=4).|
0000d440  04 c9 05 cd 0d 04 ca 09  c9 6e 25 3d 32 0d 04 cb  |.........n%=2...|
0000d450  49 c9 5f 25 3e 30 80 5f  25 3c 33 30 80 51 25 2d  |I._%>0._%<30.Q%-|
0000d460  32 30 3c 62 25 3a e7 55  25 28 72 25 29 3c 41 25  |20<b%:.U%(r%)<A%|
0000d470  2d 4e 25 8c 55 25 28 72  25 29 2b 3d 31 3a f2 44  |-N%.U%(r%)+=1:.D|
0000d480  28 69 25 2c 61 25 2c 4b  25 2c 61 25 2b 73 25 2c  |(i%,a%,K%,a%+s%,|
0000d490  4b 25 2b 62 25 29 0d 04  cc 4b c9 5f 25 3e 30 80  |K%+b%)...K._%>0.|
0000d4a0  5f 25 3c 33 30 80 51 25  3e 2d 36 30 80 51 25 3c  |_%<30.Q%>-60.Q%<|
0000d4b0  3d 2d 34 32 3a e7 55 25  28 72 25 29 3e 30 8c 55  |=-42:.U%(r%)>0.U|
0000d4c0  25 28 72 25 29 2d 3d 31  3a f2 44 28 69 25 2c 61  |%(r%)-=1:.D(i%,a|
0000d4d0  25 2c 4b 25 2c 61 25 2b  73 25 2c 4b 25 2b 62 25  |%,K%,a%+s%,K%+b%|
0000d4e0  29 0d 04 cd 36 7f e7 6e  25 3c 3e 32 8c f2 57 79  |)...6..n%<>2..Wy|
0000d4f0  28 22 43 68 72 69 73 91  20 25 6e 25 74 20 62 69  |("Chris. %n%t bi|
0000d500  72 74 68 64 61 79 22 2c  55 79 25 2c 72 25 2c 46  |rthday",Uy%,r%,F|
0000d510  79 25 2c 30 2c 30 29 0d  04 ce 07 cb 3a e1 0d 04  |y%,0,0).....:...|
0000d520  cf 4c dd f2 59 5f 28 64  25 2c 71 25 2c 4e 25 2c  |.L..Y_(d%,q%,N%,|
0000d530  6e 25 29 3a ea 42 25 3a  42 25 3d 2d 31 3a c8 95  |n%):.B%:B%=-1:..|
0000d540  4e 25 3e 30 3a 42 25 3d  a4 6d 28 64 25 2c 71 25  |N%>0:B%=.m(d%,q%|
0000d550  2c 42 25 29 3a 4e 25 2d  3d 31 3a ce 3a f2 70 28  |,B%):N%-=1:.:.p(|
0000d560  42 25 2c 6e 25 3d 34 29  3a e1 0d 04 d0 29 dd f2  |B%,n%=4):....)..|
0000d570  70 28 42 25 2c 74 79 25  29 3a ea 41 25 2c 41 24  |p(B%,ty%):.A%,A$|
0000d580  3a e7 74 79 25 8c 65 5f  25 3d 42 25 8b 65 5f 25  |:.ty%.e_%=B%.e_%|
0000d590  3d 2d 31 0d 04 d1 60 41  25 3d 42 25 2b 31 36 3a  |=-1...`A%=B%+16:|
0000d5a0  c8 95 3f 41 25 3c 3e 26  42 3a 41 24 2b 3d bd 3f  |..?A%<>&B:A$+=.?|
0000d5b0  41 25 3a 41 25 2b 3d 31  3a ce 3a f2 57 79 28 41  |A%:A%+=1:.:.Wy(A|
0000d5c0  24 2c 42 25 3f 26 43 2c  28 42 25 21 26 43 3e 3e  |$,B%?&C,(B%!&C>>|
0000d5d0  38 29 80 26 46 2c 28 42  25 21 26 43 3e 3e 26 43  |8).&F,(B%!&C>>&C|
0000d5e0  29 80 26 46 46 46 2c 42  25 3f 26 46 2c 74 79 25  |).&FFF,B%?&F,ty%|
0000d5f0  29 3a e1 0d 04 d2 5f dd  f2 57 79 28 57 24 2c 63  |):...._..Wy(W$,c|
0000d600  25 2c 72 25 2c 51 25 2c  68 5f 25 2c 74 79 25 29  |%,r%,Q%,h_%,ty%)|
0000d610  3a f2 41 28 48 79 25 2c  34 2c 57 24 29 3a f2 41  |:.A(Hy%,4,W$):.A|
0000d620  28 48 79 25 2c 32 2c c3  63 25 2b 22 2f 22 2b c3  |(Hy%,2,.c%+"/"+.|
0000d630  72 25 2b 22 2f 22 2b c3  51 25 29 3a 6f 6c 25 3d  |r%+"/"+.Q%):ol%=|
0000d640  68 5f 25 3a e7 68 5f 25  3d 30 8c 68 5f 25 3d 44  |h_%:.h_%=0.h_%=D|
0000d650  4a 25 0d 04 d3 4a f2 55  28 48 79 25 2c 34 2c 68  |J%...J.U(Hy%,4,h|
0000d660  5f 25 29 3a f2 5f 28 48  79 25 2c 26 44 2c 28 74  |_%):._(Hy%,&D,(t|
0000d670  79 25 3d 30 29 29 3a e7  74 79 25 3d 30 8c 41 24  |y%=0)):.ty%=0.A$|
0000d680  3d a4 41 28 22 61 6e 73  65 74 22 29 8b 41 24 3d  |=.A("anset").A$=|
0000d690  a4 41 28 22 61 6e 65 64  69 74 22 29 0d 04 d4 3a  |.A("anedit")...:|
0000d6a0  f2 47 28 48 79 25 29 3a  f2 78 28 48 79 25 2c b9  |.G(Hy%):.x(Hy%,.|
0000d6b0  2c b9 29 3a f2 4d 28 48  79 25 2c 32 29 3a 51 4a  |,.):.M(Hy%,2):QJ|
0000d6c0  25 3d b9 3a f2 69 28 48  79 25 2c 4e 61 25 2c 41  |%=.:.i(Hy%,Na%,A|
0000d6d0  24 2c 30 29 3a e1 0d 04  d5 42 dd a4 5a 79 28 42  |$,0):....B..Zy(B|
0000d6e0  25 2c 71 25 29 3a ea 41  25 2c 43 25 2c 63 25 2c  |%,q%):.A%,C%,c%,|
0000d6f0  72 25 2c 51 25 3a 42 25  3d 42 25 21 34 3a e7 28  |r%,Q%:B%=B%!4:.(|
0000d700  28 42 25 21 26 43 3e 3e  38 29 80 26 46 29 3c 3e  |(B%!&C>>8).&F)<>|
0000d710  71 25 8c 42 25 3d 2d 31  0d 04 d6 07 3d 42 25 0d  |q%.B%=-1....=B%.|
0000d720  04 d7 3d dd a4 60 28 42  25 2c 46 79 25 29 3a ea  |..=..`(B%,Fy%):.|
0000d730  41 25 2c 43 25 2c 63 25  2c 51 25 2c 41 24 3a 51  |A%,C%,c%,Q%,A$:Q|
0000d740  25 3d 28 42 25 21 26 43  3e 3e 26 43 29 80 26 46  |%=(B%!&C>>&C).&F|
0000d750  46 46 3a e7 51 25 3c 3d  46 79 25 8c 0d 04 d8 62  |FF:.Q%<=Fy%....b|
0000d760  43 25 3d 42 25 3f 26 46  3a 43 25 2d 3d 44 4a 25  |C%=B%?&F:C%-=DJ%|
0000d770  2a 28 43 25 3d 30 29 3a  f2 56 28 30 2c 43 25 29  |*(C%=0):.V(0,C%)|
0000d780  3a 41 25 3d 42 25 2b 31  36 3a c8 95 3f 41 25 3c  |:A%=B%+16:..?A%<|
0000d790  3e 26 42 3a e7 3f 41 25  3d 33 37 8c 41 25 2b 3d  |>&B:.?A%=37.A%+=|
0000d7a0  31 3a 41 24 2b 3d a4 68  79 28 3f 41 25 2c 51 25  |1:A$+=.hy(?A%,Q%|
0000d7b0  2c 46 79 25 29 8b 41 24  2b 3d bd 3f 41 25 0d 04  |,Fy%).A$+=.?A%..|
0000d7c0  d9 0b 41 25 2b 3d 31 3a  ce 0d 04 da 09 cd 3a 3d  |..A%+=1:......:=|
0000d7d0  41 24 0d 04 db 1c dd f2  74 4a 28 77 25 29 3a ea  |A$......tJ(w%):.|
0000d7e0  63 25 2c 72 25 2c 51 25  3a c8 8e 77 25 ca 0d 04  |c%,r%,Q%:..w%...|
0000d7f0  dc 38 c9 35 3a 21 4a 25  3d 48 79 25 3a c8 99 26  |.8.5:!J%=Hy%:..&|
0000d800  34 30 30 43 42 2c 2c 4a  25 3a f2 43 28 46 6c 25  |400CB,,J%:.C(Fl%|
0000d810  2c 4a 25 21 26 43 2b 36  36 2c 4a 25 21 31 36 2c  |,J%!&C+66,J%!16,|
0000d820  65 25 2c 77 25 29 0d 04  dd 0b c9 26 42 3a f2 6b  |e%,w%).....&B:.k|
0000d830  79 0d 04 de 0a c9 26 43  3a f2 79 0d 04 df 10 c9  |y.....&C:.y.....|
0000d840  26 44 3a f2 55 79 28 65  5f 25 29 0d 04 e0 07 cb  |&D:.Uy(e_%).....|
0000d850  3a e1 0d 04 e1 2b dd f2  6b 79 3a ea 41 24 2c 64  |:....+..ky:.A$,d|
0000d860  25 2c 71 25 2c 78 25 3a  41 24 3d a4 5a 28 48 79  |%,q%,x%:A$=.Z(Hy|
0000d870  25 2c 34 29 3a e7 41 24  3c 3e 22 22 8c 0d 04 e2  |%,4):.A$<>""....|
0000d880  1d e7 a4 53 79 28 a4 5a  28 48 79 25 2c 32 29 2c  |...Sy(.Z(Hy%,2),|
0000d890  64 25 2c 71 25 2c 78 25  29 8c 0d 04 e3 15 e7 65  |d%,q%,x%)......e|
0000d8a0  5f 25 3c 3e 2d 31 8c f2  78 79 28 65 5f 25 29 0d  |_%<>-1..xy(e_%).|
0000d8b0  04 e4 44 f2 48 4a 28 41  24 2c 64 25 2c 71 25 2c  |..D.HJ(A$,d%,q%,|
0000d8c0  78 25 2c 6f 6c 25 29 3a  55 25 28 29 3d 30 3a f2  |x%,ol%):U%()=0:.|
0000d8d0  79 3a 65 79 25 3d b9 3a  e7 56 79 25 80 28 5a 25  |y:ey%=.:.Vy%.(Z%|
0000d8e0  28 74 25 29 3d 35 84 5a  25 28 74 25 29 3d 33 29  |(t%)=5.Z%(t%)=3)|
0000d8f0  8c f2 4f 0d 04 e5 0e cc  f2 4d 28 48 79 25 2c 32  |..O......M(Hy%,2|
0000d900  29 0d 04 e6 05 cd 0d 04  e7 15 cc f2 42 28 a4 41  |)...........B(.A|
0000d910  28 22 45 72 72 4d 65 73  22 29 29 0d 04 e8 07 cd  |("ErrMes")).....|
0000d920  3a e1 0d 04 e9 2d dd f2  79 3a 65 5f 25 3d 2d 31  |:....-..y:e_%=-1|
0000d930  3a f2 47 28 48 79 25 29  3a f2 47 28 61 79 25 29  |:.G(Hy%):.G(ay%)|
0000d940  3a e7 56 79 25 8c f2 4d  28 69 25 2c 2d 31 29 0d  |:.Vy%..M(i%,-1).|
0000d950  04 ea 05 e1 0d 04 eb 61  dd a4 53 79 28 41 24 2c  |.......a..Sy(A$,|
0000d960  f8 63 25 2c f8 72 25 2c  f8 51 25 29 3a ea 41 25  |.c%,.r%,.Q%):.A%|
0000d970  3a 63 25 3d bb 41 24 3a  41 24 3d c1 41 24 2c a7  |:c%=.A$:A$=.A$,.|
0000d980  41 24 2c 22 2f 22 29 2b  31 29 3a 72 25 3d bb 41  |A$,"/")+1):r%=.A|
0000d990  24 3a 41 24 3d c1 41 24  2c a7 41 24 2c 22 2f 22  |$:A$=.A$,.A$,"/"|
0000d9a0  29 2b 31 29 3a 51 25 3d  bb 41 24 3a 41 25 3d a3  |)+1):Q%=.A$:A%=.|
0000d9b0  3a c8 8e b9 ca 0d 04 ec  22 c9 72 25 3c 31 84 72  |:.......".r%<1.r|
0000d9c0  25 3e 26 43 3a f2 42 28  a4 41 28 22 45 72 72 4d  |%>&C:.B(.A("ErrM|
0000d9d0  6f 6e 74 68 22 29 29 0d  04 ed 34 c9 51 25 3c 31  |onth"))...4.Q%<1|
0000d9e0  84 51 25 3e 26 46 46 46  3a f2 42 28 a4 4f 28 22  |.Q%>&FFF:.B(.O("|
0000d9f0  45 72 72 59 65 61 72 22  2c 22 31 22 2c 22 34 30  |ErrYear","1","40|
0000da00  39 35 22 2c 22 22 2c 22  22 29 29 0d 04 ee 1c c9  |95","","")).....|
0000da10  63 25 3c 31 3a f2 42 28  a4 41 28 22 45 72 72 44  |c%<1:.B(.A("ErrD|
0000da20  61 74 65 5a 22 29 29 0d  04 ef 50 c9 63 25 3e a4  |ateZ"))...P.c%>.|
0000da30  58 28 72 25 2c 51 25 29  3a f2 42 28 a4 4f 28 22  |X(r%,Q%):.B(.O("|
0000da40  45 72 72 44 61 74 65 22  2c c3 a4 58 28 72 25 2c  |ErrDate",..X(r%,|
0000da50  51 25 29 2c a4 55 28 72  25 2c 2d 31 29 2b c4 2d  |Q%),.U(r%,-1)+.-|
0000da60  28 72 25 3d 32 29 2c 22  20 22 2b c3 51 25 29 2c  |(r%=2)," "+.Q%),|
0000da70  22 22 2c 22 22 29 29 0d  04 f0 09 7f 41 25 3d b9  |"","")).....A%=.|
0000da80  0d 04 f1 09 cb 3a 3d 41  25 0d 04 f2 b0 dd f2 48  |.....:=A%......H|
0000da90  4a 28 76 24 2c 64 25 2c  71 25 2c 78 25 2c 68 5f  |J(v$,d%,q%,x%,h_|
0000daa0  25 29 3a ea 67 79 25 2c  57 79 25 2c 53 25 2c 42  |%):.gy%,Wy%,S%,B|
0000dab0  25 2c 4f 79 25 2c 54 25  2c 41 5f 25 3a 41 5f 25  |%,Oy%,T%,A_%:A_%|
0000dac0  3d 64 25 2b 28 71 25 3c  3c 38 29 2b 28 78 25 3c  |=d%+(q%<<8)+(x%<|
0000dad0  3c 26 43 29 2b 28 68 5f  25 3c 3c 32 34 29 3a 4f  |<&C)+(h_%<<24):O|
0000dae0  79 25 3d a3 3a 53 25 3d  a9 76 24 2b 31 2b 31 36  |y%=.:S%=.v$+1+16|
0000daf0  3a 57 79 25 3d 57 4a 25  3a 67 79 25 3d 2d 31 3a  |:Wy%=WJ%:gy%=-1:|
0000db00  c8 95 57 79 25 3c 3e 2d  31 80 ac 4f 79 25 3a e7  |..Wy%<>-1..Oy%:.|
0000db10  a4 52 79 28 64 25 2c 71  25 2c 57 79 25 21 26 43  |.Ry(d%,q%,Wy%!&C|
0000db20  29 8c 4f 79 25 3d b9 8b  67 79 25 3d 57 79 25 3a  |).Oy%=..gy%=Wy%:|
0000db30  57 79 25 3d 57 79 25 21  34 0d 04 f3 60 ce 3a 42  |Wy%=Wy%!4...`.:B|
0000db40  25 3d a4 77 28 77 5f 25  2c 53 25 2c b9 29 3a 21  |%=.w(w_%,S%,.):!|
0000db50  42 25 3d 67 79 25 3a 42  25 21 34 3d 57 79 25 3a  |B%=gy%:B%!4=Wy%:|
0000db60  42 25 21 38 3d 53 25 3a  42 25 21 26 43 3d 41 5f  |B%!8=S%:B%!&C=A_|
0000db70  25 3a 24 28 42 25 2b 31  36 29 3d 76 24 2b bd 26  |%:$(B%+16)=v$+.&|
0000db80  42 3a e7 67 79 25 3d 2d  31 8c 57 4a 25 3d 42 25  |B:.gy%=-1.WJ%=B%|
0000db90  8b 67 79 25 21 34 3d 42  25 0d 04 f4 14 e7 57 79  |.gy%!4=B%.....Wy|
0000dba0  25 3c 3e 2d 31 8c 21 57  79 25 3d 42 25 0d 04 f5  |%<>-1.!Wy%=B%...|
0000dbb0  23 e7 43 25 28 71 25 29  3d 57 79 25 84 43 25 28  |#.C%(q%)=Wy%.C%(|
0000dbc0  71 25 29 3d 2d 31 8c 43  25 28 71 25 29 3d 42 25  |q%)=-1.C%(q%)=B%|
0000dbd0  0d 04 f6 05 e1 0d 04 f7  2c dd f2 55 79 28 42 25  |........,..Uy(B%|
0000dbe0  29 3a f2 78 79 28 42 25  29 3a f2 79 3a 65 79 25  |):.xy(B%):.y:ey%|
0000dbf0  3d b9 3a e7 42 25 3d 65  5f 25 8c 65 5f 25 3d 2d  |=.:.B%=e_%.e_%=-|
0000dc00  31 0d 04 f8 1f e7 56 79  25 80 28 5a 25 28 74 25  |1.....Vy%.(Z%(t%|
0000dc10  29 3d 35 84 5a 25 28 74  25 29 3d 33 29 8c f2 4f  |)=5.Z%(t%)=3)..O|
0000dc20  0d 04 f9 05 e1 0d 04 fa  61 dd f2 78 79 28 42 25  |........a..xy(B%|
0000dc30  29 3a ea 67 79 25 2c 57  79 25 2c 72 25 2c 50 69  |):.gy%,Wy%,r%,Pi|
0000dc40  25 3a 50 69 25 3d 2d 31  3a 67 79 25 3d 21 42 25  |%:Pi%=-1:gy%=!B%|
0000dc50  3a 57 79 25 3d 42 25 21  34 3a 72 25 3d 28 42 25  |:Wy%=B%!4:r%=(B%|
0000dc60  21 26 43 3e 3e 38 29 80  26 46 3a 55 25 28 72 25  |!&C>>8).&F:U%(r%|
0000dc70  29 3d 30 3a e7 67 79 25  3c 3e 2d 31 8c 67 79 25  |)=0:.gy%<>-1.gy%|
0000dc80  21 34 3d 57 79 25 0d 04  fb 32 e7 57 79 25 3c 3e  |!4=Wy%...2.Wy%<>|
0000dc90  2d 31 8c 21 57 79 25 3d  67 79 25 3a e7 28 28 57  |-1.!Wy%=gy%:.((W|
0000dca0  79 25 21 26 43 3e 3e 38  29 80 26 46 29 3d 72 25  |y%!&C>>8).&F)=r%|
0000dcb0  8c 50 69 25 3d 57 79 25  0d 04 fc 13 e7 57 4a 25  |.Pi%=Wy%.....WJ%|
0000dcc0  3d 42 25 8c 57 4a 25 3d  57 79 25 0d 04 fd 19 e7  |=B%.WJ%=Wy%.....|
0000dcd0  43 25 28 72 25 29 3d 42  25 8c 43 25 28 72 25 29  |C%(r%)=B%.C%(r%)|
0000dce0  3d 50 69 25 0d 04 fe 13  f2 44 79 28 77 5f 25 2c  |=Pi%.....Dy(w_%,|
0000dcf0  42 25 2c b9 29 3a e1 0d  04 ff 42 dd a4 52 79 28  |B%,.):....B..Ry(|
0000dd00  63 25 2c 72 25 2c 54 25  29 3a ea 67 25 2c 4e 6c  |c%,r%,T%):.g%,Nl|
0000dd10  25 2c 72 75 25 3a 4e 6c  25 3d 54 25 80 26 46 46  |%,ru%:Nl%=T%.&FF|
0000dd20  3a 72 75 25 3d 28 54 25  3e 3e 38 29 80 26 46 3a  |:ru%=(T%>>8).&F:|
0000dd30  e7 72 25 3e 3d 72 75 25  8c 0d 05 00 1c e7 63 25  |.r%>=ru%......c%|
0000dd40  3c 4e 6c 25 80 72 75 25  3d 72 25 8c 67 25 3d b9  |<Nl%.ru%=r%.g%=.|
0000dd50  8b 67 25 3d a3 0d 05 01  09 cc 67 25 3d b9 0d 05  |.g%=......g%=...|
0000dd60  02 09 cd 3a 3d 67 25 0d  05 03 b2 dd f2 78 4a 3a  |...:=g%......xJ:|
0000dd70  ea 42 25 2c 4f 79 25 2c  76 4a 25 2c 63 25 2c 72  |.B%,Oy%,vJ%,c%,r|
0000dd80  25 2c 6d 75 25 2c 66 4a  25 2c 6a 79 25 2c 64 25  |%,mu%,fJ%,jy%,d%|
0000dd90  2c 71 25 2c 78 25 3a f2  50 28 71 4a 25 2c 63 25  |,q%,x%:.P(qJ%,c%|
0000dda0  2c 72 25 2c 6d 75 25 2c  66 4a 25 2c 6a 79 25 29  |,r%,mu%,fJ%,jy%)|
0000ddb0  3a 42 25 3d 43 25 28 66  4a 25 29 3a 64 25 3d a4  |:B%=C%(fJ%):d%=.|
0000ddc0  49 3a 71 25 3d a4 56 3a  78 25 3d a4 4c 3a c8 95  |I:q%=.V:x%=.L:..|
0000ddd0  42 25 3c 3e 2d 31 80 ac  4f 79 25 80 ac 76 4a 25  |B%<>-1..Oy%..vJ%|
0000dde0  3a 63 25 3d 42 25 3f 26  43 3a 72 25 3d 28 42 25  |:c%=B%?&C:r%=(B%|
0000ddf0  21 26 43 3e 3e 38 29 80  26 46 3a e7 72 25 3e 71  |!&C>>8).&F:.r%>q|
0000de00  25 84 28 72 25 3d 71 25  80 63 25 3e 64 25 29 8c  |%.(r%=q%.c%>d%).|
0000de10  76 4a 25 3d b9 3a f2 54  79 0d 05 04 38 e7 28 72  |vJ%=.:.Ty...8.(r|
0000de20  25 3e 66 4a 25 84 28 72  25 3d 66 4a 25 80 63 25  |%>fJ%.(r%=fJ%.c%|
0000de30  3e 6d 75 25 29 29 80 ac  76 4a 25 8c 4f 79 25 3d  |>mu%))..vJ%.Oy%=|
0000de40  b9 3a f2 66 79 28 42 25  29 8b 42 25 3d 42 25 21  |.:.fy(B%).B%=B%!|
0000de50  34 0d 05 05 0f ce 3a e7  ac 4f 79 25 8c f2 54 79  |4.....:..Oy%..Ty|
0000de60  0d 05 06 05 e1 0d 05 07  45 dd f2 7a 79 3a ea 42  |........E..zy:.B|
0000de70  25 2c 63 25 2c 72 25 2c  64 25 2c 71 25 2c 78 25  |%,c%,r%,d%,q%,x%|
0000de80  3a 64 25 3d a4 49 3a 71  25 3d a4 56 3a 78 25 3d  |:d%=.I:q%=.V:x%=|
0000de90  a4 4c 3a 42 25 3d 60 6c  25 21 34 3a 4a 5f 25 3d  |.L:B%=`l%!4:J_%=|
0000dea0  30 3a e7 42 25 3c 3e 2d  31 8c 0d 05 08 3e 63 25  |0:.B%<>-1....>c%|
0000deb0  3d 42 25 3f 26 43 3a 72  25 3d 28 42 25 21 26 43  |=B%?&C:r%=(B%!&C|
0000dec0  3e 3e 38 29 80 26 46 3a  e7 72 25 3e 71 25 84 28  |>>8).&F:.r%>q%.(|
0000ded0  72 25 3d 71 25 80 63 25  3e 64 25 29 8c f2 54 79  |r%=q%.c%>d%)..Ty|
0000dee0  8b f2 66 79 28 42 25 29  0d 05 09 07 cd 3a e1 0d  |..fy(B%).....:..|
0000def0  05 0a 26 dd f2 54 79 3a  50 75 25 3d a3 3a 71 4a  |..&..Ty:Pu%=.:qJ|
0000df00  25 3d a4 6e 28 a4 7a 29  3a f2 47 28 56 4a 25 29  |%=.n(.z):.G(VJ%)|
0000df10  3a f2 63 3a e1 0d 05 0b  99 dd f2 66 79 28 42 25  |:.c:.......fy(B%|
0000df20  29 3a ea 63 25 3a f2 41  28 56 4a 25 2c 31 2c a4  |):.c%:.A(VJ%,1,.|
0000df30  4f 28 22 69 74 73 22 2c  a4 51 28 64 25 2c 71 25  |O("its",.Q(d%,q%|
0000df40  2c 78 25 2c 2d 31 29 2c  22 22 2c 22 22 2c 22 22  |,x%,-1),"","",""|
0000df50  29 29 3a f2 41 28 56 4a  25 2c 32 2c a4 60 28 42  |)):.A(VJ%,2,.`(B|
0000df60  25 2c 78 25 29 29 3a 63  25 3d 42 25 3f 26 46 3a  |%,x%)):c%=B%?&F:|
0000df70  63 25 2d 3d 44 4a 25 2a  28 63 25 3d 30 29 3a f2  |c%-=DJ%*(c%=0):.|
0000df80  55 28 56 4a 25 2c 32 2c  63 25 29 3a f2 77 28 56  |U(VJ%,2,c%):.w(V|
0000df90  4a 25 2c b9 2c b9 29 3a  65 79 25 3d 2d 31 3a 4a  |J%,.,.):ey%=-1:J|
0000dfa0  5f 25 3d 26 41 3a 60 6c  25 3d 42 25 3a e1 0d 05  |_%=&A:`l%=B%:...|
0000dfb0  0c 30 dd a4 62 28 63 25  2c 72 25 29 3a ea 42 25  |.0..b(c%,r%):.B%|
0000dfc0  2c 43 25 2c 4e 6c 25 2c  72 75 25 3a 42 25 3d 43  |,C%,Nl%,ru%:B%=C|
0000dfd0  25 28 72 25 29 3a e7 42  25 3c 3e 2d 31 8c 0d 05  |%(r%):.B%<>-1...|
0000dfe0  0d 15 f5 3a e7 42 25 3f  26 43 3d 63 25 8c 43 25  |...:.B%?&C=c%.C%|
0000dff0  2b 3d 31 0d 05 0e 36 42  25 3d 42 25 21 34 3a e7  |+=1...6B%=B%!4:.|
0000e000  42 25 3c 3e 2d 31 8c 4e  6c 25 3d 42 25 3f 26 43  |B%<>-1.Nl%=B%?&C|
0000e010  3a 72 75 25 3d 28 42 25  21 26 43 3e 3e 38 29 80  |:ru%=(B%!&C>>8).|
0000e020  26 46 8b 72 75 25 3d 26  44 0d 05 0f 12 fd 4e 6c  |&F.ru%=&D.....Nl|
0000e030  25 3e 63 25 84 72 75 25  3e 72 25 0d 05 10 09 cd  |%>c%.ru%>r%.....|
0000e040  3a 3d 43 25 0d 05 11 19  dd a4 6d 28 63 25 2c 72  |:=C%......m(c%,r|
0000e050  25 2c 42 25 29 3a e7 42  25 3d 2d 31 8c 0d 05 12  |%,B%):.B%=-1....|
0000e060  23 42 25 3d 43 25 28 72  25 29 3a c8 95 42 25 3f  |#B%=C%(r%):..B%?|
0000e070  26 43 3c 3e 63 25 3a 42  25 3d 42 25 21 34 3a ce  |&C<>c%:B%=B%!4:.|
0000e080  0d 05 13 0c cc 42 25 3d  42 25 21 34 0d 05 14 30  |.....B%=B%!4...0|
0000e090  cd 3a e7 42 25 3c 3e 2d  31 8c e7 42 25 3f 26 43  |.:.B%<>-1..B%?&C|
0000e0a0  3e 63 25 84 28 28 42 25  21 26 43 3e 3e 38 29 80  |>c%.((B%!&C>>8).|
0000e0b0  26 46 29 3e 72 25 8c 42  25 3d 2d 31 0d 05 15 07  |&F)>r%.B%=-1....|
0000e0c0  3d 42 25 0d 05 16 36 dd  f2 4c 5f 3a ea 53 25 2c  |=B%...6..L_:.S%,|
0000e0d0  43 25 2c 42 25 2c 72 25  3a 43 25 3d 2d 31 3a 57  |C%,B%,r%:C%=-1:W|
0000e0e0  4a 25 3d 2d 31 3a 7a 25  3d 8e 77 24 3a e7 ac 6c  |J%=-1:z%=.w$:..l|
0000e0f0  4a 25 80 7a 25 3c 3e 30  8c 0d 05 17 3b c8 95 ac  |J%.z%<>0....;...|
0000e100  c5 23 7a 25 3a 53 25 3d  bb be 23 7a 25 3a 42 25  |.#z%:S%=..#z%:B%|
0000e110  3d a4 77 28 77 5f 25 2c  53 25 2c b9 29 3a e7 43  |=.w(w_%,S%,.):.C|
0000e120  25 3c 3e 2d 31 8c 43 25  21 34 3d 42 25 8b 57 4a  |%<>-1.C%!4=B%.WJ|
0000e130  25 3d 42 25 0d 05 18 50  21 42 25 3d 43 25 3a 42  |%=B%...P!B%=C%:B|
0000e140  25 21 38 3d 53 25 3a c8  99 26 43 2c 34 2c 7a 25  |%!8=S%:..&C,4,z%|
0000e150  2c 42 25 2b 26 43 2c 53  25 2d 26 43 3a 72 25 3d  |,B%+&C,S%-&C:r%=|
0000e160  28 28 42 25 21 26 43 29  3e 3e 38 29 80 26 46 3a  |((B%!&C)>>8).&F:|
0000e170  e7 43 25 28 72 25 29 3d  2d 31 8c 43 25 28 72 25  |.C%(r%)=-1.C%(r%|
0000e180  29 3d 42 25 0d 05 19 15  43 25 3d 42 25 3a e7 73  |)=B%....C%=B%:.s|
0000e190  5f 25 8c f2 64 28 ac 31  29 0d 05 1a 16 ce 3a e7  |_%..d(.1).....:.|
0000e1a0  57 4a 25 3c 3e 2d 31 8c  42 25 21 34 3d 2d 31 0d  |WJ%<>-1.B%!4=-1.|
0000e1b0  05 1b 0d d9 23 7a 25 3a  7a 25 3d 30 0d 05 1c 07  |....#z%:z%=0....|
0000e1c0  cd 3a e1 0d 05 1d 41 dd  a4 68 79 28 54 25 2c 51  |.:....A..hy(T%,Q|
0000e1d0  25 2c 46 79 25 29 3a ea  41 24 2c 78 2c 63 25 2c  |%,Fy%):.A$,x,c%,|
0000e1e0  46 25 2c 4c 25 3a 55 6c  25 3d 28 54 25 80 33 32  |F%,L%:Ul%=(T%.32|
0000e1f0  29 3d 30 3a 63 25 3d 46  79 25 2d 51 25 3a c8 8e  |)=0:c%=Fy%-Q%:..|
0000e200  bd 54 25 ca 0d 05 1e 37  c9 22 79 22 2c 22 59 22  |.T%....7."y","Y"|
0000e210  3a 41 24 3d a4 41 28 22  79 65 61 72 22 2b c4 2d  |:A$=.A("year"+.-|
0000e220  28 63 25 3e 31 29 2c 22  73 22 29 29 3a e7 55 6c  |(c%>1),"s")):.Ul|
0000e230  25 8c 41 24 3d a4 73 28  41 24 29 0d 05 1f 0f c9  |%.A$=.s(A$).....|
0000e240  22 6e 22 3a 41 24 3d c3  63 25 0d 05 20 26 c9 22  |"n":A$=.c%.. &."|
0000e250  74 22 2c 22 54 22 3a 41  24 3d a4 4e 79 28 63 25  |t","T":A$=.Ny(c%|
0000e260  29 3a e7 55 6c 25 8c 41  24 3d a4 73 28 41 24 29  |):.Ul%.A$=.s(A$)|
0000e270  0d 05 21 56 c9 22 63 22  2c 22 43 22 3a c8 99 26  |..!V."c","C":..&|
0000e280  36 31 35 30 32 2c 53 5f  25 2c 22 41 6e 6e 22 2b  |61502,S_%,"Ann"+|
0000e290  c3 63 25 2c 4a 25 2c 32  35 36 b8 2c 2c 2c 4c 25  |.c%,J%,256.,,,L%|
0000e2a0  3b 46 25 3a e7 28 46 25  80 31 29 3d 30 8c 4a 25  |;F%:.(F%.1)=0.J%|
0000e2b0  3f 4c 25 3d 26 44 3a 41  24 3d 22 20 28 22 2b 24  |?L%=&D:A$=" ("+$|
0000e2c0  4a 25 2b 22 29 22 0d 05  22 12 e7 55 6c 25 8c 41  |J%+")".."..Ul%.A|
0000e2d0  24 3d a4 73 28 41 24 29  0d 05 23 09 cb 3a 3d 41  |$=.s(A$)..#..:=A|
0000e2e0  24 0d 05 24 df dd f2 75  4a 3a 6b 79 25 3d 32 3a  |$..$...uJ:ky%=2:|
0000e2f0  6d 5f 25 3d 26 46 3a 54  75 25 3d a3 3a 6f 69 25  |m_%=&F:Tu%=.:oi%|
0000e300  3d a4 43 28 22 46 41 4d  22 2c 22 46 41 4d 22 2c  |=.C("FAM","FAM",|
0000e310  31 2c 34 29 3a 59 69 25  3d a4 43 28 22 44 49 4d  |1,4):Yi%=.C("DIM|
0000e320  34 22 2c 22 41 4e 4d 22  2c 31 2c 33 29 3a 46 3d  |4","ANM",1,3):F=|
0000e330  a4 43 28 22 44 49 4d 22  2c 22 44 49 4d 22 2c 31  |.C("DIM","DIM",1|
0000e340  2c 36 29 3a f2 7a 28 46  2c 33 2c 59 69 25 29 3a  |,6):.z(F,3,Yi%):|
0000e350  f2 7a 28 46 2c 35 2c 6f  69 25 29 3a f2 63 5f 28  |.z(F,5,oi%):.c_(|
0000e360  46 2c 32 2c 2d 31 29 3a  73 4a 25 3d a4 43 28 22  |F,2,-1):sJ%=.C("|
0000e370  45 22 2c 22 45 22 2c 31  2c 36 29 3a 65 6c 25 3d  |E","E",1,6):el%=|
0000e380  a4 43 28 22 4f 54 22 2c  22 4f 54 22 2c 31 2c 36  |.C("OT","OT",1,6|
0000e390  29 3a 78 6c 25 3d a4 43  28 22 44 61 79 22 2c 22  |):xl%=.C("Day","|
0000e3a0  44 61 79 22 2c 31 2c 37  29 3a 61 6c 25 3d a4 43  |Day",1,7):al%=.C|
0000e3b0  28 22 4f 45 22 2c 22 4f  45 22 2c 31 2c 26 43 29  |("OE","OE",1,&C)|
0000e3c0  0d 05 25 a1 46 6c 25 3d  a4 43 79 28 a4 41 28 22  |..%.Fl%=.Cy(.A("|
0000e3d0  43 6f 6c 22 29 29 3a 24  28 46 6c 25 2b 32 38 2b  |Col")):$(Fl%+28+|
0000e3e0  26 43 29 3d a4 41 28 22  44 65 66 22 29 3a 78 24  |&C)=.A("Def"):x$|
0000e3f0  3d 54 24 2b 22 44 69 61  72 79 22 3a de 56 25 28  |=T$+"Diary":.V%(|
0000e400  26 45 29 3a 4c 5f 25 3d  2d 31 3a 42 4a 25 3d 2d  |&E):L_%=-1:BJ%=-|
0000e410  31 3a 41 75 25 3d 30 3a  57 75 25 3d a4 43 28 22  |1:Au%=0:Wu%=.C("|
0000e420  45 4e 22 2c 22 45 4e 22  2c 31 2c 33 29 3a 56 75  |EN","EN",1,3):Vu|
0000e430  25 3d a4 43 28 22 45 41  22 2c 22 45 22 2c 33 2c  |%=.C("EA","E",3,|
0000e440  36 29 3a 44 5f 25 3d 30  3a 6c 79 25 3d 30 3a 4d  |6):D_%=0:ly%=0:M|
0000e450  5f 25 3d 2d 31 3a 54 5f  25 3d 36 3a f2 41 6c 3a  |_%=-1:T_%=6:.Al:|
0000e460  e1 0d 05 26 0a dd a4 71  79 3d 46 0d 05 27 79 dd  |...&...qy=F..'y.|
0000e470  f2 4f 5f 28 41 25 29 3a  f2 56 5f 3a f2 54 4a 3a  |.O_(A%):.V_:.TJ:|
0000e480  f2 49 28 a4 49 2c a4 56  2c a4 4c 29 3a f2 4a 28  |.I(.I,.V,.L):.J(|
0000e490  46 2c 6b 79 25 2d 31 2c  b9 29 3a 42 25 28 41 25  |F,ky%-1,.):B%(A%|
0000e4a0  29 3d a4 46 28 30 2c 30  2c 31 2c 31 2c 26 37 37  |)=.F(0,0,1,1,&77|
0000e4b0  64 29 3a 57 25 28 41 25  29 3d a4 46 28 30 2c 30  |d):W%(A%)=.F(0,0|
0000e4c0  2c 33 31 2d 36 2c 26 43  2c 26 66 66 66 29 3a 4d  |,31-6,&C,&fff):M|
0000e4d0  24 28 41 25 29 3d a4 41  28 22 44 69 61 54 61 62  |$(A%)=.A("DiaTab|
0000e4e0  22 29 3a e1 0d 05 28 0a  dd f2 70 4a 3a e1 0d 05  |"):...(...pJ:...|
0000e4f0  29 11 dd f2 6d 75 3a 42  4a 25 3d 2d 31 3a e1 0d  |)...mu:BJ%=-1:..|
0000e500  05 2a e5 dd f2 55 75 28  76 25 2c 68 25 2c 61 25  |.*...Uu(v%,h%,a%|
0000e510  2c 4b 25 29 3a ea 64 25  2c 71 25 2c 78 25 2c 63  |,K%):.d%,q%,x%,c|
0000e520  4a 25 2c 76 6c 25 2c 76  5f 25 2c 6e 5f 25 2c 5a  |J%,vl%,v_%,n_%,Z|
0000e530  4a 25 2c 68 6c 25 3a f2  50 28 76 25 2c 6e 5f 25  |J%,hl%:.P(v%,n_%|
0000e540  2c 5a 4a 25 2c 64 25 2c  71 25 2c 78 25 29 3a 63  |,ZJ%,d%,q%,x%):c|
0000e550  4a 25 3d a4 4a 28 22 48  6f 6d 65 72 74 6f 6e 2e  |J%=.J("Homerton.|
0000e560  42 6f 6c 64 22 2c 26 45  2c 26 45 29 3a c8 99 26  |Bold",&E,&E):..&|
0000e570  34 30 30 45 36 2c 37 3a  76 6c 25 3d a4 4a 28 22  |400E6,7:vl%=.J("|
0000e580  54 72 69 6e 69 74 79 2e  42 6f 6c 64 22 2c 26 43  |Trinity.Bold",&C|
0000e590  2c 26 43 29 3a 76 5f 25  3d a4 4a 28 22 48 6f 6d  |,&C):v_%=.J("Hom|
0000e5a0  65 72 74 6f 6e 2e 4d 65  64 69 75 6d 22 2c 26 41  |erton.Medium",&A|
0000e5b0  2c 26 41 29 3a c8 99 26  34 30 30 38 31 2c 2c 22  |,&A):..&40081,,"|
0000e5c0  54 72 69 6e 69 74 79 2e  4d 65 64 69 75 6d 22 2c  |Trinity.Medium",|
0000e5d0  39 2a 31 36 2c 39 2a 31  36 b8 68 6c 25 3a c8 8e  |9*16,9*16.hl%:..|
0000e5e0  6b 79 25 ca 0d 05 2b 17  c9 31 3a f2 6f 75 28 76  |ky%...+..1:.ou(v|
0000e5f0  25 2c 68 25 2c 61 25 2c  4b 25 29 0d 05 2c 17 c9  |%,h%,a%,K%)..,..|
0000e600  32 3a f2 6b 5f 28 76 25  2c 68 25 2c 61 25 2c 4b  |2:.k_(v%,h%,a%,K|
0000e610  25 29 0d 05 2d 17 c9 33  3a f2 6b 75 28 76 25 2c  |%)..-..3:.ku(v%,|
0000e620  68 25 2c 61 25 2c 4b 25  29 0d 05 2e 12 cb 3a f2  |h%,a%,K%).....:.|
0000e630  56 28 30 2c 37 29 3a e7  68 25 8c 0d 05 2f 1d 41  |V(0,7):.h%.../.A|
0000e640  24 3d a4 55 28 71 25 2c  2d 31 29 2b 22 20 22 2b  |$=.U(q%,-1)+" "+|
0000e650  c3 78 25 3a c8 8e b9 ca  0d 05 30 39 c9 5a 4a 25  |.x%:......09.ZJ%|
0000e660  3c 3e 78 25 3a 41 24 3d  a4 55 28 6e 5f 25 2c 33  |<>x%:A$=.U(n_%,3|
0000e670  29 2b 22 20 22 2b c3 5a  4a 25 2b 22 20 2d 20 22  |)+" "+.ZJ%+" - "|
0000e680  2b a4 55 28 71 25 2c 33  29 2b 22 20 22 2b c3 78  |+.U(q%,3)+" "+.x|
0000e690  25 0d 05 31 23 c9 6e 5f  25 3c 3e 71 25 3a 41 24  |%..1#.n_%<>q%:A$|
0000e6a0  3d a4 55 28 6e 5f 25 2c  2d 31 29 2b 22 20 2d 20  |=.U(n_%,-1)+" - |
0000e6b0  22 2b 41 24 0d 05 32 32  cb 3a e7 a4 47 28 a4 46  |"+A$..22.:..G(.F|
0000e6c0  28 30 2c 30 2c 64 25 2c  71 25 2c 78 25 29 2c 57  |(0,0,d%,q%,x%),W|
0000e6d0  25 28 74 25 29 29 3d 2d  31 8c f2 52 28 68 25 2c  |%(t%))=-1..R(h%,|
0000e6e0  61 25 2c 4b 25 29 0d 05  33 1f f2 4c 28 63 4a 25  |a%,K%)..3..L(cJ%|
0000e6f0  2c 41 24 2c 31 2c 61 25  2b 6a 25 2d 26 41 2c 4b  |,A$,1,a%+j%-&A,K|
0000e700  25 2d 26 41 29 0d 05 34  21 cc 3a 41 24 3d c3 5a  |%-&A)..4!.:A$=.Z|
0000e710  4a 25 2b 22 20 22 2b a4  55 28 6e 5f 25 2c 2d 31  |J%+" "+.U(n_%,-1|
0000e720  29 3a c8 8e b9 ca 0d 05  35 39 c9 5a 4a 25 3c 3e  |):......59.ZJ%<>|
0000e730  78 25 3a 41 24 3d c3 5a  4a 25 2b 22 20 22 2b a4  |x%:A$=.ZJ%+" "+.|
0000e740  55 28 6e 5f 25 2c 33 29  2b 22 20 2d 20 22 2b c3  |U(n_%,3)+" - "+.|
0000e750  78 25 2b 22 20 22 2b a4  55 28 71 25 2c 33 29 0d  |x%+" "+.U(q%,3).|
0000e760  05 36 20 c9 6e 5f 25 3c  3e 71 25 3a 41 24 2b 3d  |.6 .n_%<>q%:A$+=|
0000e770  22 20 2d 20 22 2b a4 55  28 71 25 2c 2d 31 29 0d  |" - "+.U(q%,-1).|
0000e780  05 37 3d cb 3a f2 4c 28  63 4a 25 2c 41 24 2c 2d  |.7=.:.L(cJ%,A$,-|
0000e790  31 2c 61 25 2b 26 41 2c  4b 25 2d 26 41 29 3a e7  |1,a%+&A,K%-&A):.|
0000e7a0  a4 47 28 76 25 2c 42 25  28 74 25 29 29 3d 31 8c  |.G(v%,B%(t%))=1.|
0000e7b0  f2 52 28 68 25 2c 61 25  2c 4b 25 29 0d 05 38 1f  |.R(h%,a%,K%)..8.|
0000e7c0  cd 3a f2 51 28 63 4a 25  29 3a f2 51 28 76 6c 25  |.:.Q(cJ%):.Q(vl%|
0000e7d0  29 3a f2 51 28 76 5f 25  29 3a e1 0d 05 39 17 dd  |):.Q(v_%):...9..|
0000e7e0  f2 78 5f 28 70 25 2c 4f  69 25 29 3a c8 8e 21 70  |.x_(p%,Oi%):..!p|
0000e7f0  25 ca 0d 05 3a 17 c9 30  2c 31 2c 32 3a e7 6b 79  |%...:..0,1,2:.ky|
0000e800  25 3c 3e 21 70 25 2b 31  8c 0d 05 3b 6b f2 4a 28  |%<>!p%+1...;k.J(|
0000e810  46 2c 6b 79 25 2d 31 2c  a3 29 3a 6b 79 25 3d 21  |F,ky%-1,.):ky%=!|
0000e820  70 25 2b 31 3a f2 4a 28  46 2c 21 70 25 2c b9 29  |p%+1:.J(F,!p%,.)|
0000e830  3a f2 50 28 53 25 28 a4  50 28 33 29 29 2c 41 25  |:.P(S%(.P(3)),A%|
0000e840  2c 42 25 2c 64 25 2c 71  25 2c 78 25 29 3a f2 49  |,B%,d%,q%,x%):.I|
0000e850  28 64 25 2c 71 25 2c 78  25 29 3a e7 5a 25 28 74  |(d%,q%,x%):.Z%(t|
0000e860  25 29 3d 33 8c 76 25 3d  53 25 28 74 25 29 3a 75  |%)=3.v%=S%(t%):u|
0000e870  4a 25 3d b9 0d 05 3c 05  cd 0d 05 3d 0e c9 33 3a  |J%=...<....=..3:|
0000e880  c8 8e 70 25 21 34 ca 0d  05 3e 0f c9 30 3a f2 4f  |..p%!4...>..0:.O|
0000e890  79 28 42 4a 25 29 0d 05  3f 0f c9 31 3a f2 55 5f  |y(BJ%)..?..1:.U_|
0000e8a0  28 42 4a 25 29 0d 05 40  0e c9 32 3a f2 6b 28 42  |(BJ%)..@..2:.k(B|
0000e8b0  4a 25 29 0d 05 41 05 cb  0d 05 42 18 c9 34 3a f2  |J%)..A....B..4:.|
0000e8c0  41 79 28 a4 49 2c a4 56  2c a4 4c 2c 46 2c 30 29  |Ay(.I,.V,.L,F,0)|
0000e8d0  0d 05 43 0e c9 35 3a c8  8e 70 25 21 34 ca 0d 05  |..C..5:..p%!4...|
0000e8e0  44 0a c9 30 3a f2 5f 75  0d 05 45 0a c9 31 3a f2  |D..0:._u..E..1:.|
0000e8f0  4c 75 0d 05 46 0a c9 32  3a f2 49 75 0d 05 47 0a  |Lu..F..2:.Iu..G.|
0000e900  c9 33 3a f2 48 5f 0d 05  48 05 cb 0d 05 49 07 cb  |.3:.H_..H....I..|
0000e910  3a e1 0d 05 4a 17 dd f2  69 79 28 4d 79 25 2c 70  |:...J...iy(My%,p|
0000e920  25 29 3a c8 8e 4d 79 25  ca 0d 05 4b 4e c9 73 4a  |%):..My%...KN.sJ|
0000e930  25 3a 41 24 3d a4 57 28  4d 79 25 2c 21 70 25 29  |%:A$=.W(My%,!p%)|
0000e940  3a e7 a4 53 5f 28 4d 79  25 29 3d 22 45 76 65 72  |:..S_(My%)="Ever|
0000e950  79 22 8c f2 41 28 66 25  2c 33 30 2c 41 24 29 3a  |y"..A(f%,30,A$):|
0000e960  63 75 25 3d 21 70 25 2b  31 8b f2 41 28 4c 79 25  |cu%=!p%+1..A(Ly%|
0000e970  2c 26 44 2c 41 24 29 0d  05 4c 28 c9 65 6c 25 3a  |,&D,A$)..L(.el%:|
0000e980  f2 41 28 66 25 2c 33 33  2c a4 57 28 4d 79 25 2c  |.A(f%,33,.W(My%,|
0000e990  21 70 25 29 29 3a 66 75  25 3d 21 70 25 2b 31 0d  |!p%)):fu%=!p%+1.|
0000e9a0  05 4d 28 c9 78 6c 25 3a  f2 41 28 66 25 2c 33 34  |.M(.xl%:.A(f%,34|
0000e9b0  2c a4 57 28 4d 79 25 2c  21 70 25 29 29 3a 76 75  |,.W(My%,!p%)):vu|
0000e9c0  25 3d 21 70 25 2b 31 0d  05 4e 28 c9 61 6c 25 3a  |%=!p%+1..N(.al%:|
0000e9d0  f2 41 28 66 25 2c 33 35  2c a4 57 28 4d 79 25 2c  |.A(f%,35,.W(My%,|
0000e9e0  21 70 25 29 29 3a 74 75  25 3d 21 70 25 2b 31 0d  |!p%)):tu%=!p%+1.|
0000e9f0  05 4f 07 cb 3a e1 0d 05  50 39 dd f2 58 79 28 6c  |.O..:...P9..Xy(l|
0000ea00  25 29 3a ea 64 25 2c 71  25 2c 78 25 2c 41 25 2c  |%):.d%,q%,x%,A%,|
0000ea10  42 25 3a f2 50 28 76 25  2c 41 25 2c 42 25 2c 64  |B%:.P(v%,A%,B%,d|
0000ea20  25 2c 71 25 2c 78 25 29  3a c8 8e 6b 79 25 ca 0d  |%,q%,x%):..ky%..|
0000ea30  05 51 1d c9 31 3a f2 46  28 64 25 2c 71 25 2c 78  |.Q..1:.F(d%,q%,x|
0000ea40  25 2c 6c 25 2a 26 45 2c  30 2c 30 29 0d 05 52 1c  |%,l%*&E,0,0)..R.|
0000ea50  c9 32 3a f2 46 28 64 25  2c 71 25 2c 78 25 2c 6c  |.2:.F(d%,q%,x%,l|
0000ea60  25 2a 37 2c 30 2c 30 29  0d 05 53 1c c9 33 3a f2  |%*7,0,0)..S..3:.|
0000ea70  46 28 64 25 2c 71 25 2c  78 25 2c 6c 25 2a 32 2c  |F(d%,q%,x%,l%*2,|
0000ea80  30 2c 30 29 0d 05 54 4b  cb 3a 70 79 25 3d 2d a4  |0,0)..TK.:py%=-.|
0000ea90  47 28 76 25 2c a4 46 28  30 2c 30 2c 64 25 2c 71  |G(v%,.F(0,0,d%,q|
0000eaa0  25 2c 78 25 29 29 3a f2  49 28 64 25 2c 71 25 2c  |%,x%)):.I(d%,q%,|
0000eab0  78 25 29 3a e7 a4 47 28  76 25 2c 42 25 28 74 25  |x%):..G(v%,B%(t%|
0000eac0  29 29 3d 2d 31 8c 76 25  3d 42 25 28 74 25 29 0d  |))=-1.v%=B%(t%).|
0000ead0  05 55 1e e7 a4 47 28 76  25 2c 57 25 28 74 25 29  |.U...G(v%,W%(t%)|
0000eae0  29 3d 31 8c 76 25 3d 57  25 28 74 25 29 0d 05 56  |)=1.v%=W%(t%)..V|
0000eaf0  05 e1 0d 05 57 28 dd f2  61 5f 28 6e 25 2c 68 25  |....W(..a_(n%,h%|
0000eb00  2c 5f 25 2c 51 25 2c 6f  5f 25 2c 77 4a 25 29 3a  |,_%,Q%,o_%,wJ%):|
0000eb10  ea 52 25 3a c8 8e 6b 79  25 ca 0d 05 58 1a c9 31  |.R%:..ky%...X..1|
0000eb20  3a 52 25 3d a4 54 79 28  6e 25 2c 68 25 2c 5f 25  |:R%=.Ty(n%,h%,_%|
0000eb30  2c 51 25 29 0d 05 59 1a  c9 32 3a 52 25 3d a4 6b  |,Q%)..Y..2:R%=.k|
0000eb40  79 28 6e 25 2c 68 25 2c  5f 25 2c 51 25 29 0d 05  |y(n%,h%,_%,Q%)..|
0000eb50  5a 1a c9 33 3a 52 25 3d  a4 59 79 28 6e 25 2c 68  |Z..3:R%=.Yy(n%,h|
0000eb60  25 2c 5f 25 2c 51 25 29  0d 05 5b 1e cb 3a e7 6e  |%,_%,Q%)..[..:.n|
0000eb70  25 3d 32 80 52 25 3e 31  8c 42 4a 25 3d 52 25 8b  |%=2.R%>1.BJ%=R%.|
0000eb80  42 4a 25 3d 2d 31 0d 05  5c 05 e1 0d 05 5d 1c dd  |BJ%=-1..\....]..|
0000eb90  a4 7a 79 28 77 25 2c 43  79 25 29 3a 6b 25 3d b9  |.zy(w%,Cy%):k%=.|
0000eba0  3a c8 8e 43 79 25 ca 0d  05 5e 0f c9 34 31 34 3a  |:..Cy%...^..414:|
0000ebb0  f2 58 79 28 31 29 0d 05  5f 10 c9 34 31 35 3a f2  |.Xy(1).._..415:.|
0000ebc0  58 79 28 2d 31 29 0d 05  60 14 c9 33 30 3a f2 49  |Xy(-1)..`..30:.I|
0000ebd0  28 a4 49 2c a4 56 2c a4  4c 29 0d 05 61 1a c9 33  |(.I,.V,.L)..a..3|
0000ebe0  38 39 3a f2 41 79 28 a4  49 2c a4 56 2c a4 4c 2c  |89:.Ay(.I,.V,.L,|
0000ebf0  46 2c 30 29 0d 05 62 0f  c9 32 37 3a f2 47 28 61  |F,0)..b..27:.G(a|
0000ec00  79 25 29 0d 05 63 09 7f  6b 25 3d a3 0d 05 64 09  |y%)..c..k%=...d.|
0000ec10  cb 3a 3d 6b 25 0d 05 65  27 dd a4 64 79 28 65 25  |.:=k%..e'..dy(e%|
0000ec20  2c 77 25 2c 43 79 25 29  3a ea 41 25 2c 42 25 3a  |,w%,Cy%):.A%,B%:|
0000ec30  6b 25 3d b9 3a e7 65 25  3d 66 25 8c 0d 05 66 34  |k%=.:.e%=f%...f4|
0000ec40  41 25 3d 30 3a e7 43 79  25 3d 26 44 84 43 79 25  |A%=0:.Cy%=&D.Cy%|
0000ec50  3d 33 39 38 84 43 79 25  3d 33 39 34 8c 41 25 3d  |=398.Cy%=394.A%=|
0000ec60  31 8b e7 43 79 25 3d 33  39 39 8c 41 25 3d 2d 31  |1..Cy%=399.A%=-1|
0000ec70  0d 05 67 0b e7 41 25 3c  3e 30 8c 0d 05 68 09 c8  |..g..A%<>0...h..|
0000ec80  8e 77 25 ca 0d 05 69 19  c9 31 36 3a e7 41 25 3d  |.w%...i..16:.A%=|
0000ec90  31 8c 42 25 3d 31 37 8b  42 25 3d 31 38 0d 05 6a  |1.B%=17.B%=18..j|
0000eca0  10 c9 31 37 3a 42 25 3d  77 25 2b 41 25 0d 05 6b  |..17:B%=w%+A%..k|
0000ecb0  0e c9 31 38 3a e7 41 25  3d 31 8c 0d 05 6c 16 e7  |..18:.A%=1...l..|
0000ecc0  43 79 25 3c 3e 26 44 8c  42 25 3d 31 36 8b f2 4e  |Cy%<>&D.B%=16..N|
0000ecd0  5f 0d 05 6d 0a cc 42 25  3d 31 37 0d 05 6e 05 cd  |_..m..B%=17..n..|
0000ece0  0d 05 6f 09 7f 6b 25 3d  a3 0d 05 70 16 cb 3a e7  |..o..k%=...p..:.|
0000ecf0  42 25 3c 3e 30 8c f2 4d  28 65 25 2c 42 25 29 0d  |B%<>0..M(e%,B%).|
0000ed00  05 71 0c cc 3a c8 8e 43  79 25 ca 0d 05 72 0a c9  |.q..:..Cy%...r..|
0000ed10  32 37 3a f2 6e 0d 05 73  1a c9 34 2c 32 34 3a e7  |27:.n..s..4,24:.|
0000ed20  4c 5f 25 3c 3e 2d 31 8c  f2 6b 28 4c 5f 25 29 0d  |L_%<>-1..k(L_%).|
0000ed30  05 74 09 7f 6b 25 3d a3  0d 05 75 05 cb 0d 05 76  |.t..k%=...u....v|
0000ed40  05 cd 0d 05 77 09 cc 6b  25 3d a3 0d 05 78 09 cd  |....w..k%=...x..|
0000ed50  3a 3d 6b 25 0d 05 79 60  dd f2 6c 4a 3a ea 7a 25  |:=k%..y`..lJ:.z%|
0000ed60  2c 42 25 3a 7a 25 3d ae  78 24 3a 42 25 3d 4d 5f  |,B%:z%=.x$:B%=M_|
0000ed70  25 3a c8 95 42 25 3c 3e  2d 31 3a d5 23 7a 25 2c  |%:..B%<>-1:.#z%,|
0000ed80  c3 42 25 21 38 3a c8 99  26 43 2c 32 2c 7a 25 2c  |.B%!8:..&C,2,z%,|
0000ed90  42 25 2b 26 43 2c 42 25  21 38 20 2d 26 43 3a 42  |B%+&C,B%!8 -&C:B|
0000eda0  25 3d 42 25 21 34 3a ce  3a d9 23 7a 25 3a 7a 25  |%=B%!4:.:.#z%:z%|
0000edb0  3d 30 3a e1 0d 05 7a 46  dd f2 41 75 28 7a 25 29  |=0:...zF..Au(z%)|
0000edc0  3a d5 23 7a 25 2c 6b 79  25 3a d5 23 7a 25 2c 6d  |:.#z%,ky%:.#z%,m|
0000edd0  5f 25 3a d5 23 7a 25 2c  54 75 25 2b 35 3a d5 23  |_%:.#z%,Tu%+5:.#|
0000ede0  7a 25 2c 44 5f 25 3a d5  23 7a 25 2c 6c 79 25 3a  |z%,D_%:.#z%,ly%:|
0000edf0  d5 23 7a 25 2c 54 5f 25  3a e1 0d 05 7b 48 dd f2  |.#z%,T_%:...{H..|
0000ee00  62 4a 28 7a 25 29 3a 6b  79 25 3d 9a 23 7a 25 3a  |bJ(z%):ky%=.#z%:|
0000ee10  6d 5f 25 3d 9a 23 7a 25  3a 54 75 25 3d 28 9a 23  |m_%=.#z%:Tu%=(.#|
0000ee20  7a 25 29 2d 35 3a 44 5f  25 3d 9a 23 7a 25 3a 6c  |z%)-5:D_%=.#z%:l|
0000ee30  79 25 3d 9a 23 7a 25 3a  54 5f 25 3d 9a 23 7a 25  |y%=.#z%:T_%=.#z%|
0000ee40  3a e1 0d 05 7c 46 dd f2  4a 75 28 73 25 2c 53 79  |:...|F..Ju(s%,Sy|
0000ee50  25 2c 70 25 2c 5f 25 2c  51 25 29 3a ea 41 25 2c  |%,p%,_%,Q%):.A%,|
0000ee60  42 25 3a 21 4a 25 3d 73  25 3a c8 99 26 34 30 30  |B%:!J%=s%:..&400|
0000ee70  43 42 2c 2c 4a 25 3a 5f  25 3d 4a 25 21 34 2b 36  |CB,,J%:_%=J%!4+6|
0000ee80  36 34 3a c8 8e 77 25 ca  0d 05 7d 1d c9 31 2c 32  |64:..w%...}..1,2|
0000ee90  2c 33 3a e7 6e 25 3c 3e  32 f2 5a 28 73 25 2c 53  |,3:.n%<>2.Z(s%,S|
0000eea0  79 25 2c 31 29 0d 05 7e  3e c9 26 44 3a f2 48 28  |y%,1)..~>.&D:.H(|
0000eeb0  42 79 25 2c 30 2c 2d 31  29 3a f2 4a 28 42 79 25  |By%,0,-1):.J(By%|
0000eec0  2c a4 71 28 73 25 2c 53  79 25 29 2c 31 29 3a f2  |,.q(s%,Sy%),1):.|
0000eed0  43 28 42 79 25 2c 5f 25  2c 51 25 2c 73 25 2c 53  |C(By%,_%,Q%,s%,S|
0000eee0  79 25 29 0d 05 7f 2d c9  36 3a 42 25 3d ac a4 4d  |y%)...-.6:B%=..M|
0000eef0  28 73 25 2c 53 79 25 29  3a e3 41 25 3d 37 b8 26  |(s%,Sy%):.A%=7.&|
0000ef00  41 3a f2 53 28 73 25 2c  41 25 2c 42 25 29 3a ed  |A:.S(s%,A%,B%):.|
0000ef10  0d 05 80 3e c9 38 2c 39  3a 41 25 3d bb a4 5a 28  |...>.8,9:A%=..Z(|
0000ef20  73 25 2c 37 29 3a 41 25  2b 3d 31 2b 32 2a 28 53  |s%,7):A%+=1+2*(S|
0000ef30  79 25 3d 38 29 3a e7 41  25 3e 30 80 41 25 3c 26  |y%=8):.A%>0.A%<&|
0000ef40  44 8c f2 41 28 73 25 2c  37 2c c3 41 25 29 0d 05  |D..A(s%,7,.A%)..|
0000ef50  81 1c c9 26 41 3a f2 43  28 56 75 25 2c 5f 25 2c  |...&A:.C(Vu%,_%,|
0000ef60  51 25 2c 73 25 2c 53 79  25 29 0d 05 82 1d c9 26  |Q%,s%,Sy%).....&|
0000ef70  42 3a f2 53 28 73 25 2c  26 43 2c ac a4 4d 28 73  |B:.S(s%,&C,..M(s|
0000ef80  25 2c 53 79 25 29 29 0d  05 83 1c c9 26 43 3a f2  |%,Sy%)).....&C:.|
0000ef90  43 28 57 75 25 2c 5f 25  2c 51 25 2c 73 25 2c 53  |C(Wu%,_%,Q%,s%,S|
0000efa0  79 25 29 0d 05 84 07 cb  3a e1 0d 05 85 16 dd f2  |y%).....:.......|
0000efb0  69 4a 28 70 25 2c 73 25  29 3a c8 8e 74 4a 25 ca  |iJ(p%,s%):..tJ%.|
0000efc0  0d 05 86 31 c9 42 79 25  3a f2 55 28 73 25 2c 26  |...1.By%:.U(s%,&|
0000efd0  44 2c 21 70 25 29 3a f2  48 28 42 79 25 2c 30 2c  |D,!p%):.H(By%,0,|
0000efe0  2d 31 29 3a f2 4a 28 42  79 25 2c 21 70 25 2c 31  |-1):.J(By%,!p%,1|
0000eff0  29 0d 05 87 1e c9 56 75  25 3a f2 41 28 73 25 2c  |).....Vu%:.A(s%,|
0000f000  26 41 2c a4 57 28 56 75  25 2c 21 70 25 29 29 0d  |&A,.W(Vu%,!p%)).|
0000f010  05 88 1e c9 57 75 25 3a  f2 41 28 73 25 2c 26 43  |....Wu%:.A(s%,&C|
0000f020  2c a4 57 28 57 75 25 2c  21 70 25 29 29 0d 05 89  |,.W(Wu%,!p%))...|
0000f030  07 cb 3a e1 0d 05 8a e7  dd f2 6e 75 28 73 25 29  |..:.......nu(s%)|
0000f040  3a ea 41 25 3a e3 41 25  3d 31 b8 33 3a f2 5a 28  |:.A%:.A%=1.3:.Z(|
0000f050  73 25 2c 41 25 2c 94 28  6b 79 25 3d 41 25 29 29  |s%,A%,.(ky%=A%))|
0000f060  3a ed 3a f2 55 28 73 25  2c 26 44 2c 6d 5f 25 29  |:.:.U(s%,&D,m_%)|
0000f070  3a f2 5a 28 73 25 2c 35  2c 2d 54 75 25 29 3a f2  |:.Z(s%,5,-Tu%):.|
0000f080  5a 28 73 25 2c 26 42 2c  2d 28 44 5f 25 3c 3e 30  |Z(s%,&B,-(D_%<>0|
0000f090  29 29 3a f2 53 28 73 25  2c 26 43 2c 2d 28 44 5f  |)):.S(s%,&C,-(D_|
0000f0a0  25 3d 30 29 29 3a f2 5a  28 73 25 2c 36 2c 2d 28  |%=0)):.Z(s%,6,-(|
0000f0b0  6c 79 25 3c 3e 30 29 29  3a e3 41 25 3d 37 b8 26  |ly%<>0)):.A%=7.&|
0000f0c0  41 3a f2 53 28 73 25 2c  41 25 2c 2d 28 6c 79 25  |A:.S(s%,A%,-(ly%|
0000f0d0  3d 30 29 29 3a ed 3a f2  5a 28 73 25 2c 26 46 2c  |=0)):.:.Z(s%,&F,|
0000f0e0  94 28 28 54 5f 25 80 34  29 3e 30 29 29 3a f2 5a  |.((T_%.4)>0)):.Z|
0000f0f0  28 73 25 2c 31 36 2c 94  28 28 54 5f 25 80 32 29  |(s%,16,.((T_%.2)|
0000f100  3e 30 29 29 3a f2 5a 28  73 25 2c 31 37 2c 94 28  |>0)):.Z(s%,17,.(|
0000f110  28 54 5f 25 80 31 29 3e  30 29 29 0d 05 8b 23 f2  |(T_%.1)>0))...#.|
0000f120  53 28 73 25 2c 26 46 2c  94 28 28 54 5f 25 80 31  |S(s%,&F,.((T_%.1|
0000f130  29 3e 30 29 29 3a e7 6c  79 25 3c 3e 30 8c 0d 05  |)>0)):.ly%<>0...|
0000f140  8c 2f f2 41 28 73 25 2c  37 2c c3 28 6c 79 25 80  |./.A(s%,7,.(ly%.|
0000f150  26 46 29 29 3a f2 41 28  73 25 2c 26 41 2c a4 57  |&F)):.A(s%,&A,.W|
0000f160  28 56 75 25 2c 6c 79 25  3e 3e 34 29 29 0d 05 8d  |(Vu%,ly%>>4))...|
0000f170  24 cc f2 41 28 73 25 2c  37 2c 22 31 22 29 3a f2  |$..A(s%,7,"1"):.|
0000f180  41 28 73 25 2c 26 41 2c  a4 41 28 22 45 33 22 29  |A(s%,&A,.A("E3")|
0000f190  29 0d 05 8e 38 cd 3a e7  44 5f 25 3d 30 8c f2 41  |)...8.:.D_%=0..A|
0000f1a0  28 73 25 2c 26 43 2c a4  41 28 22 45 4e 31 22 29  |(s%,&C,.A("EN1")|
0000f1b0  29 8b f2 41 28 73 25 2c  26 43 2c a4 57 28 57 75  |)..A(s%,&C,.W(Wu|
0000f1c0  25 2c 44 5f 25 2d 31 29  29 0d 05 8f 05 e1 0d 05  |%,D_%-1)).......|
0000f1d0  90 c1 dd f2 62 75 28 73  25 29 3a ea 41 25 2c 42  |....bu(s%):.A%,B|
0000f1e0  25 2c 64 25 2c 71 25 2c  78 25 3a 41 25 3d 30 3a  |%,d%,q%,x%:A%=0:|
0000f1f0  f5 41 25 2b 3d 31 3a fd  a4 4d 28 73 25 2c 41 25  |.A%+=1:..M(s%,A%|
0000f200  29 84 41 25 3d 33 3a 6b  79 25 3d 41 25 3a f2 50  |).A%=3:ky%=A%:.P|
0000f210  28 53 25 28 a4 50 28 33  29 29 2c 41 25 2c 42 25  |(S%(.P(3)),A%,B%|
0000f220  2c 64 25 2c 71 25 2c 78  25 29 3a f2 49 28 64 25  |,d%,q%,x%):.I(d%|
0000f230  2c 71 25 2c 78 25 29 3a  6d 5f 25 3d a4 71 28 73  |,q%,x%):m_%=.q(s|
0000f240  25 2c 26 44 29 3a 54 75  25 3d a4 4d 28 73 25 2c  |%,&D):Tu%=.M(s%,|
0000f250  35 29 3a 6c 79 25 3d 30  3a 44 5f 25 3d 30 3a e7  |5):ly%=0:D_%=0:.|
0000f260  a4 4d 28 73 25 2c 36 29  8c 6c 79 25 3d 28 28 a4  |.M(s%,6).ly%=((.|
0000f270  6b 28 56 75 25 2c a4 5a  28 73 25 2c 26 41 29 29  |k(Vu%,.Z(s%,&A))|
0000f280  29 3c 3c 34 29 2b bb a4  5a 28 73 25 2c 37 29 0d  |)<<4)+..Z(s%,7).|
0000f290  05 91 26 e7 a4 4d 28 73  25 2c 26 42 29 8c 44 5f  |..&..M(s%,&B).D_|
0000f2a0  25 3d a4 6b 28 57 75 25  2c a4 5a 28 73 25 2c 26  |%=.k(Wu%,.Z(s%,&|
0000f2b0  43 29 29 2b 31 0d 05 92  2e 54 5f 25 3d 94 28 a4  |C))+1....T_%=.(.|
0000f2c0  4d 28 73 25 2c 31 37 29  2b 32 2a a4 4d 28 73 25  |M(s%,17)+2*.M(s%|
0000f2d0  2c 31 36 29 2b 34 2a a4  4d 28 73 25 2c 26 46 29  |,16)+4*.M(s%,&F)|
0000f2e0  29 3a e1 0d 05 93 3a dd  f2 49 28 64 25 2c 71 25  |):....:..I(d%,q%|
0000f2f0  2c 78 25 29 3a ea 75 25  2c 42 25 2c 4f 79 25 2c  |,x%):.u%,B%,Oy%,|
0000f300  54 25 2c 79 25 3a 75 25  3d a4 48 28 64 25 2c 71  |T%,y%:u%=.H(d%,q|
0000f310  25 2c 78 25 29 3a e7 6b  79 25 3d 33 8c 0d 05 94  |%,x%):.ky%=3....|
0000f320  24 f2 46 28 64 25 2c 71  25 2c 78 25 2c a4 5a 5f  |$.F(d%,q%,x%,.Z_|
0000f330  28 64 25 2c 71 25 2c 78  25 29 2d 31 2c 30 2c 30  |(d%,q%,x%)-1,0,0|
0000f340  29 0d 05 95 1b cc f2 46  28 64 25 2c 71 25 2c 78  |)......F(d%,q%,x|
0000f350  25 2c 2d 75 25 2b 31 2c  30 2c 30 29 0d 05 96 3a  |%,-u%+1,0,0)...:|
0000f360  cd 3a 79 25 3d a4 46 28  30 2c 30 2c 64 25 2c 71  |.:y%=.F(0,0,d%,q|
0000f370  25 2c 78 25 29 3a 53 25  28 a4 50 28 33 29 29 3d  |%,x%):S%(.P(3))=|
0000f380  79 25 3a e7 5a 25 28 74  25 29 3d 33 8c 76 25 3d  |y%:.Z%(t%)=3.v%=|
0000f390  53 25 28 74 25 29 0d 05  97 09 f2 4d 79 3a e1 0d  |S%(t%).....My:..|
0000f3a0  05 98 6f dd f2 4d 79 3a  ea 42 25 2c 54 25 2c 4f  |..o..My:.B%,T%,O|
0000f3b0  79 25 3a 42 25 3d 4d 5f  25 3a 6b 4a 25 3d 2d 31  |y%:B%=M_%:kJ%=-1|
0000f3c0  3a 79 25 3d 53 25 28 a4  50 28 33 29 29 3a 56 25  |:y%=S%(.P(3)):V%|
0000f3d0  28 29 3d 30 3a c8 95 42  25 3c 3e 2d 31 80 ac 4f  |()=0:..B%<>-1..O|
0000f3e0  79 25 3a 54 25 3d 42 25  21 26 43 3a e7 a4 47 28  |y%:T%=B%!&C:..G(|
0000f3f0  79 25 2c 54 25 29 3c 3e  31 8c 4f 79 25 3d b9 3a  |y%,T%)<>1.Oy%=.:|
0000f400  6b 4a 25 3d 42 25 8b 42  25 3d 42 25 21 34 0d 05  |kJ%=B%.B%=B%!4..|
0000f410  99 07 ce 3a e1 0d 05 9a  60 dd a4 63 79 28 54 25  |...:....`..cy(T%|
0000f420  29 3a ea 42 25 2c 46 25  3a 42 25 3d 4d 5f 25 3a  |):.B%,F%:B%=M_%:|
0000f430  46 25 3d 2d 31 3a c8 95  42 25 3c 3e 2d 31 80 46  |F%=-1:..B%<>-1.F|
0000f440  25 3d 2d 31 3a e7 28 28  42 25 21 31 36 29 80 28  |%=-1:.((B%!16).(|
0000f450  31 3c 3c 32 30 29 29 3d  30 84 28 28 42 25 21 31  |1<<20))=0.((B%!1|
0000f460  36 29 80 34 29 3d 34 8c  46 25 3d 42 25 8b 42 25  |6).4)=4.F%=B%.B%|
0000f470  3d 42 25 21 34 0d 05 9b  09 ce 3a 3d 46 25 0d 05  |=B%!4.....:=F%..|
0000f480  9c 20 dd f2 5f 5f 28 42  25 29 3a e7 28 42 25 21  |. ..__(B%):.(B%!|
0000f490  31 36 80 28 33 3c 3c 32  30 29 29 3d 30 8c 0d 05  |16.(3<<20))=0...|
0000f4a0  9d 6b ea 66 79 25 2c 4b  79 25 2c 64 25 2c 71 25  |.k.fy%,Ky%,d%,q%|
0000f4b0  2c 78 25 2c 4b 5f 25 2c  41 24 2c 41 25 2c 52 25  |,x%,K_%,A$,A%,R%|
0000f4c0  2c 43 25 3a f2 50 28 42  25 21 26 43 2c 66 79 25  |,C%:.P(B%!&C,fy%|
0000f4d0  2c 4b 79 25 2c 64 25 2c  71 25 2c 78 25 29 3a 41  |,Ky%,d%,q%,x%):A|
0000f4e0  75 25 3d 42 25 3a e7 4b  79 25 3e 26 43 8c 4b 79  |u%=B%:.Ky%>&C.Ky|
0000f4f0  25 2d 3d 26 43 3a 4b 5f  25 3d b9 8b e7 4b 79 25  |%-=&C:K_%=...Ky%|
0000f500  3d 30 8c 4b 79 25 3d 26  43 0d 05 9e 3d 41 24 3d  |=0.Ky%=&C...=A$=|
0000f510  c3 4b 79 25 2b 22 3a 22  2b c4 32 2d a9 c3 66 79  |.Ky%+":"+.2-..fy|
0000f520  25 2c 22 30 22 29 2b c3  66 79 25 3a e7 4b 5f 25  |%,"0")+.fy%:.K_%|
0000f530  8c 41 24 2b 3d 22 20 70  6d 2c 22 8b 41 24 2b 3d  |.A$+=" pm,".A$+=|
0000f540  22 20 61 6d 2c 22 0d 05  9f 50 f2 41 28 4c 79 25  |" am,"...P.A(Ly%|
0000f550  2c 31 2c a4 4f 28 22 57  61 73 53 65 74 22 2c 41  |,1,.O("WasSet",A|
0000f560  24 2c 22 22 2c 22 22 2c  22 22 29 29 3a f2 41 28  |$,"","","")):.A(|
0000f570  4c 79 25 2c 32 2c a4 51  28 64 25 2c 71 25 2c 78  |Ly%,2,.Q(d%,q%,x|
0000f580  25 2c 2d 31 29 29 3a e7  28 28 42 25 21 31 36 29  |%,-1)):.((B%!16)|
0000f590  80 34 29 3d 34 8c 0d 05  a0 18 52 25 3d b9 3a e7  |.4)=4.....R%=.:.|
0000f5a0  28 28 42 25 21 31 36 29  80 38 29 3d 38 8c 0d 05  |((B%!16).8)=8...|
0000f5b0  a1 63 f2 6d 79 28 66 79  25 2c 4b 79 25 2c 64 25  |.c.my(fy%,Ky%,d%|
0000f5c0  2c 71 25 2c 78 25 2c 28  28 42 25 21 31 36 29 3e  |,q%,x%,((B%!16)>|
0000f5d0  3e 38 29 80 26 46 46 2c  28 28 28 42 25 21 31 36  |>8).&FF,(((B%!16|
0000f5e0  29 3e 3e 31 36 29 80 26  46 29 2d 31 29 3a e7 4b  |)>>16).&F)-1):.K|
0000f5f0  79 25 3e 26 43 8c 4b 79  25 2d 3d 26 43 3a 4b 5f  |y%>&C.Ky%-=&C:K_|
0000f600  25 3d b9 8b e7 4b 79 25  3d 30 8c 4b 79 25 3d 26  |%=...Ky%=0.Ky%=&|
0000f610  43 0d 05 a2 3d 41 24 3d  c3 4b 79 25 2b 22 3a 22  |C...=A$=.Ky%+":"|
0000f620  2b c4 32 2d a9 c3 66 79  25 2c 22 30 22 29 2b c3  |+.2-..fy%,"0")+.|
0000f630  66 79 25 3a e7 4b 5f 25  8c 41 24 2b 3d 22 20 70  |fy%:.K_%.A$+=" p|
0000f640  6d 2c 22 8b 41 24 2b 3d  22 20 61 6d 2c 22 0d 05  |m,".A$+=" am,"..|
0000f650  a3 42 f2 41 28 4c 79 25  2c 26 46 2c a4 4f 28 22  |.B.A(Ly%,&F,.O("|
0000f660  57 69 6c 52 70 74 22 2c  41 24 2c 22 22 2c 22 22  |WilRpt",A$,"",""|
0000f670  2c 22 22 29 29 3a f2 41  28 4c 79 25 2c 31 36 2c  |,"")):.A(Ly%,16,|
0000f680  a4 51 28 64 25 2c 71 25  2c 78 25 2c 2d 31 29 29  |.Q(d%,q%,x%,-1))|
0000f690  0d 05 a4 53 cc 3a f2 6a  79 28 64 25 2c 71 25 2c  |...S.:.jy(d%,q%,|
0000f6a0  78 25 2c 42 25 21 31 36  29 3a 41 24 3d c3 4b 79  |x%,B%!16):A$=.Ky|
0000f6b0  25 2b 22 3a 22 2b c4 32  2d a9 c3 66 79 25 2c 22  |%+":"+.2-..fy%,"|
0000f6c0  30 22 29 2b c3 66 79 25  3a e7 4b 5f 25 8c 41 24  |0")+.fy%:.K_%.A$|
0000f6d0  2b 3d 22 20 70 6d 2c 22  8b 41 24 2b 3d 22 20 61  |+=" pm,".A$+=" a|
0000f6e0  6d 2c 22 0d 05 a5 42 f2  41 28 4c 79 25 2c 26 46  |m,"...B.A(Ly%,&F|
0000f6f0  2c a4 4f 28 22 57 69 6c  52 70 74 22 2c 41 24 2c  |,.O("WilRpt",A$,|
0000f700  22 22 2c 22 22 2c 22 22  29 29 3a f2 41 28 4c 79  |"","","")):.A(Ly|
0000f710  25 2c 31 36 2c a4 51 28  64 25 2c 71 25 2c 78 25  |%,16,.Q(d%,q%,x%|
0000f720  2c 2d 31 29 29 0d 05 a6  05 cd 0d 05 a7 1b cd 3a  |,-1))..........:|
0000f730  e7 28 28 42 25 21 31 36  29 80 31 29 3d 31 8c 4a  |.((B%!16).1)=1.J|
0000f740  5f 25 3d 26 41 0d 05 a8  db 43 25 3d 28 42 25 21  |_%=&A....C%=(B%!|
0000f750  31 36 3e 3e 34 29 80 26  46 3a 43 25 2d 3d 6d 5f  |16>>4).&F:C%-=m_|
0000f760  25 2a 28 43 25 3d 30 29  3a e3 41 25 3d 34 b8 36  |%*(C%=0):.A%=4.6|
0000f770  3a f2 55 28 4c 79 25 2c  41 25 2c 43 25 29 3a ed  |:.U(Ly%,A%,C%):.|
0000f780  3a 42 25 2b 3d 32 30 3a  e3 41 25 3d 34 b8 36 3a  |:B%+=20:.A%=4.6:|
0000f790  41 24 3d 22 22 3a c8 95  3f 42 25 3c 3e 26 42 3a  |A$="":..?B%<>&B:|
0000f7a0  41 24 2b 3d bd 3f 42 25  3a 42 25 2b 3d 31 3a ce  |A$+=.?B%:B%+=1:.|
0000f7b0  3a 42 25 2b 3d 31 3a f2  41 28 4c 79 25 2c 41 25  |:B%+=1:.A(Ly%,A%|
0000f7c0  2c 41 24 29 3a ed 3a f2  5a 28 4c 79 25 2c 39 2c  |,A$):.:.Z(Ly%,9,|
0000f7d0  30 29 3a e3 41 25 3d 26  41 b8 26 44 3a f2 53 28  |0):.A%=&A.&D:.S(|
0000f7e0  4c 79 25 2c 41 25 2c 31  29 3a ed 3a f2 41 28 4c  |Ly%,A%,1):.:.A(L|
0000f7f0  79 25 2c 26 41 2c 22 31  22 29 3a f2 41 28 4c 79  |y%,&A,"1"):.A(Ly|
0000f800  25 2c 26 44 2c a4 41 28  22 45 31 22 29 29 3a f2  |%,&D,.A("E1")):.|
0000f810  63 4a 28 ac 52 25 2c b9  29 3a 72 4a 25 3d 2d 31  |cJ(.R%,.):rJ%=-1|
0000f820  0d 05 a9 21 cc 3a e7 28  42 25 21 31 36 80 28 31  |...!.:.(B%!16.(1|
0000f830  3c 3c 32 31 29 29 3c 3e  30 8c f2 74 75 28 42 25  |<<21))<>0..tu(B%|
0000f840  29 0d 05 aa 0d f2 42 79  28 42 25 2c 30 29 0d 05  |).....By(B%,0)..|
0000f850  ab 07 cd 3a e1 0d 05 ac  6f dd f2 74 75 28 42 25  |...:....o..tu(B%|
0000f860  29 3a ea 41 24 2c 41 25  2c 5a 24 2c 78 69 25 2c  |):.A$,A%,Z$,xi%,|
0000f870  60 75 25 3a 42 25 2b 3d  32 30 3a e3 41 25 3d 31  |`u%:B%+=20:.A%=1|
0000f880  b8 33 3a c8 95 3f 42 25  3c 3e 26 42 3a 41 24 2b  |.3:..?B%<>&B:A$+|
0000f890  3d bd 3f 42 25 3a 42 25  2b 3d 31 3a ce 3a 42 25  |=.?B%:B%+=1:.:B%|
0000f8a0  2b 3d 31 3a ed 3a e7 c0  41 24 2c 31 29 3d 22 3d  |+=1:.:..A$,1)="=|
0000f8b0  22 8c 41 24 3d c1 41 24  2c a7 41 24 2c 22 2a 22  |".A$=.A$,.A$,"*"|
0000f8c0  29 2b 31 29 0d 05 ad 34  5a 24 3d a4 73 28 c0 41  |)+1)...4Z$=.s(.A|
0000f8d0  24 2c a7 41 24 2c 22 20  22 29 29 29 3a e7 5a 24  |$,.A$," "))):.Z$|
0000f8e0  3c 3e 22 46 49 4c 45 52  5f 52 55 4e 22 80 5a 24  |<>"FILER_RUN".Z$|
0000f8f0  3c 3e 22 52 55 4e 22 8c  0d 05 ae 43 c8 99 38 2c  |<>"RUN"....C..8,|
0000f900  35 2c 41 24 b8 78 69 25  2c 60 75 25 3a e7 78 69  |5,A$.xi%,`u%:.xi|
0000f910  25 3d 32 8c 41 24 3d 22  52 75 6e 20 22 2b 41 24  |%=2.A$="Run "+A$|
0000f920  8b e7 78 69 25 3c 3e 30  8c 41 24 3d 22 46 69 6c  |..xi%<>0.A$="Fil|
0000f930  65 72 5f 52 75 6e 20 22  2b 41 24 0d 05 af 13 cd  |er_Run "+A$.....|
0000f940  3a c8 99 26 34 30 30 44  45 2c 41 24 3a e1 0d 05  |:..&400DE,A$:...|
0000f950  b0 ca dd f2 49 75 3a ea  79 25 2c 42 25 2c 4f 79  |....Iu:.y%,B%,Oy|
0000f960  25 2c 41 25 2c 43 25 2c  64 25 2c 71 25 2c 78 25  |%,A%,C%,d%,q%,x%|
0000f970  3a 79 25 3d 53 25 28 a4  50 28 33 29 29 3a 42 25  |:y%=S%(.P(3)):B%|
0000f980  3d 6b 4a 25 3a f2 50 28  79 25 2c 41 25 2c 43 25  |=kJ%:.P(y%,A%,C%|
0000f990  2c 64 25 2c 71 25 2c 78  25 29 3a 41 25 3d 2d 26  |,d%,q%,x%):A%=-&|
0000f9a0  45 2a 28 6b 79 25 3d 31  29 2d 37 2a 28 6b 79 25  |E*(ky%=1)-7*(ky%|
0000f9b0  3d 32 29 2d 32 2a 28 6b  79 25 3d 33 29 3a f2 46  |=2)-2*(ky%=3):.F|
0000f9c0  28 64 25 2c 71 25 2c 78  25 2c 41 25 2c 30 2c 30  |(d%,q%,x%,A%,0,0|
0000f9d0  29 3a 79 25 3d a4 46 28  30 2c 30 2c 64 25 2c 71  |):y%=.F(0,0,d%,q|
0000f9e0  25 2c 78 25 29 3a c8 95  42 25 3c 3e 2d 31 80 ac  |%,x%):..B%<>-1..|
0000f9f0  4f 79 25 3a 54 25 3d 42  25 21 26 43 3a e7 a4 47  |Oy%:T%=B%!&C:..G|
0000fa00  28 79 25 2c 54 25 29 3d  2d 31 8c 4f 79 25 3d b9  |(y%,T%)=-1.Oy%=.|
0000fa10  8b 42 25 3d 42 25 21 34  0d 05 b1 0b ce 3a e7 4f  |.B%=B%!4.....:.O|
0000fa20  79 25 8c 0d 05 b2 32 74  25 3d a4 50 28 33 29 3a  |y%....2t%=.P(3):|
0000fa30  f2 50 28 42 25 21 26 43  2c 41 25 2c 43 25 2c 64  |.P(B%!&C,A%,C%,d|
0000fa40  25 2c 71 25 2c 78 25 29  3a f2 49 28 64 25 2c 71  |%,q%,x%):.I(d%,q|
0000fa50  25 2c 78 25 29 0d 05 b3  18 cc f2 42 28 a4 41 28  |%,x%)......B(.A(|
0000fa60  22 45 72 72 4e 6f 4d 6f  72 65 22 29 29 0d 05 b4  |"ErrNoMore"))...|
0000fa70  07 cd 3a e1 0d 05 b5 67  dd f2 4c 75 3a ea 79 25  |..:....g..Lu:.y%|
0000fa80  2c 42 25 2c 4f 79 25 2c  41 25 2c 43 25 2c 64 25  |,B%,Oy%,A%,C%,d%|
0000fa90  2c 71 25 2c 78 25 3a 79  25 3d 53 25 28 a4 50 28  |,q%,x%:y%=S%(.P(|
0000faa0  33 29 29 3a 42 25 3d 6b  4a 25 3a c8 95 42 25 3c  |3)):B%=kJ%:..B%<|
0000fab0  3e 2d 31 80 ac 4f 79 25  3a 54 25 3d 42 25 21 26  |>-1..Oy%:T%=B%!&|
0000fac0  43 3a e7 a4 47 28 79 25  2c 54 25 29 3d 31 8c 4f  |C:..G(y%,T%)=1.O|
0000fad0  79 25 3d b9 8b 42 25 3d  21 42 25 0d 05 b6 0b ce  |y%=..B%=!B%.....|
0000fae0  3a e7 4f 79 25 8c 0d 05  b7 32 74 25 3d a4 50 28  |:.Oy%....2t%=.P(|
0000faf0  33 29 3a f2 50 28 42 25  21 26 43 2c 41 25 2c 43  |3):.P(B%!&C,A%,C|
0000fb00  25 2c 64 25 2c 71 25 2c  78 25 29 3a f2 49 28 64  |%,d%,q%,x%):.I(d|
0000fb10  25 2c 71 25 2c 78 25 29  0d 05 b8 16 cc f2 42 28  |%,q%,x%)......B(|
0000fb20  a4 41 28 22 45 72 72 4e  6f 42 34 22 29 29 0d 05  |.A("ErrNoB4"))..|
0000fb30  b9 07 cd 3a e1 0d 05 ba  12 dd f2 5f 75 3a e7 4d  |...:......._u:.M|
0000fb40  5f 25 3c 3e 2d 31 8c 0d  05 bb 33 74 25 3d a4 50  |_%<>-1....3t%=.P|
0000fb50  28 33 29 3a f2 50 28 4d  5f 25 21 26 43 2c 41 25  |(3):.P(M_%!&C,A%|
0000fb60  2c 43 25 2c 64 25 2c 71  25 2c 78 25 29 3a f2 49  |,C%,d%,q%,x%):.I|
0000fb70  28 64 25 2c 71 25 2c 78  25 29 0d 05 bc 17 cc f2  |(d%,q%,x%)......|
0000fb80  42 28 a4 41 28 22 45 72  72 4e 6f 45 6e 74 22 29  |B(.A("ErrNoEnt")|
0000fb90  29 0d 05 bd 07 cd 3a e1  0d 05 be 1c dd f2 48 5f  |).....:.......H_|
0000fba0  3a ea 42 25 3a 42 25 3d  4d 5f 25 3a e7 42 25 3c  |:.B%:B%=M_%:.B%<|
0000fbb0  3e 2d 31 8c 0d 05 bf 47  c8 95 42 25 21 34 3c 3e  |>-1....G..B%!4<>|
0000fbc0  2d 31 3a 42 25 3d 42 25  21 34 3a ce 3a 74 25 3d  |-1:B%=B%!4:.:t%=|
0000fbd0  a4 50 28 33 29 3a f2 50  28 42 25 21 26 43 2c 41  |.P(3):.P(B%!&C,A|
0000fbe0  25 2c 43 25 2c 64 25 2c  71 25 2c 78 25 29 3a f2  |%,C%,d%,q%,x%):.|
0000fbf0  49 28 64 25 2c 71 25 2c  78 25 29 0d 05 c0 17 cc  |I(d%,q%,x%).....|
0000fc00  f2 42 28 a4 41 28 22 45  72 72 4e 6f 45 6e 74 22  |.B(.A("ErrNoEnt"|
0000fc10  29 29 0d 05 c1 07 cd 3a  e1 0d 05 c2 38 dd f2 6f  |)).....:....8..o|
0000fc20  75 28 76 25 2c 68 25 2c  61 25 2c 4b 25 29 3a ea  |u(v%,h%,a%,K%):.|
0000fc30  47 75 25 2c 4a 79 25 2c  75 25 3a e7 68 25 8c f2  |Gu%,Jy%,u%:.h%..|
0000fc40  46 28 64 25 2c 71 25 2c  78 25 2c 37 2c 30 2c 30  |F(d%,q%,x%,7,0,0|
0000fc50  29 0d 05 c3 86 47 75 25  3d 4b 25 2d 34 30 3a 4a  |)....Gu%=K%-40:J|
0000fc60  79 25 3d 2d 28 6d 25 2d  36 30 29 2f 37 3a 5a 4a  |y%=-(m%-60)/7:ZJ|
0000fc70  25 3d 78 25 3a 6e 5f 25  3d 71 25 3a e3 75 25 3d  |%=x%:n_%=q%:.u%=|
0000fc80  31 b8 37 3a f2 61 79 28  75 25 2b 37 2a 94 68 25  |1.7:.ay(u%+7*.h%|
0000fc90  2c 64 25 2c 75 25 2c 71  25 2c 78 25 2c 68 25 2c  |,d%,u%,q%,x%,h%,|
0000fca0  61 25 2b 26 41 2c 47 75  25 2c 6a 25 2d 32 30 2c  |a%+&A,Gu%,j%-20,|
0000fcb0  4a 79 25 29 3a e7 75 25  3c 3e 37 8c f2 46 28 64  |Jy%):.u%<>7..F(d|
0000fcc0  25 2c 71 25 2c 78 25 2c  31 2c 30 2c 30 29 3a 47  |%,q%,x%,1,0,0):G|
0000fcd0  75 25 2b 3d 4a 79 25 0d  05 c4 07 ed 3a e1 0d 05  |u%+=Jy%.....:...|
0000fce0  c5 75 dd a4 54 79 28 6e  25 2c 68 25 2c 5f 25 2c  |.u..Ty(n%,h%,_%,|
0000fcf0  51 25 29 3a ea 4a 79 25  2c 6c 25 2c 61 25 2c 52  |Q%):.Jy%,l%,a%,R|
0000fd00  25 3a 4a 79 25 3d 28 6d  25 2d 36 30 29 2f 37 3a  |%:Jy%=(m%-60)/7:|
0000fd10  51 25 3d 2d 51 25 2d 34  30 2b 4a 79 25 3a 6c 25  |Q%=-Q%-40+Jy%:l%|
0000fd20  3d 28 28 51 25 81 4a 79  25 29 83 38 29 3a e7 6c  |=((Q%.Jy%).8):.l|
0000fd30  25 3c 3e 30 8c 6c 25 2b  3d 37 2a 94 68 25 3a e7  |%<>0.l%+=7*.h%:.|
0000fd40  5f 25 3c 26 41 84 5f 25  3e 6a 25 2d 32 30 8c 6c  |_%<&A._%>j%-20.l|
0000fd50  25 3d 30 0d 05 c6 15 e7  68 25 8c 61 25 3d 64 79  |%=0.....h%.a%=dy|
0000fd60  25 8b 61 25 3d 79 79 25  0d 05 c7 4c e7 6c 25 3c  |%.a%=yy%...L.l%<|
0000fd70  3e 30 8c 52 25 3d a4 41  79 28 6c 25 2c 5f 25 2d  |>0.R%=.Ay(l%,_%-|
0000fd80  26 41 2c 51 25 83 4a 79  25 2c 6e 25 2c 4a 79 25  |&A,Q%.Jy%,n%,Jy%|
0000fd90  2c 61 25 2b 26 41 2c 2d  6f 25 2d 34 30 2d 28 6c  |,a%+&A,-o%-40-(l|
0000fda0  25 2b 37 2a 28 6c 25 3e  37 29 29 2a 4a 79 25 2b  |%+7*(l%>7))*Jy%+|
0000fdb0  4a 79 25 29 0d 05 c8 07  3d 52 25 0d 05 c9 52 dd  |Jy%)....=R%...R.|
0000fdc0  f2 6b 5f 28 76 25 2c 68  25 2c 61 25 2c 4b 25 29  |.k_(v%,h%,a%,K%)|
0000fdd0  3a ea 47 75 25 2c 4a 79  25 2c 76 4a 25 2c 75 25  |:.Gu%,Jy%,vJ%,u%|
0000fde0  3a e7 68 25 8c f2 46 28  64 25 2c 71 25 2c 78 25  |:.h%..F(d%,q%,x%|
0000fdf0  2c 33 2c 30 2c 30 29 3a  75 25 3d 34 3a 76 4a 25  |,3,0,0):u%=4:vJ%|
0000fe00  3d 37 8b 75 25 3d 31 3a  76 4a 25 3d 33 0d 05 ca  |=7.u%=1:vJ%=3...|
0000fe10  45 47 75 25 3d 4b 25 2d  34 30 3a 4a 79 25 3d 2d  |EGu%=K%-40:Jy%=-|
0000fe20  28 6d 25 2d 36 30 29 2f  33 3a 5a 4a 25 3d 78 25  |(m%-60)/3:ZJ%=x%|
0000fe30  3a 6e 5f 25 3d 71 25 3a  e3 75 25 3d 75 25 b8 76  |:n_%=q%:.u%=u%.v|
0000fe40  4a 25 3a e7 75 25 3d 36  8c 4a 79 25 3d 4a 79 25  |J%:.u%=6.Jy%=Jy%|
0000fe50  2f 32 0d 05 cb 53 f2 61  79 28 75 25 2c 64 25 2c  |/2...S.ay(u%,d%,|
0000fe60  75 25 2c 71 25 2c 78 25  2c 68 25 2c 61 25 2b 26  |u%,q%,x%,h%,a%+&|
0000fe70  41 2c 47 75 25 2c 6a 25  2d 32 30 2c 4a 79 25 29  |A,Gu%,j%-20,Jy%)|
0000fe80  3a e7 75 25 3c 3e 76 4a  25 8c f2 46 28 64 25 2c  |:.u%<>vJ%..F(d%,|
0000fe90  71 25 2c 78 25 2c 31 2c  30 2c 30 29 3a 47 75 25  |q%,x%,1,0,0):Gu%|
0000fea0  2b 3d 4a 79 25 0d 05 cc  07 ed 3a e1 0d 05 cd 97  |+=Jy%.....:.....|
0000feb0  dd a4 6b 79 28 6e 25 2c  68 25 2c 5f 25 2c 51 25  |..ky(n%,h%,_%,Q%|
0000fec0  29 3a ea 4a 79 25 2c 6c  25 2c 61 25 2c 4b 25 2c  |):.Jy%,l%,a%,K%,|
0000fed0  52 25 3a 4a 79 25 3d 28  6d 25 2d 36 30 29 2f 33  |R%:Jy%=(m%-60)/3|
0000fee0  3a 51 25 3d 2d 51 25 2d  34 30 2b 4a 79 25 3a 6c  |:Q%=-Q%-40+Jy%:l|
0000fef0  25 3d 28 28 51 25 81 4a  79 25 29 83 34 29 3a 51  |%=((Q%.Jy%).4):Q|
0000ff00  25 3d 51 25 83 4a 79 25  3a 4b 25 3d 2d 6f 25 2d  |%=Q%.Jy%:K%=-o%-|
0000ff10  34 30 2d 6c 25 2a 4a 79  25 2b 4a 79 25 3a e7 6c  |40-l%*Jy%+Jy%:.l|
0000ff20  25 3c 3e 30 8c 6c 25 2b  3d 33 2a 94 68 25 3a e7  |%<>0.l%+=3*.h%:.|
0000ff30  5f 25 3c 26 41 84 5f 25  3e 6a 25 2d 32 30 8c 6c  |_%<&A._%>j%-20.l|
0000ff40  25 3d 30 0d 05 ce 14 e7  6c 25 3e 3d 36 8c 4a 79  |%=0.....l%>=6.Jy|
0000ff50  25 3d 4a 79 25 2f 32 0d  05 cf 26 e7 6c 25 3d 36  |%=Jy%/2...&.l%=6|
0000ff60  80 51 25 3e 3d 4a 79 25  8c 51 25 2d 3d 4a 79 25  |.Q%>=Jy%.Q%-=Jy%|
0000ff70  3a 6c 25 3d 37 3a 4b 25  2d 3d 4a 79 25 0d 05 d0  |:l%=7:K%-=Jy%...|
0000ff80  15 e7 68 25 8c 61 25 3d  64 79 25 8b 61 25 3d 79  |..h%.a%=dy%.a%=y|
0000ff90  79 25 0d 05 d1 2e e7 6c  25 3c 3e 30 8c 52 25 3d  |y%.....l%<>0.R%=|
0000ffa0  a4 41 79 28 6c 25 2c 5f  25 2d 26 41 2c 51 25 2c  |.Ay(l%,_%-&A,Q%,|
0000ffb0  6e 25 2c 4a 79 25 2c 61  25 2b 26 41 2c 4b 25 29  |n%,Jy%,a%+&A,K%)|
0000ffc0  0d 05 d2 07 3d 52 25 0d  05 d3 2c dd f2 6b 75 28  |....=R%...,..ku(|
0000ffd0  76 25 2c 68 25 2c 61 25  2c 4b 25 29 3a e7 68 25  |v%,h%,a%,K%):.h%|
0000ffe0  8c f2 46 28 64 25 2c 71  25 2c 78 25 2c 31 2c 30  |..F(d%,q%,x%,1,0|
0000fff0  2c 30 29 0d 05 d4 4f 5a  4a 25 3d 78 25 3a 6e 5f  |,0)...OZJ%=x%:n_|
00010000  25 3d 71 25 3a f2 61 79  28 94 ac 68 25 2c 64 25  |%=q%:.ay(..h%,d%|
00010010  2c a4 48 28 64 25 2c 71  25 2c 78 25 29 2c 71 25  |,.H(d%,q%,x%),q%|
00010020  2c 78 25 2c 68 25 2c 61  25 2b 26 41 2c 4b 25 2d  |,x%,h%,a%+&A,K%-|
00010030  34 30 2c 6a 25 2d 32 30  2c 2d 6d 25 2b 36 30 29  |40,j%-20,-m%+60)|
00010040  3a e1 0d 05 d5 40 dd a4  59 79 28 6e 25 2c 68 25  |:....@..Yy(n%,h%|
00010050  2c 5f 25 2c 51 25 29 3a  ea 6c 25 2c 61 25 2c 52  |,_%,Q%):.l%,a%,R|
00010060  25 3a 51 25 3d 2d 51 25  2d 34 30 3a 6c 25 3d 31  |%:Q%=-Q%-40:l%=1|
00010070  3a e7 68 25 8c 61 25 3d  64 79 25 8b 61 25 3d 79  |:.h%.a%=dy%.a%=y|
00010080  79 25 0d 05 d6 2e e7 5f  25 3c 26 41 84 5f 25 3e  |y%....._%<&A._%>|
00010090  6a 25 2d 32 30 84 51 25  3e 6d 25 2d 36 30 84 51  |j%-20.Q%>m%-60.Q|
000100a0  25 3c 30 8c 6c 25 3d 30  8b 6c 25 2b 3d 94 68 25  |%<0.l%=0.l%+=.h%|
000100b0  0d 05 d7 31 e7 6c 25 3c  3e 30 8c 52 25 3d a4 41  |...1.l%<>0.R%=.A|
000100c0  79 28 6c 25 2c 5f 25 2d  26 41 2c 51 25 2c 6e 25  |y(l%,_%-&A,Q%,n%|
000100d0  2c 6d 25 2c 61 25 2b 26  41 2c 2d 6f 25 2d 34 30  |,m%,a%+&A,-o%-40|
000100e0  29 0d 05 d8 07 3d 52 25  0d 05 d9 6d dd f2 61 79  |)....=R%...m..ay|
000100f0  28 6c 25 2c 64 25 2c 75  25 2c 71 25 2c 78 25 2c  |(l%,d%,u%,q%,x%,|
00010100  68 25 2c 61 25 2c 4b 25  2c 73 25 2c 62 25 29 3a  |h%,a%,K%,s%,b%):|
00010110  ea 42 25 2c 43 25 2c 54  25 2c 51 25 2c 47 79 25  |.B%,C%,T%,Q%,Gy%|
00010120  2c 41 25 2c 41 5f 25 3a  47 79 25 3d 32 38 3a 41  |,A%,A_%:Gy%=28:A|
00010130  5f 25 3d a4 46 28 30 2c  30 2c 64 25 2c 71 25 2c  |_%=.F(0,0,d%,q%,|
00010140  78 25 29 3a e7 a4 53 28  61 25 2c 4b 25 2c 73 25  |x%):..S(a%,K%,s%|
00010150  2c 62 25 29 8c 0d 05 da  22 f2 56 28 30 2c 37 29  |,b%)....".V(0,7)|
00010160  3a e7 41 5f 25 3d a4 46  28 30 2c 30 2c a4 49 2c  |:.A_%=.F(0,0,.I,|
00010170  a4 56 2c a4 4c 29 8c 0d  05 db 38 c8 99 26 34 30  |.V,.L)....8..&40|
00010180  30 45 36 2c 21 53 4a 25  3a f2 6c 28 61 25 2d 34  |0E6,!SJ%:.l(a%-4|
00010190  2c 4b 25 2d 34 2c 73 25  2b 38 2c 2d 62 25 2d 38  |,K%-4,s%+8,-b%-8|
000101a0  2c 26 43 29 3a c8 99 26  34 30 30 45 36 2c 37 0d  |,&C):..&400E6,7.|
000101b0  05 dc 2a cd 3a ec 61 25  2c 4b 25 3a df 42 59 73  |..*.:.a%,K%:.BYs|
000101c0  25 2c 30 3a ec 42 59 30  2c 62 25 3a df 42 59 2d  |%,0:.BY0,b%:.BY-|
000101d0  73 25 2c 30 3a e7 68 25  8c 0d 05 dd 76 f2 4c 28  |s%,0:.h%....v.L(|
000101e0  76 6c 25 2c c3 64 25 2c  2d 31 2c 61 25 2b 73 25  |vl%,.d%,-1,a%+s%|
000101f0  2d 33 30 2c 4b 25 2d 36  29 3a f2 4c 28 76 5f 25  |-30,K%-6):.L(v_%|
00010200  2c a4 63 28 75 25 2c 2d  31 29 2c 31 2c 61 25 2b  |,.c(u%,-1),1,a%+|
00010210  73 25 2d 34 30 2c 4b 25  2d 36 29 3a e7 a4 53 28  |s%-40,K%-6):..S(|
00010220  61 25 2c 4b 25 2d 36 2c  73 25 2d 26 44 43 2c 2d  |a%,K%-6,s%-&DC,-|
00010230  32 34 29 8c f2 42 5f 28  75 25 2c 64 25 2c 71 25  |24)..B_(u%,d%,q%|
00010240  2c 78 25 2c 2d 31 2c 61  25 2c 4b 25 2d 36 29 0d  |,x%,-1,a%,K%-6).|
00010250  05 de 78 cc 3a f2 4c 28  76 6c 25 2c c3 64 25 2c  |..x.:.L(vl%,.d%,|
00010260  31 2c 61 25 2b 33 30 2c  4b 25 2d 36 29 3a f2 4c  |1,a%+30,K%-6):.L|
00010270  28 76 5f 25 2c a4 63 28  75 25 2c 2d 31 29 2c 2d  |(v_%,.c(u%,-1),-|
00010280  31 2c 61 25 2b 34 30 2c  4b 25 2d 36 29 3a e7 a4  |1,a%+40,K%-6):..|
00010290  53 28 61 25 2b 26 44 43  2c 4b 25 2d 36 2c 73 25  |S(a%+&DC,K%-6,s%|
000102a0  2d 26 44 43 2c 2d 32 34  29 8c f2 42 5f 28 75 25  |-&DC,-24)..B_(u%|
000102b0  2c 64 25 2c 71 25 2c 78  25 2c 31 2c 61 25 2b 73  |,d%,q%,x%,1,a%+s|
000102c0  25 2c 4b 25 2d 36 29 0d  05 df dd cd 3a 51 25 3d  |%,K%-6).....:Q%=|
000102d0  34 30 3a 54 25 3d a4 62  28 64 25 2c 71 25 29 3a  |40:T%=.b(d%,q%):|
000102e0  42 25 3d 2d 31 3a 41 25  3d 56 25 28 6c 25 29 3a  |B%=-1:A%=V%(l%):|
000102f0  43 25 3d 41 25 2d 54 25  3a c8 95 41 25 3e 30 80  |C%=A%-T%:..A%>0.|
00010300  54 25 3e 30 3a 42 25 3d  a4 6d 28 64 25 2c 71 25  |T%>0:B%=.m(d%,q%|
00010310  2c 42 25 29 3a 54 25 2d  3d 31 3a 41 25 2d 3d 31  |,B%):T%-=1:A%-=1|
00010320  3a ce 3a c8 95 54 25 3c  3e 30 80 51 25 2b 47 79  |:.:..T%<>0.Q%+Gy|
00010330  25 2d 35 3c 3d 2d 62 25  3a 42 25 3d a4 6d 28 64  |%-5<=-b%:B%=.m(d|
00010340  25 2c 71 25 2c 42 25 29  3a 54 25 2d 3d 31 3a f2  |%,q%,B%):T%-=1:.|
00010350  72 28 76 5f 25 2c a4 60  28 42 25 2c 78 25 29 2c  |r(v_%,.`(B%,x%),|
00010360  61 25 2b 33 30 2c 4b 25  2d 51 25 2d 32 30 2c 6a  |a%+30,K%-Q%-20,j|
00010370  25 2d 35 30 2c 47 79 25  29 3a 51 25 2b 3d 47 79  |%-50,Gy%):Q%+=Gy|
00010380  25 3a ce 3a 42 25 3d 6b  4a 25 3a 54 25 3d a4 46  |%:.:B%=kJ%:T%=.F|
00010390  28 30 2c 30 2c 64 25 2c  71 25 2c 78 25 29 3a 41  |(0,0,d%,q%,x%):A|
000103a0  25 3d 43 25 0d 05 e0 37  c8 95 41 25 3e 30 3a 42  |%=C%...7..A%>0:B|
000103b0  25 3d a4 78 28 42 25 2c  54 25 29 3a 42 25 3d 42  |%=.x(B%,T%):B%=B|
000103c0  25 21 34 3a 41 25 2d 3d  31 3a ce 3a e7 51 25 2b  |%!4:A%-=1:.:.Q%+|
000103d0  47 79 25 2d 35 3c 3d 2d  62 25 8c 0d 05 e1 53 f5  |Gy%-5<=-b%....S.|
000103e0  3a 42 25 3d a4 78 28 42  25 2c 54 25 29 3a e7 42  |:B%=.x(B%,T%):.B|
000103f0  25 3c 3e 2d 31 8c f2 72  28 76 5f 25 2c a4 6d 79  |%<>-1..r(v_%,.my|
00010400  28 42 25 29 2c 61 25 2b  33 30 2c 4b 25 2d 51 25  |(B%),a%+30,K%-Q%|
00010410  2d 32 30 2c 6a 25 2d 35  30 2c 47 79 25 29 3a 51  |-20,j%-50,Gy%):Q|
00010420  25 2b 3d 47 79 25 3a 42  25 3d 42 25 21 34 0d 05  |%+=Gy%:B%=B%!4..|
00010430  e2 17 fd 42 25 3d 2d 31  84 51 25 2b 47 79 25 2d  |...B%=-1.Q%+Gy%-|
00010440  35 3e 2d 62 25 0d 05 e3  42 cd 3a e7 a4 78 28 42  |5>-b%...B.:..x(B|
00010450  25 2c 54 25 29 3c 3e 2d  31 80 51 25 2b 47 79 25  |%,T%)<>-1.Q%+Gy%|
00010460  2d 35 3e 2d 62 25 8c ec  61 25 2c 4b 25 2b 62 25  |-5>-b%..a%,K%+b%|
00010470  2b 32 34 3a ec 42 59 32  30 2c 30 3a f0 38 31 2c  |+24:.BY20,0:.81,|
00010480  2d 26 41 2c 2d 32 30 0d  05 e4 2a e7 56 25 28 6c  |-&A,-20...*.V%(l|
00010490  25 29 3e 30 8c ec 61 25  2c 4b 25 2d 36 30 3a ec  |%)>0..a%,K%-60:.|
000104a0  42 59 32 30 2c 30 3a f0  38 31 2c 2d 26 41 2c 32  |BY20,0:.81,-&A,2|
000104b0  30 0d 05 e5 07 cd 3a e1  0d 05 e6 ef dd f2 54 4a  |0.....:.......TJ|
000104c0  3a ea 41 25 2c 46 25 2c  50 25 2c 42 25 2c 41 24  |:.A%,F%,P%,B%,A$|
000104d0  2c 43 25 2c 4c 25 3a 41  25 3d 31 3a f5 c8 99 26  |,C%,L%:A%=1:...&|
000104e0  36 31 35 30 32 2c 53 5f  25 2c 22 53 70 65 63 22  |61502,S_%,"Spec"|
000104f0  2b c3 41 25 2c 30 b8 2c  2c 50 25 3b 46 25 3a 41  |+.A%,0.,,P%;F%:A|
00010500  25 2b 3d 31 3a fd 46 25  80 31 3a 58 69 25 3d 41  |%+=1:.F%.1:Xi%=A|
00010510  25 2d 33 3a de 4a 25 28  41 25 2d 33 2c 34 29 3a  |%-3:.J%(A%-3,4):|
00010520  42 25 3d 30 3a c8 95 42  25 3c 3d 58 69 25 3a c8  |B%=0:..B%<=Xi%:.|
00010530  99 26 34 31 35 30 32 2c  53 5f 25 2c 22 53 70 65  |.&41502,S_%,"Spe|
00010540  63 22 2b c3 28 42 25 2b  31 29 2c 30 b8 2c 2c 50  |c"+.(B%+1),0.,,P|
00010550  25 2c 4c 25 3b 46 25 3a  50 25 3f 4c 25 3d 26 44  |%,L%;F%:P%?L%=&D|
00010560  3a e3 43 25 3d 31 b8 34  3a 4a 25 28 42 25 2c 43  |:.C%=1.4:J%(B%,C|
00010570  25 29 3d bb 28 24 50 25  29 3a c8 95 3f 50 25 3c  |%)=.($P%):..?P%<|
00010580  3e 34 34 3a 50 25 2b 3d  31 3a ce 3a 50 25 2b 3d  |>44:P%+=1:.:P%+=|
00010590  31 3a ed 3a 4a 25 28 42  25 2c 30 29 3d 50 25 3a  |1:.:J%(B%,0)=P%:|
000105a0  42 25 2b 3d 31 3a ce 0d  05 e7 d0 41 25 3d 31 3a  |B%+=1:.....A%=1:|
000105b0  f5 c8 99 26 36 31 35 30  32 2c 53 5f 25 2c 22 45  |...&61502,S_%,"E|
000105c0  61 73 74 65 72 22 2b c3  41 25 2c 30 b8 2c 2c 50  |aster"+.A%,0.,,P|
000105d0  25 3b 46 25 3a 41 25 2b  3d 31 3a fd 46 25 80 31  |%;F%:A%+=1:.F%.1|
000105e0  3a 4d 61 25 3d 41 25 2d  33 3a de 52 25 28 41 25  |:Ma%=A%-3:.R%(A%|
000105f0  2d 33 2c 31 29 3a 42 25  3d 30 3a c8 95 42 25 3c  |-3,1):B%=0:..B%<|
00010600  3d 41 25 2d 33 3a c8 99  26 34 31 35 30 32 2c 53  |=A%-3:..&41502,S|
00010610  5f 25 2c 22 45 61 73 74  65 72 22 2b c3 28 42 25  |_%,"Easter"+.(B%|
00010620  2b 31 29 2c 30 b8 2c 2c  50 25 2c 4c 25 3b 46 25  |+1),0.,,P%,L%;F%|
00010630  3a 50 25 3f 4c 25 3d 26  44 3a 52 25 28 42 25 2c  |:P%?L%=&D:R%(B%,|
00010640  31 29 3d bb 28 24 50 25  29 3a c8 95 3f 50 25 3c  |1)=.($P%):..?P%<|
00010650  3e 34 34 3a 50 25 2b 3d  31 3a ce 3a 50 25 2b 3d  |>44:P%+=1:.:P%+=|
00010660  31 3a 52 25 28 42 25 2c  30 29 3d 50 25 3a 42 25  |1:R%(B%,0)=P%:B%|
00010670  2b 3d 31 3a ce 3a e1 0d  05 e8 4b dd f2 42 5f 28  |+=1:.:....K..B_(|
00010680  4b 61 25 2c 63 25 2c 72  25 2c 78 25 2c 5f 75 25  |Ka%,c%,r%,x%,_u%|
00010690  2c 5f 25 2c 51 25 29 3a  ea 41 24 2c 4c 4a 25 2c  |,_%,Q%):.A$,LJ%,|
000106a0  4b 4a 25 2c 50 79 25 2c  41 25 3a e3 41 25 3d 30  |KJ%,Py%,A%:.A%=0|
000106b0  b8 58 69 25 3a e7 4a 25  28 41 25 2c 31 29 3d 72  |.Xi%:.J%(A%,1)=r|
000106c0  25 8c 0d 05 e9 4b e7 28  4a 25 28 41 25 2c 32 29  |%....K.(J%(A%,2)|
000106d0  3d 2d 31 84 4a 25 28 41  25 2c 32 29 3d 4b 61 25  |=-1.J%(A%,2)=Ka%|
000106e0  29 80 63 25 3e 3d 4a 25  28 41 25 2c 33 29 80 63  |).c%>=J%(A%,3).c|
000106f0  25 3c 3d 4a 25 28 41 25  2c 34 29 8c 41 24 2b 3d  |%<=J%(A%,4).A$+=|
00010700  24 4a 25 28 41 25 2c 30  29 2b 22 2f 22 0d 05 ea  |$J%(A%,0)+"/"...|
00010710  7a cd 3a ed 3a f2 76 4a  28 4c 4a 25 2c 4b 4a 25  |z.:.:.vJ(LJ%,KJ%|
00010720  2c 78 25 29 3a 41 25 3d  30 3a 50 79 25 3d 30 3a  |,x%):A%=0:Py%=0:|
00010730  c8 95 41 25 3c 3d 4d 61  25 3a f2 46 28 4c 4a 25  |..A%<=Ma%:.F(LJ%|
00010740  2c 4b 4a 25 2c 78 25 2c  52 25 28 41 25 2c 31 29  |,KJ%,x%,R%(A%,1)|
00010750  2d 50 79 25 2c 30 2c 30  29 3a 50 79 25 3d 52 25  |-Py%,0,0):Py%=R%|
00010760  28 41 25 2c 31 29 3a e7  4c 4a 25 3d 63 25 80 4b  |(A%,1):.LJ%=c%.K|
00010770  4a 25 3d 72 25 8c 41 24  2b 3d 24 52 25 28 41 25  |J%=r%.A$+=$R%(A%|
00010780  2c 30 29 2b 22 2f 22 0d  05 eb 48 41 25 2b 3d 31  |,0)+"/"...HA%+=1|
00010790  3a ce 3a e7 a7 c0 41 24  29 2c 22 2f 22 29 8c c8  |:.:...A$),"/")..|
000107a0  99 26 34 30 30 38 31 2c  2c 22 54 72 69 6e 69 74  |.&40081,,"Trinit|
000107b0  79 2e 4d 65 64 69 75 6d  22 2c 37 2a 31 36 2c 37  |y.Medium",7*16,7|
000107c0  2a 31 36 b8 50 79 25 8b  50 79 25 3d 68 6c 25 0d  |*16.Py%.Py%=hl%.|
000107d0  05 ec 22 e7 41 24 3c 3e  22 22 8c f2 4c 28 50 79  |..".A$<>""..L(Py|
000107e0  25 2c c0 41 24 29 2c 5f  75 25 2c 5f 25 2c 51 25  |%,.A$),_u%,_%,Q%|
000107f0  29 0d 05 ed 1a e7 50 79  25 3c 3e 68 6c 25 8c c8  |).....Py%<>hl%..|
00010800  99 26 34 30 30 38 32 2c  50 79 25 0d 05 ee 05 e1  |.&40082,Py%.....|
00010810  0d 05 ef 4b dd a4 41 79  28 6c 25 2c 5f 25 2c 51  |...K..Ay(l%,_%,Q|
00010820  25 2c 6e 25 2c 62 25 2c  61 25 2c 4b 25 29 3a ea  |%,n%,b%,a%,K%):.|
00010830  6e 79 25 2c 47 79 25 2c  41 25 2c 42 25 2c 64 25  |ny%,Gy%,A%,B%,d%|
00010840  2c 71 25 2c 78 25 2c 54  25 2c 46 25 2c 52 25 3a  |,q%,x%,T%,F%,R%:|
00010850  47 79 25 3d 32 38 3a c8  8e b9 ca 0d 05 f0 73 c9  |Gy%=28:.......s.|
00010860  5f 25 3e 3d 33 30 80 5f  25 3c 3d 6a 25 2d 32 30  |_%>=30._%<=j%-20|
00010870  80 51 25 3e 3d 34 30 3a  f2 50 28 76 25 2c 41 25  |.Q%>=40:.P(v%,A%|
00010880  2c 42 25 2c 64 25 2c 71  25 2c 78 25 29 3a f2 46  |,B%,d%,q%,x%):.F|
00010890  28 64 25 2c 71 25 2c 78  25 2c 6c 25 2d 31 2c 30  |(d%,q%,x%,l%-1,0|
000108a0  2c 30 29 3a 6e 79 25 3d  28 28 28 51 25 2d 34 30  |,0):ny%=(((Q%-40|
000108b0  2b 47 79 25 29 81 47 79  25 29 29 3a e7 6e 79 25  |+Gy%).Gy%)):.ny%|
000108c0  3e 30 8c 6e 79 25 2b 3d  56 25 28 6c 25 29 0d 05  |>0.ny%+=V%(l%)..|
000108d0  f1 38 e7 6e 79 25 3e 30  80 6e 79 25 3c 3d a4 62  |.8.ny%>0.ny%<=.b|
000108e0  28 64 25 2c 71 25 29 80  6e 25 3c 3e 32 8c f2 59  |(d%,q%).n%<>2..Y|
000108f0  5f 28 64 25 2c 71 25 2c  6e 79 25 2c 6e 25 29 3a  |_(d%,q%,ny%,n%):|
00010900  6e 79 25 3d 2d 31 0d 05  f2 19 e7 6e 79 25 3e 30  |ny%=-1.....ny%>0|
00010910  8c 6e 79 25 2d 3d a4 62  28 64 25 2c 71 25 29 0d  |.ny%-=.b(d%,q%).|
00010920  05 f3 0b e7 6e 79 25 3e  30 8c 0d 05 f4 60 54 25  |....ny%>0....`T%|
00010930  3d a4 46 28 30 2c 30 2c  64 25 2c 71 25 2c 78 25  |=.F(0,0,d%,q%,x%|
00010940  29 3a 42 25 3d 6b 4a 25  3a 42 25 3d a4 78 28 42  |):B%=kJ%:B%=.x(B|
00010950  25 2c 54 25 29 3a c8 95  6e 79 25 3e 31 80 42 25  |%,T%):..ny%>1.B%|
00010960  3c 3e 2d 31 3a 42 25 3d  42 25 21 34 3a 42 25 3d  |<>-1:B%=B%!4:B%=|
00010970  a4 78 28 42 25 2c 54 25  29 3a 6e 79 25 2d 3d 31  |.x(B%,T%):ny%-=1|
00010980  3a ce 3a e7 42 25 3d 2d  31 8c 0d 05 f5 1d e7 6e  |:.:.B%=-1......n|
00010990  25 3c 3e 32 8c f2 73 28  64 25 2c 71 25 2c 78 25  |%<>2..s(d%,q%,x%|
000109a0  29 3a 51 4a 25 3d b9 0d  05 f6 0b cc 3a c8 8e 6e  |):QJ%=......:..n|
000109b0  25 ca 0d 05 f7 14 c9 34  3a f2 4f 79 28 42 25 29  |%......4:.Oy(B%)|
000109c0  3a 51 4a 25 3d b9 0d 05  f8 0c c9 32 3a 52 25 3d  |:QJ%=......2:R%=|
000109d0  42 25 0d 05 f9 14 c9 31  3a f2 55 5f 28 42 25 29  |B%.....1:.U_(B%)|
000109e0  3a 51 4a 25 3d b9 0d 05  fa 05 cb 0d 05 fb 05 cd  |:QJ%=...........|
000109f0  0d 05 fc 13 cc 3a e7 6e  25 3c 3e 32 80 6e 79 25  |.....:.n%<>2.ny%|
00010a00  3d 30 8c 0d 05 fd 42 f2  50 28 76 25 2c 41 25 2c  |=0....B.P(v%,A%,|
00010a10  42 25 2c 64 25 2c 71 25  2c 78 25 29 3a f2 46 28  |B%,d%,q%,x%):.F(|
00010a20  64 25 2c 71 25 2c 78 25  2c 6c 25 2d 31 2c 30 2c  |d%,q%,x%,l%-1,0,|
00010a30  30 29 3a f2 73 28 64 25  2c 71 25 2c 78 25 29 3a  |0):.s(d%,q%,x%):|
00010a40  51 4a 25 3d b9 0d 05 fe  05 cd 0d 05 ff 05 cd 0d  |QJ%=............|
00010a50  06 00 09 c9 6e 25 3d 32  0d 06 01 e3 c9 5f 25 3c  |....n%=2....._%<|
00010a60  3d 32 30 80 51 25 3e 3d  62 25 2d 32 30 3a f2 50  |=20.Q%>=b%-20:.P|
00010a70  28 76 25 2c 41 25 2c 42  25 2c 64 25 2c 71 25 2c  |(v%,A%,B%,d%,q%,|
00010a80  78 25 29 3a f2 46 28 64  25 2c 71 25 2c 78 25 2c  |x%):.F(d%,q%,x%,|
00010a90  6c 25 2d 31 2c 30 2c 30  29 3a 54 25 3d a4 46 28  |l%-1,0,0):T%=.F(|
00010aa0  30 2c 30 2c 64 25 2c 71  25 2c 78 25 29 3a 6e 79  |0,0,d%,q%,x%):ny|
00010ab0  25 3d 2d 28 28 62 25 2d  34 30 29 81 47 79 25 29  |%=-((b%-40).Gy%)|
00010ac0  3a 42 25 3d a4 78 28 6b  4a 25 2c 54 25 29 3a c8  |:B%=.x(kJ%,T%):.|
00010ad0  95 42 25 3c 3e 2d 31 3a  42 25 3d 42 25 21 34 3a  |.B%<>-1:B%=B%!4:|
00010ae0  42 25 3d a4 78 28 42 25  2c 54 25 29 3a 6e 79 25  |B%=.x(B%,T%):ny%|
00010af0  2b 3d 31 3a ce 3a 6e 79  25 2b 3d a4 62 28 64 25  |+=1:.:ny%+=.b(d%|
00010b00  2c 71 25 29 3a e7 56 25  28 6c 25 29 3c 6e 79 25  |,q%):.V%(l%)<ny%|
00010b10  8c 56 25 28 6c 25 29 2b  3d 31 3a f2 44 28 69 25  |.V%(l%)+=1:.D(i%|
00010b20  2c 61 25 2c 4b 25 2d 34  30 2c 61 25 2b 6a 25 2d  |,a%,K%-40,a%+j%-|
00010b30  26 41 2c 4b 25 2d 62 25  2b 34 29 0d 06 02 4e c9  |&A,K%-b%+4)...N.|
00010b40  5f 25 3c 3d 32 30 80 51  25 3c 3d 36 30 80 51 25  |_%<=20.Q%<=60.Q%|
00010b50  3e 3d 34 30 80 56 25 28  6c 25 29 3c 3e 30 3a 56  |>=40.V%(l%)<>0:V|
00010b60  25 28 6c 25 29 2d 3d 31  3a f2 44 28 69 25 2c 61  |%(l%)-=1:.D(i%,a|
00010b70  25 2c 4b 25 2d 34 30 2c  61 25 2b 6a 25 2d 26 41  |%,K%-40,a%+j%-&A|
00010b80  2c 4b 25 2d 62 25 2b 34  29 0d 06 03 19 c9 5f 25  |,K%-b%+4)....._%|
00010b90  3c 3d 32 30 80 51 25 3c  3d 36 30 80 51 25 3e 3d  |<=20.Q%<=60.Q%>=|
00010ba0  34 30 0d 06 04 44 7f 3a  f2 50 28 76 25 2c 41 25  |40...D.:.P(v%,A%|
00010bb0  2c 42 25 2c 64 25 2c 71  25 2c 78 25 29 3a f2 46  |,B%,d%,q%,x%):.F|
00010bc0  28 64 25 2c 71 25 2c 78  25 2c 6c 25 2d 31 2c 30  |(d%,q%,x%,l%-1,0|
00010bd0  2c 30 29 3a f2 73 28 64  25 2c 71 25 2c 78 25 29  |,0):.s(d%,q%,x%)|
00010be0  3a 51 4a 25 3d b9 0d 06  05 09 cb 3a 3d 52 25 0d  |:QJ%=......:=R%.|
00010bf0  06 06 4a dd a4 78 28 42  25 2c 54 25 29 3a ea 41  |..J..x(B%,T%):.A|
00010c00  25 3a 41 25 3d 2d 31 3a  c8 95 42 25 3c 3e 2d 31  |%:A%=-1:..B%<>-1|
00010c10  80 41 25 3d 2d 31 3a 41  25 3d a4 47 28 a4 6e 28  |.A%=-1:A%=.G(.n(|
00010c20  42 25 21 26 43 29 2c 54  25 29 3a e7 41 25 3d 2d  |B%!&C),T%):.A%=-|
00010c30  31 8c 42 25 3d 42 25 21  34 0d 06 07 17 ce 3a e7  |1.B%=B%!4.....:.|
00010c40  41 25 3d 30 8c 41 25 3d  42 25 8b 41 25 3d 2d 31  |A%=0.A%=B%.A%=-1|
00010c50  0d 06 08 07 3d 41 25 0d  06 09 92 dd a4 6d 79 28  |....=A%......my(|
00010c60  42 25 29 3a ea 41 24 2c  41 25 2c 43 25 2c 5a 24  |B%):.A$,A%,C%,Z$|
00010c70  2c 54 25 3a 43 25 3d 28  42 25 21 31 36 3e 3e 34  |,T%:C%=(B%!16>>4|
00010c80  29 80 26 46 3a 54 25 3d  42 25 21 31 36 80 28 31  |).&F:T%=B%!16.(1|
00010c90  3c 3c 32 31 29 3a 43 25  2d 3d 6d 5f 25 2a 28 43  |<<21):C%-=m_%*(C|
00010ca0  25 3d 30 29 3a f2 56 28  30 2c 43 25 29 3a e7 28  |%=0):.V(0,C%):.(|
00010cb0  28 42 25 21 31 36 3e 3e  31 29 80 31 29 3d 31 8c  |(B%!16>>1).1)=1.|
00010cc0  5a 24 3d a4 6f 79 28 a4  58 79 28 42 25 21 26 43  |Z$=.oy(.Xy(B%!&C|
00010cd0  29 2c a4 76 79 28 42 25  21 26 43 29 2c 2d 31 2c  |),.vy(B%!&C),-1,|
00010ce0  54 75 25 29 2b 22 20 20  22 0d 06 0a 42 42 25 2b  |Tu%)+"  "...BB%+|
00010cf0  3d 32 30 3a e3 41 25 3d  31 b8 33 3a c8 95 3f 42  |=20:.A%=1.3:..?B|
00010d00  25 3c 3e 26 42 3a 41 24  2b 3d bd 3f 42 25 3a 42  |%<>&B:A$+=.?B%:B|
00010d10  25 2b 3d 31 3a ce 3a e7  41 25 3c 3e 33 8c 41 24  |%+=1:.:.A%<>3.A$|
00010d20  2b 3d 22 20 22 3a 42 25  2b 3d 31 0d 06 0b 2b ed  |+=" ":B%+=1...+.|
00010d30  3a e7 54 25 3e 30 80 c0  41 24 2c 31 29 3d 22 3d  |:.T%>0..A$,1)="=|
00010d40  22 8c 41 24 3d c1 41 24  2c 32 2c a7 41 24 2c 22  |".A$=.A$,2,.A$,"|
00010d50  2a 22 29 2d 32 29 0d 06  0c 0a 3d 5a 24 2b 41 24  |*")-2)....=Z$+A$|
00010d60  0d 06 0d a1 dd f2 76 5f  28 53 24 29 3a ea 41 24  |......v_(S$):.A$|
00010d70  2c 60 69 25 2c 65 3a f2  5a 28 66 25 2c 33 39 2c  |,`i%,e:.Z(f%,39,|
00010d80  31 29 3a 41 24 3d a4 5a  28 66 25 2c 31 36 29 3a  |1):A$=.Z(f%,16):|
00010d90  60 69 25 3d a9 41 24 3a  f2 41 28 66 25 2c 31 36  |`i%=.A$:.A(f%,16|
00010da0  2c 41 24 2b 53 24 29 3a  71 6c 25 3d a9 a4 5a 28  |,A$+S$):ql%=..Z(|
00010db0  66 25 2c 31 36 29 3a 53  24 3d c1 53 24 2c 71 6c  |f%,16):S$=.S$,ql|
00010dc0  25 2d 60 69 25 2b 31 29  3a f2 41 28 66 25 2c 31  |%-`i%+1):.A(f%,1|
00010dd0  37 2c 53 24 29 3a 71 6c  25 3d a9 a4 5a 28 66 25  |7,S$):ql%=..Z(f%|
00010de0  2c 31 36 29 3a 53 24 3d  c1 53 24 2c 71 6c 25 2b  |,16):S$=.S$,ql%+|
00010df0  31 29 3a f2 41 28 66 25  2c 31 38 2c 53 24 29 3a  |1):.A(f%,18,S$):|
00010e00  e1 0d 06 0e e6 dd f2 73  28 63 25 2c 72 25 2c 51  |.......s(c%,r%,Q|
00010e10  25 29 3a ea 41 25 2c 62  25 2c 4b 5f 25 3a e3 41  |%):.A%,b%,K_%:.A|
00010e20  25 3d 31 36 b8 31 38 3a  f2 41 28 66 25 2c 41 25  |%=16.18:.A(f%,A%|
00010e30  2c 22 22 29 3a f2 55 28  66 25 2c 41 25 2c 6d 5f  |,""):.U(f%,A%,m_|
00010e40  25 29 3a ed 3a f2 5a 28  66 25 2c 32 34 2c 30 29  |%):.:.Z(f%,24,0)|
00010e50  3a 68 4a 25 3d 30 3a f2  5a 28 66 25 2c 32 31 2c  |:hJ%=0:.Z(f%,21,|
00010e60  94 28 28 54 5f 25 80 34  29 3e 30 29 29 3a f2 5a  |.((T_%.4)>0)):.Z|
00010e70  28 66 25 2c 32 33 2c 94  28 28 54 5f 25 80 32 29  |(f%,23,.((T_%.2)|
00010e80  3e 30 29 29 3a f2 5a 28  66 25 2c 33 38 2c 94 28  |>0)):.Z(f%,38,.(|
00010e90  28 54 5f 25 80 31 29 3e  30 29 29 3a f2 53 28 66  |(T_%.1)>0)):.S(f|
00010ea0  25 2c 32 31 2c 94 28 28  54 5f 25 80 31 29 3e 30  |%,21,.((T_%.1)>0|
00010eb0  29 29 3a f2 5a 28 66 25  2c 33 39 2c 30 29 3a f2  |)):.Z(f%,39,0):.|
00010ec0  4a 79 28 32 36 29 3a f2  41 28 66 25 2c 32 37 2c  |Jy(26):.A(f%,27,|
00010ed0  22 31 22 29 3a f2 41 28  66 25 2c 33 30 2c a4 41  |"1"):.A(f%,30,.A|
00010ee0  28 22 45 31 22 29 29 0d  06 0f d3 63 75 25 3d 31  |("E1"))....cu%=1|
00010ef0  3a 66 75 25 3d 31 3a 76  75 25 3d 31 3a 74 75 25  |:fu%=1:vu%=1:tu%|
00010f00  3d 31 3a f2 53 28 66 25  2c 33 37 2c 31 29 3a f2  |=1:.S(f%,37,1):.|
00010f10  41 28 66 25 2c 33 33 2c  a4 41 28 22 4f 54 31 22  |A(f%,33,.A("OT1"|
00010f20  29 29 3a f2 41 28 66 25  2c 33 34 2c a4 41 28 22  |)):.A(f%,34,.A("|
00010f30  44 61 79 31 22 29 29 3a  f2 41 28 66 25 2c 33 35  |Day1")):.A(f%,35|
00010f40  2c a4 41 28 22 4f 45 31  22 29 29 3a f2 41 28 66  |,.A("OE1")):.A(f|
00010f50  25 2c 31 2c a4 51 28 63  25 2c 72 25 2c 51 25 2c  |%,1,.Q(c%,r%,Q%,|
00010f60  2d 31 29 29 3a 57 5f 25  3d 63 25 3a 43 5f 25 3d  |-1)):W_%=c%:C_%=|
00010f70  72 25 3a 62 5f 25 3d 51  25 3a 62 25 3d a4 66 3a  |r%:b_%=Q%:b%=.f:|
00010f80  72 25 3d a4 69 3a 4b 5f  25 3d 28 62 25 3e 3d 26  |r%=.i:K_%=(b%>=&|
00010f90  43 29 3a f2 69 28 66 25  2c 51 6c 25 2c a4 41 28  |C):.i(f%,Ql%,.A(|
00010fa0  22 61 6c 73 65 74 22 29  2c 2d 31 29 3a e7 62 25  |"alset"),-1):.b%|
00010fb0  3e 26 43 8c 62 25 2d 3d  26 43 0d 06 10 49 f2 41  |>&C.b%-=&C...I.A|
00010fc0  28 66 25 2c 33 2c c3 62  25 29 3a f2 41 28 66 25  |(f%,3,.b%):.A(f%|
00010fd0  2c 35 2c 22 30 30 22 29  3a e7 4b 5f 25 8c f2 41  |,5,"00"):.K_%..A|
00010fe0  28 66 25 2c 26 43 2c a4  41 28 22 70 6d 22 29 29  |(f%,&C,.A("pm"))|
00010ff0  8b f2 41 28 66 25 2c 26  43 2c a4 41 28 22 61 6d  |..A(f%,&C,.A("am|
00011000  22 29 29 0d 06 11 21 f2  59 28 30 2c 72 25 29 3a  |"))...!.Y(0,r%):|
00011010  f2 49 79 28 b9 2c b9 29  3a f2 4d 28 66 25 2c 31  |.Iy(.,.):.M(f%,1|
00011020  36 29 3a e1 0d 06 12 42  dd f2 55 5f 28 42 25 29  |6):....B..U_(B%)|
00011030  3a f2 4f 79 28 42 25 29  3a 4c 5f 25 3d 2d 31 3a  |:.Oy(B%):L_%=-1:|
00011040  f2 53 28 66 25 2c 33 37  2c 31 29 3a f2 69 28 66  |.S(f%,37,1):.i(f|
00011050  25 2c 51 6c 25 2c a4 41  28 22 61 6c 73 65 74 22  |%,Ql%,.A("alset"|
00011060  29 2c 30 29 3a e1 0d 06  13 73 dd f2 4f 79 28 42  |),0):....s..Oy(B|
00011070  25 29 3a ea 64 25 2c 71  25 2c 78 25 2c 62 25 2c  |%):.d%,q%,x%,b%,|
00011080  72 25 2c 41 24 2c 63 69  25 2c 52 25 3a f2 50 28  |r%,A$,ci%,R%:.P(|
00011090  42 25 21 26 43 2c 72 25  2c 62 25 2c 64 25 2c 71  |B%!&C,r%,b%,d%,q|
000110a0  25 2c 78 25 29 3a 4c 5f  25 3d 42 25 3a e7 62 25  |%,x%):L_%=B%:.b%|
000110b0  3c 26 43 8c 41 24 3d a4  41 28 22 61 6d 22 29 8b  |<&C.A$=.A("am").|
000110c0  41 24 3d a4 41 28 22 70  6d 22 29 3a e7 62 25 3e  |A$=.A("pm"):.b%>|
000110d0  26 43 8c 62 25 2d 3d 26  43 0d 06 14 1c f2 41 28  |&C.b%-=&C.....A(|
000110e0  66 25 2c 26 43 2c 41 24  29 3a e7 62 25 3d 30 8c  |f%,&C,A$):.b%=0.|
000110f0  62 25 3d 26 43 0d 06 15  35 f2 5a 28 66 25 2c 33  |b%=&C...5.Z(f%,3|
00011100  38 2c 28 28 42 25 21 31  36 3e 3e 32 30 29 80 31  |8,((B%!16>>20).1|
00011110  29 29 3a 41 24 3d c3 72  25 3a e7 72 25 3c 26 41  |)):A$=.r%:.r%<&A|
00011120  8c 41 24 3d 22 30 22 2b  41 24 0d 06 16 32 f2 41  |.A$="0"+A$...2.A|
00011130  28 66 25 2c 35 2c 41 24  29 3a 68 4a 25 3d 28 28  |(f%,5,A$):hJ%=((|
00011140  42 25 21 31 36 29 3e 3e  34 29 80 26 46 3a e7 68  |B%!16)>>4).&F:.h|
00011150  4a 25 3d 30 8c 68 4a 25  3d 6d 5f 25 0d 06 17 f5  |J%=0.hJ%=m_%....|
00011160  e3 41 25 3d 31 36 b8 31  38 3a f2 55 28 66 25 2c  |.A%=16.18:.U(f%,|
00011170  41 25 2c 68 4a 25 29 3a  ed 3a f2 53 28 66 25 2c  |A%,hJ%):.:.S(f%,|
00011180  33 37 2c 30 29 3a f2 41  28 66 25 2c 33 2c c3 62  |37,0):.A(f%,3,.b|
00011190  25 29 3a f2 69 28 66 25  2c 51 6c 25 2c a4 41 28  |%):.i(f%,Ql%,.A(|
000111a0  22 61 6c 65 64 69 74 22  29 2c 2d 31 29 3a f2 41  |"aledit"),-1):.A|
000111b0  28 66 25 2c 31 2c a4 51  28 64 25 2c 71 25 2c 78  |(f%,1,.Q(d%,q%,x|
000111c0  25 2c 2d 31 29 29 3a 57  5f 25 3d 64 25 3a 43 5f  |%,-1)):W_%=d%:C_|
000111d0  25 3d 71 25 3a 62 5f 25  3d 78 25 3a f2 5a 28 66  |%=q%:b_%=x%:.Z(f|
000111e0  25 2c 32 31 2c 94 28 28  28 42 25 21 31 36 29 80  |%,21,.(((B%!16).|
000111f0  31 29 3d 31 29 29 3a f2  5a 28 66 25 2c 32 33 2c  |1)=1)):.Z(f%,23,|
00011200  94 28 28 28 42 25 21 31  36 29 80 32 29 3d 32 29  |.(((B%!16).2)=2)|
00011210  29 3a f2 5a 28 66 25 2c  33 39 2c 94 28 28 42 25  |):.Z(f%,39,.((B%|
00011220  21 31 36 80 28 31 3c 3c  32 31 29 29 3e 31 29 29  |!16.(1<<21))>1))|
00011230  3a f2 41 28 66 25 2c 32  37 2c 22 31 22 29 3a f2  |:.A(f%,27,"1"):.|
00011240  41 28 66 25 2c 33 30 2c  a4 41 28 22 45 31 22 29  |A(f%,30,.A("E1")|
00011250  29 0d 06 18 70 63 75 25  3d 31 3a 66 75 25 3d 31  |)...pcu%=1:fu%=1|
00011260  3a 76 75 25 3d 31 3a 74  75 25 3d 31 3a f2 4a 79  |:vu%=1:tu%=1:.Jy|
00011270  28 32 36 29 3a f2 41 28  66 25 2c 33 33 2c a4 41  |(26):.A(f%,33,.A|
00011280  28 22 4f 54 31 22 29 29  3a f2 41 28 66 25 2c 33  |("OT1")):.A(f%,3|
00011290  34 2c a4 41 28 22 44 61  79 31 22 29 29 3a f2 41  |4,.A("Day1")):.A|
000112a0  28 66 25 2c 33 35 2c a4  41 28 22 4f 45 31 22 29  |(f%,35,.A("OE1")|
000112b0  29 3a e7 28 28 42 25 21  31 36 29 80 34 29 3d 34  |):.((B%!16).4)=4|
000112c0  8c 0d 06 19 25 63 69 25  3d b9 3a f2 5a 28 66 25  |....%ci%=.:.Z(f%|
000112d0  2c 32 34 2c 31 29 3a e7  28 28 42 25 21 31 36 29  |,24,1):.((B%!16)|
000112e0  80 38 29 3d 38 8c 0d 06  1a 52 52 25 3d 28 28 42  |.8)=8....RR%=((B|
000112f0  25 21 31 36 29 3e 3e 38  29 80 26 46 46 3a f2 41  |%!16)>>8).&FF:.A|
00011300  28 66 25 2c 32 37 2c c3  52 25 29 3a 63 75 25 3d  |(f%,27,.R%):cu%=|
00011310  28 28 42 25 21 31 36 29  3e 3e 31 36 29 80 26 46  |((B%!16)>>16).&F|
00011320  3a f2 41 28 66 25 2c 33  30 2c a4 57 28 73 4a 25  |:.A(f%,30,.W(sJ%|
00011330  2c 63 75 25 2d 31 29 29  0d 06 1b 93 cc 3a f2 4a  |,cu%-1)).....:.J|
00011340  79 28 33 31 29 3a 66 75  25 3d 28 28 42 25 21 31  |y(31):fu%=((B%!1|
00011350  36 29 3e 3e 38 29 80 26  46 3a f2 41 28 66 25 2c  |6)>>8).&F:.A(f%,|
00011360  33 33 2c a4 57 28 65 6c  25 2c 66 75 25 2d 31 29  |33,.W(el%,fu%-1)|
00011370  29 3a 76 75 25 3d 28 28  42 25 21 31 36 29 3e 3e  |):vu%=((B%!16)>>|
00011380  26 43 29 80 26 46 3a f2  41 28 66 25 2c 33 34 2c  |&C).&F:.A(f%,34,|
00011390  a4 57 28 78 6c 25 2c 76  75 25 2d 31 29 29 3a 74  |.W(xl%,vu%-1)):t|
000113a0  75 25 3d 28 28 42 25 21  31 36 29 3e 3e 31 36 29  |u%=((B%!16)>>16)|
000113b0  80 26 46 3a f2 41 28 66  25 2c 33 35 2c a4 57 28  |.&F:.A(f%,35,.W(|
000113c0  61 6c 25 2c 74 75 25 2d  31 29 29 0d 06 1c 05 cd  |al%,tu%-1)).....|
000113d0  0d 06 1d 10 cc f2 5a 28  66 25 2c 32 34 2c 30 29  |......Z(f%,24,0)|
000113e0  0d 06 1e 64 cd 3a 42 25  2b 3d 32 30 3a e3 41 25  |...d.:B%+=20:.A%|
000113f0  3d 31 36 b8 31 38 3a 41  24 3d 22 22 3a c8 95 3f  |=16.18:A$="":..?|
00011400  42 25 3c 3e 26 42 3a 41  24 2b 3d bd 3f 42 25 3a  |B%<>&B:A$+=.?B%:|
00011410  42 25 2b 3d 31 3a ce 3a  42 25 2b 3d 31 3a f2 41  |B%+=1:.:B%+=1:.A|
00011420  28 66 25 2c 41 25 2c 41  24 29 3a ed 3a f2 49 79  |(f%,A%,A$):.:.Iy|
00011430  28 ac 63 69 25 2c b9 29  3a f2 4d 28 66 25 2c 31  |(.ci%,.):.M(f%,1|
00011440  36 29 3a e1 0d 06 1f 66  dd f2 49 79 28 4c 61 25  |6):....f..Iy(La%|
00011450  2c 49 4a 25 29 3a 21 4a  25 3d 66 25 3a c8 99 26  |,IJ%):!J%=f%:..&|
00011460  34 30 30 43 42 2c 2c 4a  25 3a e7 49 4a 25 8c 4a  |400CB,,J%:.IJ%.J|
00011470  25 21 32 38 3d 2d 31 3a  4a 25 21 34 3d a4 64 2d  |%!28=-1:J%!4=.d-|
00011480  26 36 34 2d 28 4a 25 21  26 43 2d 4a 25 21 34 29  |&64-(J%!&C-J%!4)|
00011490  3a 4a 25 21 26 43 3d 4a  25 21 34 2b 26 33 45 38  |:J%!&C=J%!4+&3E8|
000114a0  3a 4a 25 21 31 36 3d 39  30 30 0d 06 20 29 4a 25  |:J%!16=900.. )J%|
000114b0  21 38 3d 4a 25 21 31 36  20 2d 26 37 44 30 2a 94  |!8=J%!16 -&7D0*.|
000114c0  ac 4c 61 25 3a c8 99 26  34 30 30 43 35 2c 2c 4a  |.La%:..&400C5,,J|
000114d0  25 3a e1 0d 06 21 57 dd  f2 63 4a 28 4c 61 25 2c  |%:...!W..cJ(La%,|
000114e0  49 4a 25 29 3a 21 4a 25  3d 4c 79 25 3a c8 99 26  |IJ%):!J%=Ly%:..&|
000114f0  34 30 30 43 42 2c 2c 4a  25 3a e7 49 4a 25 8c 4a  |400CB,,J%:.IJ%.J|
00011500  25 21 32 38 3d 2d 31 3a  4a 25 21 34 3d 26 36 34  |%!28=-1:J%!4=&64|
00011510  3a 4a 25 21 26 43 3d 4a  25 21 34 2b 26 33 45 38  |:J%!&C=J%!4+&3E8|
00011520  3a 4a 25 21 31 36 3d 39  30 30 0d 06 22 29 4a 25  |:J%!16=900..")J%|
00011530  21 38 3d 4a 25 21 31 36  20 2d 26 37 44 30 2a 94  |!8=J%!16 -&7D0*.|
00011540  ac 4c 61 25 3a c8 99 26  34 30 30 43 35 2c 2c 4a  |.La%:..&400C5,,J|
00011550  25 3a e1 0d 06 23 6b dd  f2 4a 79 28 77 25 29 3a  |%:...#k..Jy(w%):|
00011560  ea 41 25 3a f2 5a 28 66  25 2c 77 25 2c 31 29 3a  |.A%:.Z(f%,w%,1):|
00011570  f2 5a 28 66 25 2c 35 37  2d 77 25 2c 30 29 3a e3  |.Z(f%,57-w%,0):.|
00011580  41 25 3d 32 37 b8 33 30  3a f2 53 28 66 25 2c 41  |A%=27.30:.S(f%,A|
00011590  25 2c 2d 28 77 25 3d 33  31 29 29 3a ed 3a e3 41  |%,-(w%=31)):.:.A|
000115a0  25 3d 33 33 b8 33 35 3a  f2 53 28 66 25 2c 41 25  |%=33.35:.S(f%,A%|
000115b0  2c 2d 28 77 25 3d 32 36  29 29 3a ed 3a e1 0d 06  |,-(w%=26)):.:...|
000115c0  24 4f dd f2 4a 5f 3a ea  46 25 2c 63 25 2c 72 25  |$O..J_:.F%,c%,r%|
000115d0  2c 51 25 2c 6d 79 25 2c  4c 75 25 2c 47 79 25 2c  |,Q%,my%,Lu%,Gy%,|
000115e0  42 25 2c 6d 75 25 2c 66  4a 25 2c 6a 79 25 3a f2  |B%,mu%,fJ%,jy%:.|
000115f0  50 28 71 4a 25 2c 46 25  2c 42 25 2c 6d 75 25 2c  |P(qJ%,F%,B%,mu%,|
00011600  66 4a 25 2c 6a 79 25 29  3a c8 8e b9 ca 0d 06 25  |fJ%,jy%):......%|
00011610  0f c9 44 5f 25 3d 31 3a  46 25 3d b9 0d 06 26 43  |..D_%=1:F%=...&C|
00011620  c9 44 5f 25 3d 32 80 28  a4 44 28 55 79 25 2c 62  |.D_%=2.(.D(Uy%,b|
00011630  79 25 2c 46 79 25 29 3e  a4 44 28 6d 75 25 2c 66  |y%,Fy%)>.D(mu%,f|
00011640  4a 25 2c 6a 79 25 29 2d  a4 48 28 6d 75 25 2c 66  |J%,jy%)-.H(mu%,f|
00011650  4a 25 2c 6a 79 25 29 2b  37 29 3a 46 25 3d b9 0d  |J%,jy%)+7):F%=..|
00011660  06 27 15 c9 44 5f 25 3d  33 80 55 79 25 3d 31 3a  |.'..D_%=3.Uy%=1:|
00011670  46 25 3d b9 0d 06 28 09  7f 46 25 3d a3 0d 06 29  |F%=...(..F%=...)|
00011680  0f cb 3a e7 46 25 80 ac  56 79 25 8c 0d 06 2a 1a  |..:.F%..Vy%...*.|
00011690  e7 74 25 3c 3e a4 50 28  33 29 80 49 75 25 8c f2  |.t%<>.P(3).Iu%..|
000116a0  43 5f 28 74 25 29 0d 06  2b 29 74 25 3d a4 50 28  |C_(t%)..+)t%=.P(|
000116b0  33 29 3a f2 49 28 55 79  25 2c 62 79 25 2c 46 79  |3):.I(Uy%,by%,Fy|
000116c0  25 29 3a f2 78 28 69 25  2c 2d 31 2c 2d 31 29 0d  |%):.x(i%,-1,-1).|
000116d0  06 2c 20 cd 3a 6d 79 25  3d 30 3a 4c 75 25 3d 30  |., .:my%=0:Lu%=0|
000116e0  3a 47 79 25 3d 30 3a e7  6c 79 25 3c 3e 30 8c 0d  |:Gy%=0:.ly%<>0..|
000116f0  06 2d 0d c8 8e 6c 79 25  3e 3e 34 ca 0d 06 2e 11  |.-...ly%>>4.....|
00011700  c9 30 3a 6d 79 25 3d 6c  79 25 80 26 46 0d 06 2f  |.0:my%=ly%.&F../|
00011710  15 c9 31 3a 6d 79 25 3d  37 2a 28 6c 79 25 80 26  |..1:my%=7*(ly%.&|
00011720  46 29 0d 06 30 11 c9 32  3a 4c 75 25 3d 6c 79 25  |F)..0..2:Lu%=ly%|
00011730  80 26 46 0d 06 31 11 c9  33 3a 47 79 25 3d 6c 79  |.&F..1..3:Gy%=ly|
00011740  25 80 26 46 0d 06 32 87  cb 3a 63 25 3d 55 79 25  |%.&F..2..:c%=Uy%|
00011750  3a 72 25 3d 62 79 25 3a  51 25 3d 46 79 25 3a f2  |:r%=by%:Q%=Fy%:.|
00011760  46 28 63 25 2c 72 25 2c  51 25 2c 2d 6d 79 25 2c  |F(c%,r%,Q%,-my%,|
00011770  2d 4c 75 25 2c 2d 47 79  25 29 3a 46 25 3d a4 46  |-Lu%,-Gy%):F%=.F|
00011780  28 30 2c 30 2c 63 25 2c  72 25 2c 51 25 29 3a 42  |(0,0,c%,r%,Q%):B|
00011790  25 3d 4d 5f 25 3a 63 25  3d b9 3a c8 95 42 25 3c  |%=M_%:c%=.:..B%<|
000117a0  3e 2d 31 80 63 25 3a e7  a4 47 28 42 25 21 26 43  |>-1.c%:..G(B%!&C|
000117b0  2c 46 25 29 3d 2d 31 8c  f2 6b 28 42 25 29 3a 42  |,F%)=-1..k(B%):B|
000117c0  25 3d 42 25 21 34 8b 63  25 3d a3 0d 06 33 05 ce  |%=B%!4.c%=...3..|
000117d0  0d 06 34 07 cd 3a e1 0d  06 35 5a dd f2 4e 5f 3a  |..4..:...5Z..N_:|
000117e0  ea 41 5f 25 2c 62 25 2c  72 25 2c 4b 5f 25 2c 41  |.A_%,b%,r%,K_%,A|
000117f0  24 2c 5a 24 2c 43 24 2c  50 79 25 3a 41 24 3d a4  |$,Z$,C$,Py%:A$=.|
00011800  5a 28 66 25 2c 31 36 29  3a 5a 24 3d a4 5a 28 66  |Z(f%,16):Z$=.Z(f|
00011810  25 2c 31 37 29 3a 43 24  3d a4 5a 28 66 25 2c 31  |%,17):C$=.Z(f%,1|
00011820  38 29 3a e7 41 24 2b 5a  24 2b 43 24 3c 3e 22 22  |8):.A$+Z$+C$<>""|
00011830  8c 0d 06 36 29 62 25 3d  bb a4 5a 28 66 25 2c 33  |...6)b%=..Z(f%,3|
00011840  29 3a 72 25 3d bb a4 5a  28 66 25 2c 35 29 3a e7  |):r%=..Z(f%,5):.|
00011850  62 25 3d 26 43 8c 62 25  3d 30 0d 06 37 28 4b 5f  |b%=&C.b%=0..7(K_|
00011860  25 3d 28 a4 5a 28 66 25  2c 26 43 29 3d a4 41 28  |%=(.Z(f%,&C)=.A(|
00011870  22 70 6d 22 29 29 3a e7  4b 5f 25 8c 62 25 2b 3d  |"pm")):.K_%.b%+=|
00011880  26 43 0d 06 38 6d 50 79  25 3d 50 79 25 84 28 2d  |&C..8mPy%=Py%.(-|
00011890  a4 4d 28 66 25 2c 32 31  29 29 84 28 28 2d a4 4d  |.M(f%,21)).((-.M|
000118a0  28 66 25 2c 32 33 29 29  3c 3c 31 29 84 28 68 4a  |(f%,23))<<1).(hJ|
000118b0  25 3c 3c 34 29 3a 50 79  25 3d 50 79 25 84 28 28  |%<<4):Py%=Py%.((|
000118c0  2d a4 4d 28 66 25 2c 33  38 29 29 3c 3c 32 30 29  |-.M(f%,38))<<20)|
000118d0  84 28 28 2d a4 4d 28 66  25 2c 33 39 29 29 3c 3c  |.((-.M(f%,39))<<|
000118e0  32 31 29 3a e7 a4 4d 28  66 25 2c 32 34 29 8c 0d  |21):..M(f%,24)..|
000118f0  06 39 0f e7 a4 4d 28 66  25 2c 32 36 29 8c 0d 06  |.9...M(f%,26)...|
00011900  3a 2a 50 79 25 3d 50 79  25 84 26 43 84 28 28 bb  |:*Py%=Py%.&C.((.|
00011910  a4 5a 28 66 25 2c 32 37  29 29 3c 3c 38 29 84 28  |.Z(f%,27))<<8).(|
00011920  63 75 25 3c 3c 31 36 29  0d 06 3b 2b cc 50 79 25  |cu%<<16)..;+.Py%|
00011930  3d 50 79 25 84 34 84 28  66 75 25 3c 3c 38 29 84  |=Py%.4.(fu%<<8).|
00011940  28 76 75 25 3c 3c 26 43  29 84 28 74 75 25 3c 3c  |(vu%<<&C).(tu%<<|
00011950  31 36 29 0d 06 3c 05 cd  0d 06 3d 56 cd 3a 41 5f  |16)..<....=V.:A_|
00011960  25 3d a4 46 28 72 25 2c  62 25 2c 57 5f 25 2c 43  |%=.F(r%,b%,W_%,C|
00011970  5f 25 2c 62 5f 25 29 3a  f2 4b 79 28 41 5f 25 2c  |_%,b_%):.Ky(A_%,|
00011980  50 79 25 2c 41 24 2c 5a  24 2c 43 24 29 3a f2 4d  |Py%,A$,Z$,C$):.M|
00011990  79 3a f2 63 3a f2 6e 3a  65 79 25 3d b9 3a e7 56  |y:.c:.n:ey%=.:.V|
000119a0  79 25 80 5a 25 28 74 25  29 3d 33 8c f2 4f 0d 06  |y%.Z%(t%)=3..O..|
000119b0  3e 15 cc f2 42 28 a4 41  28 22 45 72 72 4d 65 73  |>...B(.A("ErrMes|
000119c0  22 29 29 0d 06 3f 07 cd  3a e1 0d 06 40 42 dd f2  |"))..?..:...@B..|
000119d0  4b 79 28 41 5f 25 2c 50  79 25 2c 41 24 2c 5a 24  |Ky(A_%,Py%,A$,Z$|
000119e0  2c 43 24 29 3a ea 53 25  2c 42 25 2c 4f 79 25 2c  |,C$):.S%,B%,Oy%,|
000119f0  54 25 2c 67 79 25 2c 57  79 25 3a e7 4c 5f 25 3c  |T%,gy%,Wy%:.L_%<|
00011a00  3e 2d 31 8c f2 46 79 28  4c 5f 25 29 0d 06 41 6c  |>-1..Fy(L_%)..Al|
00011a10  4f 79 25 3d a3 3a 53 25  3d a9 28 41 24 2b 5a 24  |Oy%=.:S%=.(A$+Z$|
00011a20  2b 43 24 29 2b 33 2b 32  30 3a 57 79 25 3d 4d 5f  |+C$)+3+20:Wy%=M_|
00011a30  25 3a 67 79 25 3d 2d 31  3a c8 95 57 79 25 3c 3e  |%:gy%=-1:..Wy%<>|
00011a40  2d 31 80 ac 4f 79 25 3a  54 25 3d 57 79 25 21 26  |-1..Oy%:T%=Wy%!&|
00011a50  43 3a e7 a4 47 28 41 5f  25 2c 54 25 29 3d 2d 31  |C:..G(A_%,T%)=-1|
00011a60  8c 4f 79 25 3d b9 8b 67  79 25 3d 57 79 25 3a 57  |.Oy%=..gy%=Wy%:W|
00011a70  79 25 3d 57 79 25 21 34  0d 06 42 5c ce 3a 42 25  |y%=Wy%!4..B\.:B%|
00011a80  3d a4 77 28 77 5f 25 2c  53 25 2b 31 2c b9 29 3a  |=.w(w_%,S%+1,.):|
00011a90  21 42 25 3d 67 79 25 3a  42 25 21 34 3d 57 79 25  |!B%=gy%:B%!4=Wy%|
00011aa0  3a 42 25 21 38 3d 53 25  3a 42 25 21 26 43 3d 41  |:B%!8=S%:B%!&C=A|
00011ab0  5f 25 3a 42 25 21 31 36  3d 50 79 25 3a e7 67 79  |_%:B%!16=Py%:.gy|
00011ac0  25 3d 2d 31 8c 4d 5f 25  3d 42 25 8b 67 79 25 21  |%=-1.M_%=B%.gy%!|
00011ad0  34 3d 42 25 0d 06 43 14  e7 57 79 25 3c 3e 2d 31  |4=B%..C..Wy%<>-1|
00011ae0  8c 21 57 79 25 3d 42 25  0d 06 44 23 24 28 42 25  |.!Wy%=B%..D#$(B%|
00011af0  2b 32 30 29 3d 41 24 2b  bd 26 42 2b 5a 24 2b bd  |+20)=A$+.&B+Z$+.|
00011b00  26 42 2b 43 24 2b bd 26  42 3a e1 0d 06 45 31 dd  |&B+C$+.&B:...E1.|
00011b10  f2 6b 28 42 25 29 3a f2  46 79 28 42 25 29 3a f2  |.k(B%):.Fy(B%):.|
00011b20  4d 79 3a f2 63 3a 65 79  25 3d b9 3a e7 56 79 25  |My:.c:ey%=.:.Vy%|
00011b30  80 5a 25 28 74 25 29 3d  33 8c f2 4f 0d 06 46 0e  |.Z%(t%)=3..O..F.|
00011b40  e7 42 25 3d 4c 5f 25 8c  f2 6e 0d 06 47 1a e7 42  |.B%=L_%..n..G..B|
00011b50  25 3d 41 75 25 8c 41 75  25 3d 2d 31 3a f2 47 28  |%=Au%.Au%=-1:.G(|
00011b60  4c 79 25 29 0d 06 48 05  e1 0d 06 49 39 dd f2 46  |Ly%)..H....I9..F|
00011b70  79 28 42 25 29 3a ea 67  79 25 2c 57 79 25 3a 67  |y(B%):.gy%,Wy%:g|
00011b80  79 25 3d 21 42 25 3a 57  79 25 3d 42 25 21 34 3a  |y%=!B%:Wy%=B%!4:|
00011b90  e7 67 79 25 3c 3e 2d 31  8c 67 79 25 21 34 3d 57  |.gy%<>-1.gy%!4=W|
00011ba0  79 25 0d 06 4a 15 e7 57  79 25 3c 3e 2d 31 8c 21  |y%..J..Wy%<>-1.!|
00011bb0  57 79 25 3d 67 79 25 0d  06 4b 13 e7 4d 5f 25 3d  |Wy%=gy%..K..M_%=|
00011bc0  42 25 8c 4d 5f 25 3d 57  79 25 0d 06 4c 13 f2 44  |B%.M_%=Wy%..L..D|
00011bd0  79 28 77 5f 25 2c 42 25  2c b9 29 3a e1 0d 06 4d  |y(w_%,B%,.):...M|
00011be0  25 dd f2 6e 3a f2 47 28  66 25 29 3a f2 47 28 61  |%..n:.G(f%):.G(a|
00011bf0  79 25 29 3a e7 56 79 25  8c f2 4d 28 69 25 2c 2d  |y%):.Vy%..M(i%,-|
00011c00  31 29 0d 06 4e 0c 4c 5f  25 3d 2d 31 3a e1 0d 06  |1)..N.L_%=-1:...|
00011c10  4f 25 dd f2 6c 75 28 58  79 25 2c 54 79 25 2c 65  |O%..lu(Xy%,Ty%,e|
00011c20  25 2c 77 25 2c 58 5f 25  29 3a ea 41 25 3a c8 8e  |%,w%,X_%):.A%:..|
00011c30  77 25 ca 0d 06 50 1d c9  31 3a f2 41 79 28 57 5f  |w%...P..1:.Ay(W_|
00011c40  25 2c 43 5f 25 2c 62 5f  25 2c 65 25 2c 77 25 29  |%,C_%,b_%,e%,w%)|
00011c50  0d 06 51 10 c9 36 3a f2  59 28 58 5f 25 2c 30 29  |..Q..6:.Y(X_%,0)|
00011c60  0d 06 52 11 c9 37 3a f2  59 28 2d 58 5f 25 2c 30  |..R..7:.Y(-X_%,0|
00011c70  29 0d 06 53 13 c9 38 3a  f2 59 28 30 2c 26 41 2a  |)..S..8:.Y(0,&A*|
00011c80  58 5f 25 29 0d 06 54 14  c9 39 3a f2 59 28 30 2c  |X_%)..T..9:.Y(0,|
00011c90  2d 26 41 2a 58 5f 25 29  0d 06 55 11 c9 26 41 3a  |-&A*X_%)..U..&A:|
00011ca0  f2 59 28 30 2c 58 5f 25  29 0d 06 56 12 c9 26 42  |.Y(0,X_%)..V..&B|
00011cb0  3a f2 59 28 30 2c 2d 58  5f 25 29 0d 06 57 2e c9  |:.Y(0,-X_%)..W..|
00011cc0  26 43 3a 41 25 3d 26 43  2b 32 34 2a 28 a4 5a 28  |&C:A%=&C+24*(.Z(|
00011cd0  66 25 2c 26 43 29 3d a4  41 28 22 70 6d 22 29 29  |f%,&C)=.A("pm"))|
00011ce0  3a f2 59 28 41 25 2c 30  29 0d 06 58 0b c9 31 39  |:.Y(A%,0)..X..19|
00011cf0  3a f2 4e 5f 0d 06 59 0a  c9 32 30 3a f2 6e 0d 06  |:.N_..Y..20:.n..|
00011d00  5a 1d c9 32 32 3a f2 43  28 46 6c 25 2c 58 79 25  |Z..22:.C(Fl%,Xy%|
00011d10  2c 54 79 25 2c 65 25 2c  77 25 29 0d 06 5b 19 c9  |,Ty%,e%,w%)..[..|
00011d20  32 34 3a f2 49 79 28 ac  a4 4d 28 65 25 2c 32 34  |24:.Iy(..M(e%,24|
00011d30  29 2c a3 29 0d 06 5c 12  c9 32 36 2c 33 31 3a f2  |),.)..\..26,31:.|
00011d40  4a 79 28 77 25 29 0d 06  5d 19 c9 32 38 2c 32 39  |Jy(w%)..]..28,29|
00011d50  3a e7 6e 25 3d 31 8c 77  25 3d 35 37 2d 77 25 0d  |:.n%=1.w%=57-w%.|
00011d60  06 5e 3b 41 25 3d bb a4  5a 28 65 25 2c 32 37 29  |.^;A%=..Z(e%,27)|
00011d70  3a 41 25 2b 3d 28 77 25  2d 32 37 29 2a 32 2d 33  |:A%+=(w%-27)*2-3|
00011d80  3a e7 41 25 3d 30 8c 41  25 3d 26 46 46 8b e7 41  |:.A%=0.A%=&FF..A|
00011d90  25 3d 32 35 36 8c 41 25  3d 31 0d 06 5f 11 f2 41  |%=256.A%=1.._..A|
00011da0  28 65 25 2c 32 37 2c c3  41 25 29 0d 06 60 36 c9  |(e%,27,.A%)..`6.|
00011db0  33 30 3a f2 60 28 58 79  25 2c 54 79 25 29 3a 21  |30:.`(Xy%,Ty%):!|
00011dc0  73 4a 25 3d a4 67 28 22  45 22 29 3a f2 43 28 73  |sJ%=.g("E"):.C(s|
00011dd0  4a 25 2c 58 79 25 2c 54  79 25 2c 65 25 2c 77 25  |J%,Xy%,Ty%,e%,w%|
00011de0  29 0d 06 61 29 c9 33 33  3a f2 60 28 58 79 25 2c  |)..a).33:.`(Xy%,|
00011df0  54 79 25 29 3a f2 43 28  65 6c 25 2c 58 79 25 2c  |Ty%):.C(el%,Xy%,|
00011e00  54 79 25 2c 65 25 2c 77  25 29 0d 06 62 29 c9 33  |Ty%,e%,w%)..b).3|
00011e10  34 3a f2 60 28 58 79 25  2c 54 79 25 29 3a f2 43  |4:.`(Xy%,Ty%):.C|
00011e20  28 78 6c 25 2c 58 79 25  2c 54 79 25 2c 65 25 2c  |(xl%,Xy%,Ty%,e%,|
00011e30  77 25 29 0d 06 63 29 c9  33 35 3a f2 60 28 58 79  |w%)..c).35:.`(Xy|
00011e40  25 2c 54 79 25 29 3a f2  43 28 61 6c 25 2c 58 79  |%,Ty%):.C(al%,Xy|
00011e50  25 2c 54 79 25 2c 65 25  2c 77 25 29 0d 06 64 0f  |%,Ty%,e%,w%)..d.|
00011e60  c9 33 37 3a f2 6b 28 4c  5f 25 29 0d 06 65 1c c9  |.37:.k(L_%)..e..|
00011e70  33 38 3a f2 53 28 66 25  2c 32 31 2c 94 a4 4d 28  |38:.S(f%,21,..M(|
00011e80  66 25 2c 33 38 29 29 0d  06 66 07 cb 3a e1 0d 06  |f%,38))..f..:...|
00011e90  67 27 dd f2 6a 4a 28 58  79 25 2c 54 79 25 2c 65  |g'..jJ(Xy%,Ty%,e|
00011ea0  25 2c 77 25 29 3a ea 41  25 3a 4a 5f 25 3d 30 3a  |%,w%):.A%:J_%=0:|
00011eb0  c8 8e 77 25 ca 0d 06 68  20 c9 37 3a f2 42 79 28  |..w%...h .7:.By(|
00011ec0  41 75 25 2c a4 4d 28 4c  79 25 2c 39 29 29 3a 41  |Au%,.M(Ly%,9)):A|
00011ed0  75 25 3d 2d 31 0d 06 69  0e c9 38 3a f2 6b 28 41  |u%=-1..i..8:.k(A|
00011ee0  75 25 29 0d 06 6a 28 c9  39 3a e3 41 25 3d 26 41  |u%)..j(.9:.A%=&A|
00011ef0  b8 26 44 3a f2 53 28 65  25 2c 41 25 2c 94 ac a4  |.&D:.S(e%,A%,...|
00011f00  4d 28 65 25 2c 77 25 29  29 3a ed 0d 06 6b 19 c9  |M(e%,w%)):...k..|
00011f10  26 42 2c 26 43 3a e7 6e  25 3d 31 8c 77 25 3d 32  |&B,&C:.n%=1.w%=2|
00011f20  33 2d 77 25 0d 06 6c 3b  41 25 3d bb a4 5a 28 65  |3-w%..l;A%=..Z(e|
00011f30  25 2c 26 41 29 3a 41 25  2b 3d 28 77 25 2d 26 41  |%,&A):A%+=(w%-&A|
00011f40  29 2a 32 2d 33 3a e7 41  25 3d 30 8c 41 25 3d 26  |)*2-3:.A%=0.A%=&|
00011f50  46 46 8b e7 41 25 3d 32  35 36 8c 41 25 3d 31 0d  |FF..A%=256.A%=1.|
00011f60  06 6d 11 f2 41 28 65 25  2c 26 41 2c c3 41 25 29  |.m..A(e%,&A,.A%)|
00011f70  0d 06 6e 5d c9 26 44 3a  21 4a 25 3d 65 25 3a c8  |..n].&D:!J%=e%:.|
00011f80  99 26 34 30 30 43 42 2c  2c 4a 25 3a 58 79 25 3d  |.&400CB,,J%:Xy%=|
00011f90  4a 25 21 34 2b 36 38 36  2b 36 34 3a 54 79 25 3d  |J%!4+686+64:Ty%=|
00011fa0  4a 25 21 31 36 2d 33 31  32 3a 21 73 4a 25 3d a4  |J%!16-312:!sJ%=.|
00011fb0  67 28 22 45 44 22 29 3a  f2 43 28 73 4a 25 2c 58  |g("ED"):.C(sJ%,X|
00011fc0  79 25 2c 54 79 25 2c 65  25 2c 77 25 29 0d 06 6f  |y%,Ty%,e%,w%)..o|
00011fd0  07 cb 3a e1 0d 06 70 25  dd f2 42 79 28 42 25 2c  |..:...p%..By(B%,|
00011fe0  6e 69 25 29 3a e7 42 25  3c 3e 4c 5f 25 8c ea 4c  |ni%):.B%<>L_%..L|
00011ff0  5f 25 3a 4c 5f 25 3d 2d  31 0d 06 71 0a e7 ac 6e  |_%:L_%=-1..q...n|
00012000  69 25 8c 0d 06 72 11 e7  28 42 25 21 31 36 80 34  |i%...r..(B%!16.4|
00012010  29 3d 34 8c 0d 06 73 11  e7 28 42 25 21 31 36 80  |)=4...s..(B%!16.|
00012020  38 29 3d 38 8c 0d 06 74  0d f2 51 5f 28 42 25 2c  |8)=8...t..Q_(B%,|
00012030  a3 29 0d 06 75 0c cc f2  6f 4a 28 42 25 29 0d 06  |.)..u...oJ(B%)..|
00012040  76 05 cd 0d 06 77 21 cc  42 25 21 31 36 3d 28 42  |v....w!.B%!16=(B|
00012050  25 21 31 36 29 84 28 31  3c 3c 32 30 29 3a 65 79  |%!16).(1<<20):ey|
00012060  25 3d 2d 31 0d 06 78 05  cd 0d 06 79 0e cc f2 51  |%=-1..x....y...Q|
00012070  5f 28 42 25 2c b9 29 0d  06 7a 23 cd 3a f2 4d 79  |_(B%,.)..z#.:.My|
00012080  3a f2 63 3a 65 79 25 3d  b9 3a e7 56 79 25 80 5a  |:.c:ey%=.:.Vy%.Z|
00012090  25 28 74 25 29 3d 33 8c  f2 4f 0d 06 7b 13 4a 5f  |%(t%)=3..O..{.J_|
000120a0  25 3d 30 3a f2 47 28 4c  79 25 29 3a e1 0d 06 7c  |%=0:.G(Ly%):...||
000120b0  40 dd f2 51 5f 28 42 25  2c 6e 69 25 29 3a ea 63  |@..Q_(B%,ni%):.c|
000120c0  25 2c 54 25 2c 41 24 2c  66 79 25 2c 4b 79 25 2c  |%,T%,A$,fy%,Ky%,|
000120d0  64 25 2c 71 25 2c 78 25  2c 41 5f 25 2c 50 79 25  |d%,q%,x%,A_%,Py%|
000120e0  2c 5a 24 2c 43 24 2c 3a  e7 6e 69 25 8c 0d 06 7d  |,Z$,C$,:.ni%...}|
000120f0  44 41 5f 25 3d a4 7a 3a  63 25 3d bb a4 5a 28 65  |DA_%=.z:c%=..Z(e|
00012100  25 2c 26 41 29 3a 41 24  3d a4 5a 28 4c 79 25 2c  |%,&A):A$=.Z(Ly%,|
00012110  26 44 29 3a 54 25 3d 30  3a c8 95 41 24 3c 3e a4  |&D):T%=0:..A$<>.|
00012120  57 28 73 4a 25 2c 54 25  29 3a 54 25 2b 3d 31 3a  |W(sJ%,T%):T%+=1:|
00012130  ce 0d 06 7e 3a cc 41 5f  25 3d 42 25 21 26 43 3a  |...~:.A_%=B%!&C:|
00012140  63 25 3d 28 28 42 25 21  31 36 29 3e 3e 38 29 80  |c%=((B%!16)>>8).|
00012150  26 46 46 3a 54 25 3d 28  28 28 42 25 21 31 36 29  |&FF:T%=(((B%!16)|
00012160  3e 3e 31 36 29 80 26 46  29 2d 31 0d 06 7f e9 cd  |>>16).&F)-1.....|
00012170  3a f2 50 28 41 5f 25 2c  66 79 25 2c 4b 79 25 2c  |:.P(A_%,fy%,Ky%,|
00012180  64 25 2c 71 25 2c 78 25  29 3a f2 6d 79 28 66 79  |d%,q%,x%):.my(fy|
00012190  25 2c 4b 79 25 2c 64 25  2c 71 25 2c 78 25 2c 63  |%,Ky%,d%,q%,x%,c|
000121a0  25 2c 54 25 29 3a 41 5f  25 3d a4 46 28 66 79 25  |%,T%):A_%=.F(fy%|
000121b0  2c 4b 79 25 2c 64 25 2c  71 25 2c 78 25 29 3a 50  |,Ky%,d%,q%,x%):P|
000121c0  79 25 3d 42 25 21 31 36  3a 63 25 3d 42 25 2b 32  |y%=B%!16:c%=B%+2|
000121d0  30 3a 41 24 3d 22 22 3a  c8 95 3f 63 25 3c 3e 26  |0:A$="":..?c%<>&|
000121e0  42 3a 41 24 2b 3d bd 3f  63 25 3a 63 25 2b 3d 31  |B:A$+=.?c%:c%+=1|
000121f0  3a ce 3a 63 25 2b 3d 31  3a c8 95 3f 63 25 3c 3e  |:.:c%+=1:..?c%<>|
00012200  26 42 3a 5a 24 2b 3d bd  3f 63 25 3a 63 25 2b 3d  |&B:Z$+=.?c%:c%+=|
00012210  31 3a ce 3a 63 25 2b 3d  31 3a c8 95 3f 63 25 3c  |1:.:c%+=1:..?c%<|
00012220  3e 26 42 3a 43 24 2b 3d  bd 3f 63 25 3a 63 25 2b  |>&B:C$+=.?c%:c%+|
00012230  3d 31 3a ce 3a f2 46 79  28 42 25 29 3a f2 4b 79  |=1:.:.Fy(B%):.Ky|
00012240  28 41 5f 25 2c 50 79 25  2c 41 24 2c 5a 24 2c 43  |(A_%,Py%,A$,Z$,C|
00012250  24 29 3a e1 0d 06 80 58  dd f2 6d 79 28 f8 66 79  |$):....X..my(.fy|
00012260  25 2c f8 4b 79 25 2c f8  64 25 2c f8 71 25 2c f8  |%,.Ky%,.d%,.q%,.|
00012270  78 25 2c 63 25 2c 54 25  29 3a ea 6d 79 25 3a e7  |x%,c%,T%):.my%:.|
00012280  54 25 3d 30 8c 66 79 25  2b 3d 63 25 3a 63 25 3d  |T%=0.fy%+=c%:c%=|
00012290  66 79 25 81 36 30 3a 66  79 25 3d 66 79 25 83 36  |fy%.60:fy%=fy%.6|
000122a0  30 3a e7 63 25 3e 30 8c  54 25 3d 31 0d 06 81 31  |0:.c%>0.T%=1...1|
000122b0  e7 54 25 3d 31 8c 4b 79  25 2b 3d 63 25 3a 63 25  |.T%=1.Ky%+=c%:c%|
000122c0  3d 4b 79 25 81 32 34 3a  4b 79 25 3d 4b 79 25 83  |=Ky%.24:Ky%=Ky%.|
000122d0  32 34 3a e7 63 25 3e 30  8c 54 25 3d 32 0d 06 82  |24:.c%>0.T%=2...|
000122e0  1f e7 54 25 3d 32 8c 6d  79 25 3d 63 25 8b e7 54  |..T%=2.my%=c%..T|
000122f0  25 3d 33 8c 6d 79 25 3d  37 2a 63 25 0d 06 83 2e  |%=3.my%=7*c%....|
00012300  c8 95 6d 79 25 3e 30 3a  f2 46 28 64 25 2c 71 25  |..my%>0:.F(d%,q%|
00012310  2c 78 25 2c 31 2c 30 2c  30 29 3a 6d 79 25 2d 3d  |,x%,1,0,0):my%-=|
00012320  31 3a ce 3a e7 54 25 3d  34 8c 0d 06 84 25 c8 95  |1:.:.T%=4....%..|
00012330  63 25 3e 30 3a f2 46 28  64 25 2c 71 25 2c 78 25  |c%>0:.F(d%,q%,x%|
00012340  2c 30 2c 31 2c 30 29 3a  63 25 2d 3d 31 3a ce 0d  |,0,1,0):c%-=1:..|
00012350  06 85 0c cd 3a e7 54 25  3d 35 8c 0d 06 86 25 c8  |....:.T%=5....%.|
00012360  95 63 25 3e 30 3a f2 46  28 64 25 2c 71 25 2c 78  |.c%>0:.F(d%,q%,x|
00012370  25 2c 30 2c 30 2c 31 29  3a 63 25 2d 3d 31 3a ce  |%,0,0,1):c%-=1:.|
00012380  0d 06 87 07 cd 3a e1 0d  06 88 e8 dd f2 6f 4a 28  |.....:.......oJ(|
00012390  42 25 29 3a ea 41 5f 25  2c 66 79 25 2c 4b 79 25  |B%):.A_%,fy%,Ky%|
000123a0  2c 64 25 2c 71 25 2c 78  25 2c 41 24 2c 5a 24 2c  |,d%,q%,x%,A$,Z$,|
000123b0  43 25 2c 50 79 25 2c 63  25 3a 50 79 25 3d 42 25  |C%,Py%,c%:Py%=B%|
000123c0  21 31 36 3a 63 25 3d 42  25 2b 32 30 3a f2 50 28  |!16:c%=B%+20:.P(|
000123d0  42 25 21 26 43 2c 66 79  25 2c 4b 79 25 2c 64 25  |B%!&C,fy%,Ky%,d%|
000123e0  2c 71 25 2c 78 25 29 3a  f2 6a 79 28 64 25 2c 71  |,q%,x%):.jy(d%,q|
000123f0  25 2c 78 25 2c 50 79 25  29 3a 41 5f 25 3d a4 46  |%,x%,Py%):A_%=.F|
00012400  28 66 79 25 2c 4b 79 25  2c 64 25 2c 71 25 2c 78  |(fy%,Ky%,d%,q%,x|
00012410  25 29 3a c8 95 3f 63 25  3c 3e 26 42 3a 41 24 2b  |%):..?c%<>&B:A$+|
00012420  3d bd 3f 63 25 3a 63 25  2b 3d 31 3a ce 3a 63 25  |=.?c%:c%+=1:.:c%|
00012430  2b 3d 31 3a c8 95 3f 63  25 3c 3e 26 42 3a 5a 24  |+=1:..?c%<>&B:Z$|
00012440  2b 3d bd 3f 63 25 3a 63  25 2b 3d 31 3a ce 3a 63  |+=.?c%:c%+=1:.:c|
00012450  25 2b 3d 31 3a c8 95 3f  63 25 3c 3e 26 42 3a 43  |%+=1:..?c%<>&B:C|
00012460  24 2b 3d bd 3f 63 25 3a  63 25 2b 3d 31 3a ce 0d  |$+=.?c%:c%+=1:..|
00012470  06 89 23 f2 46 79 28 42  25 29 3a f2 4b 79 28 41  |..#.Fy(B%):.Ky(A|
00012480  5f 25 2c 50 79 25 2c 41  24 2c 5a 24 2c 43 24 29  |_%,Py%,A$,Z$,C$)|
00012490  3a e1 0d 06 8a 7a dd f2  6a 79 28 f8 64 25 2c f8  |:....z..jy(.d%,.|
000124a0  71 25 2c f8 78 25 2c 46  25 29 3a ea 6c 25 2c 63  |q%,.x%,F%):.l%,c|
000124b0  25 2c 72 25 3a 6c 25 3d  28 46 25 3e 3e 38 29 80  |%,r%:l%=(F%>>8).|
000124c0  26 46 3a 63 25 3d 28 46  25 3e 3e 26 43 29 80 26  |&F:c%=(F%>>&C).&|
000124d0  46 3a 72 25 3d 28 46 25  3e 3e 31 36 29 80 26 46  |F:r%=(F%>>16).&F|
000124e0  3a c8 95 72 25 3e 30 3a  f2 46 28 64 25 2c 71 25  |:..r%>0:.F(d%,q%|
000124f0  2c 78 25 2c 2d 64 25 2b  31 2c 31 2c 30 29 3a 72  |,x%,-d%+1,1,0):r|
00012500  25 2d 3d 31 3a ce 3a c8  8e 6c 25 ca 0d 06 8b 44  |%-=1:.:..l%....D|
00012510  c9 31 2c 32 2c 33 3a 75  25 3d a4 48 28 64 25 2c  |.1,2,3:u%=.H(d%,|
00012520  71 25 2c 78 25 29 3a c8  95 75 25 3c 3e 63 25 3a  |q%,x%):..u%<>c%:|
00012530  64 25 2b 3d 31 3a 75 25  3d a4 6f 28 75 25 2b 31  |d%+=1:u%=.o(u%+1|
00012540  29 3a ce 3a 64 25 2b 3d  28 6c 25 2d 31 29 2a 37  |):.:d%+=(l%-1)*7|
00012550  0d 06 8c 51 c9 34 2c 35  2c 36 3a 64 25 3d a4 58  |...Q.4,5,6:d%=.X|
00012560  28 71 25 2c 78 25 29 3a  75 25 3d a4 48 28 64 25  |(q%,x%):u%=.H(d%|
00012570  2c 71 25 2c 78 25 29 3a  c8 95 75 25 3c 3e 63 25  |,q%,x%):..u%<>c%|
00012580  3a 64 25 2d 3d 31 3a 75  25 3d a4 6f 28 75 25 2b  |:d%-=1:u%=.o(u%+|
00012590  36 29 3a ce 3a 64 25 2d  3d 28 6c 25 2d 34 29 2a  |6):.:d%-=(l%-4)*|
000125a0  37 0d 06 8d 07 cb 3a e1  0d 06 8e 45 dd f2 60 28  |7.....:....E..`(|
000125b0  f8 5f 25 2c f8 51 25 29  3a 21 4a 25 3d 66 25 3a  |._%,.Q%):!J%=f%:|
000125c0  c8 99 26 34 30 30 43 42  2c 2c 4a 25 3a 5f 25 3d  |..&400CB,,J%:_%=|
000125d0  4a 25 21 34 2b 37 31 34  2b 36 34 3a 51 25 3d 4a  |J%!4+714+64:Q%=J|
000125e0  25 21 31 36 2d 34 38 30  2d 34 30 3a e1 0d 06 8f  |%!16-480-40:....|
000125f0  85 dd f2 59 28 68 75 25  2c 72 25 29 3a ea 4b 5f  |...Y(hu%,r%):.K_|
00012600  25 2c 4d 25 2c 4c 75 25  2c 6d 79 25 2c 7a 69 25  |%,M%,Lu%,my%,zi%|
00012610  2c 41 24 3a 4c 75 25 3d  72 25 3c 3e 30 3a 6d 79  |,A$:Lu%=r%<>0:my|
00012620  25 3d a3 3a 72 25 2b 3d  bb a4 5a 28 66 25 2c 35  |%=.:r%+=..Z(f%,5|
00012630  29 3a 62 25 3d bb a4 5a  28 66 25 2c 33 29 3a 4b  |):b%=..Z(f%,3):K|
00012640  5f 25 3d 28 a4 5a 28 66  25 2c 26 43 29 3d a4 41  |_%=(.Z(f%,&C)=.A|
00012650  28 22 70 6d 22 29 29 3a  4d 25 3d a4 58 28 43 5f  |("pm")):M%=.X(C_|
00012660  25 2c 62 5f 25 29 3a e7  62 25 3d 26 43 8c 62 25  |%,b_%):.b%=&C.b%|
00012670  3d 30 0d 06 90 0f e7 4b  5f 25 8c 62 25 2b 3d 26  |=0.....K_%.b%+=&|
00012680  43 0d 06 91 2f 62 25 2b  3d 68 75 25 3a 68 75 25  |C.../b%+=hu%:hu%|
00012690  3d 68 75 25 3c 3e 30 3a  e7 72 25 3c 30 8c 62 25  |=hu%<>0:.r%<0.b%|
000126a0  2d 3d 31 3a 72 25 2b 3d  36 30 3a 68 75 25 3d b9  |-=1:r%+=60:hu%=.|
000126b0  0d 06 92 1d e7 72 25 3e  35 39 8c 62 25 2b 3d 31  |.....r%>59.b%+=1|
000126c0  3a 72 25 2d 3d 36 30 3a  68 75 25 3d b9 0d 06 93  |:r%-=60:hu%=....|
000126d0  1d e7 62 25 3c 30 8c 57  5f 25 2d 3d 31 3a 62 25  |..b%<0.W_%-=1:b%|
000126e0  2b 3d 32 34 3a 6d 79 25  3d b9 0d 06 94 1e e7 62  |+=24:my%=......b|
000126f0  25 3e 32 33 8c 57 5f 25  2b 3d 31 3a 62 25 2d 3d  |%>23.W_%+=1:b%-=|
00012700  32 34 3a 6d 79 25 3d b9  0d 06 95 17 e7 57 5f 25  |24:my%=......W_%|
00012710  3c 31 8c 43 5f 25 2d 3d  31 3a 6d 79 25 3d b9 0d  |<1.C_%-=1:my%=..|
00012720  06 96 1e e7 57 5f 25 3e  4d 25 8c 43 5f 25 2b 3d  |....W_%>M%.C_%+=|
00012730  31 3a 57 5f 25 3d 31 3a  6d 79 25 3d b9 0d 06 97  |1:W_%=1:my%=....|
00012740  1e e7 43 5f 25 3c 31 8c  62 5f 25 2d 3d 31 3a 43  |..C_%<1.b_%-=1:C|
00012750  5f 25 3d 26 43 3a 6d 79  25 3d b9 0d 06 98 1e e7  |_%=&C:my%=......|
00012760  43 5f 25 3e 26 43 8c 62  5f 25 2b 3d 31 3a 43 5f  |C_%>&C.b_%+=1:C_|
00012770  25 3d 31 3a 6d 79 25 3d  b9 0d 06 99 27 4d 25 3d  |%=1:my%=....'M%=|
00012780  a4 58 28 43 5f 25 2c 62  5f 25 29 3a e7 57 5f 25  |.X(C_%,b_%):.W_%|
00012790  3d 30 84 57 5f 25 3e 4d  25 8c 57 5f 25 3d 4d 25  |=0.W_%>M%.W_%=M%|
000127a0  0d 06 9a 1e 7a 69 25 3d  28 62 25 3e 3d 26 43 29  |....zi%=(b%>=&C)|
000127b0  3a e7 62 25 3e 26 43 8c  62 25 2d 3d 26 43 0d 06  |:.b%>&C.b%-=&C..|
000127c0  9b 24 e7 6d 79 25 8c f2  41 28 66 25 2c 31 2c a4  |.$.my%..A(f%,1,.|
000127d0  51 28 57 5f 25 2c 43 5f  25 2c 62 5f 25 2c 2d 31  |Q(W_%,C_%,b_%,-1|
000127e0  29 29 0d 06 9c 0f e7 62  25 3d 30 8c 62 25 3d 26  |)).....b%=0.b%=&|
000127f0  43 0d 06 9d 15 e7 68 75  25 8c f2 41 28 66 25 2c  |C.....hu%..A(f%,|
00012800  33 2c c3 62 25 29 0d 06  9e 29 41 24 3d c3 72 25  |3,.b%)...)A$=.r%|
00012810  3a e7 72 25 3c 26 41 8c  41 24 3d 22 30 22 2b 41  |:.r%<&A.A$="0"+A|
00012820  24 3a e7 72 25 3d 30 8c  41 24 3d 22 30 30 22 0d  |$:.r%=0.A$="00".|
00012830  06 9f 14 e7 4c 75 25 8c  f2 41 28 66 25 2c 35 2c  |....Lu%..A(f%,5,|
00012840  41 24 29 0d 06 a0 0e e7  7a 69 25 3c 3e 4b 5f 25  |A$).....zi%<>K_%|
00012850  8c 0d 06 a1 20 e7 7a 69  25 8c 41 24 3d a4 41 28  |.... .zi%.A$=.A(|
00012860  22 70 6d 22 29 8b 41 24  3d a4 41 28 22 61 6d 22  |"pm").A$=.A("am"|
00012870  29 0d 06 a2 10 f2 41 28  66 25 2c 26 43 2c 41 24  |).....A(f%,&C,A$|
00012880  29 0d 06 a3 07 cd 3a e1  0d 06 a4 33 dd f2 56 5f  |).....:....3..V_|
00012890  3a ea 53 25 2c 43 25 2c  42 25 3a 43 25 3d 2d 31  |:.S%,C%,B%:C%=-1|
000128a0  3a 4d 5f 25 3d 2d 31 3a  7a 25 3d 8e 78 24 3a e7  |:M_%=-1:z%=.x$:.|
000128b0  ac 6c 4a 25 80 7a 25 3c  3e 30 8c 0d 06 a5 3d c8  |.lJ%.z%<>0....=.|
000128c0  95 ac c5 23 7a 25 3a 53  25 3d bb be 23 7a 25 3a  |...#z%:S%=..#z%:|
000128d0  42 25 3d a4 77 28 77 5f  25 2c 53 25 2b 31 2c b9  |B%=.w(w_%,S%+1,.|
000128e0  29 3a e7 43 25 3c 3e 2d  31 8c 43 25 21 34 3d 42  |):.C%<>-1.C%!4=B|
000128f0  25 8b 4d 5f 25 3d 42 25  0d 06 a6 3a 21 42 25 3d  |%.M_%=B%...:!B%=|
00012900  43 25 3a 42 25 21 38 3d  53 25 3a c8 99 26 43 2c  |C%:B%!8=S%:..&C,|
00012910  34 2c 7a 25 2c 42 25 2b  26 43 2c 53 25 2d 26 43  |4,z%,B%+&C,S%-&C|
00012920  3a 43 25 3d 42 25 3a e7  73 5f 25 8c f2 64 28 ac  |:C%=B%:.s_%..d(.|
00012930  31 29 0d 06 a7 16 ce 3a  e7 4d 5f 25 3c 3e 2d 31  |1).....:.M_%<>-1|
00012940  8c 42 25 21 34 3d 2d 31  0d 06 a8 0d d9 23 7a 25  |.B%!4=-1.....#z%|
00012950  3a 7a 25 3d 30 0d 06 a9  07 cd 3a e1 0d 06 aa 39  |:z%=0.....:....9|
00012960  dd f2 76 4a 28 f8 63 25  2c f8 72 25 2c 51 25 29  |..vJ(.c%,.r%,Q%)|
00012970  3a ea 5f 6c 25 2c 5f 79  25 3a 5f 6c 25 3d 28 51  |:._l%,_y%:_l%=(Q|
00012980  25 2b 31 29 83 31 39 3a  e7 5f 6c 25 3d 30 8c 5f  |%+1).19:._l%=0._|
00012990  6c 25 3d 31 39 0d 06 ab  41 5f 79 25 3d 28 94 28  |l%=19...A_y%=(.(|
000129a0  31 2e 32 35 2a 51 25 29  2b 36 29 83 37 3a 63 25  |1.25*Q%)+6).7:c%|
000129b0  3d 59 25 28 5f 6c 25 2d  31 2c 5f 79 25 29 3a e7  |=Y%(_l%-1,_y%):.|
000129c0  63 25 3e 33 31 8c 63 25  2d 3d 33 31 3a 72 25 3d  |c%>31.c%-=31:r%=|
000129d0  34 8b 72 25 3d 33 0d 06  ac 05 e1 0d 06 ad 3e dd  |4.r%=3........>.|
000129e0  f2 41 6c 3a ea 5f 69 25  2c 41 69 25 2c 64 25 2c  |.Al:._i%,Ai%,d%,|
000129f0  75 25 2c 63 25 3a de 59  25 28 31 38 2c 36 29 3a  |u%,c%:.Y%(18,6):|
00012a00  e3 5f 69 25 3d 31 b8 31  39 3a e3 41 69 25 3d 30  |._i%=1.19:.Ai%=0|
00012a10  b8 36 3a c8 8e 5f 69 25  ca 0d 06 ae 0c c9 26 45  |.6:.._i%......&E|
00012a20  3a 75 25 3d 31 0d 06 af  0b c9 33 3a 75 25 3d 32  |:u%=1.....3:u%=2|
00012a30  0d 06 b0 0c c9 26 42 3a  75 25 3d 34 0d 06 b1 0c  |.....&B:u%=4....|
00012a40  c9 31 39 3a 75 25 3d 36  0d 06 b2 0b c9 38 3a 75  |.19:u%=6.....8:u|
00012a50  25 3d 37 0d 06 b3 0c c9  31 36 3a 75 25 3d 39 0d  |%=7.....16:u%=9.|
00012a60  06 b4 0c c9 35 3a 75 25  3d 26 41 0d 06 b5 0d c9  |....5:u%=&A.....|
00012a70  26 44 3a 75 25 3d 26 43  0d 06 b6 0c c9 32 3a 75  |&D:u%=&C.....2:u|
00012a80  25 3d 26 44 0d 06 b7 0d  c9 26 41 3a 75 25 3d 26  |%=&D.....&A:u%=&|
00012a90  46 0d 06 b8 0d c9 31 38  3a 75 25 3d 31 37 0d 06  |F.....18:u%=17..|
00012aa0  b9 0c c9 37 3a 75 25 3d  31 38 0d 06 ba 0d c9 26  |...7:u%=18.....&|
00012ab0  46 3a 75 25 3d 32 30 0d  06 bb 0c c9 34 3a 75 25  |F:u%=20.....4:u%|
00012ac0  3d 32 31 0d 06 bc 0d c9  26 43 3a 75 25 3d 32 33  |=21.....&C:u%=23|
00012ad0  0d 06 bd 0c c9 31 3a 75  25 3d 32 34 0d 06 be 0c  |.....1:u%=24....|
00012ae0  c9 39 3a 75 25 3d 32 36  0d 06 bf 0d c9 31 37 3a  |.9:u%=26.....17:|
00012af0  75 25 3d 32 37 0d 06 c0  0c c9 36 3a 75 25 3d 32  |u%=27.....6:u%=2|
00012b00  38 0d 06 c1 3f cb 3a 64  25 3d 32 31 2b 75 25 3a  |8...?.:d%=21+u%:|
00012b10  6e 24 3d a4 41 28 22 4d  6f 6e 33 22 29 2b 22 20  |n$=.A("Mon3")+" |
00012b20  22 3a f5 64 25 2b 3d 31  3a 63 25 3d 35 2d 28 64  |":.d%+=1:c%=5-(d|
00012b30  25 83 37 29 3a e7 63 25  3d 2d 31 8c 63 25 3d 36  |%.7):.c%=-1.c%=6|
00012b40  0d 06 c2 3c fd 63 25 3d  41 69 25 3a 59 25 28 5f  |...<.c%=Ai%:Y%(_|
00012b50  69 25 2d 31 2c 41 69 25  29 3d 64 25 3a e7 64 25  |i%-1,Ai%)=d%:.d%|
00012b60  3e 33 31 8c 64 25 2d 3d  33 31 3a 6e 24 3d a4 41  |>31.d%-=31:n$=.A|
00012b70  28 22 4d 6f 6e 34 22 29  2b 22 20 22 0d 06 c3 09  |("Mon4")+" "....|
00012b80  ed 3a ed 3a e1 0d 06 c4  91 dd f2 71 75 3a 73 79  |.:.:.......qu:sy|
00012b90  25 3d 32 3a 56 69 25 3d  26 42 3a 54 4a 25 3d b9  |%=2:Vi%=&B:TJ%=.|
00012ba0  3a 62 4a 25 3d 31 3a 53  69 25 3d a4 57 79 28 a4  |:bJ%=1:Si%=.Wy(.|
00012bb0  41 28 22 47 59 4d 22 29  2b a4 4f 79 28 22 47 59  |A("GYM")+.Oy("GY|
00012bc0  4d 22 2c 31 2c 32 2c 22  5c 22 2c 22 22 29 2b 22  |M",1,2,"\","")+"|
00012bd0  5c 22 29 3a 6a 69 25 3d  a4 70 79 28 53 69 25 2c  |\"):ji%=.py(Si%,|
00012be0  32 2c 22 22 2c 35 2c 22  41 30 2d 39 22 29 3a 5a  |2,"",5,"A0-9"):Z|
00012bf0  6c 25 3d a4 43 28 22 43  41 4d 22 2c 22 43 41 4d  |l%=.C("CAM","CAM|
00012c00  22 2c 31 2c 33 29 3a f2  7a 28 5a 6c 25 2c 32 2c  |",1,3):.z(Zl%,2,|
00012c10  53 69 25 29 3a e1 0d 06  c5 0c dd a4 4d 5f 3d 5a  |Si%):.......M_=Z|
00012c20  6c 25 0d 06 c6 49 dd f2  43 4a 28 41 25 29 3a 42  |l%...I..CJ(A%):B|
00012c30  25 28 41 25 29 3d 26 37  37 64 3a 57 25 28 41 25  |%(A%)=&77d:W%(A%|
00012c40  29 3d 26 66 66 66 3a 53  25 28 41 25 29 3d 46 79  |)=&fff:S%(A%)=Fy|
00012c50  25 3a 4d 24 28 41 25 29  3d a4 41 28 22 43 61 6c  |%:M$(A%)=.A("Cal|
00012c60  54 61 62 22 29 3a f2 57  4a 3a e1 0d 06 c7 2d dd  |Tab"):.WJ:....-.|
00012c70  f2 53 4a 28 78 25 2c 68  25 2c 61 25 2c 4b 25 29  |.SJ(x%,h%,a%,K%)|
00012c80  3a e7 73 79 25 3d 31 8c  f2 4a 4a 28 78 25 2c 68  |:.sy%=1..JJ(x%,h|
00012c90  25 2c 61 25 2c 4b 25 29  0d 06 c8 1b e7 73 79 25  |%,a%,K%).....sy%|
00012ca0  3d 32 8c f2 50 75 28 78  25 2c 68 25 2c 61 25 2c  |=2..Pu(x%,h%,a%,|
00012cb0  4b 25 29 0d 06 c9 05 e1  0d 06 ca 1b dd f2 6e 5f  |K%)...........n_|
00012cc0  28 70 25 2c 4f 69 25 29  3a ea 41 25 3a c8 8e 21  |(p%,Oi%):.A%:..!|
00012cd0  70 25 ca 0d 06 cb 25 c9  30 2c 31 3a 41 25 3d 73  |p%....%.0,1:A%=s|
00012ce0  79 25 3a 73 79 25 3d 21  70 25 2b 31 3a 75 4a 25  |y%:sy%=!p%+1:uJ%|
00012cf0  3d 73 79 25 3c 3e 41 25  0d 06 cc 0e c9 32 3a c8  |=sy%<>A%.....2:.|
00012d00  8e 70 25 21 34 ca 0d 06  cd 25 c9 30 3a e7 76 25  |.p%!4....%.0:.v%|
00012d10  3c 3e 46 79 25 2b 28 73  79 25 3d 31 29 8c 76 25  |<>Fy%+(sy%=1).v%|
00012d20  3d 46 79 25 3a 74 25 3d  4f 69 25 0d 06 ce 29 c9  |=Fy%:t%=Oi%...).|
00012d30  31 3a e7 76 25 3c 3e 46  79 25 2b 31 2b 28 73 79  |1:.v%<>Fy%+1+(sy|
00012d40  25 3d 31 29 8c 76 25 3d  46 79 25 2b 31 3a 74 25  |%=1).v%=Fy%+1:t%|
00012d50  3d 4f 69 25 0d 06 cf 14  c9 32 3a 41 25 3d bb 24  |=Oi%.....2:A%=.$|
00012d60  6a 69 25 3a c8 8e b9 ca  0d 06 d0 2c c9 41 25 3c  |ji%:.......,.A%<|
00012d70  26 37 37 64 3a f2 42 28  a4 4f 28 22 45 72 72 4d  |&77d:.B(.O("ErrM|
00012d80  69 6e 22 2c c3 26 37 37  64 2c 22 22 2c 22 22 2c  |in",.&77d,"","",|
00012d90  22 22 29 29 0d 06 d1 2c  c9 41 25 3e 26 66 66 66  |""))...,.A%>&fff|
00012da0  3a f2 42 28 a4 4f 28 22  45 72 72 4d 61 78 22 2c  |:.B(.O("ErrMax",|
00012db0  c3 26 66 66 66 2c 22 22  2c 22 22 2c 22 22 29 29  |.&fff,"","",""))|
00012dc0  0d 06 d2 21 7f e7 76 25  3c 3e 41 25 2b 28 73 79  |...!..v%<>A%+(sy|
00012dd0  25 3d 31 29 8c 76 25 3d  41 25 3a 74 25 3d 4f 69  |%=1).v%=A%:t%=Oi|
00012de0  25 0d 06 d3 05 cb 0d 06  d4 05 cb 0d 06 d5 07 cb  |%...............|
00012df0  3a e1 0d 06 d6 30 dd f2  4e 79 28 6c 25 29 3a 76  |:....0..Ny(l%):v|
00012e00  25 2b 3d 28 33 2d 73 79  25 29 2a 6c 25 3a e7 76  |%+=(3-sy%)*l%:.v|
00012e10  25 3c 42 25 28 74 25 29  8c 76 25 3d 42 25 28 74  |%<B%(t%).v%=B%(t|
00012e20  25 29 0d 06 d7 18 e7 76  25 3e 57 25 28 74 25 29  |%).....v%>W%(t%)|
00012e30  8c 76 25 3d 57 25 28 74  25 29 0d 06 d8 05 e1 0d  |.v%=W%(t%)......|
00012e40  06 d9 33 dd f2 51 75 28  6e 25 2c 68 25 2c 5f 25  |..3..Qu(n%,h%,_%|
00012e50  2c 51 25 2c 6f 5f 25 2c  77 4a 25 29 3a ea 50 61  |,Q%,o_%,wJ%):.Pa|
00012e60  25 2c 64 25 2c 71 25 2c  78 25 3a e7 6e 25 3c 3e  |%,d%,q%,x%:.n%<>|
00012e70  32 8c 0d 06 da 24 50 61  25 3d a4 6c 79 28 68 25  |2....$Pa%=.ly(h%|
00012e80  2c 5f 25 2c 51 25 2c 64  25 2c 71 25 2c 78 25 29  |,_%,Q%,d%,q%,x%)|
00012e90  3a e7 50 61 25 8c 0d 06  db 0d c8 8e 62 4a 25 2b  |:.Pa%.......bJ%+|
00012ea0  6e 25 ca 0d 06 dc 28 c9  35 2c 33 3a f2 49 28 64  |n%....(.5,3:.I(d|
00012eb0  25 2c 71 25 2c 78 25 29  3a 74 25 3d a4 50 28 33  |%,q%,x%):t%=.P(3|
00012ec0  29 3a 76 25 3d 53 25 28  74 25 29 0d 06 dd 1b c9  |):v%=S%(t%).....|
00012ed0  36 2c 32 3a f2 73 28 64  25 2c 71 25 2c 78 25 29  |6,2:.s(d%,q%,x%)|
00012ee0  3a 51 4a 25 3d b9 0d 06  de 05 cb 0d 06 df 05 cd  |:QJ%=...........|
00012ef0  0d 06 e0 07 cd 3a e1 0d  06 e1 1c dd a4 66 79 28  |.....:.......fy(|
00012f00  77 25 2c 43 79 25 29 3a  6b 25 3d b9 3a c8 8e 43  |w%,Cy%):k%=.:..C|
00012f10  79 25 ca 0d 06 e2 0f c9  34 31 34 3a f2 4e 79 28  |y%......414:.Ny(|
00012f20  31 29 0d 06 e3 10 c9 34  31 35 3a f2 4e 79 28 2d  |1).....415:.Ny(-|
00012f30  31 29 0d 06 e4 1f c9 33  30 3a e7 76 25 3c 3e 46  |1).....30:.v%<>F|
00012f40  79 25 2b 28 73 79 25 3d  31 29 8c 76 25 3d 46 79  |y%+(sy%=1).v%=Fy|
00012f50  25 0d 06 e5 09 7f 6b 25  3d a3 0d 06 e6 09 cb 3a  |%.....k%=......:|
00012f60  3d 6b 25 0d 06 e7 40 dd  f2 47 4a 28 70 25 2c 73  |=k%...@..GJ(p%,s|
00012f70  25 29 3a e7 74 4a 25 3d  42 79 25 8c f2 62 28 73  |%):.tJ%=By%..b(s|
00012f80  25 2c 36 2c 21 70 25 29  3a f2 48 28 42 79 25 2c  |%,6,!p%):.H(By%,|
00012f90  30 2c 2d 31 29 3a f2 4a  28 42 79 25 2c 21 70 25  |0,-1):.J(By%,!p%|
00012fa0  2c 31 29 0d 06 e8 05 e1  0d 06 e9 16 dd a4 4c 79  |,1)...........Ly|
00012fb0  28 65 25 2c 77 25 2c 43  79 25 29 3a 3d a3 0d 06  |(e%,w%,Cy%):=...|
00012fc0  ea 35 dd f2 65 5f 28 7a  25 29 3a d5 23 7a 25 2c  |.5..e_(z%):.#z%,|
00012fd0  73 79 25 3a d5 23 7a 25  2c 54 4a 25 2b 35 3a d5  |sy%:.#z%,TJ%+5:.|
00012fe0  23 7a 25 2c 21 53 4a 25  3a d5 23 7a 25 2c 62 4a  |#z%,!SJ%:.#z%,bJ|
00012ff0  25 3a e1 0d 06 eb 34 dd  f2 71 4a 28 7a 25 29 3a  |%:....4..qJ(z%):|
00013000  73 79 25 3d 9a 23 7a 25  3a 54 4a 25 3d 9a 23 7a  |sy%=.#z%:TJ%=.#z|
00013010  25 2d 35 3a 56 69 25 3d  9a 23 7a 25 3a 62 4a 25  |%-5:Vi%=.#z%:bJ%|
00013020  3d 9a 23 7a 25 3a e1 0d  06 ec 20 dd f2 78 75 28  |=.#z%:.... ..xu(|
00013030  73 25 2c 53 79 25 2c 70  25 2c 5f 25 2c 51 25 29  |s%,Sy%,p%,_%,Q%)|
00013040  3a c8 8e 53 79 25 ca 0d  06 ed 1f c9 37 2c 31 2c  |:..Sy%......7,1,|
00013050  34 2c 35 3a e7 6e 25 3c  3e 32 f2 5a 28 73 25 2c  |4,5:.n%<>2.Z(s%,|
00013060  53 79 25 2c 31 29 0d 06  ee 3b c9 36 3a f2 48 28  |Sy%,1)...;.6:.H(|
00013070  42 79 25 2c 30 2c 2d 31  29 3a f2 4a 28 42 79 25  |By%,0,-1):.J(By%|
00013080  2c a4 70 28 73 25 2c 36  29 2c 31 29 3a f2 43 28  |,.p(s%,6),1):.C(|
00013090  42 79 25 2c 5f 25 2c 51  25 2c 73 25 2c 53 79 25  |By%,_%,Q%,s%,Sy%|
000130a0  29 0d 06 ef 8b c9 39 3a  e7 a4 5a 28 73 25 2c 39  |).....9:..Z(s%,9|
000130b0  29 3d a4 41 28 22 53 65  74 41 6c 61 72 6d 22 29  |)=.A("SetAlarm")|
000130c0  2b 22 2f 22 2b a4 41 28  22 47 6f 74 6f 44 69 61  |+"/"+.A("GotoDia|
000130d0  72 79 22 29 8c f2 41 28  73 25 2c 39 2c a4 41 28  |ry")..A(s%,9,.A(|
000130e0  22 47 6f 74 6f 44 69 61  72 79 22 29 2b 22 2f 22  |"GotoDiary")+"/"|
000130f0  2b a4 41 28 22 53 65 74  41 6c 61 72 6d 22 29 29  |+.A("SetAlarm"))|
00013100  8b f2 41 28 73 25 2c 39  2c a4 41 28 22 53 65 74  |..A(s%,9,.A("Set|
00013110  41 6c 61 72 6d 22 29 2b  22 2f 22 2b a4 41 28 22  |Alarm")+"/"+.A("|
00013120  47 6f 74 6f 44 69 61 72  79 22 29 29 0d 06 f0 07  |GotoDiary"))....|
00013130  cb 3a e1 0d 06 f1 ba dd  f2 52 75 28 73 25 29 3a  |.:.......Ru(s%):|
00013140  f2 5a 28 73 25 2c 37 2c  2d 28 73 79 25 3d 31 29  |.Z(s%,7,-(sy%=1)|
00013150  29 3a f2 5a 28 73 25 2c  31 2c 2d 28 73 79 25 3d  |):.Z(s%,1,-(sy%=|
00013160  32 29 29 3a f2 62 28 73  25 2c 36 2c 21 53 4a 25  |2)):.b(s%,6,!SJ%|
00013170  29 3a f2 5a 28 73 25 2c  34 2c 2d ac 54 4a 25 29  |):.Z(s%,4,-.TJ%)|
00013180  3a f2 5a 28 73 25 2c 35  2c 2d 54 4a 25 29 3a e7  |:.Z(s%,5,-TJ%):.|
00013190  62 4a 25 3d 31 8c f2 41  28 73 25 2c 39 2c a4 41  |bJ%=1..A(s%,9,.A|
000131a0  28 22 47 6f 74 6f 44 69  61 72 79 22 29 2b 22 2f  |("GotoDiary")+"/|
000131b0  22 2b a4 41 28 22 53 65  74 41 6c 61 72 6d 22 29  |"+.A("SetAlarm")|
000131c0  29 8b f2 41 28 73 25 2c  39 2c a4 41 28 22 53 65  |)..A(s%,9,.A("Se|
000131d0  74 41 6c 61 72 6d 22 29  2b 22 2f 22 2b a4 41 28  |tAlarm")+"/"+.A(|
000131e0  22 47 6f 74 6f 44 69 61  72 79 22 29 29 0d 06 f2  |"GotoDiary"))...|
000131f0  05 e1 0d 06 f3 22 dd f2  4b 4a 28 73 25 29 3a e7  |....."..KJ(s%):.|
00013200  a4 4d 28 73 25 2c 37 29  8c 73 79 25 3d 31 8b 73  |.M(s%,7).sy%=1.s|
00013210  79 25 3d 32 0d 06 f4 57  54 4a 25 3d a4 4d 28 73  |y%=2...WTJ%=.M(s|
00013220  25 2c 35 29 3a 21 53 4a  25 3d a4 70 28 73 25 2c  |%,5):!SJ%=.p(s%,|
00013230  36 29 3a e7 a4 5a 28 73  25 2c 39 29 3d a4 41 28  |6):..Z(s%,9)=.A(|
00013240  22 47 6f 74 6f 44 69 61  72 79 22 29 2b 22 2f 22  |"GotoDiary")+"/"|
00013250  2b a4 41 28 22 53 65 74  41 6c 61 72 6d 22 29 8c  |+.A("SetAlarm").|
00013260  62 4a 25 3d 31 8b 62 4a  25 3d 32 0d 06 f5 05 e1  |bJ%=1.bJ%=2.....|
00013270  0d 06 f6 3f dd a4 6c 79  28 68 25 2c 5f 25 2c 51  |...?..ly(h%,_%,Q|
00013280  25 2c f8 64 25 2c f8 71  25 2c f8 78 25 29 3a ea  |%,.d%,.q%,.x%):.|
00013290  70 5f 25 2c 6f 79 25 2c  68 79 25 2c 76 79 25 2c  |p_%,oy%,hy%,vy%,|
000132a0  7a 75 25 2c 77 75 25 3a  e7 73 79 25 3d 31 8c 0d  |zu%,wu%:.sy%=1..|
000132b0  06 f7 da 70 5f 25 3d 28  6a 25 2d 33 32 29 2f 32  |...p_%=(j%-32)/2|
000132c0  3a 6f 79 25 3d 28 6d 25  2d 35 30 29 2f 36 3a 68  |:oy%=(m%-50)/6:h|
000132d0  79 25 3d 70 5f 25 2f 37  3a 76 79 25 3d 28 6f 79  |y%=p_%/7:vy%=(oy|
000132e0  25 2d 26 41 29 2f 38 3a  78 25 3d 76 25 2b 94 68  |%-&A)/8:x%=v%+.h|
000132f0  25 3a 71 25 3d 32 2a 28  28 2d 51 25 2d 35 30 29  |%:q%=2*((-Q%-50)|
00013300  81 6f 79 25 29 2b 28 28  5f 25 2d 32 30 29 81 28  |.oy%)+((_%-20).(|
00013310  28 6a 25 2d 38 29 2f 32  29 29 3a 5f 25 2d 3d 32  |(j%-8)/2)):_%-=2|
00013320  30 2b 28 71 25 83 32 29  2a 28 28 6a 25 2d 38 29  |0+(q%.2)*((j%-8)|
00013330  2f 32 29 3a 51 25 3d 2d  51 25 2d 35 30 2d 28 28  |/2):Q%=-Q%-50-((|
00013340  71 25 81 32 29 2a 6f 79  25 29 3a 71 25 2b 3d 31  |q%.2)*oy%):q%+=1|
00013350  3a 7a 75 25 3d 28 5f 25  2b 68 79 25 2a 28 31 2d  |:zu%=(_%+hy%*(1-|
00013360  30 2e 31 32 29 2b 32 30  2a 94 68 25 29 81 68 79  |0.12)+20*.h%).hy|
00013370  25 3a 77 75 25 3d 28 28  51 25 2d 26 41 2d 76 79  |%:wu%=((Q%-&A-vy|
00013380  25 29 81 76 79 25 29 2d  31 0d 06 f8 2b e7 7a 75  |%).vy%)-1...+.zu|
00013390  25 3e 30 80 7a 75 25 3c  38 8c 64 25 3d 31 2b 7a  |%>0.zu%<8.d%=1+z|
000133a0  75 25 2b 37 2a 77 75 25  2d a4 48 28 31 2c 71 25  |u%+7*wu%-.H(1,q%|
000133b0  2c 78 25 29 0d 06 f9 f7  cc 3a 70 5f 25 3d 28 6a  |,x%).....:p_%=(j|
000133c0  25 2d 34 30 29 2f 32 3a  6f 79 25 3d 28 6d 25 2d  |%-40)/2:oy%=(m%-|
000133d0  35 30 29 2f 33 3a 68 79  25 3d 70 5f 25 2f 37 3a  |50)/3:hy%=p_%/7:|
000133e0  76 79 25 3d 28 6f 79 25  2d 26 41 29 2f 38 3a 78  |vy%=(oy%-&A)/8:x|
000133f0  25 3d 76 25 3a 71 25 3d  32 2a 28 28 2d 51 25 2d  |%=v%:q%=2*((-Q%-|
00013400  35 30 29 81 6f 79 25 29  2b 28 28 5f 25 2d 32 30  |50).oy%)+((_%-20|
00013410  29 81 28 28 6a 25 2d 38  29 2f 32 29 29 3a 5f 25  |).((j%-8)/2)):_%|
00013420  2d 3d 32 30 2b 28 71 25  83 32 29 2a 28 28 6a 25  |-=20+(q%.2)*((j%|
00013430  2d 38 29 2f 32 29 3a 51  25 3d 2d 51 25 2d 35 30  |-8)/2):Q%=-Q%-50|
00013440  2d 28 28 71 25 81 32 29  2a 6f 79 25 29 3a 71 25  |-((q%.2)*oy%):q%|
00013450  2b 3d 31 2b 36 2a 94 68  25 3a 7a 75 25 3d 28 5f  |+=1+6*.h%:zu%=(_|
00013460  25 2d 68 79 25 2a 30 2e  32 35 2b 32 30 2a 94 68  |%-hy%*0.25+20*.h|
00013470  25 29 81 68 79 25 2d 31  3a 77 75 25 3d 51 25 81  |%).hy%-1:wu%=Q%.|
00013480  76 79 25 3a e7 77 75 25  3e 30 80 77 75 25 3c 38  |vy%:.wu%>0.wu%<8|
00013490  8c 64 25 3d 31 2b 77 75  25 2b 37 2a 7a 75 25 2d  |.d%=1+wu%+7*zu%-|
000134a0  a4 48 28 31 2c 71 25 2c  78 25 29 0d 06 fa 0e cd  |.H(1,q%,x%).....|
000134b0  3a e7 78 25 3c 3e 2d 31  8c 0d 06 fb 31 e7 64 25  |:.x%<>-1....1.d%|
000134c0  3c 3d 30 84 64 25 3e a4  58 28 71 25 2c 78 25 29  |<=0.d%>.X(q%,x%)|
000134d0  84 78 25 3e 26 66 66 66  8c 78 25 3d 2d 31 3a 64  |.x%>&fff.x%=-1:d|
000134e0  25 3d 2d 31 3a 71 25 3d  2d 31 0d 06 fc 0d cd 3a  |%=-1:q%=-1.....:|
000134f0  3d 28 78 25 3e 30 29 0d  06 fd 83 dd f2 50 75 28  |=(x%>0)......Pu(|
00013500  78 25 2c 68 25 2c 61 25  2c 4b 25 29 3a ea 71 25  |x%,h%,a%,K%):.q%|
00013510  2c 75 25 2c 63 25 2c 68  79 25 2c 76 79 25 2c 66  |,u%,c%,hy%,vy%,f|
00013520  61 25 2c 41 24 2c 72 25  2c 41 25 2c 42 25 2c 43  |a%,A$,r%,A%,B%,C|
00013530  25 2c 44 25 2c 45 25 2c  46 25 2c 47 25 2c 48 25  |%,D%,E%,F%,G%,H%|
00013540  3a 70 5f 25 3d 28 6a 25  2d 34 30 29 2f 32 3a 6f  |:p_%=(j%-40)/2:o|
00013550  79 25 3d 28 6d 25 2d 35  30 29 2f 33 3a 76 79 25  |y%=(m%-50)/3:vy%|
00013560  3d 28 6f 79 25 2d 26 41  29 2f 38 3a 68 79 25 3d  |=(oy%-&A)/8:hy%=|
00013570  70 5f 25 2f 37 3a e7 68  25 8c 0d 06 fe 1a e7 78  |p_%/7:.h%......x|
00013580  25 3c 57 25 28 74 25 29  8c f2 52 28 31 2c 61 25  |%<W%(t%)..R(1,a%|
00013590  2c 4b 25 29 0d 06 ff 1b  cc e7 78 25 3e 42 25 28  |,K%)......x%>B%(|
000135a0  74 25 29 8c f2 52 28 30  2c 61 25 2c 4b 25 29 0d  |t%)..R(0,a%,K%).|
000135b0  07 00 e5 cd 3a 42 75 25  3d a4 4a 28 22 48 6f 6d  |....:Bu%=.J("Hom|
000135c0  65 72 74 6f 6e 2e 4d 65  64 69 75 6d 22 2c 32 30  |erton.Medium",20|
000135d0  2c 32 30 29 3a 79 75 25  3d a4 4a 28 22 48 6f 6d  |,20):yu%=.J("Hom|
000135e0  65 72 74 6f 6e 2e 4d 65  64 69 75 6d 22 2c 26 44  |erton.Medium",&D|
000135f0  2c 26 44 29 3a 62 75 25  3d a4 4a 28 22 48 6f 6d  |,&D):bu%=.J("Hom|
00013600  65 72 74 6f 6e 2e 4d 65  64 69 75 6d 22 2c 39 2c  |erton.Medium",9,|
00013610  39 29 3a f2 56 28 30 2c  37 29 3a f2 4c 28 42 75  |9):.V(0,7):.L(Bu|
00013620  25 2c c3 78 25 2c 30 2c  61 25 2b 6a 25 2f 32 2c  |%,.x%,0,a%+j%/2,|
00013630  4b 25 2d 38 29 3a e3 72  25 3d 31 b8 36 3a 71 25  |K%-8):.r%=1.6:q%|
00013640  3d 72 25 2b 36 2a 68 25  3a 5f 25 3d 28 72 25 2d  |=r%+6*h%:_%=(r%-|
00013650  31 29 83 32 2a 28 6a 25  2d 38 29 2f 32 2b 32 30  |1).2*(j%-8)/2+20|
00013660  2d 32 30 2a 68 25 3a 51  25 3d 35 30 2b 28 72 25  |-20*h%:Q%=50+(r%|
00013670  2d 31 29 81 32 2a 6f 79  25 3a e7 a4 53 28 61 25  |-1).2*oy%:..S(a%|
00013680  2b 5f 25 2c 4b 25 2d 51  25 2c 70 5f 25 2c 2d 6f  |+_%,K%-Q%,p_%,-o|
00013690  79 25 29 8c 0d 07 01 d8  f2 4c 28 79 75 25 2c a4  |y%)......L(yu%,.|
000136a0  55 28 71 25 2c 2d 31 29  2c 2d 31 2c 61 25 2b 5f  |U(q%,-1),-1,a%+_|
000136b0  25 2c 4b 25 2d 51 25 29  3a 75 25 3d a4 48 28 31  |%,K%-Q%):u%=.H(1|
000136c0  2c 71 25 2c 78 25 29 2d  31 3a c8 99 26 34 30 30  |,q%,x%)-1:..&400|
000136d0  38 41 2c 62 75 25 3a 51  25 2b 3d 76 79 25 2d 36  |8A,bu%:Q%+=vy%-6|
000136e0  3a e3 63 25 3d 31 b8 37  3a c8 99 26 34 30 30 38  |:.c%=1.7:..&4008|
000136f0  36 2c 2c a4 63 28 63 25  2c 32 29 2c 31 3c 3c 34  |6,,.c(c%,2),1<<4|
00013700  2c 61 25 2b 5f 25 2c 4b  25 2d 51 25 2d 76 79 25  |,a%+_%,K%-Q%-vy%|
00013710  2a 63 25 3a ed 3a 5f 25  2b 3d 68 79 25 3a 41 25  |*c%:.:_%+=hy%:A%|
00013720  3d 4b 25 2d 51 25 3a 44  25 3d 61 25 2b 5f 25 3a  |=K%-Q%:D%=a%+_%:|
00013730  46 25 3d a4 58 28 71 25  2c 78 25 29 3a 47 25 3d  |F%=.X(q%,x%):G%=|
00013740  75 25 3a 48 25 3d 68 79  25 3a 42 25 3d 2d 76 79  |u%:H%=hy%:B%=-vy|
00013750  25 3a e7 78 25 3d 46 79  25 80 71 25 3d 62 79 25  |%:.x%=Fy%.q%=by%|
00013760  8c 43 25 3d 55 79 25 8b  43 25 3d 30 0d 07 02 68  |.C%=Uy%.C%=0...h|
00013770  e7 54 4a 25 80 43 25 3c  3e 30 8c 43 25 3d 30 3a  |.TJ%.C%<>0.C%=0:|
00013780  c8 99 26 34 30 30 45 36  2c 21 53 4a 25 3a c8 93  |..&400E6,!SJ%:..|
00013790  61 25 2b 5f 25 2b 28 28  75 25 2d 31 2b 55 79 25  |a%+_%+((u%-1+Uy%|
000137a0  29 81 37 2b 30 2e 32 35  29 2a 68 79 25 2c 4b 25  |).7+0.25)*hy%,K%|
000137b0  2d 51 25 2d 28 28 75 25  2d 31 2b 55 79 25 29 83  |-Q%-((u%-1+Uy%).|
000137c0  37 2b 30 2e 32 35 29 2a  76 79 25 2c 68 79 25 2c  |7+0.25)*vy%,hy%,|
000137d0  2d 76 79 25 0d 07 03 06  d6 4b 0d 07 04 21 cd 3a  |-vy%.....K...!.:|
000137e0  ed 3a f2 51 28 42 75 25  29 3a f2 51 28 79 75 25  |.:.Q(Bu%):.Q(yu%|
000137f0  29 3a f2 51 28 62 75 25  29 3a e1 0d 07 05 89 dd  |):.Q(bu%):......|
00013800  f2 4a 4a 28 76 25 2c 68  25 2c 61 25 2c 4b 25 29  |.JJ(v%,h%,a%,K%)|
00013810  3a ea 71 25 2c 75 25 2c  63 25 2c 68 79 25 2c 72  |:.q%,u%,c%,hy%,r|
00013820  61 25 2c 6f 79 25 2c 41  24 2c 41 25 2c 42 25 2c  |a%,oy%,A$,A%,B%,|
00013830  43 25 2c 44 25 2c 45 25  2c 46 25 2c 47 25 2c 48  |C%,D%,E%,F%,G%,H|
00013840  25 3a 70 5f 25 3d 28 6a  25 2d 33 32 29 2f 32 3a  |%:p_%=(j%-32)/2:|
00013850  6f 79 25 3d 28 6d 25 2d  35 30 29 2f 36 3a 68 79  |oy%=(m%-50)/6:hy|
00013860  25 3d 70 5f 25 2f 37 3a  76 79 25 3d 28 6f 79 25  |%=p_%/7:vy%=(oy%|
00013870  2d 26 41 29 2f 38 3a 78  25 3d 76 25 2b 68 25 3a  |-&A)/8:x%=v%+h%:|
00013880  e7 68 25 8c 0d 07 06 1c  e7 76 25 2b 31 3c 57 25  |.h%......v%+1<W%|
00013890  28 74 25 29 8c f2 52 28  31 2c 61 25 2c 4b 25 29  |(t%)..R(1,a%,K%)|
000138a0  0d 07 07 1b cc e7 76 25  3e 42 25 28 74 25 29 8c  |......v%>B%(t%).|
000138b0  f2 52 28 30 2c 61 25 2c  4b 25 29 0d 07 08 10 cd  |.R(0,a%,K%).....|
000138c0  3a e7 78 25 3c 3d 26 66  66 66 8c 0d 07 09 d9 42  |:.x%<=&fff.....B|
000138d0  75 25 3d a4 4a 28 22 48  6f 6d 65 72 74 6f 6e 2e  |u%=.J("Homerton.|
000138e0  4d 65 64 69 75 6d 22 2c  32 30 2c 32 30 29 3a 79  |Medium",20,20):y|
000138f0  75 25 3d a4 4a 28 22 48  6f 6d 65 72 74 6f 6e 2e  |u%=.J("Homerton.|
00013900  4d 65 64 69 75 6d 22 2c  26 41 2c 26 41 29 3a 62  |Medium",&A,&A):b|
00013910  75 25 3d a4 4a 28 22 48  6f 6d 65 72 74 6f 6e 2e  |u%=.J("Homerton.|
00013920  4d 65 64 69 75 6d 22 2c  37 2c 37 29 3a f2 56 28  |Medium",7,7):.V(|
00013930  30 2c 37 29 3a f2 4c 28  42 75 25 2c c3 78 25 2c  |0,7):.L(Bu%,.x%,|
00013940  30 2c 61 25 2b 6a 25 2f  32 2c 4b 25 2d 38 29 3a  |0,a%+j%/2,K%-8):|
00013950  e3 71 25 3d 31 b8 26 43  3a 5f 25 3d 28 71 25 2d  |.q%=1.&C:_%=(q%-|
00013960  31 29 83 32 2a 28 6a 25  2d 38 29 2f 32 2b 32 30  |1).2*(j%-8)/2+20|
00013970  2d 32 30 2a 68 25 3a 51  25 3d 35 30 2b 28 71 25  |-20*h%:Q%=50+(q%|
00013980  2d 31 29 81 32 2a 6f 79  25 3a e7 a4 53 28 61 25  |-1).2*oy%:..S(a%|
00013990  2b 5f 25 2c 4b 25 2d 51  25 2c 70 5f 25 2c 2d 6f  |+_%,K%-Q%,p_%,-o|
000139a0  79 25 29 8c 0d 07 0a ec  f2 4c 28 79 75 25 2c a4  |y%)......L(yu%,.|
000139b0  55 28 71 25 2c 2d 31 29  2c 2d 31 2c 61 25 2b 5f  |U(q%,-1),-1,a%+_|
000139c0  25 2c 4b 25 2d 51 25 29  3a 75 25 3d a4 48 28 31  |%,K%-Q%):u%=.H(1|
000139d0  2c 71 25 2c 78 25 29 2d  31 3a c8 99 26 34 30 30  |,q%,x%)-1:..&400|
000139e0  38 41 2c 62 75 25 3a 51  25 2b 3d 76 79 25 2b 34  |8A,bu%:Q%+=vy%+4|
000139f0  3a e3 63 25 3d 31 b8 37  3a c8 99 26 34 30 30 38  |:.c%=1.7:..&4008|
00013a00  36 2c 2c 22 20 20 22 2b  a4 63 28 63 25 2c 32 29  |6,,"  "+.c(c%,2)|
00013a10  2c 31 3c 3c 34 2c 61 25  2b 5f 25 2b 68 79 25 2a  |,1<<4,a%+_%+hy%*|
00013a20  63 25 2d 68 79 25 2c 4b  25 2d 51 25 2d 76 79 25  |c%-hy%,K%-Q%-vy%|
00013a30  3a ed 3a 51 25 2b 3d 76  79 25 3a 41 25 3d 61 25  |:.:Q%+=vy%:A%=a%|
00013a40  2b 5f 25 2d 68 79 25 3a  45 25 3d 4b 25 2d 51 25  |+_%-hy%:E%=K%-Q%|
00013a50  2d 76 79 25 3a 46 25 3d  a4 58 28 71 25 2c 78 25  |-vy%:F%=.X(q%,x%|
00013a60  29 3a 47 25 3d 75 25 3a  48 25 3d 68 79 25 3a 42  |):G%=u%:H%=hy%:B|
00013a70  25 3d 76 79 25 3a e7 78  25 3d 46 79 25 80 71 25  |%=vy%:.x%=Fy%.q%|
00013a80  3d 62 79 25 8c 43 25 3d  55 79 25 8b 43 25 3d 30  |=by%.C%=Uy%.C%=0|
00013a90  0d 07 0b 6d e7 54 4a 25  80 43 25 3c 3e 30 8c 43  |...m.TJ%.C%<>0.C|
00013aa0  25 3d 30 3a c8 99 26 34  30 30 45 36 2c 21 53 4a  |%=0:..&400E6,!SJ|
00013ab0  25 3a c8 93 61 25 2b 5f  25 2b 28 28 75 25 2d 31  |%:..a%+_%+((u%-1|
00013ac0  2b 55 79 25 29 83 37 2b  30 2e 31 32 29 2a 68 79  |+Uy%).7+0.12)*hy|
00013ad0  25 2c 4b 25 2d 51 25 2d  28 28 75 25 2d 31 2b 55  |%,K%-Q%-((u%-1+U|
00013ae0  79 25 29 81 37 2b 30 2e  31 38 29 2a 76 79 25 2c  |y%).7+0.18)*vy%,|
00013af0  68 79 25 2a 30 2e 37 36  2c 2d 76 79 25 0d 07 0c  |hy%*0.76,-vy%...|
00013b00  06 d6 59 0d 07 0d 07 cd  3a ed 0d 07 0e 1f cd 3a  |..Y.....:......:|
00013b10  f2 51 28 42 75 25 29 3a  f2 51 28 79 75 25 29 3a  |.Q(Bu%):.Q(yu%):|
00013b20  f2 51 28 62 75 25 29 3a  e1 0d 07 0f f9 dd f2 57  |.Q(bu%):.......W|
00013b30  4a 3a ea 50 25 2c 41 25  2c 44 69 25 2c 49 61 25  |J:.P%,A%,Di%,Ia%|
00013b40  2c 4a 2c 50 2c 52 2c 48  2c 53 2c 4f 2c 4d 2c 5f  |,J,P,R,H,S,O,M,_|
00013b50  2c 5a 2c 54 2c 58 2c 42  2c 41 3a de 49 61 25 34  |,Z,T,X,B,A:.Ia%4|
00013b60  35 36 3a 4a 3d 26 44 3a  50 3d 26 45 3a 52 3d 26  |56:J=&D:P=&E:R=&|
00013b70  46 3a 48 3d 35 3a 53 3d  36 3a 4f 3d 30 3a 4d 3d  |F:H=5:S=6:O=0:M=|
00013b80  33 3a 5f 3d 30 3a 5a 3d  34 3a 54 3d 37 3a 58 3d  |3:_=0:Z=4:T=7:X=|
00013b90  38 3a 42 3d 39 3a 41 3d  26 41 3a e3 44 69 25 3d  |8:B=9:A=&A:.Di%=|
00013ba0  30 b8 32 88 32 3a 50 25  3d 49 61 25 3a 5b 4f 50  |0.2.2:P%=Ia%:[OP|
00013bb0  54 44 69 25 3a 2e 59 3a  53 54 4d 46 44 28 4a 29  |TDi%:.Y:STMFD(J)|
00013bc0  21 2c 7b 50 7d 3a 4d 4f  56 20 58 2c 31 3a 4d 4f  |!,{P}:MOV X,1:MO|
00013bd0  56 20 42 2c 32 3a 4d 4f  56 20 41 2c 23 30 3a 4d  |V B,2:MOV A,#0:M|
00013be0  4f 56 32 2c 23 31 3c 3c  34 3a 41 44 52 31 2c 4c  |OV2,#1<<4:ADR1,L|
00013bf0  3a 2e 7a 3a 41 44 44 20  53 2c 53 2c 23 31 3a 41  |:.z:ADD S,S,#1:A|
00013c00  44 44 20 41 2c 41 2c 23  31 3a 43 4d 50 20 42 2c  |DD A,A,#1:CMP B,|
00013c10  41 3a 42 4c 45 51 20 44  3a 4d 55 4c 20 4d 2c 54  |A:BLEQ D:MUL M,T|
00013c20  2c 53 0d 07 10 d9 41 44  44 20 4d 2c 4d 2c 4f 3a  |,S....ADD M,M,O:|
00013c30  53 57 49 20 26 34 30 30  38 36 3a 43 4d 50 20 42  |SWI &40086:CMP B|
00013c40  2c 41 3a 42 4c 45 51 20  49 3a 43 4d 50 20 53 2c  |,A:BLEQ I:CMP S,|
00013c50  23 37 3a 53 55 42 45 51  20 5a 2c 5a 2c 58 3a ec  |#7:SUBEQ Z,Z,X:.|
00013c60  51 20 53 2c 23 30 3a 41  44 44 31 2c 31 2c 23 38  |Q S,#0:ADD1,1,#8|
00013c70  3a 43 4d 50 20 41 2c 48  3a 42 4e 45 20 7a 3a 4c  |:CMP A,H:BNE z:L|
00013c80  44 4d 46 44 28 4a 29 21  2c 7b 70 63 7d 3a 2e 4b  |DMFD(J)!,{pc}:.K|
00013c90  3a 53 54 4d 46 44 28 4a  29 21 2c 7b 50 7d 3a 4d  |:STMFD(J)!,{P}:M|
00013ca0  4f 56 20 58 2c 31 3a 4d  4f 56 20 42 2c 32 3a 4d  |OV X,1:MOV B,2:M|
00013cb0  4f 56 20 41 2c 23 30 3a  4d 4f 56 32 2c 23 31 3c  |OV A,#0:MOV2,#1<|
00013cc0  3c 34 3a 41 44 52 31 2c  4c 3a 2e 73 3a 41 44 44  |<4:ADR1,L:.s:ADD|
00013cd0  20 53 2c 53 2c 23 31 3a  41 44 44 20 41 2c 41 2c  | S,S,#1:ADD A,A,|
00013ce0  23 31 3a 43 4d 50 20 42  2c 41 3a 42 4c 45 51 20  |#1:CMP B,A:BLEQ |
00013cf0  44 3a 4d 55 4c 20 5a 2c  58 2c 53 0d 07 11 df 41  |D:MUL Z,X,S....A|
00013d00  44 44 20 5a 2c 5a 2c 5f  3a 53 57 49 20 26 34 30  |DD Z,Z,_:SWI &40|
00013d10  30 38 36 3a 43 4d 50 20  42 2c 41 3a 42 4c 45 51  |086:CMP B,A:BLEQ|
00013d20  20 49 3a 43 4d 50 20 53  2c 23 37 3a 41 44 44 45  | I:CMP S,#7:ADDE|
00013d30  51 20 4d 2c 4d 2c 54 3a  ec 51 20 53 2c 23 30 3a  |Q M,M,T:.Q S,#0:|
00013d40  41 44 44 31 2c 31 2c 23  38 3a 43 4d 50 20 41 2c  |ADD1,1,#8:CMP A,|
00013d50  48 3a 42 4e 45 20 73 3a  4c 44 4d 46 44 28 4a 29  |H:BNE s:LDMFD(J)|
00013d60  21 2c 7b 70 63 7d 3a 2e  44 3a 53 54 4d 46 44 28  |!,{pc}:.D:STMFD(|
00013d70  4a 29 21 2c 7b 50 2c 31  2d 32 7d 3a 4c 44 52 32  |J)!,{P,1-2}:LDR2|
00013d80  2c 53 4a 25 3a 42 20 71  3a 2e 49 3a 53 54 4d 46  |,SJ%:B q:.I:STMF|
00013d90  44 28 4a 29 21 2c 7b 50  2c 31 2d 32 7d 3a 4d 4f  |D(J)!,{P,1-2}:MO|
00013da0  56 32 2c 23 37 3a 2e 71  3a 4d 4f 56 31 2c 23 30  |V2,#7:.q:MOV1,#0|
00013db0  3a 53 57 49 20 26 34 30  30 46 33 3a 4c 44 4d 46  |:SWI &400F3:LDMF|
00013dc0  44 28 4a 29 21 2c 7b 70  63 2c 31 2d 32 7d 3a 2e  |D(J)!,{pc,1-2}:.|
00013dd0  53 4a 25 26 56 69 25 3a  2e 4c 0d 07 12 3c 5d e3  |SJ%&Vi%:.L...<].|
00013de0  41 25 3d 31 b8 33 31 3a  5b 4f 50 54 44 69 25 3a  |A%=1.31:[OPTDi%:|
00013df0  3d c4 32 2d 32 2a 28 41  25 3c 26 41 29 2c 22 20  |=.2-2*(A%<&A)," |
00013e00  22 29 2b c3 41 25 2b bd  30 3a 41 4c 49 47 4e 3a  |")+.A%+.0:ALIGN:|
00013e10  5d ed 3a ed 3a e1 0d ff                           |].:.:...|
00013e18