Home » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199804.adf » Features » Organiser/!Upgrade/!Organiser/!RunImage
Organiser/!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_AcornUser_199804.adf » Features |
Filename: | Organiser/!Upgrade/!Organiser/!RunImage |
Read OK: | ✔ |
File size: | 1519C bytes |
Load address: | 0000 |
Exec address: | 0000 |
File contents
1REM>!RunImage 2REMProduced by BasCompress v1.71 (19 Sep 1996) 3PROCYJ:w%=0:pl%=FALSE:ti%=-1:ONERRORPROCNy:ERROREXTERL,REPORT$+" at line "+STR$ERL 4gu%=-1:Wu%=0:w$="!Organiser":DIMK%512:J%=K%+256:PROCY_:w%=OPENIN"<Organiser$Dir>.Resources.!Language":B$=GET$#w%:CLOSE#w%:w%=0::X=1.26:w%=OPENIN("<Organiser$Dir>.Resources."+B$+".Messages"):IFw%<>0THENX=VALMID$(GET$#w%,2):CLOSE#w%:w%=0ELSEX=0 5IFX<1.26THEN_$=B$:B$="English"ELSE_$="" 6v$="<Organiser$Dir>.Resources."+B$:PROCJJ(v$+".Messages"):PROCHJ(FNA("Title"),"<Organiser$Dir>",STR$1.26+" (16 Nov 97)",TRUE):SYS66TOWu%:gu%=Wu%+500:WHILENOTVu%:PROCw(1):ENDWHILE:PROCNy:END 7DEFPROCNy:IFpl%=TRUETHENSYS&406C2:ERROREXTERL,REPORT$+" at line "+STR$ERL:END 8pl%=TRUE:h$=REPORT$+" at line "+STR$ERL:Fa%=ERR:ONERRORERROREXTFa%,h$ 9IFw%<>0THENCLOSE#w%:w%=0 10PROCbJ:PROCi:SYS&400DD:ENDPROC 11DEFPROCw(Nl%):LOCALA$,Vi%,Ul%,J_%,mJ%:mJ%=FALSE:IFvy%ANDZu%THENPROCPy 12IFRu%ANDvy%<>Ii%THENIi%=vy%:PROCf(i%,ki%,FNA("Title")+STRING$(-(vy%=TRUE)," *"),TRUE) 13IFNl%AND1THENUl%=&64 14IFG$<>""THENUl%=0 15IF(XJ%<>-1)ANDIy%THENUl%=0 16Nl%=(Nl%OR(1<<5))ANDNOT(1+(3<<17)):IFUl%>0THEN 17SYS66TOMa%:WHILEMa%>Wu%:Wu%+=&64:ENDWHILE:SYS&400E1,Nl%,K%,Wu%TOVi% 18ELSESYS&400C7,Nl%,K%TOVi% 19ENDIF:CASEVi%OF 20WHEN0:CASETRUEOF 21WHENXJ%<>-1ANDIy%:PROCKu 22WHENWu%>gu%ANDgu%<>-1:PROCU_ 23WHEN(Ul%<>0ORG$<>"")ANDti%<>FNGy:PROCm:PROCa_ 24WHENG$<>"":PROCou 25ENDCASE 26WHEN1:PROCIJ 27WHEN2:IF!K%=T_%THEN 28PROCPJ 29ELSE:IF!K%=i%ANDJJ%THENK%!20=0 30IFNOTFNhyTHENPROCF_ 31SYS&400C5,,K%:IF!K%=i%ANDJJ%THENPROCAu 32ENDIF 33WHEN3:CASE!K%OF 34WHENf%:PROCn 35WHENT_%:PROCb 36WHENRy%:PROCYy 37WHEN_y%:PROCt 38WHENGJ%:PROCX_ 39WHENGy%:PROCi 40OTHERWISEPROCX(!K%) 41ENDCASE 42WHEN4:IF0<>0THENSYS&400E9,36,,"ptr_default",1 43WHEN5 44WHEN6:IFRu%THENPROCe(K%!&C,K%!16,K%!8,!K%,K%!4) 45WHEN7 46WHEN8:PROCMu(!K%,K%!4,K%!24) 47WHEN9:PROCyJ 48WHEN&B,&C:wJ%=FNz 49WHEN17,18:PROCyu 50WHEN19:IFK%!4=vu%ANDK%!16=&4AF80THEN 51A$=FNN(K%+20):IFuJ%=1ANDFNb("Alias$URLOpen_HTTP")THEN 52SYS&400DE,"URLOpen_HTTP "+A$ 53ENDIF:IFuJ%=2ANDFNb("Alias$URLOpen_MailTo")THEN 54SYS&400DE,"URLOpen_MailTo "+A$ 55ENDIF 56ENDIF 57ENDCASE:IFVu%THENPROCNy:END 58ENDPROC 59DEFFNhy=(Uy%<>K%!16-K%!8ORay%<>K%!&C-K%!4) 60DEFPROCmLOCALA%,S%,M%,H%,R%,M$,ni%,ji%,oi%,pi%,tl%,I$:IF(Oy%AND4)=4ANDMJ%=0THEN 61M$=FNZy("%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:tl%=TRUE:SYS46,316,h%,"clock",0TOni%,ji%,oi%,pi%:GCOL1:RECTANGLEFILL0,0,I_%,Pu%:R%=56:ORIGINI_%/2,Pu%/2:GCOLP%(0):CIRCLEFILL0,0,R%:GCOLP%(3) 62FORA%=0TO330STEP30:LINER%*SINRADA%,R%*COSRADA%,(R%-&A)*SINRADA%,(R%-&A)*COSRADA%:NEXT:GCOLP%(1)+(P%(1)-P%(2))*(x_%ANDNOTRu%):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) 63PLOT85,(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 64IFOy%AND2THENLINE0,0,(R%*0.9)*SINRADS%,(R%*0.9)*COSRADS% 65SYS46,ni%,ji%,oi%,pi% 66ELSE:IF(Oy%AND9)<>0THEN 67IF(Oy%AND8)=8ORMJ%>0THEN 68M$=FNUy:IF$DJ%<>M$THEN$DJ%=M$:tl%=TRUE 69ELSE:IF(Oy%AND16)=0THEN 70M$=":%mi":IF(Oy%AND2)=2THENM$+=".%se" 71IFf_%THENM$="%z24"+M$ELSEM$="%z12"+M$+" %am" 72ELSEM$=N$ 73ENDIF:M$=FNZy(M$):IFM$<>$DJ%THEN$DJ%=M$:tl%=TRUE 74ENDIF 75ENDIF 76ENDIF:IFtl%THEN!K%=-1-7*ABS(b_%):K%!4=j_%:K%!8=0:K%!&C=0:SYS&400CD,,K%:WAIT 77ENDPROC 78DEFFNUy:LOCALH%,A$:SYS&400EC,-1,-1TO,,H%:H%=H%DIV&400:A$="k":IFH%>&400ANDGu%THENH%=H%DIV&400:A$="M" 79=STR$H%+A$ 80DEFPROCa_:IFDy%<>FNTORfy%<>FNIORMy%<>FNRTHEN 81_J%=FNS(0,0,Dy%,fy%,My%):My%=FNR:fy%=FNI:Dy%=FNT:IFxJ%THENPROCAy 82IFIy%THENJ_%=0:PROCK 83Bu%=TRUE:K_%=t%:w_%=v%:PROCxy:PROCx 84ENDIF:IFxJ%ANDlJ%<>0THENIFFNB(lJ%,FNY)<>1THENPROCmJ 85IFvJ%<>-1THENIFFNB(vJ%!&C,FNY)<>1THENPROCuu 86IFW_%>0ANDFNoyTHENVDU7:W_%-=1:IFW_%=0THENW_%=-&A 87IFW_%<0THENW_%+=1:IFW_%=0THENW_%=&A 88IFMJ%>0THENMJ%-=1:IFMJ%=0THENPROCh:PROCm 89ti%=FNGy:ENDPROC 90DEFFNZy(A$):?J%=3:SYS7,&E,J%:SYS&C1,J%,J%,&80,A$:=FNN(J%) 91DEFFNe:?J%=3:SYS7,&E,J%:SYS&43049,,J%,J%:=J% 92DEFFNGy=!(FNe+4) 93DEFFNi=!(FNe+8) 94DEFFNc=!(FNe+&C) 95DEFFNT=!(FNe+16) 96DEFFNI=!(FNe+20) 97DEFFNR=!(FNe+24) 98DEFFNS(qy%,n%,c%,r%,Q%)=qy%OR(n%<<6)OR(c%<<&B)OR(r%<<16)OR(Q%<<20) 99DEFPROCG(x%,RETURNqy%,RETURNn%,RETURNc%,RETURNr%,RETURNQ%):qy%=x%AND63:n%=(x%>>6)AND31:c%=(x%>>&B)AND31:r%=(x%>>16)AND&F:Q%=(x%>>20)AND&FFF:ENDPROC 100DEFFNx(x%)=x%ANDNOT&7FF 101DEFFNty(x%)=x%AND63 102DEFFNS_(x%)=(x%>>6)AND31 103DEFFNY=FNS(FNi,FNc,FNT,FNI,FNR) 104DEFFNB(A%,B%):LOCALXi%,hi%,qi%,vi%,zi%,q_%:LOCALUi%,Ni%,Hi%,ci%,di%:IFA%<>B%THEN 105PROCG(A%,zi%,vi%,qi%,hi%,Xi%):PROCG(B%,di%,ci%,Hi%,Ni%,Ui%):CASETRUEOF 106WHENXi%>Ui%:q_%=1 107WHENXi%<Ui%:q_%=-1 108WHENhi%>Ni%:q_%=1 109WHENhi%<Ni%:q_%=-1 110WHENqi%>Hi%:q_%=1 111WHENqi%<Hi%:q_%=-1 112WHENvi%>ci%:q_%=1 113WHENvi%<ci%:q_%=-1 114WHENzi%>di%:q_%=1 115WHENzi%<di%:q_%=-1 116ENDCASE 117ELSEq_%=0 118ENDIF:=q_% 119DEFPROCcu(a%,Q%,py%):SYS&400ED,256,h%,"tab",,,,J%,J%+&80:PROCXy(J%+&80,py%):SYS46,52+256,h%,"cover",a%,Q%,0,J%,J%+&80:SYS46,52+256,h%,"cover",a%,FNf(Q%+zy%-2*20),0,J%,J%+&80:SYS46,52+256,h%,"tab",a%,Q%,8,J%,J%+&80:SYS46,33+256,h%,"tab" 120SYS46,52+256,h%,"tab",a%,Q%+zy%-2*20,8,J%,J%+&80:SYS46,33+256,h%,"tab":SYS&400E6,py%:RECTANGLEFILLa%+40,Q%+2*20,-2*20,zy%-4*20:SYS&400E6,6:MOVEa%+40,Q%+2*20:DRAWBY0,zy%-4*20:ENDPROC 121DEFPROCxu(a%,Q%,py%)a%-=40:SYS&400ED,256,h%,"tab",,,,J%,J%+&80:PROCXy(J%+&80,py%):SYS46,52+256,h%,"cover",a%,Q%,0,J%,J%+&80:SYS46,52+256,h%,"cover",a%,FNf(Q%+zy%-2*20),0,J%,J%+&80:SYS46,47+256,h%,"tab":SYS46,52+256,h%,"tab",a%,Q%,8,J%,J%+&80:SYS46,33+256,h%,"tab" 122SYS46,52+256,h%,"tab",a%,Q%+zy%-2*20,8,J%,J%+&80:SYS46,33+256,h%,"tab":SYS46,47+256,h%,"tab":SYS&400E6,py%:RECTANGLEFILLa%,Q%+2*20,2*20,zy%-4*20:SYS&400E6,6:MOVEa%,Q%+2*20:DRAWBY0,zy%-4*20:ENDPROC 123DEFPROCs_(q%,_%,U%):IFq%=i%THENPROCCu(q%,_%,U%)ELSEPROCQu(q%,_%,U%) 124ENDPROC 125DEFPROCXy(ty%,Wy%):LOCALby%,l%,py%:by%=ty%?yu%:l%=ty%?ru%:IFWy%<>-1THEN?ty%=ty%?Wy% 126ty%?&B=by%:ty%?5=l%:ENDPROC 127DEFPROCCu(q%,_%,U%):T%=TIME:LOCALA%,a%,Q%,Y%,ol%,Ca%,Ja%:SYS46,40+256,h%,"ring"TO,,,Ca%,Ja%:SYS&400E6,1:PROCd(_%,U%,5,-Uy%):PROCd(_%+sJ%+40+40,U%,5+5,-Uy%-5):PROCd(_%,U%,ay%,-5):PROCd(_%,U%-Uy%-5,ay%,5+5):SYS&400ED,256,h%,"cover",,,,J%,J%+&80:PROCXy(J%+&80,-1) 128SYS46,52+256,h%,"cover_tl",_%+5,U%-5-40,0,J%,J%+&80:SYS46,52+256,h%,"cover_tr",_%+ay%-5-40,U%-5-40,0,J%,J%+&80:SYS46,52+256,h%,"cover_bl",_%+5,U%-Uy%+5,0,J%,J%+&80:SYS46,52+256,h%,"cover_br",_%+ay%-5-40,U%-Uy%+5,0,J%,J%+&80:FORA%=U%-5-40-40TOU%-Uy%/2STEP-40 129SYS46,52+256,h%,"cover_l",_%+5,A%,0,J%,J%+&80:SYS46,52+256,h%,"cover_r",_%+ay%-5-40,A%,0,J%,J%+&80:NEXT:FORA%=U%-Uy%+5+40TOU%-Uy%/2+40STEP40:SYS46,52+256,h%,"cover_l",_%+5,A%,0,J%,J%+&80:SYS46,52+256,h%,"cover_r",_%+ay%-5-40,A%,0,J%,J%+&80:NEXT 130FORA%=_%+5+40TO_%+ay%/2STEP40:SYS46,52+256,h%,"cover_t",A%,U%-5-40,0,J%,J%+&80:SYS46,52+256,h%,"cover_b",A%,U%-Uy%+5,0,J%,J%+&80:NEXT:FORA%=_%+ay%-5-2*40TO_%+ay%/2-40STEP-40:SYS46,52+256,h%,"cover_t",A%,U%-5-40,0,J%,J%+&80 131SYS46,52+256,h%,"cover_b",A%,U%-Uy%+5,0,J%,J%+&80:NEXT:FORA%=U%-Uy%+40TOU%-m%-t%*zy%STEP40:SYS46,52+256,h%,"cover",_%+k_%,A%,0,J%,J%+&80:NEXT:FORA%=U%-5-40-40TOU%-5-40-zy%*t%-40STEP-40:SYS46,52+256,h%,"cover",_%+ay%-5-80,A%,0,J%,J%+&80:NEXT 132IFFNF(_%+`y%,U%-m%,&64,-k%)THENSYS&400E6,2:RECTANGLEFILL_%+`y%+32,U%-m%-40,&64-2*32-2,-k%+80 133SYS46,52+256,h%,"cover",_%+ay%-5-80,U%-Uy%+40,0,J%,J%+&80:SYS46,52+256,h%,"cover",_%+`y%+32,U%-m%-40,0,J%,J%+&80:SYS46,52+256,h%,"cover",_%+`y%+32,U%-Uy%+40,0,J%,J%+&80:SYS46,52+256,h%,"fold",_%+`y%-&64/4,U%-m%-k%-40,0,J%,J%+&80 134SYS46,52+256,h%,"fold",_%+`y%+5*&64/4-6,U%-m%-k%-40,0,J%,J%+&80:SYS46,33+256,h%,"fold":SYS46,52+256,h%,"fold",_%+`y%-0.3*&64,U%-m%,0,J%,J%+&80:SYS46,52+256,h%,"fold",_%+`y%+1.3*&64-6,U%-m%,0,J%,J%+&80:SYS46,33+256,h%,"fold" 135SYS&400ED,256,h%,"cover",,,,J%,J%+&80:SYS46,52+256,h%,"mid_b",_%+`y%+&64/2-17,U%-Uy%+76,8,J%,J%+&80:SYS46,52+256,h%,"mid_t",_%+`y%+&64/2-17,U%-m%-40,8,J%,J%+&80:SYS&40081,,"Homerton.Medium",&96,&96TOol%:FORA%=1TOB_%:IFt%<A%THEN 136IFFNF(_%+sJ%,U%-m%-(zy%*A%),40,zy%)THEN 137PROCcu(_%+sJ%,U%-m%-(zy%*A%),D%(A%)):PROCV(D%(A%),I%(A%)):PROCjy(ol%,M$(A%),0,0,_%+sJ%+40/2,U%-m%-(zy%*(A%-0.5)),1) 138ENDIF 139ELSE:IFFNF(_%+k_%,U%-m%-(zy%*A%),40,zy%)THEN 140PROCxu(_%+k_%+40,U%-m%-(zy%*A%),D%(A%)):PROCV(D%(A%),I%(A%)):PROCjy(ol%,M$(A%),0,0,_%+k_%+40/2,U%-m%-(zy%*(A%-0.5)),-1) 141ENDIF 142ENDIF:NEXT:SYS&400E6,0:PROCd(_%+wy%-32,U%-m%,u%+32,-k%):PROCd(_%+my%,U%-m%,u%+32,-k%):SYS&400E6,6:RECTANGLE_%+wy%-32,U%-m%,u%+32,-k%:RECTANGLE_%+my%,U%-m%,u%+32,-k%:a%=_%+`y%+&64/2:Y%=U%-m%-k%/(OJ%+1):FORA%=1TOOJ%:IFFNF(a%-40-8,Y%-&C,2*(40+8),40+&C)AND(qu%AND1<<(A%-1))>0THEN 143SYS&400ED,256,h%,"ring",,,,J%,J%+&80:SYS46,52+256,h%,"ring",a%-Ca%,Y%-Ja%/2,8,J%,J%+&80 144ENDIF:Y%-=FNf(k%/(OJ%+1)):NEXT:IFt%>0ANDFNF(_%+my%,U%-m%,u%+32,-k%)ANDNOTAu%THENPROCoy(0,_%+my%,U%-m%) 145IFFNF(_%+wy%-32,U%-m%,u%+32,-k%)ANDNOTAu%THENPROCoy(1,_%+wy%,U%-m%) 146SYS&40082,ol%:ENDPROC 147DEFPROCI(y%,_%,U%):SYS&400ED,256,h%,"corner",,,,J%,J%+&80:IFy%THEN_%+=1 148IFy%=1ANDFNF(_%+u%,U%-k%,-32,32)THEN 149SYS46,47+256,h%,"corner":SYS46,52+256,h%,"corner",_%+u%-16*2,U%-k%+2,8,J%,J%+&80:SYS46,47+256,h%,"corner":PROCB_(_%+u%-32,U%,N%(1)) 150ENDIF:IFy%=0THEN 151IFFNF(_%,U%-k%,32,32)THEN 152SYS46,52+256,h%,"corner",_%+2,U%-k%+2,8,J%,J%+&80:PROCB_(_%,U%,N%(0)) 153ENDIF 154ENDIF:ENDPROC 155DEFPROCB_(_%,U%,RETURNgy%):!J%=i%:IFgy%>=0THENJ%!4=gy%:SYS&400C4,,J% 156SYS&400CB,,J%:J%!4=_%-J%!4:J%!8=U%-J%!16-k%:J%!&C=J%!4+32:J%!16=J%!8+32:J%!20=&7003119:J%!24=sl%:J%!32=0:IFy%THENJ%!28=Ki%ELSEJ%!28=Yi% 157SYS&400C2,,J%TOgy%:ENDPROC 158DEFPROCZu:!J%=i%:IFN%(0)>=0THENJ%!4=N%(0):SYS&400C4,,J% 159IFN%(1)>=0THENJ%!4=N%(1):SYS&400C4,,J% 160N%()=-1:ENDPROC 161DEFPROCQu(q%,_%,U%):LOCALR%,A%,ty%:!J%=q%:J%!4=8:SYS&400CE,,J%:_%+=(J%!8+J%!16)/2:U%+=(J%!&C+J%!20)/2:R%=56:SYS&400E6,1:RECTANGLEFILL0,0,&BB8:SYS&400E6,X%(0):CIRCLEFILL_%,U%,R%:SYS&400E6,X%(3):FORA%=0TO330STEP30:LINE_%+R%*SINRADA%,U%+R%*COSRADA%,_%+(R%-&A)*SINRADA%,U%+(R%-&A)*COSRADA%:NEXT 162SYS&400E6,X%(1):CIRCLE_%,U%,R%:SYS&400E6,X%(5):A%=60:MOVE_%,U%:MOVE_%+(R%*0.35)*SINRAD(A%-9),U%+(R%*0.35)*COSRAD(A%-9):PLOT85,_%+(R%*0.35)*SINRAD(A%+9),U%+(R%*0.35)*COSRAD(A%+9):MOVE_%+(R%*0.35)*SINRAD(A%-9),U%+(R%*0.35)*COSRAD(A%-9):PLOT85,_%+(R%*0.7)*SINRADA%,U%+(R%*0.7)*COSRADA% 163SYS&400E6,X%(4):A%=300:MOVE_%,U%:MOVE_%+(R%*0.25)*SINRAD(A%-9),U%+(R%*0.25)*COSRAD(A%-9):PLOT85,_%+(R%*0.25)*SINRAD(A%+9),U%+(R%*0.25)*COSRAD(A%+9):MOVE_%+(R%*0.25)*SINRAD(A%-9),U%+(R%*0.25)*COSRAD(A%-9):PLOT85,_%+(R%*0.5)*SINRADA%,U%+(R%*0.5)*COSRADA% 164SYS&400E6,X%(6):MOVE_%,U%:DRAWBY0,-(R%*0.9):CIRCLEFILL_%,U%,2:_%-=(J%!8+J%!16)/2:U%-=(J%!&C+J%!20)/2:R%=56:!J%=q%:J%!4=24:SYS&400CE,,J%:_%+=(J%!8+J%!16)/2-20:U%+=(J%!&C+J%!20)/2-20:R%=56:SYS&400ED,256,h%,"cover",,,,J%,J%+&80:ty%=J%+&80 165A%=ty%?ku%:ty%?5=ty%?hu%:ty%?&B=A%:SYS46,52+256,h%,"cover_tl",_%-40,U%+40,0,J%,J%+&80:SYS46,52+256,h%,"cover_tr",_%+40,U%+40,0,J%,J%+&80:SYS46,52+256,h%,"cover_bl",_%-40,U%-40,0,J%,J%+&80:SYS46,52+256,h%,"cover_br",_%+40,U%-40,0,J%,J%+&80 166SYS46,52+256,h%,"cover_t",_%,U%+40,0,J%,J%+&80:SYS46,52+256,h%,"cover_b",_%,U%-40,0,J%,J%+&80:SYS46,52+256,h%,"cover_l",_%-40,U%,0,J%,J%+&80:SYS46,52+256,h%,"cover_r",_%+40,U%,0,J%,J%+&80:SYS46,52+256,h%,"cover",_%,U%,0,J%,J%+&80:ENDPROC 167DEFFNt(j%,TJ%):=LEFT$(FNA("Day"+STR$(((j%-1)MOD7)+1)),TJ%) 168DEFFNU_(j%,TJ%):LOCALA$,a$:A$=",Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday,":j%=((j%-1)MOD7)+1:REPEATA$=MID$(A$,INSTR(A$,",")+1):j%-=1:UNTILj%=0:a$=LEFT$(A$,INSTR(A$,",")-1):IFTJ%>0THENa$=LEFT$(a$,TJ%) 169=a$ 170DEFFNYy(Vl%,TJ%):LOCALA$,s$:A$=",January,February,March,April,May,June,July,August,September,October,November,December,":Vl%=((Vl%-1)MOD&C)+1:REPEATA$=MID$(A$,INSTR(A$,",")+1):Vl%-=1:UNTILVl%<=0:s$=LEFT$(A$,INSTR(A$,",")-1):IFTJ%>0THENs$=LEFT$(s$,TJ%) 171=s$ 172DEFFNwy(d%):=STR$d%+FNLy(d%) 173DEFFNLy(d%):LOCALA$,Z$,F$,A%,xy%:A$=FNA("th"):Z$=LEFT$(A$,INSTR(A$,",")-1):WHILEINSTR(A$,",")ANDNOTxy%:A$=MID$(A$,INSTR(A$,",")+1):F$=LEFT$(A$,INSTR(A$,",")-1):IFINSTR(F$,"#")THEN 174IFRIGHT$(STR$d%,LENF$-1)=MID$(F$,2)THENxy%=TRUE 175ELSEIFVALF$=d%THENxy%=TRUE 176ENDIF:ENDWHILE:IFxy%THEN 177WHILEVALA$>0ORASC(A$)=35:A$=MID$(A$,INSTR(A$,",")+1):ENDWHILE:Z$=LEFT$(A$,INSTR(A$,",")-1) 178ENDIF:=Z$ 179DEFFNX(Vl%,TJ%):=LEFT$(FNA("Mon"+STR$(((Vl%-1)MOD&C)+1)),TJ%) 180DEFFNpy(n%,r%,Lu%,f_%):LOCALA$,Z$:IFNOTf_%THEN 181IFn%>&BTHENZ$=" "+FNA("pm")ELSEZ$=" "+FNA("am") 182ENDIF:IFn%>&CANDNOTf_%THENn%-=&C 183IFf_%THENA$=STRING$(-(n%<&A),"0")ELSEIFn%=0THENn%=&C 184A$+=STR$n%+":"+STRING$(-(r%<&A),"0")+STR$r%:IFLu%<>-1THENA$+=":"+STRING$(-(Lu%<&A),"0")+STR$Lu% 185=A$+Z$ 186DEFPROCHJ(p$,Zy$,Fy$,ha%):H$=p$:T$=Fy$:`u%=0:Vu%=FALSE:P$=Zy$:v_%=0:r_%=0:Tu%=FALSE:Iy%=FALSE:SYS&400C0,&C8,&4B534154,H$TOba%,vu%:PROCFJ:IFha%THENPROCtu(ta%,v$+".Templates") 187PROCn_:PROCYu:ENDPROC 188DEFPROCyu:LOCALS%:CASEK%!16OF 189WHEN0:Vu%=TRUE 190WHEN1:PROC_J(K%!40,FNN(K%+44)) 191WHEN3:PROCo_(K%!40,FNN(K%+44)) 192WHEN8:PROCZJ 193WHEN&400C0:PROCVu(K%!20,K%!24,K%!28) 194WHEN&400C1:PROCP_ 195WHEN&400C2:IFFNN(K%+28)=H$ANDK%!4<>vu%THEN 196PROCB(FNA("ErrRun")):PROCgJ(K%!4) 197ENDIF 198WHEN&400CC:CASEK%!20OF 199WHENi%:$(K%+36)=FNA("Title") 200WHENf%,Ry%:$(K%+36)=FNA("Alarm") 201WHENsy%:$(K%+36)=FNA("Date") 202WHENT_%:$(K%+36)=FNA("Settings") 203WHEN_y%,GJ%:$(K%+36)=FNA("AnnTab") 204WHENJy%:$(K%+36)=FNA("Setclock") 205ENDCASE:!K%=56:$(K%+28)="org":S%=K%!4:K%!4=vu%:SWAPK%!8,K%!&C:SYS&400E7,17,K%,S% 206ENDCASE:ENDPROC 207DEFFNQy(Bl%,S$):SYS&400CF,,J%:=((Bl%=&FFF)OR(Bl%=&DFE))ORJ%!&C=f% 208DEFPROCo_(Bl%,S$):LOCALw%:IFFNQy(Bl%,S$)THEN 209SWAPK%!8,K%!&C:K%!16=4:SYS&400E7,17,K%,K%!4:IFJ%!&C<>f%THEN 210IFGy%<>-1THENPROCi 211OSCLI"Copy "+S$+" "+P$+".Import ~c ~v f":IFS$="<Wimp$Scrap>"THENOSCLI"Remove <Wimp$Scrap>" 212PROCRJ(P$+".Import") 213ELSEPROCu_(S$) 214ENDIF 215ENDIF:ENDPROC 216DEFFNly(ya%,hy%):LOCALZy%,A%:Zy%=-1:IFky%=A%(6)ANDU_%>1ANDU_%<6THEN 217IF!ya%=0THENA%=FN_(ky%,U_%)ELSEA%=FNu(ky%,U_%) 218PROCW(Ay%,0,-1):Zy%=Ay%:PROCS(Ay%,A%,1) 219ENDIF:=Zy% 220DEFFNCy:LOCALhy%,R%,A$,Z$:IFvy%THEN 221A$=FNA("QButtons"):Z$=FNA("ErrSave"):!J%=0:$(J%+4)=Z$:SYS&400DF,J%,280,"Message from "+H$,w$,-1,A$TO,R%:IFR%=3THENPROCPy 222ENDIF:=R%<>4 223DEFPROCP_LOCALza%,aa%,M%:IF(Oy%AND4)>0THEN 224IFFNHy(MODE)THENM%=20ELSEM%=&C 225SYS&2002E,281,h%,"clock":SYS53,M%,4TO,,za%:SYS53,M%,5TO,,aa%:SYS46,8+512,h%TO,,,,,F%:SYS46,271,h%,"clock",0,&74/(1<<za%),&78/(1<<aa%),M%:PROCm 226ENDIF:ENDPROC 227DEFPROCe(q%,s%,g%,Yy%,ry%)LOCALA%,B%,A$,H_%:K_%=t%:w_%=v%:H_%=1+2*(g%=1):CASEq%OF 228WHENi%:!K%=i%:SYS&400CB,,K%:_%=K%!4-K%!20:U%=K%!16-K%!24:PROCm_(s%,g%,Yy%-_%,ry%-U%,_%,U%) 229WHEN-2:CASEg%OF 230WHEN1:PROCs(Dy%,fy%,My%) 231WHEN2:LJ%=-1:PROCF(kJ%,Yy%,FNVy(kJ%),q%,s%) 232WHEN4:CASETRUEOF 233WHENINKEY-1:IFTy%=0THENPROCUyELSEPROCIy 234WHENINKEY-3:MJ%=5:PROCh 235OTHERWISEPROCr(i%,-1,-1) 236ENDCASE 237ENDCASE 238WHENsy%:CASEs%OF 239WHEN0:PROCW(z_%,0,-1):PROCS(z_%,PJ%-1,TRUE):PROCF(z_%,Yy%,ry%,q%,s%) 240WHEN2,3:PROCDy(-1,-1,(1+2*(s%=2))*H_%*(1-49*(INKEY-1))) 241WHEN35:PROCny:IFg%<>1THENPROCX(sy%) 242WHEN36:PROCX(sy%) 243OTHERWISE:IFg%=2THEN 244PROCW(z_%,0,-1):PROCS(z_%,PJ%-1,TRUE):PROCF(z_%,Yy%,ry%,q%,s%) 245ELSEPROCDy(s%-3,-1,0):IFg%<256THENPROCny 246ENDIF 247ENDCASE 248WHENJy%:IFg%<>2THEN 249CASEs%OF 250WHEN1:PROCe(Jy%,9+FNZ(Jy%,1),4,0,0) 251WHEN2:PROC`(X_%,V_%,L_%,Jy%,s%) 252WHEN3:IFFNXy(VALFNM(Jy%,4),VALFNM(Jy%,5))THEN 253IFFNj<>FNZ(Jy%,1)THENPROCMy(-1) 254A%=VALFNM(Jy%,4):A$=STR$A%:A$=STRING$(2-LENA$,"0")+A$:$J%=CHR$24+FNU_(FNH(X_%,V_%,L_%),3)+","+STRING$(-(X_%<&A),"0")+STR$X_%+" "+FNYy(V_%,3)+" "+STR$L_%+"."+A$+":"+FNM(Jy%,5)+":00":SYS&20007,&F,J%TO;B%:IFg%=4THENPROCX(Jy%) 255ENDIF 256WHEN8:A%=VALFNM(Jy%,4)+H_%:IFA%=24THENA%=0:PROCP(X_%,V_%,L_%,1,0,0):PROCA(Jy%,2,FNU(X_%,V_%,L_%,TRUE)) 257IFA%=-1THENA%=23:PROCP(X_%,V_%,L_%,-1,0,0):PROCA(Jy%,2,FNU(X_%,V_%,L_%,TRUE)) 258PROCA(Jy%,4,STR$A%) 259WHEN9:A%=VALFNM(Jy%,4)-H_%:IFA%=-1THENA%=23:PROCP(X_%,V_%,L_%,-1,0,0):PROCA(Jy%,2,FNU(X_%,V_%,L_%,TRUE)) 260IFA%=24THENA%=0:PROCP(X_%,V_%,L_%,1,0,0):PROCA(Jy%,2,FNU(X_%,V_%,L_%,TRUE)) 261PROCA(Jy%,4,STR$A%) 262WHEN&A,&C:A%=VALFNM(Jy%,5)+(1-9*(s%=&A))*H_%:IFA%>59THENA%-=60:PROCe(Jy%,8,4,0,0) 263IFA%<0THENA%+=60:PROCe(Jy%,9,4,0,0) 264PROCA(Jy%,5,STRING$(2-LENSTR$A%,"0")+STR$A%) 265WHEN&B,&D:A%=VALFNM(Jy%,5)-(1-9*(s%=&B))*H_%:IFA%>59THENA%-=60:PROCe(Jy%,8,4,0,0) 266IFA%<0THENA%+=60:PROCe(Jy%,9,4,0,0) 267PROCA(Jy%,5,STRING$(2-LENSTR$A%,"0")+STR$A%) 268ENDCASE 269ENDIF 270WHENf%:PROCpu(Yy%,ry%,q%,s%,H_%) 271WHENRy%:PROC`J(Yy%,ry%,q%,s%) 272WHENMu%:PROCU_ 273WHEN_y%:PROCrJ(s%,Yy%,ry%) 274WHENT_%,Ty%:PROCHu(q%,s%,g%,Yy%,ry%) 275WHENGJ%:PROCX_ 276WHENGy%:PROCi_(q%,s%,g%,Yy%,ry%) 277OTHERWISEPROCXJ(q%,s%,g%,Yy%,ry%) 278ENDCASE:PROCBy:ENDPROC 279DEFPROCm_(s%,g%,a%,Q%,i_%,qJ%):LOCALoa%,ia%,A%,VJ%:A%=g%-3-(g%=1):IFg%<>2THEN 280IFs%>=0ANDg%<>2THEN 281CASEs%OF 282WHENN%(0):PROCK_(-A%) 283WHENN%(1):PROCK_(A%) 284OTHERWISEPROCp_(s%) 285ENDCASE 286ELSE:FORA%=1TOB_%:IFt%<A%THENX%=sJ%ELSEX%=k_% 287IFFNm(a%,Q%,X%,-m%-A%*zy%,40,zy%)THEN 288IFg%<>2THENt%=A%:v%=S%(t%) 289ENDIF:NEXT 290ENDIF 291ENDIF:IF(s%=-1ORg%=2)ANDFNm(a%,Q%,my%,-m%,u%,-k%)THENPROCiy(g%,FALSE,a%-my%,Q%+m%,i_%,qJ%) 292IF(s%=-1ORg%=2)ANDFNm(a%,Q%,wy%,-m%,u%,-k%)THENPROCiy(g%,TRUE,a%-wy%,Q%+m%,i_%,qJ%) 293IFg%=2THEN 294IFT%(t%)<>-1THENPROCF(T%(t%),Yy%,ry%,q%,s%) 295ELSEIFNOTVJ%THENPROCC(i%,-1) 296ENDIF:ENDPROC 297DEFPROCBy:IFK_%=t%THEN 298IFv%<>w_%ANDJ_%=0THENJ_%=1+2*(v%<w_%) 299ELSEPROCQ_(K_%):PROCC(i%,-1):J_%=1+2*(t%<K_%) 300ENDIF:IF(mJ%ORJ_%<>0)ANDIy%THENPROCK 301S%(K_%)=w_%:S%(t%)=v%:IFK_%<>t%THENPROCmy(t%):PROCIu 302ENDPROC 303DEFPROCK:PROCZu:PROCRu(J_%):PROCN(i%,my%,-m%,my%+u%,-m%-k%):PROCN(i%,wy%,-m%,wy%+u%,-m%-k%):ENDPROC 304DEFPROCIu:PROCN(i%,k_%,-m%,k_%+40,-m%-k%):PROCN(i%,sJ%,-m%,sJ%+40,-m%-k%):PROCN(i%,`y%,-m%,`y%+32,-m%-k%):ENDPROC 305DEFPROCr(q%,dJ%,al%):LOCALA%:A%=Iy%:IFq%=i%THEN 306IFeJ%<>-1THEN 307!J%=i%:SYS&400CB,,J%:J%!4=eu%:J%!8=su%-Uy%:J%!&C=eu%+ay%:J%!16=su%:J%!28=dJ%:SYS&400C5,,J%:PROCz(i%,dJ%,0) 308ELSEPROCz(q%,dJ%,al%) 309ENDIF:IFNOTA%THENPROCC(i%,-1) 310ELSEPROCz(q%,dJ%,al%) 311ENDIF:ENDPROC 312DEFPROCRu(A%):IFSu%ANDA%<>0THEN 313LOCALdu%,a%,_%,U%,py%,`%,R%,C%:!J%=i%:SYS&400CB,,J%:_%=J%!4-J%!20:U%=J%!16-J%!24:py%=_%+wy%-(&64)DIV2:`%=(&64/2-32):R%=u%+&64/2:SYS&40742,0TOC%:C%+=3<<4:FORa%=0TO&B4STEP&F:PROCky(a%,A%):T%=TIME:REPEATUNTILTIME>T%+1:PROCky(a%,A%):NEXT 314ENDIF:ENDPROC 315DEFPROCky(a%,A%):!J%=i%:J%!4=0:J%!8=-Uy%:J%!&C=ay%:J%!16=0:IFA%=-1THENa%=&B4-a% 316SYS&400C9,,J%TOdu%:WHILEdu%:SYS&400E6,C%:MOVEpy%+`%*COSRADa%,U%-m%+0.2*`%*SINRADa%:DRAWpy%+R%*COSRADa%,U%-m%+0.2*R%*SINRADa%:DRAWBY0,-k%:DRAWpy%+`%*COSRADa%,U%-m%-k%:DRAWpy%+`%*COSRADa%,U%-m%+0.2*`%*SINRADa%:SYS&400CA,,J%TOdu%:ENDWHILE:ENDPROC 317DEFPROCyJLOCALA%,C%,_i%,K_%,w_%,oa%:_i%=FNDy:K_%=t%:w_%=v%:CASEbJ%OF 318WHENkJ%:CASE!K%OF 319WHEN0 320WHEN1:PROCs(Dy%,fy%,My%) 321WHEN2:!K%=-1:K%!4=j_%:SYS&400CE,,K%:!J%=Jy%:SYS&400CB,,J%:J%!4=K%!16-(J%!&C-J%!4):J%!&C=K%!16:J%!16=&88+(J%!16-J%!8):J%!28=-1:SYS&400C5,,J%:PROCA(Jy%,2,FNU(Dy%,fy%,My%,-1)):X_%=Dy%:V_%=fy%:L_%=My%:PROCA(Jy%,4,STR$FNc):A%=FNi:PROCA(Jy%,5,STRING$(2-LENSTR$A%,"0")+STR$A%) 322SYS6,&A1,&DCTO,,A%:PROCZ(Jy%,1,ABS((A%AND&80)=&80)) 323WHEN3:IFK%!4>-1THEN 324PROCW(Wl%,0,-1):PROCS(Wl%,K%!4,1):wu%=K%!4:PROCqy 325ELSEPROCqy 326ENDIF 327WHEN4:IFTy%=0THENPROCUyELSEPROCIy 328WHEN5:PROCPy 329WHEN6:Vu%=FNCy 330ENDCASE 331WHENT%(t%):PROChu(K%,t%) 332WHENz_%:PROCDy(-1,!K%,0) 333WHENXl%:CASEky%OF 334WHENf%:nJ%=!K%:IF!K%>0THENC%=!K%ELSEC%=n_% 335FORA%=16TO18:PROCD(f%,A%,C%):NEXT 336WHEN_y%:Zi%=!K%:IF!K%=0THENA%=SJ%ELSEA%=!K% 337PROCD(_y%,4,A%) 338ENDCASE 339WHENZl%:PROCWJ(U_%,!K%) 340WHENiJ%:U%(0)=!K%:PROCFy(A%(6),18,U%()):PROCW(iJ%,0,-1):PROCS(iJ%,U%(0),-1) 341OTHERWISE:CASEky%OF 342WHENA%(6):CASEU_%OF 343WHEN2,3,4,5:IFK%!4<>-1THEN 344IF!K%=0THENPROCD(ky%,U_%,K%!4)ELSEPROCg(ky%,U_%,K%!4) 345PROCW(Ay%,0,-1):PROCS(Ay%,K%!4,-1) 346ENDIF 347WHEN9,&A,&B,&C,&D,&E,&F:X%(U_%-9)=!K%:PROCW(Ay%,0,-1):PROCS(Ay%,!K%,-1):!J%=ky%:J%!4=8:SYS&400CE,,J%:PROCN(ky%,J%!8,J%!20,J%!16,J%!&C) 348WHEN20,21:U%(U_%-19)=!K%:PROCW(Ay%,0,-1):PROCS(Ay%,!K%,-1):PROCFy(A%(6),18,U%()) 349WHEN25:A$=FNA("Cov"+STR$(!K%+1)):A$=MID$(A$,INSTR(A$,",")+1):ku%=VALA$:A$=MID$(A$,INSTR(A$,",")+1):hu%=VALA$:!J%=ky%:J%!4=24:SYS&400CE,,J%:PROCN(ky%,J%!8,J%!20,J%!16,J%!&C) 350WHEN26:PROCW(Ay%,0,-1):ku%=!K%:PROCS(Ay%,!K%,1):!J%=ky%:J%!4=24:SYS&400CE,,J%:PROCN(ky%,J%!8,J%!20,J%!16,J%!&C) 351WHEN27:PROCW(Ay%,0,-1):hu%=!K%:PROCS(Ay%,!K%,1):!J%=ky%:J%!4=24:SYS&400CE,,J%:PROCN(ky%,J%!8,J%!20,J%!16,J%!&C) 352ENDCASE 353WHENTy%:PROCvJ(K%) 354WHENf%,Ry%:PROCA_(bJ%,K%) 355OTHERWISEPROCdJ(bJ%,K%) 356ENDCASE 357ENDCASE:IF_i%THENPROCF(bJ%,-1,-1,ky%,U_%) 358PROCBy:ENDPROC 359DEFPROCqy:LOCALA$,A%:CASEwu%OF 360WHEN1:OSCLI"Filer_Run "+P$+".!HTMLHelp" 361WHEN2:SYS&2001E,18,"StrongHelp"TO;A%:IFA%AND1THEN 362IFFNb("StrongHelp$Dir")THEN 363SYS&400DE,"<StrongHelp$Dir>.!Run":OSCLI"StrongHelp <Organiser$Dir>.Organiser !Root" 364ELSEPROCB(FNA("ErrStrong")) 365ENDIF 366ELSEOSCLI"StrongHelp <Organiser$Dir>.Organiser !Root" 367ENDIF 368OTHERWISEOSCLI"Filer_Run "+P$+".!Help" 369ENDCASE:ENDPROC 370DEFPROCF(Zy%,a%,Q%,x%,Fy%)LOCALA%:IF(Zy%=kJ%ORZy%=T%(t%))ANDZy%<>-1THEN 371PROCS(Ql%,0,cy%=1):PROCS(Ql%,1,cy%=2):FORA%=0TO2:PROCT(wi%,A%,-(LJ%<=0)):NEXT 372ENDIF:SYS&400D4,,Zy%,a%-64,Q%:bJ%=Zy%:ky%=x%:U_%=Fy%:ENDPROC 373DEFPROCMu(q%,s%,By%)LOCALw_%,oa%,A%,B%,A$,Z$:K_%=t%:w_%=v%:o%=FALSE:CASEq%OF 374WHENi%:o%=FNny(s%,By%) 375WHEN-1 376WHENT_%,Ty%:o%=FNM_(q%,s%,By%) 377WHENJy% 378OTHERWISEo%=FNcy(q%,s%,By%) 379ENDCASE:IFo%=FALSETHEN 380o%=TRUE:CASEBy%OF 381WHEN27:IFTy%<>0THENPROCb 382WHEN385:PROCqy 383WHEN386:IFTy%=0THENPROCUyELSEPROCIy 384WHEN387:PROCPy 385WHEN81-65+1:Vu%=FNCy 386WHEN83-65+1:o%=FALSE:IFs%<>-1ANDIu%THEN 387SYS&400D3,,K%:A%=K%!20:Z$=FNM(q%,s%):IFA%>0THENA$=MID$(Z$,A%,1)ELSEA$="" 388IF(A$>="A"ANDA$<="Z")OR(A$>="a"ANDA$<="z")THEN 389Z$=LEFT$(Z$,A%-1)+CHR$((ASCA$)EOR32)+MID$(Z$,A%+1):o%=TRUE:PROCA(q%,s%,Z$) 390ENDIF 391ENDIF 392OTHERWISEo%=FALSE 393ENDCASE:IFBy%>=401ANDBy%<=400+B_%THENt%=By%-400:v%=S%(t%):o%=TRUE 394ENDIF:PROCBy:IFNOTo%THENSYS&400DC,By% 395wJ%=FNz:ENDPROC 396DEFPROCC(q%,s%):!J%=q%:J%!4=s%:SYS&400CE,,J%:SYS&400D2,q%,s%,,,-1,LENFNN(J%!28):wJ%=FNz:ENDPROC 397DEFFNz:SYS&400D3,,J%:=(!J%<<16)OR(J%!4AND&FF)OR((J%!20AND&FF)<<8) 398DEFPROCq(A$):WHILELEFT$(A$,1)=" ":A$=MID$(A$,2):ENDWHILE:IFA$<>""THENG$+=A$+CHR$&D 399ENDPROC 400DEFPROCou:SYS&400D3,,K%:IF!K%<>i%AND!K%<>Cy%ANDZ%(t%)=2AND!K%<>-1THENSYS&400DC,ASCLEFT$(G$,1):G$=MID$(G$,2) 401ENDPROC 402DEFPROCU_:!J%=Mu%:SYS&400C3,,J%:gu%=-1:ENDPROC 403DEFPROCOy:Au%=TRUE:PROCwy(0,0,0,0,0,FALSE,FALSE):PROCw(0):Au%=FALSE:XJ%=-1:ENDPROC 404DEFPROCR_(ei%,q%,a%,Q%,wl%,Ji%,Pi%):IFSu%ANDIy%THEN 405XJ%=q%:r_%=ei%:Gl%=a%:zl%=Q%:Tu%=wl%:ul%=Ji%:ml%=Pi%:!J%=20:J%!&C=0:SYS&400E7,0,J%,vu%:Au%=TRUE 406ELSEPROCwy(ei%,q%,a%,Q%,wl%,Ji%,Pi%):XJ%=-1 407ENDIF:ENDPROC 408DEFPROCKu:PROCwy(r_%,XJ%,Gl%,zl%,Tu%,ul%,ml%):IFXJ%=Cy% 409XJ%=-1:Au%=FALSE:ENDPROC 410DEFPROCUy:LOCALA%,x%,n%,A$:A%=A%(1):PROCZ(A%,1,-x_%):PROCZ(A%,2,-iu%):PROCZ(A%,3,-bu%):PROCZ(A%,4,-Su%):PROCZ(A%,7,-((Oy%AND9)=0)):PROCZ(A%,8,-((Oy%AND4)>0)):PROCZ(A%,9,-((Oy%AND5)=1)):PROCZ(A%,22,-((Oy%AND8)=8)):PROCZ(A%,23,-(xJ%=-1)):PROCZ(A%,&A,-((Oy%AND2)>0)):PROCZ(A%,&B,-f_%) 411PROCZ(A%,24,-((Oy%AND16)=16)):PROCA(A%,25,N$):PROCZ(A%,&F,-Ju%):PROCZ(A%,16,-Zu%):PROCZ(A%,&E,-(eJ%=-1)):PROCZ(A%,19,-(eJ%<>-1)):PROCZ(A%,20,-(b_%=-1)):PROCZ(A%,21,-NOT(JJ%)):PROCM(A%,&B,ABSNOT(FNZ(A%,9)ANDNOTFNZ(A%,24))):PROCM(A%,&A,ABSNOT(FNZ(A%,8)OR(FNZ(A%,9)ANDNOTFNZ(A%,24)))):PROCM(A%,24,ABSNOTFNZ(A%,9)) 412PROCM(A%,25,ABSNOT(FNZ(A%,9)ANDFNZ(A%,24))):FORx%=OJ%-1TO0STEP-1:A$+=STR$((qu%>>x%)AND1):NEXT:PROCA(A%,18,A$):PROCZ(A%,28,-Iu%):PROCZ(A%,29,-Gu%):PROCM(A%,29,-NOTFNZ(A%,22)):PROCA(A%,27,B$):PROCZ(A%,32,-(Ky%?3=1)):FORx%=33TO34:PROCM(A%,x%,-(Ky%?3=0)):NEXT:PROCZ(A%,33,-(Ky%?2=0)):PROCZ(A%,34,-(Ky%?2=1)) 413PROCA(A%,36,STRING$(2-LENSTR$Ky%?1,"0")+STR$Ky%?1+"00"):PROCA(A%,39,STRING$(2-LENSTR$Ky%?0,"0")+STR$Ky%?0+"00"):ku%=yu%:hu%=ru%:FORx%=35TO42:PROCM(A%,x%,-((Ky%?3=0)OR(Ky%?2=0))):NEXT:PROCA(A%,&D,D$):PROCXu:!J%=T_%:SYS&400CB,,J%:x%=J%!&C-J%!4:n%=J%!16-J%!8:J%!4=(FNg-x%)/2:J%!16=FNd-(FNd-n%)/2 414J%!28=-1:SYS&400C5,,J%:PROCey(1):X%()=P%():U%()=H%():PROCFy(A%(6),18,H%()):FORA%=2TO5:PROCg(A%(6),A%,D%(A%-1)):PROCD(A%(6),A%,I%(A%-1)):NEXT:ENDPROC 415DEFPROCIy:!J%=Ty%:SYS&400CB,,J%:J%!28=-1:SYS&400C5,,J%:!J%=T_%:SYS&400CB,,J%:J%!28=Ty%:SYS&400C5,,J%:ENDPROC 416DEFPROCly:LOCALA%,C%,A$:A%=A%(1):B%=Oy%:x_%=FNZ(A%,1):iu%=FNZ(A%,2):bu%=FNZ(A%,3):Su%=FNZ(A%,4):D$=FNM(A%,&D):f_%=FNZ(A%,&B):Oy%=-FNZ(A%,9)-5*FNZ(A%,8)-8*FNZ(A%,22)-2*FNZ(A%,&A)-16*FNZ(A%,24):Ju%=FNZ(A%,&F):Zu%=FNZ(A%,16):PROCzJ(NOTFNZ(A%,21)) 417eJ%=FNZ(A%,&E):xJ%=FNZ(A%,23):N$=FNM(A%,25):Iu%=FNZ(A%,28):Gu%=FNZ(A%,29):!Ky%=((VALFNM(A%,36)DIV&64)<<8)+(VALFNM(A%,39)DIV&64):!Ky%+=(((-FNZ(A%,32))<<24)+((-FNZ(A%,34))<<16)):IFNOTeJ%THEN 418!J%=i%:SYS&400CB,,J%:eu%=J%!4:nl%=J%!8:gl%=J%!&C:su%=J%!16 419ENDIF:C%=FNZ(A%,20):IFC%<>b_%THENb_%=C%ELSEb_%=C% 420A$=FNM(A%,18):IFA$=""THENA$="1" 421OJ%=LENA$:qu%=EVAL("%"+A$):P%()=X%():H%()=U%():A$=FNM(A%,27):IFA$<>B$THENPROCLu(A$) 422FORA%=2TO5:D%(A%-1)=FNu(A%(6),A%):I%(A%-1)=FN_(A%(6),A%):NEXT:yu%=ku%:ru%=hu%:PROCau:IFIy%THENSYS&400D1,i%,0,-&BB8,&BB8,0 423MJ%=0:PROCh:PROCm:PROCh:ENDPROC 424DEFPROCLu(A$):w%=OPENOUT"<Organiser$Dir>.Resources.!Language":BPUT#w%,A$:CLOSE#w%:w%=0:PROCB(FNA("ErrReload")):ENDPROC 425DEFPROCey(I%):IFTy%<>0THEN!J%=Ty%:SYS&400C6,,J% 426!J%=T_%:SYS&400CB,,J%:Ty%=A%(I%):!J%=Ty%:J%!4+=22:J%!16-=70:J%!8=J%!16-272:SYS&400C5,,J%:!J%=T_%: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 427J%!20=&17000021:J%?24=0:SYS&400C2,,J%TOI%:J%!4=I%:J%!8=0:J%!&C=0:SYS&400CD,,J%:ENDPROC 428DEFPROCPJ:!J%=Ty%:SYS&400CB,,J%:J%!4=K%!4+22:J%!16=K%!16-70:J%!8=J%!16-272:J%!28=K%!28:SYS&400C5,,J%:K%!28=Ty%:SYS&400C5,,K%:ENDPROC 429DEFPROCHu(q%,s%,g%,a%,Q%):LOCALA%:CASEq%OF 430WHENT_%:CASEs%OF 431WHEN1,2,3,4,5,6:PROCey(s%) 432WHEN8:PROCb 433WHEN9:PROCly:vy%=-1:IFg%<>1THENPROCb 434WHEN&A:PROCly:PROCW_:IFg%<>1THENPROCb 435ENDCASE 436WHENA%(1):CASEs%OF 437WHEN&F:IFg%<&AANDg%<>2THENPROCB(FNA("ErrReload")) 438WHEN7,8,9,22,&E,19:IFg%<>2THEN 439PROCZ(q%,s%,1):PROCM(q%,&B,ABSNOT(FNZ(q%,9)ANDNOTFNZ(q%,24))):PROCM(q%,&A,ABSNOT(FNZ(q%,8)OR(FNZ(q%,9)ANDNOTFNZ(q%,24)))):PROCM(q%,24,ABSNOTFNZ(q%,9)):PROCM(q%,25,ABSNOT(FNZ(q%,9)ANDFNZ(q%,24))):PROCM(q%,29,-NOTFNZ(q%,22)) 440ENDIF 441WHEN24:PROCM(q%,25,ABSNOTFNZ(q%,24)):PROCM(q%,&A,ABSFNZ(q%,24)):PROCM(q%,&B,ABSFNZ(q%,24)) 442WHEN27:PROCw_(A%(1),27) 443WHEN32:FORA%=33TO34:PROCM(q%,A%,-NOTFNZ(q%,32)):NEXT:FORA%=35TO42:PROCM(q%,A%,-((NOTFNZ(q%,32))OR(FNZ(q%,33)))):NEXT 444WHEN33,34:PROCZ(q%,s%,1):FORA%=35TO42:PROCM(q%,A%,-FNZ(q%,33)):NEXT 445WHEN35,38:A%=VALFNM(q%,s%+1)-&64:IFA%=-&64THENA%=&8FC 446PROCA(q%,s%+1,STRING$(4-LENSTR$A%,"0")+STR$A%) 447WHEN37,40:A%=VALFNM(q%,s%-1)+&64:IFA%=&960THENA%=0 448PROCA(q%,s%-1,STRING$(4-LENSTR$A%,"0")+STR$A%) 449ENDCASE 450WHENA%(6):CASEs%OF 451WHEN2,3,4,5:!oJ%=FNqy(A%(6),s%):PROCF(oJ%,a%,Q%,q%,s%) 452WHEN9,&A,&B,&C,&D,&E,&F:PROCW(Ay%,0,-1):PROCS(Ay%,X%(s%-9),-1):PROCF(Ay%,a%,Q%,q%,s%) 453WHEN19:PROCW(iJ%,0,-1):PROCS(iJ%,U%(s%-19),-1):PROCF(iJ%,a%,Q%,q%,s%) 454WHEN20,21:PROCW(Ay%,0,-1):PROCS(Ay%,U%(s%-19),-1):PROCF(Ay%,a%,Q%,q%,s%) 455WHEN25:PROCF(Ya%,a%,Q%,q%,s%) 456WHEN26:PROCW(Ay%,0,-1):PROCS(Ay%,ku%,-1):PROCF(Ay%,a%,Q%,q%,s%) 457WHEN27:PROCW(Ay%,0,-1):PROCS(Ay%,hu%,-1):PROCF(Ay%,a%,Q%,q%,s%) 458ENDCASE 459OTHERWISEPROCaJ(q%,s%,g%,a%,Q%) 460ENDCASE:ENDPROC 461DEFFNM_(q%,s%,g%):CASEq%OF 462WHENT_%,A%(1):o%=FALSE 463OTHERWISEo%=FNdy(q%,s%,g%) 464ENDCASE:=o% 465DEFPROCb:PROCX(Ty%):Ty%=0:PROCX(T_%):IFIy%THENPROCC(i%,-1) 466ENDPROC 467DEFPROCw_(x%,Fy%):LOCALql%,m$,Wy%,K$,q$,t$,`%:ql%=1:m$=FNM(x%,Fy%):REPEAT:SYS&C,9,"<Organiser$Dir>.Resources",K%,1,ql%,256,0TO,,,`%,ql%:IF`%=1THEN 468q$=FNN(K%):IFt$=""THENt$=q$ 469IFWy%=TRUETHENK$=q$ 470IFq$=m$THENWy%=TRUE 471ENDIF:UNTILql%=-1ORK$<>"":IFK$=""THENK$=t$ 472PROCA(x%,Fy%,K$):ENDPROC 473DEFPROC`(c%,r%,Q%,x%,Fy%):LOCALM%,A%:_i%=FALSE:PROCA(sy%,0,FNJy(c%,r%,Q%,-1)):M%=FND(r%,Q%):FORA%=29TO31:PROCR(sy%,A%+3,-(A%>M%)):NEXT:FORA%=1TOM%:PROCu(A%,A%=c%):NEXT:PJ%=r%:PROCA(sy%,1,STR$Q%):PROCr(sy%,-1,1):Ga%=x%:xa%=Fy%:ENDPROC 474DEFPROCny:LOCALd%,z%,e%,A$:PROCX(sy%):CASEGa%OF 475WHENf%:PROCA(f%,1,FNo(Q_%,N_%,AJ%)):PROCO(0,0) 476WHENe_%:A$=FNo(d%,z%,e%):K_%=t%:w_%=v%:PROCH(d%,z%,e%) 477WHENJy%:PROCA(Jy%,2,FNo(X_%,V_%,L_%)) 478ENDCASE:ENDPROC 479DEFPROCu(c%,F%):!J%=sy%:J%!4=c%+3:SYS&400CE,,J%:$J%!32="R"+STR$(1-F%)+";F"+STR$(1-F%)+"7":IFF%THENau%=c% 480IFIa%THENJ%!8=0:J%!&C=0ELSEJ%!8=(1+ABS(F%))<<28:J%!&C=&F<<28 481SYS&400CD,,J%:ENDPROC 482DEFPROCDy(c%,r%,Qy%):LOCALA%,M%,Q%,A$:IFc%<>-1THENPROCu(au%,FALSE):PROCu(c%,TRUE) 483IFr%<>-1THENPROCS(z_%,PJ%-1,FALSE):PJ%=!K%+1:PROCS(z_%,PJ%-1,TRUE) 484IFQy%<>0THENQ%=VALFNM(sy%,1)+Qy%:IFQ%>=&77dANDQ%<=&fffTHENPROCA(sy%,1,STR$Q%)ELSEQ%=VALFNM(sy%,1) 485M%=FND(PJ%,Q%):FORA%=29TO31:PROCR(sy%,A%+3,-(A%>M%)):NEXT:IFau%>M%THENPROCu(au%,FALSE):PROCu(M%,TRUE) 486PROCA(sy%,0,FNJy(au%,PJ%,Q%,-1)):ENDPROC 487DEFFNo(RETURNc%,RETURNr%,RETURNQ%):c%=au%:r%=PJ%:Q%=VALFNM(sy%,1):=FNU(c%,r%,Q%,-1) 488DEFFNJy(c%,r%,Q%,py%):LOCALA$:A$=FNU(c%,r%,Q%,py%):=LEFT$(A$,LENA$-5) 489DEFPROCAy:LOCALUu%,Hl%,UJ%,KJ%,Na%,p%,n%:lJ%=0:IFxJ%THEN 490p%=FNY:n%=FNc:Hl%=J%(0,1):Uu%=J%(0,3):Uu%+=J%(0,2)-FNH(Uu%,Hl%,My%):KJ%=J%(1,1):UJ%=J%(1,3):UJ%+=J%(1,2)-FNH(UJ%,KJ%,My%):hl%=FNS(0,1,Uu%,Hl%,My%):kl%=FNS(0,2,UJ%,KJ%,My%):Na%=(FNB(hl%,p%)<1ANDFNB(p%,kl%)<1):IFFNL(Uu%,Hl%,My%)=FNL(Dy%,fy%,My%)ANDNOTFNjTHENlJ%=hl% 491IFFNL(UJ%,KJ%,My%)=FNL(Dy%,fy%,My%)ANDFNjTHENlJ%=kl% 492IFNa%<>FNjANDFNL(Uu%,Hl%,My%)<>FNL(Dy%,fy%,My%)ANDFNL(UJ%,KJ%,My%)<>FNL(Dy%,fy%,My%)THENPROCMy(-1) 493ENDIF:ENDPROC 494DEFPROCmJ:IFlJ%=kl%THENPROCMy(0) 495IFlJ%=hl%THENPROCMy(1) 496PROCAy:ENDPROC 497DEFPROCFJ:IF_$<>""THENPROCB("The "+_$+" resources are out of date, using English.") 498P$=FNC_("Organiser$Dir"):w%=0:Ru%=0:G$="":vy%=FALSE:Ii%=FALSE:XJ%=-1:Au%=FALSE:Y$=P$+".Data.":wJ%=0:h%=FNZ_("<Organiser$Dir>.Sprites",&7AC+&C8):DIMXa%3,DJ%32,N%(1),Yi%16,Ki%17,sl%1:$Xa%="R2":N%()=-1 499$Yi%="Pptr_turnl,0,10"+CHR$0:$Ki%="Pptr_turnr,23,10"+CHR$0:?sl%=0:$DJ%="":DIMD%(5),I%(5),B%(5),W%(5),S%(5),Z%(5),M$(5):DIMP%(7),X%(7),H%(2),U%(2),Ky%4:A$=FNfy:Fu%=FALSE:IFINSTR(A$,"-delete_all_data")THEN 500IFFN_y(FNA("ErrSure"),TRUE)THEN 501PROCB(FNA("ErrChange")):Fu%=TRUE:vy%=TRUE 502ENDIF 503ENDIF:PROC`y:PROCTJ:PROCvu:PROCM_:j_%=-1:PROCh:s_%=FNl(1*&400):PROCc_(s_%,`u%):IFx_%THEN 504IFOy%=1THENPROCM(-1,j_%,1) 505PROCw(NOT1) 506ELSESYS&406C0 507ENDIF:ENDPROC 508DEFPROCYu:PROCxJ:v%=S%(t%):PROCr(i%,-1,-1):IFNOTiu%THENPROCX(i%) 509IFBu%THENPROCxy:PROCAy 510Ru%=TRUE:PROCmy(t%):IFOy%>1THENPROCm 511IFOy%AND1THENPROCM(-1,j_%,0) 512IFbu%THENPROCr(Mu%,-1,-1)ELSEgu%=-1 513IFNOTx_%THENSYS&406C1 514PROCx:PROCAy:ENDPROC 515DEFFNG(Lu%):LOCALA%:A%=B_%+1:REPEATA%-=1:UNTILZ%(A%)=Lu%ORA%=0:=A% 516DEFPROCn_:LOCALA$,S%,F%,L%:DIMT%(B_%):Ay%=FNPy(FNA("Cols")):z_%=FNC("Mon","Mon",1,&C):PROCgy(z_%,0,-1):FORS%=1TOB_%:T%(S%)=FNL_(S%):NEXT:kJ%=FNC("Title","Menu",1,7):PROCY(kJ%,0,Al%):oJ%=FNC("TabM","TabM",1,2):Wl%=FNC("Helpm","Helpm",1,3):PROCY(kJ%,3,Wl%):PROCS(Wl%,wu%,1) 517PROCY(oJ%,0,Ay%):PROCY(oJ%,1,Ay%):PROCG_(oJ%,0):PROCG_(oJ%,1):iJ%=FNC("BordM","BordM",1,5):A$=FNA("Cov"):S%=1:F%=0:WHILE(F%AND1)=0:SYS&61502,C_%,"Cov"+STR$S%,J%,256TO,,,L%;F%:S%+=1:IF(F%AND1)=0THENJ%?L%=&D:A$+="\"+LEFT$($J%,INSTR($J%,",")-1) 518ENDWHILE:Ya%=FNAy(A$):ENDPROC 519DEFPROCM_:LOCALA%,ma%,aa%:My%=FNR:fy%=FNI:Dy%=FNT:zy%=FNr(k%/B_%):ay%=&64+2*(40+u%+5+40):Uy%=k%+2*(5+40):k_%=5+40:sJ%=k_%+40+&64+2*u%:my%=k_%+40:wy%=my%+&64+u%:m%=5+40:`y%=wy%-&64:Y_%=k%/27::cJ%=u%-40-2*&c:ENDPROC 520DEFPROCAu:LOCALB%:IF(Uy%<>K%!16-K%!8ORay%<>K%!&C-K%!4)THEN 521IFK%!16-K%!8>300THENUy%=FNr(K%!16-K%!8)-2 522IFK%!&C-K%!4>400THENay%=FNr(K%!&C-K%!4)-2 523k%=Uy%-2*(5+40):u%=((ay%-&64)-2*(40+5+40))/2:PROCM_:SYS30,6,,,li%TO,,B%:!B%=Cy%:SYS&400CC,,B%:SYS&400C3,,B%:PROCty(B%!88,B%+4):SYS&400C1,,B%+4TOCy%:SYS30,7,,B%:IFZ%(t%)=2ANDv%=0THENPROCOy:PROCC_ 524SYS&400D1,i%,0,-Uy%-&A,ay%+&A,0 525ENDIF:ENDPROC 526DEFPROCvu:LOCALA%,`$:LOCALERROR:ONERRORLOCALRESTOREERROR:CLOSE#w%:w%=0:PROCB(REPORT$+" at line "+STR$ERL+", using default settings."):PROC`y:vy%=TRUE:ENDPROC 527w%=OPENIN(P$+".Data.Settings"):l$=GET$#w%:`$=GET$#w%:D$=GET$#w%:x_%=FNQ:iu%=FNQ:Oy%=FNV:f_%=FNQ:Zu%=FNQ:B_%=FNV:t%=FNV:bu%=FNQ:Su%=FNQ:xJ%=FNQ:Ju%=FNQ:Ia%=Ju%:OJ%=FNV:INPUT#w%,qu%,_J%:INPUT#w%,eJ%,eu%,gl%,su%,nl%:b_%=FNQ:JJ%=FNQ:INPUT#w%,u%,k%:FORA%=0TO6:P%(A%)=FNV:NEXT:FORA%=0TO2:H%(A%)=FNV:NEXT 528FORA%=1TOB_%:Z%(A%)=FNV:D%(A%)=FNV:I%(A%)=FNV:NEXT:N$=GET$#w%:Iu%=FNQ:Gu%=FNQ:INPUT#w%,!Ky%:yu%=FNV:ru%=FNV:wu%=FNV:REPEATPROCGJ(GET$#w%,w%):UNTILEOF#w%:CLOSE#w%:w%=0:RESTOREERROR:Bu%=(FNx(_J%)<>FNx(FNY)):IFFu%THEND$=FNA("Yourname") 529u%=FNf(u%):k%=FNf(k%):ENDPROC 530DEFPROCW_:LOCALA%:w%=OPENOUT(P$+".Data.Settings"):BPUT#w%,T$:BPUT#w%,P$:BPUT#w%,D$:PROCJ(x_%):PROCJ(iu%):PROCJ(Oy%):PROCJ(f_%):PROCJ(Zu%):PROCJ(B_%):PROCJ(t%):PROCJ(bu%):PROCJ(Su%):PROCJ(xJ%):PROCJ(Ju%):PROCJ(OJ%):PRINT#w%,qu%,FNY:PRINT#w%,eJ%,eu%,gl%,su%,nl%:PROCJ(b_%):PROCJ(JJ%):PRINT#w%,u%,k%:FORA%=0TO6:PROCJ(P%(A%)):NEXT 531FORA%=0TO2:PROCJ(H%(A%)):NEXT:FORA%=1TOB_%:PROCJ(Z%(A%)):PROCJ(D%(A%)):PROCJ(I%(A%)):NEXT:BPUT#w%,N$:PROCJ(Iu%):PROCJ(Gu%):PRINT#w%,!Ky%:PROCJ(yu%):PROCJ(ru%):PROCJ(wu%):PROCqu(w%):CLOSE#w%:w%=0:ENDPROC 532DEFPROCPy:PROCW_:PROCsu:vy%=FALSE:ENDPROC 533DEFPROC`y:::W_%=FALSE:Bu%=0:Oy%=1+2+4:N$="%z12:%mi:%se %am":H%()=2,2,7:x_%=FALSE:f_%=FALSE:Su%=TRUE:Zu%=TRUE:MJ%=0::::::Ju%=FALSE:b_%=TRUE:B_%=4:I%()=7:D%()=0,&B,&A,&F,9,&E:P%()=0,&F,8,&B,4,4,&B:iu%=FALSE:eJ%=-1:eu%=0:su%=0:gl%=0:nl%=0:JJ%=FALSE:t%=2:Z%()=0,1,3,5,2 534bu%=TRUE:D$="Chris Morison":xJ%=FALSE:Zu%=FALSE:J_%=FALSE::::::u%=500:k%=920:wu%=0:::::::OJ%=8:qu%=&E7:yu%=&B:ru%=5::::Bu%=FALSE:_J%=0::Gu%=FALSE:Iu%=TRUE:!Ky%=71431:ENDPROC 535DEFFNoy:LOCALDl%,x,NJ%:Dl%=FNc:Di%=Ky%?1:NJ%=?Ky%:IFNJ%<Di%THEN 536IFDl%<=NJ%THENDl%+=24 537NJ%+=24 538ENDIF:=(((Ky%?2=1)AND((Dl%<Di%)OR(Dl%>=NJ%)))OR(Ky%?3=0))ANDNOT(Ky%?3=1ANDKy%?2=0) 539DEFFNQ=(BGET#w%=&FF) 540DEFPROCJ(A%)BPUT#w%,A%:ENDPROC 541DEFFNV=BGET#w% 542DEFPROCh:LOCALB%,H%,xi%,s%:xi%=j_%:I_%=0:IFMJ%>0THENB%=8ELSEB%=Oy% 543CASEB%ANDNOT(2+16)OF 544WHEN1,8:CASETRUEOF 545WHENB%=1:I_%=6-3*NOTf_% 546WHENB%=3:I_%=9-3*NOTf_% 547WHEN(B%AND8)>0:I_%=9:$DJ%=FNUy 548WHEN(B%AND16)>0:I_%=LENFNZy(N$)+3 549ENDCASE:I_%=I_%*16:Pu%=68:J%!8=0:J%!&C=I_%:J%!16=Pu%:J%!20=&2700313D:J%!24=DJ%:J%!28=Xa%:J%!32=32 550WHEN1+4:I_%=&74:Pu%=&78:J%!8=-16:J%!&C=I_%:J%!16=Pu%:$DJ%="clock":J%!20=&3102:J%!24=DJ%:J%!28=h%:J%!32=32 551OTHERWISE:I_%=68:Pu%=68:J%!8=0:J%!&C=68:J%!16=68:J%!20=&3002:$(J%+24)="!Organiser" 552ENDCASE:IFj_%<>-1ANDNOTb_%THEN!J%=-3:s%=j_%ELSE!J%=-1-ABS(7*b_%) 553J%!4=0:SYS&400C2,s%,J%TOj_%:IFxi%<>-1THEN!J%=-1:J%!4=xi%:SYS&400C4,,J% 554IF(B%AND4)=4THENPROCP_ 555PROCFy(-1,j_%,H%()):ENDPROC 556DEFPROCFy(q%,gy%,K%()):LOCALg_%,A%:g_%=FNA_(q%,gy%):IFg_%<>-1THEN 557A%=INSTR(FNN(g_%),"R"):g_%?A%=ASCSTR$K%(0):PROCD(q%,gy%,K%(2)):PROCg(q%,gy%,K%(1)):!J%=q%:J%!4=gy%:J%!8=0:J%!&C=0:SYS&400CD,,J% 558ENDIF:ENDPROC 559DEFPROCju:LOCALA%,Hy%:DIMA%(6):Ty%=0:PROCjJ:Al%=FNW("Info",Hy%):i%=FNW("Main",Hy%):ki%=Hy%:Cy%=FNW("Addresses",Hy%):__%=FNW("Important",Hy%):Mu%=FNW("Banner",Hy%):sy%=FNW("GetDate",Hy%):T_%=FNW("Setup",Hy%):f%=FNW("AlarmSet",Hy%):Kl%=Hy%:Ry%=FNW("AlarmWarn",Hy%) 560_y%=FNW("Anni",Hy%):_a%=Hy%:GJ%=FNW("AnniNotify",Hy%):A%(1)=FNW("SetGen",Hy%):A%(2)=FNW("SetAdd",Hy%):A%(3)=FNW("SetAnn",Hy%):A%(4)=FNW("SetCal",Hy%):A%(5)=FNW("SetDia",Hy%):A%(6)=FNW("SetColours",Hy%):Jy%=FNW("SetClock",Hy%) 561PROCA(Al%,3,T$):PROCA(Al%,0,FNA("Title")):PROCA(Al%,1,FNA("Purp")):PROCA(Mu%,3,FNA("Vers")+" "+T$):PROCA(Mu%,6,"� Chris Morison 19"+MID$(T$,INSTR(T$,")")-2,2)):PROCA(Mu%,4,D$):FORA%=1TO31:PROCA(sy%,A%+3,STR$A%):NEXT:ENDPROC 562DEFFNW(L$,RETURNHy%):LOCALH%,S%,I%,P%,hy%,g_%:SYS&400DB,,,0,0,0,L$,0TO,S%,I%:IFS%>512THEN 563SYS&2001E,6,,,S%TO,,P%;hy%:IFhy%AND1THENERROR2,FNA("ErrWin") 564ELSEP%=K% 565ENDIF:DIMg_%I%:SYS&400DB,,P%,g_%,g_%+I%,vl%,L$,0TO,,g_%:IFL$="Main"THEN 566P%!68=&64+(&64<<16):P%!0=0:P%!4=0:P%!8=ay%:P%!&C=Uy%:IFJJ%THEN 567P%!48=FNg:P%!44=-FNd:P%!28=P%!28OR(3<<29) 568ELSEP%!48=ay%:P%!44=-Uy%:P%!28=P%!28ANDNOT(3<<29) 569ENDIF 570ELSE:IFL$="Setup"THENva%=S% 571IFL$="Addresses"THENli%=S% 572ENDIF:IFNOTJu%ANDL$<>"Banner"THENPROCwu(P%) 573IFL$="Addresses"THENPROCty(P%!84,P%) 574P%!64=h%:SYS&400C1,,P%TOgy%:Hy%=P%!72:IFS%>512THENSYS30,7,,P% 575=gy% 576DEFPROCzJ(hy%):LOCALty%,B%:IFhy%<>JJ%THEN 577SYS30,6,,,4+88+32*22TO,,ty%:!ty%=i%:SYS&400CC,,ty%:B%=ty%+4:SYS&400C3,,ty%:IFhy%THEN 578B%!48=FNg:B%!44=-FNd:B%!28=B%!28OR(3<<29) 579ELSEB%!48=ay%:B%!44=-Uy%:B%!28=B%!28ANDNOT(3<<29) 580ENDIF:B%=i%:JJ%=hy%:SYS&400C1,,ty%+4TOi%:IFr_%=B%THENr_%=i% 581IFIy%THEN!ty%=i%:SYS&400C5,,ty% 582SYS30,7,,ty% 583ENDIF:ENDPROC 14341DEFPROC_J(Bl%,S$):IFFNQy(Bl%,S$)THEN 14342SWAPK%!8,K%!&C:!K%=256:$(K%+44)="<Wimp$Scrap>"+CHR$0:K%!36=-1:K%!16=2:SYS&400E7,17,K%,K%!4 14343ENDIF:ENDPROC 14344DEFPROCVu(F%,X%,Y%):F%=FNly(K%+32,F%):IFF%<>0ANDF%<>-1THENSYS&400E8,,F%,X%,Y% 14345ENDPROC 14346DEFPROCZJ:IFFNCy<>-1THENK%!&C=K%!8:K%!8=0:SYS&400E7,19,K%,K%!4 14347ENDPROC 14348DEFPROCIJ:LOCALdu%,_%,U%:SYS&400C8,,K%TOdu%:_%=K%!4-K%!20:U%=K%!16-K%!24:WHILEdu%:PROCs_(!K%,_%,U%):SYS&400CA,,K%TOdu%:ENDWHILE:ENDPROC 14349DEFFNZ_(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% 14350DEFPROCk(q%,s%,c%,qy%,qa%):!J%=q%:REPEAT:s%+=c%:IFs%<qy%THENs%=qa%ELSEIFs%>qa%THENs%=qy% 14351J%!4=s%:SYS&400CE,,J%:UNTIL(J%!(8+16)>>&C)AND&F=&F:IFc%=1THENc%=0ELSEc%=LENFNM(q%,s%) 14352SYS&400D2,q%,s%,,,-1,c%:ENDPROC 14353DEFFNu(q%,s%):LOCALo_%,`_%:IFFNy(q%,s%)THEN 14354PROCby(q%,s%,`_%,o_%) 14355ELSE!J%=q%:J%!4=s%:SYS&400CE,,J%:o_%=(J%!24>>28)AND&F 14356ENDIF:=o_% 14357DEFPROCg(q%,s%,o_%):IFFNy(q%,s%)THEN 14358PROCsy(q%,s%,-1,o_%) 14359ELSE!J%=q%:J%!4=s%:J%!&C=&F<<28:J%!8=o_%<<28:SYS&400CD,,J% 14360ENDIF:ENDPROC 14361DEFFNy(q%,s%):!J%=q%:J%!4=s%:SYS&400CE,,J%:=((J%!24)AND(1<<6))>0 14362DEFPROCsy(q%,s%,`_%,o_%):LOCALP%,A%:!J%=q%:J%!4=s%:SYS&400CE,,J%:P%=J%!32:A%=INSTR($P%,"F"):IFA%>0THEN 14363IF`_%<>-1THEN?(P%+A%+1)=ASCSTR$~`_% 14364IFo_%<>-1THEN?(P%+A%)=ASCSTR$~o_% 14365J%!8=0:J%!&C=0:SYS&400CD,,J% 14366ENDIF:ENDPROC 14367DEFPROCby(q%,s%,RETURN`_%,RETURNo_%):LOCALP%,A%:!J%=q%:J%!4=s%:SYS&400CE,,J%:P%=J%!32:A%=INSTR($P%,"F"):`_%=-1:o_%=-1:IFA%>0THEN`_%=EVAL("&"+CHR$?(P%+A%+1)):o_%=EVAL("&"+CHR$?(P%+A%)) 14368ENDPROC 14369DEFFN_(q%,s%):LOCALo_%,`_%:IFFNy(q%,s%)THEN 14370PROCby(q%,s%,`_%,o_%) 14371ELSE!J%=q%:J%!4=s%:SYS&400CE,,J%:`_%=(J%!24>>24)AND&F 14372ENDIF:=`_% 14373DEFPROCD(q%,s%,`_%):IFFNy(q%,s%)THEN 14374PROCsy(q%,s%,`_%,-1) 14375ELSE!J%=q%:J%!4=s%:J%!&C=&F<<24:J%!8=`_%<<24:SYS&400CD,,J% 14376ENDIF:ENDPROC 14377DEFPROCR(q%,s%,hy%):LOCALl%:l%=J%+64:IFhy%=1THEN!J%=q%:J%!4=s%:SYS&400CE,,J% 14378!l%=q%:l%!4=s%:l%!8=(ABShy%)<<23:l%!&C=1<<23:SYS&400CD,,l%:IFhy%=1THENSYS&400D1,q%,J%!8,J%!&C,J%!16,J%!20 14379ENDPROC 14380DEFFNA_(q%,s%):LOCALA%:!J%=q%:J%!4=s%:SYS&400CE,,J%:IF(J%!24AND256)>0THENA%=J%!32ELSEA%=-1 14381=A% 14382DEFPROCZ(q%,s%,hy%):LOCALA%:!J%=q%:J%!4=s%:A%=1:IFhy%=-1THENhy%=1:A%=0 14383J%!8=hy%<<21:J%!&C=A%<<21:SYS&400CD,,J%:ENDPROC 14384DEFFNZ(q%,s%):!J%=q%:J%!4=s%:SYS&400CE,,J%:=-((J%!24>>21)AND1) 14385DEFPROCM(q%,s%,hy%):LOCALA%:A%=1:!J%=q%:J%!4=s%:IFhy%=-1THENhy%=1:A%=0 14386J%!8=hy%*(1<<22):J%!&C=A%<<22:SYS&400CD,,J%:ENDPROC 14387DEFPROCA(q%,s%,W$):LOCALP%,L%:!J%=q%:J%!4=s%:SYS&400CE,,J%:IFJ%!24AND(1<<8)THENP%=J%!28:L%=(J%!36)-1:ELSEP%=J%+28:L%=&B 14388$P%=LEFT$(W$,L%):J%!8=0:J%!&C=0:SYS&400CD,,J%:ENDPROC 14389DEFFNM(q%,s%):LOCALA$:!J%=q%:J%!4=s%:SYS&400CE,,J%:IF(J%!24AND256)>0THENA$=FNN(J%!28)ELSEA$=FNN(J%+28) 14390=A$ 14391DEFFNqy(q%,s%):LOCALA%:!J%=q%:J%!4=s%:SYS&400CE,,J%:IF(J%!24AND256)>0THENA%=J%!28ELSEA%=-1 14392=A% 14393DEFPROCG_(Zy%,I%):Zy%!(28+24*I%)=Zy%!(28+24*I%)OR8:ENDPROC 14394DEFPROCgy(Zy%,L%,H%):Zy%+=4+24*L%:REPEATZy%+=24:Zy%!8=Zy%!8OR8:L%+=1:UNTIL((L%>H%)AND(H%<>-1))OR((!Zy%AND&80)>0):ENDPROC 14395DEFPROCW(Zy%,L%,H%):Zy%+=4+24*L%:REPEATZy%+=24:!Zy%=!Zy%ANDNOT1:L%+=1:UNTIL((L%>H%)AND(H%<>-1))OR((!Zy%AND&80)>0):ENDPROC 14396DEFFNPy(c$):LOCALZy%,zu%,Fy%:Zy%=FNAy(c$+"\0\1\2\3\4\5\6\7\8\9\10\11\12\13\14\15"):FORFy%=0TO&F:CASETRUEOF 14397WHENFy%<4,Fy%=9,Fy%=&C,Fy%=&E,Fy%=&F:zu%=7 14398OTHERWISEzu%=0 14399ENDCASE:Zy%?(39+Fy%*24)=Fy%*16+zu%:NEXT:PROCgy(Zy%,0,-1):=Zy% 14400DEFFNAy(A$):LOCALA%,B%,L%,Z$,I%:A$+="\":DIMA%4*FNgy (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%=FNOy(Z$):B%!4=0:B%!8=&7000021 14401IFINSTR(Z$,">")THENB%!4=VALMID$(Z$,INSTR(Z$,">")+1):Z$=LEFT$(Z$,INSTR(Z$,">")-1) 14402IFLENZ$>&BTHENDIMI%LENZ$+1:$I%=Z$:B%!8=B%!8OR256:B%!&C=I%:B%!16=0:B%!20=I%+1ELSE$(B%+&C)=Z$ 14403IFLENZ$>L%THENL%=LENZ$ 14404A$=MID$(A$,INSTR(A$,"\")+1):ENDWHILE:!B%=!B%OR&80:A%!16=L%*16+16:=A% 14405DEFFNC(c$,i$,L%,H%):LOCALM%,A%,C%,D%,Rl%,A$:DIMM%28+24* (H%-L%+1):!M%=FNh(c$):M%!4=0:M%!8=0:Rl%=LENFNA(c$):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=FNh(i$+STR$C%):A%!16=0:A%!20=0:D%=LENFNA(i$+STR$C%):IFD%>Rl%THENRl%=D% 14406NEXT:!A%+=&80:M%!28+=256:M%!16=Rl%*16+16:=M% 14407DEFPROCY(M%,I%,S%):M%!(28+24*I%+4)=S%:ENDPROC 14408DEFFNOy(RETURNZ$):LOCALA%,F%:REPEAT:CASECHR$ASCZ$OF 14409WHEN"�":A%+=1:Z$=MID$(Z$,2) 14410WHEN"_":A%+=2:Z$=MID$(Z$,2) 14411WHEN"*":A%+=8:Z$=MID$(Z$,2) 14412OTHERWISEF%=-1 14413ENDCASE:UNTILF%:=A% 14414DEFFNgy(A$):LOCALA%:WHILEINSTR(A$,"\"):A%+=1:A$=MID$(A$,INSTR(A$,"\")+1):ENDWHILE:=A% 14415DEFFNVy(A%):LOCALH%:A%+=4:REPEATA%+=24:H%+=44:IF(!A%AND2)>0THENH%+=24 14416UNTIL(!A%AND&80)>0:=H%+96 14417DEFFNzy(Zy%,ca%,W$,Za%,n$):LOCALSi%,g_%:DIMSi%Za%+1,g_%LEN (n$)+1:$Si%=W$:$g_%=n$:Zy%+=28+24*ca%:!Zy%=!Zy%OR4:Zy%!8=Zy%!8OR256:Zy%!&C=Si%:Zy%!16=g_%:Zy%!20=Za%:=Si% 14418DEFFNMy(Zy%,u$):LOCALA%,B%:B%=Zy%+28:WHILE(u$<>FNJ(Zy%,A%))AND(!B%AND&80)=0:A%+=1:B%+=24:ENDWHILE:IFu$<>FNJ(Zy%,A%)THENA%=-1 14419=A% 14420DEFPROCT(M%,I%,F%):IFF%<>0THEN 14421M%!(36+24*I%)=M%!(36+24*I%)OR(1<<22) 14422ELSEM%!(36+24*I%)=M%!(36+24*I%)ANDNOT(1<<22) 14423ENDIF:ENDPROC 14424DEFFNJ(M%,I%):M%+=28+24*I%:IF(M%!8AND256)>0THENM%=M%!&CELSEM%=M%+&C 14425=FNN(M%) 14426DEFPROCS(M%,I%,F%):IFF%<>0THENM%!(28+24*I%)=M%!(28+24*I%)OR1ELSEM%!(28+24*I%)=M%!(28+24*I%)ANDNOT(1) 14427ENDPROC 14428DEFFN`y(M%):IFM%!28>&80THENM%=!M% 14429=FNN(M%) 14430DEFPROCg_(M%,I%,F%):IFF%<>0THENM%!(28+24*I%)=M%!(28+24*I%)OR2ELSEM%!(28+24*I%)=M%!(28+24*I%)ANDNOT(2) 14431ENDPROC 14432DEFFNr(A%)=A%-A%MOD4 14433DEFFNf(A%)=A%-A%MOD2 14434DEFFNDy:SYS&400CF,,J%:=(((J%!8)AND1)=1) 14435DEFFNj:LOCALA%:SYS6,&A1,&DCTO,,A%:=(A%AND&80)=&80 14436DEFPROCMy(F%):LOCALA%:SYS6,&A1,&DCTO,,A%:CASEF%OF 14437WHEN0:A%=A%ANDNOT&80 14438WHEN1:A%=A%OR&80 14439WHEN-1:A%=A%EOR&80 14440ENDCASE:SYS6,&A2,&DC,A%:ENDPROC 14441DEFFNd:LOCALA%,B%:SYS53,-1,&CTO,,A%:SYS53,-1,5TO,,B%:=(A%<<B%) 14442DEFFNHy(M%):LOCALA%:SYS53,M%,5TO,,A%:=(A%=1) 14443DEFFNw(H%,S%,F%):LOCALP%,E%,V%,L%,T%:SYS&2001D,2,H%,,S%TOE%,,P%;V%:IF(V%AND1)=1THEN 14444IFF%THEN 14445P%=FNWy:PROCp(H%,(S%DIVP%)*P%-P%*((S%MODP%)>0),TRUE):P%=FNw(H%,S%,FALSE) 14446ELSESYS43,E% 14447ENDIF 14448ENDIF:=P% 14449DEFPROCfu(H%,RETURNB%,S%,F%):LOCALL%,E%,V%,T%,P%:SYS&2001D,4,H%,B%,S%TOE%,,B%;V%:V%=((V%AND1)=1):CASETRUEOF 14450WHENV%ANDNOTF%:SYS43,E% 14451WHENV%ANDF%AND(S%>0):PROCp(H%,S%,TRUE):PROCfu(H%,B%,S%,TRUE) 14452WHENV%ANDF%AND(S%<0) 14453WHENNOTV%ANDF%AND(S%<0):PROCp(H%,-1,TRUE) 14454ENDCASE:ENDPROC 14455DEFPROCLy(H%,B%,F%):LOCALA%,hy%:SYS29,3,H%,B%TOA%;hy%:IFF%THENPROCp(H%,-1,TRUE) 14456ENDPROC 14457DEFPROCp(H%,S%,F%):LOCALP%:IFF%THEN 14458IFS%<0THEN 14459SYS&2001D,5,H%,,-32*&400*&400:S%=H%!&C+H%-&8000:P%=FNWy: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% 14460ELSE:E%=`u%:F%=FNl(S%):SYS29,5,H%,,`u%-E% 14461ENDIF 14462ELSESYS29,5,H%,,S% 14463ENDIF:ENDPROC 14464DEFPROCc_(H%,S%):IFS%=-1THENS%=`u% 14465SYS29,0,H%,,S%:ENDPROC 14466DEFPROCbJ:SYS&61504,C_%:SYS&2001E,7,,C_%:ENDPROC 14467DEFPROCJJ(k$):LOCALF%:SYS&2001E,6,,,17+LENk$TO,,C_%;F%:IFF%AND1THENERROR2,"Not enough memory for messages." 14468$(C_%+16)=k$:SYS&41501,C_%,C_%+16,0:ENDPROC 14469DEFFNA(Q$):LOCALF%,L%:SYS&61502,C_%,Q$,J%,256TO,,,L%;F%:IFF%AND1ERROR2,"Can't get message '"+Q$+"' from Messages file" 14470J%?L%=&D:=$J% 14471DEFFNh(Q$):LOCALF%,P%:SYS&61502,C_%,Q$,0TO,,P%;F%:IFF%AND1ERROR2,"Can't get message '"+Q$+"' from Messages file" 14472=P% 14473DEFFNO(Q$,A$,Z$,F$,Ay$):LOCALF%,L%:SYS&61502,C_%,Q$,J%,256,A$,Z$,F$,Ay$TO,,,L%;F%:IFF%AND1ERROR2,"Can't get message '"+Q$+"' from Messages file" 14474J%?L%=&D:=$J% 14475DEFFNay(Q$,L%,H%,Z$,A$):LOCALM$,A%:FORA%=L%TOH%:M$+=Z$+FNA(Q$+STR$A%)+A$:NEXT:=M$ 14476DEFFNm(a%,Q%,gi%,yi%,x%,n%):IFx%<0THENgi%+=x%:x%=-x% 14477IFn%<0THENyi%+=n%:n%=-n% 14478=((a%>=gi%)AND(a%<=(gi%+x%))AND(Q%>=yi%)AND(Q%<=(yi%+n%))) 14479DEFFNWy:LOCALP%:SYS81TOP%:=P% 14480DEFFNfy:LOCALI$,I%:SYS16TOI$:I%=INSTR(I$," -quit "):IFI%THENI$=MID$(I$,INSTR(I$," ",I%+LEN" -quit ")+1) 14481=I$ 14482DEFFNC_(A$):LOCALL%:SYS35,A$,J%,&FF,0,3TO,,L%:J%?L%=0:=FNN(J%) 14483DEFFNb(A$):LOCALL%,F%:SYS&20023,A$,J%,&FF,0,3TO,,L%;F%:IF(F%AND1)=0THENJ%?L%=0:IFFNN(J%)<>""THENF%=TRUEELSEF%=FALSE 14484=F% 14485DEFFNl(M%):LOCALS%:SYS&400EC,-1,-1TOS%:SYS&400EC,S%+M%,-1TOS%:`u%=S%-(HIMEM-&8000):=HIMEM 14486DEFFNN(P%):LOCALA$:WHILE?P%<>0AND?P%<>&DAND?P%<>&A:A$+=CHR$(?P%):P%+=1:ENDWHILE:=A$ 14487DEFPROCgJ(gy%):!J%=256:J%!&C=0:J%!16=0:SYS&400E7,17,J%,gy%:ENDPROC 14488DEFFNv(A$):LOCALA%,C%:FORA%=1TOLENA$:C%=ASCMID$(A$,A%,1):IFC%>=97ANDC%<=&7ATHENC%=C%ANDNOT32 14489MID$(A$,A%)=CHR$(C%):NEXT:=A$ 14490DEFFNg:LOCALA%,B%:SYS53,-1,&BTO,,A%:SYS53,-1,4TO,,B%:=(A%<<B%) 14491DEFPROCB(My$):!J%=&FF:$(J%+4)=My$+CHR$0:SYS&400DF,J%,17+(1<<8)+(1<<9),"Message from "+H$,w$:ENDPROC 14492DEFFN_y(A$,R%):!J%=0:$(J%+4)=A$:SYS&400DF,J%,23-4*ABSR%+(1<<8),"Message from "+H$,w$TO,R%:=R%-2 14493DEFFNey(c%,r%,Q%):=(FNL(c%,r%,Q%)+1)MOD2 14494DEFFNL(c%,r%,Q%):LOCALXu%:Qy%=Q%-&77D:Xu%=Qy%*365:Xu%+=Qy%DIV4-(Q%-&76C-1)DIV&64+(Q%-&640-1)DIV400:WHILE(r%-1)>0:r%-=1:CASEr%OF 14495WHEN1,3,5,7,8,&A,&C:Xu%+=31 14496WHEN4,6,9,&B:Xu%+=30 14497WHEN2:Xu%+=28-FNBy(Q%) 14498ENDCASE:ENDWHILE:=Xu%+c% 14499DEFFNH(c%,r%,Q%):=FN`(FNL(c%,r%,Q%)) 14500DEFFND(r%,Q%):LOCALc%:CASEr%OF 14501WHEN1,3,5,7,8,&A,&C:c%=31 14502WHEN4,6,9,&B:c%=30 14503WHEN2:c%=28-FNBy(Q%) 14504ENDCASE:=c% 14505DEFFNBy(Q%)=((Q%MOD4=0)ANDNOT(Q%MOD&64=0))OR(Q%MOD400=0) 14506DEFPROCP(RETURNd%,RETURNz%,RETURNe%,uy%,Hu%,Qy%):LOCALii%,wa%,U%:ii%=d%:wa%=z%:U%=e%:d%+=uy%:z%+=Hu%:e%+=Qy%:WHILEz%<1:z%+=&C:e%-=1:ENDWHILE:WHILEz%>&C:z%-=&C:e%+=1:ENDWHILE:WHILEd%<1:z%-=1:IFz%<1THENz%=&C:e%-=1 14507d%+=FND(z%,e%):ENDWHILE:WHILEd%>FND(z%,e%):d%-=FND(z%,e%):z%+=1:IFz%>&CTHENz%=1:e%+=1 14508ENDWHILE:IFe%<&77dORe%>&fffTHENd%=ii%:z%=wa%:e%=U% 14509ENDPROC 14510DEFFN`(j%):=((j%-1)MOD7)+1 14511DEFFNU(c%,r%,Q%,TJ%):=FNt(FNL(c%,r%,Q%),TJ%)+", "+FNwy(c%)+" "+FNX(r%,TJ%)+" "+STR$Q% 14512DEFPROCY_:LOCALC%,P%,C,F,w,Z,M,B,W,Q,a,J,U:DIMC%&90:C=&D:F=&E:w=&F:Z=2:M=3:B=4:W=5:Q=0:a=1:J=6:U=7:FORS%=0TO2STEP2:P%=C%:[OPTS%:.T CMP W,#0:RSBLT W,W,#0:SUBLT M,M,W:CMP B,#0:RSBLT B,B,#0:SUBLT Z,Z,B:ADD U,Z,B:LDR J,[Q,#28]:CMP U,J:BLT N:LDR J,[Q,#36]:CMP Z,J:BGT N 14513LDR J,[Q,#32]:ADD U,M,W:CMP U,J:BLT N:LDR J,[Q,#40]:CMP M,J:BGT N:CMP a,#0:MVNEQ0,#1:MOVEQpc,F:B q:.N MOV0,#0:MOVpc,F:.q MOV1,Z:MOV2,M:MOV0,#4:SWI 69:MOV1,B:MOV2,W:MOV0,#96+1:SWI 69:MVN0,#1:MOVpc,F:]NEXT:ENDPROC 14514DEFFNF(C%,D%,E%,F%):LOCALA%,B%:A%=K%:B%=0:=USRT 14515DEFPROCd(C%,D%,E%,F%):LOCALA%,B%:A%=K%:B%=1:CALLT:ENDPROC 14516DEFPROCX(q%):!J%=q%:SYS&400C6,,J%:IFq%=r_%THENTu%=FALSE:!J%=v_%:SYS&600C6,,J% 14517IFq%=i%THENIy%=FALSE 14518ENDPROC 14519DEFPROCwu(B%):LOCALN%,A$,Wy%,l%:N%=B%!84:B%+=88:WHILEN%:IF((B%!16)AND64)>0THEN 14520A$=$(B%!24):l%=EVAL("&"+MID$(A$,INSTR(A$,"F")+1,1)):Wy%=EVAL("&"+MID$(A$,INSTR(A$,"F")+2,1)):B%!16=B%!16ANDNOT(64+(&FF<<24)):B%!16=B%!16OR(Wy%<<24)OR(l%<<28) 14521ENDIF:B%+=32:N%-=1:ENDWHILE:ENDPROC 14522DEFPROCN(q%,a_%,M_%,G_%,oy%):SYS&400D1,q%,a_%,oy%,G_%+2,M_%+4:ENDPROC 14523DEFPROCz(q%,dJ%,al%):LOCALW%,H%,X%,Y%,Z%:!J%=q%: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%:IFal%=-1THEN 14524J%!4=FNg/2-W%/2:J%!&C=J%!4+W%:J%!16=FNd-((FNd-&84)-H%)/2-Y%:J%!8=J%!16-H% 14525ELSE:IFal%=1THEN 14526MOUSEX%,Y%,Z%:J%!4=X%-64:J%!&C=J%!4+W%:J%!8=Y%-H%:J%!16=Y% 14527ENDIF 14528ENDIF:IFdJ%<>0THENJ%!28=dJ% 14529SYS&400C5,,J%:IFq%=i%THENIy%=TRUE 14530IFq%=r_%THENTu%=TRUE:!K%=r_%:SYS&400CB,,K%:K%!28=J%!28:PROCF_ 14531ENDPROC 14532DEFPROCwy(ei%,q%,a%,Q%,wl%,Ji%,Pi%):IFv_%<>0ANDv_%<>q%THEN!J%=v_%:SYS&600C6,,J% 14533v_%=q%:r_%=ei%:Gl%=a%:zl%=Q%:Tu%=wl%:ul%=Ji%:ml%=Pi%:IFv_%<>0THEN 14534!J%=v_%:SYS&400CB,,J%:Da%=J%!&C-J%!4:La%=J%!16-J%!8:!J%=r_%:SYS&400CB,,J%:J%!4+=a%:J%!16+=Q%:IFwl%THEN!J%=q%:SYS&400C5,,J% 14535ENDIF:ENDPROC 14536DEFPROCF_:IFv_%<>0AND!K%=r_%THEN 14537!J%=v_%:J%!4=K%!4+Gl%:J%!16=K%!16+zl%:J%!&C=J%!4+Da%:J%!8=J%!16-La%:J%!20=0:J%!24=0:J%!28=K%!28:IFul%THEN 14538J%!4-=K%!20:J%!&C-=K%!20:IFJ%!4<K%!4THENJ%!20=K%!20-Gl%:J%!4=K%!4 14539IFJ%!&C>K%!&CTHENJ%!&C=K%!&C 14540ENDIF:IFml%THEN 14541J%!16-=K%!24:J%!8-=K%!24:IFJ%!16>K%!16THENJ%!24=K%!16-J%!16:J%!16=K%!16 14542IFJ%!8<K%!8THENJ%!8=K%!8 14543ENDIF:SYS&400C5,,J%:K%!28=v_% 14544ENDIF:ENDPROC 14545DEFPROCjJ:LOCALA%:DIMvl%256:FORA%=0TO256STEP4:vl%!A%=0:NEXT:ENDPROC 14546DEFPROCtu(ta%,b$):vl%=-1:SYS&400D9,,b$:PROCju:SYS&400DA:ENDPROC 14547DEFPROCf(W%,Hy%,A$,mJ%):$Hy%=A$:IFmJ%THEN 14548!K%=W%:SYS&400CB,,K%:SYS&400D1,-1,K%!4,K%!16,K%!&C,K%!16+44 14549ENDIF:ENDPROC 14550DEFPROCV(B%,F%):SYS&400F3,,B%,F%:ENDPROC 14551DEFFNP(b$,W%,H%):LOCALF%:SYS&40081,,b$,16*W%,16*H%,0,0TOF%:=F% 14552DEFPROCU(H%):SYS&40082,H%:ENDPROC 14553DEFPROCfy(RETURNX%,RETURNY%):SYS&40088,,X%,Y%TO,X%,Y%:ENDPROC 14554DEFPROCL(gy%,W$,zu%,a%,Q%):LOCALa_%,oy%,G_%,M_%,ZJ%:SYS&4008A,gy%:SYS&40097,,W$TO,a_%,oy%,G_%,M_%:SYS&40088,,a_%,oy%TO,a_%,oy%:SYS&40088,,G_%,M_%TO,G_%,M_%:ZJ%=G_%+a_%:IFzu%=0THENa%-=ZJ%/2ELSEIFzu%>0THENa%-=ZJ% 14555IFFNF(a%,Q%-M_%+oy%,ZJ%,M_%-oy%)THENSYS&40086,gy%,W$,1<<4,a%,Q%-M_% 14556ENDPROC 14557DEFPROCjy(gy%,W$,Ta%,ri%,a%,Q%,`%):LOCALa_%,oy%,G_%,M_%,ZJ%:!J%=0:J%!4=-`%<<16:J%!8=`%<<16:J%!&C=0:J%!16=0:J%!20=0:SYS&4008A,gy%:SYS&40097,,W$TO,a_%,oy%,G_%,M_%:SYS&40088,,a_%,oy%TO,oy%,a_%:SYS&40088,,G_%,M_%TO,M_%,G_%:IFTa%=0THENa%-=`%*G_%/2ELSEIFTa%=`%THENa%-=`%*G_% 14558IFri%=0THENQ%+=`%*M_%/2ELSEIFri%=-`%THENQ%-=ri%*M_% 14559SYS&40086,gy%,W$,(1<<4)+(1<<6),a%,Q%,0,J%:ENDPROC 14560DEFPROCc(Pl%,W$,_%,U%,x%,n%):IFFNF(_%,U%,x%,n%)THEN 14561LOCALA%,gy%,a_%,oy%,G_%,M_%,ZJ%,mi%,Ol%,_l%:SYS&4008A,Pl%:gy%=Pl%:SYS&40097,Pl%,W$TO,a_%,oy%,G_%,M_%:SYS&40088,,G_%+a_%,M_%+oy%TO,ZJ%,mi%:IFZJ%>x%THEN 14562SYS&40083,Pl%,J%TO,,Ol%,_l%:WHILEZJ%>x%:Ol%=Ol%*0.95:_l%=_l%*0.95:SYS&40081,,J%,Ol%,_l%:SYS&40097,,W$TOgy%,a_%,oy%,G_%,M_%:SYS&40088,,G_%+a_%,M_%+oy%TO,ZJ%,mi%:IFZJ%>x%THENSYS&40082,gy% 14563ENDWHILE 14564ENDIF:SYS&40086,,W$,1<<4,_%,U%:IFgy%<>Pl%THENSYS&40082,gy% 14565ENDIF:ENDPROC 14566DEFPROCCy(a%,Q%,x%,n%,`%):MOVEa%+`%,Q%:DRAWBYx%-2*`%,0:MOVEBY`%,-`%:DRAWBY0,-n%+2*`%:MOVEBY-`%,-`%:DRAWBY-x%+2*`%,0:MOVEBY-`%,`%:DRAWBY0,n%-2*`%:MOVEa%+`%,Q%-`%:MOVEBY0,`%:PLOT&A1,-`%,-`%:MOVEa%+x%-`%,Q%-`%:MOVEBY`%,0:PLOT&A1,-`%,`%:MOVEa%+x%-`%,Q%-n%+`%:MOVEBY0,-`% 14567PLOT&A1,`%,`%:MOVEa%+`%,Q%-n%+`%:MOVEBY-`%,0:PLOT&A1,`%,-`%:ENDPROC 14568DEFPROCYJ:ENDPROC 14569DEFPROCuu:CASEBi%OF 14570WHEN3:PROCr_(vJ%) 14571ENDCASE:ENDPROC 14572DEFPROCx:vJ%=-1:Bi%=-1:IFNOTBu%THEN 14573vJ%=FNiy(_J%):IFvJ%<>-1THENBi%=3 14574ELSEPROCsJ 14575ENDIF:ENDPROC 14576DEFPROCQ_(Lu%):CASEZ%(Lu%)OF 14577WHEN2:PROCeu 14578WHEN3:PROCku 14579ENDCASE:ENDPROC 14580DEFPROCoy(y%,_%,U%):SYS&400E6,0:CASEZ%(t%)OF 14581WHEN2:PROC`_(v%,y%,_%,U%) 14582WHEN5:PROCoJ(v%,y%,_%,U%) 14583WHEN1:PROCCJ(v%,y%,_%,U%) 14584WHEN3:PROCh_(v%,y%,_%,U%) 14585ENDCASE:ENDPROC 14586DEFFNny(s%,By%):CASEZ%(t%)OF 14587WHEN2:o%=FNsy(s%,By%) 14588WHEN5:o%=FNmy(s%,By%) 14589WHEN1:o%=FNby(s%,By%) 14590WHEN3:o%=FNG_(s%,By%) 14591ENDCASE:=o% 14592DEFPROChu(l%,A%):CASEZ%(A%)OF 14593WHEN2:PROCf_(l%,A%) 14594WHEN5:PROCQJ(l%,A%) 14595WHEN1:PROCk_(l%,A%) 14596WHEN3:PROC_u(l%,A%) 14597ENDCASE:ENDPROC 14598DEFFNL_(S%):LOCALCl%:CASEZ%(S%)OF 14599WHEN2:Cl%=FNyy 14600WHEN5:Cl%=FNRy 14601WHEN1:Cl%=FNX_ 14602WHEN3:Cl%=FNJ_ 14603ENDCASE:=Cl% 14604DEFPROCmy(Lu%):CASEZ%(Lu%)OF 14605WHEN2:PROCC_ 14606WHEN3:PROCkJ 14607ENDCASE:ENDPROC 14608DEFPROCiy(g%,y%,a%,Q%,i_%,qJ%):CASEZ%(t%)OF 14609WHEN2:PROCq_(g%,y%,a%,Q%,i_%,qJ%) 14610WHEN5:PROCy_(g%,y%,a%,Q%,i_%,qJ%) 14611WHEN1:PROCUu(g%,y%,a%,Q%,i_%,qJ%) 14612WHEN3:PROCzu(g%,y%,a%,Q%,i_%,qJ%) 14613ENDCASE:ENDPROC 14614DEFPROCK_(p%):CASEZ%(t%)OF 14615WHEN2:PROCj(p%) 14616WHEN5:PROCVy(p%) 14617WHEN1:PROCRy(p%) 14618WHEN3:PROCQy(p%) 14619ENDCASE:ENDPROC 14620DEFPROCXJ(q%,s%,g%,Yy%,ry%):CASEZ%(t%)OF 14621WHEN2:PROCSl(q%,s%,g%,Yy%,ry%) 14622ENDCASE:ENDPROC 14623DEFFNcy(q%,s%,By%):LOCALA%:FORA%=1TOB_%:IFNOTo%THEN 14624CASEZ%(A%)OF 14625WHEN2:o%=FNxy(q%,s%,By%) 14626WHEN5:o%=FNB_(q%,s%,By%) 14627WHEN1:o%=FNry(q%,s%,By%) 14628WHEN3:o%=FNP_(q%,s%,By%) 14629ENDCASE 14630ENDIF:NEXT:=o% 14631DEFPROCTJ:PROCTu:PROCSu:PROCru:PROCnJ:ENDPROC 14632DEFPROCxJ:LOCALA%:FORA%=1TOB_%:CASEZ%(A%)OF 14633WHEN2:PROCAJ(A%) 14634WHEN5:PROCDu(A%) 14635WHEN1:PROCBJ(A%) 14636WHEN3:PROCd_(A%) 14637ENDCASE:NEXT:ENDPROC 14638DEFPROCsu:PROCDJ:PROCO_:PROCpJ:ENDPROC 14639DEFPROCqu(w%):BPUT#w%,"Address book":PROCiu(w%):BPUT#w%,"Anniversary":PROCwJ(w%):BPUT#w%,"Calendar":PROCv_(w%):BPUT#w%,"Diary":PROCBu(w%):ENDPROC 14640DEFPROCGJ(Sy$,w%):CASESy$OF 14641WHEN"Address book":PROCgu(w%) 14642WHEN"Anniversary":PROCJu(w%) 14643WHEN"Calendar":PROCeJ(w%) 14644WHEN"Diary":PROCfJ(w%) 14645ENDCASE:ENDPROC 14646DEFPROCaJ(q%,s%,g%,a%,Q%):CASEq%OF 14647WHENA%(2):PROCZl(q%,s%,g%,a%,Q%) 14648WHENA%(3):PROCqJ(q%,s%,g%,a%,Q%) 14649WHENA%(4):PROCdu(q%,s%,g%,a%,Q%) 14650WHENA%(5):PROCGu(q%,s%,g%,a%,Q%) 14651ENDCASE:ENDPROC 14652DEFFNdy(q%,s%,By%):CASEq%OF 14653WHENA%(2):o%=FNIy(q%,s%,By%) 14654ENDCASE:=FALSE 14655DEFPROCvJ(l%):CASETy%OF 14656WHENA%(2):PROCj_(l%,Ty%) 14657WHENA%(3):PROCSJ(l%,Ty%) 14658WHENA%(4):PROCNJ(l%,Ty%) 14659WHENA%(5):PROCiJ(l%,Ty%) 14660ENDCASE:ENDPROC 14661DEFPROCXu:PROCe_(A%(2)):PROCtJ(A%(3)):PROCOu(A%(4)):PROCmu(A%(5)):ENDPROC 14662DEFPROCau:PROCl_(A%(2)):PROCWu(A%(3)):PROCKJ(A%(4)):PROCnu(A%(5)):ENDPROC 14663DEFPROCdJ(Zy%,l%):CASEZ%(t%)OF 14664WHEN3:PROCA_(Zy%,l%) 14665ENDCASE:ENDPROC 14666DEFPROCTu:zJ%=FNC("Paste","Paste",1,&A):Gy%=-1:J$="":X$="mailto:":U$="http://":V$="Important numbers":uJ%=-1:Zl%=FNC("Import","Import",1,5):l_%=FNC("ABM","ABM",1,6):PROCY(l_%,3,zJ%):C$="":dy%=-1:YJ%=0:c_%=-1:O$="":Fl%=-1:Jl%=0:`J%=0:P_%=16 14667Xy%=3::::d_%=2:h_%=-1:DIMM%(26),F%(26),A$(&A,&E),Z$(P_%-1,1),L%(&A,1),Ai%16,G%(&E):G%()=7:G%(0)=5:L%()=-1:$Ai%="Pptr_hyper,12,0"+CHR$0:M%(0)=1:iy%=0:x$=Y$+"Addresses":f$=Y$+"Important":ENDPROC 14668DEFFNyy=l_% 14669DEFPROCAJ(A%):B%(A%)=0:W%(A%)=26:S%(A%)=0:M$(A%)=FNA("AddTab"):PROCt_:PROCa:ENDPROC 14670DEFPROCC_:IFv%=0THENPROCR_(i%,Cy%,wy%,-m%-Y_%,Iy%,TRUE,TRUE) 14671ENDPROC 14672DEFPROCeu:PROCdy:IFw_%=0THENPROCOy 14673ENDPROC 14674DEFPROC`_(v%,y%,_%,U%):LOCALLl%,A%,A$,G%,Sy%,F%,Q%,a%,B%,C%,b%,yJ%,D%,E%,_u%,Li%,RJ%,WJ%:WJ%=FNr((k%-(Xy%+2)*24)/Xy%):Ll%=FNP("Homerton.Medium",&A,&A):Sy%=Y_%:SYS&400E6,7:SYS&400F3,,0,7:IF(y%=0)ANDv%>0THENPROCI(0,_%,U%) 14675a%=_%+y%*(u%-40):IFy%=0THEN 14676A%=0:WHILEA%<v%:SYS&400E6,7:LINEa%,U%-Sy%*(A%+1),a%+40,U%-Sy%*(A%+1):IFM%(A%)=0THENpy%=2ELSEpy%=5 14677SYS&400F3,,0,py%:IFA%=0THENA$="+"ELSEA$=CHR$(64+A%) 14678SYS&40086,Ll%,A$,1<<4,a%+&C,U%-Sy%*A%-Sy%+&A:A%+=1:ENDWHILE:IFv%>0THENSYS&400E6,7:LINEa%+40,U%,a%+40,U%-Sy%*(v%) 14679ELSE:A%=v%:IFA%=0THENA$="+"ELSEA$=CHR$(64+A%) 14680SYS&400E6,7:MOVEa%+40,U%-Sy%*(A%+1):DRAWBY-40,0:DRAWa%,U%-k%:SYS&40086,Ll%,A$,1<<4,a%+&C,U%-Sy%*A%-Sy%+&A:A%+=1:WHILEA%<27:SYS&400E6,7:LINEa%,U%-Sy%*(A%+1),a%+40,U%-Sy%*(A%+1):IFM%(A%)=0THENpy%=2ELSEpy%=5 14681SYS&400F3,,0,py%:IFA%=0THENA$="+"ELSEA$=CHR$(64+A%) 14682SYS&40086,Ll%,A$,1<<4,a%+&C,U%-Sy%*A%-Sy%+&A:IFM%(A%)>0ANDA%>v%THENF%=-1 14683A%+=1:ENDWHILE 14684ENDIF:IFy%=1AND(F%ORM%(v%)-iy%>2*Xy%)THENPROCI(1,a%-u%,U%) 14685IFv%<>0THEN 14686IFy%=0OR(y%=1ANDiy%+Xy%<=M%(v%))THEN 14687_u%=FNP("Trinity.Bold",&E,&E):A%=iy%+y%*Xy%:a%=_%-(40*(y%=0))+&c:WHILEA%<M%(v%)ANDB%<Xy%:Q%=U%-24*(B%+1)-WJ%*B%:IFFNF(a%,Q%,cJ%,-WJ%)THEN 14688SYS&400E6,4:PROCCy(a%,Q%,cJ%,WJ%,&c):b%=A%MOD(Xy%*2):A$="":IFA$(b%,1)<>""THENA$=A$(b%,1)+" " 14689A$+=A$(b%,0):PROCV(0,G%(1)):PROCc(_u%,A$,a%+&C,Q%-40,cJ%-&C,40):D%=0:FORC%=2TO&E:D%-=(A$(b%,C%)<>""):NEXT:IFD%<5THEND%=5 14690Sy%=FNr((WJ%-48)/D%):C%=Sy%/3:IFSy%>30THENSy%=30:C%=&C 14691Li%=FNP("Homerton.Medium.Oblique",C%-2,C%-2):RJ%=FNP("Trinity.Medium",C%,C%):G%=1:FORC%=2TO8:IFA$(b%,C%)<>""THENG%+=1:PROCV(0,G%(C%)):PROCc(RJ%,A$(b%,C%),a%+48,Q%-42-Sy%*(G%-1),cJ%-48,Sy%) 14692NEXT:Q%-=WJ%-&E:FORC%=&ETO9STEP-1:IFA$(b%,C%)<>""THEN 14693A$=FNA("Fld"+STR$(C%-8))+":":SYS&400F3,,0,G%(0):SYS&4008A,Li%:SYS&40097,,A$TO,D%,,F%:SYS&40088,,F%-D%TO,D%:SYS&40086,,A$,1<<4,a%+92-D%,Q%-4:SYS&400F3,,0,G%(C%):PROCc(RJ%,A$(b%,C%),a%+&64,Q%-4,cJ%-&64,Sy%+4):Q%+=Sy%:IFC%>=&DTHENPROCb_(b%,C%,a%+&64,Q%-4,cJ%-&64,Sy%+4) 14694ENDIF:NEXT:PROCU(RJ%):PROCU(Li%) 14695ENDIF:A%+=1:B%+=1:ENDWHILE:PROCU(_u%) 14696ENDIF 14697ELSE:IFy%=0THEN 14698_u%=FNP("Trinity.Bold",16,16):SYS&400E6,4:PROCV(0,7):b%=u%-2*&c:PROCCy(a%+&c,U%-24,b%,k%-2*24,2*&c):PROCL(_u%,V$,0,_%+u%/2,U%-24-&C):PROCU(_u%):yJ%=&E:RJ%=FNP("Trinity.Medium",yJ%,yJ%):Sy%=(k%-2*24-68-2*&c)/P_%:Q%=U%-24-68:a%=_%+&c:SYS&400E6,1 14699LINEa%+48,Q%-Sy%*P_%,a%+b%-48,Q%-Sy%*P_%:FORA%=0TOP_%-1:SYS&4008A,RJ%:SYS&400E6,1:LINEa%+48,Q%-Sy%*A%,a%+b%-48,Q%-Sy%*A%:IFFNF(a%,Q%-Sy%*A%,b%,-Sy%)ANDZ$(A%,0)+Z$(A%,1)<>""THEN 14700SYS&40097,,Z$(A%,0)+" "TO,B%,C%,D%,E%:B%=D%-B%:PROCfy(B%,E%):SYS&40097,,Z$(A%,1)TO,C%,F%,D%:C%=D%-C%:PROCfy(C%,F%):IFB%+C%>b%-24ORE%-F%>Sy%THEN 14701IFSy%/(E%-F%)<(b%-24)/(B%+C%)THENF%=yJ%*Sy%/(E%-F%)ELSEF%=yJ%*(b%-24)/(B%+C%) 14702C%=C%*F%/yJ%:E%=E%*F%/yJ%:F%=FNP("Trinity.Medium",F%,F%) 14703ELSEF%=RJ% 14704ENDIF:IFE%=0ORF%=0THENE%=E%+F% 14705SYS&40086,,Z$(A%,0),1<<4,a%+&C,Q%-Sy%*(A%+0.5)-E%/2:SYS&40086,,Z$(A%,1),1<<4,a%+b%-C%-&C,Q%-Sy%*(A%+0.5)-E%/2:IFF%<>RJ%THENPROCU(F%) 14706ENDIF:NEXT 14707ENDIF 14708ENDIF:PROCU(Ll%):ENDPROC 14709DEFPROCf_(l%,cl%):LOCALA%,B%:B%=dy%:CASE!l%OF 14710WHEN0:FORA%=9TO23:PROCA(Cy%,A%,A$(B%,A%-9)):NEXT:PROCR(Cy%,25,0):PROCQ(0,0) 14711WHEN1:FORA%=9TO23:PROCA(Cy%,A%,A$(B%,A%-9)):NEXT:C$="":dy%=-1:PROCQ(0,0):PROCR(Cy%,25,1) 14712WHEN2:PROC_y:IFM%(v%)>0THEN 14713IFM%(v%)<=iy%THENiy%-=2*Xy% 14714PROCQ(v%,iy%):mJ%=TRUE 14715ELSEPROCQ(0,0) 14716ENDIF 14717WHEN3:IFl%!4>=0THENd_%=l%!4 14718IFv%=0THEN 14719FORA%=0TO&E:A$(B%,A%)=FNM(Cy%,A%+9):NEXT 14720ENDIF:CASEd_%OF 14721WHEN0:PROCq(A$(B%,1)+" "+A$(B%,0)) 14722WHEN1:FORA%=2TO8:PROCq(A$(B%,A%)):NEXT 14723WHEN2:PROCq(A$(B%,1)+" "+A$(B%,0)):FORA%=2TO8:PROCq(A$(B%,A%)):NEXT 14724WHEN9:PROCq(A$(B%,1)+" "+A$(B%,0)):FORA%=2TO&E:PROCq(A$(B%,A%)):NEXT 14725OTHERWISEPROCq(A$(B%,d_%+6)) 14726ENDCASE 14727WHEN4:PROCGy(U$+A$(dy%,&E)):uJ%=1 14728WHEN5:PROCGy(X$+A$(dy%,&D)):uJ%=2 14729ENDCASE:ENDPROC 14730DEFPROCpy:LOCALA%:A%=(dy%<0):FORB%=0TO3:PROCT(l_%,B%,A%):NEXT:FORA%=0TO9:PROCS(zJ%,A%,d_%=A%):NEXT:FORB%=4TO5:PROCT(l_%,B%,1):NEXT:IFdy%<>-1THEN 14731IFFNb("Alias$URLOpen_HTTP")THEN 14732PROCT(l_%,4,A$(dy%,&E)="") 14733ENDIF:IFFNb("Alias$URLOpen_MailTo")THEN 14734PROCT(l_%,5,A$(dy%,&D)="") 14735ENDIF 14736ELSEPROCT(l_%,4,1):PROCT(l_%,5,1) 14737ENDIF:ENDPROC 14738DEFPROCj(p%)LOCALA%:A%=v%:IFp%=1THEN 14739IFM%(v%)<=iy%+Xy%*2THEN 14740REPEATA%+=1:UNTILA%>26ORM%(A%MOD27)>0:IFA%<27THENPROCQ(A%,0) 14741ELSEPROCQ(v%,iy%+Xy%*2) 14742ENDIF 14743ELSE:IFiy%=0ANDv%>0THEN 14744REPEATA%-=1:UNTILM%(A%)>0:PROCQ(A%,M%(A%)-1-(M%(A%)-1)MOD(Xy%*2)) 14745ELSEIFv%>0THENPROCQ(v%,iy%-Xy%*2) 14746ENDIF:IFv%=0THENPROCQ(0,0) 14747ENDIF:ENDPROC 14748DEFPROCq_(g%,y%,a%,Q%,i_%,qJ%):LOCALb%,A%,B%,X%,Y%,WJ%:WJ%=FNr((k%-(Xy%+2)*24)/Xy%):IFy%<>0THEN 14749X%=&c:IFa%>u%-40ANDg%<>2THEN 14750b%=-Q%DIVY_%:IFb%<27ANDb%>v%THEN 14751IFv%=0THENO$=C$:Fl%=dy%:Jl%=YJ% 14752IFM%(b%)>0THENPROCQ(b%,0) 14753ENDIF 14754ENDIF 14755ELSE:X%=&c+40:IFa%<40ANDg%<>2THEN 14756b%=-Q%DIVY_%:IFb%<v%THEN 14757IFb%=0THENC$=O$:dy%=Fl%:YJ%=Jl% 14758IFM%(b%)>0THENPROCQ(b%,0) 14759ENDIF 14760ENDIF 14761ENDIF:IFv%>0THEN 14762A%=0:B%=-1:Y%=-24:y%=ABS(y%):C$="":dy%=-1:WHILEA%<Xy%ANDA%+iy%+Xy%*y%<M%(v%):IFFNm(a%,Q%,X%,Y%,cJ%,-WJ%)THENB%=A%+Xy%*y% 14763Y%-=WJ%+24:A%+=1:ENDWHILE:IFB%>=0THEN 14764C$=FNs(A$(B%,0)+" "+A$(B%,1)):dy%=B%:YJ%=B%+iy%:IFg%<>2THEN 14765FORA%=9TO23:PROCA(Cy%,A%,A$(B%,A%-9)):NEXT:PROCR(Cy%,25,0):PROCQ(0,0) 14766ENDIF 14767ENDIF 14768ELSEIFy%=0ANDg%<>2THEN 14769Sy%=(k%-2*24-68-2*&c)/P_%:Y%=-(Q%+24+68-Sy%)/Sy%:IFY%>0ANDY%<=P_%THEN 14770`J%=Y%:PROCA(__%,3,Z$(Y%-1,0)):PROCA(__%,4,Z$(Y%-1,1)):MOUSEX%,Y%,A%:SYS&400D4,,__%,i_%+`y%,Y%:PROCC(__%,3):VJ%=TRUE 14771ENDIF 14772ENDIF 14773ENDIF:IFg%=2THENPROCpy 14774ENDPROC 14775DEFPROCSl(q%,s%,g%,a%,Q%):CASEq%OF 14776WHENCy%:IFg%<>2THEN 14777CASEs%OF 14778WHEN24:PROCy(g%=4):PROCa 14779WHEN25:PROC_y:PROCa:PROCC(Cy%,9) 14780WHEN26:PROCa:PROCC(Cy%,9) 14781WHEN-1,0,1,2,3,4,5,6,7,8:PROCC(i%,-1) 14782ENDCASE 14783ELSEPROCpy:PROCF(l_%,Yy%-64,ry%,q%,s%) 14784ENDIF 14785WHEN__%:CASEs%OF 14786WHEN5:PROCyy 14787WHEN6:SYS&400D4,,-1:`J%=0 14788WHEN7:PROCA(__%,3,""):PROCA(__%,4,""):PROCC(__%,3) 14789ENDCASE 14790ENDCASE:ENDPROC 14791DEFFNsy(s%,By%):o%=TRUE:CASEBy%OF 14792WHEN414:PROCj(-c_%) 14793WHEN415:PROCj(c_%) 14794WHEN43,461:IFv%>0THENC$=O$:dy%=Fl%:YJ%=Jl%:PROCQ(0,0) 14795OTHERWISE:IFBy%>=97ANDBy%<=&7ATHENL%=By%-32-64ELSEL%=By%-64 14796IFL%>0ANDL%<28THEN 14797IFv%=0THENO$=C$:Fl%=dy%:Jl%=YJ% 14798IFM%(L%)>0THENPROCQ(L%,0) 14799ELSEo%=FALSE 14800ENDIF 14801ENDCASE:=o% 14802DEFFNxy(q%,s%,By%):o%=TRUE:CASEq%OF 14803WHENCy%:CASEBy%OF 14804WHEN396:IFwJ%=FNzTHENPROCk(q%,s%,-1,9,23) 14805WHEN397:IFwJ%=FNzTHENPROCk(q%,s%,1,9,23) 14806WHEN398,&D,394:IFs%=23ANDBy%=&DTHENPROCy(TRUE):PROCa 14807WHEN414:PROCj(-c_%) 14808WHEN415:PROCj(c_%) 14809WHEN461:PROCy(TRUE):PROCa 14810WHEN83-64:PROCC(Cy%,9) 14811WHEN70-64:PROCC(Cy%,&A) 14812WHEN65-64:PROCC(Cy%,&B) 14813WHEN84-64:PROCC(Cy%,18) 14814WHEN88-64:IFdy%<>-1THENPROC_y:PROCa:PROCC(Cy%,9) 14815WHEN69-64:PROCC(Cy%,22) 14816WHEN87-64:PROCC(Cy%,23) 14817OTHERWISEo%=FALSE 14818ENDCASE 14819WHEN__%:IFBy%=&DANDs%=4THENPROCyyELSEo%=FALSE 14820WHENGy%:IFGy%<>-1ANDs%=70THENPROC_(J$,VALFNM(Gy%,59)) 14821OTHERWISEo%=FALSE 14822ENDCASE:=o% 14823DEFPROCiu(w%):LOCALA%:BPUT#w%,V$:BPUT#w%,Xy%:BPUT#w%,d_%:BPUT#w%,c_%+5:BPUT#w%,X$:BPUT#w%,U$:FORA%=0TO&E:BPUT#w%,G%(A%):NEXT:ENDPROC 14824DEFPROCgu(w%):LOCALA%:V$=GET$#w%:Xy%=BGET#w%:d_%=BGET#w%:c_%=BGET#w%-5:X$=GET$#w%:U$=GET$#w%:FORA%=0TO&E:G%(A%)=BGET#w%:NEXT:ENDPROC 14825DEFPROCZl(x%,Fy%,l%,a%,Q%):LOCALA%:CASETRUEOF 14826WHEN(Fy%>=3ANDFy%<=7)ORFy%=&CORFy%=&D:IFg%<>2THENPROCZ(x%,Fy%,1) 14827WHENFy%=9:FORA%=0TO9:PROCS(zJ%,A%,d_%=A%):NEXT:PROCF(zJ%,a%,Q%,x%,Fy%) 14828WHENFy%>=22ANDFy%<=36:FORA%=0TO&E:PROCS(Ay%,A%,FN_(x%,Fy%)=A%):NEXT:PROCF(Ay%,a%,Q%,x%,Fy%) 14829ENDCASE:ENDPROC 14830DEFFNIy(x%,Fy%,ga%):LOCALja%,c%:o%=FALSE:IFga%=&DTHENPROCC(x%,1):o%=TRUE 14831=TRUE 14832DEFPROCj_(l%,x%):LOCALA%:CASEU_%OF 14833WHEN9:d_%=!l%:FORA%=0TO9:PROCS(zJ%,A%,d_%=A%):NEXT:PROCA(x%,8,FNJ(zJ%,!l%)) 14834OTHERWISEFORA%=0TO&F:PROCS(Ay%,A%,!l%=A%):NEXT:PROCD(x%,U_%,!l%) 14835ENDCASE:ENDPROC 14836DEFPROCe_(x%):LOCALA%:PROCA(x%,1,V$):FORA%=1TO5:PROCZ(x%,A%+2,-(Xy%=A%)):NEXT:PROCA(x%,8,FNJ(zJ%,d_%)):PROCA(x%,17,U$):PROCA(x%,18,X$):PROCZ(x%,&C,-(c_%=-1)):PROCZ(x%,&D,-(c_%=1)):FORA%=0TO&E:PROCD(x%,A%+22,G%(A%)):NEXT:ENDPROC 14837DEFPROCl_(x%):LOCALA%,B%:V$=FNM(x%,1):U$=FNM(x%,17):X$=FNM(x%,18):B%=Xy%:FORA%=1TO5:IFFNZ(x%,A%+2)THENXy%=A% 14838NEXT:IFA%<>B%ANDt%=FNG(2)THENPROCQ(v%,0) 14839IFFNZ(x%,&C)THENc_%=-1ELSEc_%=1 14840FORA%=0TO&E:G%(A%)=FN_(x%,A%+22):NEXT:ENDPROC 14841DEFPROCQ(b%,Sl%):IFv%=0ANDb%<>0THENPROCC(i%,-1):PROCOy 14842IFb%=0THENPROCR_(i%,Cy%,wy%,-m%-Y_%,Iy%,TRUE,TRUE) 14843J_%=0:IFb%<v%J_%=-1 14844IFb%>v%J_%=1 14845IFJ_%=0THEN 14846mJ%=Sl%<>iy%:IFSl%<iy%THENJ_%=-1 14847IFSl%>iy%THENJ_%=1 14848ENDIF:v%=b%:iy%=Sl%:PROCdy:IFb%<>0THENPROCVJ(b%,Sl%) 14849ENDPROC 14850DEFPROCyyLOCALSy%,Y%:Z$(`J%-1,0)=FNM(__%,3):Z$(`J%-1,1)=FNM(__%,4):Sy%=(k%-2*24-68-2*&c)/P_%:Y%=m%+24+68+Sy%*(`J%-1):PROCN(i%,my%+&C,-Y%,`y%-&C,-Y%-Sy%):vy%=TRUE:IFNOTFNDyTHENSYS&400D4,,-1:`J%=0 14851ENDPROC 14852DEFPROCaLOCALA%:FORA%=9TO23:PROCA(Cy%,A%,""):NEXT:C$="":dy%=-1:PROCR(Cy%,25,1):ENDPROC 14853DEFPROC_y:LOCALey%:PROCJ_:ey%=FNq(C$)-64:M%(ey%)-=1:C$="":dy%=-1:IFM%(ey%)=0THENF%(ey%)=-1 14854PROCN(i%,wy%+u%-40,-m%-Y_%*ey%,wy%+u%,-m%-Y_%*(ey%+1)):PROCN(i%,my%,-m%-Y_%*ey%,my%+40,-m%-Y_%*(ey%+1)):vy%=TRUE:ENDPROC 14855DEFPROCJ_:LOCALB%,L%,A%:B%=h_%:L%=FNq(C$)-64:B%=F%(L%):A%=YJ%:WHILEA%>0:B%=B%!4:A%-=1:ENDWHILE:IFYJ%=0THENF%(L%)=B%!4 14856IFB%!4<>-1THEN!(B%!4)=!B% 14857IF!B%=-1THENh_%=B%!4ELSE!(!B%+4)=B%!4 14858PROCLy(s_%,B%,TRUE):ENDPROC 14859DEFPROCy(ea%):LOCALO%,L%,R$:FORL%=9TO23:IFFNM(Cy%,L%)<>""THENO%=TRUE 14860NEXT:IFO%THEN 14861R$=FNs(FNM(Cy%,9)+" "+FNM(Cy%,&A)):L%=FNq(R$)-64:M%(L%)+=1:IFC$=""THENO%=L%ELSEO%=FNq(C$)-64:M%(O%)-=1 14862IFdy%<0THENPROCL_ELSEPROCJ_:PROCL_ 14863C$="":dy%=-1:IFNOTea%THEN 14864IFM%(L%)=1THENPROCN(i%,wy%+u%-40,-m%-Y_%*L%,wy%+u%,-m%-Y_%*(L%+1)) 14865ELSEPROCPu(R$) 14866ENDIF:vy%=TRUE 14867ENDIF:ENDPROC 14868DEFPROCPu(A$):LOCALB%,A%,P%:P%=FNq(A$)-64:B%=F%(P%):WHILEFNs(FNK(B%,0)+" "+FNK(B%,1))<>R$:B%=B%!4:A%+=1:ENDWHILE:PROCQ(P%,A%-A%MOD(2*Xy%)):ENDPROC 14869DEFPROCL_:LOCALA%,B%,C%,S%:S%=&C:FORA%=9TO23:S%+=LENFNM(Cy%,A%)+1:NEXT:C%=FNw(s_%,S%,TRUE):B%=h_%:C%!8=S%:S%=C%+&C:FORA%=9TO23:$(S%)=FNM(Cy%,A%)+CHR$&A:S%+=LEN($S%):NEXT:A%=FNq(FNs(FNM(Cy%,9)+" "+FNM(Cy%,&A)))-64:IFF%(A%)=-1THENF%(A%)=C%:A%-=1 14870IFB%<>-1THEN 14871WHILEF%(A%)=-1ANDA%>1:A%-=1:ENDWHILE:IFF%(A%)<>-1THENB%=F%(A%) 14872WHILEFNs(FNK(B%,0)+" "+FNK(B%,1))<R$ANDB%!4<>-1:B%=B%!4:ENDWHILE:IFFNs(FNK(B%,0)+" "+FNK(B%,1))>=R$THEN 14873IFF%(A%)=B%THENF%(A%)=C% 14874!C%=!B%:C%!4=B%:!B%=C%:IF!C%<>-1THEN!(!C%+4)=C%ELSEh_%=C% 14875ELSE:B%!4=C%:!C%=B%:C%!4=-1 14876ENDIF 14877ELSEh_%=C%:!C%=-1:C%!4=-1:F%(A%)=C% 14878ENDIF:ENDPROC 14879DEFFNq(A$):LOCALB%:B%=ASC(FNs(A$)):IFB%<65THENB%=65 14880=B% 14881DEFFNs(A$):LOCALB%:A$=FNv(A$):B%=ASCLEFT$(A$,1):WHILENOT(B%>47ANDB%<58)ANDNOT(B%>64ANDB%<91)ANDA$<>"":A$=MID$(A$,2):B%=ASCLEFT$(A$,1):ENDWHILE:=A$ 14882DEFPROCty(p%,b%):LOCALA%:ey%=u%-40:b%!8=!b%+ey%:b%!48=b%!40+ey%:b%+=88+8:FORA%=&BTO17:b%!(A%*32)=ey%-16:NEXT:FORA%=8TO23:A%-=7*(A%=&B):b%!(A%*32)=ey%:NEXT:b%!(24*32-8)=(ey%-384)/4:b%!(24*32)=b%!(24*32-8)+&80 14883b%!(25*32-8)=b%!(24*32)+(ey%-384)/4:b%!(25*32)=b%!(25*32-8)+&80:b%!(26*32-8)=b%!(25*32)+(ey%-384)/4:b%!(26*32)=b%!(26*32-8)+&80:ENDPROC 14884DEFPROCt_:LOCALA%,B%,C%,S%,w%,L%:FORA%=0TO26:M%(A%)=0:F%(A%)=-1:NEXT:M%(0)=1:C%=-1:h_%=-1:P_%=16:w%=OPENIN(x$):IFNOTFu%ANDw%<>0THEN 14885WHILENOTEOF#w%:S%=VALGET$#w%:B%=FNw(s_%,S%,TRUE):IFC%<>-1THENC%!4=B%ELSEh_%=B% 14886!B%=C%:B%!8=S%:SYS&C,4,w%,B%+&C,S%-&C:L%=FNq(FNK(B%,0)+" "+FNK(B%,1))-64:M%(L%)+=1:IFF%(L%)=-1THENF%(L%)=B% 14887C%=B%:IFx_%THENPROCw(NOT1) 14888ENDWHILE:IFh_%<>-1THENB%!4=-1 14889ENDIF:CLOSE#w%:w%=OPENINf$:IFNOTFu%ANDw%<>0THEN 14890P_%=VALGET$#w%:FORB%=0TOP_%-1:Z$(B%,0)=GET$#w%:Z$(B%,1)=GET$#w%:NEXT 14891ENDIF:CLOSE#w%:w%=0:ENDPROC 14892DEFPROCDJ:LOCALw%,B%,S%,A%:w%=OPENOUTx$:B%=h_%:WHILEB%<>-1:BPUT#w%,STR$B%!8:SYS&C,2,w%,B%+&C,B%!8 -&C:B%=B%!4:ENDWHILE:CLOSE#w%:w%=OPENOUTf$:BPUT#w%,STR$P_%:FORA%=0TOP_%-1:BPUT#w%,Z$(A%,0)+CHR$&A+Z$(A%,1):NEXT:CLOSE#w%:w%=0:ENDPROC 14893DEFPROCVJ(ey%,Pa%):IFey%>0THEN 14894LOCALA%,B%,C%,F%:B%=F%(ey%):WHILEPa%>0:B%=B%!4:Pa%-=1:ENDWHILE:REPEATFORC%=0TO&E:A$(A%,C%)=FNK(B%,C%):NEXT:A%+=1:F%=(A%>Xy%*2-1)ORB%!4=-1:B%=B%!4:IFNOTF%THENF%=(FNq(FNK(B%,0)+" "+FNK(B%,1))-64<>ey%) 14895UNTILF% 14896ENDIF:ENDPROC 14897DEFFNK(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$ 14898DEFPROCRJ(S$):LOCALe$,A%,B%,S%,I%,na%,ua%,Ka%,`l%:Cu%=0:jJ%=0:w%=OPENINS$:WHILENOTEOF#w%:e$=GET$#w%:IFe$<>""THENA%=FNuy(e$):Cu%+=1:IFA%>jJ%THENjJ%=A% 14899ENDWHILE:CLOSE#w%:w%=0:IFjJ%>0THEN 14900SYS&400D9,,P$+".Resources."+B$+".Templates":SYS&400DB,,,0,0,0,"Import"TO,Ka%,`l%:SYS30,6,,,Ka%TO,,dl%;na%:SYS30,6,,,`l%TO,,jl%;ua%:SYS&400DB,,dl%,jl%,jl%+`l%,vl%,"Import",0:SYS&400C1,,dl%TOGy%:SYS&400DA:J$=S$ 14901B%=1:FORA%=&ATO52STEP3:PROCA(Gy%,A%,STR$B%):IFB%>0THENB%+=1:IFB%>jJ%THENB%=0 14902NEXT:PROCA(Gy%,54,FNA("Import1")):PROCA(Gy%,55,FNA("Import1")):PROCM(Gy%,70,1):PROCZ(Gy%,69,0):PROC_(S$,1) 14903ELSEJ$="":PROCB(FNA("ErrCSV")) 14904ENDIF:ENDPROC 14905DEFPROCi:Cu%=0:jJ%=0:IFJ$<>""THENOSCLI"Remove "+J$:J$="" 14906IFGy%<>-1THEN 14907!K%=Gy%:Gy%=-1:SYS&400C3,,K%:SYS30,7,,dl%:SYS30,7,,jl% 14908ENDIF:ENDPROC 14909DEFPROC_(S$,xl%):LOCALA%,B%,C%,S%,g$,u_%:g$=FNN_(S$,xl%):C$="":dy%=-1:PROCR(Cy%,25,1):FORA%=9TO23:B%=&A+(A%-9)*3:u_%=VALFNM(Gy%,B%):S%=0:IFB%<ÐENS%=FNMy(Zl%,FNM(Gy%,55+(B%=&A))) 14910IFB%>&FANDB%<35ANDFNM(Gy%,B%)=FNM(Gy%,16)ANDFNZ(Gy%,69)THEN 14911S%=256:C%=16:WHILEC%<B%:IFFNM(Gy%,C%)=FNM(Gy%,16)THENS%+=1 14912C%+=3:ENDWHILE 14913ENDIF:IFu_%>0THEN 14914PROCA(Cy%,A%,FNF_(g$,u_%,S%)) 14915ELSEPROCA(Cy%,A%,"") 14916ENDIF:NEXT:PROCA(Gy%,59,STR$xl%):IFNOTIy%THENPROCz(i%,-1,-1) 14917K_%=t%:w_%=v%:t%=FNG(2):PROCQ(0,0):IFK_%<>t%ORw_%<>v%THENJ_%=0:PROCK 14918PROCz(Gy%,-1,0):ENDPROC 14919DEFFNN_(S$,xl%):LOCALA$:w%=OPENINS$:WHILExl%>0:A$=GET$#w%:IFA$<>""THENxl%-=1 14920ENDWHILE:CLOSE#w%:w%=0:=A$ 14921DEFFNF_(A$,u_%,Ua%):LOCALCJ%,B%,Z$,NJ%:WHILEu_%>1ANDA$<>"":IFASCA$=34THENCJ%=NOTCJ% 14922IFASCA$=44ANDNOTCJ%THENu_%-=1 14923A$=MID$(A$,2):ENDWHILE:IFASCA$=34THENCJ%=TRUE:A$=MID$(A$,2) 14924WHILENOTNJ%:IFASCA$=34ORA$=""THENCJ%=FALSE:NJ%=TRUE 14925IFASCA$=44ANDNOTCJ%THENNJ%=TRUE 14926IFNOTNJ%THENZ$+=LEFT$(A$,1):A$=MID$(A$,2) 14927ENDWHILE:CASEUa%OF 14928WHEN0 14929WHEN1:Z$=LEFT$(Z$,INSTR(Z$," ")-1) 14930WHEN2:Z$=MID$(Z$,INSTR(Z$," ")+1) 14931WHEN3:IFINSTR(Z$," ")>0THEN 14932B%=LENZ$:REPEATB%-=1:UNTILMID$(Z$,B%,1)=" ":Z$=LEFT$(Z$,B%-1) 14933ELSEZ$="" 14934ENDIF 14935WHEN4:WHILEINSTR(Z$," "):Z$=MID$(Z$,INSTR(Z$," ")+1):ENDWHILE 14936OTHERWISE:B%=Ua%ANDNOT256:A$=FNM(Gy%,70):WHILEB%>0:IFINSTR(Z$,A$)THENZ$=MID$(Z$,INSTR(Z$,A$)+LENA$)ELSEZ$="" 14937B%-=1:ENDWHILE:IFINSTR(Z$,A$)THENZ$=LEFT$(Z$,INSTR(Z$,A$)-1) 14938ENDCASE:=Z$ 14939DEFFNuy(A$):LOCALGi%,CJ%:WHILEA$<>"":IFASCA$=34THENCJ%=NOTCJ% 14940IFASCA$=44ANDNOTCJ%THENGi%+=1 14941A$=MID$(A$,2):ENDWHILE:=Gi%-(Gi%>0) 14942DEFPROCi_(q%,s%,g%,Yy%,ry%):LOCALA%,B%:CASETRUEOF 14943WHENs%=58ORs%=60:A%=VALFNM(q%,59)-(s%-59)*(1+2*(g%=1)):IFA%>0ANDA%<=Cu%THENPROCA(q%,59,STR$A%):PROC_(J$,A%) 14944WHENs%>=9ANDs%<=53:B%=&A+3*((s%-9)DIV3):A%=VALFNM(q%,B%)+(s%-B%)*(1+2*(g%=1)):IFA%>=0ANDA%<=jJ%THEN 14945PROCA(q%,B%,STR$A%):PROC_(J$,VALFNM(q%,59)) 14946ENDIF 14947WHENs%=54ORs%=55:PROCF(Zl%,Yy%,ry%,q%,s%) 14948WHENs%=66:PROCy(FALSE):A%=VALFNM(Gy%,59)+1:IFA%>0ANDA%<=Cu%THENPROCA(Gy%,59,STR$A%):PROC_(J$,A%) 14949WHENs%=67:REPEAT:PROCy(FALSE):A%=VALFNM(Gy%,59)+1:IFA%>0ANDA%<=Cu%THENPROCA(Gy%,59,STR$A%):PROC_(J$,A%) 14950UNTILA%>Cu% 14951WHENs%=68:PROCi 14952WHENs%=69:PROCM(q%,70,ABSNOTFNZ(q%,69)):PROC_(J$,VALFNM(Gy%,59)) 14953ENDCASE:ENDPROC 14954DEFPROCWJ(s%,I%):PROCA(Gy%,s%,FNJ(Zl%,I%)):PROC_(J$,VALFNM(Gy%,59)):ENDPROC 14955DEFPROCb_(b%,Mi%,a%,Q%,x%,n%):!J%=i%:IFL%(b%,Mi%-&D)<>-1THENJ%!4=L%(b%,Mi%-&D):SYS&400C4,,J% 14956SYS&400CB,,J%:Q%-=8:n%-=8:J%!4=a%-J%!4:J%!8=Q%-J%!16-n%:J%!&C=J%!4+x%:J%!16=J%!8+n%:J%!20=&7003119:J%!24=sl%:J%!28=Ai%:J%!32=0:SYS&400C2,,J%TOL%(b%,Mi%-&D):ENDPROC 14957DEFPROCdy:LOCALb%,Wy%:!J%=i%:FORb%=0TO&A:FORWy%=0TO1:IFL%(b%,Wy%)<>-1THENJ%!4=L%(b%,Wy%):SYS&400C4,,J% 14958NEXT,:L%()=-1:ENDPROC 14959DEFPROCp_(s%):LOCALb%,Wy%,Oa%,Ti%,A$:FORb%=0TO&A:FORWy%=0TO1:IFL%(b%,Wy%)=s%THENOa%=b%:Ti%=Wy% 14960NEXT,:IFTi%=0THENA$=X$:uJ%=2ELSEA$=U$:uJ%=1 14961PROCGy(A$+A$(Oa%,Ti%+&D)):ENDPROC 14962DEFPROCGy(o$):!J%=256:J%!4=vu%:J%!16=&4AF80:$(J%+20)=o$+CHR$0:SYS&400E7,18,J%,0:ENDPROC 14963DEFPROCSu:DIMC%(&C),Q%(&C):Ly%=3:SJ%=&B:t_%=-1:C%()=-1:d$=Y$+"Anni":Fi%=0:BJ%=-1:HJ%=-1:uu%=TRUE:ll%=FNC("ANM","ANM",1,4):ENDPROC 14964DEFFNRy=ll% 14965DEFPROCDu(A%):B%(A%)=1:W%(A%)=&C:S%(A%)=1:M$(A%)=FNA("AnnTab"):PROC__:ENDPROC 14966DEFPROCoJ(v%,y%,_%,U%):LOCALPy%,Q%,r%:Py%=(k%-Ly%*20-20)/Ly%:Q%=0:FORr%=v%+Ly%*ABSy%TOv%+Ly%*ABSy%+Ly%-1:Q%+=20+Py%:PROCFu(r%,_%+20,U%-Q%+Py%,u%-40,Py%):NEXT:IFy%=0ANDv%>1THENPROCI(y%,_%,U%) 14967IFy%ANDr%<&CTHENPROCI(y%,_%,U%) 14968ENDPROC 14969DEFPROCQJ(l%,cl%):CASE!l%OF 14970WHEN0:IFHJ%<>-1THENPROCo(HJ%,-1) 14971WHEN1:IFHJ%<>-1THENPROCo(HJ%,0) 14972WHEN2:IFHJ%<>-1THENPROCHy(HJ%) 14973WHEN3:PROCKy("X�s %n%t birthday",Dy%,Ra%,My%,0,0) 14974ENDCASE:ENDPROC 14975DEFPROCVy(p%):v%+=p%*2*Ly%:IFv%+2*Ly%>&DTHENv%-=2*Ly% 14976IFv%<1THENv%=1 14977ENDPROC 14978DEFPROCy_(g%,y%,a%,Q%,i_%,qJ%):LOCALPy%,r%:Py%=(k%-20)/Ly%:r%=-Q%DIVPy%+1:Q%+=(r%-1)*Py%+20:IFQ%>0ORr%>Ly%ORa%<20ORa%>u%-40THENr%=0 14979IFy%THENi_%=wy%+20ELSEi_%=my%+20 14980qJ%=-m%-20-Py%*(r%-1):IFr%<>0THENPROC`u(r%+Ly%*ABSy%+v%-1,g%,a%-20,Q%,i_%,qJ%,u%-40,-Py%+20) 14981ENDPROC 14982DEFFNmy(s%,By%):o%=TRUE:CASEBy%OF 14983WHEN414:PROCVy(1) 14984WHEN415:PROCVy(-1) 14985OTHERWISEo%=FALSE 14986ENDCASE:=o% 14987DEFFNB_(q%,s%,By%):o%=FALSE:IFq%=_y%THEN 14988o%=TRUE:CASEBy%OF 14989WHEN394,398,399:PROCC(_y%,6-s%) 14990WHEN4,24:IFt_%<>-1THENPROCHy(t_%) 14991WHEN27:PROCt 14992WHEN&D:IFs%=2THEN 14993IFFNNy(FNM(_y%,2),d%,z%,e%)THENPROCC(_y%,4) 14994ELSEPROCZ_ 14995ENDIF 14996OTHERWISEo%=FALSE 14997ENDCASE 14998ENDIF:=o% 14999DEFPROCO_:LOCALB%:w%=OPENOUTd$:B%=BJ%:WHILEB%<>-1:BPUT#w%,STR$B%!8:SYS&C,2,w%,B%+&C,B%!8 -&C:B%=B%!4:ENDWHILE:CLOSE#w%:w%=0:ENDPROC 15000DEFPROCwJ(w%):BPUT#w%,SJ%:BPUT#w%,Ly%:PROCJ(uu%):ENDPROC 15001DEFPROCJu(w%):SJ%=BGET#w%:Ly%=BGET#w%:uu%=FNQ:ENDPROC 15002DEFPROCqJ(x%,Fy%,l%,a%,Q%):CASEFy%OF 15003WHEN1:PROCW(Ay%,0,-1):PROCS(Ay%,FN_(x%,Fy%),1):PROCF(Ay%,a%,Q%,x%,Fy%) 15004WHEN2,3,4,5:IFg%<>2THENPROCZ(x%,Fy%,1) 15005ENDCASE:ENDPROC 15006DEFPROCSJ(Zy%,fa%):PROCD(fa%,1,!Zy%):PROCW(Ay%,0,-1):PROCS(Ay%,!Zy%,1):ENDPROC 15007DEFPROCtJ(x%):LOCALA%:PROCD(x%,1,SJ%):FORA%=2TO5:PROCZ(x%,A%,0):NEXT:IFLy%<5THENPROCZ(x%,Ly%+1,1)ELSEPROCZ(x%,5,1) 15008PROCZ(x%,6,-uu%):ENDPROC 15009DEFPROCWu(x%):LOCALA%,B%:B%=Ly%:SJ%=FN_(x%,1):A%=2:WHILEA%<5ANDNOTFNZ(x%,A%):A%+=1:ENDWHILE:IFA%<5THENLy%=A%-1ELSELy%=6 15010IFB%<>Ly%THENQ%()=0 15011IFS%(FNG(5))+2*Ly%>&DTHEN 15012IFZ%(t%)=5THENv%=&D-2*Ly%ELSES%(FNG(5))=&D-2*Ly% 15013ENDIF:uu%=FNZ(x%,6):ENDPROC 15014DEFPROCFu(r%,_%,U%,x%,n%):LOCALrJ%,B%,Qy%,A%,Q%:B%=C%(r%):Qy%=28:IFFNF(_%,U%,x%,-n%)THEN 15015rJ%=FNP("Homerton.Bold",&C,&C):p_%=FNP("Homerton.Medium",&A,&A):PROCV(0,7):IFr%=fy%THENSYS&400E6,!FJ%ELSESYS&400E6,5 15016PROCCy(_%,U%,x%,n%,20):PROCL(rJ%,FNX(r%,-1),0,_%+x%/2,U%-&A):Q%=40:A%=Q%(r%):WHILEA%>0:B%=B%!4:A%-=1:ENDWHILE:WHILEB%<>-1ANDQ%+Qy%-5<=n%:IFFNF(_%+20,U%-Q%-25,x%-50,Qy%)THEN 15017PROCc(p_%,FNSy(B%,My%-(r%<fy%OR(r%=fy%ANDB%?&C<Dy%))),_%+70,U%-Q%-20,x%-70,Qy%):PROCL(p_%,STR$(B%?&C),1,_%+60,U%-Q%-4) 15018ENDIF:Q%+=Qy%:B%=FNp(B%,r%):ENDWHILE:IFB%<>-1THENMOVE_%+8,U%-n%+20:MOVEBY18,0:PLOT81,-9,-18 15019IFQ%(r%)<>0THENMOVE_%+8,U%-60:MOVEBY18,0:PLOT81,-9,18 15020PROCU(rJ%):PROCU(p_%) 15021ENDIF:ENDPROC 15022DEFPROC`u(r%,g%,a%,Q%,_%,U%,x%,n%):LOCALL%,A%,B%,C%,N%,Qy%,A$:Qy%=28:C%=(-Q%-70+2*Qy%)DIVQy%+Q%(r%):N%=-((n%+40)DIVQy%):A%=0:B%=C%(r%):WHILEB%<>-1:A%+=1:B%=FNp(B%,r%):ENDWHILE:FORL%=0TO2:PROCT(ll%,L%,1):NEXT:HJ%=-1:Ra%=r%:CASETRUEOF 15023WHENa%>35ANDQ%<-40ANDa%<x%ANDC%>0ANDC%<=A%:B%=C%(r%):WHILEC%>1:C%-=1:B%=FNp(B%,r%):ENDWHILE:IFg%=2THEN 15024FORL%=0TO2:PROCT(ll%,L%,0):NEXT:HJ%=B% 15025ELSEPROCo(B%,g%=4) 15026ENDIF 15027WHENg%=2 15028WHENa%>0ANDa%<30ANDQ%-20<n%:IFQ%(r%)<A%-N%THENQ%(r%)+=1:PROCN(i%,_%,U%,_%+x%,U%+n%) 15029WHENa%>0ANDa%<30ANDQ%>-60ANDQ%<=-42:IFQ%(r%)>0THENQ%(r%)-=1:PROCN(i%,_%,U%,_%+x%,U%+n%) 15030OTHERWISEIFg%<>2THENPROCKy("X�s %n%t birthday",Dy%,r%,My%,0,0) 15031ENDCASE:ENDPROC 15032DEFPROCx_(d%,z%,N%,g%):LOCALB%:B%=-1:WHILEN%>0:B%=FNk(d%,z%,B%):N%-=1:ENDWHILE:PROCo(B%,g%=4):ENDPROC 15033DEFPROCo(B%,hy%):LOCALA%,A$:IFhy%THENt_%=B%ELSEt_%=-1 15034A%=B%+16:WHILE?A%<>&B:A$+=CHR$?A%:A%+=1:ENDWHILE:PROCKy(A$,B%?&C,(B%!&C>>8)AND&F,(B%!&C>>&C)AND&FFF,B%?&F,hy%):ENDPROC 15035DEFPROCKy(W$,c%,r%,Q%,u_%,hy%):PROCA(_y%,4,W$):PROCA(_y%,2,STR$c%+"/"+STR$r%+"/"+STR$Q%):Zi%=u_%:IFu_%=0THENu_%=SJ% 15036PROCD(_y%,4,u_%):PROCR(_y%,&D,(hy%=0)):IFhy%=0THENA$=FNA("anset")ELSEA$=FNA("anedit") 15037PROCX(_y%):PROCr(_y%,TRUE,TRUE):PROCC(_y%,2):VJ%=TRUE:PROCf(_y%,_a%,A$,0):ENDPROC 15038DEFFNp(B%,z%):LOCALA%,C%,c%,r%,Q%:B%=B%!4:IF((B%!&C>>8)AND&F)<>z%THENB%=-1 15039=B% 15040DEFFNSy(B%,My%):LOCALA%,C%,c%,Q%,A$:Q%=(B%!&C>>&C)AND&FFF:IFQ%<=My%THEN 15041C%=B%?&F:C%-=SJ%*(C%=0):PROCV(0,C%):A%=B%+16:WHILE?A%<>&B:IF?A%=37THENA%+=1:A$+=FNW_(?A%,Q%,My%)ELSEA$+=CHR$?A% 15042A%+=1:ENDWHILE 15043ENDIF:=A$ 15044DEFPROCrJ(s%,Yy%,ry%):LOCALc%,r%,Q%:CASEs%OF 15045WHEN5:PROCF(Xl%,Yy%,ry%,q%,s%) 15046WHEN&B:PROCZ_ 15047WHEN&C:PROCt 15048WHEN&D:PROCHy(t_%) 15049ENDCASE:ENDPROC 15050DEFPROCZ_:LOCALA$,d%,z%,e%:A$=FNM(_y%,4):IFA$<>""THEN 15051IFFNNy(FNM(_y%,2),d%,z%,e%)THEN 15052IFt_%<>-1THENPROCuy(t_%) 15053PROCLJ(A$,d%,z%,e%,Zi%):Q%()=0:PROCt:vy%=TRUE:IFIy%AND(Z%(t%)=5ORZ%(t%)=3)THENPROCK 15054ELSEPROCC(_y%,2) 15055ENDIF 15056ELSEPROCB(FNA("ErrMes")) 15057ENDIF:ENDPROC 15058DEFPROCt:t_%=-1:PROCX(_y%):PROCX(sy%):IFIy%THENPROCC(i%,-1) 15059ENDPROC 15060DEFFNNy(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 15061WHENr%<1ORr%>&C:PROCB(FNA("ErrMonth")) 15062WHENQ%<1ORQ%>&FFF:PROCB(FNO("ErrYear","1","4095","","")) 15063WHENc%<1:PROCB(FNA("ErrDateZ")) 15064WHENc%>FND(r%,Q%):PROCB(FNO("ErrDate",STR$FND(r%,Q%),FNX(r%,-1)+STRING$(-(r%=2)," "+STR$Q%),"","")) 15065OTHERWISEA%=TRUE 15066ENDCASE:=A% 15067DEFPROCLJ(y$,d%,z%,e%,u_%):LOCALny%,Ny%,S%,B%,xy%,T%,F_%:F_%=d%+(z%<<8)+(e%<<&C)+(u_%<<24):xy%=FALSE:S%=LENy$+1+16:Ny%=BJ%:ny%=-1:WHILENy%<>-1ANDNOTxy%:IFFNKy(d%,z%,Ny%!&C)THENxy%=TRUEELSEny%=Ny%:Ny%=Ny%!4 15068ENDWHILE:B%=FNw(s_%,S%,TRUE):!B%=ny%:B%!4=Ny%:B%!8=S%:B%!&C=F_%:$(B%+16)=y$+CHR$&B:IFny%=-1THENBJ%=B%ELSEny%!4=B% 15069IFNy%<>-1THEN!Ny%=B% 15070IFC%(z%)=Ny%ORC%(z%)=-1THENC%(z%)=B% 15071ENDPROC 15072DEFPROCHy(B%):PROCuy(B%):PROCt:vy%=TRUE:IFB%=t_%THENt_%=-1 15073IFIy%AND(Z%(t%)=5ORZ%(t%)=3)THENPROCK 15074ENDPROC 15075DEFPROCuy(B%):LOCALny%,Ny%,r%,Qi%:Qi%=-1:ny%=!B%:Ny%=B%!4:r%=(B%!&C>>8)AND&F:Q%(r%)=0:IFny%<>-1THENny%!4=Ny% 15076IFNy%<>-1THEN!Ny%=ny%:IF((Ny%!&C>>8)AND&F)=r%THENQi%=Ny% 15077IFBJ%=B%THENBJ%=Ny% 15078IFC%(r%)=B%THENC%(r%)=Qi% 15079PROCLy(s_%,B%,TRUE):ENDPROC 15080DEFFNKy(c%,r%,T%):LOCAL`%,Tl%,xu%:Tl%=T%AND&FF:xu%=(T%>>8)AND&F:IFr%>=xu%THEN 15081IFc%<Tl%ANDxu%=r%THEN`%=TRUEELSE`%=FALSE 15082ELSE`%=TRUE 15083ENDIF:=`% 15084DEFPROCsJ:LOCALB%,xy%,tJ%,c%,r%,Ml%,fJ%,oy%,d%,z%,e%:PROCG(_J%,c%,r%,Ml%,fJ%,oy%):B%=C%(fJ%):d%=FNT:z%=FNI:e%=FNR:WHILEB%<>-1ANDNOTxy%ANDNOTtJ%:c%=B%?&C:r%=(B%!&C>>8)AND&F:IFr%>z%OR(r%=z%ANDc%>d%)THENtJ%=TRUE:PROCZy 15085IF(r%>fJ%OR(r%=fJ%ANDc%>Ml%))ANDNOTtJ%THENxy%=TRUE:PROChy(B%)ELSEB%=B%!4 15086ENDWHILE:IFNOTxy%THENPROCZy 15087ENDPROC 15088DEFPROCX_:LOCALB%,c%,r%,d%,z%,e%:d%=FNT:z%=FNI:e%=FNR:B%=Fi%!4:W_%=0:IFB%<>-1THEN 15089c%=B%?&C:r%=(B%!&C>>8)AND&F:IFr%>z%OR(r%=z%ANDc%>d%)THENPROCZyELSEPROChy(B%) 15090ELSEPROCZy 15091ENDIF:ENDPROC 15092DEFPROCZy:Bu%=FALSE:_J%=FNx(FNY):PROCX(GJ%):PROCx:ENDPROC 15093DEFPROChy(B%):LOCALc%:PROCA(GJ%,1,FNO("its",FNU(d%,z%,e%,-1),"","","")):PROCA(GJ%,2,FNSy(B%,e%)):c%=B%?&F:c%-=SJ%*(c%=0):PROCD(GJ%,2,c%):PROCz(GJ%,TRUE,TRUE):vy%=-1:Fi%=B%:IFuu%THENW_%=&A 15094ENDPROC 15095DEFFNn(c%,r%):LOCALB%,C%,Tl%,xu%:B%=C%(r%):IFB%<>-1THEN 15096REPEAT:IFB%?&C=c%THENC%+=1 15097B%=B%!4:IFB%<>-1THENTl%=B%?&C:xu%=(B%!&C>>8)AND&FELSExu%=&D 15098UNTILTl%>c%ORxu%>r% 15099ENDIF:=C% 15100DEFFNk(c%,r%,B%):IFB%=-1THEN 15101B%=C%(r%):WHILEB%?&C<>c%:B%=B%!4:ENDWHILE 15102ELSEB%=B%!4 15103ENDIF:IFB%<>-1THENIFB%?&C>c%OR((B%!&C>>8)AND&F)>r%THENB%=-1 15104=B% 15105DEFPROC__:LOCALS%,C%,B%,r%:C%=-1:BJ%=-1:w%=OPENINd$:IFNOTFu%ANDw%<>0THEN 15106WHILENOTEOF#w%:S%=VALGET$#w%:B%=FNw(s_%,S%,TRUE):IFC%<>-1THENC%!4=B%ELSEBJ%=B% 15107!B%=C%:B%!8=S%:SYS&C,4,w%,B%+&C,S%-&C:r%=((B%!&C)>>8)AND&F:IFC%(r%)=-1THENC%(r%)=B% 15108C%=B%:IFx_%THENPROCw(NOT1) 15109ENDWHILE:IFBJ%<>-1THENB%!4=-1 15110ENDIF:CLOSE#w%:w%=0:ENDPROC 15111DEFFNW_(T%,Q%,My%):LOCALA$,d,c%,F%,L%:Yl%=(T%AND32)=0:c%=My%-Q%:CASECHR$T%OF 15112WHEN"y","Y":A$=FNA("year"+STRING$(-(c%>1),"s")):IFYl%THENA$=FNv(A$) 15113WHEN"n":A$=STR$c% 15114WHEN"t","T":A$=FNLy(c%):IFYl%THENA$=FNv(A$) 15115WHEN"c","C":SYS&61502,C_%,"Ann"+STR$c%,J%,256TO,,,L%;F%:IF(F%AND1)=0THENJ%?L%=&D:A$=" ("+$J%+")" 15116IFYl%THENA$=FNv(A$) 15117ENDCASE:=A$ 15118DEFPROCnJ:S_%=2:n_%=&F:Ou%=FALSE:Wa%=FNC("FAM","FAM",1,4):wi%=FNC("DIM4","ANM",1,3):e_%=FNC("DIM","DIM",1,6):PROCY(e_%,3,wi%):PROCY(e_%,5,Wa%):PROCg_(e_%,2,-1):aJ%=FNC("E","E",1,6):yl%=FNC("OT","OT",1,6):bl%=FNC("Day","Day",1,7):rl%=FNC("OE","OE",1,&C) 15119Xl%=FNPy(FNA("Col")):$(Xl%+28+&C)=FNA("Def"):r$=Y$+"Diary":DIMV%(&E):O_%=-1:LJ%=-1:pJ%=0:z$="":pu%=FNC("EN","EN",1,3):Yu%=FNC("EA","E",3,6):D_%=0:Du%=0:ly%=0:Z_%=-1:R_%=6:PROCMl:ENDPROC 15120DEFFNJ_=e_% 15121DEFPROCd_(A%):PROCz_:PROCOJ:PROCH(FNT,FNI,FNR):PROCS(e_%,S_%-1,TRUE):B%(A%)=FNS(0,0,1,1,&77d):W%(A%)=FNS(0,0,31-6,&C,&fff):M$(A%)=FNA("DiaTab"):ENDPROC 15122DEFPROCkJ:ENDPROC 15123DEFPROCku:LJ%=-1:ENDPROC 15124DEFPROCh_(v%,y%,_%,U%):LOCALd%,z%,e%,rJ%,il%,p_%,y_%,QJ%,bi%:PROCG(v%,y_%,QJ%,d%,z%,e%):rJ%=FNP("Homerton.Bold",&E,&E):SYS&400E6,7:il%=FNP("Trinity.Bold",&C,&C):p_%=FNP("Homerton.Medium",&A,&A):SYS&40081,,"Trinity.Medium",9*16,9*16TObi%:CASES_%OF 15125WHEN1:PROClu(v%,y%,_%,U%) 15126WHEN2:PROCMJ(v%,y%,_%,U%) 15127WHEN3:PROCAl(v%,y%,_%,U%) 15128ENDCASE:PROCV(0,7):IFy%THEN 15129A$=FNX(z%,-1)+" "+STR$e%:CASETRUEOF 15130WHENQJ%<>e%:A$=FNX(y_%,3)+" "+STR$QJ%+" - "+FNX(z%,3)+" "+STR$e% 15131WHENy_%<>z%:A$=FNX(y_%,-1)+" - "+A$ 15132ENDCASE:IFFNB(FNS(0,0,d%,z%,e%),W%(t%))=-1THENPROCI(y%,_%,U%) 15133PROCL(rJ%,A$,1,_%+u%-&A,U%-&A) 15134ELSE:A$=STR$QJ%+" "+FNX(y_%,-1):CASETRUEOF 15135WHENQJ%<>e%:A$=STR$QJ%+" "+FNX(y_%,3)+" - "+STR$e%+" "+FNX(z%,3) 15136WHENy_%<>z%:A$+=" - "+FNX(z%,-1) 15137ENDCASE:PROCL(rJ%,A$,-1,_%+&A,U%-&A):IFFNB(v%,B%(t%))=1THENPROCI(y%,_%,U%) 15138ENDIF:PROCU(rJ%):PROCU(il%):PROCU(p_%):ENDPROC 15139DEFPROC_u(l%,cl%):CASE!l%OF 15140WHEN0,1,2:IFS_%<>!l%+1THEN 15141PROCS(e_%,S_%-1,FALSE):S_%=!l%+1:PROCS(e_%,!l%,TRUE):PROCG(S%(FNG(3)),A%,B%,d%,z%,e%):PROCH(d%,z%,e%):IFZ%(t%)=3THENv%=S%(t%):mJ%=TRUE 15142ENDIF 15143WHEN3:CASEl%!4OF 15144WHEN0:PROCWy(LJ%) 15145WHEN1:PROCI_(LJ%) 15146WHEN2:PROCv(LJ%) 15147ENDCASE 15148WHEN4:PROC`(FNT,FNI,FNR,e_%,0) 15149WHEN5:CASEl%!4OF 15150WHEN0:PROCD_ 15151WHEN1:PROCS_ 15152WHEN2:PROCN_ 15153WHEN3:PROCH_ 15154ENDCASE 15155ENDCASE:ENDPROC 15156DEFPROCA_(Zy%,l%):CASEZy%OF 15157WHENaJ%:A$=FNJ(Zy%,!l%):IFFN`y(Zy%)=FNA("E")THENPROCA(f%,30,A$):nu%=!l%+1ELSEPROCA(Ry%,&D,A$) 15158WHENyl%:PROCA(f%,33,FNJ(Zy%,!l%)):cu%=!l%+1 15159WHENbl%:PROCA(f%,34,FNJ(Zy%,!l%)):ju%=!l%+1 15160WHENrl%:PROCA(f%,35,FNJ(Zy%,!l%)):mu%=!l%+1 15161ENDCASE:ENDPROC 15162DEFPROCQy(p%):LOCALd%,z%,e%,A%,B%:PROCG(v%,A%,B%,d%,z%,e%):CASES_%OF 15163WHEN1:PROCP(d%,z%,e%,p%*&E,0,0) 15164WHEN2:PROCP(d%,z%,e%,p%*7,0,0) 15165WHEN3:PROCP(d%,z%,e%,p%*2,0,0) 15166ENDCASE:J_%=-FNB(v%,FNS(0,0,d%,z%,e%)):PROCH(d%,z%,e%):IFFNB(v%,B%(t%))=-1THENv%=B%(t%) 15167IFFNB(v%,W%(t%))=1THENv%=W%(t%) 15168ENDPROC 15169DEFPROCzu(g%,y%,a%,Q%,i_%,qJ%):LOCALR%:CASES_%OF 15170WHEN1:R%=FNvy(g%,y%,a%,Q%) 15171WHEN2:R%=FNky(g%,y%,a%,Q%) 15172WHEN3:R%=FNQ_(g%,y%,a%,Q%) 15173ENDCASE:IFg%=2ANDR%>1THENLJ%=R%ELSELJ%=-1 15174ENDPROC 15175DEFFNG_(s%,By%):o%=TRUE:CASEBy%OF 15176WHEN389:PROCD_ 15177WHEN390:PROCS_ 15178WHEN391:PROCN_ 15179WHEN392:PROCH_ 15180WHEN414:PROCQy(1) 15181WHEN415:PROCQy(-1) 15182WHEN30:PROCH(FNT,FNI,FNR) 15183WHEN388:PROC`(FNT,FNI,FNR,e_%,0) 15184WHEN27:PROCX(sy%) 15185OTHERWISEo%=FALSE 15186ENDCASE:=o% 15187DEFFNP_(q%,s%,By%):LOCALA%,B%:o%=TRUE:IFq%=f%THEN 15188A%=0:IFBy%=&DORBy%=398ORBy%=394THENA%=1ELSEIFBy%=399THENA%=-1 15189CASEBy%OF 15190WHEN396:IFwJ%=FNzTHENPROCk(q%,s%,-1,16,18) 15191WHEN397:IFwJ%=FNzTHENPROCk(q%,s%,1,16,18) 15192WHEN&D:IFs%=18THENPROCV_:o%=TRUE 15193WHEN27:PROCn 15194WHEN4,24:IFO_%<>-1THENPROCv(O_%) 15195OTHERWISEo%=FALSE 15196ENDCASE 15197ELSEo%=FALSE 15198ENDIF:=o% 15199DEFPROCpJ:LOCALw%,B%:w%=OPENOUTr$:B%=Z_%:WHILEB%<>-1:BPUT#w%,STR$B%!8:SYS&C,2,w%,B%+&C,B%!8 -&C:B%=B%!4:ENDWHILE:CLOSE#w%:w%=0:ENDPROC 15200DEFPROCBu(w%):BPUT#w%,S_%:BPUT#w%,n_%:BPUT#w%,Ou%+5:BPUT#w%,D_%:BPUT#w%,ly%:BPUT#w%,R_%:BPUT#w%,Du%:ENDPROC 15201DEFPROCfJ(w%):S_%=BGET#w%:n_%=BGET#w%:Ou%=(BGET#w%)-5:D_%=BGET#w%:ly%=BGET#w%:R_%=BGET#w%:Du%=FNQ:ENDPROC 15202DEFPROCGu(x%,Fy%,l%,a%,Q%):LOCALA%,B%:CASEs%OF 15203WHEN1,2,3:IFg%<>2PROCZ(x%,Fy%,1) 15204WHEN&D:PROCW(Ay%,0,-1):PROCS(Ay%,FN_(x%,Fy%),1):PROCF(Ay%,a%,Q%,x%,Fy%) 15205WHEN6:B%=NOTFNZ(x%,Fy%):FORA%=7TO&A:PROCM(x%,A%,B%):NEXT 15206WHEN8,9:A%=VALFNM(x%,7):A%+=1+2*(Fy%=8):IFA%>0ANDA%<&DTHENPROCA(x%,7,STR$A%) 15207WHEN&A:PROCF(Yu%,a%,Q%,x%,Fy%) 15208WHEN&B:PROCM(x%,&C,NOTFNZ(x%,Fy%)):PROCM(x%,18,NOTFNZ(x%,Fy%)) 15209WHEN&C:PROCF(pu%,a%,Q%,x%,Fy%) 15210ENDCASE:ENDPROC 15211DEFPROCiJ(l%,x%):CASEbJ%OF 15212WHENAy%:PROCD(x%,&D,!l%):PROCW(Ay%,0,-1):PROCS(Ay%,!l%,1) 15213WHENYu%:PROCA(x%,&A,FNJ(Yu%,!l%)) 15214WHENpu%:PROCA(x%,&C,FNJ(pu%,!l%)):PROCM(x%,18,-(!l%<>0)) 15215ENDCASE:ENDPROC 15216DEFPROCmu(x%):LOCALA%:FORA%=1TO3:PROCZ(x%,A%,ABS(S_%=A%)):NEXT:PROCD(x%,&D,n_%):PROCZ(x%,5,-Ou%):PROCZ(x%,&B,-(D_%<>0)):PROCM(x%,&C,-(D_%=0)):PROCM(x%,18,-(D_%<>1)):PROCZ(x%,18,-Du%):PROCZ(x%,6,-(ly%<>0)):FORA%=7TO&A:PROCM(x%,A%,-(ly%=0)):NEXT:PROCZ(x%,&F,ABS((R_%AND4)>0)):PROCZ(x%,16,ABS((R_%AND2)>0)) 15217PROCZ(x%,17,ABS((R_%AND1)>0)):PROCM(x%,&F,ABS((R_%AND1)>0)):IFly%<>0THEN 15218PROCA(x%,7,STR$(ly%AND&F)):PROCA(x%,&A,FNJ(Yu%,ly%>>4)) 15219ELSEPROCA(x%,7,"1"):PROCA(x%,&A,FNA("E3")) 15220ENDIF:IFD_%=0THENPROCA(x%,&C,FNA("EN1"))ELSEPROCA(x%,&C,FNJ(pu%,D_%-1)) 15221ENDPROC 15222DEFPROCnu(x%):LOCALA%,B%,d%,z%,e%:A%=0:REPEATA%+=1:UNTILFNZ(x%,A%)ORA%=3:S_%=A%:PROCG(S%(FNG(3)),A%,B%,d%,z%,e%):PROCH(d%,z%,e%):n_%=FN_(x%,&D):Ou%=FNZ(x%,5):ly%=0:D_%=0:IFFNZ(x%,6)THENly%=((FNMy(Yu%,FNM(x%,&A)))<<4)+VALFNM(x%,7) 15223IFFNZ(x%,&B)THEND_%=FNMy(pu%,FNM(x%,&C))+1 15224Du%=FNZ(x%,18):R_%=ABS(FNZ(x%,17)+2*FNZ(x%,16)+4*FNZ(x%,&F)):ENDPROC 15225DEFPROCH(d%,z%,e%):LOCALj%,B%,xy%,T%,b%:j%=FNH(d%,z%,e%):IFS_%=3THEN 15226PROCP(d%,z%,e%,FNey(d%,z%,e%)-1,0,0) 15227ELSEPROCP(d%,z%,e%,-j%+1,0,0) 15228ENDIF:b%=FNS(0,0,d%,z%,e%):S%(FNG(3))=b%:IFZ%(t%)=3THENv%=S%(t%) 15229PROCl:ENDPROC 15230DEFPROCl:LOCALB%,T%,xy%:B%=Z_%:gJ%=-1:b%=S%(FNG(3)):V%()=0:WHILEB%<>-1ANDNOTxy%:T%=B%!&C:IFFNB(b%,T%)<>1THENxy%=TRUE:gJ%=B%ELSEB%=B%!4 15231ENDWHILE:ENDPROC 15232DEFFNiy(T%):LOCALB%,F%:B%=Z_%:F%=-1:WHILEB%<>-1ANDF%=-1:IF((B%!16)AND(1<<20))=0OR((B%!16)AND4)=4THENF%=B%ELSEB%=B%!4 15233ENDWHILE:=F% 15234DEFPROCr_(B%):IF(B%!16AND(3<<20))=0THEN 15235LOCALqy%,Vy%,d%,z%,e%,Il%,A$,A%,R%,C%:PROCG(B%!&C,qy%,Vy%,d%,z%,e%):pJ%=B%:IFVy%>&CTHENVy%-=&C:Il%=TRUEELSEIFVy%=0THENVy%=&C 15236A$=STR$Vy%+":"+STRING$(2-LENSTR$qy%,"0")+STR$qy%:IFIl%THENA$+=" pm,"ELSEA$+=" am," 15237PROCA(Ry%,1,FNO("WasSet",A$,"","","")):PROCA(Ry%,2,FNU(d%,z%,e%,-1)):IF((B%!16)AND4)=4THEN 15238R%=TRUE:IF((B%!16)AND8)=8THEN 15239PROCry(qy%,Vy%,d%,z%,e%,((B%!16)>>8)AND&FF,(((B%!16)>>16)AND&F)-1):IFVy%>&CTHENVy%-=&C:Il%=TRUEELSEIFVy%=0THENVy%=&C 15240A$=STR$Vy%+":"+STRING$(2-LENSTR$qy%,"0")+STR$qy%:IFIl%THENA$+=" pm,"ELSEA$+=" am," 15241PROCA(Ry%,&F,FNO("WilRpt",A$,"","","")):PROCA(Ry%,16,FNU(d%,z%,e%,-1)) 15242ELSE:PROCvy(d%,z%,e%,B%!16):A$=STR$Vy%+":"+STRING$(2-LENSTR$qy%,"0")+STR$qy%:IFIl%THENA$+=" pm,"ELSEA$+=" am," 15243PROCA(Ry%,&F,FNO("WilRpt",A$,"","","")):PROCA(Ry%,16,FNU(d%,z%,e%,-1)) 15244ENDIF 15245ENDIF:IF((B%!16)AND1)=1THENW_%=&A 15246C%=(B%!16>>4)AND&F:C%-=n_%*(C%=0):FORA%=4TO6:PROCD(Ry%,A%,C%):NEXT:B%+=20:FORA%=4TO6:A$="":WHILE?B%<>&B:A$+=CHR$?B%:B%+=1:ENDWHILE:B%+=1:PROCA(Ry%,A%,A$):NEXT:PROCZ(Ry%,9,0):FORA%=&ATO&D:PROCM(Ry%,A%,1):NEXT:PROCA(Ry%,&A,"1"):PROCA(Ry%,&D,FNA("E1")):PROChJ(NOTR%,TRUE):vJ%=-1 15247ELSE:IF(B%!16AND(1<<21))<>0THENPROCbu(B%) 15248PROCYy(B%,0) 15249ENDIF:ENDPROC 15250DEFPROCbu(B%):LOCALA$,A%,Z$,fi%,Bl%: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) 15251Z$=FNv(LEFT$(A$,INSTR(A$," "))):IFZ$<>"FILER_RUN"ANDZ$<>"RUN"THEN 15252SYS8,5,A$TOfi%,Bl%:IFfi%=2THENA$="Run "+A$ELSEIFfi%<>0THENA$="Filer_Run "+A$ 15253ENDIF:SYS&400DE,A$:ENDPROC 15254DEFPROCN_:LOCALb%,B%,xy%,A%,C%,d%,z%,e%:b%=S%(FNG(3)):B%=gJ%:PROCG(b%,A%,C%,d%,z%,e%):A%=-&E*(S_%=1)-7*(S_%=2)-2*(S_%=3):PROCP(d%,z%,e%,A%,0,0):b%=FNS(0,0,d%,z%,e%):WHILEB%<>-1ANDNOTxy%:T%=B%!&C:IFFNB(b%,T%)=-1THENxy%=TRUEELSEB%=B%!4 15255ENDWHILE:IFxy%THEN 15256t%=FNG(3):PROCG(B%!&C,A%,C%,d%,z%,e%):PROCH(d%,z%,e%) 15257ELSEPROCB(FNA("ErrNoMore")) 15258ENDIF:ENDPROC 15259DEFPROCS_:LOCALb%,B%,xy%,A%,C%,d%,z%,e%:b%=S%(FNG(3)):B%=gJ%:WHILEB%<>-1ANDNOTxy%:T%=B%!&C:IFFNB(b%,T%)=1THENxy%=TRUEELSEB%=!B% 15260ENDWHILE:IFxy%THEN 15261t%=FNG(3):PROCG(B%!&C,A%,C%,d%,z%,e%):PROCH(d%,z%,e%) 15262ELSEPROCB(FNA("ErrNoB4")) 15263ENDIF:ENDPROC 15264DEFPROCD_:IFZ_%<>-1THEN 15265t%=FNG(3):PROCG(Z_%!&C,A%,C%,d%,z%,e%):PROCH(d%,z%,e%) 15266ELSEPROCB(FNA("ErrNoEnt")) 15267ENDIF:ENDPROC 15268DEFPROCH_:LOCALB%:B%=Z_%:IFB%<>-1THEN 15269WHILEB%!4<>-1:B%=B%!4:ENDWHILE:t%=FNG(3):PROCG(B%!&C,A%,C%,d%,z%,e%):PROCH(d%,z%,e%) 15270ELSEPROCB(FNA("ErrNoEnt")) 15271ENDIF:ENDPROC 15272DEFPROClu(v%,y%,_%,U%):LOCALNu%,Py%,j%:IFy%THENPROCP(d%,z%,e%,7,0,0) 15273Nu%=U%-40:Py%=-(k%-60)/7:QJ%=e%:y_%=z%:FORj%=1TO7:PROCzy(j%+7*ABSy%,d%,j%,z%,e%,y%,_%+&A,Nu%,u%-20,Py%):IFj%<>7THENPROCP(d%,z%,e%,1,0,0):Nu%+=Py% 15274NEXT:ENDPROC 15275DEFFNvy(g%,y%,a%,Q%):LOCALPy%,p%,_%,R%:Py%=(k%-60)/7:Q%=-Q%-40+Py%:p%=((Q%DIVPy%)MOD8):IFp%<>0THENp%+=7*ABSy%:IFa%<&AORa%>u%-20THENp%=0 15276IFy%THEN_%=wy%ELSE_%=my% 15277IFp%<>0THENR%=FNFy(p%,a%-&A,Q%MODPy%,g%,Py%,_%+&A,-m%-40-(p%+7*(p%>7))*Py%+Py%) 15278=R% 15279DEFPROCMJ(v%,y%,_%,U%):LOCALNu%,Py%,tJ%,j%:IFy%THENPROCP(d%,z%,e%,3,0,0):j%=4:tJ%=7ELSEj%=1:tJ%=3 15280Nu%=U%-40:Py%=-(k%-60)/3:QJ%=e%:y_%=z%:FORj%=j%TOtJ%:IFj%=6THENPy%=Py%/2 15281PROCzy(j%,d%,j%,z%,e%,y%,_%+&A,Nu%,u%-20,Py%):IFj%<>tJ%THENPROCP(d%,z%,e%,1,0,0):Nu%+=Py% 15282NEXT:ENDPROC 15283DEFFNky(g%,y%,a%,Q%):LOCALPy%,p%,_%,U%,R%:Py%=(k%-60)/3:Q%=-Q%-40+Py%:p%=((Q%DIVPy%)MOD4):Q%=Q%MODPy%:U%=-m%-40-p%*Py%+Py%:IFp%<>0THENp%+=3*ABSy%:IFa%<&AORa%>u%-20THENp%=0 15284IFp%>=6THENPy%=Py%/2 15285IFp%=6ANDQ%>=Py%THENQ%-=Py%:p%=7:U%-=Py% 15286IFy%THEN_%=wy%ELSE_%=my% 15287IFp%<>0THENR%=FNFy(p%,a%-&A,Q%,g%,Py%,_%+&A,U%) 15288=R% 15289DEFPROCAl(v%,y%,_%,U%):IFy%THENPROCP(d%,z%,e%,1,0,0) 15290QJ%=e%:y_%=z%:PROCzy(ABSNOTy%,d%,FNH(d%,z%,e%),z%,e%,y%,_%+&A,U%-40,u%-20,-k%+60):ENDPROC 15291DEFFNQ_(g%,y%,a%,Q%):LOCALp%,_%,R%:Q%=-Q%-40:p%=1:IFy%THEN_%=wy%ELSE_%=my% 15292IFa%<&AORa%>u%-20ORQ%>k%-60ORQ%<0THENp%=0ELSEp%+=ABSy% 15293IFp%<>0THENR%=FNFy(p%,a%-&A,Q%,g%,k%,_%+&A,-m%-40) 15294=R% 15295DEFPROCzy(p%,d%,j%,z%,e%,y%,_%,U%,x%,n%):LOCALB%,C%,T%,Q%,Qy%,A%,F_%:Qy%=28:F_%=FNS(0,0,d%,z%,e%):IFFNF(_%,U%,x%,n%)THEN 15296PROCV(0,7):IFF_%=FNS(0,0,FNT,FNI,FNR)THEN 15297SYS&400E6,!FJ%:PROCCy(_%-4,U%-4,x%+8,-n%-8,&C):SYS&400E6,7 15298ENDIF:MOVE_%,U%:DRAWBYx%,0:MOVEBY0,n%:DRAWBY-x%,0:IFy%THEN 15299PROCL(il%,STR$d%,-1,_%+x%-30,U%-6):PROCL(p_%,FNt(j%,-1),1,_%+x%-40,U%-6):IFFNF(_%,U%-6,x%-&DC,-24)THENPROCcy(j%,d%,z%,e%,-1,_%,U%-6) 15300ELSE:PROCL(il%,STR$d%,1,_%+30,U%-6):PROCL(p_%,FNt(j%,-1),-1,_%+40,U%-6):IFFNF(_%+&DC,U%-6,x%-&DC,-24)THENPROCcy(j%,d%,z%,e%,1,_%+x%,U%-6) 15301ENDIF:Q%=40:T%=FNn(d%,z%):B%=-1:A%=V%(p%):C%=A%-T%:WHILEA%>0ANDT%>0:B%=FNk(d%,z%,B%):T%-=1:A%-=1:ENDWHILE:WHILET%<>0ANDQ%+Qy%-5<=-n%:B%=FNk(d%,z%,B%):T%-=1:PROCc(p_%,FNSy(B%,e%),_%+30,U%-Q%-20,u%-50,Qy%):Q%+=Qy%:ENDWHILE:B%=gJ%:T%=FNS(0,0,d%,z%,e%):A%=C% 15302WHILEA%>0:B%=FNa(B%,T%):B%=B%!4:A%-=1:ENDWHILE:IFQ%+Qy%-5<=-n%THEN 15303REPEAT:B%=FNa(B%,T%):IFB%<>-1THENPROCc(p_%,FND_(B%),_%+30,U%-Q%-20,u%-50,Qy%):Q%+=Qy%:B%=B%!4 15304UNTILB%=-1ORQ%+Qy%-5>-n% 15305ENDIF:IFFNa(B%,T%)<>-1ANDQ%+Qy%-5>-n%THENMOVE_%,U%+n%+24:MOVEBY20,0:PLOT81,-&A,-20 15306IFV%(p%)>0THENMOVE_%,U%-60:MOVEBY20,0:PLOT81,-&A,20 15307ENDIF:ENDPROC 15308DEFPROCOJ:LOCALA%,F%,P%,B%,A$,C%,L%:A%=1:REPEATSYS&61502,C_%,"Spec"+STR$A%,0TO,,P%;F%:A%+=1:UNTILF%AND1:Ri%=A%-3:DIMJ%(A%-3,4):B%=0:WHILEB%<=Ri%:SYS&41502,C_%,"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 15309A%=1:REPEATSYS&61502,C_%,"Easter"+STR$A%,0TO,,P%;F%:A%+=1:UNTILF%AND1:Qa%=A%-3:DIMR%(A%-3,1):B%=0:WHILEB%<=A%-3:SYS&41502,C_%,"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 15310DEFPROCcy(ra%,c%,r%,e%,zu%,a%,Q%):LOCALA$,UJ%,KJ%,Wy%,A%:FORA%=0TORi%:IFJ%(A%,1)=r%THEN 15311IF(J%(A%,2)=-1ORJ%(A%,2)=ra%)ANDc%>=J%(A%,3)ANDc%<=J%(A%,4)THENA$+=$J%(A%,0)+"/" 15312ENDIF:NEXT:PROCcJ(UJ%,KJ%,e%):A%=0:Wy%=0:WHILEA%<=Qa%:PROCP(UJ%,KJ%,e%,R%(A%,1)-Wy%,0,0):Wy%=R%(A%,1):IFUJ%=c%ANDKJ%=r%THENA$+=$R%(A%,0)+"/" 15313A%+=1:ENDWHILE:IFINSTR(LEFT$(A$),"/")THENSYS&40081,,"Trinity.Medium",7*16,7*16TOWy%ELSEWy%=bi% 15314IFA$<>""THENPROCL(Wy%,LEFT$(A$),zu%,a%,Q%) 15315IFWy%<>bi%THENSYS&40082,Wy% 15316ENDPROC 15317DEFFNFy(p%,a%,Q%,g%,n%,_%,U%):LOCALby%,Qy%,A%,B%,d%,z%,e%,T%,F%,R%:Qy%=28:CASETRUEOF 15318WHENa%>=30ANDa%<=u%-20ANDQ%>=40:PROCG(v%,A%,B%,d%,z%,e%):PROCP(d%,z%,e%,p%-1,0,0):by%=(((Q%-40+Qy%)DIVQy%)):IFby%>0THENby%+=V%(p%) 15319IFby%>0ANDby%<=FNn(d%,z%)ANDg%<>2THENPROCx_(d%,z%,by%,g%):by%=-1 15320IFby%>0THENby%-=FNn(d%,z%) 15321IFby%>0THEN 15322T%=FNS(0,0,d%,z%,e%):B%=gJ%:B%=FNa(B%,T%):WHILEby%>1ANDB%<>-1:B%=B%!4:B%=FNa(B%,T%):by%-=1:ENDWHILE:IFB%=-1THEN 15323IFg%<>2THENPROCs(d%,z%,e%):VJ%=TRUE 15324ELSE:CASEg%OF 15325WHEN4:PROCWy(B%):VJ%=TRUE 15326WHEN2:R%=B% 15327WHEN1:PROCI_(B%):VJ%=TRUE 15328ENDCASE 15329ENDIF 15330ELSE:IFg%<>2ANDby%=0THEN 15331PROCG(v%,A%,B%,d%,z%,e%):PROCP(d%,z%,e%,p%-1,0,0):PROCs(d%,z%,e%):VJ%=TRUE 15332ENDIF 15333ENDIF 15334WHENg%=2 15335WHENa%<=20ANDQ%>=n%-20:PROCG(v%,A%,B%,d%,z%,e%):PROCP(d%,z%,e%,p%-1,0,0):T%=FNS(0,0,d%,z%,e%):by%=-((n%-40)DIVQy%):B%=FNa(gJ%,T%):WHILEB%<>-1:B%=B%!4:B%=FNa(B%,T%):by%+=1:ENDWHILE:by%+=FNn(d%,z%):IFV%(p%)<by%THENV%(p%)+=1:PROCN(i%,_%,U%-40,_%+u%-&A,U%-n%+4) 15336WHENa%<=20ANDQ%<=60ANDQ%>=40ANDV%(p%)<>0:V%(p%)-=1:PROCN(i%,_%,U%-40,_%+u%-&A,U%-n%+4) 15337WHENa%<=20ANDQ%<=60ANDQ%>=40 15338OTHERWISE:PROCG(v%,A%,B%,d%,z%,e%):PROCP(d%,z%,e%,p%-1,0,0):PROCs(d%,z%,e%):VJ%=TRUE 15339ENDCASE:=R% 15340DEFFNa(B%,T%):LOCALA%:A%=-1:WHILEB%<>-1ANDA%=-1:A%=FNB(FNx(B%!&C),T%):IFA%=-1THENB%=B%!4 15341ENDWHILE:IFA%=0THENA%=B%ELSEA%=-1 15342=A% 15343DEFFND_(B%):LOCALA$,A%,C%,Z$,T%:C%=(B%!16>>4)AND&F:T%=B%!16AND(1<<21):C%-=n_%*(C%=0):PROCV(0,C%):IF((B%!16>>1)AND1)=1THENZ$=FNpy(FNS_(B%!&C),FNty(B%!&C),-1,Ou%)+" " 15344B%+=20:FORA%=1TO3:WHILE?B%<>&B:A$+=CHR$?B%:B%+=1:ENDWHILE:IFA%<>3THENA$+=" ":B%+=1 15345NEXT:IFT%>0ANDLEFT$(A$,1)="="THENA$=MID$(A$,2,INSTR(A$,"*")-2) 15346=Z$+A$ 15347DEFPROCu_(S$):LOCALA$,Ba%,e:PROCZ(f%,39,1):A$=FNM(f%,16):Ba%=LENA$:PROCA(f%,16,A$+S$):fl%=LENFNM(f%,16):S$=MID$(S$,fl%-Ba%+1):PROCA(f%,17,S$):fl%=LENFNM(f%,16):S$=MID$(S$,fl%+1):PROCA(f%,18,S$):ENDPROC 15348DEFPROCs(c%,r%,Q%):LOCALA%,n%,Il%:FORA%=16TO18:PROCA(f%,A%,""):PROCD(f%,A%,n_%):NEXT:PROCZ(f%,24,0):nJ%=0:z$="":PROCZ(f%,21,ABS((R_%AND4)>0)):PROCZ(f%,23,ABS((R_%AND2)>0)):PROCZ(f%,38,ABS((R_%AND1)>0)):PROCM(f%,21,ABS((R_%AND1)>0)):PROCZ(f%,39,0):PROCM(f%,38,0):PROCJy(26):PROCA(f%,27,"1"):PROCA(f%,30,FNA("E1")) 15349nu%=1:cu%=1:ju%=1:mu%=1:PROCM(f%,37,1):PROCA(f%,33,FNA("OT1")):PROCA(f%,34,FNA("Day1")):PROCA(f%,35,FNA("OE1")):PROCA(f%,1,FNU(c%,r%,Q%,-1)):Q_%=c%:N_%=r%:AJ%=Q%:n%=FNc:r%=FNi:PROCf(f%,Kl%,FNA("alset"),-1):PROCA(f%,3,STR$n%):PROCA(f%,5,"00"):PROCO(0,0):PROCTy(TRUE,TRUE):PROCC(f%,3):ENDPROC 15350DEFPROCI_(B%):PROCWy(B%):O_%=-1:PROCM(f%,37,1):PROCf(f%,Kl%,FNA("alset"),0):ENDPROC 15351DEFPROCWy(B%):LOCALd%,z%,e%,n%,r%,A$,ui%,R%:PROCG(B%!&C,r%,n%,d%,z%,e%):O_%=B%:PROCZ(f%,38,((B%!16>>20)AND1)):A$=STR$r%:IFr%<&ATHENA$="0"+A$ 15352PROCM(f%,21,ABS((((B%!16>>20)AND1)>0)OR((B%!16AND(1<<21))>1))):PROCM(f%,38,ABS((B%!16AND(1<<21))>1)):PROCA(f%,5,A$):nJ%=((B%!16)>>4)AND&F:IFnJ%=0THENnJ%=n_% 15353FORA%=16TO18:PROCD(f%,A%,nJ%):NEXT:PROCM(f%,37,0):PROCA(f%,3,STR$n%):PROCf(f%,Kl%,FNA("aledit"),-1):PROCA(f%,1,FNU(d%,z%,e%,-1)):Q_%=d%:N_%=z%:AJ%=e%: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")) 15354nu%=1:cu%=1:ju%=1:mu%=1:PROCJy(26):PROCA(f%,33,FNA("OT1")):PROCA(f%,34,FNA("Day1")):PROCA(f%,35,FNA("OE1")):IF((B%!16)AND4)=4THEN 15355ui%=TRUE:PROCZ(f%,24,1):IF((B%!16)AND8)=8THEN 15356R%=((B%!16)>>8)AND&FF:PROCA(f%,27,STR$R%):nu%=((B%!16)>>16)AND&F:PROCA(f%,30,FNJ(aJ%,nu%-1)) 15357ELSE:PROCJy(31):cu%=((B%!16)>>8)AND&F:PROCA(f%,33,FNJ(yl%,cu%-1)):ju%=((B%!16)>>&C)AND&F:PROCA(f%,34,FNJ(bl%,ju%-1)):mu%=((B%!16)>>16)AND&F:PROCA(f%,35,FNJ(rl%,mu%-1)) 15358ENDIF 15359ELSEPROCZ(f%,24,0) 15360ENDIF:z$="":B%+=20:FORA%=16TO18:A$="":WHILE?B%<>&B:A$+=CHR$?B%:B%+=1:ENDWHILE:B%+=1:PROCA(f%,A%,A$):z$+=A$:NEXT:PROCTy(NOTui%,TRUE):PROCC(f%,3):ENDPROC 15361DEFPROCTy(sa%,dJ%):!J%=f%:SYS&400CB,,J%:IFdJ%THENJ%!28=-1:J%!4=FNg-&64-(J%!&C-J%!4):J%!&C=J%!4+&3E8:J%!16=900 15362J%!8=J%!16 -&7D0*ABSNOTsa%:SYS&400C5,,J%:ENDPROC 15363DEFPROChJ(sa%,dJ%):!J%=Ry%:SYS&400CB,,J%:IFdJ%THENJ%!28=-1:J%!4=&64:J%!&C=J%!4+&3E8:J%!16=900 15364J%!8=J%!16 -&7D0*ABSNOTsa%:SYS&400C5,,J%:ENDPROC 15365DEFPROCJy(s%):LOCALA%:PROCZ(f%,s%,1):PROCZ(f%,57-s%,0):FORA%=27TO30:PROCM(f%,A%,-(s%=31)):NEXT:FORA%=33TO35:PROCM(f%,A%,-(s%=26)):NEXT:ENDPROC 15366DEFFNTy:LOCALT%,B%,F%:T%=FNx(FNY):B%=Z_%:WHILEB%<>-1ANDNOTF%:IFFNx(B%!&C)=T%THENF%=TRUE 15367B%=B%!4:ENDWHILE:=F% 15368DEFPROCxy:LOCALF%,c%,r%,Q%,uy%,Hu%,Qy%,B%,Ml%,fJ%,oy%:PROCG(_J%,F%,B%,Ml%,fJ%,oy%):CASETRUEOF 15369WHEND_%=1:IFDu%THENF%=FNTyELSEF%=TRUE 15370WHEND_%=2AND(FNL(Dy%,fy%,My%)>FNL(Ml%,fJ%,oy%)-FNH(Ml%,fJ%,oy%)+7):F%=TRUE 15371WHEND_%=3ANDDy%=1:F%=TRUE 15372OTHERWISEF%=FALSE 15373ENDCASE:IFF%ANDNOTIy%THEN 15374IFt%<>FNG(3)ANDRu%THENPROCQ_(t%) 15375t%=FNG(3):PROCH(Dy%,fy%,My%):PROCr(i%,-1,-1) 15376ENDIF:uy%=0:Hu%=0:Qy%=0:IFly%<>0THEN 15377CASEly%>>4OF 15378WHEN0:uy%=ly%AND&F 15379WHEN1:uy%=7*(ly%AND&F) 15380WHEN2:Hu%=ly%AND&F 15381WHEN3:Qy%=ly%AND&F 15382ENDCASE:c%=Dy%:r%=fy%:Q%=My%:PROCP(c%,r%,Q%,-uy%,-Hu%,-Qy%):F%=FNS(0,0,c%,r%,Q%):B%=Z_%:c%=TRUE:WHILEB%<>-1ANDc%:IFFNB(B%!&C,F%)=-1THENPROCv(B%):B%=B%!4ELSEc%=FALSE 15383ENDWHILE 15384ENDIF:ENDPROC 15385DEFFNXy(n%,r%):LOCALA%:A%=TRUE:IFn%<0ORn%>23ORr%<0ORr%>59THENA%=FALSE:PROCB(FNA("ErrTime")) 15386=A% 15387DEFPROCV_:LOCALF_%,n%,r%,Il%,A$,Z$,F$,Wy%:A$=FNM(f%,16):Z$=FNM(f%,17):F$=FNM(f%,18):n%=VALFNM(f%,3):r%=VALFNM(f%,5):IFA$+Z$+F$<>""ANDFNXy(n%,r%)THEN 15388Wy%=Wy%OR(-FNZ(f%,21))OR((-FNZ(f%,23))<<1)OR(nJ%<<4):Wy%=Wy%OR((-FNZ(f%,38))<<20)OR((-FNZ(f%,39))<<21):IFFNZ(f%,24)THEN 15389IFFNZ(f%,26)THEN 15390Wy%=Wy%OR&COR((VALFNM(f%,27))<<8)OR(nu%<<16) 15391ELSEWy%=Wy%OR4OR(cu%<<8)OR(ju%<<&C)OR(mu%<<16) 15392ENDIF 15393ENDIF:F_%=FNS(r%,n%,Q_%,N_%,AJ%):PROCay(F_%,Wy%,A$,Z$,F$):PROCl:PROCx:PROCn:vy%=TRUE:IFIy%ANDZ%(t%)=3THENPROCK 15394ELSEIFA$+Z$+F$=""THENPROCB(FNA("ErrMes")) 15395ENDIF:ENDPROC 15396DEFPROCay(F_%,Wy%,A$,Z$,F$):LOCALS%,B%,xy%,T%,ny%,Ny%:IFO_%<>-1THENPROCSy(O_%) 15397xy%=FALSE:S%=LEN(A$+Z$+F$)+3+20:Ny%=Z_%:ny%=-1:WHILENy%<>-1ANDNOTxy%:T%=Ny%!&C:IFFNB(F_%,T%)=-1THENxy%=TRUEELSEny%=Ny%:Ny%=Ny%!4 15398ENDWHILE:B%=FNw(s_%,S%+1,TRUE):!B%=ny%:B%!4=Ny%:B%!8=S%:B%!&C=F_%:B%!16=Wy%:IFny%=-1THENZ_%=B%ELSEny%!4=B% 15399IFNy%<>-1THEN!Ny%=B% 15400$(B%+20)=A$+CHR$&B+Z$+CHR$&B+F$+CHR$&B:ENDPROC 15401DEFPROCv(B%):PROCSy(B%):PROCl:PROCx:vy%=TRUE:IFIy%ANDZ%(t%)=3THENPROCK 15402IFB%=O_%THENPROCn 15403IFB%=pJ%THENpJ%=-1:PROCX(Ry%) 15404ENDPROC 15405DEFPROCSy(B%):LOCALny%,Ny%:ny%=!B%:Ny%=B%!4:IFny%<>-1THENny%!4=Ny% 15406IFNy%<>-1THEN!Ny%=ny% 15407IFZ_%=B%THENZ_%=Ny% 15408PROCLy(s_%,B%,TRUE):ENDPROC 15409DEFPROCn:PROCX(f%):PROCX(sy%):IFIy%THENPROCC(i%,-1) 15410O_%=-1:ENDPROC 15411DEFPROCpu(Yy%,ry%,q%,s%,H_%):LOCALA%:CASEs%OF 15412WHEN1:PROC`(Q_%,N_%,AJ%,q%,s%) 15413WHEN6:PROCO(H_%,0) 15414WHEN7:PROCO(-H_%,0) 15415WHEN8:PROCO(0,&A*H_%) 15416WHEN9:PROCO(0,-&A*H_%) 15417WHEN&A:PROCO(0,H_%) 15418WHEN&B:PROCO(0,-H_%) 15419WHEN19:PROCV_ 15420WHEN20:PROCn 15421WHEN22:PROCF(Xl%,Yy%,ry%,q%,s%) 15422WHEN24:PROCTy(NOTFNZ(q%,24),FALSE) 15423WHEN26,31:PROCJy(s%) 15424WHEN28,29:IFg%=1THENs%=57-s% 15425A%=VALFNM(q%,27):A%+=(s%-27)*2-3:IFA%=0THENA%=&FFELSEIFA%=256THENA%=1 15426PROCA(q%,27,STR$A%) 15427WHEN30:!aJ%=FNh("E"):PROCF(aJ%,Yy%,ry%,q%,s%) 15428WHEN33:PROCF(yl%,Yy%,ry%,q%,s%) 15429WHEN34:PROCF(bl%,Yy%,ry%,q%,s%) 15430WHEN35:PROCF(rl%,Yy%,ry%,q%,s%) 15431WHEN37:PROCv(O_%) 15432WHEN38:PROCM(f%,21,ABSFNZ(f%,38)) 15433WHEN39:PROCM(f%,21,ABS(FNZ(f%,39)ORFNZ(f%,38))):PROCM(f%,38,ABSFNZ(f%,39)) 15434ENDCASE:ENDPROC 15435DEFPROC`J(Yy%,ry%,q%,s%):LOCALA%:W_%=0:CASEs%OF 15436WHEN7:PROCYy(pJ%,FNZ(Ry%,9)):pJ%=-1 15437WHEN8:PROCv(pJ%) 15438WHEN9:FORA%=&ATO&D:PROCM(q%,A%,ABSNOTFNZ(q%,s%)):NEXT 15439WHEN&B,&C:IFg%=1THENs%=23-s% 15440A%=VALFNM(q%,&A):A%+=(s%-&A)*2-3:IFA%=0THENA%=&FFELSEIFA%=256THENA%=1 15441PROCA(q%,&A,STR$A%) 15442WHEN&D:!J%=q%:SYS&400CB,,J%:Yy%=J%!4+686+64:ry%=J%!16-312:!aJ%=FNh("ED"):PROCF(aJ%,Yy%,ry%,q%,s%) 15443ENDCASE:ENDPROC 15444DEFPROCYy(B%,`i%):IFB%<>O_%THENLOCALO_%:O_%=-1 15445IFNOT`i%THEN 15446IF(B%!16AND4)=4THEN 15447IF(B%!16AND8)=8THEN 15448PROCT_(B%,FALSE) 15449ELSEPROClJ(B%) 15450ENDIF 15451ELSEB%!16=(B%!16)OR(1<<20):vy%=-1 15452ENDIF 15453ELSEPROCT_(B%,TRUE) 15454ENDIF:PROCl:PROCx:vy%=TRUE:IFIy%ANDZ%(t%)=3THENPROCK 15455W_%=0:PROCX(Ry%):ENDPROC 15456DEFPROCT_(B%,`i%):LOCALc%,T%,A$,qy%,Vy%,d%,z%,e%,F_%,Wy%,Z$,F$,:IF`i%THEN 15457F_%=FNY:c%=VALFNM(q%,&A):A$=FNM(Ry%,&D):T%=0:WHILEA$<>FNJ(aJ%,T%):T%+=1:ENDWHILE 15458ELSEF_%=B%!&C:c%=((B%!16)>>8)AND&FF:T%=(((B%!16)>>16)AND&F)-1 15459ENDIF:PROCG(F_%,qy%,Vy%,d%,z%,e%):PROCry(qy%,Vy%,d%,z%,e%,c%,T%):F_%=FNS(qy%,Vy%,d%,z%,e%):Wy%=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:F$+=CHR$?c%:c%+=1:ENDWHILE:PROCSy(B%):PROCay(F_%,Wy%,A$,Z$,F$):ENDPROC 15460DEFPROCry(RETURNqy%,RETURNVy%,RETURNd%,RETURNz%,RETURNe%,c%,T%):LOCALuy%,Sa%,Ha%:Sa%=c%:Ha%=T%:REPEAT:c%=Sa%:T%=Ha%:IFT%=0THENqy%+=c%:c%=qy%DIV60:qy%=qy%MOD60:IFc%>0THENT%=1 15461IFT%=1THENVy%+=c%:c%=Vy%DIV24:Vy%=Vy%MOD24:IFc%>0THENT%=2 15462uy%=0:IFT%=2THENuy%=c%ELSEIFT%=3THENuy%=7*c% 15463WHILEuy%>0:PROCP(d%,z%,e%,1,0,0):uy%-=1:ENDWHILE:IFT%=4THEN 15464WHILEc%>0:PROCP(d%,z%,e%,0,1,0):c%-=1:ENDWHILE 15465ENDIF:IFT%=5THEN 15466WHILEc%>0:PROCP(d%,z%,e%,0,0,1):c%-=1:ENDWHILE 15467ENDIF:UNTILFNB(FNY,FNS(qy%,Vy%,d%,z%,e%))=-1:ENDPROC 15468DEFPROClJ(B%):LOCALF_%,qy%,Vy%,d%,z%,e%,A$,Z$,C%,Wy%,c%:Wy%=B%!16:c%=B%+20:PROCG(B%!&C,qy%,Vy%,d%,z%,e%):PROCvy(d%,z%,e%,Wy%):F_%=FNS(qy%,Vy%,d%,z%,e%):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:F$+=CHR$?c%:c%+=1:ENDWHILE 15469PROCSy(B%):PROCay(F_%,Wy%,A$,Z$,F$):ENDPROC 15470DEFPROCvy(RETURNd%,RETURNz%,RETURNe%,F%):LOCALp%,c%,r%:REPEAT:p%=(F%>>8)AND&F:c%=(F%>>&C)AND&F:r%=(F%>>16)AND&F:WHILEr%>0:PROCP(d%,z%,e%,-d%+1,1,0):r%-=1:ENDWHILE:CASEp%OF 15471WHEN1,2,3:j%=FNH(d%,z%,e%):WHILEj%<>c%:d%+=1:j%=FN`(j%+1):ENDWHILE:d%+=(p%-1)*7 15472WHEN4,5,6:d%=FND(z%,e%):j%=FNH(d%,z%,e%):WHILEj%<>c%:d%-=1:j%=FN`(j%+6):ENDWHILE:d%-=(p%-4)*7 15473ENDCASE:UNTILFNB(FNY,FNS(FNi,FNc,d%,z%,e%))=-1:ENDPROC 15474DEFPROCO(Ku%,r%):LOCALIl%,M%,Hu%,uy%,la%,A$:Hu%=r%<>0:uy%=FALSE:r%+=VALFNM(f%,5):n%=VALFNM(f%,3):M%=FND(N_%,AJ%):n%+=Ku%:Ku%=Ku%<>0:IFr%<0THENn%-=1:r%+=60:Ku%=TRUE 15475IFr%>59THENn%+=1:r%-=60:Ku%=TRUE 15476IFn%<0THENQ_%-=1:n%+=24:uy%=TRUE 15477IFn%>23THENQ_%+=1:n%-=24:uy%=TRUE 15478IFQ_%<1THENN_%-=1:uy%=TRUE 15479IFQ_%>M%THENN_%+=1:Q_%=1:uy%=TRUE 15480IFN_%<1THENAJ%-=1:N_%=&C:uy%=TRUE 15481IFN_%>&CTHENAJ%+=1:N_%=1:uy%=TRUE 15482M%=FND(N_%,AJ%):IFQ_%=0ORQ_%>M%THENQ_%=M% 15483IFuy%THENPROCA(f%,1,FNU(Q_%,N_%,AJ%,-1)) 15484IFKu%THENPROCA(f%,3,STR$n%) 15485A$=STR$r%:IFr%<&ATHENA$="0"+A$:IFr%=0THENA$="00" 15486IFHu%THENPROCA(f%,5,A$) 15487ENDPROC 15488DEFPROCz_:LOCALS%,C%,B%:C%=-1:Z_%=-1:w%=OPENINr$:IFNOTFu%ANDw%<>0THEN 15489WHILENOTEOF#w%:S%=VALGET$#w%:B%=FNw(s_%,S%+1,TRUE):IFC%<>-1THENC%!4=B%ELSEZ_%=B% 15490!B%=C%:B%!8=S%:SYS&C,4,w%,B%+&C,S%-&C:C%=B%:IFx_%THENPROCw(NOT1) 15491ENDWHILE:IFZ_%<>-1THENB%!4=-1 15492ENDIF:CLOSE#w%:w%=0:ENDPROC 15493DEFPROCcJ(RETURNc%,RETURNr%,Q%):LOCALel%,ey%:el%=(Q%+1)MOD19:IFel%=0THENel%=19 15494ey%=(ABS(1.25*Q%)+6)MOD7:c%=Y%(el%-1,ey%):IFc%>31THENc%-=31:r%=4ELSEr%=3 15495ENDPROC 15496DEFPROCMl:LOCALsi%,Ci%,d%,j%,c%:DIMY%(18,6):FORsi%=1TO19:FORCi%=0TO6:CASEsi%OF 15497WHEN&E:j%=1 15498WHEN3:j%=2 15499WHEN&B:j%=4 15500WHEN19:j%=6 15501WHEN8:j%=7 15502WHEN16:j%=9 15503WHEN5:j%=&A 15504WHEN&D:j%=&C 15505WHEN2:j%=&D 15506WHEN&A:j%=&F 15507WHEN18:j%=17 15508WHEN7:j%=18 15509WHEN&F:j%=20 15510WHEN4:j%=21 15511WHEN&C:j%=23 15512WHEN1:j%=24 15513WHEN9:j%=26 15514WHEN17:j%=27 15515WHEN6:j%=28 15516ENDCASE:d%=21+j%:j$=FNA("Mon3")+" ":REPEATd%+=1:c%=5-(d%MOD7):IFc%=-1THENc%=6 15517UNTILc%=Ci%:Y%(si%-1,Ci%)=d%:IFd%>31THENd%-=31:j$=FNA("Mon4")+" " 15518NEXT:NEXT:ENDPROC 15519DEFPROCru:cy%=2:ai%=&B:IJ%=TRUE:hJ%=1:Wi%=FNAy(FNA("GYM")+FNay("GYM",1,3,"\","")+"\"):Aa%=FNzy(Wi%,3,"",5,"A0-9"):Ql%=FNC("CAM","CAM",1,3):PROCY(Ql%,2,Wi%):ENDPROC 15520DEFFNX_=Ql% 15521DEFPROCBJ(A%):B%(A%)=&77d:W%(A%)=&fff:S%(A%)=My%:M$(A%)=FNA("CalTab"):PROCUJ:ENDPROC 15522DEFPROCCJ(e%,y%,_%,U%):IFcy%=1THENPROCuJ(e%,y%,_%,U%) 15523IFcy%=2THENPROCNu(e%,y%,_%,U%) 15524ENDPROC 15525DEFPROCk_(l%,cl%):LOCALA%:CASE!l%OF 15526WHEN0,1:A%=cy%:cy%=!l%+1:mJ%=cy%<>A% 15527WHEN2:CASEl%!4OF 15528WHEN0:IFv%<>My%+(cy%=1)THENv%=My%:t%=cl% 15529WHEN1:IFv%<>My%+1+(cy%=1)THENv%=My%+1:t%=cl% 15530WHEN2:IFv%<>My%-1+(cy%=1)THENv%=My%-1:t%=cl% 15531WHEN3:A%=VAL$Aa%:CASETRUEOF 15532WHENA%<&77d:PROCB(FNO("ErrMin",STR$&77d,"","","")) 15533WHENA%>&fff:PROCB(FNO("ErrMax",STR$&fff,"","","")) 15534OTHERWISEIFv%<>A%+(cy%=1)THENv%=A%:t%=cl% 15535ENDCASE 15536ENDCASE 15537ENDCASE:ENDPROC 15538DEFPROCRy(p%):v%+=(3-cy%)*p%:IFv%<B%(t%)THENv%=B%(t%) 15539IFv%>W%(t%)THENv%=W%(t%) 15540ENDPROC 15541DEFPROCUu(g%,y%,a%,Q%,i_%,qJ%):LOCALVa%,d%,z%,e%:IFg%<>2THEN 15542Va%=FNjy(y%,a%,Q%,d%,z%,e%):IFVa%THEN 15543CASEhJ%+g%OF 15544WHEN5,3:PROCH(d%,z%,e%):t%=FNG(3):v%=S%(t%) 15545WHEN6,2:PROCs(d%,z%,e%):VJ%=TRUE 15546ENDCASE 15547ENDIF 15548ENDIF:ENDPROC 15549DEFFNby(s%,By%):o%=TRUE:CASEBy%OF 15550WHEN414:PROCRy(1) 15551WHEN415:PROCRy(-1) 15552WHEN30:IFv%<>My%+(cy%=1)THENv%=My% 15553OTHERWISEo%=FALSE 15554ENDCASE:=o% 15555DEFPROCNJ(l%,x%):IFbJ%=Ay%THENPROCg(x%,6,!l%):PROCW(Ay%,0,-1):PROCS(Ay%,!l%,1) 15556ENDPROC 15557DEFFNry(q%,s%,By%):=FALSE 15558DEFPROCv_(w%):BPUT#w%,cy%:BPUT#w%,IJ%+5:BPUT#w%,!FJ%:BPUT#w%,hJ%:ENDPROC 15559DEFPROCeJ(w%):cy%=BGET#w%:IJ%=BGET#w%-5:ai%=BGET#w%:hJ%=BGET#w%:ENDPROC 15560DEFPROCdu(x%,Fy%,l%,a%,Q%):CASEFy%OF 15561WHEN7,1,4,5:IFg%<>2PROCZ(x%,Fy%,1) 15562WHEN6:PROCW(Ay%,0,-1):PROCS(Ay%,FNu(x%,6),1):PROCF(Ay%,a%,Q%,x%,Fy%) 15563WHEN9:IFFNM(x%,9)=FNA("SetAlarm")+"/"+FNA("GotoDiary")THENPROCA(x%,9,FNA("GotoDiary")+"/"+FNA("SetAlarm"))ELSEPROCA(x%,9,FNA("SetAlarm")+"/"+FNA("GotoDiary")) 15564ENDCASE:ENDPROC 15565DEFPROCOu(x%):PROCZ(x%,7,-(cy%=1)):PROCZ(x%,1,-(cy%=2)):PROCg(x%,6,!FJ%):PROCZ(x%,4,-NOTIJ%):PROCZ(x%,5,-IJ%):IFhJ%=1THENPROCA(x%,9,FNA("GotoDiary")+"/"+FNA("SetAlarm"))ELSEPROCA(x%,9,FNA("SetAlarm")+"/"+FNA("GotoDiary")) 15566ENDPROC 15567DEFPROCKJ(x%):IFFNZ(x%,7)THENcy%=1ELSEcy%=2 15568IJ%=FNZ(x%,5):!FJ%=FNu(x%,6):IFFNM(x%,9)=FNA("GotoDiary")+"/"+FNA("SetAlarm")THENhJ%=1ELSEhJ%=2 15569ENDPROC 15570DEFFNjy(y%,a%,Q%,RETURNd%,RETURNz%,RETURNe%):LOCALm_%,A_%,jy%,yy%,fu%,tu%:IFcy%=1THEN 15571m_%=(u%-32)/2:A_%=(k%-50)/6:jy%=m_%/7:yy%=(A_%-&A)/8:e%=v%+ABSy%:z%=2*((-Q%-50)DIVA_%)+((a%-20)DIV((u%-8)/2)):a%-=20+(z%MOD2)*((u%-8)/2):Q%=-Q%-50-((z%DIV2)*A_%):z%+=1:fu%=(a%+jy%*(1-0.12)+20*ABSy%)DIVjy%:tu%=((Q%-&A-yy%)DIVyy%)-1 15572IFfu%>0ANDfu%<8THENd%=1+fu%+7*tu%-FNH(1,z%,e%) 15573ELSE:m_%=(u%-40)/2:A_%=(k%-50)/3:jy%=m_%/7:yy%=(A_%-&A)/8:e%=v%:z%=2*((-Q%-50)DIVA_%)+((a%-20)DIV((u%-8)/2)):a%-=20+(z%MOD2)*((u%-8)/2):Q%=-Q%-50-((z%DIV2)*A_%):z%+=1+6*ABSy%:fu%=(a%-jy%*0.25+20*ABSy%)DIVjy%-1:tu%=Q%DIVyy%:IFtu%>0ANDtu%<8THENd%=1+tu%+7*fu%-FNH(1,z%,e%) 15574ENDIF:IFe%<>-1THEN 15575IFd%<=0ORd%>FND(z%,e%)ORe%>&fffTHENe%=-1:d%=-1:z%=-1 15576ENDIF:=(e%>0) 15577DEFPROCNu(e%,y%,_%,U%):LOCALz%,j%,c%,jy%,yy%,pa%,A$,r%,A%,B%,C%,D%,E%,F%,G%,H%:m_%=(u%-40)/2:A_%=(k%-50)/3:yy%=(A_%-&A)/8:jy%=m_%/7:IFy%THEN 15578IFe%<W%(t%)THENPROCI(1,_%,U%) 15579ELSEIFe%>B%(t%)THENPROCI(0,_%,U%) 15580ENDIF:Qu%=FNP("Homerton.Medium",20,20):lu%=FNP("Homerton.Medium",&D,&D):ou%=FNP("Homerton.Medium",9,9):PROCV(0,7):PROCL(Qu%,STR$e%,0,_%+u%/2,U%-8):FORr%=1TO6:z%=r%+6*y%:a%=(r%-1)MOD2*(u%-8)/2+20-20*y%:Q%=50+(r%-1)DIV2*A_%:IFFNF(_%+a%,U%-Q%,m_%,-A_%)THEN 15581PROCL(lu%,FNX(z%,-1),-1,_%+a%,U%-Q%):j%=FNH(1,z%,e%)-1:SYS&4008A,ou%:Q%+=yy%-6:FORc%=1TO7:SYS&40086,,FNt(c%,2),1<<4,_%+a%,U%-Q%-yy%*c%:NEXT:a%+=jy%:A%=U%-Q%:D%=_%+a%:F%=FND(z%,e%):G%=j%:H%=jy%:B%=-yy%:IFe%=My%ANDz%=fy%THENC%=Dy%ELSEC%=0 15582IFIJ%ANDC%<>0THENC%=0:SYS&400E6,!FJ%:RECTANGLE_%+a%+((j%-1+Dy%)DIV7+0.25)*jy%,U%-Q%-((j%-1+Dy%)MOD7+0.25)*yy%,jy%,-yy% 15583CALLz 15584ENDIF:NEXT:PROCU(Qu%):PROCU(lu%):PROCU(ou%):ENDPROC 15585DEFPROCuJ(v%,y%,_%,U%):LOCALz%,j%,c%,jy%,ka%,A_%,A$,A%,B%,C%,D%,E%,F%,G%,H%:m_%=(u%-32)/2:A_%=(k%-50)/6:jy%=m_%/7:yy%=(A_%-&A)/8:e%=v%+y%:IFy%THEN 15586IFv%+1<W%(t%)THENPROCI(1,_%,U%) 15587ELSEIFv%>B%(t%)THENPROCI(0,_%,U%) 15588ENDIF:IFe%<=&fffTHEN 15589Qu%=FNP("Homerton.Medium",20,20):lu%=FNP("Homerton.Medium",&A,&A):ou%=FNP("Homerton.Medium",7,7):PROCV(0,7):PROCL(Qu%,STR$e%,0,_%+u%/2,U%-8):FORz%=1TO&C:a%=(z%-1)MOD2*(u%-8)/2+20-20*y%:Q%=50+(z%-1)DIV2*A_%:IFFNF(_%+a%,U%-Q%,m_%,-A_%)THEN 15590PROCL(lu%,FNX(z%,-1),-1,_%+a%,U%-Q%):j%=FNH(1,z%,e%)-1:SYS&4008A,ou%:Q%+=yy%+4:FORc%=1TO7:SYS&40086,," "+FNt(c%,2),1<<4,_%+a%+jy%*c%-jy%,U%-Q%-yy%:NEXT:Q%+=yy%:A%=_%+a%-jy%:E%=U%-Q%-yy%:F%=FND(z%,e%):G%=j%:H%=jy%:B%=yy%:IFe%=My%ANDz%=fy%THENC%=Dy%ELSEC%=0 15591IFIJ%ANDC%<>0THENC%=0:SYS&400E6,!FJ%:RECTANGLE_%+a%+((j%-1+Dy%)MOD7+0.12)*jy%,U%-Q%-((j%-1+Dy%)DIV7+0.18)*yy%,jy%*0.76,-yy% 15592CALLR 15593ENDIF:NEXT 15594ENDIF:PROCU(Qu%):PROCU(lu%):PROCU(ou%):ENDPROC 15595DEFPROCUJ:LOCALP%,A%,Oi%,da%,C,F,w,H,S,Y,Z,_,M,I,G,P,A:DIMda%456:C=&D:F=&E:w=&F:H=5:S=6:Y=0:Z=3:_=0:M=4:I=7:G=8:P=9:A=&A:FOROi%=0TO2STEP2:P%=da%:[OPTOi%:.R:STMFD(C)!,{F}:MOV G,1:MOV P,2:MOV A,#0:MOV2,#1<<4:ADR1,D:.O:ADD S,S,#1:ADD A,A,#1:CMP P,A:BLEQ L:MUL Z,I,S 15596ADD Z,Z,Y:SWI &40086:CMP P,A:BLEQ V:CMP S,#7:SUBEQ M,M,G:MOVEQ S,#0:ADD1,1,#8:CMP A,H:BNE O:LDMFD(C)!,{pc}:.z:STMFD(C)!,{F}:MOV G,1:MOV P,2:MOV A,#0:MOV2,#1<<4:ADR1,D:.s:ADD S,S,#1:ADD A,A,#1:CMP P,A:BLEQ L:MUL M,G,S 15597ADD M,M,_:SWI &40086:CMP P,A:BLEQ V:CMP S,#7:ADDEQ Z,Z,I:MOVEQ S,#0:ADD1,1,#8:CMP A,H:BNE s:LDMFD(C)!,{pc}:.L:STMFD(C)!,{F,1-2}:LDR2,FJ%:B K:.V:STMFD(C)!,{F,1-2}:MOV2,#7:.K:MOV1,#0:SWI &400F3:LDMFD(C)!,{pc,1-2}:.FJ%&ai%:.D 15598]FORA%=1TO31:[OPTOi%:=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:w%=0:pl%=�:ti%=-1:��Ny:���,�$+" at line "+Þ �gu%=-1:Wu%=0:w$="!Organiser":�K%512:J%=K%+256:�Y_:w%=�"<Organiser$Dir>.Resources.!Language":B$=�#w%:�#w%:w%=0::X=1.26:w%=�("<Organiser$Dir>.Resources."+B$+".Messages"):�w%<>0�X=���#w%,2):�#w%:w%=0�X=0 $�X<1.26�_$=B$:B$="English"�_$="" �v$="<Organiser$Dir>.Resources."+B$:�JJ(v$+".Messages"):�HJ(�A("Title"),"<Organiser$Dir>",�1.26+" (16 Nov 97)",�):ș66�Wu%:gu%=Wu%+500:ȕ�Vu%:�w(1):�:�Ny:� 0��Ny:�pl%=��ș&406C2:���,�$+" at line "+Þ:� /pl%=�:h$=�$+" at line "+Þ:Fa%=�:�Fa%,h$ �w%<>0��#w%:w%=0 �bJ:�i:ș&400DD:� 3��w(Nl%):�A$,Vi%,Ul%,J_%,mJ%:mJ%=�:�vy%�Zu%��Py B�Ru%�vy%<>Ii%�Ii%=vy%:�f(i%,ki%,�A("Title")+�-(vy%=�)," *"),�) �Nl%�1�Ul%=&64 �G$<>""�Ul%=0 �(XJ%<>-1)�Iy%�Ul%=0 )Nl%=(Nl%�(1<<5))��(1+(3<<17)):�Ul%>0� 9ș66�Ma%:ȕMa%>Wu%:Wu%+=&64:�:ș&400E1,Nl%,K%,Wu%�Vi% �ș&400C7,Nl%,K%�Vi% �:ȎVi%� �0:Ȏ�� �XJ%<>-1�Iy%:�Ku �Wu%>gu%�gu%<>-1:�U_ $�(Ul%<>0�G$<>"")�ti%<>�Gy:�m:�a_ �G$<>"":�ou � �1:�IJ �2:�!K%=T_%� �PJ �:�!K%=i%�JJ%�K%!20=0 笤hy��F_ ș&400C5,,K%:�!K%=i%�JJ%��Au � ! �3:Ȏ!K%� " �f%:�n #�T_%:�b $�Ry%:�Yy %�_y%:�t &�GJ%:�X_ '�Gy%:�i (�X(!K%) )� *)�4:�0<>0�ș&400E9,36,,"ptr_default",1 +�5 ,)�6:�Ru%��e(K%!&C,K%!16,K%!8,!K%,K%!4) -�7 .�8:�Mu(!K%,K%!4,K%!24) / �9:�yJ 0�&B,&C:wJ%=�z 1�17,18:�yu 2�19:�K%!4=vu%�K%!16=&4AF80� 31A$=�N(K%+20):�uJ%=1��b("Alias$URLOpen_HTTP")� 4ș&400DE,"URLOpen_HTTP "+A$ 5(�:�uJ%=2��b("Alias$URLOpen_MailTo")� 6!ș&400DE,"URLOpen_MailTo "+A$ 7� 8� 9�:�Vu%��Ny:� :� ;*ݤhy=(Uy%<>K%!16-K%!8�ay%<>K%!&C-K%!4) <B��m�A%,S%,M%,H%,R%,M$,ni%,ji%,oi%,pi%,tl%,I$:�(Oy%�4)=4�MJ%=0� =�M$=�Zy("%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:tl%=�:ș46,316,h%,"clock",0�ni%,ji%,oi%,pi%:�1:ȓȐ0,0,I_%,Pu%:R%=56:ȑI_%/2,Pu%/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))*(x_%��Ru%):ȏ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 @+�Oy%�2��0,0,(R%*0.9)*��S%,(R%*0.9)*��S% Aș46,ni%,ji%,oi%,pi% B�:�(Oy%�9)<>0� C�(Oy%�8)=8�MJ%>0� D"M$=�Uy:�$DJ%<>M$�$DJ%=M$:tl%=� E�:�(Oy%�16)=0� F#M$=":%mi":�(Oy%�2)=2�M$+=".%se" G)�f_%�M$="%z24"+M$�M$="%z12"+M$+" %am" H �M$=N$ I(�:M$=�Zy(M$):�M$<>$DJ%�$DJ%=M$:tl%=� J� K� LB�:�tl%�!K%=-1-7*�(b_%):K%!4=j_%:K%!8=0:K%!&C=0:ș&400CD,,K%:Ȗ M� NTݤUy:�H%,A$:ș&400EC,-1,-1�,,H%:H%=H%�&400:A$="k":�H%>&400�Gu%�H%=H%�&400:A$="M" O=�H%+A$ P"��a_:�Dy%<>�T�fy%<>�I�My%<>�R� Q9_J%=�S(0,0,Dy%,fy%,My%):My%=�R:fy%=�I:Dy%=�T:�xJ%��Ay R�Iy%�J_%=0:�K SBu%=�:K_%=t%:w_%=v%:�xy:�x T$�:�xJ%�lJ%<>0��B(lJ%,�Y)<>1��mJ U"�vJ%<>-1��B(vJ%!&C,�Y)<>1��uu V'�W_%>0��oy��7:W_%-=1:�W_%=0�W_%=-&A W�W_%<0�W_%+=1:�W_%=0�W_%=&A X�MJ%>0�MJ%-=1:�MJ%=0��h:�m Y ti%=�Gy:� Z7ݤZy(A$):?J%=3:ș7,&E,J%:ș&C1,J%,J%,&80,A$:=�N(J%) [+ݤe:?J%=3:ș7,&E,J%:ș&43049,,J%,J%:=J% \ݤGy=!(�e+4) ]ݤi=!(�e+8) ^ݤc=!(�e+&C) _ݤT=!(�e+16) `ݤI=!(�e+20) aݤR=!(�e+24) b?ݤS(qy%,n%,c%,r%,Q%)=qy%�(n%<<6)�(c%<<&B)�(r%<<16)�(Q%<<20) ci��G(x%,�qy%,�n%,�c%,�r%,�Q%):qy%=x%�63:n%=(x%>>6)�31:c%=(x%>>&B)�31:r%=(x%>>16)�&F:Q%=(x%>>20)�&FFF:� dݤx(x%)=x%��&7FF eݤty(x%)=x%�63 fݤS_(x%)=(x%>>6)�31 gݤY=�S(�i,�c,�T,�I,�R) hEݤB(A%,B%):�Xi%,hi%,qi%,vi%,zi%,q_%:�Ui%,Ni%,Hi%,ci%,di%:�A%<>B%� i>�G(A%,zi%,vi%,qi%,hi%,Xi%):�G(B%,di%,ci%,Hi%,Ni%,Ui%):Ȏ�� j�Xi%>Ui%:q_%=1 k�Xi%<Ui%:q_%=-1 l�hi%>Ni%:q_%=1 m�hi%<Ni%:q_%=-1 n�qi%>Hi%:q_%=1 o�qi%<Hi%:q_%=-1 p�vi%>ci%:q_%=1 q�vi%<ci%:q_%=-1 r�zi%>di%:q_%=1 s�zi%<di%:q_%=-1 t� u �q_%=0 v �:=q_% w���cu(a%,Q%,py%):ș&400ED,256,h%,"tab",,,,J%,J%+&80:�Xy(J%+&80,py%):ș46,52+256,h%,"cover",a%,Q%,0,J%,J%+&80:ș46,52+256,h%,"cover",a%,�f(Q%+zy%-2*20),0,J%,J%+&80:ș46,52+256,h%,"tab",a%,Q%,8,J%,J%+&80:ș46,33+256,h%,"tab" x�ș46,52+256,h%,"tab",a%,Q%+zy%-2*20,8,J%,J%+&80:ș46,33+256,h%,"tab":ș&400E6,py%:ȓȐa%+40,Q%+2*20,-2*20,zy%-4*20:ș&400E6,6:�a%+40,Q%+2*20:�BY0,zy%-4*20:� y���xu(a%,Q%,py%)a%-=40:ș&400ED,256,h%,"tab",,,,J%,J%+&80:�Xy(J%+&80,py%):ș46,52+256,h%,"cover",a%,Q%,0,J%,J%+&80:ș46,52+256,h%,"cover",a%,�f(Q%+zy%-2*20),0,J%,J%+&80:ș46,47+256,h%,"tab":ș46,52+256,h%,"tab",a%,Q%,8,J%,J%+&80:ș46,33+256,h%,"tab" z�ș46,52+256,h%,"tab",a%,Q%+zy%-2*20,8,J%,J%+&80:ș46,33+256,h%,"tab":ș46,47+256,h%,"tab":ș&400E6,py%:ȓȐa%,Q%+2*20,2*20,zy%-4*20:ș&400E6,6:�a%,Q%+2*20:�BY0,zy%-4*20:� {5��s_(q%,_%,U%):�q%=i%��Cu(q%,_%,U%)��Qu(q%,_%,U%) |� }J��Xy(ty%,Wy%):�by%,l%,py%:by%=ty%?yu%:l%=ty%?ru%:�Wy%<>-1�?ty%=ty%?Wy% ~ty%?&B=by%:ty%?5=l%:� ���Cu(q%,_%,U%):T%=�:�A%,a%,Q%,Y%,ol%,Ca%,Ja%:ș46,40+256,h%,"ring"�,,,Ca%,Ja%:ș&400E6,1:�d(_%,U%,5,-Uy%):�d(_%+sJ%+40+40,U%,5+5,-Uy%-5):�d(_%,U%,ay%,-5):�d(_%,U%-Uy%-5,ay%,5+5):ș&400ED,256,h%,"cover",,,,J%,J%+&80:�Xy(J%+&80,-1) ��ș46,52+256,h%,"cover_tl",_%+5,U%-5-40,0,J%,J%+&80:ș46,52+256,h%,"cover_tr",_%+ay%-5-40,U%-5-40,0,J%,J%+&80:ș46,52+256,h%,"cover_bl",_%+5,U%-Uy%+5,0,J%,J%+&80:ș46,52+256,h%,"cover_br",_%+ay%-5-40,U%-Uy%+5,0,J%,J%+&80:�A%=U%-5-40-40�U%-Uy%/2�-40 ��ș46,52+256,h%,"cover_l",_%+5,A%,0,J%,J%+&80:ș46,52+256,h%,"cover_r",_%+ay%-5-40,A%,0,J%,J%+&80:�:�A%=U%-Uy%+5+40�U%-Uy%/2+40�40:ș46,52+256,h%,"cover_l",_%+5,A%,0,J%,J%+&80:ș46,52+256,h%,"cover_r",_%+ay%-5-40,A%,0,J%,J%+&80:� ���A%=_%+5+40�_%+ay%/2�40:ș46,52+256,h%,"cover_t",A%,U%-5-40,0,J%,J%+&80:ș46,52+256,h%,"cover_b",A%,U%-Uy%+5,0,J%,J%+&80:�:�A%=_%+ay%-5-2*40�_%+ay%/2-40�-40:ș46,52+256,h%,"cover_t",A%,U%-5-40,0,J%,J%+&80 ��ș46,52+256,h%,"cover_b",A%,U%-Uy%+5,0,J%,J%+&80:�:�A%=U%-Uy%+40�U%-m%-t%*zy%�40:ș46,52+256,h%,"cover",_%+k_%,A%,0,J%,J%+&80:�:�A%=U%-5-40-40�U%-5-40-zy%*t%-40�-40:ș46,52+256,h%,"cover",_%+ay%-5-80,A%,0,J%,J%+&80:� �Q�F(_%+`y%,U%-m%,&64,-k%)�ș&400E6,2:ȓȐ_%+`y%+32,U%-m%-40,&64-2*32-2,-k%+80 ��ș46,52+256,h%,"cover",_%+ay%-5-80,U%-Uy%+40,0,J%,J%+&80:ș46,52+256,h%,"cover",_%+`y%+32,U%-m%-40,0,J%,J%+&80:ș46,52+256,h%,"cover",_%+`y%+32,U%-Uy%+40,0,J%,J%+&80:ș46,52+256,h%,"fold",_%+`y%-&64/4,U%-m%-k%-40,0,J%,J%+&80 ��ș46,52+256,h%,"fold",_%+`y%+5*&64/4-6,U%-m%-k%-40,0,J%,J%+&80:ș46,33+256,h%,"fold":ș46,52+256,h%,"fold",_%+`y%-0.3*&64,U%-m%,0,J%,J%+&80:ș46,52+256,h%,"fold",_%+`y%+1.3*&64-6,U%-m%,0,J%,J%+&80:ș46,33+256,h%,"fold" ��ș&400ED,256,h%,"cover",,,,J%,J%+&80:ș46,52+256,h%,"mid_b",_%+`y%+&64/2-17,U%-Uy%+76,8,J%,J%+&80:ș46,52+256,h%,"mid_t",_%+`y%+&64/2-17,U%-m%-40,8,J%,J%+&80:ș&40081,,"Homerton.Medium",&96,&96�ol%:�A%=1�B_%:�t%<A%� �&�F(_%+sJ%,U%-m%-(zy%*A%),40,zy%)� �n�cu(_%+sJ%,U%-m%-(zy%*A%),D%(A%)):�V(D%(A%),I%(A%)):�jy(ol%,M$(A%),0,0,_%+sJ%+40/2,U%-m%-(zy%*(A%-0.5)),1) �� �(�:�F(_%+k_%,U%-m%-(zy%*A%),40,zy%)� �r�xu(_%+k_%+40,U%-m%-(zy%*A%),D%(A%)):�V(D%(A%),I%(A%)):�jy(ol%,M$(A%),0,0,_%+k_%+40/2,U%-m%-(zy%*(A%-0.5)),-1) �� ���:�:ș&400E6,0:�d(_%+wy%-32,U%-m%,u%+32,-k%):�d(_%+my%,U%-m%,u%+32,-k%):ș&400E6,6:ȓ_%+wy%-32,U%-m%,u%+32,-k%:ȓ_%+my%,U%-m%,u%+32,-k%:a%=_%+`y%+&64/2:Y%=U%-m%-k%/(OJ%+1):�A%=1�OJ%:�F(a%-40-8,Y%-&C,2*(40+8),40+&C)�(qu%�1<<(A%-1))>0� �Yș&400ED,256,h%,"ring",,,,J%,J%+&80:ș46,52+256,h%,"ring",a%-Ca%,Y%-Ja%/2,8,J%,J%+&80 �T�:Y%-=�f(k%/(OJ%+1)):�:�t%>0��F(_%+my%,U%-m%,u%+32,-k%)��Au%��oy(0,_%+my%,U%-m%) �;�F(_%+wy%-32,U%-m%,u%+32,-k%)��Au%��oy(1,_%+wy%,U%-m%) �ș&40082,ol%:� �A��I(y%,_%,U%):ș&400ED,256,h%,"corner",,,,J%,J%+&80:�y%�_%+=1 �!�y%=1��F(_%+u%,U%-k%,-32,32)� ��ș46,47+256,h%,"corner":ș46,52+256,h%,"corner",_%+u%-16*2,U%-k%+2,8,J%,J%+&80:ș46,47+256,h%,"corner":�B_(_%+u%-32,U%,N%(1)) ��:�y%=0� ��F(_%,U%-k%,32,32)� �Eș46,52+256,h%,"corner",_%+2,U%-k%+2,8,J%,J%+&80:�B_(_%,U%,N%(0)) �� ��:� �9��B_(_%,U%,�gy%):!J%=i%:�gy%>=0�J%!4=gy%:ș&400C4,,J% ��ș&400CB,,J%:J%!4=_%-J%!4:J%!8=U%-J%!16-k%:J%!&C=J%!4+32:J%!16=J%!8+32:J%!20=&7003119:J%!24=sl%:J%!32=0:�y%�J%!28=Ki%�J%!28=Yi% �ș&400C2,,J%�gy%:� �1��Zu:!J%=i%:�N%(0)>=0�J%!4=N%(0):ș&400C4,,J% �%�N%(1)>=0�J%!4=N%(1):ș&400C4,,J% � N%()=-1:� ����Qu(q%,_%,U%):�R%,A%,ty%:!J%=q%:J%!4=8:ș&400CE,,J%:_%+=(J%!8+J%!16)/2:U%+=(J%!&C+J%!20)/2:R%=56:ș&400E6,1:ȓȐ0,0,&BB8:ș&400E6,X%(0):ȏȐ_%,U%,R%:ș&400E6,X%(3):�A%=0�330�30:�_%+R%*��A%,U%+R%*��A%,_%+(R%-&A)*��A%,U%+(R%-&A)*��A%:� ��ș&400E6,X%(1):ȏ_%,U%,R%:ș&400E6,X%(5):A%=60:�_%,U%:�_%+(R%*0.35)*��(A%-9),U%+(R%*0.35)*��(A%-9):�85,_%+(R%*0.35)*��(A%+9),U%+(R%*0.35)*��(A%+9):�_%+(R%*0.35)*��(A%-9),U%+(R%*0.35)*��(A%-9):�85,_%+(R%*0.7)*��A%,U%+(R%*0.7)*��A% ��ș&400E6,X%(4):A%=300:�_%,U%:�_%+(R%*0.25)*��(A%-9),U%+(R%*0.25)*��(A%-9):�85,_%+(R%*0.25)*��(A%+9),U%+(R%*0.25)*��(A%+9):�_%+(R%*0.25)*��(A%-9),U%+(R%*0.25)*��(A%-9):�85,_%+(R%*0.5)*��A%,U%+(R%*0.5)*��A% ��ș&400E6,X%(6):�_%,U%:�BY0,-(R%*0.9):ȏȐ_%,U%,2:_%-=(J%!8+J%!16)/2:U%-=(J%!&C+J%!20)/2:R%=56:!J%=q%:J%!4=24:ș&400CE,,J%:_%+=(J%!8+J%!16)/2-20:U%+=(J%!&C+J%!20)/2-20:R%=56:ș&400ED,256,h%,"cover",,,,J%,J%+&80:ty%=J%+&80 ��A%=ty%?ku%:ty%?5=ty%?hu%:ty%?&B=A%:ș46,52+256,h%,"cover_tl",_%-40,U%+40,0,J%,J%+&80:ș46,52+256,h%,"cover_tr",_%+40,U%+40,0,J%,J%+&80:ș46,52+256,h%,"cover_bl",_%-40,U%-40,0,J%,J%+&80:ș46,52+256,h%,"cover_br",_%+40,U%-40,0,J%,J%+&80 ��ș46,52+256,h%,"cover_t",_%,U%+40,0,J%,J%+&80:ș46,52+256,h%,"cover_b",_%,U%-40,0,J%,J%+&80:ș46,52+256,h%,"cover_l",_%-40,U%,0,J%,J%+&80:ș46,52+256,h%,"cover_r",_%+40,U%,0,J%,J%+&80:ș46,52+256,h%,"cover",_%,U%,0,J%,J%+&80:� �0ݤt(j%,TJ%):=��A("Day"+�(((j%-1)�7)+1)),TJ%) ��ݤU_(j%,TJ%):�A$,a$:A$=",Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday,":j%=((j%-1)�7)+1:�A$=�A$,�A$,",")+1):j%-=1:�j%=0:a$=�A$,�A$,",")-1):�TJ%>0�a$=�a$,TJ%) �=a$ ��ݤYy(Vl%,TJ%):�A$,s$:A$=",January,February,March,April,May,June,July,August,September,October,November,December,":Vl%=((Vl%-1)�&C)+1:�A$=�A$,�A$,",")+1):Vl%-=1:�Vl%<=0:s$=�A$,�A$,",")-1):�TJ%>0�s$=�s$,TJ%) �=s$ �ݤwy(d%):=�d%+�Ly(d%) �}ݤLy(d%):�A$,Z$,F$,A%,xy%:A$=�A("th"):Z$=�A$,�A$,",")-1):ȕ�A$,",")��xy%:A$=�A$,�A$,",")+1):F$=�A$,�A$,",")-1):�F$,"#")� ����d%,�F$-1)=�F$,2)�xy%=� ���F$=d%�xy%=� � �:�:�xy%� �<ȕ�A$>0��(A$)=35:A$=�A$,�A$,",")+1):�:Z$=�A$,�A$,",")-1) � �:=Z$ �3ݤX(Vl%,TJ%):=��A("Mon"+�(((Vl%-1)�&C)+1)),TJ%) �%ݤpy(n%,r%,Lu%,f_%):�A$,Z$:�f_%� �*�n%>&B�Z$=" "+�A("pm")�Z$=" "+�A("am") ��:�n%>&C��f_%�n%-=&C �&�f_%�A$=�-(n%<&A),"0")��n%=0�n%=&C �HA$+=�n%+":"+�-(r%<&A),"0")+�r%:�Lu%<>-1�A$+=":"+�-(Lu%<&A),"0")+�Lu% � =A$+Z$ ����HJ(p$,Zy$,Fy$,ha%):H$=p$:T$=Fy$:`u%=0:Vu%=�:P$=Zy$:v_%=0:r_%=0:Tu%=�:Iy%=�:ș&400C0,&C8,&4B534154,H$�ba%,vu%:�FJ:�ha%��tu(ta%,v$+".Templates") � �n_:�Yu:� ���yu:�S%:ȎK%!16� ��0:Vu%=� ��1:�_J(K%!40,�N(K%+44)) ��3:�o_(K%!40,�N(K%+44)) � �8:�ZJ �"�&400C0:�Vu(K%!20,K%!24,K%!28) ��&400C1:�P_ �$�&400C2:�N(K%+28)=H$�K%!4<>vu%� ��B(�A("ErrRun")):�gJ(K%!4) �� ��&400CC:ȎK%!20� ��i%:$(K%+36)=�A("Title") � �f%,Ry%:$(K%+36)=�A("Alarm") ��sy%:$(K%+36)=�A("Date") � �T_%:$(K%+36)=�A("Settings") �"�_y%,GJ%:$(K%+36)=�A("AnnTab") � �Jy%:$(K%+36)=�A("Setclock") �K�:!K%=56:$(K%+28)="org":S%=K%!4:K%!4=vu%:ȔK%!8,K%!&C:ș&400E7,17,K%,S% ��:� �?ݤQy(Bl%,S$):ș&400CF,,J%:=((Bl%=&FFF)�(Bl%=&DFE))�J%!&C=f% �"��o_(Bl%,S$):�w%:�Qy(Bl%,S$)� �8ȔK%!8,K%!&C:K%!16=4:ș&400E7,17,K%,K%!4:�J%!&C<>f%� ��Gy%<>-1��i �R�"Copy "+S$+" "+P$+".Import ~c ~v f":�S$="<Wimp$Scrap>"��"Remove <Wimp$Scrap>" ��RJ(P$+".Import") ���u_(S$) �� ��:� �8ݤly(ya%,hy%):�Zy%,A%:Zy%=-1:�ky%=A%(6)�U_%>1�U_%<6� �)�!ya%=0�A%=�_(ky%,U_%)�A%=�u(ky%,U_%) �%�W(Ay%,0,-1):Zy%=Ay%:�S(Ay%,A%,1) � �:=Zy% �ݤCy:�hy%,R%,A$,Z$:�vy%� �qA$=�A("QButtons"):Z$=�A("ErrSave"):!J%=0:$(J%+4)=Z$:ș&400DF,J%,280,"Message from "+H$,w$,-1,A$�,R%:�R%=3��Py ��:=R%<>4 ���P_�za%,aa%,M%:�(Oy%�4)>0� ��Hy(�)�M%=20�M%=&C �ș&2002E,281,h%,"clock":ș53,M%,4�,,za%:ș53,M%,5�,,aa%:ș46,8+512,h%�,,,,,F%:ș46,271,h%,"clock",0,&74/(1<<za%),&78/(1<<aa%),M%:�m ��:� �I��e(q%,s%,g%,Yy%,ry%)�A%,B%,A$,H_%:K_%=t%:w_%=v%:H_%=1+2*(g%=1):Ȏq%� �W�i%:!K%=i%:ș&400CB,,K%:_%=K%!4-K%!20:U%=K%!16-K%!24:�m_(s%,g%,Yy%-_%,ry%-U%,_%,U%) � �-2:Ȏg%� ��1:�s(Dy%,fy%,My%) �(�2:LJ%=-1:�F(kJ%,Yy%,�Vy(kJ%),q%,s%) ��4:Ȏ�� �ɦ-1:�Ty%=0��Uy��Iy �ɦ-3:MJ%=5:�h ��r(i%,-1,-1) �� �� ��sy%:Ȏs%� �9�0:�W(z_%,0,-1):�S(z_%,PJ%-1,�):�F(z_%,Yy%,ry%,q%,s%) �1�2,3:�Dy(-1,-1,(1+2*(s%=2))*H_%*(1-49*(�-1))) ��35:�ny:�g%<>1��X(sy%) ��36:�X(sy%) �:�g%=2� �6�W(z_%,0,-1):�S(z_%,PJ%-1,�):�F(z_%,Yy%,ry%,q%,s%) ���Dy(s%-3,-1,0):�g%<256��ny �� �� ��Jy%:�g%<>2� � Ȏs%� � �1:�e(Jy%,9+�Z(Jy%,1),4,0,0) ��2:�`(X_%,V_%,L_%,Jy%,s%) �#�3:�Xy(��M(Jy%,4),��M(Jy%,5))� ��j<>�Z(Jy%,1)��My(-1) ��A%=��M(Jy%,4):A$=�A%:A$=�2-�A$,"0")+A$:$J%=�24+�U_(�H(X_%,V_%,L_%),3)+","+�-(X_%<&A),"0")+�X_%+" "+�Yy(V_%,3)+" "+�L_%+"."+A$+":"+�M(Jy%,5)+":00":ș&20007,&F,J%�;B%:�g%=4��X(Jy%) �� V�8:A%=��M(Jy%,4)+H_%:�A%=24�A%=0:�P(X_%,V_%,L_%,1,0,0):�A(Jy%,2,�U(X_%,V_%,L_%,�)) C�A%=-1�A%=23:�P(X_%,V_%,L_%,-1,0,0):�A(Jy%,2,�U(X_%,V_%,L_%,�)) �A(Jy%,4,�A%) X�9:A%=��M(Jy%,4)-H_%:�A%=-1�A%=23:�P(X_%,V_%,L_%,-1,0,0):�A(Jy%,2,�U(X_%,V_%,L_%,�)) A�A%=24�A%=0:�P(X_%,V_%,L_%,1,0,0):�A(Jy%,2,�U(X_%,V_%,L_%,�)) �A(Jy%,4,�A%) H�&A,&C:A%=��M(Jy%,5)+(1-9*(s%=&A))*H_%:�A%>59�A%-=60:�e(Jy%,8,4,0,0) �A%<0�A%+=60:�e(Jy%,9,4,0,0) �A(Jy%,5,�2-��A%,"0")+�A%) H�&B,&D:A%=��M(Jy%,5)-(1-9*(s%=&B))*H_%:�A%>59�A%-=60:�e(Jy%,8,4,0,0) �A%<0�A%+=60:�e(Jy%,9,4,0,0) �A(Jy%,5,�2-��A%,"0")+�A%) � � �f%:�pu(Yy%,ry%,q%,s%,H_%) �Ry%:�`J(Yy%,ry%,q%,s%) �Mu%:�U_ �_y%:�rJ(s%,Yy%,ry%) "�T_%,Ty%:�Hu(q%,s%,g%,Yy%,ry%) �GJ%:�X_ �Gy%:�i_(q%,s%,g%,Yy%,ry%) �XJ(q%,s%,g%,Yy%,ry%) �:�By:� D��m_(s%,g%,a%,Q%,i_%,qJ%):�oa%,ia%,A%,VJ%:A%=g%-3-(g%=1):�g%<>2� �s%>=0�g%<>2� Ȏs%� �N%(0):�K_(-A%) �N%(1):�K_(A%) �p_(s%) � $�:�A%=1�B_%:�t%<A%�X%=sJ%�X%=k_% $�m(a%,Q%,X%,-m%-A%*zy%,40,zy%)� �g%<>2�t%=A%:v%=S%(t%) !�:� "� #K�:�(s%=-1�g%=2)��m(a%,Q%,my%,-m%,u%,-k%)��iy(g%,�,a%-my%,Q%+m%,i_%,qJ%) $I�(s%=-1�g%=2)��m(a%,Q%,wy%,-m%,u%,-k%)��iy(g%,�,a%-wy%,Q%+m%,i_%,qJ%) % �g%=2� &(�T%(t%)<>-1��F(T%(t%),Yy%,ry%,q%,s%) '��VJ%��C(i%,-1) (�:� )��By:�K_%=t%� *#�v%<>w_%�J_%=0�J_%=1+2*(v%<w_%) +(��Q_(K_%):�C(i%,-1):J_%=1+2*(t%<K_%) ,�:�(mJ%�J_%<>0)�Iy%��K -.S%(K_%)=w_%:S%(t%)=v%:�K_%<>t%��my(t%):�Iu .� /P��K:�Zu:�Ru(J_%):�N(i%,my%,-m%,my%+u%,-m%-k%):�N(i%,wy%,-m%,wy%+u%,-m%-k%):� 0a��Iu:�N(i%,k_%,-m%,k_%+40,-m%-k%):�N(i%,sJ%,-m%,sJ%+40,-m%-k%):�N(i%,`y%,-m%,`y%+32,-m%-k%):� 1&��r(q%,dJ%,al%):�A%:A%=Iy%:�q%=i%� 2 �eJ%<>-1� 3i!J%=i%:ș&400CB,,J%:J%!4=eu%:J%!8=su%-Uy%:J%!&C=eu%+ay%:J%!16=su%:J%!28=dJ%:ș&400C5,,J%:�z(i%,dJ%,0) 4��z(q%,dJ%,al%) 5�:�A%��C(i%,-1) 6��z(q%,dJ%,al%) 7�:� 8��Ru(A%):�Su%�A%<>0� 9��du%,a%,_%,U%,py%,`%,R%,C%:!J%=i%:ș&400CB,,J%:_%=J%!4-J%!20:U%=J%!16-J%!24:py%=_%+wy%-(&64)�2:`%=(&64/2-32):R%=u%+&64/2:ș&40742,0�C%:C%+=3<<4:�a%=0�&B4�&F:�ky(a%,A%):T%=�:���>T%+1:�ky(a%,A%):� :�:� ;J��ky(a%,A%):!J%=i%:J%!4=0:J%!8=-Uy%:J%!&C=ay%:J%!16=0:�A%=-1�a%=&B4-a% <�ș&400C9,,J%�du%:ȕdu%:ș&400E6,C%:�py%+`%*��a%,U%-m%+0.2*`%*��a%:�py%+R%*��a%,U%-m%+0.2*R%*��a%:�BY0,-k%:�py%+`%*��a%,U%-m%-k%:�py%+`%*��a%,U%-m%+0.2*`%*��a%:ș&400CA,,J%�du%:�:� =;��yJ�A%,C%,_i%,K_%,w_%,oa%:_i%=�Dy:K_%=t%:w_%=v%:ȎbJ%� >�kJ%:Ȏ!K%� ?�0 @�1:�s(Dy%,fy%,My%) A��2:!K%=-1:K%!4=j_%:ș&400CE,,K%:!J%=Jy%:ș&400CB,,J%:J%!4=K%!16-(J%!&C-J%!4):J%!&C=K%!16:J%!16=&88+(J%!16-J%!8):J%!28=-1:ș&400C5,,J%:�A(Jy%,2,�U(Dy%,fy%,My%,-1)):X_%=Dy%:V_%=fy%:L_%=My%:�A(Jy%,4,äc):A%=�i:�A(Jy%,5,�2-��A%,"0")+�A%) B.ș6,&A1,&DC�,,A%:�Z(Jy%,1,�((A%�&80)=&80)) C�3:�K%!4>-1� D,�W(Wl%,0,-1):�S(Wl%,K%!4,1):wu%=K%!4:�qy E��qy F� G�4:�Ty%=0��Uy��Iy H �5:�Py I�6:Vu%=�Cy J� K�T%(t%):�hu(K%,t%) L�z_%:�Dy(-1,!K%,0) M�Xl%:Ȏky%� N$�f%:nJ%=!K%:�!K%>0�C%=!K%�C%=n_% O�A%=16�18:�D(f%,A%,C%):� P%�_y%:Zi%=!K%:�!K%=0�A%=SJ%�A%=!K% Q�D(_y%,4,A%) R� S�Zl%:�WJ(U_%,!K%) TC�iJ%:U%(0)=!K%:�Fy(A%(6),18,U%()):�W(iJ%,0,-1):�S(iJ%,U%(0),-1) U:Ȏky%� V�A%(6):ȎU_%� W�2,3,4,5:�K%!4<>-1� X,�!K%=0��D(ky%,U_%,K%!4)��g(ky%,U_%,K%!4) Y �W(Ay%,0,-1):�S(Ay%,K%!4,-1) Z� [}�9,&A,&B,&C,&D,&E,&F:X%(U_%-9)=!K%:�W(Ay%,0,-1):�S(Ay%,!K%,-1):!J%=ky%:J%!4=8:ș&400CE,,J%:�N(ky%,J%!8,J%!20,J%!16,J%!&C) \H�20,21:U%(U_%-19)=!K%:�W(Ay%,0,-1):�S(Ay%,!K%,-1):�Fy(A%(6),18,U%()) ]��25:A$=�A("Cov"+�(!K%+1)):A$=�A$,�A$,",")+1):ku%=�A$:A$=�A$,�A$,",")+1):hu%=�A$:!J%=ky%:J%!4=24:ș&400CE,,J%:�N(ky%,J%!8,J%!20,J%!16,J%!&C) ^f�26:�W(Ay%,0,-1):ku%=!K%:�S(Ay%,!K%,1):!J%=ky%:J%!4=24:ș&400CE,,J%:�N(ky%,J%!8,J%!20,J%!16,J%!&C) _f�27:�W(Ay%,0,-1):hu%=!K%:�S(Ay%,!K%,1):!J%=ky%:J%!4=24:ș&400CE,,J%:�N(ky%,J%!8,J%!20,J%!16,J%!&C) `� a�Ty%:�vJ(K%) b�f%,Ry%:�A_(bJ%,K%) c�dJ(bJ%,K%) d� e �:�_i%��F(bJ%,-1,-1,ky%,U_%) f �By:� g��qy:�A$,A%:Ȏwu%� h$�1:�"Filer_Run "+P$+".!HTMLHelp" i*�2:ș&2001E,18,"StrongHelp"�;A%:�A%�1� j�b("StrongHelp$Dir")� kRș&400DE,"<StrongHelp$Dir>.!Run":�"StrongHelp <Organiser$Dir>.Organiser !Root" l��B(�A("ErrStrong")) m� n2�"StrongHelp <Organiser$Dir>.Organiser !Root" o� p�"Filer_Run "+P$+".!Help" q�:� r;��F(Zy%,a%,Q%,x%,Fy%)�A%:�(Zy%=kJ%�Zy%=T%(t%))�Zy%<>-1� sB�S(Ql%,0,cy%=1):�S(Ql%,1,cy%=2):�A%=0�2:�T(wi%,A%,-(LJ%<=0)):� t5�:ș&400D4,,Zy%,a%-64,Q%:bJ%=Zy%:ky%=x%:U_%=Fy%:� u@��Mu(q%,s%,By%)�w_%,oa%,A%,B%,A$,Z$:K_%=t%:w_%=v%:o%=�:Ȏq%� v�i%:o%=�ny(s%,By%) w�-1 x�T_%,Ty%:o%=�M_(q%,s%,By%) y�Jy% zo%=�cy(q%,s%,By%) {�:�o%=�� |o%=�:ȎBy%� }�27:�Ty%<>0��b ~�385:�qy �386:�Ty%=0��Uy��Iy ��387:�Py ��81-65+1:Vu%=�Cy ��83-65+1:o%=�:�s%<>-1�Iu%� �?ș&400D3,,K%:A%=K%!20:Z$=�M(q%,s%):�A%>0�A$=�Z$,A%,1)�A$="" �)�(A$>="A"�A$<="Z")�(A$>="a"�A$<="z")� �8Z$=�Z$,A%-1)+�((�A$)�32)+�Z$,A%+1):o%=�:�A(q%,s%,Z$) �� �� � o%=� �6�:�By%>=401�By%<=400+B_%�t%=By%-400:v%=S%(t%):o%=� ��:�By:�o%�ș&400DC,By% �wJ%=�z:� �R��C(q%,s%):!J%=q%:J%!4=s%:ș&400CE,,J%:ș&400D2,q%,s%,,,-1,��N(J%!28):wJ%=�z:� �;ݤz:ș&400D3,,J%:=(!J%<<16)�(J%!4�&FF)�((J%!20�&FF)<<8) �7��q(A$):ȕ�A$,1)=" ":A$=�A$,2):�:�A$<>""�G$+=A$+�&D �� �S��ou:ș&400D3,,K%:�!K%<>i%�!K%<>Cy%�Z%(t%)=2�!K%<>-1�ș&400DC,��G$,1):G$=�G$,2) �� �&��U_:!J%=Mu%:ș&400C3,,J%:gu%=-1:� �6��Oy:Au%=�:�wy(0,0,0,0,0,�,�):�w(0):Au%=�:XJ%=-1:� �,��R_(ei%,q%,a%,Q%,wl%,Ji%,Pi%):�Su%�Iy%� �_XJ%=q%:r_%=ei%:Gl%=a%:zl%=Q%:Tu%=wl%:ul%=Ji%:ml%=Pi%:!J%=20:J%!&C=0:ș&400E7,0,J%,vu%:Au%=� �)��wy(ei%,q%,a%,Q%,wl%,Ji%,Pi%):XJ%=-1 ��:� �2��Ku:�wy(r_%,XJ%,Gl%,zl%,Tu%,ul%,ml%):�XJ%=Cy% �XJ%=-1:Au%=�:� ����Uy:�A%,x%,n%,A$:A%=A%(1):�Z(A%,1,-x_%):�Z(A%,2,-iu%):�Z(A%,3,-bu%):�Z(A%,4,-Su%):�Z(A%,7,-((Oy%�9)=0)):�Z(A%,8,-((Oy%�4)>0)):�Z(A%,9,-((Oy%�5)=1)):�Z(A%,22,-((Oy%�8)=8)):�Z(A%,23,-(xJ%=-1)):�Z(A%,&A,-((Oy%�2)>0)):�Z(A%,&B,-f_%) ���Z(A%,24,-((Oy%�16)=16)):�A(A%,25,N$):�Z(A%,&F,-Ju%):�Z(A%,16,-Zu%):�Z(A%,&E,-(eJ%=-1)):�Z(A%,19,-(eJ%<>-1)):�Z(A%,20,-(b_%=-1)):�Z(A%,21,-�(JJ%)):�M(A%,&B,��(�Z(A%,9)���Z(A%,24))):�M(A%,&A,��(�Z(A%,8)�(�Z(A%,9)���Z(A%,24)))):�M(A%,24,���Z(A%,9)) ���M(A%,25,��(�Z(A%,9)��Z(A%,24))):�x%=OJ%-1�0�-1:A$+=�((qu%>>x%)�1):�:�A(A%,18,A$):�Z(A%,28,-Iu%):�Z(A%,29,-Gu%):�M(A%,29,-��Z(A%,22)):�A(A%,27,B$):�Z(A%,32,-(Ky%?3=1)):�x%=33�34:�M(A%,x%,-(Ky%?3=0)):�:�Z(A%,33,-(Ky%?2=0)):�Z(A%,34,-(Ky%?2=1)) ���A(A%,36,�2-��Ky%?1,"0")+�Ky%?1+"00"):�A(A%,39,�2-��Ky%?0,"0")+�Ky%?0+"00"):ku%=yu%:hu%=ru%:�x%=35�42:�M(A%,x%,-((Ky%?3=0)�(Ky%?2=0))):�:�A(A%,&D,D$):�Xu:!J%=T_%:ș&400CB,,J%:x%=J%!&C-J%!4:n%=J%!16-J%!8:J%!4=(�g-x%)/2:J%!16=�d-(�d-n%)/2 �J%!28=-1:ș&400C5,,J%:�ey(1):X%()=P%():U%()=H%():�Fy(A%(6),18,H%()):�A%=2�5:�g(A%(6),A%,D%(A%-1)):�D(A%(6),A%,I%(A%-1)):�:� �a��Iy:!J%=Ty%:ș&400CB,,J%:J%!28=-1:ș&400C5,,J%:!J%=T_%:ș&400CB,,J%:J%!28=Ty%:ș&400C5,,J%:� ����ly:�A%,C%,A$:A%=A%(1):B%=Oy%:x_%=�Z(A%,1):iu%=�Z(A%,2):bu%=�Z(A%,3):Su%=�Z(A%,4):D$=�M(A%,&D):f_%=�Z(A%,&B):Oy%=-�Z(A%,9)-5*�Z(A%,8)-8*�Z(A%,22)-2*�Z(A%,&A)-16*�Z(A%,24):Ju%=�Z(A%,&F):Zu%=�Z(A%,16):�zJ(��Z(A%,21)) ��eJ%=�Z(A%,&E):xJ%=�Z(A%,23):N$=�M(A%,25):Iu%=�Z(A%,28):Gu%=�Z(A%,29):!Ky%=((��M(A%,36)�&64)<<8)+(��M(A%,39)�&64):!Ky%+=(((-�Z(A%,32))<<24)+((-�Z(A%,34))<<16)):�eJ%� �=!J%=i%:ș&400CB,,J%:eu%=J%!4:nl%=J%!8:gl%=J%!&C:su%=J%!16 �)�:C%=�Z(A%,20):�C%<>b_%�b_%=C%�b_%=C% �A$=�M(A%,18):�A$=""�A$="1" �JOJ%=�A$:qu%=�("%"+A$):P%()=X%():H%()=U%():A$=�M(A%,27):�A$<>B$��Lu(A$) �m�A%=2�5:D%(A%-1)=�u(A%(6),A%):I%(A%-1)=�_(A%(6),A%):�:yu%=ku%:ru%=hu%:�au:�Iy%�ș&400D1,i%,0,-&BB8,&BB8,0 �MJ%=0:�h:�m:�h:� �^��Lu(A$):w%=�"<Organiser$Dir>.Resources.!Language":�#w%,A$:�#w%:w%=0:�B(�A("ErrReload")):� �)��ey(I%):�Ty%<>0�!J%=Ty%:ș&400C6,,J% ��!J%=T_%:ș&400CB,,J%:Ty%=A%(I%):!J%=Ty%:J%!4+=22:J%!16-=70:J%!8=J%!16-272:ș&400C5,,J%:!J%=T_%: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��PJ:!J%=Ty%:ș&400CB,,J%:J%!4=K%!4+22:J%!16=K%!16-70:J%!8=J%!16-272:J%!28=K%!28:ș&400C5,,J%:K%!28=Ty%:ș&400C5,,K%:� �"��Hu(q%,s%,g%,a%,Q%):�A%:Ȏq%� ��T_%:Ȏs%� ��1,2,3,4,5,6:�ey(s%) � �8:�b ��9:�ly:vy%=-1:�g%<>1��b ��&A:�ly:�W_:�g%<>1��b �� ��A%(1):Ȏs%� �(�&F:�g%<&A�g%<>2��B(�A("ErrReload")) ��7,8,9,22,&E,19:�g%<>2� ���Z(q%,s%,1):�M(q%,&B,��(�Z(q%,9)���Z(q%,24))):�M(q%,&A,��(�Z(q%,8)�(�Z(q%,9)���Z(q%,24)))):�M(q%,24,���Z(q%,9)):�M(q%,25,��(�Z(q%,9)��Z(q%,24))):�M(q%,29,-��Z(q%,22)) �� �G�24:�M(q%,25,���Z(q%,24)):�M(q%,&A,��Z(q%,24)):�M(q%,&B,��Z(q%,24)) ��27:�w_(A%(1),27) �[�32:�A%=33�34:�M(q%,A%,-��Z(q%,32)):�:�A%=35�42:�M(q%,A%,-((��Z(q%,32))�(�Z(q%,33)))):� �7�33,34:�Z(q%,s%,1):�A%=35�42:�M(q%,A%,-�Z(q%,33)):� �/�35,38:A%=��M(q%,s%+1)-&64:�A%=-&64�A%=&8FC � �A(q%,s%+1,�4-��A%,"0")+�A%) �,�37,40:A%=��M(q%,s%-1)+&64:�A%=&960�A%=0 � �A(q%,s%-1,�4-��A%,"0")+�A%) �� ��A%(6):Ȏs%� �3�2,3,4,5:!oJ%=�qy(A%(6),s%):�F(oJ%,a%,Q%,q%,s%) �M�9,&A,&B,&C,&D,&E,&F:�W(Ay%,0,-1):�S(Ay%,X%(s%-9),-1):�F(Ay%,a%,Q%,q%,s%) �=�19:�W(iJ%,0,-1):�S(iJ%,U%(s%-19),-1):�F(iJ%,a%,Q%,q%,s%) �@�20,21:�W(Ay%,0,-1):�S(Ay%,U%(s%-19),-1):�F(Ay%,a%,Q%,q%,s%) ��25:�F(Ya%,a%,Q%,q%,s%) �7�26:�W(Ay%,0,-1):�S(Ay%,ku%,-1):�F(Ay%,a%,Q%,q%,s%) �7�27:�W(Ay%,0,-1):�S(Ay%,hu%,-1):�F(Ay%,a%,Q%,q%,s%) �� ��aJ(q%,s%,g%,a%,Q%) ��:� �ݤM_(q%,s%,g%):Ȏq%� ��T_%,A%(1):o%=� �o%=�dy(q%,s%,g%) � �:=o% �,��b:�X(Ty%):Ty%=0:�X(T_%):�Iy%��C(i%,-1) �� Ӂ��w_(x%,Fy%):�ql%,m$,Wy%,K$,q$,t$,`%:ql%=1:m$=�M(x%,Fy%):�:ș&C,9,"<Organiser$Dir>.Resources",K%,1,ql%,256,0�,,,`%,ql%:�`%=1� �q$=�N(K%):�t$=""�t$=q$ ��Wy%=��K$=q$ ��q$=m$�Wy%=� �!�:�ql%=-1�K$<>"":�K$=""�K$=t$ ��A(x%,Fy%,K$):� ٺ��`(c%,r%,Q%,x%,Fy%):�M%,A%:_i%=�:�A(sy%,0,�Jy(c%,r%,Q%,-1)):M%=�D(r%,Q%):�A%=29�31:�R(sy%,A%+3,-(A%>M%)):�:�A%=1�M%:�u(A%,A%=c%):�:PJ%=r%:�A(sy%,1,�Q%):�r(sy%,-1,1):Ga%=x%:xa%=Fy%:� �$��ny:�d%,z%,e%,A$:�X(sy%):ȎGa%� �(�f%:�A(f%,1,�o(Q_%,N_%,AJ%)):�O(0,0) �3�e_%:A$=�o(d%,z%,e%):K_%=t%:w_%=v%:�H(d%,z%,e%) �"�Jy%:�A(Jy%,2,�o(X_%,V_%,L_%)) ��:� �\��u(c%,F%):!J%=sy%:J%!4=c%+3:ș&400CE,,J%:$J%!32="R"+�(1-F%)+";F"+�(1-F%)+"7":�F%�au%=c% �7�Ia%�J%!8=0:J%!&C=0�J%!8=(1+�(F%))<<28:J%!&C=&F<<28 �ș&400CD,,J%:� �;��Dy(c%,r%,Qy%):�A%,M%,Q%,A$:�c%<>-1��u(au%,�):�u(c%,�) �5�r%<>-1��S(z_%,PJ%-1,�):PJ%=!K%+1:�S(z_%,PJ%-1,�) �L�Qy%<>0�Q%=��M(sy%,1)+Qy%:�Q%>=&77d�Q%<=&fff��A(sy%,1,�Q%)�Q%=��M(sy%,1) �NM%=�D(PJ%,Q%):�A%=29�31:�R(sy%,A%+3,-(A%>M%)):�:�au%>M%��u(au%,�):�u(M%,�) �"�A(sy%,0,�Jy(au%,PJ%,Q%,-1)):� �Aݤo(�c%,�r%,�Q%):c%=au%:r%=PJ%:Q%=��M(sy%,1):=�U(c%,r%,Q%,-1) �:ݤJy(c%,r%,Q%,py%):�A$:A$=�U(c%,r%,Q%,py%):=�A$,�A$-5) �/��Ay:�Uu%,Hl%,UJ%,KJ%,Na%,p%,n%:lJ%=0:�xJ%� �p%=�Y:n%=�c:Hl%=J%(0,1):Uu%=J%(0,3):Uu%+=J%(0,2)-�H(Uu%,Hl%,My%):KJ%=J%(1,1):UJ%=J%(1,3):UJ%+=J%(1,2)-�H(UJ%,KJ%,My%):hl%=�S(0,1,Uu%,Hl%,My%):kl%=�S(0,2,UJ%,KJ%,My%):Na%=(�B(hl%,p%)<1��B(p%,kl%)<1):�L(Uu%,Hl%,My%)=�L(Dy%,fy%,My%)���j�lJ%=hl% �/�L(UJ%,KJ%,My%)=�L(Dy%,fy%,My%)��j�lJ%=kl% �V�Na%<>�j��L(Uu%,Hl%,My%)<>�L(Dy%,fy%,My%)��L(UJ%,KJ%,My%)<>�L(Dy%,fy%,My%)��My(-1) ��:� ���mJ:�lJ%=kl%��My(0) ��lJ%=hl%��My(1) � �Ay:� �K��FJ:�_$<>""��B("The "+_$+" resources are out of date, using English.") �P$=�C_("Organiser$Dir"):w%=0:Ru%=0:G$="":vy%=�:Ii%=�:XJ%=-1:Au%=�:Y$=P$+".Data.":wJ%=0:h%=�Z_("<Organiser$Dir>.Sprites",&7AC+&C8):�Xa%3,DJ%32,N%(1),Yi%16,Ki%17,sl%1:$Xa%="R2":N%()=-1 �$Yi%="Pptr_turnl,0,10"+�0:$Ki%="Pptr_turnr,23,10"+�0:?sl%=0:$DJ%="":�D%(5),I%(5),B%(5),W%(5),S%(5),Z%(5),M$(5):�P%(7),X%(7),H%(2),U%(2),Ky%4:A$=�fy:Fu%=�:�A$,"-delete_all_data")� ��_y(�A("ErrSure"),�)� �#�B(�A("ErrChange")):Fu%=�:vy%=� �� �A�:�`y:�TJ:�vu:�M_:j_%=-1:�h:s_%=�l(1*&400):�c_(s_%,`u%):�x_%� ��Oy%=1��M(-1,j_%,1) � �w(�1) � �ș&406C0 ��:� �0��Yu:�xJ:v%=S%(t%):�r(i%,-1,-1):�iu%��X(i%) ��Bu%��xy:�Ay �Ru%=�:�my(t%):�Oy%>1��m ��Oy%�1��M(-1,j_%,0) �bu%��r(Mu%,-1,-1)�gu%=-1 �x_%�ș&406C1 �x:�Ay:� 5ݤG(Lu%):�A%:A%=B_%+1:�A%-=1:�Z%(A%)=Lu%�A%=0:=A% ���n_:�A$,S%,F%,L%:�T%(B_%):Ay%=�Py(�A("Cols")):z_%=�C("Mon","Mon",1,&C):�gy(z_%,0,-1):�S%=1�B_%:T%(S%)=�L_(S%):�:kJ%=�C("Title","Menu",1,7):�Y(kJ%,0,Al%):oJ%=�C("TabM","TabM",1,2):Wl%=�C("Helpm","Helpm",1,3):�Y(kJ%,3,Wl%):�S(Wl%,wu%,1) ��Y(oJ%,0,Ay%):�Y(oJ%,1,Ay%):�G_(oJ%,0):�G_(oJ%,1):iJ%=�C("BordM","BordM",1,5):A$=�A("Cov"):S%=1:F%=0:ȕ(F%�1)=0:ș&61502,C_%,"Cov"+�S%,J%,256�,,,L%;F%:S%+=1:�(F%�1)=0�J%?L%=&D:A$+="\"+�$J%,�$J%,",")-1) �:Ya%=�Ay(A$):� ���M_:�A%,ma%,aa%:My%=�R:fy%=�I:Dy%=�T:zy%=�r(k%/B_%):ay%=&64+2*(40+u%+5+40):Uy%=k%+2*(5+40):k_%=5+40:sJ%=k_%+40+&64+2*u%:my%=k_%+40:wy%=my%+&64+u%:m%=5+40:`y%=wy%-&64:Y_%=k%/27::cJ%=u%-40-2*&c:� 0��Au:�B%:�(Uy%<>K%!16-K%!8�ay%<>K%!&C-K%!4)� (�K%!16-K%!8>300�Uy%=�r(K%!16-K%!8)-2 (�K%!&C-K%!4>400�ay%=�r(K%!&C-K%!4)-2 �k%=Uy%-2*(5+40):u%=((ay%-&64)-2*(40+5+40))/2:�M_:ș30,6,,,li%�,,B%:!B%=Cy%:ș&400CC,,B%:ș&400C3,,B%:�ty(B%!88,B%+4):ș&400C1,,B%+4�Cy%:ș30,7,,B%:�Z%(t%)=2�v%=0��Oy:�C_ "ș&400D1,i%,0,-Uy%-&A,ay%+&A,0 �:� `��vu:�A%,`$:�:��:�#w%:w%=0:�B(�$+" at line "+Þ+", using default settings."):�`y:vy%=�:� �w%=�(P$+".Data.Settings"):l$=�#w%:`$=�#w%:D$=�#w%:x_%=�Q:iu%=�Q:Oy%=�V:f_%=�Q:Zu%=�Q:B_%=�V:t%=�V:bu%=�Q:Su%=�Q:xJ%=�Q:Ju%=�Q:Ia%=Ju%:OJ%=�V:�#w%,qu%,_J%:�#w%,eJ%,eu%,gl%,su%,nl%:b_%=�Q:JJ%=�Q:�#w%,u%,k%:�A%=0�6:P%(A%)=�V:�:�A%=0�2:H%(A%)=�V:� ��A%=1�B_%:Z%(A%)=�V:D%(A%)=�V:I%(A%)=�V:�:N$=�#w%:Iu%=�Q:Gu%=�Q:�#w%,!Ky%:yu%=�V:ru%=�V:wu%=�V:��GJ(�#w%,w%):��#w%:�#w%:w%=0:��:Bu%=(�x(_J%)<>�x(�Y)):�Fu%�D$=�A("Yourname") u%=�f(u%):k%=�f(k%):� ���W_:�A%:w%=�(P$+".Data.Settings"):�#w%,T$:�#w%,P$:�#w%,D$:�J(x_%):�J(iu%):�J(Oy%):�J(f_%):�J(Zu%):�J(B_%):�J(t%):�J(bu%):�J(Su%):�J(xJ%):�J(Ju%):�J(OJ%):�#w%,qu%,�Y:�#w%,eJ%,eu%,gl%,su%,nl%:�J(b_%):�J(JJ%):�#w%,u%,k%:�A%=0�6:�J(P%(A%)):� ��A%=0�2:�J(H%(A%)):�:�A%=1�B_%:�J(Z%(A%)):�J(D%(A%)):�J(I%(A%)):�:�#w%,N$:�J(Iu%):�J(Gu%):�#w%,!Ky%:�J(yu%):�J(ru%):�J(wu%):�qu(w%):�#w%:w%=0:� ��Py:�W_:�su:vy%=�:� ���`y:::W_%=�:Bu%=0:Oy%=1+2+4:N$="%z12:%mi:%se %am":H%()=2,2,7:x_%=�:f_%=�:Su%=�:Zu%=�:MJ%=0::::::Ju%=�:b_%=�:B_%=4:I%()=7:D%()=0,&B,&A,&F,9,&E:P%()=0,&F,8,&B,4,4,&B:iu%=�:eJ%=-1:eu%=0:su%=0:gl%=0:nl%=0:JJ%=�:t%=2:Z%()=0,1,3,5,2 �bu%=�:D$="Chris Morison":xJ%=�:Zu%=�:J_%=�::::::u%=500:k%=920:wu%=0:::::::OJ%=8:qu%=&E7:yu%=&B:ru%=5::::Bu%=�:_J%=0::Gu%=�:Iu%=�:!Ky%=71431:� 7ݤoy:�Dl%,x,NJ%:Dl%=�c:Di%=Ky%?1:NJ%=?Ky%:�NJ%<Di%� �Dl%<=NJ%�Dl%+=24 NJ%+=24 H�:=(((Ky%?2=1)�((Dl%<Di%)�(Dl%>=NJ%)))�(Ky%?3=0))��(Ky%?3=1�Ky%?2=0) ݤQ=(�#w%=&FF) ��J(A%)�#w%,A%:� ݤV=�#w% 6��h:�B%,H%,xi%,s%:xi%=j_%:I_%=0:�MJ%>0�B%=8�B%=Oy% ȎB%��(2+16)� �1,8:Ȏ�� !�B%=1:I_%=6-3*�f_% "�B%=3:I_%=9-3*�f_% #�(B%�8)>0:I_%=9:$DJ%=�Uy $�(B%�16)>0:I_%=��Zy(N$)+3 %_�:I_%=I_%*16:Pu%=68:J%!8=0:J%!&C=I_%:J%!16=Pu%:J%!20=&2700313D:J%!24=DJ%:J%!28=Xa%:J%!32=32 &j�1+4:I_%=&74:Pu%=&78:J%!8=-16:J%!&C=I_%:J%!16=Pu%:$DJ%="clock":J%!20=&3102:J%!24=DJ%:J%!28=h%:J%!32=32 'N:I_%=68:Pu%=68:J%!8=0:J%!&C=68:J%!16=68:J%!20=&3002:$(J%+24)="!Organiser" (1�:�j_%<>-1��b_%�!J%=-3:s%=j_%�!J%=-1-�(7*b_%) )CJ%!4=0:ș&400C2,s%,J%�j_%:�xi%<>-1�!J%=-1:J%!4=xi%:ș&400C4,,J% *�(B%�4)=4��P_ +�Fy(-1,j_%,H%()):� ,7��Fy(q%,gy%,K%()):�g_%,A%:g_%=�A_(q%,gy%):�g_%<>-1� -qA%=��N(g_%),"R"):g_%?A%=��K%(0):�D(q%,gy%,K%(2)):�g(q%,gy%,K%(1)):!J%=q%:J%!4=gy%:J%!8=0:J%!&C=0:ș&400CD,,J% .�:� /���ju:�A%,Hy%:�A%(6):Ty%=0:�jJ:Al%=�W("Info",Hy%):i%=�W("Main",Hy%):ki%=Hy%:Cy%=�W("Addresses",Hy%):__%=�W("Important",Hy%):Mu%=�W("Banner",Hy%):sy%=�W("GetDate",Hy%):T_%=�W("Setup",Hy%):f%=�W("AlarmSet",Hy%):Kl%=Hy%:Ry%=�W("AlarmWarn",Hy%) 0�_y%=�W("Anni",Hy%):_a%=Hy%:GJ%=�W("AnniNotify",Hy%):A%(1)=�W("SetGen",Hy%):A%(2)=�W("SetAdd",Hy%):A%(3)=�W("SetAnn",Hy%):A%(4)=�W("SetCal",Hy%):A%(5)=�W("SetDia",Hy%):A%(6)=�W("SetColours",Hy%):Jy%=�W("SetClock",Hy%) 1��A(Al%,3,T$):�A(Al%,0,�A("Title")):�A(Al%,1,�A("Purp")):�A(Mu%,3,�A("Vers")+" "+T$):�A(Mu%,6,"� Chris Morison 19"+�T$,�T$,")")-2,2)):�A(Mu%,4,D$):�A%=1�31:�A(sy%,A%+3,�A%):�:� 2KݤW(L$,�Hy%):�H%,S%,I%,P%,hy%,g_%:ș&400DB,,,0,0,0,L$,0�,S%,I%:�S%>512� 33ș&2001E,6,,,S%�,,P%;hy%:�hy%�1��2,�A("ErrWin") 4 �P%=K% 5?�:�g_%I%:ș&400DB,,P%,g_%,g_%+I%,vl%,L$,0�,,g_%:�L$="Main"� 6>P%!68=&64+(&64<<16):P%!0=0:P%!4=0:P%!8=ay%:P%!&C=Uy%:�JJ%� 7*P%!48=�g:P%!44=-�d:P%!28=P%!28�(3<<29) 8.�P%!48=ay%:P%!44=-Uy%:P%!28=P%!28��(3<<29) 9� :�:�L$="Setup"�va%=S% ;�L$="Addresses"�li%=S% < �:�Ju%�L$<>"Banner"��wu(P%) =!�L$="Addresses"��ty(P%!84,P%) >:P%!64=h%:ș&400C1,,P%�gy%:Hy%=P%!72:�S%>512�ș30,7,,P% ?=gy% @ ��zJ(hy%):�ty%,B%:�hy%<>JJ%� APș30,6,,,4+88+32*22�,,ty%:!ty%=i%:ș&400CC,,ty%:B%=ty%+4:ș&400C3,,ty%:�hy%� B*B%!48=�g:B%!44=-�d:B%!28=B%!28�(3<<29) C.�B%!48=ay%:B%!44=-Uy%:B%!28=B%!28��(3<<29) D5�:B%=i%:JJ%=hy%:ș&400C1,,ty%+4�i%:�r_%=B%�r_%=i% E�Iy%�!ty%=i%:ș&400C5,,ty% Fș30,7,,ty% G�:� 8��_J(Bl%,S$):�Qy(Bl%,S$)� 8XȔK%!8,K%!&C:!K%=256:$(K%+44)="<Wimp$Scrap>"+�0:K%!36=-1:K%!16=2:ș&400E7,17,K%,K%!4 8�:� 8D��Vu(F%,X%,Y%):F%=�ly(K%+32,F%):�F%<>0�F%<>-1�ș&400E8,,F%,X%,Y% 8 � 8 7��ZJ:�Cy<>-1�K%!&C=K%!8:K%!8=0:ș&400E7,19,K%,K%!4 8� 8k��IJ:�du%,_%,U%:ș&400C8,,K%�du%:_%=K%!4-K%!20:U%=K%!16-K%!24:ȕdu%:�s_(!K%,_%,U%):ș&400CA,,K%�du%:�:� 8 ^ݤZ_(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% 8G��k(q%,s%,c%,qy%,qa%):!J%=q%:�:s%+=c%:�s%<qy%�s%=qa%��s%>qa%�s%=qy% 8HJ%!4=s%:ș&400CE,,J%:�(J%!(8+16)>>&C)�&F=&F:�c%=1�c%=0�c%=��M(q%,s%) 8ș&400D2,q%,s%,,,-1,c%:� 8#ݤu(q%,s%):�o_%,`_%:�y(q%,s%)� 8�by(q%,s%,`_%,o_%) 83�!J%=q%:J%!4=s%:ș&400CE,,J%:o_%=(J%!24>>28)�&F 8 �:=o_% 8��g(q%,s%,o_%):�y(q%,s%)� 8�sy(q%,s%,-1,o_%) 8:�!J%=q%:J%!4=s%:J%!&C=&F<<28:J%!8=o_%<<28:ș&400CD,,J% 8�:� 8>ݤy(q%,s%):!J%=q%:J%!4=s%:ș&400CE,,J%:=((J%!24)�(1<<6))>0 8W��sy(q%,s%,`_%,o_%):�P%,A%:!J%=q%:J%!4=s%:ș&400CE,,J%:P%=J%!32:A%=�$P%,"F"):�A%>0� 8�`_%<>-1�?(P%+A%+1)=��~`_% 8�o_%<>-1�?(P%+A%)=��~o_% 8J%!8=0:J%!&C=0:ș&400CD,,J% 8�:� 8���by(q%,s%,�`_%,�o_%):�P%,A%:!J%=q%:J%!4=s%:ș&400CE,,J%:P%=J%!32:A%=�$P%,"F"):`_%=-1:o_%=-1:�A%>0�`_%=�("&"+�?(P%+A%+1)):o_%=�("&"+�?(P%+A%)) 8 � 8!#ݤ_(q%,s%):�o_%,`_%:�y(q%,s%)� 8"�by(q%,s%,`_%,o_%) 8#3�!J%=q%:J%!4=s%:ș&400CE,,J%:`_%=(J%!24>>24)�&F 8$ �:=`_% 8%��D(q%,s%,`_%):�y(q%,s%)� 8&�sy(q%,s%,`_%,-1) 8':�!J%=q%:J%!4=s%:J%!&C=&F<<24:J%!8=`_%<<24:ș&400CD,,J% 8(�:� 8)B��R(q%,s%,hy%):�l%:l%=J%+64:�hy%=1�!J%=q%:J%!4=s%:ș&400CE,,J% 8*e!l%=q%:l%!4=s%:l%!8=(�hy%)<<23:l%!&C=1<<23:ș&400CD,,l%:�hy%=1�ș&400D1,q%,J%!8,J%!&C,J%!16,J%!20 8+� 8,MݤA_(q%,s%):�A%:!J%=q%:J%!4=s%:ș&400CE,,J%:�(J%!24�256)>0�A%=J%!32�A%=-1 8-=A% 8.=��Z(q%,s%,hy%):�A%:!J%=q%:J%!4=s%:A%=1:�hy%=-1�hy%=1:A%=0 8/,J%!8=hy%<<21:J%!&C=A%<<21:ș&400CD,,J%:� 80<ݤZ(q%,s%):!J%=q%:J%!4=s%:ș&400CE,,J%:=-((J%!24>>21)�1) 81=��M(q%,s%,hy%):�A%:A%=1:!J%=q%:J%!4=s%:�hy%=-1�hy%=1:A%=0 820J%!8=hy%*(1<<22):J%!&C=A%<<22:ș&400CD,,J%:� 83h��A(q%,s%,W$):�P%,L%:!J%=q%:J%!4=s%:ș&400CE,,J%:�J%!24�(1<<8)�P%=J%!28:L%=(J%!36)-1:�P%=J%+28:L%=&B 84-$P%=�W$,L%):J%!8=0:J%!&C=0:ș&400CD,,J%:� 85WݤM(q%,s%):�A$:!J%=q%:J%!4=s%:ș&400CE,,J%:�(J%!24�256)>0�A$=�N(J%!28)�A$=�N(J%+28) 86=A$ 87Mݤqy(q%,s%):�A%:!J%=q%:J%!4=s%:ș&400CE,,J%:�(J%!24�256)>0�A%=J%!28�A%=-1 88=A% 892��G_(Zy%,I%):Zy%!(28+24*I%)=Zy%!(28+24*I%)�8:� 8:b��gy(Zy%,L%,H%):Zy%+=4+24*L%:�Zy%+=24:Zy%!8=Zy%!8�8:L%+=1:�((L%>H%)�(H%<>-1))�((!Zy%�&80)>0):� 8;`��W(Zy%,L%,H%):Zy%+=4+24*L%:�Zy%+=24:!Zy%=!Zy%��1:L%+=1:�((L%>H%)�(H%<>-1))�((!Zy%�&80)>0):� 8<]ݤPy(c$):�Zy%,zu%,Fy%:Zy%=�Ay(c$+"\0\1\2\3\4\5\6\7\8\9\10\11\12\13\14\15"):�Fy%=0�&F:Ȏ�� 8=+�Fy%<4,Fy%=9,Fy%=&C,Fy%=&E,Fy%=&F:zu%=7 8> zu%=0 8?5�:Zy%?(39+Fy%*24)=Fy%*16+zu%:�:�gy(Zy%,0,-1):=Zy% 8@�ݤAy(A$):�A%,B%,L%,Z$,I%:A$+="\":�A%4*�gy (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%=�Oy(Z$):B%!4=0:B%!8=&7000021 8A6�Z$,">")�B%!4=��Z$,�Z$,">")+1):Z$=�Z$,�Z$,">")-1) 8BQ�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$ 8C�Z$>L%�L%=�Z$ 8D7A$=�A$,�A$,"\")+1):�:!B%=!B%�&80:A%!16=L%*16+16:=A% 8E�ݤC(c$,i$,L%,H%):�M%,A%,C%,D%,Rl%,A$:�M%28+24* (H%-L%+1):!M%=�h(c$):M%!4=0:M%!8=0:Rl%=��A(c$):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=�h(i$+�C%):A%!16=0:A%!20=0:D%=��A(i$+�C%):�D%>Rl%�Rl%=D% 8F-�:!A%+=&80:M%!28+=256:M%!16=Rl%*16+16:=M% 8G&��Y(M%,I%,S%):M%!(28+24*I%+4)=S%:� 8HݤOy(�Z$):�A%,F%:�:Ȏ��Z$� 8I�"�":A%+=1:Z$=�Z$,2) 8J�"_":A%+=2:Z$=�Z$,2) 8K�"*":A%+=8:Z$=�Z$,2) 8L F%=-1 8M �:�F%:=A% 8N:ݤgy(A$):�A%:ȕ�A$,"\"):A%+=1:A$=�A$,�A$,"\")+1):�:=A% 8O7ݤVy(A%):�H%:A%+=4:�A%+=24:H%+=44:�(!A%�2)>0�H%+=24 8P�(!A%�&80)>0:=H%+96 8Q�ݤzy(Zy%,ca%,W$,Za%,n$):�Si%,g_%:�Si%Za%+1,g_%� (n$)+1:$Si%=W$:$g_%=n$:Zy%+=28+24*ca%:!Zy%=!Zy%�4:Zy%!8=Zy%!8�256:Zy%!&C=Si%:Zy%!16=g_%:Zy%!20=Za%:=Si% 8ReݤMy(Zy%,u$):�A%,B%:B%=Zy%+28:ȕ(u$<>�J(Zy%,A%))�(!B%�&80)=0:A%+=1:B%+=24:�:�u$<>�J(Zy%,A%)�A%=-1 8S=A% 8T��T(M%,I%,F%):�F%<>0� 8U'M%!(36+24*I%)=M%!(36+24*I%)�(1<<22) 8V)�M%!(36+24*I%)=M%!(36+24*I%)��(1<<22) 8W�:� 8X;ݤJ(M%,I%):M%+=28+24*I%:�(M%!8�256)>0�M%=M%!&C�M%=M%+&C 8Y=�N(M%) 8ZW��S(M%,I%,F%):�F%<>0�M%!(28+24*I%)=M%!(28+24*I%)�1�M%!(28+24*I%)=M%!(28+24*I%)��(1) 8[� 8\ݤ`y(M%):�M%!28>&80�M%=!M% 8]=�N(M%) 8^X��g_(M%,I%,F%):�F%<>0�M%!(28+24*I%)=M%!(28+24*I%)�2�M%!(28+24*I%)=M%!(28+24*I%)��(2) 8_� 8`ݤr(A%)=A%-A%�4 8aݤf(A%)=A%-A%�2 8b%ݤDy:ș&400CF,,J%:=(((J%!8)�1)=1) 8c*ݤj:�A%:ș6,&A1,&DC�,,A%:=(A%�&80)=&80 8d'��My(F%):�A%:ș6,&A1,&DC�,,A%:ȎF%� 8e�0:A%=A%��&80 8f�1:A%=A%�&80 8g�-1:A%=A%�&80 8h�:ș6,&A2,&DC,A%:� 8i7ݤd:�A%,B%:ș53,-1,&C�,,A%:ș53,-1,5�,,B%:=(A%<<B%) 8j'ݤHy(M%):�A%:ș53,M%,5�,,A%:=(A%=1) 8kHݤw(H%,S%,F%):�P%,E%,V%,L%,T%:ș&2001D,2,H%,,S%�E%,,P%;V%:�(V%�1)=1� 8l�F%� 8m<P%=�Wy:�p(H%,(S%�P%)*P%-P%*((S%�P%)>0),�):P%=�w(H%,S%,�) 8n�ș43,E% 8o� 8p �:=P% 8qW��fu(H%,�B%,S%,F%):�L%,E%,V%,T%,P%:ș&2001D,4,H%,B%,S%�E%,,B%;V%:V%=((V%�1)=1):Ȏ�� 8r�V%��F%:ș43,E% 8s-�V%�F%�(S%>0):�p(H%,S%,�):�fu(H%,B%,S%,�) 8t�V%�F%�(S%<0) 8uɬV%�F%�(S%<0):�p(H%,-1,�) 8v�:� 8w>��Ly(H%,B%,F%):�A%,hy%:ș29,3,H%,B%�A%;hy%:�F%��p(H%,-1,�) 8x� 8y��p(H%,S%,F%):�P%:�F%� 8z �S%<0� 8{�ș&2001D,5,H%,,-32*&400*&400:S%=H%!&C+H%-&8000:P%=�Wy:ș&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% 8|(�:E%=`u%:F%=�l(S%):ș29,5,H%,,`u%-E% 8}� 8~�ș29,5,H%,,S% 8�:� 8���c_(H%,S%):�S%=-1�S%=`u% 8�ș29,0,H%,,S%:� 8�'��bJ:ș&61504,C_%:ș&2001E,7,,C_%:� 8�X��JJ(k$):�F%:ș&2001E,6,,,17+�k$�,,C_%;F%:�F%�1��2,"Not enough memory for messages." 8�($(C_%+16)=k$:ș&41501,C_%,C_%+16,0:� 8�jݤA(Q$):�F%,L%:ș&61502,C_%,Q$,J%,256�,,,L%;F%:�F%�1�2,"Can't get message '"+Q$+"' from Messages file" 8�J%?L%=&D:=$J% 8�dݤh(Q$):�F%,P%:ș&61502,C_%,Q$,0�,,P%;F%:�F%�1�2,"Can't get message '"+Q$+"' from Messages file" 8�=P% 8��ݤO(Q$,A$,Z$,F$,Ay$):�F%,L%:ș&61502,C_%,Q$,J%,256,A$,Z$,F$,Ay$�,,,L%;F%:�F%�1�2,"Can't get message '"+Q$+"' from Messages file" 8�J%?L%=&D:=$J% 8�Dݤay(Q$,L%,H%,Z$,A$):�M$,A%:�A%=L%�H%:M$+=Z$+�A(Q$+�A%)+A$:�:=M$ 8�1ݤm(a%,Q%,gi%,yi%,x%,n%):�x%<0�gi%+=x%:x%=-x% 8��n%<0�yi%+=n%:n%=-n% 8�8=((a%>=gi%)�(a%<=(gi%+x%))�(Q%>=yi%)�(Q%<=(yi%+n%))) 8�ݤWy:�P%:ș81�P%:=P% 8�Nݤfy:�I$,I%:ș16�I$:I%=�I$," -quit "):�I%�I$=�I$,�I$," ",I%+�" -quit ")+1) 8�=I$ 8�8ݤC_(A$):�L%:ș35,A$,J%,&FF,0,3�,,L%:J%?L%=0:=�N(J%) 8�Yݤb(A$):�L%,F%:ș&20023,A$,J%,&FF,0,3�,,L%;F%:�(F%�1)=0�J%?L%=0:�N(J%)<>""�F%=��F%=� 8�=F% 8�Jݤl(M%):�S%:ș&400EC,-1,-1�S%:ș&400EC,S%+M%,-1�S%:`u%=S%-(�-&8000):=� 8�?ݤN(P%):�A$:ȕ?P%<>0�?P%<>&D�?P%<>&A:A$+=�(?P%):P%+=1:�:=A$ 8�:��gJ(gy%):!J%=256:J%!&C=0:J%!16=0:ș&400E7,17,J%,gy%:� 8�Dݤv(A$):�A%,C%:�A%=1��A$:C%=��A$,A%,1):�C%>=97�C%<=&7A�C%=C%��32 8��A$,A%)=�(C%):�:=A$ 8�7ݤg:�A%,B%:ș53,-1,&B�,,A%:ș53,-1,4�,,B%:=(A%<<B%) 8�X��B(My$):!J%=&FF:$(J%+4)=My$+�0:ș&400DF,J%,17+(1<<8)+(1<<9),"Message from "+H$,w$:� 8�\ݤ_y(A$,R%):!J%=0:$(J%+4)=A$:ș&400DF,J%,23-4*�R%+(1<<8),"Message from "+H$,w$�,R%:=R%-2 8�&ݤey(c%,r%,Q%):=(�L(c%,r%,Q%)+1)�2 8�pݤL(c%,r%,Q%):�Xu%:Qy%=Q%-&77D:Xu%=Qy%*365:Xu%+=Qy%�4-(Q%-&76C-1)�&64+(Q%-&640-1)�400:ȕ(r%-1)>0:r%-=1:Ȏr%� 8��1,3,5,7,8,&A,&C:Xu%+=31 8��4,6,9,&B:Xu%+=30 8��2:Xu%+=28-�By(Q%) 8��:�:=Xu%+c% 8�#ݤH(c%,r%,Q%):=�`(�L(c%,r%,Q%)) 8�ݤD(r%,Q%):�c%:Ȏr%� 8��1,3,5,7,8,&A,&C:c%=31 8��4,6,9,&B:c%=30 8��2:c%=28-�By(Q%) 8� �:=c% 8�.ݤBy(Q%)=((Q%�4=0)��(Q%�&64=0))�(Q%�400=0) 8����P(�d%,�z%,�e%,uy%,Hu%,Qy%):�ii%,wa%,U%:ii%=d%:wa%=z%:U%=e%:d%+=uy%:z%+=Hu%:e%+=Qy%:ȕz%<1:z%+=&C:e%-=1:�:ȕz%>&C:z%-=&C:e%+=1:�:ȕd%<1:z%-=1:�z%<1�z%=&C:e%-=1 8�Hd%+=�D(z%,e%):�:ȕd%>�D(z%,e%):d%-=�D(z%,e%):z%+=1:�z%>&C�z%=1:e%+=1 8�*�:�e%<&77d�e%>&fff�d%=ii%:z%=wa%:e%=U% 8�� 8�ݤ`(j%):=((j%-1)�7)+1 8�OݤU(c%,r%,Q%,TJ%):=�t(�L(c%,r%,Q%),TJ%)+", "+�wy(c%)+" "+�X(r%,TJ%)+" "+�Q% 8����Y_:�C%,P%,C,F,w,Z,M,B,W,Q,a,J,U:�C%&90:C=&D:F=&E:w=&F:Z=2:M=3:B=4:W=5:Q=0:a=1:J=6:U=7:�S%=0�2�2:P%=C%:[OPTS%:.T CMP W,#0:RSBLT W,W,#0:SUBLT M,M,W:CMP B,#0:RSBLT B,B,#0:SUBLT Z,Z,B:ADD U,Z,B:LDR J,[Q,#28]:CMP U,J:BLT N:LDR J,[Q,#36]:CMP Z,J:BGT N 8��LDR J,[Q,#32]:ADD U,M,W:CMP U,J:BLT N:LDR J,[Q,#40]:CMP M,J:BGT N:CMP a,#0:MVNEQ0,#1:�Qpc,F:B q:.N MOV0,#0:MOVpc,F:.q MOV1,Z:MOV2,M:MOV0,#4:SWI 69:MOV1,B:MOV2,W:MOV0,#96+1:SWI 69:MVN0,#1:MOVpc,F:]�:� 8�*ݤF(C%,D%,E%,F%):�A%,B%:A%=K%:B%=0:=�T 8�+��d(C%,D%,E%,F%):�A%,B%:A%=K%:B%=1:�T:� 8�B��X(q%):!J%=q%:ș&400C6,,J%:�q%=r_%�Tu%=�:!J%=v_%:ș&600C6,,J% 8��q%=i%�Iy%=� 8�� 8�@��wu(B%):�N%,A$,Wy%,l%:N%=B%!84:B%+=88:ȕN%:�((B%!16)�64)>0� 8��A$=$(B%!24):l%=�("&"+�A$,�A$,"F")+1,1)):Wy%=�("&"+�A$,�A$,"F")+2,1)):B%!16=B%!16��(64+(&FF<<24)):B%!16=B%!16�(Wy%<<24)�(l%<<28) 8��:B%+=32:N%-=1:�:� 8�=��N(q%,a_%,M_%,G_%,oy%):ș&400D1,q%,a_%,oy%,G_%+2,M_%+4:� 8����z(q%,dJ%,al%):�W%,H%,X%,Y%,Z%:!J%=q%:ș&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%:�al%=-1� 8�JJ%!4=�g/2-W%/2:J%!&C=J%!4+W%:J%!16=�d-((�d-&84)-H%)/2-Y%:J%!8=J%!16-H% 8� �:�al%=1� 8�;ȗX%,Y%,Z%:J%!4=X%-64:J%!&C=J%!4+W%:J%!8=Y%-H%:J%!16=Y% 8�� 8��:�dJ%<>0�J%!28=dJ% 8�ș&400C5,,J%:�q%=i%�Iy%=� 8�6�q%=r_%�Tu%=�:!K%=r_%:ș&400CB,,K%:K%!28=J%!28:�F_ 8�� 8�G��wy(ei%,q%,a%,Q%,wl%,Ji%,Pi%):�v_%<>0�v_%<>q%�!J%=v_%:ș&600C6,,J% 8�Av_%=q%:r_%=ei%:Gl%=a%:zl%=Q%:Tu%=wl%:ul%=Ji%:ml%=Pi%:�v_%<>0� 8�w!J%=v_%:ș&400CB,,J%:Da%=J%!&C-J%!4:La%=J%!16-J%!8:!J%=r_%:ș&400CB,,J%:J%!4+=a%:J%!16+=Q%:�wl%�!J%=q%:ș&400C5,,J% 8��:� 8���F_:�v_%<>0�!K%=r_%� 8�i!J%=v_%:J%!4=K%!4+Gl%:J%!16=K%!16+zl%:J%!&C=J%!4+Da%:J%!8=J%!16-La%:J%!20=0:J%!24=0:J%!28=K%!28:�ul%� 8�AJ%!4-=K%!20:J%!&C-=K%!20:�J%!4<K%!4�J%!20=K%!20-Gl%:J%!4=K%!4 8��J%!&C>K%!&C�J%!&C=K%!&C 8��:�ml%� 8�GJ%!16-=K%!24:J%!8-=K%!24:�J%!16>K%!16�J%!24=K%!16-J%!16:J%!16=K%!16 8��J%!8<K%!8�J%!8=K%!8 8��:ș&400C5,,J%:K%!28=v_% 8��:� 8�-��jJ:�A%:�vl%256:�A%=0�256�4:vl%!A%=0:�:� 8�3��tu(ta%,b$):vl%=-1:ș&400D9,,b$:�ju:ș&400DA:� 8�$��f(W%,Hy%,A$,mJ%):$Hy%=A$:�mJ%� 8�=!K%=W%:ș&400CB,,K%:ș&400D1,-1,K%!4,K%!16,K%!&C,K%!16+44 8��:� 8� ��V(B%,F%):ș&400F3,,B%,F%:� 8�9ݤP(b$,W%,H%):�F%:ș&40081,,b$,16*W%,16*H%,0,0�F%:=F% 8���U(H%):ș&40082,H%:� 8�*��fy(�X%,�Y%):ș&40088,,X%,Y%�,X%,Y%:� 8ڻ��L(gy%,W$,zu%,a%,Q%):�a_%,oy%,G_%,M_%,ZJ%:ș&4008A,gy%:ș&40097,,W$�,a_%,oy%,G_%,M_%:ș&40088,,a_%,oy%�,a_%,oy%:ș&40088,,G_%,M_%�,G_%,M_%:ZJ%=G_%+a_%:�zu%=0�a%-=ZJ%/2��zu%>0�a%-=ZJ% 8�A�F(a%,Q%-M_%+oy%,ZJ%,M_%-oy%)�ș&40086,gy%,W$,1<<4,a%,Q%-M_% 8�� 8���jy(gy%,W$,Ta%,ri%,a%,Q%,`%):�a_%,oy%,G_%,M_%,ZJ%:!J%=0:J%!4=-`%<<16:J%!8=`%<<16:J%!&C=0:J%!16=0:J%!20=0:ș&4008A,gy%:ș&40097,,W$�,a_%,oy%,G_%,M_%:ș&40088,,a_%,oy%�,oy%,a_%:ș&40088,,G_%,M_%�,M_%,G_%:�Ta%=0�a%-=`%*G_%/2��Ta%=`%�a%-=`%*G_% 8�,�ri%=0�Q%+=`%*M_%/2��ri%=-`%�Q%-=ri%*M_% 8�.ș&40086,gy%,W$,(1<<4)+(1<<6),a%,Q%,0,J%:� 8�-��c(Pl%,W$,_%,U%,x%,n%):�F(_%,U%,x%,n%)� 8��A%,gy%,a_%,oy%,G_%,M_%,ZJ%,mi%,Ol%,_l%:ș&4008A,Pl%:gy%=Pl%:ș&40097,Pl%,W$�,a_%,oy%,G_%,M_%:ș&40088,,G_%+a_%,M_%+oy%�,ZJ%,mi%:�ZJ%>x%� 8�ș&40083,Pl%,J%�,,Ol%,_l%:ȕZJ%>x%:Ol%=Ol%*0.95:_l%=_l%*0.95:ș&40081,,J%,Ol%,_l%:ș&40097,,W$�gy%,a_%,oy%,G_%,M_%:ș&40088,,G_%+a_%,M_%+oy%�,ZJ%,mi%:�ZJ%>x%�ș&40082,gy% 8�� 8�4�:ș&40086,,W$,1<<4,_%,U%:�gy%<>Pl%�ș&40082,gy% 8��:� 8����Cy(a%,Q%,x%,n%,`%):�a%+`%,Q%:�BYx%-2*`%,0:�BY`%,-`%:�BY0,-n%+2*`%:�BY-`%,-`%:�BY-x%+2*`%,0:�BY-`%,`%:�BY0,n%-2*`%:�a%+`%,Q%-`%:�BY0,`%:�&A1,-`%,-`%:�a%+x%-`%,Q%-`%:�BY`%,0:�&A1,-`%,`%:�a%+x%-`%,Q%-n%+`%:�BY0,-`% 8�5�&A1,`%,`%:�a%+`%,Q%-n%+`%:�BY-`%,0:�&A1,`%,-`%:� 8� ��YJ:� 8���uu:ȎBi%� 8��3:�r_(vJ%) 8��:� 8���x:vJ%=-1:Bi%=-1:�Bu%� 8�vJ%=�iy(_J%):�vJ%<>-1�Bi%=3 8���sJ 8��:� 8���Q_(Lu%):ȎZ%(Lu%)� 8� �2:�eu 8� �3:�ku 8��:� 8�'��oy(y%,_%,U%):ș&400E6,0:ȎZ%(t%)� 8��2:�`_(v%,y%,_%,U%) 8��5:�oJ(v%,y%,_%,U%) 8��1:�CJ(v%,y%,_%,U%) 8��3:�h_(v%,y%,_%,U%) 8��:� 8�ݤny(s%,By%):ȎZ%(t%)� 8��2:o%=�sy(s%,By%) 8��5:o%=�my(s%,By%) 8��1:o%=�by(s%,By%) 8��3:o%=�G_(s%,By%) 8� �:=o% 9 ��hu(l%,A%):ȎZ%(A%)� 9�2:�f_(l%,A%) 9�5:�QJ(l%,A%) 9�1:�k_(l%,A%) 9�3:�_u(l%,A%) 9�:� 9ݤL_(S%):�Cl%:ȎZ%(S%)� 9�2:Cl%=�yy 9�5:Cl%=�Ry 9 �1:Cl%=�X_ 9 �3:Cl%=�J_ 9 �:=Cl% 9��my(Lu%):ȎZ%(Lu%)� 9 �2:�C_ 9 �3:�kJ 9�:� 9'��iy(g%,y%,a%,Q%,i_%,qJ%):ȎZ%(t%)� 9�2:�q_(g%,y%,a%,Q%,i_%,qJ%) 9�5:�y_(g%,y%,a%,Q%,i_%,qJ%) 9�1:�Uu(g%,y%,a%,Q%,i_%,qJ%) 9�3:�zu(g%,y%,a%,Q%,i_%,qJ%) 9�:� 9��K_(p%):ȎZ%(t%)� 9 �2:�j(p%) 9�5:�Vy(p%) 9�1:�Ry(p%) 9�3:�Qy(p%) 9�:� 9$��XJ(q%,s%,g%,Yy%,ry%):ȎZ%(t%)� 9�2:�Sl(q%,s%,g%,Yy%,ry%) 9�:� 9'ݤcy(q%,s%,By%):�A%:�A%=1�B_%:�o%� 9 ȎZ%(A%)� 9!�2:o%=�xy(q%,s%,By%) 9"�5:o%=�B_(q%,s%,By%) 9#�1:o%=�ry(q%,s%,By%) 9$�3:o%=�P_(q%,s%,By%) 9%� 9&�:�:=o% 9'��TJ:�Tu:�Su:�ru:�nJ:� 9( ��xJ:�A%:�A%=1�B_%:ȎZ%(A%)� 9)�2:�AJ(A%) 9*�5:�Du(A%) 9+�1:�BJ(A%) 9,�3:�d_(A%) 9- �:�:� 9.��su:�DJ:�O_:�pJ:� 9/r��qu(w%):�#w%,"Address book":�iu(w%):�#w%,"Anniversary":�wJ(w%):�#w%,"Calendar":�v_(w%):�#w%,"Diary":�Bu(w%):� 90��GJ(Sy$,w%):ȎSy$� 91�"Address book":�gu(w%) 92�"Anniversary":�Ju(w%) 93�"Calendar":�eJ(w%) 94�"Diary":�fJ(w%) 95�:� 96��aJ(q%,s%,g%,a%,Q%):Ȏq%� 97�A%(2):�Zl(q%,s%,g%,a%,Q%) 98�A%(3):�qJ(q%,s%,g%,a%,Q%) 99�A%(4):�du(q%,s%,g%,a%,Q%) 9:�A%(5):�Gu(q%,s%,g%,a%,Q%) 9;�:� 9<ݤdy(q%,s%,By%):Ȏq%� 9=�A%(2):o%=�Iy(q%,s%,By%) 9>�:=� 9?��vJ(l%):ȎTy%� 9@�A%(2):�j_(l%,Ty%) 9A�A%(3):�SJ(l%,Ty%) 9B�A%(4):�NJ(l%,Ty%) 9C�A%(5):�iJ(l%,Ty%) 9D�:� 9E6��Xu:�e_(A%(2)):�tJ(A%(3)):�Ou(A%(4)):�mu(A%(5)):� 9F6��au:�l_(A%(2)):�Wu(A%(3)):�KJ(A%(4)):�nu(A%(5)):� 9G��dJ(Zy%,l%):ȎZ%(t%)� 9H�3:�A_(Zy%,l%) 9I�:� 9J���Tu:zJ%=�C("Paste","Paste",1,&A):Gy%=-1:J$="":X$="mailto:":U$="http://":V$="Important numbers":uJ%=-1:Zl%=�C("Import","Import",1,5):l_%=�C("ABM","ABM",1,6):�Y(l_%,3,zJ%):C$="":dy%=-1:YJ%=0:c_%=-1:O$="":Fl%=-1:Jl%=0:`J%=0:P_%=16 9K�Xy%=3::::d_%=2:h_%=-1:�M%(26),F%(26),A$(&A,&E),Z$(P_%-1,1),L%(&A,1),Ai%16,G%(&E):G%()=7:G%(0)=5:L%()=-1:$Ai%="Pptr_hyper,12,0"+�0:M%(0)=1:iy%=0:x$=Y$+"Addresses":f$=Y$+"Important":� 9Lݤyy=l_% 9ME��AJ(A%):B%(A%)=0:W%(A%)=26:S%(A%)=0:M$(A%)=�A("AddTab"):�t_:�a:� 9N.��C_:�v%=0��R_(i%,Cy%,wy%,-m%-Y_%,Iy%,�,�) 9O� 9P��eu:�dy:�w_%=0��Oy 9Q� 9R���`_(v%,y%,_%,U%):�Ll%,A%,A$,G%,Sy%,F%,Q%,a%,B%,C%,b%,yJ%,D%,E%,_u%,Li%,RJ%,WJ%:WJ%=�r((k%-(Xy%+2)*24)/Xy%):Ll%=�P("Homerton.Medium",&A,&A):Sy%=Y_%:ș&400E6,7:ș&400F3,,0,7:�(y%=0)�v%>0��I(0,_%,U%) 9Sa%=_%+y%*(u%-40):�y%=0� 9TWA%=0:ȕA%<v%:ș&400E6,7:�a%,U%-Sy%*(A%+1),a%+40,U%-Sy%*(A%+1):�M%(A%)=0�py%=2�py%=5 9U,ș&400F3,,0,py%:�A%=0�A$="+"�A$=�(64+A%) 9Vdș&40086,Ll%,A$,1<<4,a%+&C,U%-Sy%*A%-Sy%+&A:A%+=1:�:�v%>0�ș&400E6,7:�a%+40,U%,a%+40,U%-Sy%*(v%) 9W$�:A%=v%:�A%=0�A$="+"�A$=�(64+A%) 9X�ș&400E6,7:�a%+40,U%-Sy%*(A%+1):�BY-40,0:�a%,U%-k%:ș&40086,Ll%,A$,1<<4,a%+&C,U%-Sy%*A%-Sy%+&A:A%+=1:ȕA%<27:ș&400E6,7:�a%,U%-Sy%*(A%+1),a%+40,U%-Sy%*(A%+1):�M%(A%)=0�py%=2�py%=5 9Y,ș&400F3,,0,py%:�A%=0�A$="+"�A$=�(64+A%) 9ZEș&40086,Ll%,A$,1<<4,a%+&C,U%-Sy%*A%-Sy%+&A:�M%(A%)>0�A%>v%�F%=-1 9[A%+=1:� 9\0�:�y%=1�(F%�M%(v%)-iy%>2*Xy%)��I(1,a%-u%,U%) 9]�v%<>0� 9^!�y%=0�(y%=1�iy%+Xy%<=M%(v%))� 9_�_u%=�P("Trinity.Bold",&E,&E):A%=iy%+y%*Xy%:a%=_%-(40*(y%=0))+&c:ȕA%<M%(v%)�B%<Xy%:Q%=U%-24*(B%+1)-WJ%*B%:�F(a%,Q%,cJ%,-WJ%)� 9`Vș&400E6,4:�Cy(a%,Q%,cJ%,WJ%,&c):b%=A%�(Xy%*2):A$="":�A$(b%,1)<>""�A$=A$(b%,1)+" " 9alA$+=A$(b%,0):�V(0,G%(1)):�c(_u%,A$,a%+&C,Q%-40,cJ%-&C,40):D%=0:�C%=2�&E:D%-=(A$(b%,C%)<>""):�:�D%<5�D%=5 9b5Sy%=�r((WJ%-48)/D%):C%=Sy%/3:�Sy%>30�Sy%=30:C%=&C 9c�Li%=�P("Homerton.Medium.Oblique",C%-2,C%-2):RJ%=�P("Trinity.Medium",C%,C%):G%=1:�C%=2�8:�A$(b%,C%)<>""�G%+=1:�V(0,G%(C%)):�c(RJ%,A$(b%,C%),a%+48,Q%-42-Sy%*(G%-1),cJ%-48,Sy%) 9d,�:Q%-=WJ%-&E:�C%=&E�9�-1:�A$(b%,C%)<>""� 9e�A$=�A("Fld"+�(C%-8))+":":ș&400F3,,0,G%(0):ș&4008A,Li%:ș&40097,,A$�,D%,,F%:ș&40088,,F%-D%�,D%:ș&40086,,A$,1<<4,a%+92-D%,Q%-4:ș&400F3,,0,G%(C%):�c(RJ%,A$(b%,C%),a%+&64,Q%-4,cJ%-&64,Sy%+4):Q%+=Sy%:�C%>=&D��b_(b%,C%,a%+&64,Q%-4,cJ%-&64,Sy%+4) 9f�:�:�U(RJ%):�U(Li%) 9g�:A%+=1:B%+=1:�:�U(_u%) 9h� 9i�:�y%=0� 9j�_u%=�P("Trinity.Bold",16,16):ș&400E6,4:�V(0,7):b%=u%-2*&c:�Cy(a%+&c,U%-24,b%,k%-2*24,2*&c):�L(_u%,V$,0,_%+u%/2,U%-24-&C):�U(_u%):yJ%=&E:RJ%=�P("Trinity.Medium",yJ%,yJ%):Sy%=(k%-2*24-68-2*&c)/P_%:Q%=U%-24-68:a%=_%+&c:ș&400E6,1 9k��a%+48,Q%-Sy%*P_%,a%+b%-48,Q%-Sy%*P_%:�A%=0�P_%-1:ș&4008A,RJ%:ș&400E6,1:�a%+48,Q%-Sy%*A%,a%+b%-48,Q%-Sy%*A%:�F(a%,Q%-Sy%*A%,b%,-Sy%)�Z$(A%,0)+Z$(A%,1)<>""� 9l�ș&40097,,Z$(A%,0)+" "�,B%,C%,D%,E%:B%=D%-B%:�fy(B%,E%):ș&40097,,Z$(A%,1)�,C%,F%,D%:C%=D%-C%:�fy(C%,F%):�B%+C%>b%-24�E%-F%>Sy%� 9mJ�Sy%/(E%-F%)<(b%-24)/(B%+C%)�F%=yJ%*Sy%/(E%-F%)�F%=yJ%*(b%-24)/(B%+C%) 9n;C%=C%*F%/yJ%:E%=E%*F%/yJ%:F%=�P("Trinity.Medium",F%,F%) 9o�F%=RJ% 9p�:�E%=0�F%=0�E%=E%+F% 9qș&40086,,Z$(A%,0),1<<4,a%+&C,Q%-Sy%*(A%+0.5)-E%/2:ș&40086,,Z$(A%,1),1<<4,a%+b%-C%-&C,Q%-Sy%*(A%+0.5)-E%/2:�F%<>RJ%��U(F%) 9r�:� 9s� 9t�:�U(Ll%):� 9u%��f_(l%,cl%):�A%,B%:B%=dy%:Ȏ!l%� 9v=�0:�A%=9�23:�A(Cy%,A%,A$(B%,A%-9)):�:�R(Cy%,25,0):�Q(0,0) 9wJ�1:�A%=9�23:�A(Cy%,A%,A$(B%,A%-9)):�:C$="":dy%=-1:�Q(0,0):�R(Cy%,25,1) 9x�2:�_y:�M%(v%)>0� 9y�M%(v%)<=iy%�iy%-=2*Xy% 9z�Q(v%,iy%):mJ%=� 9{��Q(0,0) 9|� 9}�3:�l%!4>=0�d_%=l%!4 9~ �v%=0� 9%�A%=0�&E:A$(B%,A%)=�M(Cy%,A%+9):� 9��:Ȏd_%� 9� �0:�q(A$(B%,1)+" "+A$(B%,0)) 9��1:�A%=2�8:�q(A$(B%,A%)):� 9�8�2:�q(A$(B%,1)+" "+A$(B%,0)):�A%=2�8:�q(A$(B%,A%)):� 9�9�9:�q(A$(B%,1)+" "+A$(B%,0)):�A%=2�&E:�q(A$(B%,A%)):� 9��q(A$(B%,d_%+6)) 9�� 9��4:�Gy(U$+A$(dy%,&E)):uJ%=1 9��5:�Gy(X$+A$(dy%,&D)):uJ%=2 9��:� 9�l��py:�A%:A%=(dy%<0):�B%=0�3:�T(l_%,B%,A%):�:�A%=0�9:�S(zJ%,A%,d_%=A%):�:�B%=4�5:�T(l_%,B%,1):�:�dy%<>-1� 9��b("Alias$URLOpen_HTTP")� 9��T(l_%,4,A$(dy%,&E)="") 9�"�:�b("Alias$URLOpen_MailTo")� 9��T(l_%,5,A$(dy%,&D)="") 9�� 9���T(l_%,4,1):�T(l_%,5,1) 9��:� 9���j(p%)�A%:A%=v%:�p%=1� 9��M%(v%)<=iy%+Xy%*2� 9�-�A%+=1:�A%>26�M%(A%�27)>0:�A%<27��Q(A%,0) 9���Q(v%,iy%+Xy%*2) 9�� 9��:�iy%=0�v%>0� 9�7�A%-=1:�M%(A%)>0:�Q(A%,M%(A%)-1-(M%(A%)-1)�(Xy%*2)) 9���v%>0��Q(v%,iy%-Xy%*2) 9��:�v%=0��Q(0,0) 9��:� 9�U��q_(g%,y%,a%,Q%,i_%,qJ%):�b%,A%,B%,X%,Y%,WJ%:WJ%=�r((k%-(Xy%+2)*24)/Xy%):�y%<>0� 9�X%=&c:�a%>u%-40�g%<>2� 9�b%=-Q%�Y_%:�b%<27�b%>v%� 9��v%=0�O$=C$:Fl%=dy%:Jl%=YJ% 9��M%(b%)>0��Q(b%,0) 9�� 9�� 9��:X%=&c+40:�a%<40�g%<>2� 9�b%=-Q%�Y_%:�b%<v%� 9��b%=0�C$=O$:dy%=Fl%:YJ%=Jl% 9��M%(b%)>0��Q(b%,0) 9�� 9�� 9��:�v%>0� 9�pA%=0:B%=-1:Y%=-24:y%=�(y%):C$="":dy%=-1:ȕA%<Xy%�A%+iy%+Xy%*y%<M%(v%):�m(a%,Q%,X%,Y%,cJ%,-WJ%)�B%=A%+Xy%*y% 9�Y%-=WJ%+24:A%+=1:�:�B%>=0� 9�:C$=�s(A$(B%,0)+" "+A$(B%,1)):dy%=B%:YJ%=B%+iy%:�g%<>2� 9�:�A%=9�23:�A(Cy%,A%,A$(B%,A%-9)):�:�R(Cy%,25,0):�Q(0,0) 9�� 9�� 9���y%=0�g%<>2� 9�CSy%=(k%-2*24-68-2*&c)/P_%:Y%=-(Q%+24+68-Sy%)/Sy%:�Y%>0�Y%<=P_%� 9�h`J%=Y%:�A(__%,3,Z$(Y%-1,0)):�A(__%,4,Z$(Y%-1,1)):ȗX%,Y%,A%:ș&400D4,,__%,i_%+`y%,Y%:�C(__%,3):VJ%=� 9�� 9�� 9��:�g%=2��py 9�� 9���Sl(q%,s%,g%,a%,Q%):Ȏq%� 9��Cy%:�g%<>2� 9� Ȏs%� 9��24:�y(g%=4):�a 9��25:�_y:�a:�C(Cy%,9) 9��26:�a:�C(Cy%,9) 9�#�-1,0,1,2,3,4,5,6,7,8:�C(i%,-1) 9�� 9�!��py:�F(l_%,Yy%-64,ry%,q%,s%) 9�� 9��__%:Ȏs%� 9� �5:�yy 9��6:ș&400D4,,-1:`J%=0 9�*�7:�A(__%,3,""):�A(__%,4,""):�C(__%,3) 9�� 9��:� 9�ݤsy(s%,By%):o%=�:ȎBy%� 9��414:�j(-c_%) 9��415:�j(c_%) 9�/�43,461:�v%>0�C$=O$:dy%=Fl%:YJ%=Jl%:�Q(0,0) 9�.:�By%>=97�By%<=&7A�L%=By%-32-64�L%=By%-64 9��L%>0�L%<28� 9��v%=0�O$=C$:Fl%=dy%:Jl%=YJ% 9��M%(L%)>0��Q(L%,0) 9� �o%=� 9�� 9� �:=o% 9�ݤxy(q%,s%,By%):o%=�:Ȏq%� 9��Cy%:ȎBy%� 9�"�396:�wJ%=�z��k(q%,s%,-1,9,23) 9�!�397:�wJ%=�z��k(q%,s%,1,9,23) 9�&�398,&D,394:�s%=23�By%=&D��y(�):�a 9��414:�j(-c_%) 9��415:�j(c_%) 9��461:�y(�):�a 9��83-64:�C(Cy%,9) 9��70-64:�C(Cy%,&A) 9��65-64:�C(Cy%,&B) 9��84-64:�C(Cy%,18) 9�$�88-64:�dy%<>-1��_y:�a:�C(Cy%,9) 9��69-64:�C(Cy%,22) 9��87-64:�C(Cy%,23) 9� o%=� 9�� 9��__%:�By%=&D�s%=4��yy�o%=� 9�*�Gy%:�Gy%<>-1�s%=70��_(J$,��M(Gy%,59)) 9� o%=� 9� �:=o% 9�^��iu(w%):�A%:�#w%,V$:�#w%,Xy%:�#w%,d_%:�#w%,c_%+5:�#w%,X$:�#w%,U$:�A%=0�&E:�#w%,G%(A%):�:� 9�^��gu(w%):�A%:V$=�#w%:Xy%=�#w%:d_%=�#w%:c_%=�#w%-5:X$=�#w%:U$=�#w%:�A%=0�&E:G%(A%)=�#w%:�:� 9�"��Zl(x%,Fy%,l%,a%,Q%):�A%:Ȏ�� 9�6�(Fy%>=3�Fy%<=7)�Fy%=&C�Fy%=&D:�g%<>2��Z(x%,Fy%,1) 9�;�Fy%=9:�A%=0�9:�S(zJ%,A%,d_%=A%):�:�F(zJ%,a%,Q%,x%,Fy%) 9�M�Fy%>=22�Fy%<=36:�A%=0�&E:�S(Ay%,A%,�_(x%,Fy%)=A%):�:�F(Ay%,a%,Q%,x%,Fy%) 9��:� 9�7ݤIy(x%,Fy%,ga%):�ja%,c%:o%=�:�ga%=&D��C(x%,1):o%=� 9�=� 9���j_(l%,x%):�A%:ȎU_%� 9�?�9:d_%=!l%:�A%=0�9:�S(zJ%,A%,d_%=A%):�:�A(x%,8,�J(zJ%,!l%)) 9�0�A%=0�&F:�S(Ay%,A%,!l%=A%):�:�D(x%,U_%,!l%) 9��:� 9���e_(x%):�A%:�A(x%,1,V$):�A%=1�5:�Z(x%,A%+2,-(Xy%=A%)):�:�A(x%,8,�J(zJ%,d_%)):�A(x%,17,U$):�A(x%,18,X$):�Z(x%,&C,-(c_%=-1)):�Z(x%,&D,-(c_%=1)):�A%=0�&E:�D(x%,A%+22,G%(A%)):�:� 9�\��l_(x%):�A%,B%:V$=�M(x%,1):U$=�M(x%,17):X$=�M(x%,18):B%=Xy%:�A%=1�5:�Z(x%,A%+2)�Xy%=A% 9��:�A%<>B%�t%=�G(2)��Q(v%,0) 9��Z(x%,&C)�c_%=-1�c_%=1 9�$�A%=0�&E:G%(A%)=�_(x%,A%+22):�:� 9�)��Q(b%,Sl%):�v%=0�b%<>0��C(i%,-1):�Oy 9�)�b%=0��R_(i%,Cy%,wy%,-m%-Y_%,Iy%,�,�) 9�J_%=0:�b%<v%J_%=-1 9��b%>v%J_%=1 9��J_%=0� 9� mJ%=Sl%<>iy%:�Sl%<iy%�J_%=-1 9��Sl%>iy%�J_%=1 : *�:v%=b%:iy%=Sl%:�dy:�b%<>0��VJ(b%,Sl%) :� :���yy�Sy%,Y%:Z$(`J%-1,0)=�M(__%,3):Z$(`J%-1,1)=�M(__%,4):Sy%=(k%-2*24-68-2*&c)/P_%:Y%=m%+24+68+Sy%*(`J%-1):�N(i%,my%+&C,-Y%,`y%-&C,-Y%-Sy%):vy%=�:笤Dy�ș&400D4,,-1:`J%=0 :� :?��a�A%:�A%=9�23:�A(Cy%,A%,""):�:C$="":dy%=-1:�R(Cy%,25,1):� :M��_y:�ey%:�J_:ey%=�q(C$)-64:M%(ey%)-=1:C$="":dy%=-1:�M%(ey%)=0�F%(ey%)=-1 :m�N(i%,wy%+u%-40,-m%-Y_%*ey%,wy%+u%,-m%-Y_%*(ey%+1)):�N(i%,my%,-m%-Y_%*ey%,my%+40,-m%-Y_%*(ey%+1)):vy%=�:� :a��J_:�B%,L%,A%:B%=h_%:L%=�q(C$)-64:B%=F%(L%):A%=YJ%:ȕA%>0:B%=B%!4:A%-=1:�:�YJ%=0�F%(L%)=B%!4 :�B%!4<>-1�!(B%!4)=!B% : "�!B%=-1�h_%=B%!4�!(!B%+4)=B%!4 : �Ly(s_%,B%,�):� :4��y(ea%):�O%,L%,R$:�L%=9�23:�M(Cy%,L%)<>""�O%=� : �:�O%� : ^R$=�s(�M(Cy%,9)+" "+�M(Cy%,&A)):L%=�q(R$)-64:M%(L%)+=1:�C$=""�O%=L%�O%=�q(C$)-64:M%(O%)-=1 :�dy%<0��L_��J_:�L_ :C$="":dy%=-1:�ea%� :?�M%(L%)=1��N(i%,wy%+u%-40,-m%-Y_%*L%,wy%+u%,-m%-Y_%*(L%+1)) :��Pu(R$) :�:vy%=� :�:� :t��Pu(A$):�B%,A%,P%:P%=�q(A$)-64:B%=F%(P%):ȕ�s(�K(B%,0)+" "+�K(B%,1))<>R$:B%=B%!4:A%+=1:�:�Q(P%,A%-A%�(2*Xy%)):� :���L_:�A%,B%,C%,S%:S%=&C:�A%=9�23:S%+=��M(Cy%,A%)+1:�:C%=�w(s_%,S%,�):B%=h_%:C%!8=S%:S%=C%+&C:�A%=9�23:$(S%)=�M(Cy%,A%)+�&A:S%+=�($S%):�:A%=�q(�s(�M(Cy%,9)+" "+�M(Cy%,&A)))-64:�F%(A%)=-1�F%(A%)=C%:A%-=1 :�B%<>-1� :2ȕF%(A%)=-1�A%>1:A%-=1:�:�F%(A%)<>-1�B%=F%(A%) :Uȕ�s(�K(B%,0)+" "+�K(B%,1))<R$�B%!4<>-1:B%=B%!4:�:�s(�K(B%,0)+" "+�K(B%,1))>=R$� :�F%(A%)=B%�F%(A%)=C% :6!C%=!B%:C%!4=B%:!B%=C%:�!C%<>-1�!(!C%+4)=C%�h_%=C% :�:B%!4=C%:!C%=B%:C%!4=-1 :� :$�h_%=C%:!C%=-1:C%!4=-1:F%(A%)=C% :�:� :)ݤq(A$):�B%:B%=�(�s(A$)):�B%<65�B%=65 : =B% :!fݤs(A$):�B%:A$=�v(A$):B%=��A$,1):ȕ�(B%>47�B%<58)��(B%>64�B%<91)�A$<>"":A$=�A$,2):B%=��A$,1):�:=A$ :"���ty(p%,b%):�A%:ey%=u%-40:b%!8=!b%+ey%:b%!48=b%!40+ey%:b%+=88+8:�A%=&B�17:b%!(A%*32)=ey%-16:�:�A%=8�23:A%-=7*(A%=&B):b%!(A%*32)=ey%:�:b%!(24*32-8)=(ey%-384)/4:b%!(24*32)=b%!(24*32-8)+&80 :#�b%!(25*32-8)=b%!(24*32)+(ey%-384)/4:b%!(25*32)=b%!(25*32-8)+&80:b%!(26*32-8)=b%!(25*32)+(ey%-384)/4:b%!(26*32)=b%!(26*32-8)+&80:� :$k��t_:�A%,B%,C%,S%,w%,L%:�A%=0�26:M%(A%)=0:F%(A%)=-1:�:M%(0)=1:C%=-1:h_%=-1:P_%=16:w%=�(x$):�Fu%�w%<>0� :%;ȕ��#w%:S%=��#w%:B%=�w(s_%,S%,�):�C%<>-1�C%!4=B%�h_%=B% :&g!B%=C%:B%!8=S%:ș&C,4,w%,B%+&C,S%-&C:L%=�q(�K(B%,0)+" "+�K(B%,1))-64:M%(L%)+=1:�F%(L%)=-1�F%(L%)=B% :'C%=B%:�x_%��w(�1) :(�:�h_%<>-1�B%!4=-1 :)�:�#w%:w%=�f$:�Fu%�w%<>0� :*7P_%=��#w%:�B%=0�P_%-1:Z$(B%,0)=�#w%:Z$(B%,1)=�#w%:� :+�:�#w%:w%=0:� :,���DJ:�w%,B%,S%,A%:w%=�x$:B%=h_%:ȕB%<>-1:�#w%,�B%!8:ș&C,2,w%,B%+&C,B%!8 -&C:B%=B%!4:�:�#w%:w%=�f$:�#w%,�P_%:�A%=0�P_%-1:�#w%,Z$(A%,0)+�&A+Z$(A%,1):�:�#w%:w%=0:� :-��VJ(ey%,Pa%):�ey%>0� :.��A%,B%,C%,F%:B%=F%(ey%):ȕPa%>0:B%=B%!4:Pa%-=1:�:��C%=0�&E:A$(A%,C%)=�K(B%,C%):�:A%+=1:F%=(A%>Xy%*2-1)�B%!4=-1:B%=B%!4:�F%�F%=(�q(�K(B%,0)+" "+�K(B%,1))-64<>ey%) :/�F% :0�:� :1_ݤK(B%,L%):�A$:B%+=&C:ȕL%>0:ȕ?B%<>&A:B%+=1:�:B%+=1:L%-=1:�:ȕ?B%<>&A:A$+=�?B%:B%+=1:�:=A$ :2x��RJ(S$):�e$,A%,B%,S%,I%,na%,ua%,Ka%,`l%:Cu%=0:jJ%=0:w%=�S$:ȕ��#w%:e$=�#w%:�e$<>""�A%=�uy(e$):Cu%+=1:�A%>jJ%�jJ%=A% :3�:�#w%:w%=0:�jJ%>0� :4�ș&400D9,,P$+".Resources."+B$+".Templates":ș&400DB,,,0,0,0,"Import"�,Ka%,`l%:ș30,6,,,Ka%�,,dl%;na%:ș30,6,,,`l%�,,jl%;ua%:ș&400DB,,dl%,jl%,jl%+`l%,vl%,"Import",0:ș&400C1,,dl%�Gy%:ș&400DA:J$=S$ :5<B%=1:�A%=&A�52�3:�A(Gy%,A%,�B%):�B%>0�B%+=1:�B%>jJ%�B%=0 :6Z�:�A(Gy%,54,�A("Import1")):�A(Gy%,55,�A("Import1")):�M(Gy%,70,1):�Z(Gy%,69,0):�_(S$,1) :7�J$="":�B(�A("ErrCSV")) :8�:� :9/��i:Cu%=0:jJ%=0:�J$<>""��"Remove "+J$:J$="" :: �Gy%<>-1� :;7!K%=Gy%:Gy%=-1:ș&400C3,,K%:ș30,7,,dl%:ș30,7,,jl% :<�:� :=���_(S$,xl%):�A%,B%,C%,S%,g$,u_%:g$=�N_(S$,xl%):C$="":dy%=-1:�R(Cy%,25,1):�A%=9�23:B%=&A+(A%-9)*3:u_%=��M(Gy%,B%):S%=0:�B%<&E�S%=�My(Zl%,�M(Gy%,55+(B%=&A))) :>2�B%>&F�B%<35��M(Gy%,B%)=�M(Gy%,16)��Z(Gy%,69)� :?5S%=256:C%=16:ȕC%<B%:�M(Gy%,C%)=�M(Gy%,16)�S%+=1 :@C%+=3:� :A �:�u_%>0� :B�A(Cy%,A%,�F_(g$,u_%,S%)) :C��A(Cy%,A%,"") :D*�:�:�A(Gy%,59,�xl%):�Iy%��z(i%,-1,-1) :E<K_%=t%:w_%=v%:t%=�G(2):�Q(0,0):�K_%<>t%�w_%<>v%�J_%=0:�K :F�z(Gy%,-1,0):� :G:ݤN_(S$,xl%):�A$:w%=�S$:ȕxl%>0:A$=�#w%:�A$<>""�xl%-=1 :H�:�#w%:w%=0:=A$ :ICݤF_(A$,u_%,Ua%):�CJ%,B%,Z$,NJ%:ȕu_%>1�A$<>"":�A$=34�CJ%=�CJ% :J�A$=44��CJ%�u_%-=1 :K'A$=�A$,2):�:�A$=34�CJ%=�:A$=�A$,2) :L$ȕ�NJ%:�A$=34�A$=""�CJ%=�:NJ%=� :M�A$=44��CJ%�NJ%=� :N�NJ%�Z$+=�A$,1):A$=�A$,2) :O�:ȎUa%� :P�0 :Q�1:Z$=�Z$,�Z$," ")-1) :R�2:Z$=�Z$,�Z$," ")+1) :S�3:�Z$," ")>0� :T-B%=�Z$:�B%-=1:��Z$,B%,1)=" ":Z$=�Z$,B%-1) :U �Z$="" :V� :W&�4:ȕ�Z$," "):Z$=�Z$,�Z$," ")+1):� :XI:B%=Ua%��256:A$=�M(Gy%,70):ȕB%>0:�Z$,A$)�Z$=�Z$,�Z$,A$)+�A$)�Z$="" :Y&B%-=1:�:�Z$,A$)�Z$=�Z$,�Z$,A$)-1) :Z �:=Z$ :[/ݤuy(A$):�Gi%,CJ%:ȕA$<>"":�A$=34�CJ%=�CJ% :\�A$=44��CJ%�Gi%+=1 :]A$=�A$,2):�:=Gi%-(Gi%>0) :^&��i_(q%,s%,g%,Yy%,ry%):�A%,B%:Ȏ�� :_Y�s%=58�s%=60:A%=��M(q%,59)-(s%-59)*(1+2*(g%=1)):�A%>0�A%<=Cu%��A(q%,59,�A%):�_(J$,A%) :`W�s%>=9�s%<=53:B%=&A+3*((s%-9)�3):A%=��M(q%,B%)+(s%-B%)*(1+2*(g%=1)):�A%>=0�A%<=jJ%� :a#�A(q%,B%,�A%):�_(J$,��M(q%,59)) :b� :c&�s%=54�s%=55:�F(Zl%,Yy%,ry%,q%,s%) :dH�s%=66:�y(�):A%=��M(Gy%,59)+1:�A%>0�A%<=Cu%��A(Gy%,59,�A%):�_(J$,A%) :eJ�s%=67:�:�y(�):A%=��M(Gy%,59)+1:�A%>0�A%<=Cu%��A(Gy%,59,�A%):�_(J$,A%) :f�A%>Cu% :g �s%=68:�i :h3�s%=69:�M(q%,70,���Z(q%,69)):�_(J$,��M(Gy%,59)) :i�:� :j:��WJ(s%,I%):�A(Gy%,s%,�J(Zl%,I%)):�_(J$,��M(Gy%,59)):� :kV��b_(b%,Mi%,a%,Q%,x%,n%):!J%=i%:�L%(b%,Mi%-&D)<>-1�J%!4=L%(b%,Mi%-&D):ș&400C4,,J% :l�ș&400CB,,J%:Q%-=8:n%-=8:J%!4=a%-J%!4:J%!8=Q%-J%!16-n%:J%!&C=J%!4+x%:J%!16=J%!8+n%:J%!20=&7003119:J%!24=sl%:J%!28=Ai%:J%!32=0:ș&400C2,,J%�L%(b%,Mi%-&D):� :mV��dy:�b%,Wy%:!J%=i%:�b%=0�&A:�Wy%=0�1:�L%(b%,Wy%)<>-1�J%!4=L%(b%,Wy%):ș&400C4,,J% :n�,:L%()=-1:� :oO��p_(s%):�b%,Wy%,Oa%,Ti%,A$:�b%=0�&A:�Wy%=0�1:�L%(b%,Wy%)=s%�Oa%=b%:Ti%=Wy% :p%�,:�Ti%=0�A$=X$:uJ%=2�A$=U$:uJ%=1 :q�Gy(A$+A$(Oa%,Ti%+&D)):� :rL��Gy(o$):!J%=256:J%!4=vu%:J%!16=&4AF80:$(J%+20)=o$+�0:ș&400E7,18,J%,0:� :st��Su:�C%(&C),Q%(&C):Ly%=3:SJ%=&B:t_%=-1:C%()=-1:d$=Y$+"Anni":Fi%=0:BJ%=-1:HJ%=-1:uu%=�:ll%=�C("ANM","ANM",1,4):� :tݤRy=ll% :uB��Du(A%):B%(A%)=1:W%(A%)=&C:S%(A%)=1:M$(A%)=�A("AnnTab"):�__:� :v���oJ(v%,y%,_%,U%):�Py%,Q%,r%:Py%=(k%-Ly%*20-20)/Ly%:Q%=0:�r%=v%+Ly%*�y%�v%+Ly%*�y%+Ly%-1:Q%+=20+Py%:�Fu(r%,_%+20,U%-Q%+Py%,u%-40,Py%):�:�y%=0�v%>1��I(y%,_%,U%) :w�y%�r%<&C��I(y%,_%,U%) :x� :y��QJ(l%,cl%):Ȏ!l%� :z�0:�HJ%<>-1��o(HJ%,-1) :{�1:�HJ%<>-1��o(HJ%,0) :|�2:�HJ%<>-1��Hy(HJ%) :}/�3:�Ky("X�s %n%t birthday",Dy%,Ra%,My%,0,0) :~�:� :0��Vy(p%):v%+=p%*2*Ly%:�v%+2*Ly%>&D�v%-=2*Ly% :��v%<1�v%=1 :�� :�u��y_(g%,y%,a%,Q%,i_%,qJ%):�Py%,r%:Py%=(k%-20)/Ly%:r%=-Q%�Py%+1:Q%+=(r%-1)*Py%+20:�Q%>0�r%>Ly%�a%<20�a%>u%-40�r%=0 :��y%�i_%=wy%+20�i_%=my%+20 :�WqJ%=-m%-20-Py%*(r%-1):�r%<>0��`u(r%+Ly%*�y%+v%-1,g%,a%-20,Q%,i_%,qJ%,u%-40,-Py%+20) :�� :�ݤmy(s%,By%):o%=�:ȎBy%� :��414:�Vy(1) :��415:�Vy(-1) :� o%=� :� �:=o% :�!ݤB_(q%,s%,By%):o%=�:�q%=_y%� :�o%=�:ȎBy%� :��394,398,399:�C(_y%,6-s%) :��4,24:�t_%<>-1��Hy(t_%) :� �27:�t :��&D:�s%=2� :�&�Ny(�M(_y%,2),d%,z%,e%)��C(_y%,4) :���Z_ :�� :� o%=� :�� :� �:=o% :�]��O_:�B%:w%=�d$:B%=BJ%:ȕB%<>-1:�#w%,�B%!8:ș&C,2,w%,B%+&C,B%!8 -&C:B%=B%!4:�:�#w%:w%=0:� :�(��wJ(w%):�#w%,SJ%:�#w%,Ly%:�J(uu%):� :�'��Ju(w%):SJ%=�#w%:Ly%=�#w%:uu%=�Q:� :� ��qJ(x%,Fy%,l%,a%,Q%):ȎFy%� :�=�1:�W(Ay%,0,-1):�S(Ay%,�_(x%,Fy%),1):�F(Ay%,a%,Q%,x%,Fy%) :� �2,3,4,5:�g%<>2��Z(x%,Fy%,1) :��:� :�>��SJ(Zy%,fa%):�D(fa%,1,!Zy%):�W(Ay%,0,-1):�S(Ay%,!Zy%,1):� :�T��tJ(x%):�A%:�D(x%,1,SJ%):�A%=2�5:�Z(x%,A%,0):�:�Ly%<5��Z(x%,Ly%+1,1)��Z(x%,5,1) :��Z(x%,6,-uu%):� :�[��Wu(x%):�A%,B%:B%=Ly%:SJ%=�_(x%,1):A%=2:ȕA%<5���Z(x%,A%):A%+=1:�:�A%<5�Ly%=A%-1�Ly%=6 :��B%<>Ly%�Q%()=0 :��S%(�G(5))+2*Ly%>&D� :�,�Z%(t%)=5�v%=&D-2*Ly%�S%(�G(5))=&D-2*Ly% :��:uu%=�Z(x%,6):� :�N��Fu(r%,_%,U%,x%,n%):�rJ%,B%,Qy%,A%,Q%:B%=C%(r%):Qy%=28:�F(_%,U%,x%,-n%)� :�jrJ%=�P("Homerton.Bold",&C,&C):p_%=�P("Homerton.Medium",&A,&A):�V(0,7):�r%=fy%�ș&400E6,!FJ%�ș&400E6,5 :���Cy(_%,U%,x%,n%,20):�L(rJ%,�X(r%,-1),0,_%+x%/2,U%-&A):Q%=40:A%=Q%(r%):ȕA%>0:B%=B%!4:A%-=1:�:ȕB%<>-1�Q%+Qy%-5<=n%:�F(_%+20,U%-Q%-25,x%-50,Qy%)� :�m�c(p_%,�Sy(B%,My%-(r%<fy%�(r%=fy%�B%?&C<Dy%))),_%+70,U%-Q%-20,x%-70,Qy%):�L(p_%,�(B%?&C),1,_%+60,U%-Q%-4) :�F�:Q%+=Qy%:B%=�p(B%,r%):�:�B%<>-1��_%+8,U%-n%+20:�BY18,0:�81,-9,-18 :�,�Q%(r%)<>0��_%+8,U%-60:�BY18,0:�81,-9,18 :��U(rJ%):�U(p_%) :��:� :����`u(r%,g%,a%,Q%,_%,U%,x%,n%):�L%,A%,B%,C%,N%,Qy%,A$:Qy%=28:C%=(-Q%-70+2*Qy%)�Qy%+Q%(r%):N%=-((n%+40)�Qy%):A%=0:B%=C%(r%):ȕB%<>-1:A%+=1:B%=�p(B%,r%):�:�L%=0�2:�T(ll%,L%,1):�:HJ%=-1:Ra%=r%:Ȏ�� :�P�a%>35�Q%<-40�a%<x%�C%>0�C%<=A%:B%=C%(r%):ȕC%>1:C%-=1:B%=�p(B%,r%):�:�g%=2� :�!�L%=0�2:�T(ll%,L%,0):�:HJ%=B% :���o(B%,g%=4) :�� :� �g%=2 :�I�a%>0�a%<30�Q%-20<n%:�Q%(r%)<A%-N%�Q%(r%)+=1:�N(i%,_%,U%,_%+x%,U%+n%) :�K�a%>0�a%<30�Q%>-60�Q%<=-42:�Q%(r%)>0�Q%(r%)-=1:�N(i%,_%,U%,_%+x%,U%+n%) :�3�g%<>2��Ky("X�s %n%t birthday",Dy%,r%,My%,0,0) :��:� :�L��x_(d%,z%,N%,g%):�B%:B%=-1:ȕN%>0:B%=�k(d%,z%,B%):N%-=1:�:�o(B%,g%=4):� :�)��o(B%,hy%):�A%,A$:�hy%�t_%=B%�t_%=-1 :�`A%=B%+16:ȕ?A%<>&B:A$+=�?A%:A%+=1:�:�Ky(A$,B%?&C,(B%!&C>>8)�&F,(B%!&C>>&C)�&FFF,B%?&F,hy%):� :�_��Ky(W$,c%,r%,Q%,u_%,hy%):�A(_y%,4,W$):�A(_y%,2,�c%+"/"+�r%+"/"+�Q%):Zi%=u_%:�u_%=0�u_%=SJ% :�J�D(_y%,4,u_%):�R(_y%,&D,(hy%=0)):�hy%=0�A$=�A("anset")�A$=�A("anedit") :�:�X(_y%):�r(_y%,�,�):�C(_y%,2):VJ%=�:�f(_y%,_a%,A$,0):� :�Aݤp(B%,z%):�A%,C%,c%,r%,Q%:B%=B%!4:�((B%!&C>>8)�&F)<>z%�B%=-1 :�=B% :�>ݤSy(B%,My%):�A%,C%,c%,Q%,A$:Q%=(B%!&C>>&C)�&FFF:�Q%<=My%� :�bC%=B%?&F:C%-=SJ%*(C%=0):�V(0,C%):A%=B%+16:ȕ?A%<>&B:�?A%=37�A%+=1:A$+=�W_(?A%,Q%,My%)�A$+=�?A% :�A%+=1:� :� �:=A$ :�$��rJ(s%,Yy%,ry%):�c%,r%,Q%:Ȏs%� :��5:�F(Xl%,Yy%,ry%,q%,s%) :��&B:�Z_ :� �&C:�t :��&D:�Hy(t_%) :��:� :�+��Z_:�A$,d%,z%,e%:A$=�M(_y%,4):�A$<>""� :��Ny(�M(_y%,2),d%,z%,e%)� :��t_%<>-1��uy(t_%) :�D�LJ(A$,d%,z%,e%,Zi%):Q%()=0:�t:vy%=�:�Iy%�(Z%(t%)=5�Z%(t%)=3)��K :���C(_y%,2) :�� :���B(�A("ErrMes")) :��:� :�-��t:t_%=-1:�X(_y%):�X(sy%):�Iy%��C(i%,-1) :�� :�aݤNy(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%>�D(r%,Q%):�B(�O("ErrDate",äD(r%,Q%),�X(r%,-1)+�-(r%=2)," "+�Q%),"","")) :� A%=� :� �:=A% :۰��LJ(y$,d%,z%,e%,u_%):�ny%,Ny%,S%,B%,xy%,T%,F_%:F_%=d%+(z%<<8)+(e%<<&C)+(u_%<<24):xy%=�:S%=�y$+1+16:Ny%=BJ%:ny%=-1:ȕNy%<>-1��xy%:�Ky(d%,z%,Ny%!&C)�xy%=��ny%=Ny%:Ny%=Ny%!4 :�`�:B%=�w(s_%,S%,�):!B%=ny%:B%!4=Ny%:B%!8=S%:B%!&C=F_%:$(B%+16)=y$+�&B:�ny%=-1�BJ%=B%�ny%!4=B% :��Ny%<>-1�!Ny%=B% :�#�C%(z%)=Ny%�C%(z%)=-1�C%(z%)=B% :�� :�,��Hy(B%):�uy(B%):�t:vy%=�:�B%=t_%�t_%=-1 :��Iy%�(Z%(t%)=5�Z%(t%)=3)��K :�� :�a��uy(B%):�ny%,Ny%,r%,Qi%:Qi%=-1:ny%=!B%:Ny%=B%!4:r%=(B%!&C>>8)�&F:Q%(r%)=0:�ny%<>-1�ny%!4=Ny% :�2�Ny%<>-1�!Ny%=ny%:�((Ny%!&C>>8)�&F)=r%�Qi%=Ny% :��BJ%=B%�BJ%=Ny% :��C%(r%)=B%�C%(r%)=Qi% :��Ly(s_%,B%,�):� :�BݤKy(c%,r%,T%):�`%,Tl%,xu%:Tl%=T%�&FF:xu%=(T%>>8)�&F:�r%>=xu%� :��c%<Tl%�xu%=r%�`%=��`%=� :� �`%=� :� �:=`% :���sJ:�B%,xy%,tJ%,c%,r%,Ml%,fJ%,oy%,d%,z%,e%:�G(_J%,c%,r%,Ml%,fJ%,oy%):B%=C%(fJ%):d%=�T:z%=�I:e%=�R:ȕB%<>-1��xy%��tJ%:c%=B%?&C:r%=(B%!&C>>8)�&F:�r%>z%�(r%=z%�c%>d%)�tJ%=�:�Zy :�8�(r%>fJ%�(r%=fJ%�c%>Ml%))��tJ%�xy%=�:�hy(B%)�B%=B%!4 :��:�xy%��Zy :�� :�E��X_:�B%,c%,r%,d%,z%,e%:d%=�T:z%=�I:e%=�R:B%=Fi%!4:W_%=0:�B%<>-1� :�>c%=B%?&C:r%=(B%!&C>>8)�&F:�r%>z%�(r%=z%�c%>d%)��Zy��hy(B%) :���Zy :��:� :�&��Zy:Bu%=�:_J%=�x(�Y):�X(GJ%):�x:� :����hy(B%):�c%:�A(GJ%,1,�O("its",�U(d%,z%,e%,-1),"","","")):�A(GJ%,2,�Sy(B%,e%)):c%=B%?&F:c%-=SJ%*(c%=0):�D(GJ%,2,c%):�z(GJ%,�,�):vy%=-1:Fi%=B%:�uu%�W_%=&A :�� :�0ݤn(c%,r%):�B%,C%,Tl%,xu%:B%=C%(r%):�B%<>-1� :��:�B%?&C=c%�C%+=1 :�6B%=B%!4:�B%<>-1�Tl%=B%?&C:xu%=(B%!&C>>8)�&F�xu%=&D :��Tl%>c%�xu%>r% :� �:=C% :�ݤk(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��__:�S%,C%,B%,r%:C%=-1:BJ%=-1:w%=�d$:�Fu%�w%<>0� ;;ȕ��#w%:S%=��#w%:B%=�w(s_%,S%,�):�C%<>-1�C%!4=B%�BJ%=B% ;P!B%=C%:B%!8=S%:ș&C,4,w%,B%+&C,S%-&C:r%=((B%!&C)>>8)�&F:�C%(r%)=-1�C%(r%)=B% ;C%=B%:�x_%��w(�1) ;�:�BJ%<>-1�B%!4=-1 ;�:�#w%:w%=0:� ;AݤW_(T%,Q%,My%):�A$,d,c%,F%,L%:Yl%=(T%�32)=0:c%=My%-Q%:Ȏ�T%� ;7�"y","Y":A$=�A("year"+�-(c%>1),"s")):�Yl%�A$=�v(A$) ; �"n":A$=�c% ; &�"t","T":A$=�Ly(c%):�Yl%�A$=�v(A$) ;V�"c","C":ș&61502,C_%,"Ann"+�c%,J%,256�,,,L%;F%:�(F%�1)=0�J%?L%=&D:A$=" ("+$J%+")" ;�Yl%�A$=�v(A$) ; �:=A$ ;���nJ:S_%=2:n_%=&F:Ou%=�:Wa%=�C("FAM","FAM",1,4):wi%=�C("DIM4","ANM",1,3):e_%=�C("DIM","DIM",1,6):�Y(e_%,3,wi%):�Y(e_%,5,Wa%):�g_(e_%,2,-1):aJ%=�C("E","E",1,6):yl%=�C("OT","OT",1,6):bl%=�C("Day","Day",1,7):rl%=�C("OE","OE",1,&C) ;�Xl%=�Py(�A("Col")):$(Xl%+28+&C)=�A("Def"):r$=Y$+"Diary":�V%(&E):O_%=-1:LJ%=-1:pJ%=0:z$="":pu%=�C("EN","EN",1,3):Yu%=�C("EA","E",3,6):D_%=0:Du%=0:ly%=0:Z_%=-1:R_%=6:�Ml:� ;ݤJ_=e_% ;{��d_(A%):�z_:�OJ:�H(�T,�I,�R):�S(e_%,S_%-1,�):B%(A%)=�S(0,0,1,1,&77d):W%(A%)=�S(0,0,31-6,&C,&fff):M$(A%)=�A("DiaTab"):� ; ��kJ:� ;��ku:LJ%=-1:� ;���h_(v%,y%,_%,U%):�d%,z%,e%,rJ%,il%,p_%,y_%,QJ%,bi%:�G(v%,y_%,QJ%,d%,z%,e%):rJ%=�P("Homerton.Bold",&E,&E):ș&400E6,7:il%=�P("Trinity.Bold",&C,&C):p_%=�P("Homerton.Medium",&A,&A):ș&40081,,"Trinity.Medium",9*16,9*16�bi%:ȎS_%� ;�1:�lu(v%,y%,_%,U%) ;�2:�MJ(v%,y%,_%,U%) ;�3:�Al(v%,y%,_%,U%) ;�:�V(0,7):�y%� ;A$=�X(z%,-1)+" "+�e%:Ȏ�� ;9�QJ%<>e%:A$=�X(y_%,3)+" "+�QJ%+" - "+�X(z%,3)+" "+�e% ;#�y_%<>z%:A$=�X(y_%,-1)+" - "+A$ ;2�:�B(�S(0,0,d%,z%,e%),W%(t%))=-1��I(y%,_%,U%) ;�L(rJ%,A$,1,_%+u%-&A,U%-&A) ;!�:A$=�QJ%+" "+�X(y_%,-1):Ȏ�� ;9�QJ%<>e%:A$=�QJ%+" "+�X(y_%,3)+" - "+�e%+" "+�X(z%,3) ; �y_%<>z%:A$+=" - "+�X(z%,-1) ;!=�:�L(rJ%,A$,-1,_%+&A,U%-&A):�B(v%,B%(t%))=1��I(y%,_%,U%) ;"�:�U(rJ%):�U(il%):�U(p_%):� ;#��_u(l%,cl%):Ȏ!l%� ;$�0,1,2:�S_%<>!l%+1� ;%o�S(e_%,S_%-1,�):S_%=!l%+1:�S(e_%,!l%,�):�G(S%(�G(3)),A%,B%,d%,z%,e%):�H(d%,z%,e%):�Z%(t%)=3�v%=S%(t%):mJ%=� ;&� ;'�3:Ȏl%!4� ;(�0:�Wy(LJ%) ;)�1:�I_(LJ%) ;*�2:�v(LJ%) ;+� ;,�4:�`(�T,�I,�R,e_%,0) ;-�5:Ȏl%!4� ;. �0:�D_ ;/ �1:�S_ ;0 �2:�N_ ;1 �3:�H_ ;2� ;3�:� ;4��A_(Zy%,l%):ȎZy%� ;5N�aJ%:A$=�J(Zy%,!l%):�`y(Zy%)=�A("E")��A(f%,30,A$):nu%=!l%+1��A(Ry%,&D,A$) ;6(�yl%:�A(f%,33,�J(Zy%,!l%)):cu%=!l%+1 ;7(�bl%:�A(f%,34,�J(Zy%,!l%)):ju%=!l%+1 ;8(�rl%:�A(f%,35,�J(Zy%,!l%)):mu%=!l%+1 ;9�:� ;:9��Qy(p%):�d%,z%,e%,A%,B%:�G(v%,A%,B%,d%,z%,e%):ȎS_%� ;;�1:�P(d%,z%,e%,p%*&E,0,0) ;<�2:�P(d%,z%,e%,p%*7,0,0) ;=�3:�P(d%,z%,e%,p%*2,0,0) ;>K�:J_%=-�B(v%,�S(0,0,d%,z%,e%)):�H(d%,z%,e%):�B(v%,B%(t%))=-1�v%=B%(t%) ;?�B(v%,W%(t%))=1�v%=W%(t%) ;@� ;A(��zu(g%,y%,a%,Q%,i_%,qJ%):�R%:ȎS_%� ;B�1:R%=�vy(g%,y%,a%,Q%) ;C�2:R%=�ky(g%,y%,a%,Q%) ;D�3:R%=�Q_(g%,y%,a%,Q%) ;E�:�g%=2�R%>1�LJ%=R%�LJ%=-1 ;F� ;GݤG_(s%,By%):o%=�:ȎBy%� ;H�389:�D_ ;I�390:�S_ ;J�391:�N_ ;K�392:�H_ ;L�414:�Qy(1) ;M�415:�Qy(-1) ;N�30:�H(�T,�I,�R) ;O�388:�`(�T,�I,�R,e_%,0) ;P�27:�X(sy%) ;Q o%=� ;R �:=o% ;S'ݤP_(q%,s%,By%):�A%,B%:o%=�:�q%=f%� ;T4A%=0:�By%=&D�By%=398�By%=394�A%=1��By%=399�A%=-1 ;U ȎBy%� ;V#�396:�wJ%=�z��k(q%,s%,-1,16,18) ;W"�397:�wJ%=�z��k(q%,s%,1,16,18) ;X�&D:�s%=18��V_:o%=� ;Y �27:�n ;Z�4,24:�O_%<>-1��v(O_%) ;[ o%=� ;\� ;] �o%=� ;^ �:=o% ;_`��pJ:�w%,B%:w%=�r$:B%=Z_%:ȕB%<>-1:�#w%,�B%!8:ș&C,2,w%,B%+&C,B%!8 -&C:B%=B%!4:�:�#w%:w%=0:� ;`O��Bu(w%):�#w%,S_%:�#w%,n_%:�#w%,Ou%+5:�#w%,D_%:�#w%,ly%:�#w%,R_%:�#w%,Du%:� ;aO��fJ(w%):S_%=�#w%:n_%=�#w%:Ou%=(�#w%)-5:D_%=�#w%:ly%=�#w%:R_%=�#w%:Du%=�Q:� ;b&��Gu(x%,Fy%,l%,a%,Q%):�A%,B%:Ȏs%� ;c�1,2,3:�g%<>2�Z(x%,Fy%,1) ;d>�&D:�W(Ay%,0,-1):�S(Ay%,�_(x%,Fy%),1):�F(Ay%,a%,Q%,x%,Fy%) ;e-�6:B%=��Z(x%,Fy%):�A%=7�&A:�M(x%,A%,B%):� ;f>�8,9:A%=��M(x%,7):A%+=1+2*(Fy%=8):�A%>0�A%<&D��A(x%,7,�A%) ;g�&A:�F(Yu%,a%,Q%,x%,Fy%) ;h3�&B:�M(x%,&C,��Z(x%,Fy%)):�M(x%,18,��Z(x%,Fy%)) ;i�&C:�F(pu%,a%,Q%,x%,Fy%) ;j�:� ;k��iJ(l%,x%):ȎbJ%� ;l1�Ay%:�D(x%,&D,!l%):�W(Ay%,0,-1):�S(Ay%,!l%,1) ;m�Yu%:�A(x%,&A,�J(Yu%,!l%)) ;n2�pu%:�A(x%,&C,�J(pu%,!l%)):�M(x%,18,-(!l%<>0)) ;o�:� ;p���mu(x%):�A%:�A%=1�3:�Z(x%,A%,�(S_%=A%)):�:�D(x%,&D,n_%):�Z(x%,5,-Ou%):�Z(x%,&B,-(D_%<>0)):�M(x%,&C,-(D_%=0)):�M(x%,18,-(D_%<>1)):�Z(x%,18,-Du%):�Z(x%,6,-(ly%<>0)):�A%=7�&A:�M(x%,A%,-(ly%=0)):�:�Z(x%,&F,�((R_%�4)>0)):�Z(x%,16,�((R_%�2)>0)) ;q:�Z(x%,17,�((R_%�1)>0)):�M(x%,&F,�((R_%�1)>0)):�ly%<>0� ;r/�A(x%,7,�(ly%�&F)):�A(x%,&A,�J(Yu%,ly%>>4)) ;s$��A(x%,7,"1"):�A(x%,&A,�A("E3")) ;t8�:�D_%=0��A(x%,&C,�A("EN1"))��A(x%,&C,�J(pu%,D_%-1)) ;u� ;v���nu(x%):�A%,B%,d%,z%,e%:A%=0:�A%+=1:��Z(x%,A%)�A%=3:S_%=A%:�G(S%(�G(3)),A%,B%,d%,z%,e%):�H(d%,z%,e%):n_%=�_(x%,&D):Ou%=�Z(x%,5):ly%=0:D_%=0:�Z(x%,6)�ly%=((�My(Yu%,�M(x%,&A)))<<4)+��M(x%,7) ;w'�Z(x%,&B)�D_%=�My(pu%,�M(x%,&C))+1 ;x<Du%=�Z(x%,18):R_%=�(�Z(x%,17)+2*�Z(x%,16)+4*�Z(x%,&F)):� ;y:��H(d%,z%,e%):�j%,B%,xy%,T%,b%:j%=�H(d%,z%,e%):�S_%=3� ;z$�P(d%,z%,e%,�ey(d%,z%,e%)-1,0,0) ;{��P(d%,z%,e%,-j%+1,0,0) ;|:�:b%=�S(0,0,d%,z%,e%):S%(�G(3))=b%:�Z%(t%)=3�v%=S%(t%) ;}�l:� ;~n��l:�B%,T%,xy%:B%=Z_%:gJ%=-1:b%=S%(�G(3)):V%()=0:ȕB%<>-1��xy%:T%=B%!&C:�B(b%,T%)<>1�xy%=�:gJ%=B%�B%=B%!4 ;�:� ;�`ݤiy(T%):�B%,F%:B%=Z_%:F%=-1:ȕB%<>-1�F%=-1:�((B%!16)�(1<<20))=0�((B%!16)�4)=4�F%=B%�B%=B%!4 ;� �:=F% ;� ��r_(B%):�(B%!16�(3<<20))=0� ;�k�qy%,Vy%,d%,z%,e%,Il%,A$,A%,R%,C%:�G(B%!&C,qy%,Vy%,d%,z%,e%):pJ%=B%:�Vy%>&C�Vy%-=&C:Il%=���Vy%=0�Vy%=&C ;�=A$=�Vy%+":"+�2-��qy%,"0")+�qy%:�Il%�A$+=" pm,"�A$+=" am," ;�P�A(Ry%,1,�O("WasSet",A$,"","","")):�A(Ry%,2,�U(d%,z%,e%,-1)):�((B%!16)�4)=4� ;�R%=�:�((B%!16)�8)=8� ;�c�ry(qy%,Vy%,d%,z%,e%,((B%!16)>>8)�&FF,(((B%!16)>>16)�&F)-1):�Vy%>&C�Vy%-=&C:Il%=���Vy%=0�Vy%=&C ;�=A$=�Vy%+":"+�2-��qy%,"0")+�qy%:�Il%�A$+=" pm,"�A$+=" am," ;�B�A(Ry%,&F,�O("WilRpt",A$,"","","")):�A(Ry%,16,�U(d%,z%,e%,-1)) ;�S�:�vy(d%,z%,e%,B%!16):A$=�Vy%+":"+�2-��qy%,"0")+�qy%:�Il%�A$+=" pm,"�A$+=" am," ;�B�A(Ry%,&F,�O("WilRpt",A$,"","","")):�A(Ry%,16,�U(d%,z%,e%,-1)) ;�� ;��:�((B%!16)�1)=1�W_%=&A ;��C%=(B%!16>>4)�&F:C%-=n_%*(C%=0):�A%=4�6:�D(Ry%,A%,C%):�:B%+=20:�A%=4�6:A$="":ȕ?B%<>&B:A$+=�?B%:B%+=1:�:B%+=1:�A(Ry%,A%,A$):�:�Z(Ry%,9,0):�A%=&A�&D:�M(Ry%,A%,1):�:�A(Ry%,&A,"1"):�A(Ry%,&D,�A("E1")):�hJ(�R%,�):vJ%=-1 ;�!�:�(B%!16�(1<<21))<>0��bu(B%) ;� �Yy(B%,0) ;��:� ;�o��bu(B%):�A$,A%,Z$,fi%,Bl%:B%+=20:�A%=1�3:ȕ?B%<>&B:A$+=�?B%:B%+=1:�:B%+=1:�:�A$,1)="="�A$=�A$,�A$,"*")+1) ;�4Z$=�v(�A$,�A$," "))):�Z$<>"FILER_RUN"�Z$<>"RUN"� ;�Cș8,5,A$�fi%,Bl%:�fi%=2�A$="Run "+A$��fi%<>0�A$="Filer_Run "+A$ ;��:ș&400DE,A$:� ;����N_:�b%,B%,xy%,A%,C%,d%,z%,e%:b%=S%(�G(3)):B%=gJ%:�G(b%,A%,C%,d%,z%,e%):A%=-&E*(S_%=1)-7*(S_%=2)-2*(S_%=3):�P(d%,z%,e%,A%,0,0):b%=�S(0,0,d%,z%,e%):ȕB%<>-1��xy%:T%=B%!&C:�B(b%,T%)=-1�xy%=��B%=B%!4 ;��:�xy%� ;�2t%=�G(3):�G(B%!&C,A%,C%,d%,z%,e%):�H(d%,z%,e%) ;���B(�A("ErrNoMore")) ;��:� ;�g��S_:�b%,B%,xy%,A%,C%,d%,z%,e%:b%=S%(�G(3)):B%=gJ%:ȕB%<>-1��xy%:T%=B%!&C:�B(b%,T%)=1�xy%=��B%=!B% ;��:�xy%� ;�2t%=�G(3):�G(B%!&C,A%,C%,d%,z%,e%):�H(d%,z%,e%) ;���B(�A("ErrNoB4")) ;��:� ;���D_:�Z_%<>-1� ;�3t%=�G(3):�G(Z_%!&C,A%,C%,d%,z%,e%):�H(d%,z%,e%) ;���B(�A("ErrNoEnt")) ;��:� ;���H_:�B%:B%=Z_%:�B%<>-1� ;�GȕB%!4<>-1:B%=B%!4:�:t%=�G(3):�G(B%!&C,A%,C%,d%,z%,e%):�H(d%,z%,e%) ;���B(�A("ErrNoEnt")) ;��:� ;�8��lu(v%,y%,_%,U%):�Nu%,Py%,j%:�y%��P(d%,z%,e%,7,0,0) ;��Nu%=U%-40:Py%=-(k%-60)/7:QJ%=e%:y_%=z%:�j%=1�7:�zy(j%+7*�y%,d%,j%,z%,e%,y%,_%+&A,Nu%,u%-20,Py%):�j%<>7��P(d%,z%,e%,1,0,0):Nu%+=Py% ;��:� ;�uݤvy(g%,y%,a%,Q%):�Py%,p%,_%,R%:Py%=(k%-60)/7:Q%=-Q%-40+Py%:p%=((Q%�Py%)�8):�p%<>0�p%+=7*�y%:�a%<&A�a%>u%-20�p%=0 ;��y%�_%=wy%�_%=my% ;�L�p%<>0�R%=�Fy(p%,a%-&A,Q%�Py%,g%,Py%,_%+&A,-m%-40-(p%+7*(p%>7))*Py%+Py%) ;�=R% ;�R��MJ(v%,y%,_%,U%):�Nu%,Py%,tJ%,j%:�y%��P(d%,z%,e%,3,0,0):j%=4:tJ%=7�j%=1:tJ%=3 ;�ENu%=U%-40:Py%=-(k%-60)/3:QJ%=e%:y_%=z%:�j%=j%�tJ%:�j%=6�Py%=Py%/2 ;�S�zy(j%,d%,j%,z%,e%,y%,_%+&A,Nu%,u%-20,Py%):�j%<>tJ%��P(d%,z%,e%,1,0,0):Nu%+=Py% ;��:� ;��ݤky(g%,y%,a%,Q%):�Py%,p%,_%,U%,R%:Py%=(k%-60)/3:Q%=-Q%-40+Py%:p%=((Q%�Py%)�4):Q%=Q%�Py%:U%=-m%-40-p%*Py%+Py%:�p%<>0�p%+=3*�y%:�a%<&A�a%>u%-20�p%=0 ;��p%>=6�Py%=Py%/2 ;�&�p%=6�Q%>=Py%�Q%-=Py%:p%=7:U%-=Py% ;��y%�_%=wy%�_%=my% ;�.�p%<>0�R%=�Fy(p%,a%-&A,Q%,g%,Py%,_%+&A,U%) ;�=R% ;�,��Al(v%,y%,_%,U%):�y%��P(d%,z%,e%,1,0,0) ;�OQJ%=e%:y_%=z%:�zy(��y%,d%,�H(d%,z%,e%),z%,e%,y%,_%+&A,U%-40,u%-20,-k%+60):� ;�@ݤQ_(g%,y%,a%,Q%):�p%,_%,R%:Q%=-Q%-40:p%=1:�y%�_%=wy%�_%=my% ;�.�a%<&A�a%>u%-20�Q%>k%-60�Q%<0�p%=0�p%+=�y% ;�1�p%<>0�R%=�Fy(p%,a%-&A,Q%,g%,k%,_%+&A,-m%-40) ;�=R% ;�m��zy(p%,d%,j%,z%,e%,y%,_%,U%,x%,n%):�B%,C%,T%,Q%,Qy%,A%,F_%:Qy%=28:F_%=�S(0,0,d%,z%,e%):�F(_%,U%,x%,n%)� ;�"�V(0,7):�F_%=�S(0,0,�T,�I,�R)� ;�9ș&400E6,!FJ%:�Cy(_%-4,U%-4,x%+8,-n%-8,&C):ș&400E6,7 ;�*�:�_%,U%:�BYx%,0:�BY0,n%:�BY-x%,0:�y%� ;�v�L(il%,�d%,-1,_%+x%-30,U%-6):�L(p_%,�t(j%,-1),1,_%+x%-40,U%-6):�F(_%,U%-6,x%-&DC,-24)��cy(j%,d%,z%,e%,-1,_%,U%-6) ;�x�:�L(il%,�d%,1,_%+30,U%-6):�L(p_%,�t(j%,-1),-1,_%+40,U%-6):�F(_%+&DC,U%-6,x%-&DC,-24)��cy(j%,d%,z%,e%,1,_%+x%,U%-6) ;���:Q%=40:T%=�n(d%,z%):B%=-1:A%=V%(p%):C%=A%-T%:ȕA%>0�T%>0:B%=�k(d%,z%,B%):T%-=1:A%-=1:�:ȕT%<>0�Q%+Qy%-5<=-n%:B%=�k(d%,z%,B%):T%-=1:�c(p_%,�Sy(B%,e%),_%+30,U%-Q%-20,u%-50,Qy%):Q%+=Qy%:�:B%=gJ%:T%=�S(0,0,d%,z%,e%):A%=C% ;�7ȕA%>0:B%=�a(B%,T%):B%=B%!4:A%-=1:�:�Q%+Qy%-5<=-n%� ;�S�:B%=�a(B%,T%):�B%<>-1��c(p_%,�D_(B%),_%+30,U%-Q%-20,u%-50,Qy%):Q%+=Qy%:B%=B%!4 ;��B%=-1�Q%+Qy%-5>-n% ;�B�:�a(B%,T%)<>-1�Q%+Qy%-5>-n%��_%,U%+n%+24:�BY20,0:�81,-&A,-20 ;�*�V%(p%)>0��_%,U%-60:�BY20,0:�81,-&A,20 ;��:� ;����OJ:�A%,F%,P%,B%,A$,C%,L%:A%=1:�ș&61502,C_%,"Spec"+�A%,0�,,P%;F%:A%+=1:�F%�1:Ri%=A%-3:�J%(A%-3,4):B%=0:ȕB%<=Ri%:ș&41502,C_%,"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,C_%,"Easter"+�A%,0�,,P%;F%:A%+=1:�F%�1:Qa%=A%-3:�R%(A%-3,1):B%=0:ȕB%<=A%-3:ș&41502,C_%,"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��cy(ra%,c%,r%,e%,zu%,a%,Q%):�A$,UJ%,KJ%,Wy%,A%:�A%=0�Ri%:�J%(A%,1)=r%� ;�K�(J%(A%,2)=-1�J%(A%,2)=ra%)�c%>=J%(A%,3)�c%<=J%(A%,4)�A$+=$J%(A%,0)+"/" ;�z�:�:�cJ(UJ%,KJ%,e%):A%=0:Wy%=0:ȕA%<=Qa%:�P(UJ%,KJ%,e%,R%(A%,1)-Wy%,0,0):Wy%=R%(A%,1):�UJ%=c%�KJ%=r%�A$+=$R%(A%,0)+"/" ;�HA%+=1:�:�A$),"/")�ș&40081,,"Trinity.Medium",7*16,7*16�Wy%�Wy%=bi% ;�"�A$<>""��L(Wy%,�A$),zu%,a%,Q%) ;��Wy%<>bi%�ș&40082,Wy% ;�� ;�KݤFy(p%,a%,Q%,g%,n%,_%,U%):�by%,Qy%,A%,B%,d%,z%,e%,T%,F%,R%:Qy%=28:Ȏ�� ;�s�a%>=30�a%<=u%-20�Q%>=40:�G(v%,A%,B%,d%,z%,e%):�P(d%,z%,e%,p%-1,0,0):by%=(((Q%-40+Qy%)�Qy%)):�by%>0�by%+=V%(p%) ;�8�by%>0�by%<=�n(d%,z%)�g%<>2��x_(d%,z%,by%,g%):by%=-1 ;��by%>0�by%-=�n(d%,z%) ;��by%>0� ;�`T%=�S(0,0,d%,z%,e%):B%=gJ%:B%=�a(B%,T%):ȕby%>1�B%<>-1:B%=B%!4:B%=�a(B%,T%):by%-=1:�:�B%=-1� ;��g%<>2��s(d%,z%,e%):VJ%=� ;��:Ȏg%� ;��4:�Wy(B%):VJ%=� ;��2:R%=B% ;��1:�I_(B%):VJ%=� ;�� ;�� ;��:�g%<>2�by%=0� ;�B�G(v%,A%,B%,d%,z%,e%):�P(d%,z%,e%,p%-1,0,0):�s(d%,z%,e%):VJ%=� ;�� ;�� ;� �g%=2 ;���a%<=20�Q%>=n%-20:�G(v%,A%,B%,d%,z%,e%):�P(d%,z%,e%,p%-1,0,0):T%=�S(0,0,d%,z%,e%):by%=-((n%-40)�Qy%):B%=�a(gJ%,T%):ȕB%<>-1:B%=B%!4:B%=�a(B%,T%):by%+=1:�:by%+=�n(d%,z%):�V%(p%)<by%�V%(p%)+=1:�N(i%,_%,U%-40,_%+u%-&A,U%-n%+4) ;�N�a%<=20�Q%<=60�Q%>=40�V%(p%)<>0:V%(p%)-=1:�N(i%,_%,U%-40,_%+u%-&A,U%-n%+4) ;��a%<=20�Q%<=60�Q%>=40 ;�D:�G(v%,A%,B%,d%,z%,e%):�P(d%,z%,e%,p%-1,0,0):�s(d%,z%,e%):VJ%=� ;� �:=R% ;�Jݤa(B%,T%):�A%:A%=-1:ȕB%<>-1�A%=-1:A%=�B(�x(B%!&C),T%):�A%=-1�B%=B%!4 ;��:�A%=0�A%=B%�A%=-1 ;�=A% ;�ݤD_(B%):�A$,A%,C%,Z$,T%:C%=(B%!16>>4)�&F:T%=B%!16�(1<<21):C%-=n_%*(C%=0):�V(0,C%):�((B%!16>>1)�1)=1�Z$=�py(�S_(B%!&C),�ty(B%!&C),-1,Ou%)+" " ;�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$ ;���u_(S$):�A$,Ba%,e:�Z(f%,39,1):A$=�M(f%,16):Ba%=�A$:�A(f%,16,A$+S$):fl%=��M(f%,16):S$=�S$,fl%-Ba%+1):�A(f%,17,S$):fl%=��M(f%,16):S$=�S$,fl%+1):�A(f%,18,S$):� ;���s(c%,r%,Q%):�A%,n%,Il%:�A%=16�18:�A(f%,A%,""):�D(f%,A%,n_%):�:�Z(f%,24,0):nJ%=0:z$="":�Z(f%,21,�((R_%�4)>0)):�Z(f%,23,�((R_%�2)>0)):�Z(f%,38,�((R_%�1)>0)):�M(f%,21,�((R_%�1)>0)):�Z(f%,39,0):�M(f%,38,0):�Jy(26):�A(f%,27,"1"):�A(f%,30,�A("E1")) ;��nu%=1:cu%=1:ju%=1:mu%=1:�M(f%,37,1):�A(f%,33,�A("OT1")):�A(f%,34,�A("Day1")):�A(f%,35,�A("OE1")):�A(f%,1,�U(c%,r%,Q%,-1)):Q_%=c%:N_%=r%:AJ%=Q%:n%=�c:r%=�i:�f(f%,Kl%,�A("alset"),-1):�A(f%,3,�n%):�A(f%,5,"00"):�O(0,0):�Ty(�,�):�C(f%,3):� ;�B��I_(B%):�Wy(B%):O_%=-1:�M(f%,37,1):�f(f%,Kl%,�A("alset"),0):� ;�x��Wy(B%):�d%,z%,e%,n%,r%,A$,ui%,R%:�G(B%!&C,r%,n%,d%,z%,e%):O_%=B%:�Z(f%,38,((B%!16>>20)�1)):A$=�r%:�r%<&A�A$="0"+A$ ;���M(f%,21,�((((B%!16>>20)�1)>0)�((B%!16�(1<<21))>1))):�M(f%,38,�((B%!16�(1<<21))>1)):�A(f%,5,A$):nJ%=((B%!16)>>4)�&F:�nJ%=0�nJ%=n_% ;���A%=16�18:�D(f%,A%,nJ%):�:�M(f%,37,0):�A(f%,3,�n%):�f(f%,Kl%,�A("aledit"),-1):�A(f%,1,�U(d%,z%,e%,-1)):Q_%=d%:N_%=z%:AJ%=e%:�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")) ;�pnu%=1:cu%=1:ju%=1:mu%=1:�Jy(26):�A(f%,33,�A("OT1")):�A(f%,34,�A("Day1")):�A(f%,35,�A("OE1")):�((B%!16)�4)=4� ;�%ui%=�:�Z(f%,24,1):�((B%!16)�8)=8� ;�RR%=((B%!16)>>8)�&FF:�A(f%,27,�R%):nu%=((B%!16)>>16)�&F:�A(f%,30,�J(aJ%,nu%-1)) ;���:�Jy(31):cu%=((B%!16)>>8)�&F:�A(f%,33,�J(yl%,cu%-1)):ju%=((B%!16)>>&C)�&F:�A(f%,34,�J(bl%,ju%-1)):mu%=((B%!16)>>16)�&F:�A(f%,35,�J(rl%,mu%-1)) ;�� ;���Z(f%,24,0) <