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 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Archimedes archive » Acorn User » AU 1998-04 B.adf » Features » Organiser/!Upgrade/!Organiser/!RunImage
- Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199804.adf » Features » Organiser/!Upgrade/!Organiser/!RunImage
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)
<