Home » Personal collection » Acorn hard disk » apps » Astro » !Sky_Guide/!runimage
!Sky_Guide/!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 » Personal collection » Acorn hard disk » apps » Astro |
| Filename: | !Sky_Guide/!runimage |
| Read OK: | ✔ |
| File size: | 11080 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1REM>!runimageC
2REMLEN A.P.Senior 1995
3a3%=FALSE:ONERRORREPORT:PRINT" at line ";ERL:SYS&406c2:END
4SYS&406c0:PROCJ1:PROCP1:ONERRORPROCJ0(ERR,REPORT$):PROCZ
5y4%=FNe(T$):PROCV0:PROCA(N0%,7,""):PROCz0:PROCK(N0%,9,10):PROCA(N0%,7,"star data"):PROCT1:PROCt0:PROCA(N0%,7,"sprites"):PROCw0:PROCK(N0%,9,60):PROCd0:PROCA(N0%,7,"windows"):PROC_1:PROCF0:PROCA(N0%,7,"cross references"):PROCN0:PROCM:!J%=N0%:SYS&400c6,,J%:PROCF0:ONERRORPROCJ0(ERR,REPORT$)
6SYS&406c1:PROCU1:PROCZ
7DEFPROCJ1:LOCALQ4%:Q4%=3072:DIMJ%Q4%:DIMH%Q4%:DIMY3%256:DIM_4%3072:w0%=_4%:J1%=_4%+3072:ENDPROC
8DEFPROCz0:DIMP1%16:DIMj0%16:DIMh0%16:DIMg0%16:DIMN5%16:g0%!0=11:g0%!4=11:g0%!8=15:g0%!12=15:DIMV%(72):DIMT%(72):DIMM(360):DIMS(360):DIMN(360):DIMP(360):DIMS3%80:DIMB4%16:DIMX%(3):DIML%(3):L%(0)=800:L%(1)=1200:L%(2)=2300:L%(3)=3750:DIMA$(24)
9A$(0)="":A$(1)="Alpha":A$(2)="Beta":A$(3)="Gamma":A$(4)="Delta":A$(5)="Epsilon":A$(6)="Zeta":A$(7)="Eta":A$(8)="Theta":A$(9)="Iota":A$(10)="Kappa":A$(11)="Lambda":A$(12)="Mu":A$(13)="Nu":A$(14)="Xi":A$(15)="Omicron":A$(16)="Pi":A$(17)="Rho"
10A$(18)="Sigma":A$(19)="Tau":A$(20)="Upsilon":A$(21)="Phi":A$(22)="Chi":A$(23)="Psi":A$(24)="Omega":DIMG$(12):G$(1)="January":G$(2)="February":G$(3)="March":G$(4)="April":G$(5)="May":G$(6)="June":G$(7)="July":G$(8)="August":G$(9)="September"
11G$(10)="October":G$(11)="November":G$(12)="December":DIMA%(12):A%(1)=31:A%(2)=28:A%(3)=31:A%(4)=30:A%(5)=31:A%(6)=30:A%(7)=31:A%(8)=31:A%(9)=30:A%(10)=31:A%(11)=30:A%(12)=31:DIMC$(11):C$(0)="G2 star":C$(1)="Terrestrial planet":C$(2)="Terrestrial planet"
12C$(3)="Terrestrial planet":C$(4)="Terrestrial planet":C$(5)="Planet (Gas giant)":C$(6)="Planet (Gas giant)":C$(7)="Planet (Gas giant)":C$(8)="Planet (Gas giant)":C$(9)="Planet (Captured asteroid)":C$(10)="Moon":C$(11)="Earth's shaddow":DIMD$(11)
13D$(0)="Sun":D$(1)="Mercury":D$(2)="Venus":D$(3)="Earth":D$(4)="Mars":D$(5)="Jupiter":D$(6)="Saturn":D$(7)="Uranus":D$(8)="Neptune":D$(9)="Pluto":D$(10)="Moon":D$(11)="Umbra/Penumbra":DIMD%(11):DIMH%(11):DIMF$(11):DIMI$(8):I$(1)="Open Cluster"
14I$(2)="Globular Cluster":I$(3)="Cluster with Nebula":I$(4)="Planetary Nebula":I$(5)="Diffuse Nebula":I$(6)="Galaxy":I$(7)="Supernova Remnant":I$(8)="Asterism of stars":DIMK%(110):DIMM%(110):DIMO%(110):DIML$(30):z3%=10:DIMB$(10):DIMQ(10):DIMR(10):DIMQ%(10):DIMH$(96)
15DIMM$(96):DIMC%(980):DIMB%(980):r%=0:DIMS%(96):DIMU%(96):_3%=0:DIMZ%(10):L4%=0:DIMF%(320):DIMN%(320):d3%=0:DIMJ$(310):DIMJ%(9100):DIMG%(9100):DIML(9100):DIMO(9100):DIMR%(5000):DIMW%(5000):DIMP%(5000):DIMB(8,9):DIMA(8):DIMN$(8):DIMG(8,3):DIMI(8,3):DIMK(8,3):DIMH(8,3):DIMJ(8,3):DIMW(8):DIMT(8):DIMV(8)
16DIMD(2,2),C(2),U(2),F(2,2):ENDPROC
17DEFPROCP1:g$="!Astronomy":T$="Sky_Guide":_$="An astronomical guide":a$="� Alan Senior 1996":f$="Version 0.16�, 7th May 1996":D$=FNl("Obey$Dir"):J4%=0:p%=0:l4%=-2:Z1%=4:k0%=1:t4%=64:H5%=16:N1%=2:m4%=0:O3%=0:h3%=FALSE:ENDPROC
18DEFPROCT1:T%=0:A0%=FALSE:z%=0:o%=0:D0%=0:F0%=0:X=2*PI:h%=520:K2%=180:N%=1200:R3%=1:t1%=1:_%=0:`%=0:Z0%=1200:B0%=908:w2%=SQR(Z0%^2+B0%^2):PROCK(N0%,9,10):FORY0%=0TO360:M(Y0%)=N%*SIN(RAD(Y0%+180)):S(Y0%)=N%*COS(RAD(Y0%+180)):NEXT:PROCK(N0%,9,20):FORY0%=0TO360
19N(Y0%)=SIN(RAD(Y0%*360/288+180)):P(Y0%)=COS(RAD(Y0%*360/288+180)):NEXT:PROCK(N0%,9,20):IFw2%>2*N%:r0%=90:ELSEr0%=DEG(ASN(w2%/(2*N%)))
20v%=N%*COS(RAD(r0%+10)):IFv%<0:v%=0
21IFv%>N%/2:v%=N%/2
22S%=1:_2%=FALSE:r2%=FALSE:t0%=6:a%=5:M%=0:N=RAD(M%):P%=2*270:F1%=FALSE:V=SIN(N):U=COS(N):k%=DEG(ASN(Z0%/2/N%)):k%+=a%:r3%=-N%*SIN(RAD(k%)):g4%=-r3%:k%=DEG(ASN(B0%/2/N%)):k%+=2*t0%:i1%=-N%*SIN(RAD(k%)):b2%=-i1%:f3%=1:F1%=2:t3%=3:R4%=4:d0%=f3%:n2%=TRUE:I2%=TRUE:c2%=TRUE:Q2%=TRUE:p1%=TRUE:B2%=TRUE:C2%=TRUE
23O2%=TRUE:H2%=TRUE:q1%=TRUE:S2%=TRUE:B3%=TRUE:t2%=TRUE:q2%=TRUE:y%=FALSE:G0%=FALSE:G3%=TRUE:v3%=0:L3%=0:n1%=0:a1%=0:W2%=0:X2%=0:e3%=FALSE:e0%=FALSE:u1%=FALSE:x1%=FALSE:g1%=FALSE:e%=TRUE:q%=FALSE:y2%=FALSE:m3%=FALSE:I0%=FALSE:z2%=FALSE:U%=0:M1%=-1:v=0:s=0:G1%=0:C1%=0:a2%=0:`2%=0:H0%=FALSE:b3%=FALSE:z0=0:l%=1:e2%=TRUE:K5%=FALSE:i2%=TRUE
24G2%=TRUE:s0%=TRUE:c3%=FALSE:j%=FALSE:n%=FALSE:O%=0:m2%=0:x0%=TRUE:s%=FALSE:z1%=FALSE:A3%=FALSE:l2%=FALSE:d2%=TRUE:Y2%=TRUE:J2%=TRUE:l1%=TRUE:k1%=TRUE:T2%=TRUE:F2%=TRUE:L2%=TRUE:N2%=TRUE:M2%=TRUE:m1%=TRUE:u%=0:G3=30/6378140:q=52:D0=-2:X1%=FALSE:i$="Home":p3%=0:T3%=0:P0%=FALSE:V0%=0:v1%=FALSE:x2%=FALSE:PROCc1:d$="":`$=""
25PROCN1(D$+".Data.StarData"):PROCK(N0%,9,30):PROCA(N0%,7,"constellations"):PROCj1(D$+".Data.StarNames"):PROCk1(D$+".Data.ConstGenit"):PROCQ1(D$+".Data.ConstNames"):PROCK(N0%,9,40):PROCI1(D$+".Data.ConstLines"):PROCa0(D$+".Data.Mess_Map"):PROCy0(D$+".Data.PlanetEl"):PROCK(N0%,9,50)
26PROCk0(D$+".Data.Locations"):v4%=0:s4%=0:G5%=0:ENDPROC
27DEFPROCt0:F5%=FN`(g$,"RIGHT"):ENDPROC
28DEFPROCw0:L%=FNo(D$+".Resources.Sprites"):SYS&400ed,256,L%,"mag0",,,,j0%,P1%:SYS&400ed,256,L%,"mag0",,,,h0%,P1%:SYS&400ed,256,L%,"mag0",,,,g0%,N5%:g0%!0=g0%!0*11:g0%!4=g0%!4*11:g0%!8=g0%!8*15:g0%!12=g0%!12*15:ENDPROC
29DEFPROCd0:info%=FNG(D$+".Resources.Templates","info%",w0%,J1%,0):K%=FNG(D$+".Resources.Templates","button_bar%",w0%,J1%,L%):X%=FNG(D$+".Resources.Templates","objectinfo%",w0%,J1%,0):w%=FNG(D$+".Resources.Templates","starwindow%",w0%,J1%,0)
30T0%=FNG(D$+".Resources.Templates","equawindow%",w0%,J1%,0):time%=FNG(D$+".Resources.Templates","time%",w0%,J1%,L%):X0%=FNG(D$+".Resources.Templates","position%",w0%,J1%,L%):Q1%=FNG(D$+".Resources.Templates","moonphase%",w0%,J1%,L%)
31PROCA(K%,11,STR$((24-P%/30)MOD24)):PROCA(K%,13,STR$(M%)):PROCB(K%,0,G2%):PROCB(K%,2,e2%):PROCB(K%,3,i2%):PROCB(K%,17,s0%):PROCB(K%,5,n%):PROCB(K%,4,x0%):PROCB(K%,6,j%):PROCB(K%,7,NOTF1%):PROCB(K%,8,F1%):PROCB(K%,27+t1%,TRUE):PROCH(K%,5,NOTH0%):PROCH(K%,6,NOTH0%):PROCH(K%,8,TRUE):PROCA(K%,19,FNK(h%)):PROCA(K%,24,"0")
32PROCa(T3%,TRUE):ENDPROC
33DEFPROC_1:`3%=FNV("Object information",40,20):ENDPROC
34DEFPROCF0:PROCz(info%,T$,_$,a$,f$):ENDPROC
35DEFPROCN0:PROCx0(D$+".Resources.menus"):ENDPROC
36DEFPROCV0:LOCALY4%:N0%=FNG(D$+".Resources.Templates","runup",w0%,J1%,0):PROC`0(N0%):!H%=N0%:SYS&400c5,,H%:SYS&400c8,,H%TOY4%:WHILEY4%:SYS&400ca,,H%TOY4%:ENDWHILE:w0%=_4%:ENDPROC
37DEFPROCU1:REPEAT:SYS&400e1,m4%,J%,O3%TOc4%:CASEc4%OF
38WHEN0:PROCO1
39WHEN1:PROCS1
40WHEN2:h2%=!J%:PROCe1(h2%)
41WHEN3:h2%=!J%:PROCc(h2%)
42WHEN4:PROCi1
43WHEN5:PROCq1
44WHEN6:PROCf0
45WHEN7:PROCr0
46WHEN8:PROCh0
47WHEN9:PROCC1
48WHEN10:PROCn0
49WHEN11:PROCf1
50WHEN12:PROCm0
51WHEN17:PROCv
52WHEN18:PROCv
53WHEN19:PROCb1
54ENDCASE:UNTILh3%:PROCZ:ENDPROC
55DEFPROCO1:SYS66TOO3%:O3%+=5:IFv1%THEN
56IFI0%ORG0%THEN
57k%=R0%:PROCi:IFR0%<>k%THEN
58a2%=0:`2%=0:M1%=0:PROC_:PROCM:PROCD
59ENDIF
60ENDIF
61ENDIF:IFm3%THEN
62IFI0%THEN
63PROCS(TRUE):PROCS(FALSE):m3%=FALSE
64ENDIF
65ENDIF:IFz2%ANDn%ANDH0%THEN
66M5%=U%:SYS&400cf,,J%:i0%=J%!0:`0%=J%!4:PROCB0
67ENDIF:IFu%THEN
68k+=u%*VAL(FNC(time%,28)):IFP0%k+=1
69k+=V0%:f+=u%*VAL(FNC(time%,29)):PROCe:PROCM:IFI0%:IFe%:PROCm1
70IFG0%:PROCk
71ENDIF:IFe0%:PROCi0(K$):e0%=FALSE
72ENDPROC
73DEFPROCS1:LOCALI4%,H4%:SYS&400c8,,J%TOH4%:F%=J%!4-J%!20:I%=J%!16-J%!24:WHILEH4%:I4%=!J%:CASEI4%OF
74WHEN`3%:PROCo1(J%)
75WHENw%:PROCY1(F%,I%)
76WHENT0%:PROCV1(F%,I%)
77ENDCASE:!J%=I4%:SYS&400ca,,J%TOH4%:ENDWHILE:ENDPROC
78DEFPROCe1(Y%):CASEY%OF
79WHENw%:PROCS(FALSE):I0%=TRUE
80WHENT0%:SYS&400c5,,J%:G0%=TRUE
81WHENX%:SYS&400c5,,J%:H0%=TRUE:PROCB(K%,c%,H0%):PROCH(K%,5,NOTH0%):PROCH(K%,6,NOTH0%)
82OTHERWISESYS&400c5,,J%
83ENDCASE:ENDPROC
84DEFPROCc(Y%):!J%=Y%:SYS&400c6,,J%:CASEY%OF
85WHENw%:I0%=FALSE:PROCc(K%)
86WHENX%:H0%=FALSE:PROCB(K%,26,H0%):PROCH(K%,5,NOTH0%):PROCH(K%,6,NOTH0%)
87WHENtime%:IFu%>0:PROCB(time%,24,FALSE)
88IFu%<0:PROCB(time%,23,FALSE)
89IFx2%PROCH(K%,37,FALSE):x2%=FALSE
90u%=0
91WHENT0%:G0%=FALSE
92WHENQ1%:b3%=FALSE
93ENDCASE:ENDPROC
94DEFPROCi1:IFz2%:PROCu0:z2%=FALSE
95ENDPROC
96DEFPROCq1:Y%=J%!0:CASEY%OF
97WHENw%,T0%:PROCs0(L%,"star_ptr",6,3):z2%=TRUE
98ENDCASE:ENDPROC
99DEFPROCf0:i0%=J%!0:`0%=J%!4:U1%=J%!8:Y%=J%!12:c%=J%!16:CASEY%OF
100WHENl4%:PROC_0
101WHENw%:PROCR0
102WHENinfo%:PROCz(info%,T$,_$,a$,STR$(HIMEM-END))
103WHENK%:PROCM1
104WHEN`3%:PROCo0
105WHENtime%:PROCW1
106WHENT0%:PROCW0
107WHENX0%:PROCZ0
108ENDCASE:ENDPROC
109DEFPROCr0:ENDPROC
110DEFPROCh0:ENDPROC
111DEFPROCC1:LOCALN$,R$,G$:N$=FNt(x%,J%):R$=FNA(N$):G$=FNW(J%):CASEx%OF
112WHENI%(1):PROCT0(R$)
113WHENI%(2):PROCc0(N$,R$,G$)
114WHENI%(23):PROCB1(R$)
115WHENI%(24):PROCU0(R$)
116WHENP3%:PROCF1(R$)
117ENDCASE:SYS&400cf,,J%:IFJ%!8=1SYS&400d4,,x%,S0%,Q0%
118ENDPROC
119DEFPROCn0:ENDPROC
120DEFPROCf1:ENDPROC
121DEFPROCm0:h2%=J%!0:CASEh2%OF
122WHENX0%:PROCH(X0%,13,FALSE)
123ENDCASE:ENDPROC
124DEFPROCv:LOCALe4%:e4%=J%!16:CASEe4%OF
125WHEN0:h3%=TRUE
126WHEN&400c1:SYS&400ed,256,L%,"mag0",,,,j0%,P1%:j0%!0=j0%!0*S%:j0%!4=j0%!4*S%:SYS&400ed,256,L%,"mag0",,,,h0%,P1%:IFy%:h0%!0=h0%!0*2:h0%!4=h0%!4*2
127m3%=TRUE
128ENDCASE:ENDPROC
129DEFPROCb1:ENDPROC
130DEFPROC_0:CASEU1%OF
131WHENN1%:Q$="icon_bar":x%=I%(1):S0%=i0%-64:Q0%=FNa(I%(1))+96:SYS&400d4,,x%,S0%,Q0%
132WHENk0%:PROCQ(`3%,TRUE)
133WHENZ1%:CASEd0%OF
134WHENf3%:PROCS(TRUE):IFu1%THEN
135SYS&400d1,w%,0,-B0%*S%,Z0%*S%,0
136ELSE:PROCD:u1%=TRUE
137ENDIF
138WHENF1%
139WHENt3%:PROCI0
140WHENR4%
141ENDCASE
142ENDCASE:ENDPROC
143DEFPROCR0:CASEU1%OF
144WHENZ1%:IFH0%PROCB0
145WHENN1%:Q$="star_window":x%=I%(2):S0%=i0%-64:Q0%=`0%:IFa3%THEN
146SYS6,202,0,255TO,o%:IF(o%AND8)THEN
147SYS&400d4,,x%,S0%,Q0%:ENDPROC
148ENDIF:J%!0=Y%:SYS&400cb,,J%:z0%=J%!4-J%!20:K1%=J%!16-J%!24:F%=i0%-z0%:I%=`0%-K1%+B0%:PROCm(F%,I%):ENDPROC
149ELSE:SYS&400d4,,x%,S0%,Q0%
150ENDIF
151WHENk0%:J%!0=Y%:SYS&400cb,,J%:z0%=J%!4-J%!20:K1%=J%!16-J%!24:F%=(i0%-z0%)/S%:I%=(`0%-K1%)/S%+B0%:IFa3%:PROCm(F%,I%):ENDPROC
152U%=FNT(F%,I%):IFU%>9999THEN
153IFU%<2000000THEN
154IFN%<L%(2)THEN
155P%=720-30*INT(0.5+K%(U%DIV10000)/3600):M%=INT(0.5+(M%(U%DIV10000)/(3600*2*a%)))*2*a%
156ELSE:P%=720-15*INT(0.5+K%(U%DIV10000)/1800):M%=INT(0.5+(M%(U%DIV10000)/(3600*a%)))*a%
157ENDIF
158ELSE:IFN%<L%(2)THEN
159P%=720-30*INT(0.5+D%((U%DIV10000)-200)/3600):M%=INT(0.5+(H%((U%DIV10000)-200)/(3600*2*a%)))*2*a%
160ELSE:P%=720-15*INT(0.5+D%((U%DIV10000)-200)/1800):M%=INT(0.5+(H%((U%DIV10000)-200)/(3600*a%)))*a%
161ENDIF
162ENDIF:N=RAD(M%):V=SIN(N):U=COS(N)
163ELSE:IFN%<L%(2)THEN
164P%=720-30*INT(0.5+J%(U%)/3600):M%=INT(0.5+(G%(U%)/(3600*2*a%)))*2*a%
165ELSE:P%=720-15*INT(0.5+J%(U%)/1800):M%=INT(0.5+(G%(U%)/(3600*a%)))*a%
166ENDIF:N=RAD(M%):V=SIN(N):U=COS(N)
167ENDIF:a2%=-a2%:`2%=-`2%:PROCB(K%,5,n%):PROCA(K%,13,STR$(M%)):PROCA(K%,11,STR$(((48-P%/15)MOD48)/2)):PROCD
168WHENk0%:h%+=20:IFh%>700:h%=0
169K2%=700-h%:PROCD
170WHENk0%:J%!0=Y%:SYS&400cb,,J%:z0%=J%!4-J%!20:K1%=J%!16-J%!24:F%=i0%-z0%:I%=`0%-K1%+B0%:PROCA0(F%,I%)
171ENDCASE:ENDPROC
172DEFPROCM1:CASEU1%OF
173WHENZ1%:CASEc%OF
174WHEN10:IFN%<L%(2)THEN
175P%=(P%+30)MOD720
176ELSE:P%=(P%+15)MOD720
177ENDIF:PROCA(K%,11,STR$(((48-P%/15)MOD48)/2)):IFe%:PROCD:ELSEq%=TRUE
178WHEN14:IFN%<L%(2)THEN
179M%+=2*a%
180ELSE:M%+=a%
181ENDIF:IFM%>90:M%=-90
182N=RAD(M%):V=SIN(N):U=COS(N):PROCA(K%,13,STR$(M%)):IFe%:PROCD:ELSEq%=TRUE
183WHEN9:IFN%<L%(2)THEN
184P%=(P%+690)MOD720
185ELSE:P%=(P%+705)MOD720
186ENDIF:PROCA(K%,11,STR$(((48-P%/15)MOD48)/2)):IFe%:PROCD:ELSEq%=TRUE
187WHEN15:IFN%<L%(2)THEN
188M%-=2*a%
189ELSE:M%-=a%
190ENDIF:IFM%<-90:M%=90
191N=RAD(M%):V=SIN(N):U=COS(N):PROCA(K%,13,STR$(M%)):IFe%:PROCD:ELSEq%=TRUE
192WHEN2:e2%=NOTe2%:PROCB(K%,c%,e2%):IFe%:g1%=TRUE:PROCD:ELSEq%=TRUE
193WHEN3:i2%=NOTi2%:PROCB(K%,c%,i2%):IFe%:g1%=TRUE:PROCD:ELSEq%=TRUE
194WHEN6:j%=NOTj%:PROCB(K%,c%,j%):PROC`
195WHEN5:n%=NOTn%:PROCB(K%,c%,n%)
196WHEN7:IFF1%
197F1%=FALSE
198WHEN8:IFNOTF1%
199F1%=TRUE
200WHEN4:x0%=NOTx0%:PROCB(K%,c%,x0%):IFx0%THEN
201PROCj:M1%=-1
202ELSE:s%=FALSE:PROCB(K%,34,s%)
203ENDIF:IFe%THEN
204PROCD
205ELSE:q%=TRUE
206ENDIF
207WHEN0:G2%=NOTG2%:PROCB(K%,c%,G2%):IFe%:PROCD:ELSEq%=TRUE
208WHEN17:IFs0%THEN
209z1%=FALSE:PROCB(K%,32,z1%)
210ENDIF:s0%=NOTs0%:PROCB(K%,c%,s0%):IFe%:g1%=TRUE:PROCD:ELSEq%=TRUE
211WHEN20:h%+=20:IFh%>700:h%=700
212K2%=700-h%:PROCA(K%,19,FNK(h%)):IFe%:PROCD:ELSEq%=TRUE
213WHEN21:h%-=20:IFh%<100:h%=100
214K2%=700-h%:PROCA(K%,19,FNK(h%)):IFe%:PROCD:ELSEq%=TRUE
215WHEN26:PROCH(K%,5,H0%):PROCH(K%,6,H0%):H0%=NOTH0%:IFH0%:PROCQ(X%,TRUE):ELSEPROCc(X%)
216PROCB(K%,c%,H0%)
217WHEN27:IFt1%<>0:PROCY(0):IFe%:PROCD:ELSEq%=TRUE
218WHEN28:IFt1%<>1:PROCY(1):IFe%:PROCD:ELSEq%=TRUE
219WHEN29:IFt1%<>2:PROCY(2):IFe%:PROCD:ELSEq%=TRUE
220WHEN30:IFt1%<>3:PROCY(3):IFe%:PROCD:ELSEq%=TRUE
221WHEN31:PROCB(K%,c%,e%):e%=NOTe%:IFe%THEN
222IFy2%:PROCM:y2%=FALSE
223PROCD:q%=FALSE
224ENDIF
225WHEN32:z1%=NOTz1%:IFNOTs0%THEN
226s0%=TRUE:PROCB(K%,17,s0%)
227ENDIF:PROCB(K%,c%,z1%):IFe%:PROCD:q%=FALSE
228WHEN33:A3%=NOTA3%:PROCB(K%,c%,A3%):IFe%:PROCD:q%=FALSE
229WHEN34:s%=NOTs%:IFNOTx0%THEN
230x0%=TRUE:PROCB(K%,4,x0%)
231ENDIF:PROCB(K%,c%,s%):IFs%:PROCj:M1%=-1
232IFe%:PROCD:q%=FALSE
233WHEN36:l2%=NOTl2%:PROCB(K%,c%,l2%):IFe%:PROCD:q%=FALSE
234WHEN37:v1%=NOTv1%:PROCB(K%,c%,v1%)
235WHEN35:PROCQ(time%,TRUE)
236WHEN38:Q$="button_window":x%=I%(23):S0%=FNR(Y%,c%):Q0%=`0%+20:SYS&400d4,,x%,S0%,Q0%
237ENDCASE
238WHENN1%:Q$="button_window":x%=I%(23):S0%=i0%-64:Q0%=`0%:SYS&400d4,,x%,S0%,Q0%
239WHENk0%:S%=1+S%MOD2:PROCb0(S%)
240WHENk0%:CASEc%OF
241WHEN4
242OTHERWISE:J%!0=Y%:SYS&400cb,,J%:z0%=J%!4-J%!20:K1%=J%!16-J%!24:F%=i0%-z0%:I%=`0%-K1%+B0%:PROCA0(F%,I%)
243ENDCASE
244ENDCASE:ENDPROC
245DEFPROCo0:CASEU1%OF
246WHENN1%:Q$="info_window":x%=I%(14):S0%=i0%-64:Q0%=`0%:SYS&400d4,,x%,S0%,Q0%
247WHENk0%
248WHENZ1%
249ENDCASE:ENDPROC
250DEFPROCW1:CASEU1%OF
251WHENN1%
252WHENZ1%,k0%:CASEc%OF
253WHEN2:PROCP(-1,0,0)
254WHEN3:PROCP(0,-1,0)
255WHEN4:PROCP(0,0,-1)
256WHEN5:PROCP(1,0,0)
257WHEN6:PROCP(0,1,0)
258WHEN7:PROCP(0,0,1)
259WHEN12:PROCT(-1,0,0)
260WHEN13:PROCT(0,-1,0)
261WHEN14:PROCT(0,0,-1)
262WHEN15:PROCT(1,0,0)
263WHEN16:PROCT(0,1,0)
264WHEN17:PROCT(0,0,1)
265WHEN9:PROC_
266WHEN19:PROCi
267WHEN24:u%=1:PROCW:ENDPROC
268WHEN23:u%=-1:PROCW:ENDPROC
269WHEN22:IFu%>0:PROCB(time%,24,FALSE)
270IFu%<0:PROCB(time%,23,FALSE)
271u%=0:PROCW:ENDPROC
272WHEN30:IFu%>0:PROCB(time%,24,FALSE)
273IFu%<0:PROCB(time%,23,FALSE)
274u%=0:k+=VAL(FNC(time%,28)):IFP0%:k+=1
275k+=V0%:f+=VAL(FNC(time%,29)):PROCe
276WHEN25:IFu%>0:PROCB(time%,24,FALSE)
277IFu%<0:PROCB(time%,23,FALSE)
278u%=0:k-=VAL(FNC(time%,28)):IFP0%:k+=1
279k+=V0%:f-=VAL(FNC(time%,29)):PROCe
280ENDCASE:PROCW:IFe%THEN
281PROCM:IFI0%:PROCD:ELSEu1%=FALSE
282ELSE:IFNOTG0%:PROCg
283q%=TRUE:y2%=TRUE
284ENDIF:IFG0%THEN
285IFNOTe%:PROCM
286IFu%:PROCk:ELSEPROCU:x1%=TRUE
287ENDIF
288ENDCASE:ENDPROC
289DEFPROCW0:CASEU1%OF
290WHENN1%:Q$="equa_window":x%=I%(24):S0%=i0%-64:Q0%=`0%:SYS&400d4,,x%,S0%,Q0%
291WHENk0%:y%=NOTy%:PROCj0(y%)
292WHENZ1%:PROCU:x1%=TRUE
293ENDCASE:ENDPROC
294DEFPROCZ0:CASEU1%OF
295WHENN1%:Q$="posn_window":x%=P3%:S0%=i0%-64:Q0%=`0%:SYS&400d4,,x%,S0%,Q0%
296WHENk0%,Z1%:CASEc%OF
297WHEN12:X1%=NOTX1%:PROCH(X0%,13,FALSE)
298WHEN13:P0%=X1%:q=FNh:D0=FNm:V0%=FNs:i$=B$(p3%):T3%=p3%:PROCH(X0%,13,TRUE):IFe%THEN
299PROCM:IFI0%:PROCD:ELSEu1%=FALSE
300ELSE:IFNOTG0%:PROCg
301q%=TRUE:y2%=TRUE
302ENDIF:IFG0%THEN
303IFNOTe%:PROCM
304IFu%:PROCk:ELSEPROCU:x1%=TRUE
305ENDIF
306WHEN18:Q$="posn_window":x%=P3%:S0%=FNR(Y%,c%):Q0%=`0%+20:SYS&400d4,,x%,S0%,Q0%
307ENDCASE
308ENDCASE:ENDPROC
309DEFPROCT0(J$):CASEJ$OF
310WHEN"Quit":h3%=TRUE
311WHEN"Celestial sphere":PROCC(1,d0%,FALSE):d0%=f3%:PROCC(1,d0%,TRUE):PROCS(TRUE):IFu1%THEN
312SYS&400d1,w%,0,-B0%*S%,Z0%*S%,0
313ELSE:PROCD:u1%=TRUE
314ENDIF
315WHEN"Horizon view":PROCC(1,d0%,FALSE):d0%=F1%:PROCC(1,d0%,TRUE)
316WHEN"Equatorial view":PROCC(1,d0%,FALSE):d0%=t3%:PROCC(1,d0%,TRUE):PROCI0:IFx1%THEN
317SYS&400d1,T0%,0,-600,3600,0
318ELSE:PROCU:x1%=TRUE
319ENDIF
320WHEN"Orrery":PROCC(1,d0%,FALSE):d0%=R4%:PROCC(1,d0%,TRUE)
321WHEN"Moon":PROCQ(Q1%,TRUE):b3%=TRUE:PROCC0
322WHEN"Location":PROCa(T3%,TRUE):PROCQ(X0%,TRUE)
323ENDCASE:ENDPROC
324DEFPROCc0(N$,R$,G$):LOCALx3%:CASELEFT$(N$,LEN(N$)-LEN(FNA(N$)))OF
325WHEN"Constellations.Proper names.":IFl%<89THEN
326PROCC(4,l%-1,FALSE)
327ELSE:PROCC(5,l%-89,FALSE)
328ENDIF:l%=VAL(FNA(G$)):PROCC(4,l%,TRUE):P%=2*(15*(S%(l%)DIV15)):M%=10*(U%(l%)DIV10):N=RAD(M%):V=SIN(N):U=COS(N):l%+=1:PROCA(K%,11,STR$(((48-P%/15)MOD48)/2)):PROCA(K%,13,STR$(M%)):PROCD
329WHEN"Constellations.Common names.":IFl%<89THEN
330PROCC(4,l%-1,FALSE)
331ELSE:PROCC(5,l%-89,FALSE)
332ENDIF:l%=88+VAL(FNA(G$)):PROCC(5,l%-88,TRUE):P%=2*(15*(S%(l%)DIV15)):M%=10*(U%(l%)DIV10):N=RAD(M%):V=SIN(N):U=COS(N):l%=Z%(VAL(FNA(G$))):PROCA(K%,11,STR$(((48-P%/15)MOD48)/2)):PROCA(K%,13,STR$(M%)):PROCD
333WHEN"Named star.A...A.":O%=VAL(FNA(G$)):P%=720-30*INT(0.5+F%(O%)/3600):K$="RAA "+STR$(F%(O%)):e0%=TRUE:M%=INT(0.5+(N%(O%)/36000))*10:N=RAD(M%):V=SIN(N):U=COS(N):j%=TRUE:v=F%(O%):s=N%(O%):PROCB(K%,6,j%):PROCA(K%,11,STR$(((48-P%/15)MOD48)/2)):PROCA(K%,13,STR$(M%)):PROCD:PROCJ(G1%+_%,C1%+`%):n%=FALSE
334PROCB(K%,5,n%)
335WHEN"Named star.B...L.":O%=VAL(FNA(G$))+91:P%=720-30*INT(0.5+F%(O%)/3600):K$="RAA "+STR$(F%(O%)):e0%=TRUE:M%=INT(0.5+(N%(O%)/36000))*10:N=RAD(M%):V=SIN(N):U=COS(N):j%=TRUE:v=F%(O%):s=N%(O%):PROCB(K%,6,j%):PROCA(K%,11,STR$(((48-P%/15)MOD48)/2)):PROCA(K%,13,STR$(M%)):PROCD:PROCJ(G1%+_%,C1%+`%):n%=FALSE
336PROCB(K%,5,n%)
337WHEN"Named star.M...R.":O%=VAL(FNA(G$))+91+76:P%=720-30*INT(0.5+F%(O%)/3600):K$="RAA "+STR$(F%(O%)):e0%=TRUE:M%=INT(0.5+(N%(O%)/36000))*10:N=RAD(M%):V=SIN(N):U=COS(N):j%=TRUE:v=F%(O%):s=N%(O%):PROCB(K%,6,j%):PROCA(K%,11,STR$(((48-P%/15)MOD48)/2)):PROCA(K%,13,STR$(M%)):PROCD:PROCJ(G1%+_%,C1%+`%)
338n%=FALSE:PROCB(K%,5,n%)
339WHEN"Named star.S...Z.":O%=VAL(FNA(G$))+91+76+74:P%=720-30*INT(0.5+F%(O%)/3600):K$="RAA "+STR$(F%(O%)):e0%=TRUE:M%=INT(0.5+(N%(O%)/36000))*10:N=RAD(M%):V=SIN(N):U=COS(N):j%=TRUE:v=F%(O%):s=N%(O%):PROCB(K%,6,j%):PROCA(K%,11,STR$(((48-P%/15)MOD48)/2)):PROCA(K%,13,STR$(M%)):PROCD
340PROCJ(G1%+_%,C1%+`%):n%=FALSE:PROCB(K%,5,n%)
341WHEN"Named star.Common names.":O%=VAL(FNA(G$))+91+76+74+66:P%=720-30*INT(0.5+F%(O%)/3600):K$="RAA "+STR$(F%(O%)):e0%=TRUE:M%=INT(0.5+(N%(O%)/36000))*10:N=RAD(M%):V=SIN(N):U=COS(N):j%=TRUE:v=F%(O%):s=N%(O%):PROCB(K%,6,j%):PROCA(K%,11,STR$(((48-P%/15)MOD48)/2)):PROCA(K%,13,STR$(M%)):PROCD
342PROCJ(G1%+_%,C1%+`%):n%=FALSE:PROCB(K%,5,n%)
343WHEN"Messier object.":O%=VAL(FNA(G$)):FORF%=1TO110:IFO%(F%)DIV100=O%:O%=F%:F%=111
344NEXT:P%=720-30*INT(0.5+K%(O%)/3600):M%=INT(0.5+(M%(O%)/36000))*10:N=RAD(M%):V=SIN(N):U=COS(N):v=K%(O%):s=M%(O%):O%=10000*O%:j%=TRUE:PROCB(K%,6,j%):PROCA(K%,11,STR$(((48-P%/15)MOD48)/2)):PROCA(K%,13,STR$(M%)):PROCD:K$=I$(O%(O%DIV10000)MOD100):e0%=TRUE:PROCJ(G1%+_%,C1%+`%):n%=FALSE:PROCB(K%,5,n%)
345WHEN"Messier object.'M' number (1 - 110).":O%=VAL(FNA(N$)):IFO%<1ORO%>110:ENDPROC
346P%=720-30*INT(0.5+K%(O%)/3600):M%=INT(0.5+(M%(O%)/36000))*10:N=RAD(M%):V=SIN(N):U=COS(N):v=K%(O%):s=M%(O%):O%=10000*O%:j%=TRUE:PROCB(K%,6,j%):PROCA(K%,11,STR$(((48-P%/15)MOD48)/2)):PROCA(K%,13,STR$(M%)):PROCD:PROCJ(G1%+_%,C1%+`%):n%=FALSE:PROCB(K%,5,n%):K$=I$(O%(O%DIV10000)MOD100):e0%=TRUE
347WHEN"Solar system.":CASER$OF
348WHEN"Sun":B=M0:C=m0
349WHEN"Moon":B=I0:C=L0
350WHEN"Mercury":B=C2:C=m1
351WHEN"Venus":B=P2:C=M2
352WHEN"Mars":B=F2:C=I2
353WHEN"Jupiter":B=J2:C=H2
354WHEN"Saturn":B=A2:C=L2
355WHEN"Uranus":B=v1:C=S2
356WHEN"Neptune":B=r1:C=K2
357WHEN"Pluto":B=z1:C=j1
358WHEN"Umbra":B=m:C=i0
359ENDCASE:P%=720-30*INT(0.5+B/3600):M%=INT(0.5+(C/36000))*10:N=RAD(M%):V=SIN(N):U=COS(N):j%=TRUE:v=B:s=C:PROCB(K%,6,j%):PROCA(K%,11,STR$(((48-P%/15)MOD48)/2)):PROCA(K%,13,STR$(M%)):PROCD:PROCJ(G1%+_%,C1%+`%):n%=FALSE:PROCB(K%,5,n%)
360OTHERWISE:IFLEFT$(N$,6)="Bayer."THEN
361I%=0:FORF%=1TOLEN(N$):IFMID$(N$,F%,1)=".":I%+=1
362NEXT:IFI%=2THEN
363o4%=1+VAL(FNA(G$)):p4%=1+VAL(MID$(G$,1+INSTR(G$,"."),2)):x3%=TRUE:FORR%=0TOp0%:IF(g2%?R%=o4%)AND(j3%?R%=p4%)THEN
364U%=R%:R%=p0%+1:x3%=FALSE
365ENDIF:NEXT:IFx3%THEN
366PROCw("Star requested not in database!","Bayer star finder"):ENDPROC
367ENDIF:O%=U%:IFN%<L%(2)THEN
368P%=720-30*INT(0.5+J%(U%)/3600):M%=INT(0.5+(G%(U%)/(3600*2*a%)))*2*a%
369ELSE:P%=720-15*INT(0.5+J%(U%)/1800):M%=INT(0.5+(G%(U%)/(3600*a%)))*a%
370ENDIF:N=RAD(M%):V=SIN(N):U=COS(N):v=J%(O%):s=G%(O%):j%=TRUE:n%=FALSE:PROCB(K%,6,j%):PROCB(K%,5,n%):PROCA(K%,13,STR$(M%)):PROCA(K%,11,STR$(((48-P%/15)MOD48)/2)):PROCD:PROCK0(U%)
371ENDIF
372ENDIF
373ENDCASE:ENDPROC
374DEFPROCB1(J$):CASEJ$OF
375WHEN"Sun":d2%=NOTd2%:PROCC(23,0,d2%)
376WHEN"Moon":Y2%=NOTY2%:PROCC(23,1,Y2%)
377WHEN"Mercury":J2%=NOTJ2%:PROCC(23,2,J2%)
378WHEN"Venus":l1%=NOTl1%:PROCC(23,3,l1%)
379WHEN"Mars":k1%=NOTk1%:PROCC(23,4,k1%)
380WHEN"Jupiter":T2%=NOTT2%:PROCC(23,5,T2%)
381WHEN"Saturn":F2%=NOTF2%:PROCC(23,6,F2%)
382WHEN"Uranus":L2%=NOTL2%:PROCC(23,7,L2%)
383WHEN"Neptune":N2%=NOTN2%:PROCC(23,8,N2%)
384WHEN"Pluto":M2%=NOTM2%:PROCC(23,9,M2%)
385WHEN"Umbra":m1%=NOTm1%:PROCC(23,10,m1%)
386ENDCASE:ENDPROC
387DEFPROCU0(J$):CASEJ$OF
388WHEN"Time controls":PROCQ(time%,TRUE)
389WHEN"Const'n lines":t2%=NOTt2%:PROCC(24,1,t2%)
390WHEN"Const'n names":q2%=NOTq2%:PROCC(24,2,q2%)
391WHEN"RA/Dec grid":B3%=NOTB3%:PROCC(24,3,B3%)
392WHEN"Update display":PROCU:x1%=TRUE
393WHEN"Sun":n2%=NOTn2%:PROCC(25,0,n2%)
394WHEN"Moon":c2%=NOTc2%:PROCC(25,1,c2%)
395WHEN"Mercury":Q2%=NOTQ2%:PROCC(25,2,Q2%)
396WHEN"Venus":p1%=NOTp1%:PROCC(25,3,p1%)
397WHEN"Mars":B2%=NOTB2%:PROCC(25,4,B2%)
398WHEN"Jupiter":C2%=NOTC2%:PROCC(25,5,C2%)
399WHEN"Saturn":O2%=NOTO2%:PROCC(25,6,O2%)
400WHEN"Uranus":H2%=NOTH2%:PROCC(25,7,H2%)
401WHEN"Neptune":q1%=NOTq1%:PROCC(25,8,q1%)
402WHEN"Pluto":S2%=NOTS2%:PROCC(25,9,S2%)
403WHEN"Umbra":I2%=NOTI2%:PROCC(25,10,I2%)
404ENDCASE:ENDPROC
405DEFPROCF1(J$):F%=-1:CASEJ$OF
406WHENB$(0):F%=0
407WHENB$(1):F%=1
408WHENB$(2):F%=2
409WHENB$(3):F%=3
410WHENB$(4):F%=4
411WHENB$(5):F%=5
412WHENB$(6):F%=6
413WHENB$(7):F%=7
414WHENB$(8):F%=8
415WHENB$(9):F%=9
416WHENB$(10):F%=10
417ENDCASE:IFF%>-1:PROCa(F%,FALSE):p3%=F%
418ENDPROC
419DEFPROCJ0(!Y3%,I$):IFA0%:SYS46,z%,o%,D0%,F0%
420J4%+=1:IFJ4%>5:ERROREXT0,"Too many errors!"
421IFERR<200I$+=" at line "+STR$(ERL)
422IFERR=200I$="*** Error in menu file! *** "+I$
423IFERR=201I$="*** Menu error *** "+I$
424IFERR=202I$="*** Icon error *** "+I$
425IFERR=203I$="*** File error *** "+I$
426IFERR=204I$="*** Window error *** "+I$
427SYS&2000d,0,p%:SYS&2000d,0,T%:SYS&600da:$(Y3%+4)=I$:SYS&400df,Y3%,1,T$:ENDPROC
428DEFPROCZ:SYS&400dd:END:ENDPROC
429DEFPROCS(u4%):LOCALK4%:IFu4%THEN
430!J%=w%:SYS&400cb,,J%:IFI0%THEN
431J%!28=-1
432ELSE:SYS&400c5,,J%
433ENDIF
434ELSE:!H%=w%:SYS&400cb,,H%:K4%=1<<19ANDH%!32:IFK4%:J%!28=K%:SYS&400c5,,J%
435ENDIF:I0%=TRUE:!H%=K%:SYS&400cb,,H%:H%!4=J%!4:H%!12=J%!12:H%!28=J%!28:H%!8=J%!8:H%!16=J%!16:SYS&400c5,,H%:IFNOTK4%:J%!28=K%:SYS&400c5,,J%
436ENDPROC
437DEFPROCL0:FORM0%=0TOO0%:F%=R%(M0%)-_%:I%=W%(M0%)-`%:R%=P%(M0%):IFR%<9999THEN
438b%=I1%!(4*R%):IFl2%THEN
439IF_1%!(2*R%)THEN
440IFb%<h%-200THEN
441VDU5:SYS&400e6,9:MOVEF%+8,I%+8:PRINTJ$(65535AND_1%!(2*R%));
442ENDIF
443ENDIF
444ENDIF:b%=(K2%+b%)DIV100:IFb%=6SYS46,290,L%,"mag6",F%,I%,2
445IFb%=5SYS46,290,L%,"mag5",F%-2,I%-2,2
446IFb%=4SYS46,290,L%,"mag4",F%-2,I%-2,2
447IFb%=3SYS46,290,L%,"mag3",F%-2,I%-2,2
448IFb%=2SYS46,290,L%,"mag2",F%-4,I%-4,2
449IFb%=1SYS46,290,L%,"mag1",F%-4,I%-4,2
450IFb%=0SYS46,290,L%,"mag0",F%-6,I%-6,2
451IFb%<0SYS46,290,L%,"mag-1",F%-6,I%-6,2
452ENDIF:NEXT:ENDPROC
453DEFPROCD:LOCALB,C:e3%=FALSE:SYS&406c0:SYS46,316,L%,"starmap",0TOz%,o%,D0%,F0%:A0%=TRUE:_%=Z0%/2:`%=B0%/2:SYS&400e6,7:RECTANGLEFILL0,0,Z0%,B0%:L0%=M%-r0%:IFL0%>90-r0%:L0%=180-2*r0%-L0%
454K0%=M%+r0%:IFK0%>90+r0%:K0%=180-K0%+r0%
455L0%=a%*(L0%DIVa%):IFL0%<-90:L0%=-90
456K0%=a%*(K0%DIVa%):IFK0%>90:K0%=90
457M%+=180:ORIGIN_%,`%:t%=288:CASE(ABS(M%-180)DIV10)OF
458WHEN7:t%=144+7*12:IFN%<1000:t%=144+12*12
459WHEN6:t%=144+6*12:IFN%<1000:t%=144+8*12
460WHEN5:t%=144+5*12:IFN%<1000:t%=144+7*12
461WHEN4:t%=144+4*12:IFN%<1000:t%=144+6*12
462WHEN3:t%=144+3*12:IFN%<1000:t%=144+5*12
463WHEN2:t%=144+3*12:IFN%<1000:t%=144+5*12
464WHEN1:t%=144+3*12:IFN%<1000:t%=144+4*12
465WHEN0:t%=144+3*12:IFN%<1000:t%=144+4*12
466ENDCASE:m0%=(48-(t%-144)/12-P%/30)MOD24:l0%=(24+(t%-144)/12-P%/30)MOD24:IFe2%:PROCG1
467J5%=TIME:IFA3%:PROCn1:ORIGIN_%,`%
468IFl0%>m0%THEN
469IFG2%THEN
470IFg1%THEN
471PROCL0:g1%=FALSE
472ELSE:m2%=0:O0%=0:FORR%=0TOp0%:B=J%(R%)/3600:C=G%(R%)/3600:IFB<l0%ANDB>m0%THEN
473IFC<K0%ANDC>L0%THEN
474PROCs(J%(R%),R%,I1%!(4*R%)):IFI1%!(4*R%)>h%:R%=p0%
475ENDIF
476ENDIF:m2%+=1:NEXT
477ENDIF
478ENDIF:IFs0%THEN
479FORR%=1TO110:B=K%(R%)/3600:C=M%(R%)/3600:IFB<l0%ANDB>m0%THEN
480IFC<K0%ANDC>L0%THEN
481PROCt(K%(R%),C,R%)
482ENDIF
483ENDIF:NEXT
484ENDIF
485ELSE:IFG2%THEN
486IFg1%THEN
487PROCL0:g1%=FALSE
488ELSE:m2%=0:O0%=0:FORR%=0TOp0%:B=J%(R%)/3600:C=G%(R%)/3600:IFB<l0%ORB>m0%THEN
489IFC<K0%ANDC>L0%THEN
490PROCs(J%(R%),R%,I1%!(4*R%)):IFI1%!(4*R%)>h%:R%=p0%
491ENDIF
492ENDIF:m2%+=1:NEXT
493ENDIF
494ENDIF:IFs0%THEN
495FORR%=1TO110:B=K%(R%)/3600:C=M%(R%)/3600:IFB<l0%ORB>m0%THEN
496IFC<K0%ANDC>L0%THEN
497PROCt(K%(R%),C,R%)
498ENDIF
499ENDIF:NEXT
500ENDIF
501ENDIF:IFx0%THEN
502PROCp0:IFM2%PROCF(z1,j1/3600,9)
503IFN2%PROCF(r1,K2/3600,8)
504IFL2%PROCF(v1,S2/3600,7)
505IFF2%PROCF(A2,L2/3600,6)
506IFT2%PROCF(J2,H2/3600,5)
507IFk1%PROCF(F2,I2/3600,4)
508FORd%=0TO2:CASEX%(d%)OF
509WHEN0:IFd2%PROCF(M0,m0/3600,0)
510WHEN1:IFJ2%PROCF(C2,m1/3600,1)
511WHEN2:IFl1%PROCF(P2,M2/3600,2)
512ENDCASE:NEXT:IFY2%PROCF(I0,L0/3600,10)
513IFm1%PROCF(m,i0/3600,11)
514ENDIF:VDU23,6,85|:IFL0%<-85:L0%=-80
515IFK0%>90-a%:K0%=80
516IFi2%THEN
517SYS&400e6,128+8:FORC4%=L0%+180TOK0%+180STEPa%:Z=M(C4%):T=S(C4%):d1%=-T*N(144):o0%=Z*U-T*V*P(144):IFr2%:_2%=TRUE
518FORO1%=144+t0%TOt%STEPt0%:j2%=-T*N(O1%):L1%=Z*U-T*V*P(O1%):n0%=O1%/t0%:IF(o0%>i1%ANDo0%<b2%)OR(L1%>i1%ANDL1%<b2%)THEN
519r2%=TRUE:MOVEj2%,L1%:PLOT55,d1%,o0%:IF_2%:PLOT55,V%(n0%),T%(n0%)
520MOVE-j2%,L1%:PLOT55,-d1%,o0%:IF_2%:IFO1%>144+t0%PLOT55,-V%(n0%),T%(n0%)
521ENDIF:V%(n0%)=d1%:T%(n0%)=o0%:d1%=j2%:o0%=L1%:NEXT:IFt%=288THEN
522O1%=288+t0%:n0%=O1%/t0%:j2%=-T*N(O1%):L1%=Z*U-T*V*P(O1%):IF(o0%>i1%ANDo0%<b2%)OR(L1%>i1%ANDL1%<b2%)THEN
523r2%=TRUE:MOVE-d1%,o0%:IF_2%:PLOT55,-V%(n0%),T%(n0%)
524ENDIF:V%(n0%)=d1%:T%(n0%)=o0%:d1%=j2%:o0%=L1%
525ENDIF:NEXT
526ENDIF:IFj%:PROCG0(v,s)
527M%-=180:_2%=FALSE:r2%=FALSE:A0%=FALSE:SYS46,z%,o%,D0%,F0%:SYS&406c1:SYS&400d1,w%,0,-B0%*S%,Z0%*S%,0:PROCA(K%,24,STR$(m2%)):ENDPROC
528DEFPROCJ(F%,I%):IFF%=a2%ANDI%=`2%:ENDPROC
529U%=FNT(F%,I%):PROCK0(U%):O%=U%:a2%=F%:`2%=I%:ENDPROC
530DEFFNT(F%,I%):LOCALM0%,i4%,h4%,D3%,s2%,H3%:U%=0:T4%=0:H3%=&ffffff:FORM0%=0TOO0%:i4%=R%(M0%)-F%:h4%=W%(M0%)-I%:s2%=i4%^2+h4%^2:IFs2%<=H3%THEN
531IFs2%=H3%THEN
532c3%=TRUE:D3%=P%(M0%):IFD3%>9999:D3%=D3%DIV10000
533IF(65535AND_1%!(2*D3%))THEN
534U%=P%(M0%):T4%=M0%:H3%=s2%
535ENDIF
536ELSE:c3%=FALSE:U%=P%(M0%):T4%=M0%:H3%=s2%
537ENDIF
538ENDIF:NEXT:=U%
539DEFPROCK0(Q%):LOCALv4,c0,Z0,o0,y0:IFQ%<10000THEN
540IFQ%<>M1%THEN
541M1%=Q%:A$=CHR$(A4%?(2*Q%))+CHR$(A4%?(2*Q%+1)):PROCA(X%,4,A$+" star"):IFc3%:PROCA(X%,4,A$+" star (Double)")
542PROCA(X%,5,J$(65535AND_1%!(2*Q%))):A$="":IFD4%?Q%:A$=" "+STR$(D4%?Q%)
543IFj3%?Q%:A$=A$(j3%?Q%)+A$+" "+M$(g2%?Q%)
544PROCA(X%,6,A$):PROCA(X%,7,FNK(I1%!(4*Q%)+0.1)):PROCA(X%,8,""):PROCA(X%,9,H$(g2%?Q%)):PROCA(X%,10,FNB(F3%!(Q%*4))):PROCA(X%,11,FNB(K3%!(Q%*4))):PROCf(RAD((F3%!(Q%*4))/240),RAD((K3%!(Q%*4))/3600),V0):PROCA(X%,12,FNB(DEG(Q2)*3600)):PROCA(X%,13,FNB(DEG(h2)*3600))
545PROCu(RAD((F3%!(Q%*4))/240),RAD((K3%!(Q%*4))/3600),c0,Z0,o0,y0,0):PROCA(X%,14,STR$(FNL(c0))+"hrs, azimuth="+STR$(o0)):PROCA(X%,15,STR$(FNL(Z0))+"hrs, azimuth="+STR$(y0)):PROCO(1,"Type :"+"Star"):PROCO(2,"Name :"+J$(65535AND_1%!(2*Q%))):PROCO(3,"Mag. :"+STR$((I1%!(4*Q%))/100))
546PROCO(4,"Const:"+H$(g2%?Q%))
547ENDIF
548ELSE:IFQ%<>M1%THEN
549M1%=Q%:Q%=Q%DIV10000:K$="Object number :"+STR$(Q%):e0%=TRUE:IFQ%<200THEN
550PROCA(X%,4,I$(O%(Q%)MOD100)):PROCA(X%,5,L$(O%(Q%)DIV100)):PROCA(X%,6,"M"+STR$(Q%)):PROCO(1,"Type :"+I$(O%(Q%)MOD100)):PROCO(2,"Name :"+L$(O%(Q%)DIV100)):PROCO(3,"Ref. :"+"M"+STR$(Q%)):PROCO(4,""):PROCA(X%,8,""):PROCA(X%,10,FNB(K%(Q%))):PROCA(X%,11,FNB(M%(Q%)))
551PROCf(RAD((K%(Q%))/240),RAD((M%(Q%))/3600),V0):PROCA(X%,12,FNB(DEG(Q2)*3600)):PROCA(X%,13,FNB(DEG(h2)*3600))
552ELSE:Q%-=200:PROCA(X%,4,C$(Q%)):PROCA(X%,5,D$(Q%)):PROCA(X%,6,""):PROCA(X%,8,F$(Q%)):PROCA(X%,10,FNB(D%(Q%))):PROCA(X%,11,FNB(H%(Q%))):PROCf(RAD((D%(Q%))/240),RAD((H%(Q%))/3600),V0):PROCA(X%,12,FNB(DEG(Q2)*3600)):PROCA(X%,13,FNB(DEG(h2)*3600))
553ENDIF:PROCA(X%,7,""):PROCA(X%,9,""):PROCA(X%,14,""):PROCA(X%,15,"")
554ENDIF
555ENDIF:ENDPROC
556DEFFNB(_0%):LOCALb0%,c0%,h$:IF_0%<0:h$="-"
557_0%=ABS(_0%):b0%=_0%/3600:c0%=_0%/60-b0%*60:_0%=_0%MOD60:=h$+STR$b0%+":"+RIGHT$("00"+STR$c0%,2)+":"+RIGHT$("00"+STR$_0%,2)
558DEFPROCG0(v,s):SYS&400e6,189:s=s/3600:v=P%/2+((86400+v)MOD86400)/240:Z=N%*SIN(RAD(s)):T=N%*COS(RAD(s)):B0=COS(RAD(v)):W0%=Z*V+T*B0*U:IFW0%>v%THEN
559F%=-T*SIN(RAD(v)):I%=Z*U-T*V*B0:MOVEF%,I%:PLOT147,20,0:G1%=F%:C1%=I%
560ENDIF:ENDPROC
561DEFPROC`:SYS46,316,L%,"starmap",0TOz%,o%,D0%,F0%:A0%=TRUE:ORIGIN_%,`%:PROCG0(v,s):A0%=FALSE:SYS46,z%,o%,D0%,F0%:SYS&400d1,w%,S%*(_%+F%-22),S%*(-`%+I%-22),S%*(_%+F%+22),S%*(-`%+I%+22):ENDPROC
562DEFPROCB0:J%!0=w%:SYS&400cb,,J%:z0%=J%!4-J%!20:K1%=J%!16-J%!24:F%=(i0%-z0%)/S%:I%=(`0%-K1%)/S%+B0%:PROCJ(F%,I%):IFj%:PROC`
563IFU%>9999THEN
564IF(U%DIV10000)<200THEN
565v=K%(U%DIV10000):s=M%(U%DIV10000)
566ELSE:v=D%((U%DIV10000)-200):s=H%((U%DIV10000)-200)
567ENDIF
568ELSE:v=J%(U%):s=G%(U%)
569ENDIF:IFj%:PROC`
570ENDPROC
571DEFPROCs(B,R%,b%):B=RAD(P%/2+B/240):F%=-O(R%)*SINB:IFABSF%>_%:ENDPROC
572U0=O(R%)*COSB:I%=L(R%)*U-V*U0:IFABSI%>`%:ENDPROC
573W0%=L(R%)*V+U0*U:IFW0%<v%:ENDPROC
574R%(O0%)=F%+_%:W%(O0%)=I%+`%:P%(O0%)=R%:O0%+=1:IFl2%THEN
575IF(65535AND_1%!(2*R%))THEN
576IFb%<h%-200THEN
577VDU5:SYS&400e6,9:MOVEF%+8,I%+8:PRINTJ$(65535AND_1%!(2*R%));
578ENDIF
579ENDIF
580ENDIF:b%=K2%+b%:IFb%>599SYS46,290,L%,"mag6",F%,I%,2:ENDPROC
581IFb%>499SYS46,290,L%,"mag5",F%-2,I%-2,2:ENDPROC
582IFb%>399SYS46,290,L%,"mag4",F%-2,I%-2,2:ENDPROC
583IFb%>299SYS46,290,L%,"mag3",F%-2,I%-2,2:ENDPROC
584IFb%>199SYS46,290,L%,"mag2",F%-4,I%-4,2:ENDPROC
585IFb%>99SYS46,290,L%,"mag1",F%-4,I%-4,2:ENDPROC
586IFb%>-1SYS46,290,L%,"mag0",F%-6,I%-6,2:ENDPROC
587IFb%<0SYS46,290,L%,"mag-1",F%-6,I%-6,2:ENDPROC
588ENDPROC
589DEFPROCt(B,C,c0%):B=RAD(P%/2+B/240):T=N%*COS(RAD(C)):F%=-T*SINB:IFABSF%>_%:ENDPROC
590B0=COSB:Z=N%*SIN(RAD(C)):W0%=Z*V+T*B0*U:IFW0%<v%:ENDPROC
591I%=Z*U-T*V*B0:IFABSI%>`%:ENDPROC
592R%(O0%)=F%+_%:W%(O0%)=I%+`%:P%(O0%)=c0%*10000:O0%+=1:CASEO%(c0%)MOD100OF
593WHEN1:SYS46,290,L%,"opencluster",F%-10,I%-10,8
594WHEN2:SYS46,290,L%,"globcluster",F%-10,I%-10,8
595WHEN3:SYS46,290,L%,"nebcluster",F%-10,I%-10,8
596WHEN4:SYS46,290,L%,"planetary",F%-12,I%-12,8
597WHEN5:SYS46,290,L%,"nebula",F%-10,I%-10,8
598WHEN6:SYS46,290,L%,"galaxy",F%-16,I%-10,8
599WHEN7:SYS46,290,L%,"snovarem",F%-16,I%-8,8
600WHEN8:SYS46,290,L%,"asterism",F%-10,I%-10,8
601ENDCASE:IFz1%:VDU5:GCOL0,15:MOVEF%+8,I%+22:PRINT"M";STR$(c0%)
602ENDPROC
603DEFPROCF(B,C,Q%):B=RAD(P%/2+B/240):T=N%*COS(RAD(C)):F%=-T*SINB:IFABSF%>_%:ENDPROC
604B0=COSB:Z=N%*SIN(RAD(C)):W0%=Z*V+T*B0*U:IFW0%<v%:ENDPROC
605I%=Z*U-T*V*B0:IFABSI%>`%:ENDPROC
606R%(O0%)=F%+_%:W%(O0%)=I%+`%:P%(O0%)=(200+Q%)*10000:O0%+=1:IFO0%>5000:O0%=5000
607VDU5:GCOL0,0:CASEQ%OF
608WHEN0:SYS46,290,L%,"sun",F%-14,I%-14,8:IFs%:MOVEF%+14,I%+28:PRINT"Sun"
609WHEN1:SYS46,290,L%,"mercury",F%-10,I%-10,8:IFs%:MOVEF%+8,I%+22:PRINT"Mercury"
610WHEN2:SYS46,290,L%,"venus",F%-10,I%-10,8:IFs%:MOVEF%+8,I%+22:PRINT"Venus"
611WHEN4:SYS46,290,L%,"mars",F%-10,I%-10,8:IFs%:MOVEF%+8,I%+22:PRINT"Mars"
612WHEN5:SYS46,290,L%,"jupiter",F%-10,I%-10,8:IFs%:MOVEF%+8,I%+22:PRINT"Jupiter"
613WHEN6:SYS46,290,L%,"saturn",F%-18,I%-8,8:IFs%:MOVEF%+8,I%+22:PRINT"Saturn"
614WHEN7:SYS46,290,L%,"uranus",F%-10,I%-10,8:IFs%:MOVEF%+8,I%+22:PRINT"Uranus"
615WHEN8:SYS46,290,L%,"neptune",F%-10,I%-10,8:IFs%:MOVEF%+8,I%+22:PRINT"Neptune"
616WHEN9:SYS46,290,L%,"pluto",F%-8,I%-8,8:IFs%:MOVEF%+4,I%+18:PRINT"Pluto"
617WHEN10:SYS46,290,L%,"moon",F%-14,I%-14,8:IFs%:MOVEF%+14,I%+28:PRINT"Moon"
618WHEN11:SYS&400e6,131OR48:L3%=2*INT(0.36*M(181)):MOVEF%,I%:PLOT147,L3%,0:a1%=2*INT(0.88*L3%):MOVEF%,I%:PLOT147,a1%,0:IFs%:MOVEF%-40,I%+8:PRINT"Umbra"
619IFu%ANDe3%THEN
620MOVEW2%,X2%:PLOT147,v3%,0:MOVEW2%,X2%:PLOT147,n1%,0:SYS&400d1,w%,S%*(_%+W2%-n1%-2),S%*(-`%+X2%-n1%-2),S%*(_%+W2%+2+n1%),S%*(-`%+X2%+2+n1%)
621ENDIF:v3%=L3%:n1%=a1%:W2%=F%:X2%=I%:e3%=TRUE
622ENDCASE:ENDPROC
623DEFPROCm1:LOCALV3%:SWAPV3%,s%:SYS46,316,L%,"starmap",0TOz%,o%,D0%,F0%:A0%=TRUE:ORIGIN_%,`%:IFx0%THEN
624IFM2%PROCF(z1,j1/3600,9):PROCI
625IFN2%PROCF(r1,K2/3600,8):PROCI
626IFL2%PROCF(v1,S2/3600,7):PROCI
627IFF2%PROCF(A2,L2/3600,6):PROCI
628IFT2%PROCF(J2,H2/3600,5):PROCI
629IFk1%PROCF(F2,I2/3600,4):PROCI
630FORd%=0TO2:CASEX%(d%)OF
631WHEN0:IFd2%PROCF(M0,m0/3600,0):PROCI
632WHEN1:IFJ2%PROCF(C2,m1/3600,1):PROCI
633WHEN2:IFl1%PROCF(P2,M2/3600,2):PROCI
634ENDCASE:NEXT:IFY2%PROCF(I0,L0/3600,10):PROCI
635IFm1%THEN
636PROCF(m,i0/3600,11):SYS&400d1,w%,S%*(_%+F%-a1%-2),S%*(-`%+I%-a1%-2),S%*(_%+F%+2+a1%),S%*(-`%+I%+2+a1%)
637ENDIF
638ENDIF:A0%=FALSE:SYS46,z%,o%,D0%,F0%:SWAPV3%,s%:ENDPROC
639DEFPROCI:SYS&400d1,w%,S%*(_%+F%-16),S%*(-`%+I%-16),S%*(_%+F%+16),S%*(-`%+I%+16):ENDPROC
640DEFPROCb0(S%):SYS&400ed,256,L%,"mag0",,,,j0%,P1%:j0%!0=j0%!0*S%:j0%!4=j0%!4*S%:IFS%=1THEN
641!J%=w%:SYS&400cb,,J%:J%!20=0:J%!24=136:J%!12=J%!4+Z0%*S%:J%!8=J%!16-B0%*S%-136:SYS&400c5,,J%
642ENDIF:PROCr(w%,Z0%*S%,-B0%*S%,0,0):IFS%=2THEN
643!J%=w%:SYS&400cb,,J%:J%!20=0:J%!24=136:!J%=w%:SYS&400cb,,J%:J%!12=J%!4+Z0%*S%:J%!8=J%!16-S%*B0%-136:SYS&400c5,,J%
644ENDIF:PROCS(TRUE):SYS&400d1,w%,0,-B0%*S%,Z0%*S%,0:ENDPROC
645DEFPROCn1:s3%=0:Q5%=65280:X4%=&c0c0c000:SYS&40081,,"Trinity.Medium.Italic",240,240,0,0TOJ3%:SYS&4074f,J3%,s3%,X4%,14:FORf0%=1TO88:B=360-S%(f0%-1):C=U%(f0%-1):B=RAD(P%/2+B):T=N%*COS(RAD(C)):F%=-T*SINB:IFABSF%<=_%THEN
646B0=COSB:Z=N%*SIN(RAD(C)):W0%=Z*V+T*B0*U:IFW0%>v%THEN
647I%=Z*U-T*V*B0:IFABSI%<=`%THEN
648IFf0%=l%THEN
649SYS&4074f,J3%,s3%,-256,14:SYS&40086,,LEFT$(H$(f0%),INSTR(H$(f0%),"(")-1),16,F%+_%,I%+`%:SYS&4074f,J3%,s3%,X4%,14
650ELSE:SYS&40086,,LEFT$(H$(f0%),INSTR(H$(f0%),"(")-1),16,F%+_%,I%+`%
651ENDIF
652ENDIF
653ENDIF
654ENDIF:NEXT:SYS&40082,J3%:ENDPROC
655DEFPROCN1(L$):LOCALS1%:p0%=0:D5%=1:S1%=FNO(L$):DIMq0%S1%:S1%=FNn(L$,q0%,S1%):p0%=!q0%-1:h1%=q0%!4:q0%+=16:F3%=q0%:K3%=q0%+4*h1%:I1%=q0%+8*h1%:A4%=q0%+12*h1%:_1%=q0%+14*h1%:g2%=q0%+16*h1%:j3%=q0%+17*h1%:D4%=q0%+18*h1%:FORF%=0TOp0%:J%(F%)=F3%!(4*F%):G%(F%)=K3%!(4*F%)
656O(F%)=N%*COS(RAD(G%(F%)/3600)):L(F%)=N%*SIN(RAD(G%(F%)/3600)):NEXT:ENDPROC
657DEFPROCj1(L$):G4%=1:T%=OPENIN(L$):WHILENOTEOF#T%:J$(G4%)=GET$#T%:G4%+=1:ENDWHILE:SYS&2000d,0,T%:T%=0:ENDPROC
658DEFPROCa0(L$):LOCALZ2%:o3%=1:T%=OPENIN(L$):WHILENOTEOF#T%:B$=GET$#T%:Z2%=VAL(LEFT$(B$,3)):b0%=VAL(MID$(B$,5,2)):c0%=VAL(MID$(B$,7,2)):_0%=VAL(MID$(B$,9,2)):K%(Z2%)=b0%*60*60+c0%*60+_0%:Q3%=VAL(MID$(B$,11,3)):c0%=VAL(MID$(B$,14,2)):_0%=VAL(MID$(B$,16,2)):IFMID$(B$,11,1)="-"THEN
659M%(Z2%)=Q3%*60*60-c0%*60-_0%
660ELSE:M%(Z2%)=Q3%*60*60+c0%*60+_0%
661ENDIF:O%(Z2%)=VAL(MID$(B$,19,1)):IFINSTR(B$,":")>10THEN
662L$(o3%)=MID$(B$,21):O%(Z2%)+=(o3%*100):o3%+=1
663ENDIF:ENDWHILE:SYS&2000d,0,T%:T%=0:ENDPROC
664DEFFNK(F4%):LOCALB$:IFF4%<0THEN
665B$=RIGHT$("000"+MID$(STR$(F4%),2),3):B$="-"+LEFT$(LEFT$(B$,1)+"."+MID$(B$,2,2)+"00",4)
666ELSE:B$=RIGHT$("000"+STR$(F4%),3):B$=LEFT$(LEFT$(B$,1)+"."+MID$(B$,2,2)+"00",4)
667ENDIF:=B$
668DEFPROCQ1(L$):T%=OPENIN(L$):e1%=0:WHILENOTEOF#T%:H$(e1%)=MID$(GET$#T%,5):e1%+=1:ENDWHILE:e1%-=1:SYS&2000d,0,T%:T%=0:ENDPROC
669DEFPROCk1(L$):T%=OPENIN(L$):e1%=0:WHILENOTEOF#T%:M$(e1%)=GET$#T%:e1%+=1:ENDWHILE:SYS&2000d,0,T%:T%=0:ENDPROC
670DEFPROCI1(L$):LOCALZ%,M0%:r%=0:IFa3%:ENDPROC
671T%=OPENIN(L$):WHILENOTEOF#T%:A$=GET$#T%:IFINSTR(A$,":")>1THEN
672C%(r%)=VAL(LEFT$(A$,INSTR(A$,":")-1)):B%(r%)=VAL(MID$(A$,INSTR(A$,":")+1))
673ELSE:Z%=0:FORM0%=1TOe1%:IFA$=LEFT$(H$(M0%),INSTR(H$(M0%),"(")-2):Z%=M0%
674NEXT:C%(r%)=&ffffff:B%(r%)=Z%
675ENDIF:r%+=1:ENDWHILE:C%(r%)=&ffffff:SYS&2000d,0,T%:T%=0:ENDPROC
676DEFPROCf(B,L1,V0):o3=RAD(q):m3=SIN(o3):r3=COS(o3):H3=V0-B:IFH3<0:B+=2*PI
677e3=SIN(L1):d3=COS(L1):n3=e3*m3+d3*r3*COS(H3):h2=ASN(n3):j3=-d3*r3*SIN(H3):D3=e3-m3*n3:Q2=ATN(j3/(D3+1E-38)):IFD3<0:Q2+=PI:ELSEIFD3>0ANDj3<0:Q2+=2*PI
678ENDPROC
679DEFPROCY(R3%):SYS&406c0:t1%=R3%:N%=L%(R3%):CASER3%OF
680WHEN0:h%=440
681WHEN1:h%=520
682WHEN2:h%=600
683WHEN3:h%=700
684ENDCASE:K2%=700-h%:PROCA(K%,19,FNK(h%)):IFN%>L%(2)THEN
685t0%=6:a%=5
686ELSE:t0%=6:a%=5:M%=10*(M%DIV10):N=RAD(M%):V=SIN(N):U=COS(N):PROCA(K%,13,STR$(M%))
687ENDIF:FORY0%=0TO360:M(Y0%)=N%*SIN(RAD(Y0%+180)):S(Y0%)=N%*COS(RAD(Y0%+180)):NEXT:IFw2%>2*N%:r0%=90:ELSEr0%=DEG(ASN(w2%/(2*N%)))
688v%=N%*COS(RAD(r0%+10)):IFv%<0:v%=0
689IFv%>N%/2:v%=N%/2
690k%=DEG(ASN(Z0%/2/N%)):k%+=a%:r3%=-N%*SIN(RAD(k%)):g4%=-r3%:k%=DEG(ASN(B0%/2/N%)):k%+=2*t0%:i1%=-N%*SIN(RAD(k%)):b2%=-i1%:FORF%=0TOp0%:O(F%)=N%*COS(RAD(G%(F%)/3600)):L(F%)=N%*SIN(RAD(G%(F%)/3600)):NEXT:SYS&406c1:ENDPROC
691DEFPROCG1:LOCALZ%,w1%,W3%:SYS&400e6,128+11:w1%=FALSE:W3%=14:FORZ%=1TOr%-46:PROCx:NEXT:IFl%>88THEN
692CASEl%OF
693WHEN95:F%=177:I%=182:l%=18
694WHEN92:F%=935:I%=939
695WHEN94:F%=940:I%=944
696WHEN93:F%=945:I%=957
697WHEN89:F%=958:I%=963
698WHEN91:F%=964:I%=969
699WHEN90:F%=970:I%=978
700ENDCASE:W3%=14:FORZ%=F%TOI%:PROCx:NEXT:IFl%=18:l%=95
701ENDIF:ENDPROC
702DEFPROCx:g%=C%(Z%):C=B%(Z%)/3600:IFl0%>m0%THEN
703IFg%=&ffffff:w1%=TRUE
704IFw1%THEN
705IFB%(Z%)=l%THEN
706SYS&400e6,128+W3%
707ELSE:SYS&400e6,128+11
708ENDIF
709ENDIF:w1%=FALSE:IFg%/3600<l0%ANDg%/3600>m0%THEN
710IFC<K0%ANDC>L0%THEN
711IFg%<>&ffffffTHEN
712B=RAD(P%/2+g%/240):C=RADC:Z=N%*SINC:T=N%*COSC:U0=T*COSB:IFZ*V+U0*U>v%THEN
713MOVEINT(-T*SINB),INT(Z*U-V*U0):Z%+=1:g%=C%(Z%):C=B%(Z%)/3600:WHILEg%<>&ffffff:B=RAD(P%/2+g%/240):C=RADC:Z=N%*SINC:T=N%*COSC:U0=T*COSB:IFZ*V+U0*U>v%:PLOT55,INT(-T*SINB),INT(Z*U-V*U0)
714Z%+=1:g%=C%(Z%):C=B%(Z%)/3600:ENDWHILE:Z%-=1
715ENDIF
716ENDIF
717ENDIF
718ENDIF
719ELSE:IFg%=&ffffff:w1%=TRUE
720IFw1%THEN
721IFB%(Z%)=l%THEN
722SYS&400e6,128+W3%
723ELSE:SYS&400e6,128+11
724ENDIF
725ENDIF:w1%=FALSE:IFg%/3600<l0%ORg%/3600>m0%THEN
726IFC<K0%ANDC>L0%THEN
727IFg%<>&ffffffTHEN
728B=RAD(P%/2+g%/240):C=RADC:Z=N%*SINC:T=N%*COSC:U0=T*COSB:IFZ*V+U0*U>v%THEN
729MOVEINT(-T*SINB),INT(Z*U-V*U0):Z%+=1:g%=C%(Z%):C=B%(Z%)/3600:WHILEg%<>&ffffff:B=RAD(P%/2+g%/240):C=RADC:Z=N%*SINC:T=N%*COSC:U0=T*COSB:IFZ*V+U0*U>v%:PLOT55,INT(-T*SINB),INT(Z*U-V*U0)
730Z%+=1:g%=C%(Z%):C=B%(Z%)/3600:ENDWHILE:Z%-=1
731ENDIF
732ENDIF
733ENDIF
734ENDIF
735ENDIF:ENDPROC
736DEFPROCp0:LOCALv2%:v2%=FALSE:VDU23,6,136|:SYS&400e6,128+8:IFl0%>m0%THEN
737FORd%=0TO360STEP10:B=RAD(d%):C=0:PROCN(B,C,O0):B=DEG(B):C=DEG(C):IFB/15<l0%ANDB/15>m0%THEN
738IFC<K0%ANDC>L0%THEN
739B=P%/2+B:Z=N%*SIN(RAD(C)):T=N%*COS(RAD(C)):B0=COS(RAD(B)):W0%=Z*V+T*B0*U:IFW0%>v%THEN
740F%=-T*SIN(RAD(B)):I%=Z*U-T*V*B0:IFv2%PLOT55,F%,I%ELSEMOVEF%,I%:v2%=TRUE
741ENDIF
742ENDIF
743ENDIF:NEXT
744ELSE:FORd%=-180TO180STEP10:B=RAD(d%):C=0:PROCN(B,C,O0):B=DEG(B):C=DEG(C):IFB/15<l0%ORB/15>m0%THEN
745IFC<K0%ANDC>L0%THEN
746B=P%/2+B:Z=N%*SIN(RAD(C)):T=N%*COS(RAD(C)):B0=COS(RAD(B)):W0%=Z*V+T*B0*U:IFW0%>v%THEN
747F%=-T*SIN(RAD(B)):I%=Z*U-T*V*B0:IFv2%PLOT55,F%,I%ELSEMOVEF%,I%:v2%=TRUE
748ENDIF
749ENDIF
750ENDIF:NEXT
751ENDIF:ENDPROC
752DEFPROCY1(F%,I%):I%-=S%*B0%:SYS&2002e,308,L%,"starmap",F%,I%,0,j0%,P1%:ENDPROC
753DEFPROCA0(F%,I%)ENDPROC
754DEFPROCm(F%,I%):T%=OPENUP(D$+".Data.C_lines"):PTR#T%=EXT#T%:CASEU1%OF
755WHENk0%:SYS6,202,0,255TO,o%:IF(o%AND8)THEN
756C%(r%)=&ffffff:B%(r%)=&ffffff:r%-=1:C%(r%)=&ffffff:B%(r%)=&ffffff
757ELSE:PROCJ(F%,I%):C%(r%)=J%(U%):B%(r%)=G%(U%):r%+=1:BPUT#T%,STR$(J%(U%))+":"+STR$(G%(U%))
758ENDIF
759WHENN1%:BPUT#T%,H$(g2%?M1%):C%(r%)=&ffffff:B%(r%)=&ffffff:r%+=1:C%(r%)=&ffffff:B%(r%)=&ffffff
760ENDCASE:SYS&2000d,0,T%:T%=0:ENDPROC
761DEFPROCI0:PROCQ(T0%,TRUE):G0%=TRUE:ENDPROC
762DEFPROCU:LOCALB,C:SYS&406c0:SYS46,316,L%,"equatorial",0TOz%,o%,D0%,F0%:A0%=TRUE:SYS&400e6,128+8:SYS&400e6,7:ORIGIN0,0:RECTANGLEFILL0,0,3600,600:ORIGIN0,300:PROCK1:VDU23,6,85|:IFB3%THEN
763VDU5:SYS&400e6,8:MOVE8,-180:PRINT"-20";:MOVE0,-200:PLOT55,3600,-200:MOVE8,-80:PRINT"-10";:MOVE0,-100:PLOT55,3600,-100:MOVE8,20:PRINT"0";:MOVE0,0:PLOT55,3600,0:MOVE8,120:PRINT"10";:MOVE0,100:PLOT55,3600,100:MOVE8,220:PRINT"20";:MOVE0,200:PLOT55,3600,200:FORF%=150TO3450STEP150:MOVEF%+8,-280:PRINTSTR$(24-(F%/150));:MOVEF%,-300:PLOT55,F%,300
764NEXT
765ENDIF:IFt2%:PROCD1
766IFq2%:PROCd1
767O0%=0:FORR%=0TOp0%:W0%=G%(R%)/360:IFC<300ANDC>-300THEN
768PROCv0(3600-J%(R%)/24,W0%,I1%!(4*R%)+100):IFI1%!(4*R%)>480:R%=p0%
769ENDIF:NEXT:IFS2%:PROCG(z1,j1/3600,9,TRUE)
770IFq1%:PROCG(r1,K2/3600,8,TRUE)
771IFH2%:PROCG(v1,S2/3600,7,TRUE)
772IFO2%:PROCG(A2,L2/3600,6,TRUE)
773IFC2%:PROCG(J2,H2/3600,5,TRUE)
774IFB2%:PROCG(F2,I2/3600,4,TRUE)
775FORd%=0TO2:CASEX%(d%)OF
776WHEN0:IFn2%:PROCG(M0,m0/3600,0,TRUE)
777WHEN1:IFQ2%:PROCG(C2,m1/3600,1,TRUE)
778WHEN2:IFp1%:PROCG(P2,M2/3600,2,TRUE)
779ENDCASE:NEXT:IFc2%:PROCG(I0,L0/3600,10,TRUE)
780IFI2%PROCG(m,i0/3600,11,TRUE)
781A0%=FALSE:SYS46,z%,o%,D0%,F0%:SYS&406c1:SYS&400d1,T0%,0,-1200,7200,0:ENDPROC
782DEFPROCV1(F%,I%):IFy%:I%-=1200:ELSEI%-=600
783SYS&2002e,308,L%,"equatorial",F%,I%,0,h0%,P1%:ENDPROC
784DEFPROCD1:LOCALZ%,w1%,W3%:SYS&400e6,128+11:FORZ%=1TOr%-46:PROC`1:NEXT:ENDPROC
785DEFPROC`1:g%=C%(Z%):C=B%(Z%)/3600:J1=360-g%/240:g1=C:IFC<45ANDC>-45THEN
786IFg%<>&ffffffTHEN
787B=360-g%/240:MOVEINT(B*10),INT(C*10):J1=B:g1=C:Z%+=1:g%=C%(Z%):C=B%(Z%)/3600:WHILEg%<>&ffffff:B=360-g%/240:IFB-J1>180THEN
788MOVEINT(J1*10),INT(g1*10):PLOT55,INT((B-360)*10),INT(C*10):MOVEINT((J1+360)*10),INT(g1*10):PLOT55,INT(B*10),INT(C*10)
789ELSE:IFB-J1<-180THEN
790MOVEINT(J1*10),INT(g1*10):PLOT55,INT((B+360)*10),INT(C*10):MOVEINT((J1-360)*10),INT(g1*10):PLOT55,INT(B*10),INT(C*10)
791ELSE:PLOT55,INT(B*10),INT(C*10)
792ENDIF
793ENDIF:J1=B:g1=C:Z%+=1:g%=C%(Z%):C=B%(Z%)/3600:ENDWHILE:Z%-=1
794ENDIF
795ENDIF:ENDPROC
796DEFPROCv0(F%,I%,b%):IFb%>599SYS46,290,L%,"mag6",F%,I%,2:ENDPROC
797IFb%>499SYS46,290,L%,"mag5",F%-2,I%-2,2:ENDPROC
798IFb%>399SYS46,290,L%,"mag4",F%-2,I%-2,2:ENDPROC
799IFb%>299SYS46,290,L%,"mag3",F%-2,I%-2,2:ENDPROC
800IFb%>199SYS46,290,L%,"mag2",F%-4,I%-4,2:ENDPROC
801IFb%>99SYS46,290,L%,"mag1",F%-4,I%-4,2:ENDPROC
802IFb%>-1SYS46,290,L%,"mag0",F%-6,I%-6,2:ENDPROC
803IFb%<0SYS46,290,L%,"mag-1",F%-6,I%-6,2:ENDPROC
804ENDPROC
805DEFPROCK1:MOVE3600,0:VDU23,6,136|:SYS&400e6,128+8:FORd%=0TO360STEP10:B=RAD(d%):C=0:PROCN(B,C,O0):F%=3600-DEG(B)*10:I%=DEG(C)*10:PLOT55,F%,I%:NEXT:ENDPROC
806DEFPROCG(B,C,Q%,u0%):F%=3600-B/24:I%=C*10:VDU5:GCOL0,0:CASEQ%OF
807WHEN0:SYS46,290,L%,"sun",F%-14,I%-14,8:IFu0%:MOVEF%+14,I%+28:PRINT"Sun"
808WHEN1:SYS46,290,L%,"smmercury",F%-6,I%-6,8:IFu0%:MOVEF%+4,I%+18:PRINT"Mercury"
809WHEN2:SYS46,290,L%,"smvenus",F%-6,I%-6,8:IFu0%:MOVEF%+4,I%+18:PRINT"Venus"
810WHEN4:SYS46,290,L%,"smmars",F%-6,I%-6,8:IFu0%:MOVEF%+4,I%+18:PRINT"Mars"
811WHEN5:SYS46,290,L%,"smjupiter",F%-6,I%-6,8:IFu0%:MOVEF%+4,I%+18:PRINT"Jupiter"
812WHEN6:SYS46,290,L%,"smsaturn",F%-12,I%-6,8:IFu0%:MOVEF%+4,I%+18:PRINT"Saturn"
813WHEN7:SYS46,290,L%,"smuranus",F%-6,I%-6,8:IFu0%:MOVEF%+4,I%+18:PRINT"Uranus"
814WHEN8:SYS46,290,L%,"smneptune",F%-6,I%-6,8:IFu0%:MOVEF%+4,I%+18:PRINT"Neptune"
815WHEN9:SYS46,290,L%,"smpluto",F%-4,I%-4,8:IFu0%:MOVEF%+4,I%+16:PRINT"Pluto"
816WHEN10:SYS46,290,L%,"moon",F%-14,I%-14,8:IFu0%:MOVEF%+14,I%+28:PRINT"Moon"
817WHEN11:SYS&400e6,142:MOVEF%,I%:PLOT147,10,0:IFu0%:MOVEF%+8,I%-10:PRINT"Umbra"
818ENDCASE:ENDPROC
819DEFPROCk:LOCALV3%:SWAPV3%,s%:SYS46,316,L%,"equatorial",0TOz%,o%,D0%,F0%:A0%=TRUE:ORIGIN0,300:IFS2%PROCG(z1,j1/3600,9,FALSE):PROCL
820IFq1%PROCG(r1,K2/3600,8,FALSE):PROCL
821IFH2%PROCG(v1,S2/3600,7,FALSE):PROCL
822IFO2%PROCG(A2,L2/3600,6,FALSE):PROCL
823IFC2%PROCG(J2,H2/3600,5,FALSE):PROCL
824IFB2%PROCG(F2,I2/3600,4,FALSE):PROCL
825FORd%=0TO2:CASEX%(d%)OF
826WHEN0:IFn2%PROCG(M0,m0/3600,0,FALSE):PROCH0
827WHEN1:IFQ2%PROCG(C2,m1/3600,1,FALSE):PROCL
828WHEN2:IFp1%PROCG(P2,M2/3600,2,FALSE):PROCL
829ENDCASE:NEXT:IFc2%PROCG(I0,L0/3600,10,FALSE):PROCH0
830IFI2%PROCG(m,i0/3600,11,FALSE):PROCL
831A0%=FALSE:SYS46,z%,o%,D0%,F0%:SWAPV3%,s%:ENDPROC
832DEFPROCL:IFy%THEN
833SYS&400d1,T0%,2*F%-24,2*I%-620,2*F%+28,2*I%-576
834ELSE:SYS&400d1,T0%,F%-12,I%-310,F%+14,I%-288
835ENDIF:ENDPROC
836DEFPROCH0:IFy%THEN
837SYS&400d1,T0%,2*F%-32,2*I%-628,2*F%+32,2*I%-570
838ELSE:SYS&400d1,T0%,F%-16,I%-314,F%+16,I%-284
839ENDIF:ENDPROC
840DEFPROCd1:VDU5:SYS&400e6,11:FORf0%=1TO88:I%=10*U%(f0%-1):IFABSI%<350THEN
841F%=10*S%(f0%-1):MOVEF%,I%+16:PRINTLEFT$(H$(f0%),INSTR(H$(f0%),"(")-1)
842ENDIF:NEXT:ENDPROC
843DEFPROCj0(y%):IFy%THEN
844SYS&400ed,256,L%,"mag0",,,,h0%,P1%:h0%!0=h0%!0*2:h0%!4=h0%!4*2:y%=2
845ELSE:SYS&400ed,256,L%,"mag0",,,,h0%,P1%:y%=1
846ENDIF:!J%=T0%:SYS&400cb,,J%:J%!20=0:J%!24=0:IFJ%!12-J%!4>3600*y%:J%!12=J%!4+1800*y%
847J%!8=J%!16-600*y%:SYS&400c5,,J%:PROCr(T0%,3600*y%,-600*y%,0,0):IFy%=2THEN
848!J%=T0%:SYS&400cb,,J%:J%!8=J%!16-600*y%:SYS&400c5,,J%
849ENDIF:SYS&400d1,T0%,0,-600*y%,3600*y%,0:ENDPROC
850DEFFNh:A$=FNC(X0%,2):IFINSTR(A$,":")ANDA$<>""THEN
851q=VAL(LEFT$(A$,INSTR(A$,":")-1)):A$=MID$(A$,INSTR(A$,":")+1):q+=SGN(q)*VAL(LEFT$(A$,INSTR(A$,":")-1))/60:A$=MID$(A$,INSTR(A$,":")+1):q+=SGN(q)*VAL(LEFT$(A$,INSTR(A$,":")-1))/3600
852ELSE:q=VALA$
853ENDIF:IFq<-90:q=-90
854IFq>90:q=90
855=q
856DEFFNm:A$=FNC(X0%,6):IFINSTR(A$,":")ANDA$<>""THEN
857D0=VAL(LEFT$(A$,INSTR(A$,":")-1)):A$=MID$(A$,INSTR(A$,":")+1):D0+=SGN(D0)*VAL(LEFT$(A$,INSTR(A$,":")-1))/60:A$=MID$(A$,INSTR(A$,":")+1):D0+=SGN(D0)*VAL(LEFT$(A$,INSTR(A$,":")-1))/3600
858ELSE:D0=VALA$
859ENDIF:IFD0<-180:D0=-180
860IFD0>180:D0=180
861=D0
862DEFFNs:=VAL(FNC(X0%,10))
863DEFPROCW:IFx2%:ENDPROC
864v1%=FALSE:PROCB(K%,37,v1%):PROCH(K%,37,TRUE):x2%=TRUE:ENDPROC
865DEFFNZ(f):LOCALJ3,A:A=(f/36525)-1:J3=((46.815+(0.0006-0.00181*A)*A)*A)/3600:=RAD(23.43929167-J3+FNP(f))
866DEFFNk(f):LOCALJ3,A:A=(f/36525)-1:J3=((46.815+(0.0006-0.00181*A)*A)*A)/3600:=RAD(23.43929167-J3)
867DEFFNP(f):LOCALg,D,M,g0,b1,o,x,a0,I3,s0:A=f/36525:g=A*A:D=1.000021358E2*A:M=360*(D-INT(D)):g0=2.796967E2+3.03E-4*g+M:G0=2*RAD(g0):D=1.336855232E3*A:M=360*(D-INT(D)):b1=2.704342E2-1.133E-3*g+M:W0=2*RAD(b1):D=9.999736056E1*A:M=360*(D-INT(D))
868o=3.584758E2-1.5E-4*g+M:o=RAD(o):D=1.325552359E3*A:M=360*(D-INT(D)):x=2.961046E2+9.192E-3*g+M:x=RAD(x):D=5.372616667*A:M=360*(D-INT(D)):a0=2.591833E2+2.078E-3*g-M:a0=RAD(a0):I3=2*a0:s0=(9.21+9.1E-4*A)*COS(a0):s0=s0+(5.522E-1-2.9E-4*A)*COS(G0)-9.04E-2*COS(I3)
869s0=s0+8.84E-2*COS(W0)+2.16E-2*COS(G0+o):s0=s0+1.83E-2*COS(W0-a0)+1.13E-2*COS(W0+x):s0=s0-9.3E-3*COS(G0-o)-6.6E-3*COS(G0-a0):J0=J0/3600:=s0/3600
870DEFFNU(f):LOCALg,D,M,g0,b1,o,x,a0,I3,J0:A=f/36525:g=A*A:D=1.000021358E2*A:M=360*(D-INT(D)):g0=2.796967E2+3.03E-4*g+M:G0=2*RAD(g0):D=1.336855232E3*A:M=360*(D-INT(D)):b1=2.704342E2-1.133E-3*g+M:W0=2*RAD(b1):D=9.999736056E1*A:M=360*(D-INT(D))
871o=3.584758E2-1.5E-4*g+M:o=RAD(o):D=1.325552359E3*A:M=360*(D-INT(D)):x=2.961046E2+9.192E-3*g+M:x=RAD(x):D=5.372616667*A:M=360*(D-INT(D)):a0=2.591833E2+2.078E-3*g-M:a0=RAD(a0):I3=2*a0:J0=(-17.2327-1.737E-2*A)*SIN(a0):J0=J0+(-1.2729-1.3E-4*A)*SIN(G0)+2.088E-1*SIN(I3)
872J0=J0-2.037E-1*SIN(W0)+(1.261E-1-3.1E-4*A)*SIN(o):J0=J0+6.75E-2*SIN(x)-(4.97E-2-1.2E-4*A)*SIN(G0+o):J0=J0-3.42E-2*SIN(W0-a0)-2.61E-2*SIN(W0+x):J0=J0+2.14E-2*SIN(G0-o)-1.49E-2*SIN(G0-W0+x):J0=J0+1.24E-2*SIN(G0-a0)+1.14E-2*SIN(W0-x):=J0/3600
873DEFPROCb(A4,X2):LOCALM3,o2,L1:M3=2*PI:o2=A4-M3*INT(A4/M3):r0=o2:L1=r0-(X2*SIN(r0))-o2:WHILEABS(L1)>1E-6:L1=L1/(1-(X2*COS(r0))):r0=r0-L1:L1=r0-(X2*SIN(r0))-o2:ENDWHILE:Q4=SQR((1+X2)/(1-X2))*TAN(r0/2):q4=2*ATN(Q4):k4=r0:O2=q4:ENDPROC
874DEFPROCh(f,k,RETURNB,RETURNr4):A=(f/36525)+(k/8.766E5):g=A*A:D=1.000021359E2*A:M=360*(D-INT(D)):L=2.7969668E2+3.025E-4*g+M:D=9.999736042E1*A:M=360*(D-INT(D)):o=3.5847583E2-(1.5E-4+3.3E-6*A)*g+M:e0=1.675104E-2-4.18E-5*A-1.26E-7*g:N1=RAD(o):PROCb(N1,e0)
875D=6.255209472E1*A:M=360*(D-INT(D)):`3=RAD(153.25+M):D=1.251041894E2*A:M=360*(D-INT(D)):S3=RAD(216.57+M):D=9.156766028E1*A:M=360*(D-INT(D)):y=RAD(312.69+M):D=1.236853095E3*A:M=360*(D-INT(D)):b1=RAD(350.74-1.44E-3*g+M):d4=RAD(231.19+20.2*A)
876D=1.831353208E2*A:M=360*(D-INT(D)):U4=RAD(353.4+M):W0=1.34E-3*COS(`3)+1.54E-3*COS(S3)+2E-3*COS(y):W0=W0+1.79E-3*SIN(b1)+1.78E-3*SIN(d4):k1=5.43E-6*SIN(`3)+1.575E-5*SIN(S3):k1=k1+1.627E-5*SIN(y)+3.076E-5*COS(b1):k1=k1+9.27E-6*SIN(U4):B=O2+RAD(L-o+W0)
877r4=1.0000002*(1-e0*COS(k4))+k1:WHILEB<0:B+=2*PI:ENDWHILE:WHILEB>2*PI:B-=2*PI:ENDWHILE:C1=B:ENDPROC
878DEFPROCD0(f,k,RETURNB,RETURNC,RETURNX1):A=(f/36525)+(k/8.766E5):g=A*A:o=2.732158213E1:x=3.652596407E2:d1=2.755455094E1:_1=2.953058868E1:Z1=2.721222039E1:c1=6.798363307E3:Q0=f+(k/24):o=Q0/o:x=Q0/x:d1=Q0/d1:_1=Q0/_1:Z1=Q0/Z1:c1=Q0/c1:o=360*(o-INT(o)):x=360*(x-INT(x))
879d1=360*(d1-INT(d1)):_1=360*(_1-INT(_1)):Z1=360*(Z1-INT(Z1)):c1=360*(c1-INT(c1)):y1=2.70434164E2+o-(1.133E-3-1.9E-6*A)*g:H=3.58475833E2+x-(1.5E-4+3.3E-6*A)*g:F=2.96104608E2+d1+(9.192E-3+1.44E-5*A)*g:G=3.50737486E2+_1-(1.436E-3-1.9E-6*A)*g
880J=11.250889+Z1-(3.211E-3+3E-7*A)*g:p1=2.59183275E2-c1+(2.078E-3+2.2E-6*A)*g:D=RAD(51.2+20.2*A):p=SIN(D):u=SIN(RAD(p1)):M=346.56+(132.87-9.1731E-3*A)*A:N0=3.964E-3*SIN(RAD(M)):w=RAD(p1+275.05-2.3*A):f4=SIN(w):y1=y1+2.33E-4*p+N0+1.964E-3*u:H=H-1.778E-3*p
881F=F+8.17E-4*p+N0+2.541E-3*u:J=J+N0-2.4691E-2*u-4.328E-3*f4:G=G+2.011E-3*p+N0+1.964E-3*u:R=1-(2.495E-3+7.52E-6*A)*A:U1=R*R:y1=RAD(y1):H=RAD(H):p1=RAD(p1):G=RAD(G):J=RAD(J):F=RAD(F):L=6.28875*SIN(F)+1.274018*SIN(2*G-F):L=L+6.58309E-1*SIN(2*G)+2.13616E-1*SIN(2*F)
882L=L-R*1.85596E-1*SIN(H)-1.14336E-1*SIN(2*J):L=L+5.8793E-2*SIN(2*(G-F)):L=L+5.7212E-2*R*SIN(2*G-H-F)+5.332E-2*SIN(2*G+F):L=L+4.5874E-2*R*SIN(2*G-H)+4.1024E-2*R*SIN(F-H):L=L-3.4718E-2*SIN(G)-R*3.0465E-2*SIN(H+F):L=L+1.5326E-2*SIN(2*(G-J))-1.2528E-2*SIN(2*J+F)
883L=L-1.098E-2*SIN(2*J-F)+1.0674E-2*SIN(4*G-F):L=L+1.0034E-2*SIN(3*F)+8.548E-3*SIN(4*G-2*F):L=L-R*7.91E-3*SIN(H-F+2*G)-R*6.783E-3*SIN(2*G+H):L=L+5.162E-3*SIN(F-G)+R*5E-3*SIN(H+G):L=L+3.862E-3*SIN(4*G)+R*4.049E-3*SIN(F-H+2*G):L=L+3.996E-3*SIN(2*(F+G))+3.665E-3*SIN(2*G-3*F)
884L=L+R*2.695E-3*SIN(2*F-H)+2.602E-3*SIN(F-2*(J+G)):L=L+R*2.396E-3*SIN(2*(G-F)-H)-2.349E-3*SIN(F+G):L=L+U1*2.249E-3*SIN(2*(G-H))-R*2.125E-3*SIN(2*F+H):L=L-U1*2.079E-3*SIN(2*H)+U1*2.059E-3*SIN(2*(G-H)-F):L=L-1.773E-3*SIN(F+2*(G-J))-1.595E-3*SIN(2*(J+G))
885L=L+R*1.22E-3*SIN(4*G-H-F)-1.11E-3*SIN(2*(F+J)):L=L+8.92E-4*SIN(F-3*G)-R*8.11E-4*SIN(H+F+2*G):L=L+R*7.61E-4*SIN(4*G-H-2*F):L=L+U1*7.04E-4*SIN(F-2*(H+G)):L=L+R*6.93E-4*SIN(H-2*(F-G)):L=L+R*5.98E-4*SIN(2*(G-J)-H):L=L+5.5E-4*SIN(F+4*G)+5.38E-4*SIN(4*F)
886L=L+R*5.21E-4*SIN(4*G-H)+4.86E-4*SIN(2*F-G):L=L+U1*7.17E-4*SIN(F-2*H):k0=y1+RAD(L):WHILEk0<0:k0+=X:ENDWHILE:WHILEk0>X:k0-=X:ENDWHILE:B=k0:O=5.128189*SIN(J)+2.80606E-1*SIN(F+J):O=O+2.77693E-1*SIN(F-J)+1.73238E-1*SIN(2*G-J):O=O+5.5413E-2*SIN(2*G+J-F)+4.6272E-2*SIN(2*G-J-F)
887O=O+3.2573E-2*SIN(2*G+J)+1.7198E-2*SIN(2*F+J):O=O+9.267E-3*SIN(2*G+F-J)+8.823E-3*SIN(2*F-J):O=O+R*8.247E-3*SIN(2*G-H-J)+4.323E-3*SIN(2*(G-F)-J):O=O+4.2E-3*SIN(2*G+J+F)+R*3.372E-3*SIN(J-H-2*G):O=O+R*2.472E-3*SIN(2*G+J-H-F):O=O+R*2.222E-3*SIN(2*G+J-H)
888O=O+R*2.072E-3*SIN(2*G-J-H-F):O=O+R*1.877E-3*SIN(J-H+F)+1.828E-3*SIN(4*G-J-F):O=O-R*1.803E-3*SIN(J+H)-1.75E-3*SIN(3*J):O=O+R*1.57E-3*SIN(F-H-J)-1.487E-3*SIN(J+G):O=O-R*1.481E-3*SIN(J+H+F)+R*1.417E-3*SIN(J-H-F):O=O+R*1.35E-3*SIN(J-H)+1.33E-3*SIN(J-G)
889O=O+1.106E-3*SIN(J+3*F)+1.02E-3*SIN(4*G-J):O=O+8.33E-4*SIN(J+4*G-F)+7.81E-4*SIN(F-3*J):O=O+6.7E-4*SIN(J+4*G-2*F)+6.06E-4*SIN(2*G-3*J):O=O+5.97E-4*SIN(2*(G+F)-J):O=O+R*4.92E-4*SIN(2*G+F-H-J)+4.5E-4*SIN(2*(F-G)-J):O=O+4.39E-4*SIN(3*F-J)+4.23E-4*SIN(J+2*(G+F))
890O=O+4.22E-4*SIN(2*G-J-3*F)-R*3.67E-4*SIN(H+J+2*G-F):O=O-R*3.53E-4*SIN(H+J+2*G)+3.31E-4*SIN(J+4*G):O=O+R*3.17E-4*SIN(2*G+J-H+F):O=O+U1*3.06E-4*SIN(2*(G-H)-J)-2.83E-4*SIN(F+3*J):_4=4.664E-4*COS(p1):m4=7.74E-5*COS(w):Y1=RAD(O)*(1-_4-m4):C=Y1
891a=9.50724E-1+5.1818E-2*COS(F)+9.531E-3*COS(2*G-F):a=a+7.843E-3*COS(2*G)+2.824E-3*COS(2*F):a=a+8.57E-4*COS(2*G+F)+R*5.33E-4*COS(2*G-H):a=a+R*4.01E-4*COS(2*G-F-H):a=a+R*3.2E-4*COS(F-H)-2.71E-4*COS(G):a=a-R*2.64E-4*COS(H+F)-1.98E-4*COS(2*J-F)
892a=a+1.73E-4*COS(3*F)+1.67E-4*COS(4*G-F):a=a-R*1.11E-4*COS(H)+1.03E-4*COS(4*G-2*F):a=a-8.4E-5*COS(2*F-2*G)-R*8.3E-5*COS(2*G+H):a=a+7.9E-5*COS(2*G+2*F)+7.2E-5*COS(4*G):a=a+R*6.4E-5*COS(2*G-H+F)-R*6.3E-5*COS(2*G+H-F):a=a+R*4.1E-5*COS(H+G)+R*3.5E-5*COS(2*F-H)
893a=a-3.3E-5*COS(3*F-2*G)-3E-5*COS(F+G):a=a-2.9E-5*COS(2*(J-G))-R*2.9E-5*COS(2*F+H):a=a+U1*2.6E-5*COS(2*(G-H))-2.3E-5*COS(2*(J-G)+F):a=a+R*1.9E-5*COS(4*G-H-F):a=RAD(a):X1=a:ENDPROC
894DEFFNd:F3=COS(k0-C1)*COS(Y1):Y2=1.570796327-ASN(F3):c2=SIN(Y2):S1=(1.468E-1*c2*(1-5.49E-2*SIN(F)))/(1-1.67E-2*SIN(H)):S1=PI-Y2-RAD(S1):z0=k0-C1:IFz0<0:z0+=X
895IFz0>X:z0-=X
896z0=DEG(z0)/12.2:R1=(1+COS(S1))/2:=R1
897DEFFNf:k2=RAD(m0/3600):N3=RAD(M0/240):R3=RAD(L0/3600):O3=RAD(I0/240):l1=COS(k2)*SIN(N3-O3):M1=COS(R3)*SIN(k2)-SIN(R3)*COS(k2)*COS(N3-O3):X0=ATN(l1/M1):IFM1<0:X0+=PI:ELSEIFM1>=0ANDl1<0:X0+=2*PI
898IFX0<0:X0+=2*PI
899=X0
900DEFFNi:A=(f-36525)/36525:i3=RAD(125.044522-1934.136261*A):S1=RAD(1.542416667):w=ATN((COS(i3-k0)*SIN(S1))/(COS(Y1)*COS(S1)+SIN(Y1)*SIN(S1)*SIN(i3-k0))):w+=ATN((SIN(O0)*COS(k0))/(SIN(O0)*SIN(Y1)*SIN(k0)-COS(O0)*COS(Y1))):=w
901DEFPROCg1:SYS46,317,L%,"fullmoon",0TOz%,o%,D0%,F0%:A0%=TRUE:GCOL0:RECTANGLEFILL0,0,30,30:IFH1>0.03THEN
902GCOL15:MOVE14,14:MOVE15+16*COS(X0),15+16*SIN(X0):PLOT181,15+16*COS(X0+PI),15+16*SIN(X0+PI):GCOL15:IFH1<0.5:GCOL0
903ELLIPSEFILL15,15,16,15*(0.5-H1)/0.5,X0
904ENDIF:SYS46,z%,o%,D0%,F0%:A0%=FALSE:SYS46,316,L%,"moon",0TOz%,o%,D0%,F0%:A0%=TRUE:GCOL6:RECTANGLEFILL0,0,30,30:IFH1>0.03THEN
905MOVE0,0:SYS46,284,L%,"fullmoon",,,8
906ENDIF:SYS46,z%,o%,D0%,F0%:A0%=FALSE:IFb3%:PROCC0
907ENDPROC
908DEFPROCC0:LOCAL`1%,A2%,V1%,P2%:SYS46,317,L%,"big_moon",0TOz%,o%,D0%,F0%:A0%=TRUE:GCOL0:RECTANGLEFILL0,0,128,128:GCOL15:MOVE62,62:IFX0>PITHEN
909MOVE62,0:PLOT181,62,128
910ELSE:MOVE62,128:PLOT181,62,0
911ENDIF:IFH1<0.5:GCOL0
912MOVE62,62:MOVE62+120*(0.5-H1),62:PLOT205,62,0:SYS46,z%,o%,D0%,F0%:A0%=FALSE:SYS46,316,L%,"new_moon",0TOz%,o%,D0%,F0%:A0%=TRUE:GCOL7:RECTANGLEFILL0,0,128,200:ORIGIN0,72:GCOL6:MOVE62,62:PLOT153,60,0:MOVE0,0:SYS46,284,L%,"big_moon",,,8:ORIGIN0,0:GCOL2:MOVE62,34:PLOT153,16,0:MOVE62-30*SIN(R2),34+30*COS(R2)
913PLOT1,60*SIN(R2),-60*COS(R2):SYS46,z%,o%,D0%,F0%:A0%=FALSE:H%!0=Q1%:H%!4=1:SYS&400ce,,H%:`1%=H%!8:A2%=H%!12:V1%=H%!16:P2%=H%!20:SYS&400d1,Q1%,`1%,A2%,V1%,P2%:PROCA(Q1%,3,STR$(INT(0.5+H1*100))+"%"):PROCA(Q1%,5,STR$(INTz0)+" days "):PROCR1:PROCA(Q1%,7,FNS(F4)):PROCA(Q1%,9,FNS(i2)):ENDPROC
914DEFPROCR1:LOCALj:j=-1:R0=12+V0%:IFP0%R0+=1
915PROCR:i2=Z0:R0=FNJ(c0,j):D=R0+V0%:IFP0%:D+=1
916IFD>24:j-=1
917IFD<24j+=1
918PROCR:j=-1:R0=FNJ(c0,j):D=R0+V0%:IFP0%:D+=1
919IFD>24:j-=1
920IFD<24j+=1
921PROCR:j=-1:R0=FNJ(c0,j):D=R0+V0%:IFP0%:D+=1
922IFD>24:j-=1
923IFD<24j+=1
924PROCR:j=-1:F4=FNL(c0):R0=FNJ(i2,j):D=R0+V0%:IFP0%:D+=1
925IFD>24:j-=1
926IFD<24j+=1
927PROCR:j=-1:R0=FNJ(Z0,j):D=R0+V0%:IFP0%:D+=1
928IFD>24:j-=1
929IFD<24j+=1
930PROCR:j=-1:R0=FNJ(Z0,j):D=R0+V0%:IFP0%:D+=1
931IFD>24:j-=1
932IFD<24j+=1
933PROCR:i2=FNL(Z0):ENDPROC
934DEFPROCR:LOCALd2,k3,L3:D2=FNU(f+j):PROCD0(f+j,R0,d2,k3,L3):P1=2.7249E-1*SIN(L3):v2=P1+9.8902E-3-L3:d2=d2+RAD(D2):PROCN(d2,k3,O0):PROCu(d2,k3,c0,Z0,o0,y0,v2):ENDPROC
935DEFPROCj:M0=0:m0=0:V3=0:O0=FNZ(f):PROCh(f,k,M0,V3):D2=FNU(f):s4=FNP(f):M0=RAD(DEG(M0)+D2-5.69E-3):PROCN(M0,m0,O0):m=M0+PI:IFm>2*PI:m-=(2*PI)
936i0=-m0:M0=240*DEG(M0):D%(0)=M0:m0=3600*DEG(m0):H%(0)=m0:F$(0)=LEFT$(STR$(V3),8)+" AU":I0=0:L0=0:X1=0:PROCD0(f,k,I0,L0,X1):H1=FNd:I0=RAD(DEG(I0)+D2):PROCN(I0,L0,O0):B=DEG(I0)/15:PROCV(B,L0,A0):B=RAD(B*15):PROCn(B,L0,q,G3,X1):B=DEG(B)/15:PROCV(B,L0,A0):I0=RAD(B*15):I0=240*DEG(I0):D%(10)=I0
937L0=3600*DEG(L0):H%(10)=L0:h4=6378.14/SIN(X1):X0=FNf:R2=FNi:K$="Moon angle ="+STR$(DEG(R2)):e0%=TRUE:PROCg1:F$(10)=STR$(INT(h4))+" Km":C$(10)="Moon (Phase = "+STR$(INT(H1*1000))+") Limb="+STR$(DEGX0):IFG3%OR(G0%ANDI2%)OR(I0%ANDm1%)THEN
938m=DEG(m)/15:PROCV(m,i0,A0):m=RAD(m*15):PROCn(m,i0,q,G3,X1):m=DEG(m)/15:PROCV(m,i0,A0):m=RAD(m*15):m=240*DEG(m):D%(11)=m:i0=3600*DEG(i0):H%(11)=i0
939ENDIF:PROCX0(f,k):FORW%=1TO7:A1%=FALSE:CASEW%OF
940WHEN1:IF(G0%ANDQ2%)OR(I0%ANDJ2%):A1%=TRUE
941WHEN2:IF(G0%ANDp1%)OR(I0%ANDl1%):A1%=TRUE
942WHEN3:IF(G0%ANDB2%)OR(I0%ANDk1%):A1%=TRUE
943WHEN4:IF(G0%ANDC2%)OR(I0%ANDT2%):A1%=TRUE
944WHEN5:IF(G0%ANDO2%)OR(I0%ANDF2%):A1%=TRUE
945WHEN6:IF(G0%ANDH2%)OR(I0%ANDL2%):A1%=TRUE
946WHEN7:IF(G0%ANDq1%)OR(I0%ANDN2%):A1%=TRUE
947ENDCASE:IFG3%:A1%=TRUE
948IFA1%THEN
949PROCg0(f,k,W%):l+=RAD(D2):D=T1+PI-l:M=COS(D):w=SIN(D):l-=(9.9387E-5*M/COS(f0)):f0-=(9.9387E-5*w*SIN(f0)):B=l:C=f0:PROCN(B,C,O0):B=240*DEG(B):C=3600*DEG(C):CASEW%OF
950WHEN1:C2=B:m1=C:D%(1)=B:H%(1)=C:F$(1)=LEFT$(STR$(x0),7)+" AU"
951WHEN2:P2=B:M2=C:D%(2)=B:H%(2)=C:F$(2)=LEFT$(STR$(x0),7)+" AU"
952WHEN3:F2=B:I2=C:D%(4)=B:H%(4)=C:F$(4)=LEFT$(STR$(x0),7)+" AU"
953WHEN4:J2=B:H2=C:D%(5)=B:H%(5)=C:F$(5)=LEFT$(STR$(x0),7)+" AU"
954WHEN5:A2=B:L2=C:D%(6)=B:H%(6)=C:F$(6)=LEFT$(STR$(x0),7)+" AU"
955WHEN6:v1=B:S2=C:D%(7)=B:H%(7)=C:F$(7)=LEFT$(STR$(x0),7)+" AU"
956WHEN7:r1=B:K2=C:D%(8)=B:H%(8)=C:F$(8)=LEFT$(STR$(x0),7)+" AU"
957ENDCASE
958ENDIF:NEXT:IFG3%OR(G0%ANDS2%)OR(I0%ANDM2%)THEN
959PROCO0:z1=B:j1=C:D%(9)=B:H%(9)=C:F$(9)=LEFT$(STR$(x0),7)+" AU"
960ENDIF:FORd%=0TO2:k%=d%*20:$(S3%+k%)=F$(d%)+CHR$(13):!(B4%+(d%*4))=S3%+k%:NEXT:SYS79,3,(0ORB4%),5,,S3%,20:FORd%=0TO2:X%(2-d%)=(!(B4%+(d%*4))-S3%)/20:NEXT:G3%=FALSE:ENDPROC
961DEFPROCy0(L$):LOCALJ0%:T%=OPENIN(L$):WHILENOTEOF#T%:B$=GET$#T%:CASELEFT$(B$,4)OF
962WHEN"Plan":k%=FNF(B$):J0%=0:CASEB$OF
963WHEN"Mercury":J0%=1
964WHEN"Venus":J0%=2
965WHEN"Mars":J0%=3
966WHEN"Jupiter":J0%=4
967WHEN"Saturn":J0%=5
968WHEN"Uranus":J0%=6
969WHEN"Neptune":J0%=7
970WHEN"Pluto":J0%=8
971ENDCASE:N$(J0%)=B$
972WHEN"Mean":FORF%=0TO3:G(J0%,F%)=FNF(B$):NEXT
973WHEN"Peri":FORF%=0TO3:I(J0%,F%)=FNF(B$):NEXT
974WHEN"Ecce":FORF%=0TO3:K(J0%,F%)=FNF(B$):NEXT
975WHEN"Incl":FORF%=0TO3:H(J0%,F%)=FNF(B$):NEXT
976WHEN"Asce":FORF%=0TO3:J(J0%,F%)=FNF(B$):NEXT
977WHEN"Semi":W(J0%)=FNF(B$)
978WHEN"Angu":T(J0%)=FNF(B$)
979WHEN"Magn":V(J0%)=FNF(B$)
980ENDCASE:ENDWHILE:SYS&2000d,0,T%:T%=0:ENDPROC
981DEFFNF(RETURNB$):B$=MID$(B$,INSTR(B$,":")+1):=VALB$
982DEFPROCk0(L$):LOCALJ0%:T%=OPENIN(L$):c1%=0:WHILENOTEOF#T%ANDc1%<=z3%:B$=GET$#T%:CASELEFT$(B$,4)OF
983WHEN"Loc=":B$(c1%)=MID$(B$,5)
984WHEN"Lat=":Q(c1%)=VAL(MID$(B$,5))
985WHEN"Lon=":R(c1%)=VAL(MID$(B$,5))
986WHEN"Tim=":Q%(c1%)=VAL(MID$(B$,5)):IFINSTR(B$,"DS"):Q%(c1%)+=1000
987c1%+=1
988ENDCASE:ENDWHILE:SYS&2000d,0,T%:T%=0:DIMP3%28+24*11:m%=P3%:PROCq(m%,"Locations",240):FORF%=0TOz3%:PROCl(B$(F%)):NEXT:PROCd(m%):q=Q(0):D0=R(0):V0%=Q%(0)MOD1000:IFQ%(0)>999:P0%=TRUE:ELSEP0%=FALSE
989X1%=P0%:ENDPROC
990DEFPROCa(C3%,k4%):PROCA(X0%,2,STR$(Q(C3%))):PROCA(X0%,6,STR$(R(C3%))):PROCA(X0%,10,STR$(Q%(C3%)MOD1000)):PROCA(X0%,17,B$(C3%)):IFQ%(C3%)>999:X1%=TRUE:ELSEX1%=FALSE
991PROCB(X0%,12,X1%):PROCH(X0%,13,k4%):ENDPROC
992DEFPROCX0(f,k):A=(f/36525)+(k/8.766E5):FORW%=1TO8:Y3=G(W%,1)*A:M=360*(Y3-INT(Y3)):w=G(W%,0)+M+(G(W%,3)*A+G(W%,2))*A*A:WHILEw>360:w-=360:ENDWHILE:WHILEw<0:w+=360:ENDWHILE:B(W%,1)=w:B(W%,2)=(G(W%,1)*9.856263E-3)+(G(W%,2)+G(W%,3))/36525
993B(W%,3)=((I(W%,3)*A*I(W%,2))*A+I(W%,1))*A+I(W%,0):B(W%,4)=((K(W%,3)*A*K(W%,2))*A+K(W%,1))*A+K(W%,0):B(W%,5)=((H(W%,3)*A*H(W%,2))*A+H(W%,1))*A+H(W%,0):B(W%,6)=((J(W%,3)*A*J(W%,2))*A+J(W%,1))*A+J(W%,0):B(W%,7)=W(W%):B(W%,8)=T(W%):B(W%,9)=V(W%):NEXT:ENDPROC
994DEFPROCg0(f,k,J0%):b0=J0%:N2=0:C1=0:q1=0:PROCh(f,k,C1,q1):H=N1:F0=q1:T1=C1+PI:FORR1=1TO2:FORB2=1TO8:A(B2)=RAD(B(B2,1)-B(B2,3)-N2*B(B2,2)):NEXTB2:e=0:_=0:K=0:P=0:A1=0:i=0:T0=0:CASEb0OF
995WHEN1:PROCl1
996WHEN2:PROCM0
997WHEN3:PROCA1
998WHEN4:PROCX:PROCo:PROCq0
999WHEN5:PROCX:PROCo:PROCe0
1000WHEN6:PROCX:PROCp:PROCp1
1001WHEN7:PROCX:PROCp:PROCY0
1002OTHERWISEb0=0
1003ENDCASE:e0=B(b0,4)+P:N1=A(b0)+A1:PROCb(N1,e0):P0=(B(b0,7)+i)*(1-e0*e0)/(1+e0*COS(O2)):t1=DEG(O2)+B(b0,3)+DEG(K-A1):t1=RAD(t1):u0=RAD(B(b0,6)):G2=t1-u0:D1=SIN(G2):t0=COS(G2):h1=RAD(B(b0,5)):P0=P0+_:K1=D1*SIN(h1):d0=D1*COS(h1):s1=ASN(K1)+T0:K1=SIN(s1):K0=ATN(d0/t0)+u0+RAD(e):IFt0<0:K0+=PI
1004IFK0>X:K0-=X
1005Y0=COS(s1):w0=P0*Y0:V1=K0-T1:v0=F0*F0+P0*P0-2*F0*P0*Y0*COS(V1):v0=SQR(v0):N2=v0*5.775518E-3:IFR1=1:y3=K0:x0=v0:B4=s1:Y4=P0
1006NEXTR1:g0=SIN(V1):G0=COS(V1):IFb0>2THEN
1007l=ATN(F0*g0/(w0-F0*G0))+K0
1008ELSE:l=ATN(-1*w0*g0/(F0-w0*G0))+T1+PI
1009ENDIF:WHILEl<0:l+=X:ENDWHILE:WHILEl>X:l-=X:ENDWHILE:f0=ATN(w0*K1*SIN(l-K0)/(Y0*F0*g0)):ENDPROC
1010DEFPROCl1:e=2.04E-3*COS(5*A(2)-2*A(1)+2.1328E-1):e+=1.03E-3*COS(2*A(2)-A(1)-2.8046):e+=9.1E-4*COS(2*A(4)-A(1)-6.4582E-1):e+=7.8E-4*COS(5*A(2)-3*A(1)+1.7692E-1):_=7.525E-6*COS(2*A(4)-A(1)+9.25251E-1):_+=6.802E-6*COS(5*A(2)-3*A(1)-4.53642)
1011_+=5.457E-6*COS(2*A(2)-2*A(1)-1.24246):_+=3.569E-6*COS(5*A(2)-A(1)-1.35699):ENDPROC
1012DEFPROCM0:K=7.7E-4*SIN(4.1406+A*2.6227):K=RAD(K):A1=K:e=3.13E-3*COS(2*H-2*A(2)-2.587):e+=1.98E-3*COS(3*H-3*A(2)+4.4768E-2):e+=1.36E-3*COS(H-A(2)-2.0788):e+=9.6E-4*COS(3*H-2*A(2)-2.3721):e+=8.2E-4*COS(A(4)-A(2)-3.6318):_=2.2501E-5*COS(2*H-2*A(2)-1.01592)
1013_+=1.9045E-5*COS(3*H-3*A(2)+1.61577):_+=6.887E-6*COS(A(4)-A(2)-2.06106):_+=5.172E-6*COS(H-A(2)-5.08065E-1):_+=3.62E-6*COS(5*H-4*A(2)-1.81877):_+=3.283E-6*COS(4*H-4*A(2)+1.10851):_+=3.074E-6*COS(2*A(4)-2*A(2)-9.62846E-1):ENDPROC
1014DEFPROCA1:D=3*A(4)-8*A(3)+4*H:o4=SIN(D):j2=COS(D):K=-(1.133E-2*o4+9.33E-3*j2):K=RAD(K):A1=K:e=7.05E-3*COS(A(4)-A(3)-8.5448E-1):e+=6.07E-3*COS(2*A(4)-A(3)-3.2873):e+=4.45E-3*COS(2*A(4)-2*A(3)-3.3492):e+=3.88E-3*COS(H-2*A(3)+3.5771E-1):e+=2.38E-3*COS(H-A(3)+6.1256E-1)
1015e+=2.04E-3*COS(2*H-3*A(3)+2.7688):e+=1.77E-3*COS(3*A(3)-A(2)-1.0053):e+=1.36E-3*COS(2*H-4*A(3)+2.6894):e+=1.04E-3*COS(A(4)+3.0749E-1):_=5.3227E-5*COS(A(4)-A(3)+7.17864E-1):_+=5.0989E-5*COS(2*A(4)-2*A(3)-1.77997):_+=3.8278E-5*COS(2*A(4)-A(3)-1.71617)
1016_+=1.5996E-5*COS(H-A(3)-9.69618E-1):_+=1.4764E-5*COS(2*H-3*A(3)+1.19768):_+=8.966E-6*COS(A(4)-2*A(3)+7.61225E-1):_+=7.914E-6*COS(3*A(4)-2*A(3)-2.43887):_+=7.004E-6*COS(2*A(4)-3*A(3)-1.79573):_+=6.62E-6*COS(H-2*A(3)+1.97575):_+=4.93E-6*COS(3*A(4)-3*A(3)-1.33069)
1017_+=4.693E-6*COS(3*H-5*A(3)+3.32665):_+=4.571E-6*COS(2*H-4*A(3)+4.27086):_+=4.409E-6*COS(3*A(4)-A(3)-2.02158):ENDPROC
1018DEFPROCX:I=A/5+0.1:F1=4.14473+5.29691E1*A:F1=F1-INT(F1/(2*PI))*2*PI:z=4.641118+2.132991E1*A:z=z-INT(z/(2*PI))*2*PI:t=4.250177+7.478172*A:t=t-INT(t/(2*PI))*2*PI:g2=5*z-2*F1:Q3=2*F1-6*z+3*t:ENDPROC
1019DEFPROCo:n0=z-F1:S=SIN(z):Q=COS(z):`=SIN(2*z):Y=COS(2*z):Q1=SIN(g2):G1=COS(g2):B3=SIN(2*g2):X3=SIN(Q3):d=SIN(n0):b=COS(n0):h=SIN(2*n0):c=COS(2*n0):C0=SIN(3*n0):r=COS(3*n0):`1=SIN(4*n0):f1=COS(4*n0):u2=COS(5*n0):ENDPROC
1020DEFPROCq0:K=(3.31364E-1-(1.0281E-2+4.692E-3*I)*I)*Q1:K+=(3.228E-3-(6.4436E-2-2.075E-3*I)*I)*G1:K=K-(3.083E-3+(2.75E-4-4.89E-4*I)*I)*B3:K+=2.472E-3*X3+1.3619E-2*d+1.8472E-2*h:K+=6.717E-3*C0+2.775E-3*`1+6.417E-3*h*S
1021K+=(7.275E-3-1.253E-3*I)*d*S+2.439E-3*C0*S:K=K-(3.5681E-2+1.208E-3*I)*d*Q-3.767E-3*c*S:K=K-(3.3839E-2+1.125E-3*I)*b*S-4.261E-3*h*Q:K+=(1.161E-3*I-6.333E-3)*b*Q+2.178E-3*Q:K=K-6.675E-3*c*Q-2.664E-3*r*Q-2.572E-3*d*`
1022K=K-3.567E-3*h*`+2.094E-3*b*Y+3.342E-3*c*Y:K=RAD(K):P=(3606+(130-43*I)*I)*Q1+(1289-580*I)*G1:P=P-6764*d*S-1110*h*S-224*C0*S-204*S:P+=(1284+116*I)*b*S+188*c*S:P+=(1460+130*I)*d*Q+224*h*Q-817*Q:P+=6074*Q*b+992*c*Q+508*r*Q+230*f1*Q
1023P+=108*u2*Q-(956+73*I)*d*`+448*h*`:P+=137*C0*`+(108*I-997)*b*`+480*c*`:P+=148*r*`+(99*I-956)*d*Y+490*h*Y:P+=158*C0*Y+179*Y+(1024+75*I)*b*Y:P=P-437*c*Y-132*r*Y:P=P*1E-7:W=(7.192E-3-3.147E-3*I)*Q1-4.344E-3*S:W+=(I*(1.97E-4*I-6.75E-4)-2.0428E-2)*G1
1024W+=3.4036E-2*b*S+(7.269E-3+6.72E-4*I)*d*S:W+=5.614E-3*c*S+2.964E-3*r*S+3.7761E-2*d*Q:W+=6.158E-3*h*Q-6.603E-3*b*Q-5.356E-3*d*`:W+=2.722E-3*h*`+4.483E-3*b*`:W=W-2.642E-3*c*`+4.403E-3*d*Y:W=W-2.536E-3*h*Y+5.547E-3*b*Y-2.689E-3*c*Y:A1=K-(RAD(W)/B(b0,4))
1025i=205*b-263*G1+693*c+312*r+147*f1+299*d*S:i+=181*c*S+204*h*Q+111*C0*Q-337*b*Q:i=i-111*c*Q:i=i*1E-6:ENDPROC
1026DEFPROCe0:Z2=SIN(3*z):a2=COS(3*z):T4=SIN(4*z):M4=COS(4*z):R4=COS(2*g2):S4=SIN(5*n0):H0=t-z:P4=SIN(2*H0):K4=COS(2*H0):r2=SIN(3*H0):s2=COS(3*H0):K=7.581E-3*B3-7.986E-3*X3-1.48811E-1*d:K=K-(8.14181E-1-(1.815E-2-1.6714E-2*I)*I)*Q1:K=K-(1.0497E-2-(1.60906E-1-4.1E-3*I)*I)*G1
1027K=K-1.5208E-2*C0-6.339E-3*`1-6.244E-3*S:K=K-1.65E-2*h*S-4.0786E-2*h:K+=(8.931E-3+2.728E-3*I)*d*S-5.775E-3*C0*S:K+=(8.1344E-2+3.206E-3*I)*b*S+1.5019E-2*c*S:K+=(8.5581E-2+2.494E-3*I)*d*Q+1.4394E-2*c*Q:K+=(2.5328E-2-3.117E-3*I)*b*Q+6.319E-3*r*Q
1028K+=6.369E-3*d*`+9.156E-3*h*`+7.525E-3*r2*`:K=K-5.236E-3*b*Y-7.736E-3*c*Y-7.528E-3*s2*Y:K=RAD(K):P=(-7927+(2548+91*I)*I)*Q1:P+=(13381+(1226-253*I)*I)*G1+(248-121*I)*B3:P=P-(305+91*I)*R4+412*h+12415*S:P+=(390-617*I)*d*S+(165-204*I)*h*S
1029P+=26599*b*S-4687*c*S-1870*r*S-821*f1*S:P=P-377*u2*S+497*K4*S+(163-611*I)*Q:P=P-12696*d*Q-4200*h*Q-1503*C0*Q-619*`1*Q:P=P-268*S4*Q-(282+1306*I)*b*Q:P+=(-86+230*I)*c*Q+461*P4*Q-350*`:P+=(2211-286*I)*d*`-2208*h*`-568*C0*`:P=P-346*`1*`-(2780+222*I)*b*`
1030P+=(2022+263*I)*c*`+248*r*`+242*r2*`:P+=467*s2*`-490*Y-(2842+279*I)*d*Y:P+=(128+226*I)*h*Y+224*C0*Y:P+=(-1594+282*I)*b*Y+(2162-207*I)*c*Y:P+=561*r*Y+343*f1*Y+469*r2*Y-242*s2*Y:P=P-205*d*Z2+262*C0*Z2+208*b*a2-271*r*a2:P=P-382*r*T4-376*C0*M4:P=P*1E-7
1031W=(7.7108E-2+(7.186E-3-1.533E-3*I)*I)*Q1:W=W-7.075E-3*d:W+=(4.5803E-2-(1.4766E-2+5.36E-4*I)*I)*G1:W=W-7.2586E-2*Q-7.5825E-2*d*S-2.4839E-2*h*S:W=W-8.631E-3*C0*S-1.50383E-1*b*Q:W+=2.6897E-2*c*Q+1.0053E-2*r*Q
1032W=W-(1.3597E-2+1.719E-3*I)*d*`+1.1981E-2*h*Y:W=W-(7.742E-3-1.517E-3*I)*b*`:W+=(1.3586E-2-1.375E-3*I)*c*`:W=W-(1.3667E-2-1.239E-3*I)*d*Y:W+=(1.4861E-2+1.136E-3*I)*b*Y:W=W-(1.3064E-2+1.628E-3*I)*c*Y:A1=K-(RAD(W)/B(b0,4))
1033i=572*Q1-1590*h*Q+2933*G1-647*C0*Q:i+=33629*b-344*`1*Q-3081*c+2885*b*Q:i=i-1423*r+(2172+102*I)*c*Q-671*f1:i+=296*r*Q-320*u2-267*h*`+1098*S:i=i-778*b*`-2812*d*S+495*c*`+688*h*S:i+=250*r*`-393*C0*S-856*d*Y-228*`1*S:i+=441*h*Y+2138*b*S+296*c*Y-999*c*S
1034i+=211*r*Y-642*r*S-427*d*Z2-325*f1*S:i+=398*C0*Z2-890*Q+344*b*a2+2206*d*Q:i=i-427*r*a2:i=i*1E-6:T0=7.47E-4*b*S+1.069E-3*b*Q+2.108E-3*h*`:T0+=1.261E-3*c*`+1.236E-3*h*Y-2.075E-3*c*Y:T0=RAD(T0):ENDPROC
1035DEFPROCp:H0=1.46205+3.81337*A:H0=H0-INT(H0/(2*PI))*2*PI:V2=2*H0-t:O1=SIN(V2):B1=COS(V2):o1=SIN(2*V2):n1=COS(2*V2):ENDPROC
1036DEFPROCp1:u1=t-F1:j0=t-z:S0=H0-t:K=(8.64319E-1-1.583E-3*I)*O1:K+=(8.2222E-2-6.833E-3*I)*B1+3.6017E-2*o1:K=K-3.019E-3*n1+8.122E-3*SIN(Q3):K=RAD(K):W=1.20303E-1*O1+6.197E-3*o1:W+=(1.9472E-2-9.47E-4*I)*B1:A1=K-(RAD(W)/B(b0,4))
1037P=(163*I-3349)*O1+20981*B1+1311*n1:P=P*1E-7:i=-3.825E-3*B1:e=(-3.8581E-2+(2.031E-3-1.91E-3*I)*I)*COS(t+j0):e+=(1.0122E-2-9.88E-4*I)*SIN(t+j0):D=(3.4964E-2-(1.038E-3-8.68E-4*I)*I)*COS(2*t+j0):e+=D+5.594E-3*SIN(t+3*S0)-1.4808E-2*SIN(u1)
1038e=e-5.794E-3*SIN(j0)+2.347E-3*COS(j0):e+=9.872E-3*SIN(S0)+8.803E-3*SIN(2*S0):e=e-4.308E-3*SIN(3*S0):n2=SIN(j0):T2=COS(j0):p2=SIN(t):e2=COS(t):s3=SIN(2*t):p3=COS(2*t):T0=(4.58E-4*n2-6.42E-4*T2-5.17E-4*COS(4*S0))*p2:T0=T0-(3.47E-4*n2+8.53E-4*T2+5.17E-4*SIN(4*j0))*e2
1039T0+=4.03E-4*(COS(2*S0)*s3+SIN(2*S0)*p3):T0=RAD(T0):_=-25948+4985*COS(u1)-1230*e2+3354*T2:_+=904*COS(2*S0)+894*(COS(S0)-COS(3*S0)):_+=(5795*e2-1165*p2+1388*p3)*n2:_+=(1351*e2+5702*p2+1388*s3)*T2:_=_*1E-6:ENDPROC
1040DEFPROCY0:u1=H0-F1:j0=H0-z:S0=H0-t:K=(1.089E-3*I-5.89833E-1)*O1:K+=(4.658E-3*I-5.6094E-2)*B1-2.4286E-2*o1:K=RAD(K):W=2.4039E-2*O1-2.5303E-2*B1+6.206E-3*o1:W=W-5.992E-3*n1:A1=K-(RAD(W)/B(b0,4)):P=4389*O1+1129*o1+4262*B1+1089*n1:P=P*1E-7
1041i=8189*B1-817*O1+781*n1:i=i*1E-6:y2=SIN(2*S0):x2=COS(2*S0):g3=SIN(H0):b3=COS(H0):e=-9.556E-3*SIN(u1)-5.178E-3*SIN(j0):e+=2.572E-3*y2-2.972E-3*x2*g3-2.833E-3*y2*b3:T0=3.36E-4*x2*g3+3.64E-4*y2*b3:T0=RAD(T0):_=-40596+4992*COS(u1)+2755*COS(j0)
1042_+=2044*COS(S0)+1051*x2:_=_*1E-6:ENDPROC
1043DEFPROCO0:e4=0.2547023:X4=e4:z3=39.81227:I4=z3:J4=17.12143:h1=J4:p4=110.3817:u0=p4:c4=224.6287:I1=c4:G4=I1-u0:D4=G4:C4=0.003923546:P3=C4:L4=232.59497-I1:`4=L4:w3%=1995:u3%=7:W3=22:_0=RAD(h1):d0=RAD(D4):f3=RAD(u0):n=0:Q0=0:q2=0:M3%=2000:p2%=1:f2=1.5
1044PROCL1(_0,d0,f3,M3%,p2%,f2,n,Q0,q2,f%,V%,W1):h1=DEG(n):N4=DEG(Q0):u0=DEG(q2):I1=N4+u0:IFI1>360:I1-=360
1045IFI1<0:I1+=360
1046PROCH1(f,k,0,w3%,u3%,W3):D=T1+PI-l:M=COS(D):w=SIN(D):l-=(9.9387E-5*M/COS(f0)):f0-=(9.9387E-5*w*SIN(f0)):PROCN(l,f0,FNk(f)):PROCZ1(l,f0,f%,V%,W1,M3%,p2%,f2):B=240*DEG(l):C=3600*DEG(f0):ENDPROC
1047DEFPROCH1(f,k,R5%,w3%,u3%,W3):N2=0:b4=FNI(w3%,u3%,W3):C1=0:q1=0:PROCh(f,k,C1,q1):H=N1:F0=q1:T1=C1+PI:Z4=f-b4:FORR1=1TO2:e0=X4:N1=RAD(`4+P3*Z4-N2*P3):PROCb(N1,e0):P0=I4*(1-e0*e0)/(1+e0*COS(O2)):t1=O2+RAD(I1):G2=t1-RAD(u0):D1=SIN(G2):t0=COS(G2):U3=RAD(h1):K1=D1*SIN(U3):d0=D1*COS(U3)
1048s1=ASN(K1):K0=ATN(d0/t0)+RAD(u0):IFt0<0:K0+=PI
1049IFK0>X:K0-=X
1050Y0=COS(s1):w0=P0*Y0:V1=K0-T1:v0=F0*F0+P0*P0-2*F0*P0*Y0*COS(V1):v0=SQR(v0):N2=v0*5.775518E-3:IFR1=1:y3=K0:x0=v0:B4=ASN(K1):Y4=P0
1051NEXTR1:g0=SIN(V1):G0=COS(V1):IFP0<F0THEN
1052l=ATN(-1*w0*g0/(F0-w0*G0))+T1+PI
1053ELSE:l=ATN(F0*g0/(w0-F0*G0))+K0
1054ENDIF:WHILEl<0:l+=X:ENDWHILE:WHILEl>X:l-=X:ENDWHILE:f0=ATN(w0*K1*SIN(l-K0)/(Y0*F0*g0)):ENDPROC
1055DEFPROCL1(_0,d0,f3,M3%,p2%,f2,RETURNn,RETURNQ0,RETURNq2,f4%,j4%,x3):q0=FNI(M3%,p2%,f2)/365250:n4=FNI(f4%,j4%,x3)/365250:e1=n4-q0:g=e1*e1:l2=q0*q0:c3=e1*g:a1=(471.07-6.75*q0+0.57*l2)*e1+(0.57*q0-3.37)*g:a1=a1+0.05*c3:a1=RAD(a1/3600):p0=32869*q0+56*l2-(8694+55*q0)*e1+3*g
1056p0=RAD((p0/3600)+173.950833):P1=(50256.41+222.29*q0+0.26*l2)*e1:P1=P1+(111.15+0.26*q0)*g+0.1*c3:P1=p0+RAD(P1/3600):Y0=COS(_0):_2=SIN(_0):T3=f3-p0:D1=SIN(T3):t0=COS(T3):b2=SIN(a1):A3=COS(a1):D=_2*D1:M=A3*_2*t0-b2*Y0:z2=ATN(D/M):IFM<0:z2=z2+PI
1057M=_2*A3-Y0*b2*t0:D=-b2*D1:W2=ATN(D/M):IFM<0:W2=W2+PI
1058l0=d0+W2:WHILEl0<0:l0+=X:ENDWHILE:WHILEl0>X:l0-=X:ENDWHILE:Q0=l0:l0=z2+P1:WHILEl0<0:l0+=X:ENDWHILE:WHILEl0>X:l0-=X:ENDWHILE:q2=l0:IF_0<0.175:n=ASN(D/SIN(W2)):ENDPROC
1059Y0=(Y0*A3)+(_2*b2*t0):n=1.570796327-ASN(Y0):ENDPROC
1060DEFPROCZ1(RETURN_0,RETURNd0,M3%,p2%,f2,f4%,j4%,x3):l4=FNI(M3%,p2%,f2):A=(l4-36525)/36525:x1=RAD((((0.000005*A)+0.0000839)*A+0.6406161)*A):w1=RAD((((0.0000051*A)+0.0003041)*A+0.6406161)*A):p0=RAD((((-0.0000116*A)+0.0001185)*A+0.556753)*A):y=COS(x1):`0=COS(w1):h0=COS(p0)
1061p=SIN(x1):u=SIN(w1):N0=SIN(p0):D(0,0)=y*h0*`0-p*u:D(0,1)=-p*h0*`0-y*u:D(0,2)=-N0*`0:D(1,0)=y*h0*u+p*`0:D(1,1)=-p*h0*u+y*`0:D(1,2)=-N0*u:D(2,0)=y*N0:D(2,1)=-p*N0:D(2,2)=h0:H4=FNI(f4%,j4%,x3):A=(H4-36525)/36525:x1=RAD((((0.000005*A)+0.0000839)*A+0.6406161)*A)
1062w1=RAD((((0.0000051*A)+0.0003041)*A+0.6406161)*A):p0=RAD((((-0.0000116*A)+0.0001185)*A+0.556753)*A):y=COS(x1):`0=COS(w1):h0=COS(p0):p=SIN(x1):u=SIN(w1):N0=SIN(p0):F(0,0)=y*h0*`0-p*u:F(1,0)=-p*h0*`0-y*u:F(2,0)=-N0*`0:F(0,1)=y*h0*u+p*`0
1063F(1,1)=-p*h0*u+y*`0:F(2,1)=-N0*u:F(0,2)=y*N0:F(1,2)=-p*N0:F(2,2)=h0:Z3=COS(d0):C(0)=COS(_0)*Z3:C(1)=SIN(_0)*Z3:C(2)=SIN(d0):U()=C().F():C()=U().D():IFABS(C(0))<1E-20:C(0)=1E-20
1064n=ATN(C(1)/C(0)):Q0=ASN(C(2)):IFC(0)<0:n+=PI
1065WHILEn<0:n+=X:ENDWHILE:WHILEn>X:n-=X:ENDWHILE:_0=n:d0=Q0:ENDPROC
1066DEFPROCu(B,C,RETURNc0,RETURNZ0,RETURNo0,RETURNy0,v2):t3=COS(RADq):q3=SIN(RADq):U2=SIN(C):`2=COS(C):c2=SIN(v2):F3=COS(v2):w2=-(c2+(q3*U2))/(t3*`2):IFw2<-1:c0=0:Z0=-1:ENDPROC
1067IFw2>1:c0=-1:Z0=0:ENDPROC
1068j2=(U2+(c2*q3))/(F3*t3):j4=ACS(w2):o0=ACS(j2):M=DEG(j4)/15:D=DEG(B)/15:c0=24+D-M:Z0=D+M:y0=X-o0:WHILEc0<0:c0+=24:ENDWHILE:WHILEc0>24:c0-=24:ENDWHILE:WHILEZ0<0:Z0+=24:ENDWHILE:WHILEZ0>24:Z0-=24:ENDWHILE:WHILEo0<X:o0+=X:ENDWHILE:WHILEo0>X:o0-=X:ENDWHILE:o0=DEGo0:WHILEy0<X:y0+=X:ENDWHILE:WHILEy0>X:y0-=X:ENDWHILE:y0=DEGy0:ENDPROC
1069DEFPROCc1:PROC_:PROCi:ENDPROC
1070DEFPROC_:LOCALO$:J%?0=3:SYS7,14,J%:A$="%CE%YR%MN%DY%24%MI%SE"+CHR$0:SYS193,J%,H%,128,A$TOO$:f%=VAL(MID$(O$,1,4)):V%=VAL(MID$(O$,5,2)):i%=VAL(MID$(O$,7,2)):ENDPROC
1071DEFPROCi:LOCALO$:J%?0=3:SYS7,14,J%:A$="%CE%YR%MN%DY%24%MI%SE"+CHR$0:SYS193,J%,H%,128,A$TOO$:U0%=VAL(MID$(O$,9,2)):R0%=VAL(MID$(O$,11,2)):D1%=VAL(MID$(O$,13,2)):ENDPROC
1072DEFPROCP(Q3%,c0%,I%):IFf%MOD4=0A%(2)=29ELSEA%(2)=28
1073i%+=Q3%:IFi%>A%(V%)ANDV%=12:f%+=1
1074IFf%MOD4=0A%(2)=29ELSEA%(2)=28
1075IFi%>A%(V%):V%+=1:i%=1:IFV%>12:V%=1
1076IFi%<0ANDV%=1:f%-=1
1077IFi%<1:V%-=1:i%=31:IFV%<1:V%=12:f%-=1
1078IFf%MOD4=0A%(2)=29ELSEA%(2)=28
1079IFi%>A%(V%):i%=A%(V%)
1080V%+=c0%:IFV%>12:V%=1:f%+=1
1081IFf%MOD4=0A%(2)=29ELSEA%(2)=28
1082IFV%<1:V%=12:f%-=1
1083IFf%MOD4=0A%(2)=29ELSEA%(2)=28
1084IFi%>A%(V%):i%=A%(V%)
1085f%+=I%:IFf%MOD4=0A%(2)=29ELSEA%(2)=28
1086IFi%>A%(V%):i%=A%(V%)
1087ENDPROC
1088DEFPROCT(b0%,c0%,_0%):D1%+=_0%:R0%+=c0%:U0%+=b0%:IFD1%>59:D1%=0:R0%+=1
1089IFR0%>59:R0%=R0%MOD60:U0%+=1
1090IFU0%>23:U0%=U0%MOD24:PROCP(1,0,0)
1091IFD1%<0:D1%=59:R0%-=1
1092IFR0%<0:R0%=60+R0%:U0%-=1
1093IFU0%<0:U0%=U0%+24:PROCP(-1,0,0)
1094ENDPROC
1095DEFPROCM:PROCg:A0=FNr(f%,V%,i%,U0%,R0%,D1%):V0=RAD(15*FN_(A0)):K$=O$:e0%=TRUE:k=U0%+R0%/60+D1%/3600:IFP0%:k-=1
1096k-=V0%:f=FNI(f%,V%,i%):PROCj:ENDPROC
1097DEFPROCg:X$=RIGHT$(" "+STR$(i%),2)+"/"+RIGHT$(" "+STR$(V%),2)+"/"+STR$(f%):IFX$<>d$:PROCA(time%,1,X$):d$=X$
1098W$=RIGHT$(" "+STR$(U0%),2)+":"+RIGHT$("0"+STR$(R0%),2)+":"+RIGHT$("0"+STR$(D1%),2):IFW$<>`$:PROCA(time%,11,W$):`$=W$
1099ENDPROC
1100DEFFNr(f%,V%,i%,U0%,R0%,u4):A=FNN(f%,V%,i%)-2451545:A=A/36525:A=6.697374558+(2400.051336*A)+(25862E-9*A*A):WHILEA<0:A+=24:ENDWHILE:WHILEA>=24:A-=24:ENDWHILE:A=(U0%+R0%/60+u4/3600)*1.002737909+A:IFP0%:A-=1
1101A-=V0%:WHILEA<0:A+=24:ENDWHILE:WHILEA>=24:A-=24:ENDWHILE:=A
1102DEFFNq(f%,V%,i%,t4):A=FNN(f%,V%,i%)-2451545:A=A/36525:A=6.697374558+(2400.051336*A)+(25862E-9*A*A):WHILEA<0:A+=24:ENDWHILE:WHILEA>=24:A-=24:ENDWHILE:A=t4-A:WHILEA<0:A+=24:ENDWHILE:WHILEA>=24:A-=24:ENDWHILE:A=A*0.9972695663:IFP0%:A+=1
1103A+=V0%:WHILEA<0:A+=24:ENDWHILE:WHILEA>=24:A-=24:ENDWHILE:=A
1104DEFFNN(f%,V%,i%):IFV%>2:V%=V%-3:ELSEf%=f%-1:V%=V%+9
1105=1721103.5+INT(365.25*f%)+INT(30.6*V%+0.5)+i%
1106DEFFNI(f%,V%,W1):LOCALi%:I3%=V%:y0%=f%:M=0:IFy0%<1:y0%+=1
1107IFV%<3:I3%=V%+12:y0%-=1
1108i%=W1:IFy0%>1582OR(y0%=1582ANDI3%>10)OR(y0%=1582ANDI3%=10ANDi%>14)THEN
1109D=INT(y0%/100):M=2-D+INT(D/4)
1110ENDIF:IFy0%<0THEN
1111w=FNH((365.25*y0%)-0.75)-694025
1112ELSE:w=INT(365.25*y0%)-694025
1113ENDIF:Y2=INT(30.6001*(I3%+1)):=M+w+Y2+W1-0.5
1114DEFFNH(a4%):=INT(ABS(a4%))*SGN(a4%)
1115DEFPROCe:h3=f+0.5:R1%=FNH(h3):i1=h3-R1%+k/24+0.5/(3600*24):R1%+=2415020:WHILEi1>1:i1-=1:R1%+=1:ENDWHILE:WHILEi1<0:i1+=1:R1%-=1:ENDWHILE:IFR1%>2299160THEN
1116A%=FNH((R1%-1867216.25)/36524.25):B%=R1%+1+A%-FNH(A%/4)
1117ELSE:B%=R1%
1118ENDIF:C%=B%+1524:D%=FNH((C%-122.1)/365.25):E%=FNH(365.25*D%):G%=FNH((C%-E%)/30.6001):W1=C%-E%+i1-FNH(30.6001*G%):i%=W1:C3=W1-i%:V%=G%-1:IFG%>13.5:V%=G%-13
1119IFV%>2.5THEN
1120f%=D%-4716
1121ELSE:f%=D%-4715
1122ENDIF:U0%=C3*24:R0%=(C3*24-U0%)*60:D1%=((C3*24-U0%)*60-R0%)*60:ENDPROC
1123DEFFN_(A0):V0=A0+D0/15:IFV0>=24:V0-=24
1124IFV0<0:V0+=24
1125=V0
1126DEFFNQ(V0):LOCALA0:A0=V0-D0/15:IFA0>=24:A0-=24
1127IFA0<0:A0+=24
1128=A0
1129DEFFNL(V0):LOCALA0:A0=FNQ(V0):=FNq(f%,V%,i%,A0)
1130DEFFNJ(V0,f):LOCALA0:A0=FNQ(V0):A=FNN(f%,V%,i%)-2451545+f:A=A/36525:A=6.697374558+(2400.051336*A)+(25862E-9*A*A):WHILEA<0:A+=24:ENDWHILE:WHILEA>=24:A-=24:ENDWHILE:A=A0-A:WHILEA<0:A+=24:ENDWHILE:WHILEA>=24:A-=24:ENDWHILE:=A*0.9972695663
1131DEFFNS(Z):LOCALb0%,c0%:b0%=Z:c0%=0.5+(Z-b0%)*60:=STR$(b0%)+":"+RIGHT$("0"+STR$(c0%),2)
1132DEFPROCV(RETURNB,C,A0):_0=B:i4=A0:v3=D0:D=i4+(v3/15):WHILED>24:D-=24:ENDWHILE:WHILED<0:D+=24:ENDWHILE:W4=D:D=W4-_0:WHILED>24:D-=24:ENDWHILE:WHILED<0:D+=24:ENDWHILE:n=D:B=n:ENDPROC
1133DEFPROCn(RETURNg4,RETURNC,q,G3,X1):_0=g4:d0=C:l3=RAD(q):_3=G3:a4=X1:y=COS(l3):p=SIN(l3):K3=ATN(9.96647E-1*p/y):`0=COS(K3):u=SIN(K3):O4=(9.96647E-1*u)+(_3*p):m2=`0+(_3*y):t2=1/SIN(a4):a3=COS(_0):U2=SIN(d0):`2=COS(d0):D=(m2*SIN(_0))/((t2*`2)-(m2*a3)):V4=ATN(D):n=_0+V4:w3=COS(n):WHILEn>X:n-=X:ENDWHILE
1134WHILEn<0:n+=X:ENDWHILE:Q0=ATN(w3*(t2*U2-O4)/(t2*`2*a3-m2)):g4=n:C=Q0:ENDPROC
1135DEFPROCN(RETURNB,RETURNC,O0):u3=SIN(B):l1=u3*COS(O0)-TAN(C)*SIN(O0):M1=COS(B):B=ATN(l1/M1):C=COS(C)*SIN(O0)*u3+SIN(C)*COS(O0):C=ASN(C):IFM1<0:B+=PI:ELSEIFM1>=0ANDl1<0:B+=2*PI
1136IFB<0:B+=2*PI
1137ENDPROC
1138DEFFNO(V$):LOCALS1%,X3%:SYS8,17,V$TOX3%,,,,S1%:IFX3%<>1THENERROR203,"File '"+FNA(V$)+"' not found!"
1139=S1%
1140DEFFNn(L$,w4%,x4%):LOCALS4%:S4%=FNO(L$):IFS4%>x4%THEN
1141PROCw("File to load is too large!","Data loading error"):=0
1142ENDIF:SYS8,16,L$,w4%:=S4%
1143DEFFNC(Y%,c%):H%!0=Y%:H%!4=c%:SYS&400ce,,H%:IF(H%!24AND257)<>257THEN
1144ERROR202,"Icon "+STR$c%+" not indirected!":=""
1145ENDIF:=$H%!28
1146DEFPROCA(Y%,c%,U$):H%!0=Y%:H%!4=c%:SYS&400ce,,H%:IF(H%!24AND257)<>257THEN
1147ERROR202,"Icon "+STR$c%+" not indirected!":ENDPROC
1148ENDIF:U$=LEFT$(U$,H%!36-1):$H%!28=U$:H%!8=0:H%!12=0:SYS&400cd,,H%:ENDPROC
1149DEFPROCB(Y%,c%,O5%):H%!0=Y%:H%!4=c%:H%!12=1<<21:IFO5%H%!8=1<<21ELSEH%!8=0
1150SYS&400cd,,H%:ENDPROC
1151DEFPROCH(Y%,c%,k4%):H%!0=Y%:H%!4=c%:H%!12=1<<22:IFk4%H%!8=1<<22ELSEH%!8=0
1152SYS&400cd,,H%:ENDPROC
1153DEFFN`(j$,n$):LOCALU2%:IFn$="RIGHT"!H%=-1ELSE!H%=-2
1154H%!4=0:H%!8=0:H%!12=68:H%!16=68:H%!20=&1700202a:$(H%+24)=j$:SYS&400c2,,H%TOU2%:=U2%
1155DEFPROCz(Y%,o$,m$,l$,k$):PROCA(Y%,1,o$):PROCA(Y%,2,m$):PROCA(Y%,3,l$):PROCA(Y%,4,k$):ENDPROC
1156DEFFNe(S$):LOCALW4%:W4%=200:SYS&400c0,W4%,&4b534154,S$TOW4%,q4%:=q4%
1157DEFPROCl(C$):LOCALR2%,f2%,H$,q3%,M$,j1%,s1%:f2%=&7000021:q3%=-1:j1%=FALSE:M$=FNu(C$):s1%=LENM$:REPEAT:H$=FNX(C$):CASELEFT$(H$,2)OF
1158WHEN"sr":F%(d3%)=VAL(FND(H$))
1159WHEN"sd":N%(d3%)=VAL(FND(H$)):d3%+=1
1160WHEN"cr":S%(_3%)=VAL(FND(H$))
1161WHEN"cd":U%(_3%)=VAL(FND(H$)):_3%+=1
1162WHEN"co":Z%(L4%)=VAL(FND(H$)):L4%+=1
1163WHEN"ti":R2%=R2%OR1
1164WHEN"li":R2%=R2%OR2
1165WHEN"sh":f2%=f2%OR&400000
1166WHEN"su":q3%=FNY(FND(H$))
1167WHEN"wi":q3%=FNp(FND(H$))
1168WHEN"ic":f2%=FNj(FND(H$))
1169WHEN"wr":PROCa1(FND(H$))
1170ENDCASE:UNTILH$="":m%!0=R2%:m%!4=q3%:IFLEN(M$)>=12ORj1%THEN
1171m%!8=f2%OR256:PROCQ0(m%,j1%,s1%)
1172ELSE:m%!8=f2%:$(m%+12)=LEFT$(M$+CHR$(0),12)
1173ENDIF:m%+=24:ENDPROC
1174DEFFNM(C$):IFLEFT$(C$,9)="beginmenu"=TRUE
1175=FALSE
1176DEFFNt(`4%,B5%):LOCALe$:SYS&400d5,,`4%,B5%,J%+256TO,,,e$:=e$
1177DEFPROCh1(C0%,Y1%,N3%,b4%):DIM`4% (C0%*28)+(Y1%*24):DIMY%(C0%):DIMI%(C0%):DIM`%(N3%):DIM_%(N3%):ENDPROC
1178DEFPROCy:LOCALk%,C$:PTR#p%=0:REPEAT:k%=PTR#p%:C$=GET$#p%:UNTILFNM(C$)OREOF#p%:IFEOF#p%ERROR200,"No 'beginmenu' found in menu file"
1179PTR#p%=k%:ENDPROC
1180DEFPROCQ0(a0%,j1%,B1%):LOCALo1%:IFj1%THEN
1181DIMo1%B1%+1
1182ELSE:DIMo1%1+LENM$
1183ENDIF:a0%!12=o1%:$o1%=M$+CHR$(0):IFj1%THEN
1184`%(j1%)=o1%:_%(j1%)=B1%:o1%+=B1%+1:a0%!20=B1%+1
1185ELSE:o1%+=1+LENM$:a0%!20=1+LENM$
1186ENDIF:?o1%=0:a0%!16=o1%:ENDPROC
1187DEFFNg(a0%):LOCALM0%:M0%=1:a0%+=28:WHILE(!a0%AND128)=0:a0%+=24:M0%+=1:ENDWHILE:=M0%
1188DEFPROCx0(Y$):LOCALC0%,u2%,C$,m%,`4%:PROCX1(Y$):p%=OPENINY$:PROCS0:PROCy:C0%=0:u2%=FALSE:REPEAT:PROCK(N0%,9,75+5*C0%):C$=GET$#p%:IFFNM(C$)THEN
1189IFu2%ERROR200,"Bad menu file, no items in menu "+STR$(C0%)
1190IFC0%PROCd(m%)
1191C0%+=1:C$=GET$#p%:PROCq(m%,C$,Y%(C0%)):u2%=TRUE
1192ELSE:PROCl(C$):u2%=FALSE
1193ENDIF:UNTILEOF#p%:PROCd(m%):SYS&2000d,0,p%:p%=0:IFu2%ERROR200,"Bad menu file, no items in menu "+STR$(C0%)
1194ENDPROC
1195DEFPROCq(RETURNm%,S$,k2%):$m%=LEFT$(S$,12)+CHR$(0):m%?12=7:m%?13=2:m%?14=7:m%?15=0:m%!16=k2%:m%!20=44:m%!24=0:m%+=28:ENDPROC
1196DEFPROCd(m%):!(m%-24)=!(m%-24)OR128:ENDPROC
1197DEFFNa(a0%):LOCALY1%,Z4%,P4%:Y1%=1:P4%=a0%!20+a0%!24:a0%+=28:WHILE(!a0%AND128)=0:Y1%+=1:IF(!a0%AND2)Z4%+=1
1198a0%+=24:ENDWHILE:IF(!a0%AND2)Z4%+=1
1199=Y1%*P4%+Z4%*24
1200DEFFNj(F$):IFF$=""ERROR200,"Menu icon flag value missing!"
1201=EVAL(F$)
1202DEFFNX(RETURNJ$):LOCALk%:k%=INSTR(J$,","):IFk%:J$=MID$(J$,k%+1):=LEFT$(J$,INSTR(J$,",")-1)
1203=""
1204DEFFNu(J$):LOCALk%:k%=INSTR(J$,","):IFk%:=LEFT$(J$,k%-1)
1205=J$
1206DEFFNW(V2%):LOCALP$:P$=STR$(!V2%):V2%+=4:WHILE!V2%<>-1:P$+="."+STR$(!V2%):V2%+=4:ENDWHILE:=P$
1207DEFFNY(F$):IFVAL(F$)<1ORVAL(F$)>DIM(I%(),1)THEN
1208ERROR200,"Can't find menu "+F$+", as referred to in:- "+H$
1209ENDIF:IFVAL(F$)=C0%THEN
1210ERROR200,"An item in menu "+F$+" cannot have menu "+F$+" as a submenu!"
1211ENDIF:=I%(VAL(F$))
1212DEFFND(F$):F$=MID$(F$,INSTR(F$,"(")+1):=LEFT$(F$,INSTR(F$,")")-1)
1213DEFFNp(F$):LOCALU2%:LOCALERROR:ONERRORERROREXT0,"Menu file error. Window variable "+F$+" not found."
1214U2%=EVAL(F$):IFU2%<1THEN
1215SYS&2000d,0,p%:ERROR
1216ENDIF:=U2%
1217DEFPROCa1(F$):s1%=0:IFINSTR(F$,":")THEN
1218s1%=VAL(MID$(F$,INSTR(F$,":")+1)):IFLEN(M$)>s1%s1%=LENM$
1219ELSE:s1%=LENM$
1220ENDIF:R2%=R2%OR4:j1%=VAL(F$):ENDPROC
1221DEFPROCS0:LOCALY1%,C$,k2%:C0%=0:m%=`4%:PROCy:REPEAT:C$=GET$#p%:IFFNM(C$)THEN
1222I%(C0%+1)=`4%+(C0%*28)+(Y1%*24):C$=GET$#p%:C0%+=1:C$=LEFT$(C$,12):Y%(C0%)=12+16*LENC$
1223ELSE:Y1%+=1:IFINSTR(C$,",")THEN
1224k2%=12+16*LEN(LEFT$(C$,INSTR(C$,",")-1))
1225ELSE:k2%=12+16*LENC$
1226ENDIF:IFk2%>Y%(C0%)Y%(C0%)=k2%
1227ENDIF:UNTILEOF#p%:ENDPROC
1228DEFPROCX1(Y$):LOCALC0%,Y1%,N3%,b4%,C$:p%=OPENINY$:REPEAT:C$=GET$#p%:IFFNM(C$)THEN
1229C0%+=1:C$=GET$#p%
1230ELSE:IFINSTR(C$,",writ")N3%+=1
1231IFINSTR(C$,",wind")b4%+=1
1232Y1%+=1
1233ENDIF:UNTILEOF#p%:SYS&2000d,0,p%:p%=0:PROCh1(C0%,Y1%,N3%,b4%):ENDPROC
1234DEFPROCC(g3%,U4%,Z3%):LOCALV4%:IFg3%<1ORg3%>DIM(I%(),1)THEN
1235ERROR201,"Item tick error. Out of range menu number!"
1236ENDIF:IFU4%<0ORU4%>FNg(I%(g3%))THEN
1237ERROR201,"Item tick error. Out of range item number!"
1238ENDIF:V4%=I%(g3%)+28+(24*U4%):IFZ3%=TRUEZ3%=1ELSEZ3%=0
1239!V4%=(!V4%AND-2)ORZ3%:ENDPROC
1240DEFFNA(P$):WHILEINSTR(P$,"."):P$=MID$(P$,INSTR(P$,".")+1):ENDWHILE:=P$
1241DEFPROCw(b$,S$):b$=CHR$0+CHR$0+CHR$0+CHR$0+b$+CHR$0:SYS&400df,b$,18,S$:ENDPROC
1242DEFFNl(Z$):LOCALB1%:SYS&20023,Z$+CHR$(0),H%,-1TO,,B1%:IFB1%=0ERROREXT0,"System variable '"+Z$+"' not found!"
1243SYS&20023,Z$+CHR$(0),H%,255,,3TO,,B1%:?(H%+B1%)=13:=$H%
1244DEFPROCs0(L%,j$,F%,I%):SYS46,292,L%,j$,2,F%,I%:H%?0=1:H%?1=25:H%?2=255:H%?3=187:H%?4=187:SYS7,12,H%:H%?0=2:H%?2=85:H%?3=85:H%?4=85:SYS7,12,H%:*POINTER 2
1245ENDPROC
1246DEFPROCu0:*POINTER 1
1247ENDPROC
1248DEFFNo(V$):LOCALL%,S1%:S1%=FNO(V$)+16:DIML%S1%:L%!0=S1%:L%!8=16:SYS46,266,L%,V$:=L%
1249DEFFNG(V$,c$,RETURNI5%,P5%,L%):LOCALY%:SYS&400d9,,V$:Y%=FNc(c$,I5%,P5%,L%):SYS&400da:=Y%
1250DEFFNc(c$,RETURNV2%,L5%,L%):LOCALX3%,Y%:SYS&400db,,J%,V2%,L5%,-1,c$,0TO,,V2%,,,,X3%:IFX3%THEN
1251IFL%:J%!64=L%
1252SYS&400c1,,J%TOY%
1253ELSE:ERROREXT0,"Window "+c$+" not found in template file!":Y%=0
1254ENDIF:=Y%
1255DEFPROCr(Y%,F%,I%,A5%,z4%):LOCALb1%,H1%,W1%,o2%,M4%,y3%:!H%=Y%:SYS&400cc,,H%:b1%=H%!44+A5%:H1%=I%-I%MOD4:W1%=F%-F%MOD2:o2%=H%!56+z4%:M4%=H%!20+H%!12-H%!4:y3%=H%!24-H%!16+H%!8:IFH1%>y3%H1%=y3%
1256IFM4%>W1%W1%=M4%
1257H%!0=b1%:H%!4=H1%:H%!8=W1%:H%!12=o2%:SYS&400d7,Y%,H%:ENDPROC
1258DEFFNV(S$,d%,b0%):DIMK$(b0%-1):D2%=0:k3%=d%:d%=d%*16+8:b0%=b0%*32:y1%=FNb(S$,&ff000002,d%,b0%,100,d%,200,b0%):=y1%
1259DEFFNb(S$,O4%,Z0%,B0%,n4%,k2%,d4%,P4%):LOCALr4%,U2%:DIMr4% (1+LENS$):H%!0=n4%:H%!4=d4%:H%!8=n4%+k2%:H%!12=d4%+P4%:H%!16=0:H%!20=0:H%!24=-1:IFO4%=0O4%=&ff000012
1260H%!28=O4%:H%?32=7:H%?33=2:H%?34=7:H%?35=1:H%?36=3:H%?37=1:H%?38=12:H%?39=0:H%!40=0:H%!44=-B0%:H%!48=Z0%:H%!52=0:H%!56=281:H%!60=24576:H%!64=1:H%?68=0:H%?69=0:H%?70=0:H%?71=0:$r4%=S$:H%!72=r4%:H%!76=-1:H%!80=LEN(S$)+1:H%!84=0:SYS&400c1,,H%TOU2%:=U2%
1261DEFPROCQ(Y%,C5%):!H%=Y%:SYS&400cb,,H%:IFC5%:H%!28=-1
1262SYS&400c5,,H%:ENDPROC
1263DEFPROCO(f1%,U$):LOCALv0%,b1%,H1%,W1%,o2%,r1%,U3%,F%,I%,T1%:v0%=DIM(K$(),1):IFf1%>v0%THEN
1264ERROR204,"Out of range line number in 'PROCprint_line'!":ENDPROC
1265ENDIF:!H%=y1%:SYS&400cc,,H%:b1%=H%!44:H1%=H%!48:W1%=H%!52:o2%=H%!56:r1%=o2%-f1%*32:U3%=r1%-32:f1%=(f1%+D2%)MOD(v0%+1):K$(f1%)=LEFT$(U$,k3%):F%=H%!4-H%!20+4:I%=H%!16-H%!24+r1%-4:H%!0=y1%:H%!4=b1%:H%!8=U3%:H%!12=W1%:H%!16=r1%:SYS&400e6,7:SYS&400c9,,H%TOT1%:WHILET1%:CLS
1266MOVEF%,I%:PRINT;K$(f1%);:SYS&400ca,,H%TOT1%:ENDWHILE:ENDPROC
1267DEFPROCi0(U$):LOCALv0%,b1%,H1%,W1%,o2%,r1%,U3%,F%,I%,T1%:v0%=DIM(K$(),1):K$(D2%)=LEFT$(U$,k3%):b1%=0:H1%=-(1+v0%)*32:W1%=k3%*16+8:o2%=0:SYS&400eb,y1%,b1%,H1%,W1%,o2%,b1%,H1%+32:r1%=H1%+32:U3%=H1%:!H%=y1%:SYS&400cc,,H%:F%=H%!4-H%!20+4:I%=H%!16-H%!24+r1%-4:H%!0=y1%
1268H%!4=b1%:H%!8=U3%:H%!12=W1%:H%!16=r1%:SYS&400e6,7:SYS&400c9,,H%TOT1%:WHILET1%:CLS:MOVEF%,I%:PRINT;K$(D2%);:SYS&400ca,,H%TOT1%:ENDWHILE:D2%=(D2%+1)MOD(1+v0%):ENDPROC
1269DEFPROCo1(J%):LOCALv0%,N4%,i3%,F%,I%:v0%=DIM(K$(),1):N4%=-(J%!24+4-J%!16+J%!40)DIV32:i3%=-(J%!24+4-J%!16+J%!32)DIV32:IFi3%>v0%i3%=v0%
1270IFN4%<=v0%THEN
1271F%=J%!4-J%!20+4:I%=J%!40-(J%!24+4-J%!16+J%!40)MOD32:FORf1%=N4%TOi3%:MOVEF%,I%:I%-=32:PRINT;K$((f1%+D2%)MOD(v0%+1)):NEXT
1272ENDIF:ENDPROC
1273DEFPROCl0(!H%,H%!4,H%!8,H%!12,H%!16):LOCALT1%:SYS&400c9,,H%TOT1%:WHILET1%:SYS&400ca,,H%TOT1%:ENDWHILE:ENDPROC
1274DEFFNR(Y%,c%):LOCALF%:H%!0=Y%:SYS&400cb,,H%:F%=H%!4-H%!20:H%!4=c%:SYS&400ce,,H%:=F%+H%!16+2
1275DEFPROC`0(RETURNd%):LOCALF%,I%,`1%,V1%,A2%,P2%:PROCP0(F%,I%):!H%=d%:SYS&400cc,,H%:`1%=H%!4:V1%=H%!12:A2%=H%!8:P2%=H%!16:H%!4=(F%-V1%+`1%)DIV2:H%!12=H%!4+V1%-`1%:H%!8=(I%-P2%+A2%)DIV2:H%!16=H%!8+P2%-A2%:!Y3%=d%:SYS&400c3,,Y3%:SYS&400c1,,H%+4TOd%:ENDPROC
1276DEFPROCP0(RETURNF%,RETURNI%):LOCALn3%:H%!0=130:H%!4=131:H%!8=-1:SYS49,H%,H%+400:F%=H%!400+1:I%=H%!404+1:SYS53,-1,4TO,,n3%:F%=F%<<n3%:SYS53,-1,5TO,,n3%:I%=I%<<n3%:ENDPROC
1277DEFPROCK(Y%,c%,B1%):LOCAL`1%,A2%,V1%,P2%,l3%:H%!0=Y%:H%!4=c%:SYS&400ce,,H%:`1%=H%!8:A2%=H%!12:V1%=H%!16:P2%=H%!20:l3%=`1%+B1%:SYS&400c4,,H%:H%!4=Y%:H%!16=`1%+B1%:SYS&400c2,,H%+4:IFl3%<V1%SWAPl3%,V1%
1278PROCl0(Y%,V1%,A2%,l3%,P2%):ENDPROC
�>!runimageC
� A.P.Senior 1995
'a3%=�:�:�" at line ";�:ș&406c2:�
#ș&406c0:�J1:�P1:��J0(�,�$):�Z
�y4%=�e(T$):�V0:�A(N0%,7,""):�z0:�K(N0%,9,10):�A(N0%,7,"star data"):�T1:�t0:�A(N0%,7,"sprites"):�w0:�K(N0%,9,60):�d0:�A(N0%,7,"windows"):�_1:�F0:�A(N0%,7,"cross references"):�N0:�M:!J%=N0%:ș&400c6,,J%:�F0:��J0(�,�$)
ș&406c1:�U1:�Z
L��J1:�Q4%:Q4%=3072:�J%Q4%:�H%Q4%:�Y3%256:�_4%3072:w0%=_4%:J1%=_4%+3072:�
���z0:�P1%16:�j0%16:�h0%16:�g0%16:�N5%16:g0%!0=11:g0%!4=11:g0%!8=15:g0%!12=15:�V%(72):�T%(72):�M(360):�S(360):�N(360):�P(360):�S3%80:�B4%16:�X%(3):�L%(3):L%(0)=800:L%(1)=1200:L%(2)=2300:L%(3)=3750:�A$(24)
�A$(0)="":A$(1)="Alpha":A$(2)="Beta":A$(3)="Gamma":A$(4)="Delta":A$(5)="Epsilon":A$(6)="Zeta":A$(7)="Eta":A$(8)="Theta":A$(9)="Iota":A$(10)="Kappa":A$(11)="Lambda":A$(12)="Mu":A$(13)="Nu":A$(14)="Xi":A$(15)="Omicron":A$(16)="Pi":A$(17)="Rho"
�A$(18)="Sigma":A$(19)="Tau":A$(20)="Upsilon":A$(21)="Phi":A$(22)="Chi":A$(23)="Psi":A$(24)="Omega":�G$(12):G$(1)="January":G$(2)="February":G$(3)="March":G$(4)="April":G$(5)="May":G$(6)="June":G$(7)="July":G$(8)="August":G$(9)="September"
�G$(10)="October":G$(11)="November":G$(12)="December":�A%(12):A%(1)=31:A%(2)=28:A%(3)=31:A%(4)=30:A%(5)=31:A%(6)=30:A%(7)=31:A%(8)=31:A%(9)=30:A%(10)=31:A%(11)=30:A%(12)=31:�C$(11):C$(0)="G2 star":C$(1)="Terrestrial planet":C$(2)="Terrestrial planet"
�C$(3)="Terrestrial planet":C$(4)="Terrestrial planet":C$(5)="Planet (Gas giant)":C$(6)="Planet (Gas giant)":C$(7)="Planet (Gas giant)":C$(8)="Planet (Gas giant)":C$(9)="Planet (Captured asteroid)":C$(10)="Moon":C$(11)="Earth's shaddow":�D$(11)
�D$(0)="Sun":D$(1)="Mercury":D$(2)="Venus":D$(3)="Earth":D$(4)="Mars":D$(5)="Jupiter":D$(6)="Saturn":D$(7)="Uranus":D$(8)="Neptune":D$(9)="Pluto":D$(10)="Moon":D$(11)="Umbra/Penumbra":�D%(11):�H%(11):�F$(11):�I$(8):I$(1)="Open Cluster"
�I$(2)="Globular Cluster":I$(3)="Cluster with Nebula":I$(4)="Planetary Nebula":I$(5)="Diffuse Nebula":I$(6)="Galaxy":I$(7)="Supernova Remnant":I$(8)="Asterism of stars":�K%(110):�M%(110):�O%(110):�L$(30):z3%=10:�B$(10):�Q(10):�R(10):�Q%(10):�H$(96)
��M$(96):�C%(980):�B%(980):r%=0:�S%(96):�U%(96):_3%=0:�Z%(10):L4%=0:�F%(320):�N%(320):d3%=0:�J$(310):�J%(9100):�G%(9100):�L(9100):�O(9100):�R%(5000):�W%(5000):�P%(5000):�B(8,9):�A(8):�N$(8):�G(8,3):�I(8,3):�K(8,3):�H(8,3):�J(8,3):�W(8):�T(8):�V(8)
�D(2,2),C(2),U(2),F(2,2):�
���P1:g$="!Astronomy":T$="Sky_Guide":_$="An astronomical guide":a$="� Alan Senior 1996":f$="Version 0.16�, 7th May 1996":D$=�l("Obey$Dir"):J4%=0:p%=0:l4%=-2:Z1%=4:k0%=1:t4%=64:H5%=16:N1%=2:m4%=0:O3%=0:h3%=�:�
���T1:T%=0:A0%=�:z%=0:o%=0:D0%=0:F0%=0:X=2*�:h%=520:K2%=180:N%=1200:R3%=1:t1%=1:_%=0:`%=0:Z0%=1200:B0%=908:w2%=�(Z0%^2+B0%^2):�K(N0%,9,10):�Y0%=0�360:M(Y0%)=N%*�(�(Y0%+180)):S(Y0%)=N%*�(�(Y0%+180)):�:�K(N0%,9,20):�Y0%=0�360
sN(Y0%)=�(�(Y0%*360/288+180)):P(Y0%)=�(�(Y0%*360/288+180)):�:�K(N0%,9,20):�w2%>2*N%:r0%=90:�r0%=�(�(w2%/(2*N%)))
!v%=N%*�(�(r0%+10)):�v%<0:v%=0
�v%>N%/2:v%=N%/2
�S%=1:_2%=�:r2%=�:t0%=6:a%=5:M%=0:N=�(M%):P%=2*270:F1%=�:V=�(N):U=�(N):k%=�(�(Z0%/2/N%)):k%+=a%:r3%=-N%*�(�(k%)):g4%=-r3%:k%=�(�(B0%/2/N%)):k%+=2*t0%:i1%=-N%*�(�(k%)):b2%=-i1%:f3%=1:F1%=2:t3%=3:R4%=4:d0%=f3%:n2%=�:I2%=�:c2%=�:Q2%=�:p1%=�:B2%=�:C2%=�
�O2%=�:H2%=�:q1%=�:S2%=�:B3%=�:t2%=�:q2%=�:y%=�:G0%=�:G3%=�:v3%=0:L3%=0:n1%=0:a1%=0:W2%=0:X2%=0:e3%=�:e0%=�:u1%=�:x1%=�:g1%=�:e%=�:q%=�:y2%=�:m3%=�:I0%=�:z2%=�:U%=0:M1%=-1:v=0:s=0:G1%=0:C1%=0:a2%=0:`2%=0:H0%=�:b3%=�:z0=0:l%=1:e2%=�:K5%=�:i2%=�
�G2%=�:s0%=�:c3%=�:j%=�:n%=�:O%=0:m2%=0:x0%=�:s%=�:z1%=�:A3%=�:l2%=�:d2%=�:Y2%=�:J2%=�:l1%=�:k1%=�:T2%=�:F2%=�:L2%=�:N2%=�:M2%=�:m1%=�:u%=0:G3=30/6378140:q=52:D0=-2:X1%=�:i$="Home":p3%=0:T3%=0:P0%=�:V0%=0:v1%=�:x2%=�:�c1:d$="":`$=""
��N1(D$+".Data.StarData"):�K(N0%,9,30):�A(N0%,7,"constellations"):�j1(D$+".Data.StarNames"):�k1(D$+".Data.ConstGenit"):�Q1(D$+".Data.ConstNames"):�K(N0%,9,40):�I1(D$+".Data.ConstLines"):�a0(D$+".Data.Mess_Map"):�y0(D$+".Data.PlanetEl"):�K(N0%,9,50)
1�k0(D$+".Data.Locations"):v4%=0:s4%=0:G5%=0:�
��t0:F5%=�`(g$,"RIGHT"):�
���w0:L%=�o(D$+".Resources.Sprites"):ș&400ed,256,L%,"mag0",,,,j0%,P1%:ș&400ed,256,L%,"mag0",,,,h0%,P1%:ș&400ed,256,L%,"mag0",,,,g0%,N5%:g0%!0=g0%!0*11:g0%!4=g0%!4*11:g0%!8=g0%!8*15:g0%!12=g0%!12*15:�
���d0:info%=�G(D$+".Resources.Templates","info%",w0%,J1%,0):K%=�G(D$+".Resources.Templates","button_bar%",w0%,J1%,L%):X%=�G(D$+".Resources.Templates","objectinfo%",w0%,J1%,0):w%=�G(D$+".Resources.Templates","starwindow%",w0%,J1%,0)
�T0%=�G(D$+".Resources.Templates","equawindow%",w0%,J1%,0):time%=�G(D$+".Resources.Templates","time%",w0%,J1%,L%):X0%=�G(D$+".Resources.Templates","position%",w0%,J1%,L%):Q1%=�G(D$+".Resources.Templates","moonphase%",w0%,J1%,L%)
��A(K%,11,�((24-P%/30)�24)):�A(K%,13,�(M%)):�B(K%,0,G2%):�B(K%,2,e2%):�B(K%,3,i2%):�B(K%,17,s0%):�B(K%,5,n%):�B(K%,4,x0%):�B(K%,6,j%):�B(K%,7,�F1%):�B(K%,8,F1%):�B(K%,27+t1%,�):�H(K%,5,�H0%):�H(K%,6,�H0%):�H(K%,8,�):�A(K%,19,�K(h%)):�A(K%,24,"0")
�a(T3%,�):�
!-��_1:`3%=�V("Object information",40,20):�
" ��F0:�z(info%,T$,_$,a$,f$):�
#%��N0:�x0(D$+".Resources.menus"):�
$���V0:�Y4%:N0%=�G(D$+".Resources.Templates","runup",w0%,J1%,0):�`0(N0%):!H%=N0%:ș&400c5,,H%:ș&400c8,,H%�Y4%:ȕY4%:ș&400ca,,H%�Y4%:�:w0%=_4%:�
%)��U1:�:ș&400e1,m4%,J%,O3%�c4%:Ȏc4%�
&
�0:�O1
'
�1:�S1
(�2:h2%=!J%:�e1(h2%)
)�3:h2%=!J%:�c(h2%)
*
�4:�i1
+
�5:�q1
,
�6:�f0
-
�7:�r0
.
�8:�h0
/
�9:�C1
0 �10:�n0
1 �11:�f1
2 �12:�m0
3
�17:�v
4
�18:�v
5 �19:�b1
6�:�h3%:�Z:�
7 ��O1:ș66�O3%:O3%+=5:�v1%�
8
�I0%�G0%�
9k%=R0%:�i:�R0%<>k%�
: a2%=0:`2%=0:M1%=0:�_:�M:�D
;�
<�
= �:�m3%�
> �I0%�
?�S(�):�S(�):m3%=�
@�
A�:�z2%�n%�H0%�
B-M5%=U%:ș&400cf,,J%:i0%=J%!0:`0%=J%!4:�B0
C
�:�u%�
D"k+=u%*�(�C(time%,28)):�P0%k+=1
E3k+=V0%:f+=u%*�(�C(time%,29)):�e:�M:�I0%:�e%:�m1
F �G0%:�k
G�:�e0%:�i0(K$):e0%=�
H�
IT��S1:�I4%,H4%:ș&400c8,,J%�H4%:F%=J%!4-J%!20:I%=J%!16-J%!24:ȕH4%:I4%=!J%:ȎI4%�
J�`3%:�o1(J%)
K�w%:�Y1(F%,I%)
L�T0%:�V1(F%,I%)
M"�:!J%=I4%:ș&400ca,,J%�H4%:�:�
N��e1(Y%):ȎY%�
O�w%:�S(�):I0%=�
P�T0%:ș&400c5,,J%:G0%=�
QD�X%:ș&400c5,,J%:H0%=�:�B(K%,c%,H0%):�H(K%,5,�H0%):�H(K%,6,�H0%)
Rș&400c5,,J%
S�:�
T%��c(Y%):!J%=Y%:ș&400c6,,J%:ȎY%�
U�w%:I0%=�:�c(K%)
V7�X%:H0%=�:�B(K%,26,H0%):�H(K%,5,�H0%):�H(K%,6,�H0%)
W �time%:�u%>0:�B(time%,24,�)
X�u%<0:�B(time%,23,�)
Y�x2%�H(K%,37,�):x2%=�
Zu%=0
[�T0%:G0%=�
\�Q1%:b3%=�
]�:�
^��i1:�z2%:�u0:z2%=�
_�
`��q1:Y%=J%!0:ȎY%�
a(�w%,T0%:�s0(L%,"star_ptr",6,3):z2%=�
b�:�
c;��f0:i0%=J%!0:`0%=J%!4:U1%=J%!8:Y%=J%!12:c%=J%!16:ȎY%�
d �l4%:�_0
e �w%:�R0
f$�info%:�z(info%,T$,_$,a$,�(�-�))
g �K%:�M1
h �`3%:�o0
i�time%:�W1
j �T0%:�W0
k �X0%:�Z0
l�:�
m
��r0:�
n
��h0:�
o9��C1:�N$,R$,G$:N$=�t(x%,J%):R$=�A(N$):G$=�W(J%):Ȏx%�
p�I%(1):�T0(R$)
q�I%(2):�c0(N$,R$,G$)
r�I%(23):�B1(R$)
s�I%(24):�U0(R$)
t�P3%:�F1(R$)
u.�:ș&400cf,,J%:�J%!8=1ș&400d4,,x%,S0%,Q0%
v�
w
��n0:�
x
��f1:�
y��m0:h2%=J%!0:Ȏh2%�
z�X0%:�H(X0%,13,�)
{�:�
| ��v:�e4%:e4%=J%!16:Ȏe4%�
} �0:h3%=�
~��&400c1:ș&400ed,256,L%,"mag0",,,,j0%,P1%:j0%!0=j0%!0*S%:j0%!4=j0%!4*S%:ș&400ed,256,L%,"mag0",,,,h0%,P1%:�y%:h0%!0=h0%!0*2:h0%!4=h0%!4*2
m3%=�
��:�
�
��b1:�
���_0:ȎU1%�
�P�N1%:Q$="icon_bar":x%=I%(1):S0%=i0%-64:Q0%=�a(I%(1))+96:ș&400d4,,x%,S0%,Q0%
��k0%:�Q(`3%,�)
��Z1%:Ȏd0%�
��f3%:�S(�):�u1%�
�"ș&400d1,w%,0,-B0%*S%,Z0%*S%,0
��:�D:u1%=�
��
��F1%
� �t3%:�I0
��R4%
��
��:�
���R0:ȎU1%�
��Z1%:�H0%�B0
�;�N1%:Q$="star_window":x%=I%(2):S0%=i0%-64:Q0%=`0%:�a3%�
� ș6,202,0,255�,o%:�(o%�8)�
�ș&400d4,,x%,S0%,Q0%:�
�_�:J%!0=Y%:ș&400cb,,J%:z0%=J%!4-J%!20:K1%=J%!16-J%!24:F%=i0%-z0%:I%=`0%-K1%+B0%:�m(F%,I%):�
��:ș&400d4,,x%,S0%,Q0%
��
�q�k0%:J%!0=Y%:ș&400cb,,J%:z0%=J%!4-J%!20:K1%=J%!16-J%!24:F%=(i0%-z0%)/S%:I%=(`0%-K1%)/S%+B0%:�a3%:�m(F%,I%):�
�U%=�T(F%,I%):�U%>9999�
��U%<2000000�
��N%<L%(2)�
�PP%=720-30*�(0.5+K%(U%�10000)/3600):M%=�(0.5+(M%(U%�10000)/(3600*2*a%)))*2*a%
�N�:P%=720-15*�(0.5+K%(U%�10000)/1800):M%=�(0.5+(M%(U%�10000)/(3600*a%)))*a%
��
��:�N%<L%(2)�
�\P%=720-30*�(0.5+D%((U%�10000)-200)/3600):M%=�(0.5+(H%((U%�10000)-200)/(3600*2*a%)))*2*a%
�Z�:P%=720-15*�(0.5+D%((U%�10000)-200)/1800):M%=�(0.5+(H%((U%�10000)-200)/(3600*a%)))*a%
��
��:N=�(M%):V=�(N):U=�(N)
��:�N%<L%(2)�
�DP%=720-30*�(0.5+J%(U%)/3600):M%=�(0.5+(G%(U%)/(3600*2*a%)))*2*a%
�B�:P%=720-15*�(0.5+J%(U%)/1800):M%=�(0.5+(G%(U%)/(3600*a%)))*a%
��:N=�(M%):V=�(N):U=�(N)
�U�:a2%=-a2%:`2%=-`2%:�B(K%,5,n%):�A(K%,13,�(M%)):�A(K%,11,�(((48-P%/15)�48)/2)):�D
� �k0%:h%+=20:�h%>700:h%=0
�K2%=700-h%:�D
�a�k0%:J%!0=Y%:ș&400cb,,J%:z0%=J%!4-J%!20:K1%=J%!16-J%!24:F%=i0%-z0%:I%=`0%-K1%+B0%:�A0(F%,I%)
��:�
���M1:ȎU1%�
��Z1%:Ȏc%�
��10:�N%<L%(2)�
�P%=(P%+30)�720
��:P%=(P%+15)�720
�1�:�A(K%,11,�(((48-P%/15)�48)/2)):�e%:�D:�q%=�
��14:�N%<L%(2)�
� M%+=2*a%
� �:M%+=a%
��:�M%>90:M%=-90
�6N=�(M%):V=�(N):U=�(N):�A(K%,13,�(M%)):�e%:�D:�q%=�
��9:�N%<L%(2)�
�P%=(P%+690)�720
��:P%=(P%+705)�720
�1�:�A(K%,11,�(((48-P%/15)�48)/2)):�e%:�D:�q%=�
��15:�N%<L%(2)�
� M%-=2*a%
� �:M%-=a%
��:�M%<-90:M%=90
�6N=�(M%):V=�(N):U=�(N):�A(K%,13,�(M%)):�e%:�D:�q%=�
�0�2:e2%=�e2%:�B(K%,c%,e2%):�e%:g1%=�:�D:�q%=�
�0�3:i2%=�i2%:�B(K%,c%,i2%):�e%:g1%=�:�D:�q%=�
� �6:j%=�j%:�B(K%,c%,j%):�`
��5:n%=�n%:�B(K%,c%,n%)
� �7:�F1%
� F1%=�
� �8:�F1%
� F1%=�
�#�4:x0%=�x0%:�B(K%,c%,x0%):�x0%�
�
�j:M1%=-1
��:s%=�:�B(K%,34,s%)
�
�:�e%�
��D
�
�:q%=�
��
�*�0:G2%=�G2%:�B(K%,c%,G2%):�e%:�D:�q%=�
�
�17:�s0%�
�z1%=�:�B(K%,32,z1%)
�/�:s0%=�s0%:�B(K%,c%,s0%):�e%:g1%=�:�D:�q%=�
� �20:h%+=20:�h%>700:h%=700
�,K2%=700-h%:�A(K%,19,�K(h%)):�e%:�D:�q%=�
� �21:h%-=20:�h%<100:h%=100
�,K2%=700-h%:�A(K%,19,�K(h%)):�e%:�D:�q%=�
�@�26:�H(K%,5,H0%):�H(K%,6,H0%):H0%=�H0%:�H0%:�Q(X%,�):��c(X%)
��B(K%,c%,H0%)
�"�27:�t1%<>0:�Y(0):�e%:�D:�q%=�
�"�28:�t1%<>1:�Y(1):�e%:�D:�q%=�
�"�29:�t1%<>2:�Y(2):�e%:�D:�q%=�
�"�30:�t1%<>3:�Y(3):�e%:�D:�q%=�
� �31:�B(K%,c%,e%):e%=�e%:�e%�
��y2%:�M:y2%=�
� �D:q%=�
��
��32:z1%=�z1%:�s0%�
�s0%=�:�B(K%,17,s0%)
� �:�B(K%,c%,z1%):�e%:�D:q%=�
�*�33:A3%=�A3%:�B(K%,c%,A3%):�e%:�D:q%=�
��34:s%=�s%:�x0%�
�x0%=�:�B(K%,4,x0%)
� �:�B(K%,c%,s%):�s%:�j:M1%=-1
��e%:�D:q%=�
�*�36:l2%=�l2%:�B(K%,c%,l2%):�e%:�D:q%=�
� �37:v1%=�v1%:�B(K%,c%,v1%)
��35:�Q(time%,�)
�R�38:Q$="button_window":x%=I%(23):S0%=�R(Y%,c%):Q0%=`0%+20:ș&400d4,,x%,S0%,Q0%
��
�M�N1%:Q$="button_window":x%=I%(23):S0%=i0%-64:Q0%=`0%:ș&400d4,,x%,S0%,Q0%
��k0%:S%=1+S%�2:�b0(S%)
��k0%:Ȏc%�
��4
�^:J%!0=Y%:ș&400cb,,J%:z0%=J%!4-J%!20:K1%=J%!16-J%!24:F%=i0%-z0%:I%=`0%-K1%+B0%:�A0(F%,I%)
��
��:�
���o0:ȎU1%�
�K�N1%:Q$="info_window":x%=I%(14):S0%=i0%-64:Q0%=`0%:ș&400d4,,x%,S0%,Q0%
��k0%
��Z1%
��:�
���W1:ȎU1%�
��N1%
��Z1%,k0%:Ȏc%�
��2:�P(-1,0,0)
��3:�P(0,-1,0)
��4:�P(0,0,-1)
�5:�P(1,0,0)
�6:�P(0,1,0)
�7:�P(0,0,1)
�12:�T(-1,0,0)
�13:�T(0,-1,0)
�14:�T(0,0,-1)
�15:�T(1,0,0)
�16:�T(0,1,0)
�17:�T(0,0,1)
�9:�_
�19:�i
�24:u%=1:�W:�
�23:u%=-1:�W:�
�22:�u%>0:�B(time%,24,�)
�u%<0:�B(time%,23,�)
u%=0:�W:�
�30:�u%>0:�B(time%,24,�)
�u%<0:�B(time%,23,�)
%u%=0:k+=�(�C(time%,28)):�P0%:k+=1
k+=V0%:f+=�(�C(time%,29)):�e
�25:�u%>0:�B(time%,24,�)
�u%<0:�B(time%,23,�)
%u%=0:k-=�(�C(time%,28)):�P0%:k+=1
k+=V0%:f-=�(�C(time%,29)):�e
�:�W:�e%�
�M:�I0%:�D:�u1%=�
�:�G0%:�g
q%=�:y2%=�
�:�G0%�
�e%:�M
�u%:�k:��U:x1%=�
�
�:�
!��W0:ȎU1%�
"K�N1%:Q$="equa_window":x%=I%(24):S0%=i0%-64:Q0%=`0%:ș&400d4,,x%,S0%,Q0%
#�k0%:y%=�y%:�j0(y%)
$�Z1%:�U:x1%=�
%�:�
&��Z0:ȎU1%�
'H�N1%:Q$="posn_window":x%=P3%:S0%=i0%-64:Q0%=`0%:ș&400d4,,x%,S0%,Q0%
(�k0%,Z1%:Ȏc%�
) �12:X1%=�X1%:�H(X0%,13,�)
*F�13:P0%=X1%:q=�h:D0=�m:V0%=�s:i$=B$(p3%):T3%=p3%:�H(X0%,13,�):�e%�
+�M:�I0%:�D:�u1%=�
,�:�G0%:�g
-q%=�:y2%=�
. �:�G0%�
/ �e%:�M
0�u%:�k:��U:x1%=�
1�
2M�18:Q$="posn_window":x%=P3%:S0%=�R(Y%,c%):Q0%=`0%+20:ș&400d4,,x%,S0%,Q0%
3�
4�:�
5��T0(J$):ȎJ$�
6�"Quit":h3%=�
7C�"Celestial sphere":�C(1,d0%,�):d0%=f3%:�C(1,d0%,�):�S(�):�u1%�
8"ș&400d1,w%,0,-B0%*S%,Z0%*S%,0
9�:�D:u1%=�
:�
;3�"Horizon view":�C(1,d0%,�):d0%=F1%:�C(1,d0%,�)
<@�"Equatorial view":�C(1,d0%,�):d0%=t3%:�C(1,d0%,�):�I0:�x1%�
= ș&400d1,T0%,0,-600,3600,0
>�:�U:x1%=�
?�
@-�"Orrery":�C(1,d0%,�):d0%=R4%:�C(1,d0%,�)
A �"Moon":�Q(Q1%,�):b3%=�:�C0
B#�"Location":�a(T3%,�):�Q(X0%,�)
C�:�
D/��c0(N$,R$,G$):�x3%:Ȏ�N$,�(N$)-�(�A(N$)))�
E+�"Constellations.Proper names.":�l%<89�
F�C(4,l%-1,�)
G�:�C(5,l%-89,�)
H��:l%=�(�A(G$)):�C(4,l%,�):P%=2*(15*(S%(l%)�15)):M%=10*(U%(l%)�10):N=�(M%):V=�(N):U=�(N):l%+=1:�A(K%,11,�(((48-P%/15)�48)/2)):�A(K%,13,�(M%)):�D
I+�"Constellations.Common names.":�l%<89�
J�C(4,l%-1,�)
K�:�C(5,l%-89,�)
L��:l%=88+�(�A(G$)):�C(5,l%-88,�):P%=2*(15*(S%(l%)�15)):M%=10*(U%(l%)�10):N=�(M%):V=�(N):U=�(N):l%=Z%(�(�A(G$))):�A(K%,11,�(((48-P%/15)�48)/2)):�A(K%,13,�(M%)):�D
M��"Named star.A...A.":O%=�(�A(G$)):P%=720-30*�(0.5+F%(O%)/3600):K$="RAA "+�(F%(O%)):e0%=�:M%=�(0.5+(N%(O%)/36000))*10:N=�(M%):V=�(N):U=�(N):j%=�:v=F%(O%):s=N%(O%):�B(K%,6,j%):�A(K%,11,�(((48-P%/15)�48)/2)):�A(K%,13,�(M%)):�D:�J(G1%+_%,C1%+`%):n%=�
N�B(K%,5,n%)
O��"Named star.B...L.":O%=�(�A(G$))+91:P%=720-30*�(0.5+F%(O%)/3600):K$="RAA "+�(F%(O%)):e0%=�:M%=�(0.5+(N%(O%)/36000))*10:N=�(M%):V=�(N):U=�(N):j%=�:v=F%(O%):s=N%(O%):�B(K%,6,j%):�A(K%,11,�(((48-P%/15)�48)/2)):�A(K%,13,�(M%)):�D:�J(G1%+_%,C1%+`%):n%=�
P�B(K%,5,n%)
Q��"Named star.M...R.":O%=�(�A(G$))+91+76:P%=720-30*�(0.5+F%(O%)/3600):K$="RAA "+�(F%(O%)):e0%=�:M%=�(0.5+(N%(O%)/36000))*10:N=�(M%):V=�(N):U=�(N):j%=�:v=F%(O%):s=N%(O%):�B(K%,6,j%):�A(K%,11,�(((48-P%/15)�48)/2)):�A(K%,13,�(M%)):�D:�J(G1%+_%,C1%+`%)
Rn%=�:�B(K%,5,n%)
S��"Named star.S...Z.":O%=�(�A(G$))+91+76+74:P%=720-30*�(0.5+F%(O%)/3600):K$="RAA "+�(F%(O%)):e0%=�:M%=�(0.5+(N%(O%)/36000))*10:N=�(M%):V=�(N):U=�(N):j%=�:v=F%(O%):s=N%(O%):�B(K%,6,j%):�A(K%,11,�(((48-P%/15)�48)/2)):�A(K%,13,�(M%)):�D
T&�J(G1%+_%,C1%+`%):n%=�:�B(K%,5,n%)
U��"Named star.Common names.":O%=�(�A(G$))+91+76+74+66:P%=720-30*�(0.5+F%(O%)/3600):K$="RAA "+�(F%(O%)):e0%=�:M%=�(0.5+(N%(O%)/36000))*10:N=�(M%):V=�(N):U=�(N):j%=�:v=F%(O%):s=N%(O%):�B(K%,6,j%):�A(K%,11,�(((48-P%/15)�48)/2)):�A(K%,13,�(M%)):�D
V&�J(G1%+_%,C1%+`%):n%=�:�B(K%,5,n%)
WI�"Messier object.":O%=�(�A(G$)):�F%=1�110:�O%(F%)�100=O%:O%=F%:F%=111
X��:P%=720-30*�(0.5+K%(O%)/3600):M%=�(0.5+(M%(O%)/36000))*10:N=�(M%):V=�(N):U=�(N):v=K%(O%):s=M%(O%):O%=10000*O%:j%=�:�B(K%,6,j%):�A(K%,11,�(((48-P%/15)�48)/2)):�A(K%,13,�(M%)):�D:K$=I$(O%(O%�10000)�100):e0%=�:�J(G1%+_%,C1%+`%):n%=�:�B(K%,5,n%)
YG�"Messier object.'M' number (1 - 110).":O%=�(�A(N$)):�O%<1�O%>110:�
Z�P%=720-30*�(0.5+K%(O%)/3600):M%=�(0.5+(M%(O%)/36000))*10:N=�(M%):V=�(N):U=�(N):v=K%(O%):s=M%(O%):O%=10000*O%:j%=�:�B(K%,6,j%):�A(K%,11,�(((48-P%/15)�48)/2)):�A(K%,13,�(M%)):�D:�J(G1%+_%,C1%+`%):n%=�:�B(K%,5,n%):K$=I$(O%(O%�10000)�100):e0%=�
[�"Solar system.":ȎR$�
\�"Sun":B=M0:C=m0
]�"Moon":B=I0:C=L0
^�"Mercury":B=C2:C=m1
_�"Venus":B=P2:C=M2
`�"Mars":B=F2:C=I2
a�"Jupiter":B=J2:C=H2
b�"Saturn":B=A2:C=L2
c�"Uranus":B=v1:C=S2
d�"Neptune":B=r1:C=K2
e�"Pluto":B=z1:C=j1
f�"Umbra":B=m:C=i0
g��:P%=720-30*�(0.5+B/3600):M%=�(0.5+(C/36000))*10:N=�(M%):V=�(N):U=�(N):j%=�:v=B:s=C:�B(K%,6,j%):�A(K%,11,�(((48-P%/15)�48)/2)):�A(K%,13,�(M%)):�D:�J(G1%+_%,C1%+`%):n%=�:�B(K%,5,n%)
h:�N$,6)="Bayer."�
i)I%=0:�F%=1��(N$):�N$,F%,1)=".":I%+=1
j �:�I%=2�
kZo4%=1+�(�A(G$)):p4%=1+�(�G$,1+�G$,"."),2)):x3%=�:�R%=0�p0%:�(g2%?R%=o4%)�(j3%?R%=p4%)�
lU%=R%:R%=p0%+1:x3%=�
m
�:�:�x3%�
n?�w("Star requested not in database!","Bayer star finder"):�
o�:O%=U%:�N%<L%(2)�
pDP%=720-30*�(0.5+J%(U%)/3600):M%=�(0.5+(G%(U%)/(3600*2*a%)))*2*a%
qB�:P%=720-15*�(0.5+J%(U%)/1800):M%=�(0.5+(G%(U%)/(3600*a%)))*a%
r��:N=�(M%):V=�(N):U=�(N):v=J%(O%):s=G%(O%):j%=�:n%=�:�B(K%,6,j%):�B(K%,5,n%):�A(K%,13,�(M%)):�A(K%,11,�(((48-P%/15)�48)/2)):�D:�K0(U%)
s�
t�
u�:�
v��B1(J$):ȎJ$�
w �"Sun":d2%=�d2%:�C(23,0,d2%)
x!�"Moon":Y2%=�Y2%:�C(23,1,Y2%)
y$�"Mercury":J2%=�J2%:�C(23,2,J2%)
z"�"Venus":l1%=�l1%:�C(23,3,l1%)
{!�"Mars":k1%=�k1%:�C(23,4,k1%)
|$�"Jupiter":T2%=�T2%:�C(23,5,T2%)
}#�"Saturn":F2%=�F2%:�C(23,6,F2%)
~#�"Uranus":L2%=�L2%:�C(23,7,L2%)
$�"Neptune":N2%=�N2%:�C(23,8,N2%)
�"�"Pluto":M2%=�M2%:�C(23,9,M2%)
�#�"Umbra":m1%=�m1%:�C(23,10,m1%)
��:�
���U0(J$):ȎJ$�
� �"Time controls":�Q(time%,�)
�*�"Const'n lines":t2%=�t2%:�C(24,1,t2%)
�*�"Const'n names":q2%=�q2%:�C(24,2,q2%)
�(�"RA/Dec grid":B3%=�B3%:�C(24,3,B3%)
� �"Update display":�U:x1%=�
� �"Sun":n2%=�n2%:�C(25,0,n2%)
�!�"Moon":c2%=�c2%:�C(25,1,c2%)
�$�"Mercury":Q2%=�Q2%:�C(25,2,Q2%)
�"�"Venus":p1%=�p1%:�C(25,3,p1%)
�!�"Mars":B2%=�B2%:�C(25,4,B2%)
�$�"Jupiter":C2%=�C2%:�C(25,5,C2%)
�#�"Saturn":O2%=�O2%:�C(25,6,O2%)
�#�"Uranus":H2%=�H2%:�C(25,7,H2%)
�$�"Neptune":q1%=�q1%:�C(25,8,q1%)
�"�"Pluto":S2%=�S2%:�C(25,9,S2%)
�#�"Umbra":I2%=�I2%:�C(25,10,I2%)
��:�
���F1(J$):F%=-1:ȎJ$�
��B$(0):F%=0
��B$(1):F%=1
��B$(2):F%=2
��B$(3):F%=3
��B$(4):F%=4
��B$(5):F%=5
��B$(6):F%=6
��B$(7):F%=7
��B$(8):F%=8
��B$(9):F%=9
��B$(10):F%=10
� �:�F%>-1:�a(F%,�):p3%=F%
��
�)��J0(!Y3%,I$):�A0%:ș46,z%,o%,D0%,F0%
�(J4%+=1:�J4%>5:��0,"Too many errors!"
� �<200I$+=" at line "+�(�)
�.�=200I$="*** Error in menu file! *** "+I$
�.�=201I$="*** Menu error *** "+I$
�.�=202I$="*** Icon error *** "+I$
�.�=203I$="*** File error *** "+I$
�.�=204I$="*** Window error *** "+I$
�Hș&2000d,0,p%:ș&2000d,0,T%:ș&600da:$(Y3%+4)=I$:ș&400df,Y3%,1,T$:�
���Z:ș&400dd:�:�
���S(u4%):�K4%:�u4%�
� !J%=w%:ș&400cb,,J%:�I0%�
� J%!28=-1
��:ș&400c5,,J%
��
�D�:!H%=w%:ș&400cb,,H%:K4%=1<<19�H%!32:�K4%:J%!28=K%:ș&400c5,,J%
���:I0%=�:!H%=K%:ș&400cb,,H%:H%!4=J%!4:H%!12=J%!12:H%!28=J%!28:H%!8=J%!8:H%!16=J%!16:ș&400c5,,H%:�K4%:J%!28=K%:ș&400c5,,J%
��
�D��L0:�M0%=0�O0%:F%=R%(M0%)-_%:I%=W%(M0%)-`%:R%=P%(M0%):�R%<9999�
�b%=I1%!(4*R%):�l2%�
��_1%!(2*R%)�
��b%<h%-200�
�3�5:ș&400e6,9:�F%+8,I%+8:�J$(65535�_1%!(2*R%));
��
��
�5�:b%=(K2%+b%)�100:�b%=6ș46,290,L%,"mag6",F%,I%,2
�'�b%=5ș46,290,L%,"mag5",F%-2,I%-2,2
�'�b%=4ș46,290,L%,"mag4",F%-2,I%-2,2
�'�b%=3ș46,290,L%,"mag3",F%-2,I%-2,2
�'�b%=2ș46,290,L%,"mag2",F%-4,I%-4,2
�'�b%=1ș46,290,L%,"mag1",F%-4,I%-4,2
�'�b%=0ș46,290,L%,"mag0",F%-6,I%-6,2
�(�b%<0ș46,290,L%,"mag-1",F%-6,I%-6,2
� �:�:�
ŝ��D:�B,C:e3%=�:ș&406c0:ș46,316,L%,"starmap",0�z%,o%,D0%,F0%:A0%=�:_%=Z0%/2:`%=B0%/2:ș&400e6,7:ȓȐ0,0,Z0%,B0%:L0%=M%-r0%:�L0%>90-r0%:L0%=180-2*r0%-L0%
�*K0%=M%+r0%:�K0%>90+r0%:K0%=180-K0%+r0%
�$L0%=a%*(L0%�a%):�L0%<-90:L0%=-90
�"K0%=a%*(K0%�a%):�K0%>90:K0%=90
�,M%+=180:ȑ_%,`%:t%=288:Ȏ(�(M%-180)�10)�
�(�7:t%=144+7*12:�N%<1000:t%=144+12*12
�'�6:t%=144+6*12:�N%<1000:t%=144+8*12
�'�5:t%=144+5*12:�N%<1000:t%=144+7*12
�'�4:t%=144+4*12:�N%<1000:t%=144+6*12
�'�3:t%=144+3*12:�N%<1000:t%=144+5*12
�'�2:t%=144+3*12:�N%<1000:t%=144+5*12
�'�1:t%=144+3*12:�N%<1000:t%=144+4*12
�'�0:t%=144+3*12:�N%<1000:t%=144+4*12
�J�:m0%=(48-(t%-144)/12-P%/30)�24:l0%=(24+(t%-144)/12-P%/30)�24:�e2%:�G1
�J5%=�:�A3%:�n1:ȑ_%,`%
�
�l0%>m0%�
� �G2%�
� �g1%�
�
�L0:g1%=�
�E�:m2%=0:O0%=0:�R%=0�p0%:B=J%(R%)/3600:C=G%(R%)/3600:�B<l0%�B>m0%�
��C<K0%�C>L0%�
�2�s(J%(R%),R%,I1%!(4*R%)):�I1%!(4*R%)>h%:R%=p0%
��
��:m2%+=1:�
��
� �:�s0%�
�7�R%=1�110:B=K%(R%)/3600:C=M%(R%)/3600:�B<l0%�B>m0%�
��C<K0%�C>L0%�
��t(K%(R%),C,R%)
��
��:�
��
� �:�G2%�
� �g1%�
�
�L0:g1%=�
�E�:m2%=0:O0%=0:�R%=0�p0%:B=J%(R%)/3600:C=G%(R%)/3600:�B<l0%�B>m0%�
��C<K0%�C>L0%�
�2�s(J%(R%),R%,I1%!(4*R%)):�I1%!(4*R%)>h%:R%=p0%
��
��:m2%+=1:�
��
� �:�s0%�
�7�R%=1�110:B=K%(R%)/3600:C=M%(R%)/3600:�B<l0%�B>m0%�
��C<K0%�C>L0%�
��t(K%(R%),C,R%)
��
��:�
��
� �:�x0%�
� �p0:�M2%�F(z1,j1/3600,9)
��N2%�F(r1,K2/3600,8)
��L2%�F(v1,S2/3600,7)
��F2%�F(A2,L2/3600,6)
��T2%�F(J2,H2/3600,5)
��k1%�F(F2,I2/3600,4)
��d%=0�2:ȎX%(d%)�
��0:�d2%�F(M0,m0/3600,0)
��1:�J2%�F(C2,m1/3600,1)
��2:�l1%�F(P2,M2/3600,2)
�:�:�Y2%�F(I0,L0/3600,10)
�m1%�F(m,i0/3600,11)
�:�23,6,85|:�L0%<-85:L0%=-80
�K0%>90-a%:K0%=80
�i2%�
hș&400e6,128+8:�C4%=L0%+180�K0%+180�a%:Z=M(C4%):T=S(C4%):d1%=-T*N(144):o0%=Z*U-T*V*P(144):�r2%:_2%=�
j�O1%=144+t0%�t%�t0%:j2%=-T*N(O1%):L1%=Z*U-T*V*P(O1%):n0%=O1%/t0%:�(o0%>i1%�o0%<b2%)�(L1%>i1%�L1%<b2%)�
7r2%=�:�j2%,L1%:�55,d1%,o0%:�_2%:�55,V%(n0%),T%(n0%)
@�-j2%,L1%:�55,-d1%,o0%:�_2%:�O1%>144+t0%�55,-V%(n0%),T%(n0%)
8�:V%(n0%)=d1%:T%(n0%)=o0%:d1%=j2%:o0%=L1%:�:�t%=288�
bO1%=288+t0%:n0%=O1%/t0%:j2%=-T*N(O1%):L1%=Z*U-T*V*P(O1%):�(o0%>i1%�o0%<b2%)�(L1%>i1%�L1%<b2%)�
-r2%=�:�-d1%,o0%:�_2%:�55,-V%(n0%),T%(n0%)
-�:V%(n0%)=d1%:T%(n0%)=o0%:d1%=j2%:o0%=L1%
�:�
�:�j%:�G0(v,s)
kM%-=180:_2%=�:r2%=�:A0%=�:ș46,z%,o%,D0%,F0%:ș&406c1:ș&400d1,w%,0,-B0%*S%,Z0%*S%,0:�A(K%,24,�(m2%)):�
��J(F%,I%):�F%=a2%�I%=`2%:�
.U%=�T(F%,I%):�K0(U%):O%=U%:a2%=F%:`2%=I%:�
�ݤT(F%,I%):�M0%,i4%,h4%,D3%,s2%,H3%:U%=0:T4%=0:H3%=&ffffff:�M0%=0�O0%:i4%=R%(M0%)-F%:h4%=W%(M0%)-I%:s2%=i4%^2+h4%^2:�s2%<=H3%�
�s2%=H3%�
-c3%=�:D3%=P%(M0%):�D3%>9999:D3%=D3%�10000
�(65535�_1%!(2*D3%))�
U%=P%(M0%):T4%=M0%:H3%=s2%
�
&�:c3%=�:U%=P%(M0%):T4%=M0%:H3%=s2%
�
�:�:=U%
'��K0(Q%):�v4,c0,Z0,o0,y0:�Q%<10000�
�Q%<>M1%�
aM1%=Q%:A$=�(A4%?(2*Q%))+�(A4%?(2*Q%+1)):�A(X%,4,A$+" star"):�c3%:�A(X%,4,A$+" star (Double)")
@�A(X%,5,J$(65535�_1%!(2*Q%))):A$="":�D4%?Q%:A$=" "+�(D4%?Q%)
+�j3%?Q%:A$=A$(j3%?Q%)+A$+" "+M$(g2%?Q%)
��A(X%,6,A$):�A(X%,7,�K(I1%!(4*Q%)+0.1)):�A(X%,8,""):�A(X%,9,H$(g2%?Q%)):�A(X%,10,�B(F3%!(Q%*4))):�A(X%,11,�B(K3%!(Q%*4))):�f(�((F3%!(Q%*4))/240),�((K3%!(Q%*4))/3600),V0):�A(X%,12,�B(�(Q2)*3600)):�A(X%,13,�B(�(h2)*3600))
!��u(�((F3%!(Q%*4))/240),�((K3%!(Q%*4))/3600),c0,Z0,o0,y0,0):�A(X%,14,�(�L(c0))+"hrs, azimuth="+�(o0)):�A(X%,15,�(�L(Z0))+"hrs, azimuth="+�(y0)):�O(1,"Type :"+"Star"):�O(2,"Name :"+J$(65535�_1%!(2*Q%))):�O(3,"Mag. :"+�((I1%!(4*Q%))/100))
" �O(4,"Const:"+H$(g2%?Q%))
#�
$�:�Q%<>M1%�
%@M1%=Q%:Q%=Q%�10000:K$="Object number :"+�(Q%):e0%=�:�Q%<200�
&��A(X%,4,I$(O%(Q%)�100)):�A(X%,5,L$(O%(Q%)�100)):�A(X%,6,"M"+�(Q%)):�O(1,"Type :"+I$(O%(Q%)�100)):�O(2,"Name :"+L$(O%(Q%)�100)):�O(3,"Ref. :"+"M"+�(Q%)):�O(4,""):�A(X%,8,""):�A(X%,10,�B(K%(Q%))):�A(X%,11,�B(M%(Q%)))
']�f(�((K%(Q%))/240),�((M%(Q%))/3600),V0):�A(X%,12,�B(�(Q2)*3600)):�A(X%,13,�B(�(h2)*3600))
(��:Q%-=200:�A(X%,4,C$(Q%)):�A(X%,5,D$(Q%)):�A(X%,6,""):�A(X%,8,F$(Q%)):�A(X%,10,�B(D%(Q%))):�A(X%,11,�B(H%(Q%))):�f(�((D%(Q%))/240),�((H%(Q%))/3600),V0):�A(X%,12,�B(�(Q2)*3600)):�A(X%,13,�B(�(h2)*3600))
)7�:�A(X%,7,""):�A(X%,9,""):�A(X%,14,""):�A(X%,15,"")
*�
+�:�
,&ݤB(_0%):�b0%,c0%,h$:�_0%<0:h$="-"
-e_0%=�(_0%):b0%=_0%/3600:c0%=_0%/60-b0%*60:_0%=_0%�60:=h$+�b0%+":"+�"00"+�c0%,2)+":"+�"00"+�_0%,2)
.}��G0(v,s):ș&400e6,189:s=s/3600:v=P%/2+((86400+v)�86400)/240:Z=N%*�(�(s)):T=N%*�(�(s)):B0=�(�(v)):W0%=Z*V+T*B0*U:�W0%>v%�
/>F%=-T*�(�(v)):I%=Z*U-T*V*B0:�F%,I%:�147,20,0:G1%=F%:C1%=I%
0�:�
1���`:ș46,316,L%,"starmap",0�z%,o%,D0%,F0%:A0%=�:ȑ_%,`%:�G0(v,s):A0%=�:ș46,z%,o%,D0%,F0%:ș&400d1,w%,S%*(_%+F%-22),S%*(-`%+I%-22),S%*(_%+F%+22),S%*(-`%+I%+22):�
2q��B0:J%!0=w%:ș&400cb,,J%:z0%=J%!4-J%!20:K1%=J%!16-J%!24:F%=(i0%-z0%)/S%:I%=(`0%-K1%)/S%+B0%:�J(F%,I%):�j%:�`
3
�U%>9999�
4�(U%�10000)<200�
5!v=K%(U%�10000):s=M%(U%�10000)
6/�:v=D%((U%�10000)-200):s=H%((U%�10000)-200)
7�
8�:v=J%(U%):s=G%(U%)
9 �:�j%:�`
:�
;7��s(B,R%,b%):B=�(P%/2+B/240):F%=-O(R%)*�B:�F%>_%:�
<)U0=O(R%)*�B:I%=L(R%)*U-V*U0:�I%>`%:�
= W0%=L(R%)*V+U0*U:�W0%<v%:�
>7R%(O0%)=F%+_%:W%(O0%)=I%+`%:P%(O0%)=R%:O0%+=1:�l2%�
?�(65535�_1%!(2*R%))�
@�b%<h%-200�
A3�5:ș&400e6,9:�F%+8,I%+8:�J$(65535�_1%!(2*R%));
B�
C�
D3�:b%=K2%+b%:�b%>599ș46,290,L%,"mag6",F%,I%,2:�
E+�b%>499ș46,290,L%,"mag5",F%-2,I%-2,2:�
F+�b%>399ș46,290,L%,"mag4",F%-2,I%-2,2:�
G+�b%>299ș46,290,L%,"mag3",F%-2,I%-2,2:�
H+�b%>199ș46,290,L%,"mag2",F%-4,I%-4,2:�
I*�b%>99ș46,290,L%,"mag1",F%-4,I%-4,2:�
J*�b%>-1ș46,290,L%,"mag0",F%-6,I%-6,2:�
K*�b%<0ș46,290,L%,"mag-1",F%-6,I%-6,2:�
L�
M@��t(B,C,c0%):B=�(P%/2+B/240):T=N%*�(�(C)):F%=-T*�B:�F%>_%:�
N/B0=�B:Z=N%*�(�(C)):W0%=Z*V+T*B0*U:�W0%<v%:�
OI%=Z*U-T*V*B0:�I%>`%:�
PGR%(O0%)=F%+_%:W%(O0%)=I%+`%:P%(O0%)=c0%*10000:O0%+=1:ȎO%(c0%)�100�
Q.�1:ș46,290,L%,"opencluster",F%-10,I%-10,8
R.�2:ș46,290,L%,"globcluster",F%-10,I%-10,8
S-�3:ș46,290,L%,"nebcluster",F%-10,I%-10,8
T,�4:ș46,290,L%,"planetary",F%-12,I%-12,8
U)�5:ș46,290,L%,"nebula",F%-10,I%-10,8
V)�6:ș46,290,L%,"galaxy",F%-16,I%-10,8
W*�7:ș46,290,L%,"snovarem",F%-16,I%-8,8
X+�8:ș46,290,L%,"asterism",F%-10,I%-10,8
Y+�:�z1%:�5:�0,15:�F%+8,I%+22:�"M";�(c0%)
Z�
[?��F(B,C,Q%):B=�(P%/2+B/240):T=N%*�(�(C)):F%=-T*�B:�F%>_%:�
\/B0=�B:Z=N%*�(�(C)):W0%=Z*V+T*B0*U:�W0%<v%:�
]I%=Z*U-T*V*B0:�I%>`%:�
^PR%(O0%)=F%+_%:W%(O0%)=I%+`%:P%(O0%)=(200+Q%)*10000:O0%+=1:�O0%>5000:O0%=5000
_�5:�0,0:ȎQ%�
`>�0:ș46,290,L%,"sun",F%-14,I%-14,8:�s%:�F%+14,I%+28:�"Sun"
aE�1:ș46,290,L%,"mercury",F%-10,I%-10,8:�s%:�F%+8,I%+22:�"Mercury"
bA�2:ș46,290,L%,"venus",F%-10,I%-10,8:�s%:�F%+8,I%+22:�"Venus"
c?�4:ș46,290,L%,"mars",F%-10,I%-10,8:�s%:�F%+8,I%+22:�"Mars"
dE�5:ș46,290,L%,"jupiter",F%-10,I%-10,8:�s%:�F%+8,I%+22:�"Jupiter"
eB�6:ș46,290,L%,"saturn",F%-18,I%-8,8:�s%:�F%+8,I%+22:�"Saturn"
fC�7:ș46,290,L%,"uranus",F%-10,I%-10,8:�s%:�F%+8,I%+22:�"Uranus"
gE�8:ș46,290,L%,"neptune",F%-10,I%-10,8:�s%:�F%+8,I%+22:�"Neptune"
h?�9:ș46,290,L%,"pluto",F%-8,I%-8,8:�s%:�F%+4,I%+18:�"Pluto"
iA�10:ș46,290,L%,"moon",F%-14,I%-14,8:�s%:�F%+14,I%+28:�"Moon"
j{�11:ș&400e6,131�48:L3%=2*�(0.36*M(181)):�F%,I%:�147,L3%,0:a1%=2*�(0.88*L3%):�F%,I%:�147,a1%,0:�s%:�F%-40,I%+8:�"Umbra"
k �u%�e3%�
l��W2%,X2%:�147,v3%,0:�W2%,X2%:�147,n1%,0:ș&400d1,w%,S%*(_%+W2%-n1%-2),S%*(-`%+X2%-n1%-2),S%*(_%+W2%+2+n1%),S%*(-`%+X2%+2+n1%)
m)�:v3%=L3%:n1%=a1%:W2%=F%:X2%=I%:e3%=�
n�:�
oP��m1:�V3%:ȔV3%,s%:ș46,316,L%,"starmap",0�z%,o%,D0%,F0%:A0%=�:ȑ_%,`%:�x0%�
p�M2%�F(z1,j1/3600,9):�I
q�N2%�F(r1,K2/3600,8):�I
r�L2%�F(v1,S2/3600,7):�I
s�F2%�F(A2,L2/3600,6):�I
t�T2%�F(J2,H2/3600,5):�I
u�k1%�F(F2,I2/3600,4):�I
v�d%=0�2:ȎX%(d%)�
w �0:�d2%�F(M0,m0/3600,0):�I
x �1:�J2%�F(C2,m1/3600,1):�I
y �2:�l1%�F(P2,M2/3600,2):�I
z �:�:�Y2%�F(I0,L0/3600,10):�I
{ �m1%�
|f�F(m,i0/3600,11):ș&400d1,w%,S%*(_%+F%-a1%-2),S%*(-`%+I%-a1%-2),S%*(_%+F%+2+a1%),S%*(-`%+I%+2+a1%)
}�
~)�:A0%=�:ș46,z%,o%,D0%,F0%:ȔV3%,s%:�
O��I:ș&400d1,w%,S%*(_%+F%-16),S%*(-`%+I%-16),S%*(_%+F%+16),S%*(-`%+I%+16):�
�S��b0(S%):ș&400ed,256,L%,"mag0",,,,j0%,P1%:j0%!0=j0%!0*S%:j0%!4=j0%!4*S%:�S%=1�
�^!J%=w%:ș&400cb,,J%:J%!20=0:J%!24=136:J%!12=J%!4+Z0%*S%:J%!8=J%!16-B0%*S%-136:ș&400c5,,J%
�&�:�r(w%,Z0%*S%,-B0%*S%,0,0):�S%=2�
�r!J%=w%:ș&400cb,,J%:J%!20=0:J%!24=136:!J%=w%:ș&400cb,,J%:J%!12=J%!4+Z0%*S%:J%!8=J%!16-S%*B0%-136:ș&400c5,,J%
�,�:�S(�):ș&400d1,w%,0,-B0%*S%,Z0%*S%,0:�
����n1:s3%=0:Q5%=65280:X4%=&c0c0c000:ș&40081,,"Trinity.Medium.Italic",240,240,0,0�J3%:ș&4074f,J3%,s3%,X4%,14:�f0%=1�88:B=360-S%(f0%-1):C=U%(f0%-1):B=�(P%/2+B):T=N%*�(�(C)):F%=-T*�B:�F%<=_%�
�.B0=�B:Z=N%*�(�(C)):W0%=Z*V+T*B0*U:�W0%>v%�
�I%=Z*U-T*V*B0:�I%<=`%�
� �f0%=l%�
�gș&4074f,J3%,s3%,-256,14:ș&40086,,�H$(f0%),�H$(f0%),"(")-1),16,F%+_%,I%+`%:ș&4074f,J3%,s3%,X4%,14
�8�:ș&40086,,�H$(f0%),�H$(f0%),"(")-1),16,F%+_%,I%+`%
��
��
��
��:�:ș&40082,J3%:�
����N1(L$):�S1%:p0%=0:D5%=1:S1%=�O(L$):�q0%S1%:S1%=�n(L$,q0%,S1%):p0%=!q0%-1:h1%=q0%!4:q0%+=16:F3%=q0%:K3%=q0%+4*h1%:I1%=q0%+8*h1%:A4%=q0%+12*h1%:_1%=q0%+14*h1%:g2%=q0%+16*h1%:j3%=q0%+17*h1%:D4%=q0%+18*h1%:�F%=0�p0%:J%(F%)=F3%!(4*F%):G%(F%)=K3%!(4*F%)
�=O(F%)=N%*�(�(G%(F%)/3600)):L(F%)=N%*�(�(G%(F%)/3600)):�:�
�N��j1(L$):G4%=1:T%=�(L$):ȕ��#T%:J$(G4%)=�#T%:G4%+=1:�:ș&2000d,0,T%:T%=0:�
����a0(L$):�Z2%:o3%=1:T%=�(L$):ȕ��#T%:B$=�#T%:Z2%=�(�B$,3)):b0%=�(�B$,5,2)):c0%=�(�B$,7,2)):_0%=�(�B$,9,2)):K%(Z2%)=b0%*60*60+c0%*60+_0%:Q3%=�(�B$,11,3)):c0%=�(�B$,14,2)):_0%=�(�B$,16,2)):�B$,11,1)="-"�
� M%(Z2%)=Q3%*60*60-c0%*60-_0%
�"�:M%(Z2%)=Q3%*60*60+c0%*60+_0%
�(�:O%(Z2%)=�(�B$,19,1)):�B$,":")>10�
�-L$(o3%)=�B$,21):O%(Z2%)+=(o3%*100):o3%+=1
� �:�:ș&2000d,0,T%:T%=0:�
�ݤK(F4%):�B$:�F4%<0�
�?B$=�"000"+��(F4%),2),3):B$="-"+��B$,1)+"."+�B$,2,2)+"00",4)
�9�:B$=�"000"+�(F4%),3):B$=��B$,1)+"."+�B$,2,2)+"00",4)
� �:=B$
�Y��Q1(L$):T%=�(L$):e1%=0:ȕ��#T%:H$(e1%)=��#T%,5):e1%+=1:�:e1%-=1:ș&2000d,0,T%:T%=0:�
�N��k1(L$):T%=�(L$):e1%=0:ȕ��#T%:M$(e1%)=�#T%:e1%+=1:�:ș&2000d,0,T%:T%=0:�
� ��I1(L$):�Z%,M0%:r%=0:�a3%:�
�)T%=�(L$):ȕ��#T%:A$=�#T%:�A$,":")>1�
�7C%(r%)=�(�A$,�A$,":")-1)):B%(r%)=�(�A$,�A$,":")+1))
�:�:Z%=0:�M0%=1�e1%:�A$=�H$(M0%),�H$(M0%),"(")-2):Z%=M0%
� �:C%(r%)=&ffffff:B%(r%)=Z%
�1�:r%+=1:�:C%(r%)=&ffffff:ș&2000d,0,T%:T%=0:�
�?��f(B,L1,V0):o3=�(q):m3=�(o3):r3=�(o3):H3=V0-B:�H3<0:B+=2*�
��e3=�(L1):d3=�(L1):n3=e3*m3+d3*r3*�(H3):h2=�(n3):j3=-d3*r3*�(H3):D3=e3-m3*n3:Q2=�(j3/(D3+1E-38)):�D3<0:Q2+=�:��D3>0�j3<0:Q2+=2*�
��
�/��Y(R3%):ș&406c0:t1%=R3%:N%=L%(R3%):ȎR3%�
�
�0:h%=440
�
�1:h%=520
�
�2:h%=600
�
�3:h%=700
�,�:K2%=700-h%:�A(K%,19,�K(h%)):�N%>L%(2)�
�t0%=6:a%=5
�D�:t0%=6:a%=5:M%=10*(M%�10):N=�(M%):V=�(N):U=�(N):�A(K%,13,�(M%))
�i�:�Y0%=0�360:M(Y0%)=N%*�(�(Y0%+180)):S(Y0%)=N%*�(�(Y0%+180)):�:�w2%>2*N%:r0%=90:�r0%=�(�(w2%/(2*N%)))
�!v%=N%*�(�(r0%+10)):�v%<0:v%=0
��v%>N%/2:v%=N%/2
��k%=�(�(Z0%/2/N%)):k%+=a%:r3%=-N%*�(�(k%)):g4%=-r3%:k%=�(�(B0%/2/N%)):k%+=2*t0%:i1%=-N%*�(�(k%)):b2%=-i1%:�F%=0�p0%:O(F%)=N%*�(�(G%(F%)/3600)):L(F%)=N%*�(�(G%(F%)/3600)):�:ș&406c1:�
�J��G1:�Z%,w1%,W3%:ș&400e6,128+11:w1%=�:W3%=14:�Z%=1�r%-46:�x:�:�l%>88�
� Ȏl%�
��95:F%=177:I%=182:l%=18
��92:F%=935:I%=939
��94:F%=940:I%=944
��93:F%=945:I%=957
��89:F%=958:I%=963
��91:F%=964:I%=969
��90:F%=970:I%=978
�(�:W3%=14:�Z%=F%�I%:�x:�:�l%=18:l%=95
��:�
�)��x:g%=C%(Z%):C=B%(Z%)/3600:�l0%>m0%�
��g%=&ffffff:w1%=�
� �w1%�
��B%(Z%)=l%�
�ș&400e6,128+W3%
��:ș&400e6,128+11
��
�%�:w1%=�:�g%/3600<l0%�g%/3600>m0%�
��C<K0%�C>L0%�
��g%<>&ffffff�
�?B=�(P%/2+g%/240):C=�C:Z=N%*�C:T=N%*�C:U0=T*�B:�Z*V+U0*U>v%�
ə�(-T*�B),�(Z*U-V*U0):Z%+=1:g%=C%(Z%):C=B%(Z%)/3600:ȕg%<>&ffffff:B=�(P%/2+g%/240):C=�C:Z=N%*�C:T=N%*�C:U0=T*�B:�Z*V+U0*U>v%:�55,�(-T*�B),�(Z*U-V*U0)
�)Z%+=1:g%=C%(Z%):C=B%(Z%)/3600:�:Z%-=1
��
��
��
��
��:�g%=&ffffff:w1%=�
� �w1%�
��B%(Z%)=l%�
�ș&400e6,128+W3%
��:ș&400e6,128+11
��
�%�:w1%=�:�g%/3600<l0%�g%/3600>m0%�
��C<K0%�C>L0%�
��g%<>&ffffff�
�?B=�(P%/2+g%/240):C=�C:Z=N%*�C:T=N%*�C:U0=T*�B:�Z*V+U0*U>v%�
ٙ�(-T*�B),�(Z*U-V*U0):Z%+=1:g%=C%(Z%):C=B%(Z%)/3600:ȕg%<>&ffffff:B=�(P%/2+g%/240):C=�C:Z=N%*�C:T=N%*�C:U0=T*�B:�Z*V+U0*U>v%:�55,�(-T*�B),�(Z*U-V*U0)
�)Z%+=1:g%=C%(Z%):C=B%(Z%)/3600:�:Z%-=1
��
��
��
��
��:�
�7��p0:�v2%:v2%=�:�23,6,136|:ș&400e6,128+8:�l0%>m0%�
�I�d%=0�360�10:B=�(d%):C=0:�N(B,C,O0):B=�(B):C=�(C):�B/15<l0%�B/15>m0%�
��C<K0%�C>L0%�
�IB=P%/2+B:Z=N%*�(�(C)):T=N%*�(�(C)):B0=�(�(B)):W0%=Z*V+T*B0*U:�W0%>v%�
�:F%=-T*�(�(B)):I%=Z*U-T*V*B0:�v2%�55,F%,I%��F%,I%:v2%=�
��
��
��:�
�N�:�d%=-180�180�10:B=�(d%):C=0:�N(B,C,O0):B=�(B):C=�(C):�B/15<l0%�B/15>m0%�
��C<K0%�C>L0%�
�IB=P%/2+B:Z=N%*�(�(C)):T=N%*�(�(C)):B0=�(�(B)):W0%=Z*V+T*B0*U:�W0%>v%�
�:F%=-T*�(�(B)):I%=Z*U-T*V*B0:�v2%�55,F%,I%��F%,I%:v2%=�
��
��
��:�
��:�
�F��Y1(F%,I%):I%-=S%*B0%:ș&2002e,308,L%,"starmap",F%,I%,0,j0%,P1%:�
���A0(F%,I%)�
�8��m(F%,I%):T%=�(D$+".Data.C_lines"):�#T%=�#T%:ȎU1%�
�#�k0%:ș6,202,0,255�,o%:�(o%�8)�
�EC%(r%)=&ffffff:B%(r%)=&ffffff:r%-=1:C%(r%)=&ffffff:B%(r%)=&ffffff
�N�:�J(F%,I%):C%(r%)=J%(U%):B%(r%)=G%(U%):r%+=1:�#T%,�(J%(U%))+":"+�(G%(U%))
��
�[�N1%:�#T%,H$(g2%?M1%):C%(r%)=&ffffff:B%(r%)=&ffffff:r%+=1:C%(r%)=&ffffff:B%(r%)=&ffffff
��:ș&2000d,0,T%:T%=0:�
���I0:�Q(T0%,�):G0%=�:�
����U:�B,C:ș&406c0:ș46,316,L%,"equatorial",0�z%,o%,D0%,F0%:A0%=�:ș&400e6,128+8:ș&400e6,7:ȑ0,0:ȓȐ0,0,3600,600:ȑ0,300:�K1:�23,6,85|:�B3%�
���5:ș&400e6,8:�8,-180:�"-20";:�0,-200:�55,3600,-200:�8,-80:�"-10";:�0,-100:�55,3600,-100:�8,20:�"0";:�0,0:�55,3600,0:�8,120:�"10";:�0,100:�55,3600,100:�8,220:�"20";:�0,200:�55,3600,200:�F%=150�3450�150:�F%+8,-280:��(24-(F%/150));:�F%,-300:�55,F%,300
��
��:�t2%:�D1
� �q2%:�d1
�1O0%=0:�R%=0�p0%:W0%=G%(R%)/360:�C<300�C>-300�
A�v0(3600-J%(R%)/24,W0%,I1%!(4*R%)+100):�I1%!(4*R%)>480:R%=p0%
�:�:�S2%:�G(z1,j1/3600,9,�)
�q1%:�G(r1,K2/3600,8,�)
�H2%:�G(v1,S2/3600,7,�)
�O2%:�G(A2,L2/3600,6,�)
�C2%:�G(J2,H2/3600,5,�)
�B2%:�G(F2,I2/3600,4,�)
�d%=0�2:ȎX%(d%)�
�0:�n2%:�G(M0,m0/3600,0,�)
�1:�Q2%:�G(C2,m1/3600,1,�)
�2:�p1%:�G(P2,M2/3600,2,�)
�:�:�c2%:�G(I0,L0/3600,10,�)
�I2%�G(m,i0/3600,11,�)
CA0%=�:ș46,z%,o%,D0%,F0%:ș&406c1:ș&400d1,T0%,0,-1200,7200,0:�
%��V1(F%,I%):�y%:I%-=1200:�I%-=600
2ș&2002e,308,L%,"equatorial",F%,I%,0,h0%,P1%:�
8��D1:�Z%,w1%,W3%:ș&400e6,128+11:�Z%=1�r%-46:�`1:�:�
@��`1:g%=C%(Z%):C=B%(Z%)/3600:J1=360-g%/240:g1=C:�C<45�C>-45�
�g%<>&ffffff�
oB=360-g%/240:�(B*10),�(C*10):J1=B:g1=C:Z%+=1:g%=C%(Z%):C=B%(Z%)/3600:ȕg%<>&ffffff:B=360-g%/240:�B-J1>180�
]�(J1*10),�(g1*10):�55,�((B-360)*10),�(C*10):�((J1+360)*10),�(g1*10):�55,�(B*10),�(C*10)
�:�B-J1<-180�
]�(J1*10),�(g1*10):�55,�((B+360)*10),�(C*10):�((J1-360)*10),�(g1*10):�55,�(B*10),�(C*10)
�:�55,�(B*10),�(C*10)
�
5�:J1=B:g1=C:Z%+=1:g%=C%(Z%):C=B%(Z%)/3600:�:Z%-=1
�
�:�
6��v0(F%,I%,b%):�b%>599ș46,290,L%,"mag6",F%,I%,2:�
+�b%>499ș46,290,L%,"mag5",F%-2,I%-2,2:�
+�b%>399ș46,290,L%,"mag4",F%-2,I%-2,2:�
+�b%>299ș46,290,L%,"mag3",F%-2,I%-2,2:�
+�b%>199ș46,290,L%,"mag2",F%-4,I%-4,2:�
!*�b%>99ș46,290,L%,"mag1",F%-4,I%-4,2:�
"*�b%>-1ș46,290,L%,"mag0",F%-6,I%-6,2:�
#*�b%<0ș46,290,L%,"mag-1",F%-6,I%-6,2:�
$�
%w��K1:�3600,0:�23,6,136|:ș&400e6,128+8:�d%=0�360�10:B=�(d%):C=0:�N(B,C,O0):F%=3600-�(B)*10:I%=�(C)*10:�55,F%,I%:�:�
&6��G(B,C,Q%,u0%):F%=3600-B/24:I%=C*10:�5:�0,0:ȎQ%�
'?�0:ș46,290,L%,"sun",F%-14,I%-14,8:�u0%:�F%+14,I%+28:�"Sun"
(F�1:ș46,290,L%,"smmercury",F%-6,I%-6,8:�u0%:�F%+4,I%+18:�"Mercury"
)B�2:ș46,290,L%,"smvenus",F%-6,I%-6,8:�u0%:�F%+4,I%+18:�"Venus"
*@�4:ș46,290,L%,"smmars",F%-6,I%-6,8:�u0%:�F%+4,I%+18:�"Mars"
+F�5:ș46,290,L%,"smjupiter",F%-6,I%-6,8:�u0%:�F%+4,I%+18:�"Jupiter"
,E�6:ș46,290,L%,"smsaturn",F%-12,I%-6,8:�u0%:�F%+4,I%+18:�"Saturn"
-D�7:ș46,290,L%,"smuranus",F%-6,I%-6,8:�u0%:�F%+4,I%+18:�"Uranus"
.F�8:ș46,290,L%,"smneptune",F%-6,I%-6,8:�u0%:�F%+4,I%+18:�"Neptune"
/B�9:ș46,290,L%,"smpluto",F%-4,I%-4,8:�u0%:�F%+4,I%+16:�"Pluto"
0B�10:ș46,290,L%,"moon",F%-14,I%-14,8:�u0%:�F%+14,I%+28:�"Moon"
1?�11:ș&400e6,142:�F%,I%:�147,10,0:�u0%:�F%+8,I%-10:�"Umbra"
2�:�
3f��k:�V3%:ȔV3%,s%:ș46,316,L%,"equatorial",0�z%,o%,D0%,F0%:A0%=�:ȑ0,300:�S2%�G(z1,j1/3600,9,�):�L
4 �q1%�G(r1,K2/3600,8,�):�L
5 �H2%�G(v1,S2/3600,7,�):�L
6 �O2%�G(A2,L2/3600,6,�):�L
7 �C2%�G(J2,H2/3600,5,�):�L
8 �B2%�G(F2,I2/3600,4,�):�L
9�d%=0�2:ȎX%(d%)�
:!�0:�n2%�G(M0,m0/3600,0,�):�H0
; �1:�Q2%�G(C2,m1/3600,1,�):�L
< �2:�p1%�G(P2,M2/3600,2,�):�L
=#�:�:�c2%�G(I0,L0/3600,10,�):�H0
> �I2%�G(m,i0/3600,11,�):�L
?'A0%=�:ș46,z%,o%,D0%,F0%:ȔV3%,s%:�
@ ��L:�y%�
A2ș&400d1,T0%,2*F%-24,2*I%-620,2*F%+28,2*I%-576
B,�:ș&400d1,T0%,F%-12,I%-310,F%+14,I%-288
C�:�
D
��H0:�y%�
E2ș&400d1,T0%,2*F%-32,2*I%-628,2*F%+32,2*I%-570
F,�:ș&400d1,T0%,F%-16,I%-314,F%+16,I%-284
G�:�
H;��d1:�5:ș&400e6,11:�f0%=1�88:I%=10*U%(f0%-1):�I%<350�
I8F%=10*S%(f0%-1):�F%,I%+16:�H$(f0%),�H$(f0%),"(")-1)
J �:�:�
K��j0(y%):�y%�
LFș&400ed,256,L%,"mag0",,,,h0%,P1%:h0%!0=h0%!0*2:h0%!4=h0%!4*2:y%=2
M,�:ș&400ed,256,L%,"mag0",,,,h0%,P1%:y%=1
NQ�:!J%=T0%:ș&400cb,,J%:J%!20=0:J%!24=0:�J%!12-J%!4>3600*y%:J%!12=J%!4+1800*y%
OEJ%!8=J%!16-600*y%:ș&400c5,,J%:�r(T0%,3600*y%,-600*y%,0,0):�y%=2�
P7!J%=T0%:ș&400cb,,J%:J%!8=J%!16-600*y%:ș&400c5,,J%
Q(�:ș&400d1,T0%,0,-600*y%,3600*y%,0:�
R&ݤh:A$=�C(X0%,2):�A$,":")�A$<>""�
S|q=�(�A$,�A$,":")-1)):A$=�A$,�A$,":")+1):q+=�(q)*�(�A$,�A$,":")-1))/60:A$=�A$,�A$,":")+1):q+=�(q)*�(�A$,�A$,":")-1))/3600
T �:q=�A$
U�:�q<-90:q=-90
V�q>90:q=90
W=q
X&ݤm:A$=�C(X0%,6):�A$,":")�A$<>""�
Y�D0=�(�A$,�A$,":")-1)):A$=�A$,�A$,":")+1):D0+=�(D0)*�(�A$,�A$,":")-1))/60:A$=�A$,�A$,":")+1):D0+=�(D0)*�(�A$,�A$,":")-1))/3600
Z �:D0=�A$
[�:�D0<-180:D0=-180
\�D0>180:D0=180
]=D0
^ݤs:=�(�C(X0%,10))
_��W:�x2%:�
`+v1%=�:�B(K%,37,v1%):�H(K%,37,�):x2%=�:�
aaݤZ(f):�J3,A:A=(f/36525)-1:J3=((46.815+(0.0006-0.00181*A)*A)*A)/3600:=�(23.43929167-J3+�P(f))
b[ݤk(f):�J3,A:A=(f/36525)-1:J3=((46.815+(0.0006-0.00181*A)*A)*A)/3600:=�(23.43929167-J3)
c�ݤP(f):�g,D,M,g0,b1,o,x,a0,I3,s0:A=f/36525:g=A*A:D=1.000021358E2*A:M=360*(D-�(D)):g0=2.796967E2+3.03E-4*g+M:G0=2*�(g0):D=1.336855232E3*A:M=360*(D-�(D)):b1=2.704342E2-1.133E-3*g+M:W0=2*�(b1):D=9.999736056E1*A:M=360*(D-�(D))
d�o=3.584758E2-1.5E-4*g+M:o=�(o):D=1.325552359E3*A:M=360*(D-�(D)):x=2.961046E2+9.192E-3*g+M:x=�(x):D=5.372616667*A:M=360*(D-�(D)):a0=2.591833E2+2.078E-3*g-M:a0=�(a0):I3=2*a0:s0=(9.21+9.1E-4*A)*�(a0):s0=s0+(5.522E-1-2.9E-4*A)*�(G0)-9.04E-2*�(I3)
e�s0=s0+8.84E-2*�(W0)+2.16E-2*�(G0+o):s0=s0+1.83E-2*�(W0-a0)+1.13E-2*�(W0+x):s0=s0-9.3E-3*�(G0-o)-6.6E-3*�(G0-a0):J0=J0/3600:=s0/3600
f�ݤU(f):�g,D,M,g0,b1,o,x,a0,I3,J0:A=f/36525:g=A*A:D=1.000021358E2*A:M=360*(D-�(D)):g0=2.796967E2+3.03E-4*g+M:G0=2*�(g0):D=1.336855232E3*A:M=360*(D-�(D)):b1=2.704342E2-1.133E-3*g+M:W0=2*�(b1):D=9.999736056E1*A:M=360*(D-�(D))
g�o=3.584758E2-1.5E-4*g+M:o=�(o):D=1.325552359E3*A:M=360*(D-�(D)):x=2.961046E2+9.192E-3*g+M:x=�(x):D=5.372616667*A:M=360*(D-�(D)):a0=2.591833E2+2.078E-3*g-M:a0=�(a0):I3=2*a0:J0=(-17.2327-1.737E-2*A)*�(a0):J0=J0+(-1.2729-1.3E-4*A)*�(G0)+2.088E-1*�(I3)
h�J0=J0-2.037E-1*�(W0)+(1.261E-1-3.1E-4*A)*�(o):J0=J0+6.75E-2*�(x)-(4.97E-2-1.2E-4*A)*�(G0+o):J0=J0-3.42E-2*�(W0-a0)-2.61E-2*�(W0+x):J0=J0+2.14E-2*�(G0-o)-1.49E-2*�(G0-W0+x):J0=J0+1.24E-2*�(G0-a0)+1.14E-2*�(W0-x):=J0/3600
i���b(A4,X2):�M3,o2,L1:M3=2*�:o2=A4-M3*�(A4/M3):r0=o2:L1=r0-(X2*�(r0))-o2:ȕ�(L1)>1E-6:L1=L1/(1-(X2*�(r0))):r0=r0-L1:L1=r0-(X2*�(r0))-o2:�:Q4=�((1+X2)/(1-X2))*�(r0/2):q4=2*�(Q4):k4=r0:O2=q4:�
j���h(f,k,�B,�r4):A=(f/36525)+(k/8.766E5):g=A*A:D=1.000021359E2*A:M=360*(D-�(D)):L=2.7969668E2+3.025E-4*g+M:D=9.999736042E1*A:M=360*(D-�(D)):o=3.5847583E2-(1.5E-4+3.3E-6*A)*g+M:e0=1.675104E-2-4.18E-5*A-1.26E-7*g:N1=�(o):�b(N1,e0)
k�D=6.255209472E1*A:M=360*(D-�(D)):`3=�(153.25+M):D=1.251041894E2*A:M=360*(D-�(D)):S3=�(216.57+M):D=9.156766028E1*A:M=360*(D-�(D)):y=�(312.69+M):D=1.236853095E3*A:M=360*(D-�(D)):b1=�(350.74-1.44E-3*g+M):d4=�(231.19+20.2*A)
l�D=1.831353208E2*A:M=360*(D-�(D)):U4=�(353.4+M):W0=1.34E-3*�(`3)+1.54E-3*�(S3)+2E-3*�(y):W0=W0+1.79E-3*�(b1)+1.78E-3*�(d4):k1=5.43E-6*�(`3)+1.575E-5*�(S3):k1=k1+1.627E-5*�(y)+3.076E-5*�(b1):k1=k1+9.27E-6*�(U4):B=O2+�(L-o+W0)
mGr4=1.0000002*(1-e0*�(k4))+k1:ȕB<0:B+=2*�:�:ȕB>2*�:B-=2*�:�:C1=B:�
n���D0(f,k,�B,�C,�X1):A=(f/36525)+(k/8.766E5):g=A*A:o=2.732158213E1:x=3.652596407E2:d1=2.755455094E1:_1=2.953058868E1:Z1=2.721222039E1:c1=6.798363307E3:Q0=f+(k/24):o=Q0/o:x=Q0/x:d1=Q0/d1:_1=Q0/_1:Z1=Q0/Z1:c1=Q0/c1:o=360*(o-�(o)):x=360*(x-�(x))
o�d1=360*(d1-�(d1)):_1=360*(_1-�(_1)):Z1=360*(Z1-�(Z1)):c1=360*(c1-�(c1)):y1=2.70434164E2+o-(1.133E-3-1.9E-6*A)*g:H=3.58475833E2+x-(1.5E-4+3.3E-6*A)*g:F=2.96104608E2+d1+(9.192E-3+1.44E-5*A)*g:G=3.50737486E2+_1-(1.436E-3-1.9E-6*A)*g
p�J=11.250889+Z1-(3.211E-3+3E-7*A)*g:p1=2.59183275E2-c1+(2.078E-3+2.2E-6*A)*g:D=�(51.2+20.2*A):p=�(D):u=�(�(p1)):M=346.56+(132.87-9.1731E-3*A)*A:N0=3.964E-3*�(�(M)):w=�(p1+275.05-2.3*A):f4=�(w):y1=y1+2.33E-4*p+N0+1.964E-3*u:H=H-1.778E-3*p
q�F=F+8.17E-4*p+N0+2.541E-3*u:J=J+N0-2.4691E-2*u-4.328E-3*f4:G=G+2.011E-3*p+N0+1.964E-3*u:R=1-(2.495E-3+7.52E-6*A)*A:U1=R*R:y1=�(y1):H=�(H):p1=�(p1):G=�(G):J=�(J):F=�(F):L=6.28875*�(F)+1.274018*�(2*G-F):L=L+6.58309E-1*�(2*G)+2.13616E-1*�(2*F)
r�L=L-R*1.85596E-1*�(H)-1.14336E-1*�(2*J):L=L+5.8793E-2*�(2*(G-F)):L=L+5.7212E-2*R*�(2*G-H-F)+5.332E-2*�(2*G+F):L=L+4.5874E-2*R*�(2*G-H)+4.1024E-2*R*�(F-H):L=L-3.4718E-2*�(G)-R*3.0465E-2*�(H+F):L=L+1.5326E-2*�(2*(G-J))-1.2528E-2*�(2*J+F)
s�L=L-1.098E-2*�(2*J-F)+1.0674E-2*�(4*G-F):L=L+1.0034E-2*�(3*F)+8.548E-3*�(4*G-2*F):L=L-R*7.91E-3*�(H-F+2*G)-R*6.783E-3*�(2*G+H):L=L+5.162E-3*�(F-G)+R*5E-3*�(H+G):L=L+3.862E-3*�(4*G)+R*4.049E-3*�(F-H+2*G):L=L+3.996E-3*�(2*(F+G))+3.665E-3*�(2*G-3*F)
t�L=L+R*2.695E-3*�(2*F-H)+2.602E-3*�(F-2*(J+G)):L=L+R*2.396E-3*�(2*(G-F)-H)-2.349E-3*�(F+G):L=L+U1*2.249E-3*�(2*(G-H))-R*2.125E-3*�(2*F+H):L=L-U1*2.079E-3*�(2*H)+U1*2.059E-3*�(2*(G-H)-F):L=L-1.773E-3*�(F+2*(G-J))-1.595E-3*�(2*(J+G))
u�L=L+R*1.22E-3*�(4*G-H-F)-1.11E-3*�(2*(F+J)):L=L+8.92E-4*�(F-3*G)-R*8.11E-4*�(H+F+2*G):L=L+R*7.61E-4*�(4*G-H-2*F):L=L+U1*7.04E-4*�(F-2*(H+G)):L=L+R*6.93E-4*�(H-2*(F-G)):L=L+R*5.98E-4*�(2*(G-J)-H):L=L+5.5E-4*�(F+4*G)+5.38E-4*�(4*F)
v�L=L+R*5.21E-4*�(4*G-H)+4.86E-4*�(2*F-G):L=L+U1*7.17E-4*�(F-2*H):k0=y1+�(L):ȕk0<0:k0+=X:�:ȕk0>X:k0-=X:�:B=k0:O=5.128189*�(J)+2.80606E-1*�(F+J):O=O+2.77693E-1*�(F-J)+1.73238E-1*�(2*G-J):O=O+5.5413E-2*�(2*G+J-F)+4.6272E-2*�(2*G-J-F)
w�O=O+3.2573E-2*�(2*G+J)+1.7198E-2*�(2*F+J):O=O+9.267E-3*�(2*G+F-J)+8.823E-3*�(2*F-J):O=O+R*8.247E-3*�(2*G-H-J)+4.323E-3*�(2*(G-F)-J):O=O+4.2E-3*�(2*G+J+F)+R*3.372E-3*�(J-H-2*G):O=O+R*2.472E-3*�(2*G+J-H-F):O=O+R*2.222E-3*�(2*G+J-H)
x�O=O+R*2.072E-3*�(2*G-J-H-F):O=O+R*1.877E-3*�(J-H+F)+1.828E-3*�(4*G-J-F):O=O-R*1.803E-3*�(J+H)-1.75E-3*�(3*J):O=O+R*1.57E-3*�(F-H-J)-1.487E-3*�(J+G):O=O-R*1.481E-3*�(J+H+F)+R*1.417E-3*�(J-H-F):O=O+R*1.35E-3*�(J-H)+1.33E-3*�(J-G)
y�O=O+1.106E-3*�(J+3*F)+1.02E-3*�(4*G-J):O=O+8.33E-4*�(J+4*G-F)+7.81E-4*�(F-3*J):O=O+6.7E-4*�(J+4*G-2*F)+6.06E-4*�(2*G-3*J):O=O+5.97E-4*�(2*(G+F)-J):O=O+R*4.92E-4*�(2*G+F-H-J)+4.5E-4*�(2*(F-G)-J):O=O+4.39E-4*�(3*F-J)+4.23E-4*�(J+2*(G+F))
z�O=O+4.22E-4*�(2*G-J-3*F)-R*3.67E-4*�(H+J+2*G-F):O=O-R*3.53E-4*�(H+J+2*G)+3.31E-4*�(J+4*G):O=O+R*3.17E-4*�(2*G+J-H+F):O=O+U1*3.06E-4*�(2*(G-H)-J)-2.83E-4*�(F+3*J):_4=4.664E-4*�(p1):m4=7.74E-5*�(w):Y1=�(O)*(1-_4-m4):C=Y1
{�a=9.50724E-1+5.1818E-2*�(F)+9.531E-3*�(2*G-F):a=a+7.843E-3*�(2*G)+2.824E-3*�(2*F):a=a+8.57E-4*�(2*G+F)+R*5.33E-4*�(2*G-H):a=a+R*4.01E-4*�(2*G-F-H):a=a+R*3.2E-4*�(F-H)-2.71E-4*�(G):a=a-R*2.64E-4*�(H+F)-1.98E-4*�(2*J-F)
|�a=a+1.73E-4*�(3*F)+1.67E-4*�(4*G-F):a=a-R*1.11E-4*�(H)+1.03E-4*�(4*G-2*F):a=a-8.4E-5*�(2*F-2*G)-R*8.3E-5*�(2*G+H):a=a+7.9E-5*�(2*G+2*F)+7.2E-5*�(4*G):a=a+R*6.4E-5*�(2*G-H+F)-R*6.3E-5*�(2*G+H-F):a=a+R*4.1E-5*�(H+G)+R*3.5E-5*�(2*F-H)
}�a=a-3.3E-5*�(3*F-2*G)-3E-5*�(F+G):a=a-2.9E-5*�(2*(J-G))-R*2.9E-5*�(2*F+H):a=a+U1*2.6E-5*�(2*(G-H))-2.3E-5*�(2*(J-G)+F):a=a+R*1.9E-5*�(4*G-H-F):a=�(a):X1=a:�
~�ݤd:F3=�(k0-C1)*�(Y1):Y2=1.570796327-�(F3):c2=�(Y2):S1=(1.468E-1*c2*(1-5.49E-2*�(F)))/(1-1.67E-2*�(H)):S1=�-Y2-�(S1):z0=k0-C1:�z0<0:z0+=X
�z0>X:z0-=X
�$z0=�(z0)/12.2:R1=(1+�(S1))/2:=R1
��ݤf:k2=�(m0/3600):N3=�(M0/240):R3=�(L0/3600):O3=�(I0/240):l1=�(k2)*�(N3-O3):M1=�(R3)*�(k2)-�(R3)*�(k2)*�(N3-O3):X0=�(l1/M1):�M1<0:X0+=�:��M1>=0�l1<0:X0+=2*�
��X0<0:X0+=2*�
�=X0
��ݤi:A=(f-36525)/36525:i3=�(125.044522-1934.136261*A):S1=�(1.542416667):w=�((�(i3-k0)*�(S1))/(�(Y1)*�(S1)+�(Y1)*�(S1)*�(i3-k0))):w+=�((�(O0)*�(k0))/(�(O0)*�(Y1)*�(k0)-�(O0)*�(Y1))):=w
�P��g1:ș46,317,L%,"fullmoon",0�z%,o%,D0%,F0%:A0%=�:�0:ȓȐ0,0,30,30:�H1>0.03�
�W�15:�14,14:�15+16*�(X0),15+16*�(X0):�181,15+16*�(X0+�),15+16*�(X0+�):�15:�H1<0.5:�0
�#ȝȐ15,15,16,15*(0.5-H1)/0.5,X0
�b�:ș46,z%,o%,D0%,F0%:A0%=�:ș46,316,L%,"moon",0�z%,o%,D0%,F0%:A0%=�:�6:ȓȐ0,0,30,30:�H1>0.03�
�#�0,0:ș46,284,L%,"fullmoon",,,8
�'�:ș46,z%,o%,D0%,F0%:A0%=�:�b3%:�C0
��
�k��C0:�`1%,A2%,V1%,P2%:ș46,317,L%,"big_moon",0�z%,o%,D0%,F0%:A0%=�:�0:ȓȐ0,0,128,128:�15:�62,62:�X0>��
��62,0:�181,62,128
��:�62,128:�181,62,0
��:�H1<0.5:�0
���62,62:�62+120*(0.5-H1),62:�205,62,0:ș46,z%,o%,D0%,F0%:A0%=�:ș46,316,L%,"new_moon",0�z%,o%,D0%,F0%:A0%=�:�7:ȓȐ0,0,128,200:ȑ0,72:�6:�62,62:�153,60,0:�0,0:ș46,284,L%,"big_moon",,,8:ȑ0,0:�2:�62,34:�153,16,0:�62-30*�(R2),34+30*�(R2)
���1,60*�(R2),-60*�(R2):ș46,z%,o%,D0%,F0%:A0%=�:H%!0=Q1%:H%!4=1:ș&400ce,,H%:`1%=H%!8:A2%=H%!12:V1%=H%!16:P2%=H%!20:ș&400d1,Q1%,`1%,A2%,V1%,P2%:�A(Q1%,3,�(�(0.5+H1*100))+"%"):�A(Q1%,5,�(�z0)+" days "):�R1:�A(Q1%,7,�S(F4)):�A(Q1%,9,�S(i2)):�
�$��R1:�j:j=-1:R0=12+V0%:�P0%R0+=1
�+�R:i2=Z0:R0=�J(c0,j):D=R0+V0%:�P0%:D+=1
��D>24:j-=1
�
�D<24j+=1
�*�R:j=-1:R0=�J(c0,j):D=R0+V0%:�P0%:D+=1
��D>24:j-=1
�
�D<24j+=1
�*�R:j=-1:R0=�J(c0,j):D=R0+V0%:�P0%:D+=1
��D>24:j-=1
�
�D<24j+=1
�4�R:j=-1:F4=�L(c0):R0=�J(i2,j):D=R0+V0%:�P0%:D+=1
��D>24:j-=1
�
�D<24j+=1
�*�R:j=-1:R0=�J(Z0,j):D=R0+V0%:�P0%:D+=1
��D>24:j-=1
�
�D<24j+=1
�*�R:j=-1:R0=�J(Z0,j):D=R0+V0%:�P0%:D+=1
��D>24:j-=1
�
�D<24j+=1
��R:i2=�L(Z0):�
����R:�d2,k3,L3:D2=�U(f+j):�D0(f+j,R0,d2,k3,L3):P1=2.7249E-1*�(L3):v2=P1+9.8902E-3-L3:d2=d2+�(D2):�N(d2,k3,O0):�u(d2,k3,c0,Z0,o0,y0,v2):�
�z��j:M0=0:m0=0:V3=0:O0=�Z(f):�h(f,k,M0,V3):D2=�U(f):s4=�P(f):M0=�(�(M0)+D2-5.69E-3):�N(M0,m0,O0):m=M0+�:�m>2*�:m-=(2*�)
��i0=-m0:M0=240*�(M0):D%(0)=M0:m0=3600*�(m0):H%(0)=m0:F$(0)=��(V3),8)+" AU":I0=0:L0=0:X1=0:�D0(f,k,I0,L0,X1):H1=�d:I0=�(�(I0)+D2):�N(I0,L0,O0):B=�(I0)/15:�V(B,L0,A0):B=�(B*15):�n(B,L0,q,G3,X1):B=�(B)/15:�V(B,L0,A0):I0=�(B*15):I0=240*�(I0):D%(10)=I0
��L0=3600*�(L0):H%(10)=L0:h4=6378.14/�(X1):X0=�f:R2=�i:K$="Moon angle ="+�(�(R2)):e0%=�:�g1:F$(10)=�(�(h4))+" Km":C$(10)="Moon (Phase = "+�(�(H1*1000))+") Limb="+�(�X0):�G3%�(G0%�I2%)�(I0%�m1%)�
��m=�(m)/15:�V(m,i0,A0):m=�(m*15):�n(m,i0,q,G3,X1):m=�(m)/15:�V(m,i0,A0):m=�(m*15):m=240*�(m):D%(11)=m:i0=3600*�(i0):H%(11)=i0
�"�:�X0(f,k):�W%=1�7:A1%=�:ȎW%�
�!�1:�(G0%�Q2%)�(I0%�J2%):A1%=�
�!�2:�(G0%�p1%)�(I0%�l1%):A1%=�
�!�3:�(G0%�B2%)�(I0%�k1%):A1%=�
�!�4:�(G0%�C2%)�(I0%�T2%):A1%=�
�!�5:�(G0%�O2%)�(I0%�F2%):A1%=�
�!�6:�(G0%�H2%)�(I0%�L2%):A1%=�
�!�7:�(G0%�q1%)�(I0%�N2%):A1%=�
��:�G3%:A1%=�
� �A1%�
���g0(f,k,W%):l+=�(D2):D=T1+�-l:M=�(D):w=�(D):l-=(9.9387E-5*M/�(f0)):f0-=(9.9387E-5*w*�(f0)):B=l:C=f0:�N(B,C,O0):B=240*�(B):C=3600*�(C):ȎW%�
�6�1:C2=B:m1=C:D%(1)=B:H%(1)=C:F$(1)=��(x0),7)+" AU"
�6�2:P2=B:M2=C:D%(2)=B:H%(2)=C:F$(2)=��(x0),7)+" AU"
�6�3:F2=B:I2=C:D%(4)=B:H%(4)=C:F$(4)=��(x0),7)+" AU"
�6�4:J2=B:H2=C:D%(5)=B:H%(5)=C:F$(5)=��(x0),7)+" AU"
�6�5:A2=B:L2=C:D%(6)=B:H%(6)=C:F$(6)=��(x0),7)+" AU"
�6�6:v1=B:S2=C:D%(7)=B:H%(7)=C:F$(7)=��(x0),7)+" AU"
�6�7:r1=B:K2=C:D%(8)=B:H%(8)=C:F$(8)=��(x0),7)+" AU"
��
�!�:�:�G3%�(G0%�S2%)�(I0%�M2%)�
�7�O0:z1=B:j1=C:D%(9)=B:H%(9)=C:F$(9)=��(x0),7)+" AU"
���:�d%=0�2:k%=d%*20:$(S3%+k%)=F$(d%)+�(13):!(B4%+(d%*4))=S3%+k%:�:ș79,3,(0�B4%),5,,S3%,20:�d%=0�2:X%(2-d%)=(!(B4%+(d%*4))-S3%)/20:�:G3%=�:�
�4��y0(L$):�J0%:T%=�(L$):ȕ��#T%:B$=�#T%:Ȏ�B$,4)�
�!�"Plan":k%=�F(B$):J0%=0:ȎB$�
��"Mercury":J0%=1
��"Venus":J0%=2
��"Mars":J0%=3
��"Jupiter":J0%=4
��"Saturn":J0%=5
��"Uranus":J0%=6
��"Neptune":J0%=7
��"Pluto":J0%=8
��:N$(J0%)=B$
�&�"Mean":�F%=0�3:G(J0%,F%)=�F(B$):�
�&�"Peri":�F%=0�3:I(J0%,F%)=�F(B$):�
�&�"Ecce":�F%=0�3:K(J0%,F%)=�F(B$):�
�&�"Incl":�F%=0�3:H(J0%,F%)=�F(B$):�
�&�"Asce":�F%=0�3:J(J0%,F%)=�F(B$):�
��"Semi":W(J0%)=�F(B$)
��"Angu":T(J0%)=�F(B$)
��"Magn":V(J0%)=�F(B$)
� �:�:ș&2000d,0,T%:T%=0:�
�$ݤF(�B$):B$=�B$,�B$,":")+1):=�B$
�C��k0(L$):�J0%:T%=�(L$):c1%=0:ȕ��#T%�c1%<=z3%:B$=�#T%:Ȏ�B$,4)�
��"Loc=":B$(c1%)=�B$,5)
� �"Lat=":Q(c1%)=�(�B$,5))
� �"Lon=":R(c1%)=�(�B$,5))
�6�"Tim=":Q%(c1%)=�(�B$,5)):�B$,"DS"):Q%(c1%)+=1000
�
c1%+=1
ܙ�:�:ș&2000d,0,T%:T%=0:�P3%28+24*11:m%=P3%:�q(m%,"Locations",240):�F%=0�z3%:�l(B$(F%)):�:�d(m%):q=Q(0):D0=R(0):V0%=Q%(0)�1000:�Q%(0)>999:P0%=�:�P0%=�
�
X1%=P0%:�
ހ��a(C3%,k4%):�A(X0%,2,�(Q(C3%))):�A(X0%,6,�(R(C3%))):�A(X0%,10,�(Q%(C3%)�1000)):�A(X0%,17,B$(C3%)):�Q%(C3%)>999:X1%=�:�X1%=�
�#�B(X0%,12,X1%):�H(X0%,13,k4%):�
����X0(f,k):A=(f/36525)+(k/8.766E5):�W%=1�8:Y3=G(W%,1)*A:M=360*(Y3-�(Y3)):w=G(W%,0)+M+(G(W%,3)*A+G(W%,2))*A*A:ȕw>360:w-=360:�:ȕw<0:w+=360:�:B(W%,1)=w:B(W%,2)=(G(W%,1)*9.856263E-3)+(G(W%,2)+G(W%,3))/36525
�B(W%,3)=((I(W%,3)*A*I(W%,2))*A+I(W%,1))*A+I(W%,0):B(W%,4)=((K(W%,3)*A*K(W%,2))*A+K(W%,1))*A+K(W%,0):B(W%,5)=((H(W%,3)*A*H(W%,2))*A+H(W%,1))*A+H(W%,0):B(W%,6)=((J(W%,3)*A*J(W%,2))*A+J(W%,1))*A+J(W%,0):B(W%,7)=W(W%):B(W%,8)=T(W%):B(W%,9)=V(W%):�:�
���g0(f,k,J0%):b0=J0%:N2=0:C1=0:q1=0:�h(f,k,C1,q1):H=N1:F0=q1:T1=C1+�:�R1=1�2:�B2=1�8:A(B2)=�(B(B2,1)-B(B2,3)-N2*B(B2,2)):�B2:e=0:_=0:K=0:P=0:A1=0:i=0:T0=0:Ȏb0�
�
�1:�l1
�
�2:�M0
�
�3:�A1
��4:�X:�o:�q0
��5:�X:�o:�e0
��6:�X:�p:�p1
��7:�X:�p:�Y0
� b0=0
��:e0=B(b0,4)+P:N1=A(b0)+A1:�b(N1,e0):P0=(B(b0,7)+i)*(1-e0*e0)/(1+e0*�(O2)):t1=�(O2)+B(b0,3)+�(K-A1):t1=�(t1):u0=�(B(b0,6)):G2=t1-u0:D1=�(G2):t0=�(G2):h1=�(B(b0,5)):P0=P0+_:K1=D1*�(h1):d0=D1*�(h1):s1=�(K1)+T0:K1=�(s1):K0=�(d0/t0)+u0+�(e):�t0<0:K0+=�
��K0>X:K0-=X
�wY0=�(s1):w0=P0*Y0:V1=K0-T1:v0=F0*F0+P0*P0-2*F0*P0*Y0*�(V1):v0=�(v0):N2=v0*5.775518E-3:�R1=1:y3=K0:x0=v0:B4=s1:Y4=P0
� �R1:g0=�(V1):G0=�(V1):�b0>2�
� l=�(F0*g0/(w0-F0*G0))+K0
�#�:l=�(-1*w0*g0/(F0-w0*G0))+T1+�
�@�:ȕl<0:l+=X:�:ȕl>X:l-=X:�:f0=�(w0*K1*�(l-K0)/(Y0*F0*g0)):�
����l1:e=2.04E-3*�(5*A(2)-2*A(1)+2.1328E-1):e+=1.03E-3*�(2*A(2)-A(1)-2.8046):e+=9.1E-4*�(2*A(4)-A(1)-6.4582E-1):e+=7.8E-4*�(5*A(2)-3*A(1)+1.7692E-1):_=7.525E-6*�(2*A(4)-A(1)+9.25251E-1):_+=6.802E-6*�(5*A(2)-3*A(1)-4.53642)
�M_+=5.457E-6*�(2*A(2)-2*A(1)-1.24246):_+=3.569E-6*�(5*A(2)-A(1)-1.35699):�
����M0:K=7.7E-4*�(4.1406+A*2.6227):K=�(K):A1=K:e=3.13E-3*�(2*H-2*A(2)-2.587):e+=1.98E-3*�(3*H-3*A(2)+4.4768E-2):e+=1.36E-3*�(H-A(2)-2.0788):e+=9.6E-4*�(3*H-2*A(2)-2.3721):e+=8.2E-4*�(A(4)-A(2)-3.6318):_=2.2501E-5*�(2*H-2*A(2)-1.01592)
��_+=1.9045E-5*�(3*H-3*A(2)+1.61577):_+=6.887E-6*�(A(4)-A(2)-2.06106):_+=5.172E-6*�(H-A(2)-5.08065E-1):_+=3.62E-6*�(5*H-4*A(2)-1.81877):_+=3.283E-6*�(4*H-4*A(2)+1.10851):_+=3.074E-6*�(2*A(4)-2*A(2)-9.62846E-1):�
����A1:D=3*A(4)-8*A(3)+4*H:o4=�(D):j2=�(D):K=-(1.133E-2*o4+9.33E-3*j2):K=�(K):A1=K:e=7.05E-3*�(A(4)-A(3)-8.5448E-1):e+=6.07E-3*�(2*A(4)-A(3)-3.2873):e+=4.45E-3*�(2*A(4)-2*A(3)-3.3492):e+=3.88E-3*�(H-2*A(3)+3.5771E-1):e+=2.38E-3*�(H-A(3)+6.1256E-1)
��e+=2.04E-3*�(2*H-3*A(3)+2.7688):e+=1.77E-3*�(3*A(3)-A(2)-1.0053):e+=1.36E-3*�(2*H-4*A(3)+2.6894):e+=1.04E-3*�(A(4)+3.0749E-1):_=5.3227E-5*�(A(4)-A(3)+7.17864E-1):_+=5.0989E-5*�(2*A(4)-2*A(3)-1.77997):_+=3.8278E-5*�(2*A(4)-A(3)-1.71617)
��_+=1.5996E-5*�(H-A(3)-9.69618E-1):_+=1.4764E-5*�(2*H-3*A(3)+1.19768):_+=8.966E-6*�(A(4)-2*A(3)+7.61225E-1):_+=7.914E-6*�(3*A(4)-2*A(3)-2.43887):_+=7.004E-6*�(2*A(4)-3*A(3)-1.79573):_+=6.62E-6*�(H-2*A(3)+1.97575):_+=4.93E-6*�(3*A(4)-3*A(3)-1.33069)
�l_+=4.693E-6*�(3*H-5*A(3)+3.32665):_+=4.571E-6*�(2*H-4*A(3)+4.27086):_+=4.409E-6*�(3*A(4)-A(3)-2.02158):�
����X:I=A/5+0.1:F1=4.14473+5.29691E1*A:F1=F1-�(F1/(2*�))*2*�:z=4.641118+2.132991E1*A:z=z-�(z/(2*�))*2*�:t=4.250177+7.478172*A:t=t-�(t/(2*�))*2*�:g2=5*z-2*F1:Q3=2*F1-6*z+3*t:�
����o:n0=z-F1:S=�(z):Q=�(z):`=�(2*z):Y=�(2*z):Q1=�(g2):G1=�(g2):B3=�(2*g2):X3=�(Q3):d=�(n0):b=�(n0):h=�(2*n0):c=�(2*n0):C0=�(3*n0):r=�(3*n0):`1=�(4*n0):f1=�(4*n0):u2=�(5*n0):�
����q0:K=(3.31364E-1-(1.0281E-2+4.692E-3*I)*I)*Q1:K+=(3.228E-3-(6.4436E-2-2.075E-3*I)*I)*G1:K=K-(3.083E-3+(2.75E-4-4.89E-4*I)*I)*B3:K+=2.472E-3*X3+1.3619E-2*d+1.8472E-2*h:K+=6.717E-3*C0+2.775E-3*`1+6.417E-3*h*S
��K+=(7.275E-3-1.253E-3*I)*d*S+2.439E-3*C0*S:K=K-(3.5681E-2+1.208E-3*I)*d*Q-3.767E-3*c*S:K=K-(3.3839E-2+1.125E-3*I)*b*S-4.261E-3*h*Q:K+=(1.161E-3*I-6.333E-3)*b*Q+2.178E-3*Q:K=K-6.675E-3*c*Q-2.664E-3*r*Q-2.572E-3*d*`
��K=K-3.567E-3*h*`+2.094E-3*b*Y+3.342E-3*c*Y:K=�(K):P=(3606+(130-43*I)*I)*Q1+(1289-580*I)*G1:P=P-6764*d*S-1110*h*S-224*C0*S-204*S:P+=(1284+116*I)*b*S+188*c*S:P+=(1460+130*I)*d*Q+224*h*Q-817*Q:P+=6074*Q*b+992*c*Q+508*r*Q+230*f1*Q
��P+=108*u2*Q-(956+73*I)*d*`+448*h*`:P+=137*C0*`+(108*I-997)*b*`+480*c*`:P+=148*r*`+(99*I-956)*d*Y+490*h*Y:P+=158*C0*Y+179*Y+(1024+75*I)*b*Y:P=P-437*c*Y-132*r*Y:P=P*1E-7:W=(7.192E-3-3.147E-3*I)*Q1-4.344E-3*S:W+=(I*(1.97E-4*I-6.75E-4)-2.0428E-2)*G1
�W+=3.4036E-2*b*S+(7.269E-3+6.72E-4*I)*d*S:W+=5.614E-3*c*S+2.964E-3*r*S+3.7761E-2*d*Q:W+=6.158E-3*h*Q-6.603E-3*b*Q-5.356E-3*d*`:W+=2.722E-3*h*`+4.483E-3*b*`:W=W-2.642E-3*c*`+4.403E-3*d*Y:W=W-2.536E-3*h*Y+5.547E-3*b*Y-2.689E-3*c*Y:A1=K-(�(W)/B(b0,4))
hi=205*b-263*G1+693*c+312*r+147*f1+299*d*S:i+=181*c*S+204*h*Q+111*C0*Q-337*b*Q:i=i-111*c*Q:i=i*1E-6:�
���e0:Z2=�(3*z):a2=�(3*z):T4=�(4*z):M4=�(4*z):R4=�(2*g2):S4=�(5*n0):H0=t-z:P4=�(2*H0):K4=�(2*H0):r2=�(3*H0):s2=�(3*H0):K=7.581E-3*B3-7.986E-3*X3-1.48811E-1*d:K=K-(8.14181E-1-(1.815E-2-1.6714E-2*I)*I)*Q1:K=K-(1.0497E-2-(1.60906E-1-4.1E-3*I)*I)*G1
�K=K-1.5208E-2*C0-6.339E-3*`1-6.244E-3*S:K=K-1.65E-2*h*S-4.0786E-2*h:K+=(8.931E-3+2.728E-3*I)*d*S-5.775E-3*C0*S:K+=(8.1344E-2+3.206E-3*I)*b*S+1.5019E-2*c*S:K+=(8.5581E-2+2.494E-3*I)*d*Q+1.4394E-2*c*Q:K+=(2.5328E-2-3.117E-3*I)*b*Q+6.319E-3*r*Q
�K+=6.369E-3*d*`+9.156E-3*h*`+7.525E-3*r2*`:K=K-5.236E-3*b*Y-7.736E-3*c*Y-7.528E-3*s2*Y:K=�(K):P=(-7927+(2548+91*I)*I)*Q1:P+=(13381+(1226-253*I)*I)*G1+(248-121*I)*B3:P=P-(305+91*I)*R4+412*h+12415*S:P+=(390-617*I)*d*S+(165-204*I)*h*S
�P+=26599*b*S-4687*c*S-1870*r*S-821*f1*S:P=P-377*u2*S+497*K4*S+(163-611*I)*Q:P=P-12696*d*Q-4200*h*Q-1503*C0*Q-619*`1*Q:P=P-268*S4*Q-(282+1306*I)*b*Q:P+=(-86+230*I)*c*Q+461*P4*Q-350*`:P+=(2211-286*I)*d*`-2208*h*`-568*C0*`:P=P-346*`1*`-(2780+222*I)*b*`
�P+=(2022+263*I)*c*`+248*r*`+242*r2*`:P+=467*s2*`-490*Y-(2842+279*I)*d*Y:P+=(128+226*I)*h*Y+224*C0*Y:P+=(-1594+282*I)*b*Y+(2162-207*I)*c*Y:P+=561*r*Y+343*f1*Y+469*r2*Y-242*s2*Y:P=P-205*d*Z2+262*C0*Z2+208*b*a2-271*r*a2:P=P-382*r*T4-376*C0*M4:P=P*1E-7
�W=(7.7108E-2+(7.186E-3-1.533E-3*I)*I)*Q1:W=W-7.075E-3*d:W+=(4.5803E-2-(1.4766E-2+5.36E-4*I)*I)*G1:W=W-7.2586E-2*Q-7.5825E-2*d*S-2.4839E-2*h*S:W=W-8.631E-3*C0*S-1.50383E-1*b*Q:W+=2.6897E-2*c*Q+1.0053E-2*r*Q
�W=W-(1.3597E-2+1.719E-3*I)*d*`+1.1981E-2*h*Y:W=W-(7.742E-3-1.517E-3*I)*b*`:W+=(1.3586E-2-1.375E-3*I)*c*`:W=W-(1.3667E-2-1.239E-3*I)*d*Y:W+=(1.4861E-2+1.136E-3*I)*b*Y:W=W-(1.3064E-2+1.628E-3*I)*c*Y:A1=K-(�(W)/B(b0,4))
�i=572*Q1-1590*h*Q+2933*G1-647*C0*Q:i+=33629*b-344*`1*Q-3081*c+2885*b*Q:i=i-1423*r+(2172+102*I)*c*Q-671*f1:i+=296*r*Q-320*u2-267*h*`+1098*S:i=i-778*b*`-2812*d*S+495*c*`+688*h*S:i+=250*r*`-393*C0*S-856*d*Y-228*`1*S:i+=441*h*Y+2138*b*S+296*c*Y-999*c*S
�i+=211*r*Y-642*r*S-427*d*Z2-325*f1*S:i+=398*C0*Z2-890*Q+344*b*a2+2206*d*Q:i=i-427*r*a2:i=i*1E-6:T0=7.47E-4*b*S+1.069E-3*b*Q+2.108E-3*h*`:T0+=1.261E-3*c*`+1.236E-3*h*Y-2.075E-3*c*Y:T0=�(T0):�
f��p:H0=1.46205+3.81337*A:H0=H0-�(H0/(2*�))*2*�:V2=2*H0-t:O1=�(V2):B1=�(V2):o1=�(2*V2):n1=�(2*V2):�
���p1:u1=t-F1:j0=t-z:S0=H0-t:K=(8.64319E-1-1.583E-3*I)*O1:K+=(8.2222E-2-6.833E-3*I)*B1+3.6017E-2*o1:K=K-3.019E-3*n1+8.122E-3*�(Q3):K=�(K):W=1.20303E-1*O1+6.197E-3*o1:W+=(1.9472E-2-9.47E-4*I)*B1:A1=K-(�(W)/B(b0,4))
�P=(163*I-3349)*O1+20981*B1+1311*n1:P=P*1E-7:i=-3.825E-3*B1:e=(-3.8581E-2+(2.031E-3-1.91E-3*I)*I)*�(t+j0):e+=(1.0122E-2-9.88E-4*I)*�(t+j0):D=(3.4964E-2-(1.038E-3-8.68E-4*I)*I)*�(2*t+j0):e+=D+5.594E-3*�(t+3*S0)-1.4808E-2*�(u1)
�e=e-5.794E-3*�(j0)+2.347E-3*�(j0):e+=9.872E-3*�(S0)+8.803E-3*�(2*S0):e=e-4.308E-3*�(3*S0):n2=�(j0):T2=�(j0):p2=�(t):e2=�(t):s3=�(2*t):p3=�(2*t):T0=(4.58E-4*n2-6.42E-4*T2-5.17E-4*�(4*S0))*p2:T0=T0-(3.47E-4*n2+8.53E-4*T2+5.17E-4*�(4*j0))*e2
�T0+=4.03E-4*(�(2*S0)*s3+�(2*S0)*p3):T0=�(T0):_=-25948+4985*�(u1)-1230*e2+3354*T2:_+=904*�(2*S0)+894*(�(S0)-�(3*S0)):_+=(5795*e2-1165*p2+1388*p3)*n2:_+=(1351*e2+5702*p2+1388*s3)*T2:_=_*1E-6:�
���Y0:u1=H0-F1:j0=H0-z:S0=H0-t:K=(1.089E-3*I-5.89833E-1)*O1:K+=(4.658E-3*I-5.6094E-2)*B1-2.4286E-2*o1:K=�(K):W=2.4039E-2*O1-2.5303E-2*B1+6.206E-3*o1:W=W-5.992E-3*n1:A1=K-(�(W)/B(b0,4)):P=4389*O1+1129*o1+4262*B1+1089*n1:P=P*1E-7
�i=8189*B1-817*O1+781*n1:i=i*1E-6:y2=�(2*S0):x2=�(2*S0):g3=�(H0):b3=�(H0):e=-9.556E-3*�(u1)-5.178E-3*�(j0):e+=2.572E-3*y2-2.972E-3*x2*g3-2.833E-3*y2*b3:T0=3.36E-4*x2*g3+3.64E-4*y2*b3:T0=�(T0):_=-40596+4992*�(u1)+2755*�(j0)
$_+=2044*�(S0)+1051*x2:_=_*1E-6:�
���O0:e4=0.2547023:X4=e4:z3=39.81227:I4=z3:J4=17.12143:h1=J4:p4=110.3817:u0=p4:c4=224.6287:I1=c4:G4=I1-u0:D4=G4:C4=0.003923546:P3=C4:L4=232.59497-I1:`4=L4:w3%=1995:u3%=7:W3=22:_0=�(h1):d0=�(D4):f3=�(u0):n=0:Q0=0:q2=0:M3%=2000:p2%=1:f2=1.5
`�L1(_0,d0,f3,M3%,p2%,f2,n,Q0,q2,f%,V%,W1):h1=�(n):N4=�(Q0):u0=�(q2):I1=N4+u0:�I1>360:I1-=360
�I1<0:I1+=360
��H1(f,k,0,w3%,u3%,W3):D=T1+�-l:M=�(D):w=�(D):l-=(9.9387E-5*M/�(f0)):f0-=(9.9387E-5*w*�(f0)):�N(l,f0,�k(f)):�Z1(l,f0,f%,V%,W1,M3%,p2%,f2):B=240*�(l):C=3600*�(f0):�
���H1(f,k,R5%,w3%,u3%,W3):N2=0:b4=�I(w3%,u3%,W3):C1=0:q1=0:�h(f,k,C1,q1):H=N1:F0=q1:T1=C1+�:Z4=f-b4:�R1=1�2:e0=X4:N1=�(`4+P3*Z4-N2*P3):�b(N1,e0):P0=I4*(1-e0*e0)/(1+e0*�(O2)):t1=O2+�(I1):G2=t1-�(u0):D1=�(G2):t0=�(G2):U3=�(h1):K1=D1*�(U3):d0=D1*�(U3)
*s1=�(K1):K0=�(d0/t0)+�(u0):�t0<0:K0+=�
�K0>X:K0-=X
zY0=�(s1):w0=P0*Y0:V1=K0-T1:v0=F0*F0+P0*P0-2*F0*P0*Y0*�(V1):v0=�(v0):N2=v0*5.775518E-3:�R1=1:y3=K0:x0=v0:B4=�(K1):Y4=P0
!�R1:g0=�(V1):G0=�(V1):�P0<F0�
!l=�(-1*w0*g0/(F0-w0*G0))+T1+�
�:l=�(F0*g0/(w0-F0*G0))+K0
@�:ȕl<0:l+=X:�:ȕl>X:l-=X:�:f0=�(w0*K1*�(l-K0)/(Y0*F0*g0)):�
���L1(_0,d0,f3,M3%,p2%,f2,�n,�Q0,�q2,f4%,j4%,x3):q0=�I(M3%,p2%,f2)/365250:n4=�I(f4%,j4%,x3)/365250:e1=n4-q0:g=e1*e1:l2=q0*q0:c3=e1*g:a1=(471.07-6.75*q0+0.57*l2)*e1+(0.57*q0-3.37)*g:a1=a1+0.05*c3:a1=�(a1/3600):p0=32869*q0+56*l2-(8694+55*q0)*e1+3*g
�p0=�((p0/3600)+173.950833):P1=(50256.41+222.29*q0+0.26*l2)*e1:P1=P1+(111.15+0.26*q0)*g+0.1*c3:P1=p0+�(P1/3600):Y0=�(_0):_2=�(_0):T3=f3-p0:D1=�(T3):t0=�(T3):b2=�(a1):A3=�(a1):D=_2*D1:M=A3*_2*t0-b2*Y0:z2=�(D/M):�M<0:z2=z2+�
!4M=_2*A3-Y0*b2*t0:D=-b2*D1:W2=�(D/M):�M<0:W2=W2+�
"vl0=d0+W2:ȕl0<0:l0+=X:�:ȕl0>X:l0-=X:�:Q0=l0:l0=z2+P1:ȕl0<0:l0+=X:�:ȕl0>X:l0-=X:�:q2=l0:�_0<0.175:n=�(D/�(W2)):�
#/Y0=(Y0*A3)+(_2*b2*t0):n=1.570796327-�(Y0):�
$���Z1(�_0,�d0,M3%,p2%,f2,f4%,j4%,x3):l4=�I(M3%,p2%,f2):A=(l4-36525)/36525:x1=�((((0.000005*A)+0.0000839)*A+0.6406161)*A):w1=�((((0.0000051*A)+0.0003041)*A+0.6406161)*A):p0=�((((-0.0000116*A)+0.0001185)*A+0.556753)*A):y=�(x1):`0=�(w1):h0=�(p0)
%�p=�(x1):u=�(w1):N0=�(p0):D(0,0)=y*h0*`0-p*u:D(0,1)=-p*h0*`0-y*u:D(0,2)=-N0*`0:D(1,0)=y*h0*u+p*`0:D(1,1)=-p*h0*u+y*`0:D(1,2)=-N0*u:D(2,0)=y*N0:D(2,1)=-p*N0:D(2,2)=h0:H4=�I(f4%,j4%,x3):A=(H4-36525)/36525:x1=�((((0.000005*A)+0.0000839)*A+0.6406161)*A)
&�w1=�((((0.0000051*A)+0.0003041)*A+0.6406161)*A):p0=�((((-0.0000116*A)+0.0001185)*A+0.556753)*A):y=�(x1):`0=�(w1):h0=�(p0):p=�(x1):u=�(w1):N0=�(p0):F(0,0)=y*h0*`0-p*u:F(1,0)=-p*h0*`0-y*u:F(2,0)=-N0*`0:F(0,1)=y*h0*u+p*`0
'�F(1,1)=-p*h0*u+y*`0:F(2,1)=-N0*u:F(0,2)=y*N0:F(1,2)=-p*N0:F(2,2)=h0:Z3=�(d0):C(0)=�(_0)*Z3:C(1)=�(_0)*Z3:C(2)=�(d0):U()=C().F():C()=U().D():�(C(0))<1E-20:C(0)=1E-20
(*n=�(C(1)/C(0)):Q0=�(C(2)):�C(0)<0:n+=�
)*ȕn<0:n+=X:�:ȕn>X:n-=X:�:_0=n:d0=Q0:�
*���u(B,C,�c0,�Z0,�o0,�y0,v2):t3=�(�q):q3=�(�q):U2=�(C):`2=�(C):c2=�(v2):F3=�(v2):w2=-(c2+(q3*U2))/(t3*`2):�w2<-1:c0=0:Z0=-1:�
+�w2>1:c0=-1:Z0=0:�
,�j2=(U2+(c2*q3))/(F3*t3):j4=�(w2):o0=�(j2):M=�(j4)/15:D=�(B)/15:c0=24+D-M:Z0=D+M:y0=X-o0:ȕc0<0:c0+=24:�:ȕc0>24:c0-=24:�:ȕZ0<0:Z0+=24:�:ȕZ0>24:Z0-=24:�:ȕo0<X:o0+=X:�:ȕo0>X:o0-=X:�:o0=�o0:ȕy0<X:y0+=X:�:ȕy0>X:y0-=X:�:y0=�y0:�
-��c1:�_:�i:�
.��_:�O$:J%?0=3:ș7,14,J%:A$="%CE%YR%MN%DY%24%MI%SE"+�0:ș193,J%,H%,128,A$�O$:f%=�(�O$,1,4)):V%=�(�O$,5,2)):i%=�(�O$,7,2)):�
/���i:�O$:J%?0=3:ș7,14,J%:A$="%CE%YR%MN%DY%24%MI%SE"+�0:ș193,J%,H%,128,A$�O$:U0%=�(�O$,9,2)):R0%=�(�O$,11,2)):D1%=�(�O$,13,2)):�
0,��P(Q3%,c0%,I%):�f%�4=0A%(2)=29�A%(2)=28
1"i%+=Q3%:�i%>A%(V%)�V%=12:f%+=1
2 �f%�4=0A%(2)=29�A%(2)=28
3%�i%>A%(V%):V%+=1:i%=1:�V%>12:V%=1
4�i%<0�V%=1:f%-=1
5'�i%<1:V%-=1:i%=31:�V%<1:V%=12:f%-=1
6 �f%�4=0A%(2)=29�A%(2)=28
7�i%>A%(V%):i%=A%(V%)
8 V%+=c0%:�V%>12:V%=1:f%+=1
9 �f%�4=0A%(2)=29�A%(2)=28
:�V%<1:V%=12:f%-=1
; �f%�4=0A%(2)=29�A%(2)=28
<�i%>A%(V%):i%=A%(V%)
=#f%+=I%:�f%�4=0A%(2)=29�A%(2)=28
>�i%>A%(V%):i%=A%(V%)
?�
@D��T(b0%,c0%,_0%):D1%+=_0%:R0%+=c0%:U0%+=b0%:�D1%>59:D1%=0:R0%+=1
A �R0%>59:R0%=R0%�60:U0%+=1
B �U0%>23:U0%=U0%�24:�P(1,0,0)
C�D1%<0:D1%=59:R0%-=1
D �R0%<0:R0%=60+R0%:U0%-=1
E �U0%<0:U0%=U0%+24:�P(-1,0,0)
F�
Gb��M:�g:A0=�r(f%,V%,i%,U0%,R0%,D1%):V0=�(15*�_(A0)):K$=O$:e0%=�:k=U0%+R0%/60+D1%/3600:�P0%:k-=1
H k-=V0%:f=�I(f%,V%,i%):�j:�
IQ��g:X$=�" "+�(i%),2)+"/"+�" "+�(V%),2)+"/"+�(f%):�X$<>d$:�A(time%,1,X$):d$=X$
JYW$=�" "+�(U0%),2)+":"+�"0"+�(R0%),2)+":"+�"0"+�(D1%),2):�W$<>`$:�A(time%,11,W$):`$=W$
K�
L�ݤr(f%,V%,i%,U0%,R0%,u4):A=�N(f%,V%,i%)-2451545:A=A/36525:A=6.697374558+(2400.051336*A)+(25862E-9*A*A):ȕA<0:A+=24:�:ȕA>=24:A-=24:�:A=(U0%+R0%/60+u4/3600)*1.002737909+A:�P0%:A-=1
M+A-=V0%:ȕA<0:A+=24:�:ȕA>=24:A-=24:�:=A
N�ݤq(f%,V%,i%,t4):A=�N(f%,V%,i%)-2451545:A=A/36525:A=6.697374558+(2400.051336*A)+(25862E-9*A*A):ȕA<0:A+=24:�:ȕA>=24:A-=24:�:A=t4-A:ȕA<0:A+=24:�:ȕA>=24:A-=24:�:A=A*0.9972695663:�P0%:A+=1
O+A+=V0%:ȕA<0:A+=24:�:ȕA>=24:A-=24:�:=A
P0ݤN(f%,V%,i%):�V%>2:V%=V%-3:�f%=f%-1:V%=V%+9
Q-=1721103.5+�(365.25*f%)+�(30.6*V%+0.5)+i%
R5ݤI(f%,V%,W1):�i%:I3%=V%:y0%=f%:M=0:�y0%<1:y0%+=1
S�V%<3:I3%=V%+12:y0%-=1
T>i%=W1:�y0%>1582�(y0%=1582�I3%>10)�(y0%=1582�I3%=10�i%>14)�
U D=�(y0%/100):M=2-D+�(D/4)
V
�:�y0%<0�
W"w=�H((365.25*y0%)-0.75)-694025
X �:w=�(365.25*y0%)-694025
Y*�:Y2=�(30.6001*(I3%+1)):=M+w+Y2+W1-0.5
Z ݤH(a4%):=�(�(a4%))*�(a4%)
[��e:h3=f+0.5:R1%=�H(h3):i1=h3-R1%+k/24+0.5/(3600*24):R1%+=2415020:ȕi1>1:i1-=1:R1%+=1:�:ȕi1<0:i1+=1:R1%-=1:�:�R1%>2299160�
\9A%=�H((R1%-1867216.25)/36524.25):B%=R1%+1+A%-�H(A%/4)
] �:B%=R1%
^��:C%=B%+1524:D%=�H((C%-122.1)/365.25):E%=�H(365.25*D%):G%=�H((C%-E%)/30.6001):W1=C%-E%+i1-�H(30.6001*G%):i%=W1:C3=W1-i%:V%=G%-1:�G%>13.5:V%=G%-13
_ �V%>2.5�
`f%=D%-4716
a�:f%=D%-4715
b@�:U0%=C3*24:R0%=(C3*24-U0%)*60:D1%=((C3*24-U0%)*60-R0%)*60:�
c&ݤ_(A0):V0=A0+D0/15:�V0>=24:V0-=24
d�V0<0:V0+=24
e=V0
f*ݤQ(V0):�A0:A0=V0-D0/15:�A0>=24:A0-=24
g�A0<0:A0+=24
h=A0
i*ݤL(V0):�A0:A0=�Q(V0):=�q(f%,V%,i%,A0)
j�ݤJ(V0,f):�A0:A0=�Q(V0):A=�N(f%,V%,i%)-2451545+f:A=A/36525:A=6.697374558+(2400.051336*A)+(25862E-9*A*A):ȕA<0:A+=24:�:ȕA>=24:A-=24:�:A=A0-A:ȕA<0:A+=24:�:ȕA>=24:A-=24:�:=A*0.9972695663
kGݤS(Z):�b0%,c0%:b0%=Z:c0%=0.5+(Z-b0%)*60:=�(b0%)+":"+�"0"+�(c0%),2)
l��V(�B,C,A0):_0=B:i4=A0:v3=D0:D=i4+(v3/15):ȕD>24:D-=24:�:ȕD<0:D+=24:�:W4=D:D=W4-_0:ȕD>24:D-=24:�:ȕD<0:D+=24:�:n=D:B=n:�
m���n(�g4,�C,q,G3,X1):_0=g4:d0=C:l3=�(q):_3=G3:a4=X1:y=�(l3):p=�(l3):K3=�(9.96647E-1*p/y):`0=�(K3):u=�(K3):O4=(9.96647E-1*u)+(_3*p):m2=`0+(_3*y):t2=1/�(a4):a3=�(_0):U2=�(d0):`2=�(d0):D=(m2*�(_0))/((t2*`2)-(m2*a3)):V4=�(D):n=_0+V4:w3=�(n):ȕn>X:n-=X:�
n>ȕn<0:n+=X:�:Q0=�(w3*(t2*U2-O4)/(t2*`2*a3-m2)):g4=n:C=Q0:�
o���N(�B,�C,O0):u3=�(B):l1=u3*�(O0)-�(C)*�(O0):M1=�(B):B=�(l1/M1):C=�(C)*�(O0)*u3+�(C)*�(O0):C=�(C):�M1<0:B+=�:��M1>=0�l1<0:B+=2*�
p�B<0:B+=2*�
q�
rUݤO(V$):�S1%,X3%:ș8,17,V$�X3%,,,,S1%:�X3%<>1��203,"File '"+�A(V$)+"' not found!"
s=S1%
t-ݤn(L$,w4%,x4%):�S4%:S4%=�O(L$):�S4%>x4%�
u<�w("File to load is too large!","Data loading error"):=0
v�:ș8,16,L$,w4%:=S4%
w>ݤC(Y%,c%):H%!0=Y%:H%!4=c%:ș&400ce,,H%:�(H%!24�257)<>257�
x+�202,"Icon "+�c%+" not indirected!":=""
y
�:=$H%!28
zA��A(Y%,c%,U$):H%!0=Y%:H%!4=c%:ș&400ce,,H%:�(H%!24�257)<>257�
{)�202,"Icon "+�c%+" not indirected!":�
|=�:U$=�U$,H%!36-1):$H%!28=U$:H%!8=0:H%!12=0:ș&400cd,,H%:�
}D��B(Y%,c%,O5%):H%!0=Y%:H%!4=c%:H%!12=1<<21:�O5%H%!8=1<<21�H%!8=0
~ș&400cd,,H%:�
D��H(Y%,c%,k4%):H%!0=Y%:H%!4=c%:H%!12=1<<22:�k4%H%!8=1<<22�H%!8=0
�ș&400cd,,H%:�
�,ݤ`(j$,n$):�U2%:�n$="RIGHT"!H%=-1�!H%=-2
�UH%!4=0:H%!8=0:H%!12=68:H%!16=68:H%!20=&1700202a:$(H%+24)=j$:ș&400c2,,H%�U2%:=U2%
�I��z(Y%,o$,m$,l$,k$):�A(Y%,1,o$):�A(Y%,2,m$):�A(Y%,3,l$):�A(Y%,4,k$):�
�?ݤe(S$):�W4%:W4%=200:ș&400c0,W4%,&4b534154,S$�W4%,q4%:=q4%
�h��l(C$):�R2%,f2%,H$,q3%,M$,j1%,s1%:f2%=&7000021:q3%=-1:j1%=�:M$=�u(C$):s1%=�M$:�:H$=�X(C$):Ȏ�H$,2)�
��"sr":F%(d3%)=�(�D(H$))
�"�"sd":N%(d3%)=�(�D(H$)):d3%+=1
��"cr":S%(_3%)=�(�D(H$))
�"�"cd":U%(_3%)=�(�D(H$)):_3%+=1
�"�"co":Z%(L4%)=�(�D(H$)):L4%+=1
��"ti":R2%=R2%�1
��"li":R2%=R2%�2
��"sh":f2%=f2%�&400000
��"su":q3%=�Y(�D(H$))
��"wi":q3%=�p(�D(H$))
��"ic":f2%=�j(�D(H$))
��"wr":�a1(�D(H$))
�.�:�H$="":m%!0=R2%:m%!4=q3%:�(M$)>=12�j1%�
� m%!8=f2%�256:�Q0(m%,j1%,s1%)
�$�:m%!8=f2%:$(m%+12)=�M$+�(0),12)
��:m%+=24:�
�!ݤM(C$):�C$,9)="beginmenu"=�
�=�
�7ݤt(`4%,B5%):�e$:ș&400d5,,`4%,B5%,J%+256�,,,e$:=e$
�V��h1(C0%,Y1%,N3%,b4%):�`4% (C0%*28)+(Y1%*24):�Y%(C0%):�I%(C0%):�`%(N3%):�_%(N3%):�
�b��y:�k%,C$:�#p%=0:�:k%=�#p%:C$=�#p%:��M(C$)��#p%:��#p%�200,"No 'beginmenu' found in menu file"
�
�#p%=k%:�
� ��Q0(a0%,j1%,B1%):�o1%:�j1%�
�
�o1%B1%+1
��:�o1%1+�M$
�#�:a0%!12=o1%:$o1%=M$+�(0):�j1%�
�3`%(j1%)=o1%:_%(j1%)=B1%:o1%+=B1%+1:a0%!20=B1%+1
� �:o1%+=1+�M$:a0%!20=1+�M$
��:?o1%=0:a0%!16=o1%:�
�Dݤg(a0%):�M0%:M0%=1:a0%+=28:ȕ(!a0%�128)=0:a0%+=24:M0%+=1:�:=M0%
�g��x0(Y$):�C0%,u2%,C$,m%,`4%:�X1(Y$):p%=�Y$:�S0:�y:C0%=0:u2%=�:�:�K(N0%,9,75+5*C0%):C$=�#p%:�M(C$)�
�6�u2%�200,"Bad menu file, no items in menu "+�(C0%)
��C0%�d(m%)
�*C0%+=1:C$=�#p%:�q(m%,C$,Y%(C0%)):u2%=�
��:�l(C$):u2%=�
�X�:��#p%:�d(m%):ș&2000d,0,p%:p%=0:�u2%�200,"Bad menu file, no items in menu "+�(C0%)
��
�h��q(�m%,S$,k2%):$m%=�S$,12)+�(0):m%?12=7:m%?13=2:m%?14=7:m%?15=0:m%!16=k2%:m%!20=44:m%!24=0:m%+=28:�
�#��d(m%):!(m%-24)=!(m%-24)�128:�
�_ݤa(a0%):�Y1%,Z4%,P4%:Y1%=1:P4%=a0%!20+a0%!24:a0%+=28:ȕ(!a0%�128)=0:Y1%+=1:�(!a0%�2)Z4%+=1
� a0%+=24:�:�(!a0%�2)Z4%+=1
�=Y1%*P4%+Z4%*24
�6ݤj(F$):�F$=""�200,"Menu icon flag value missing!"
�
=�(F$)
�>ݤX(�J$):�k%:k%=�J$,","):�k%:J$=�J$,k%+1):=�J$,�J$,",")-1)
�=""
�*ݤu(J$):�k%:k%=�J$,","):�k%:=�J$,k%-1)
�=J$
�JݤW(V2%):�P$:P$=�(!V2%):V2%+=4:ȕ!V2%<>-1:P$+="."+�(!V2%):V2%+=4:�:=P$
�%ݤY(F$):�(F$)<1��(F$)>�(I%(),1)�
�:�200,"Can't find menu "+F$+", as referred to in:- "+H$
��:�(F$)=C0%�
�G�200,"An item in menu "+F$+" cannot have menu "+F$+" as a submenu!"
��:=I%(�(F$))
�/ݤD(F$):F$=�F$,�F$,"(")+1):=�F$,�F$,")")-1)
�Nݤp(F$):�U2%:�:�0,"Menu file error. Window variable "+F$+" not found."
�U2%=�(F$):�U2%<1�
�ș&2000d,0,p%:�
�
�:=U2%
� ��a1(F$):s1%=0:�F$,":")�
�,s1%=�(�F$,�F$,":")+1)):�(M$)>s1%s1%=�M$
�
�:s1%=�M$
��:R2%=R2%�4:j1%=�(F$):�
�7��S0:�Y1%,C$,k2%:C0%=0:m%=`4%:�y:�:C$=�#p%:�M(C$)�
�OI%(C0%+1)=`4%+(C0%*28)+(Y1%*24):C$=�#p%:C0%+=1:C$=�C$,12):Y%(C0%)=12+16*�C$
��:Y1%+=1:�C$,",")�
� k2%=12+16*�(�C$,�C$,",")-1))
��:k2%=12+16*�C$
� �:�k2%>Y%(C0%)Y%(C0%)=k2%
�
�:��#p%:�
�:��X1(Y$):�C0%,Y1%,N3%,b4%,C$:p%=�Y$:�:C$=�#p%:�M(C$)�
�C0%+=1:C$=�#p%
��:�C$,",writ")N3%+=1
��C$,",wind")b4%+=1
�
Y1%+=1
�5�:��#p%:ș&2000d,0,p%:p%=0:�h1(C0%,Y1%,N3%,b4%):�
�/��C(g3%,U4%,Z3%):�V4%:�g3%<1�g3%>�(I%(),1)�
�5�201,"Item tick error. Out of range menu number!"
� �:�U4%<0�U4%>�g(I%(g3%))�
�5�201,"Item tick error. Out of range item number!"
�/�:V4%=I%(g3%)+28+(24*U4%):�Z3%=�Z3%=1�Z3%=0
�!V4%=(!V4%�-2)�Z3%:�
�/ݤA(P$):ȕ�P$,"."):P$=�P$,�P$,".")+1):�:=P$
�7��w(b$,S$):b$=�0+�0+�0+�0+b$+�0:ș&400df,b$,18,S$:�
�]ݤl(Z$):�B1%:ș&20023,Z$+�(0),H%,-1�,,B1%:�B1%=0��0,"System variable '"+Z$+"' not found!"
�6ș&20023,Z$+�(0),H%,255,,3�,,B1%:?(H%+B1%)=13:=$H%
ܔ��s0(L%,j$,F%,I%):ș46,292,L%,j$,2,F%,I%:H%?0=1:H%?1=25:H%?2=255:H%?3=187:H%?4=187:ș7,12,H%:H%?0=2:H%?2=85:H%?3=85:H%?4=85:ș7,12,H%:*POINTER 2
��
���u0:*POINTER 1
��
�Lݤo(V$):�L%,S1%:S1%=�O(V$)+16:�L%S1%:L%!0=S1%:L%!8=16:ș46,266,L%,V$:=L%
�MݤG(V$,c$,�I5%,P5%,L%):�Y%:ș&400d9,,V$:Y%=�c(c$,I5%,P5%,L%):ș&400da:=Y%
�Oݤc(c$,�V2%,L5%,L%):�X3%,Y%:ș&400db,,J%,V2%,L5%,-1,c$,0�,,V2%,,,,X3%:�X3%�
��L%:J%!64=L%
�ș&400c1,,J%�Y%
�:�:��0,"Window "+c$+" not found in template file!":Y%=0
� �:=Y%
���r(Y%,F%,I%,A5%,z4%):�b1%,H1%,W1%,o2%,M4%,y3%:!H%=Y%:ș&400cc,,H%:b1%=H%!44+A5%:H1%=I%-I%�4:W1%=F%-F%�2:o2%=H%!56+z4%:M4%=H%!20+H%!12-H%!4:y3%=H%!24-H%!16+H%!8:�H1%>y3%H1%=y3%
��M4%>W1%W1%=M4%
�9H%!0=b1%:H%!4=H1%:H%!8=W1%:H%!12=o2%:ș&400d7,Y%,H%:�
�pݤV(S$,d%,b0%):�K$(b0%-1):D2%=0:k3%=d%:d%=d%*16+8:b0%=b0%*32:y1%=�b(S$,&ff000002,d%,b0%,100,d%,200,b0%):=y1%
�ݤb(S$,O4%,Z0%,B0%,n4%,k2%,d4%,P4%):�r4%,U2%:�r4% (1+�S$):H%!0=n4%:H%!4=d4%:H%!8=n4%+k2%:H%!12=d4%+P4%:H%!16=0:H%!20=0:H%!24=-1:�O4%=0O4%=&ff000012
�H%!28=O4%:H%?32=7:H%?33=2:H%?34=7:H%?35=1:H%?36=3:H%?37=1:H%?38=12:H%?39=0:H%!40=0:H%!44=-B0%:H%!48=Z0%:H%!52=0:H%!56=281:H%!60=24576:H%!64=1:H%?68=0:H%?69=0:H%?70=0:H%?71=0:$r4%=S$:H%!72=r4%:H%!76=-1:H%!80=�(S$)+1:H%!84=0:ș&400c1,,H%�U2%:=U2%
�1��Q(Y%,C5%):!H%=Y%:ș&400cb,,H%:�C5%:H%!28=-1
�ș&400c5,,H%:�
�N��O(f1%,U$):�v0%,b1%,H1%,W1%,o2%,r1%,U3%,F%,I%,T1%:v0%=�(K$(),1):�f1%>v0%�
�:�204,"Out of range line number in 'PROCprint_line'!":�
��:!H%=y1%:ș&400cc,,H%:b1%=H%!44:H1%=H%!48:W1%=H%!52:o2%=H%!56:r1%=o2%-f1%*32:U3%=r1%-32:f1%=(f1%+D2%)�(v0%+1):K$(f1%)=�U$,k3%):F%=H%!4-H%!20+4:I%=H%!16-H%!24+r1%-4:H%!0=y1%:H%!4=b1%:H%!8=U3%:H%!12=W1%:H%!16=r1%:ș&400e6,7:ș&400c9,,H%�T1%:ȕT1%:�
�*�F%,I%:�;K$(f1%);:ș&400ca,,H%�T1%:�:�
���i0(U$):�v0%,b1%,H1%,W1%,o2%,r1%,U3%,F%,I%,T1%:v0%=�(K$(),1):K$(D2%)=�U$,k3%):b1%=0:H1%=-(1+v0%)*32:W1%=k3%*16+8:o2%=0:ș&400eb,y1%,b1%,H1%,W1%,o2%,b1%,H1%+32:r1%=H1%+32:U3%=H1%:!H%=y1%:ș&400cc,,H%:F%=H%!4-H%!20+4:I%=H%!16-H%!24+r1%-4:H%!0=y1%
�H%!4=b1%:H%!8=U3%:H%!12=W1%:H%!16=r1%:ș&400e6,7:ș&400c9,,H%�T1%:ȕT1%:�:�F%,I%:�;K$(D2%);:ș&400ca,,H%�T1%:�:D2%=(D2%+1)�(1+v0%):�
�y��o1(J%):�v0%,N4%,i3%,F%,I%:v0%=�(K$(),1):N4%=-(J%!24+4-J%!16+J%!40)�32:i3%=-(J%!24+4-J%!16+J%!32)�32:�i3%>v0%i3%=v0%
��N4%<=v0%�
�jF%=J%!4-J%!20+4:I%=J%!40-(J%!24+4-J%!16+J%!40)�32:�f1%=N4%�i3%:�F%,I%:I%-=32:�;K$((f1%+D2%)�(v0%+1)):�
��:�
�T��l0(!H%,H%!4,H%!8,H%!12,H%!16):�T1%:ș&400c9,,H%�T1%:ȕT1%:ș&400ca,,H%�T1%:�:�
�VݤR(Y%,c%):�F%:H%!0=Y%:ș&400cb,,H%:F%=H%!4-H%!20:H%!4=c%:ș&400ce,,H%:=F%+H%!16+2
����`0(�d%):�F%,I%,`1%,V1%,A2%,P2%:�P0(F%,I%):!H%=d%:ș&400cc,,H%:`1%=H%!4:V1%=H%!12:A2%=H%!8:P2%=H%!16:H%!4=(F%-V1%+`1%)�2:H%!12=H%!4+V1%-`1%:H%!8=(I%-P2%+A2%)�2:H%!16=H%!8+P2%-A2%:!Y3%=d%:ș&400c3,,Y3%:ș&400c1,,H%+4�d%:�
����P0(�F%,�I%):�n3%:H%!0=130:H%!4=131:H%!8=-1:ș49,H%,H%+400:F%=H%!400+1:I%=H%!404+1:ș53,-1,4�,,n3%:F%=F%<<n3%:ș53,-1,5�,,n3%:I%=I%<<n3%:�
����K(Y%,c%,B1%):�`1%,A2%,V1%,P2%,l3%:H%!0=Y%:H%!4=c%:ș&400ce,,H%:`1%=H%!8:A2%=H%!12:V1%=H%!16:P2%=H%!20:l3%=`1%+B1%:ș&400c4,,H%:H%!4=Y%:H%!16=`1%+B1%:ș&400c2,,H%+4:�l3%<V1%Ȕl3%,V1%
� �l0(Y%,V1%,A2%,l3%,P2%):�
� 00000000 0d 00 01 10 f4 3e 21 72 75 6e 69 6d 61 67 65 43 |.....>!runimageC|
00000010 0d 00 02 16 f4 a9 20 41 2e 50 2e 53 65 6e 69 6f |...... A.P.Senio|
00000020 72 20 31 39 39 35 0d 00 03 27 61 33 25 3d a3 3a |r 1995...'a3%=.:|
00000030 ee 85 f6 3a f1 22 20 61 74 20 6c 69 6e 65 20 22 |...:." at line "|
00000040 3b 9e 3a c8 99 26 34 30 36 63 32 3a e0 0d 00 04 |;.:..&406c2:....|
00000050 23 c8 99 26 34 30 36 63 30 3a f2 4a 31 3a f2 50 |#..&406c0:.J1:.P|
00000060 31 3a ee 85 f2 4a 30 28 9f 2c f6 24 29 3a f2 5a |1:...J0(.,.$):.Z|
00000070 0d 00 05 dc 79 34 25 3d a4 65 28 54 24 29 3a f2 |....y4%=.e(T$):.|
00000080 56 30 3a f2 41 28 4e 30 25 2c 37 2c 22 22 29 3a |V0:.A(N0%,7,""):|
00000090 f2 7a 30 3a f2 4b 28 4e 30 25 2c 39 2c 31 30 29 |.z0:.K(N0%,9,10)|
000000a0 3a f2 41 28 4e 30 25 2c 37 2c 22 73 74 61 72 20 |:.A(N0%,7,"star |
000000b0 64 61 74 61 22 29 3a f2 54 31 3a f2 74 30 3a f2 |data"):.T1:.t0:.|
000000c0 41 28 4e 30 25 2c 37 2c 22 73 70 72 69 74 65 73 |A(N0%,7,"sprites|
000000d0 22 29 3a f2 77 30 3a f2 4b 28 4e 30 25 2c 39 2c |"):.w0:.K(N0%,9,|
000000e0 36 30 29 3a f2 64 30 3a f2 41 28 4e 30 25 2c 37 |60):.d0:.A(N0%,7|
000000f0 2c 22 77 69 6e 64 6f 77 73 22 29 3a f2 5f 31 3a |,"windows"):._1:|
00000100 f2 46 30 3a f2 41 28 4e 30 25 2c 37 2c 22 63 72 |.F0:.A(N0%,7,"cr|
00000110 6f 73 73 20 72 65 66 65 72 65 6e 63 65 73 22 29 |oss references")|
00000120 3a f2 4e 30 3a f2 4d 3a 21 4a 25 3d 4e 30 25 3a |:.N0:.M:!J%=N0%:|
00000130 c8 99 26 34 30 30 63 36 2c 2c 4a 25 3a f2 46 30 |..&400c6,,J%:.F0|
00000140 3a ee 85 f2 4a 30 28 9f 2c f6 24 29 0d 00 06 13 |:...J0(.,.$)....|
00000150 c8 99 26 34 30 36 63 31 3a f2 55 31 3a f2 5a 0d |..&406c1:.U1:.Z.|
00000160 00 07 4c dd f2 4a 31 3a ea 51 34 25 3a 51 34 25 |..L..J1:.Q4%:Q4%|
00000170 3d 33 30 37 32 3a de 4a 25 51 34 25 3a de 48 25 |=3072:.J%Q4%:.H%|
00000180 51 34 25 3a de 59 33 25 32 35 36 3a de 5f 34 25 |Q4%:.Y3%256:._4%|
00000190 33 30 37 32 3a 77 30 25 3d 5f 34 25 3a 4a 31 25 |3072:w0%=_4%:J1%|
000001a0 3d 5f 34 25 2b 33 30 37 32 3a e1 0d 00 08 cf dd |=_4%+3072:......|
000001b0 f2 7a 30 3a de 50 31 25 31 36 3a de 6a 30 25 31 |.z0:.P1%16:.j0%1|
000001c0 36 3a de 68 30 25 31 36 3a de 67 30 25 31 36 3a |6:.h0%16:.g0%16:|
000001d0 de 4e 35 25 31 36 3a 67 30 25 21 30 3d 31 31 3a |.N5%16:g0%!0=11:|
000001e0 67 30 25 21 34 3d 31 31 3a 67 30 25 21 38 3d 31 |g0%!4=11:g0%!8=1|
000001f0 35 3a 67 30 25 21 31 32 3d 31 35 3a de 56 25 28 |5:g0%!12=15:.V%(|
00000200 37 32 29 3a de 54 25 28 37 32 29 3a de 4d 28 33 |72):.T%(72):.M(3|
00000210 36 30 29 3a de 53 28 33 36 30 29 3a de 4e 28 33 |60):.S(360):.N(3|
00000220 36 30 29 3a de 50 28 33 36 30 29 3a de 53 33 25 |60):.P(360):.S3%|
00000230 38 30 3a de 42 34 25 31 36 3a de 58 25 28 33 29 |80:.B4%16:.X%(3)|
00000240 3a de 4c 25 28 33 29 3a 4c 25 28 30 29 3d 38 30 |:.L%(3):L%(0)=80|
00000250 30 3a 4c 25 28 31 29 3d 31 32 30 30 3a 4c 25 28 |0:L%(1)=1200:L%(|
00000260 32 29 3d 32 33 30 30 3a 4c 25 28 33 29 3d 33 37 |2)=2300:L%(3)=37|
00000270 35 30 3a de 41 24 28 32 34 29 0d 00 09 f4 41 24 |50:.A$(24)....A$|
00000280 28 30 29 3d 22 22 3a 41 24 28 31 29 3d 22 41 6c |(0)="":A$(1)="Al|
00000290 70 68 61 22 3a 41 24 28 32 29 3d 22 42 65 74 61 |pha":A$(2)="Beta|
000002a0 22 3a 41 24 28 33 29 3d 22 47 61 6d 6d 61 22 3a |":A$(3)="Gamma":|
000002b0 41 24 28 34 29 3d 22 44 65 6c 74 61 22 3a 41 24 |A$(4)="Delta":A$|
000002c0 28 35 29 3d 22 45 70 73 69 6c 6f 6e 22 3a 41 24 |(5)="Epsilon":A$|
000002d0 28 36 29 3d 22 5a 65 74 61 22 3a 41 24 28 37 29 |(6)="Zeta":A$(7)|
000002e0 3d 22 45 74 61 22 3a 41 24 28 38 29 3d 22 54 68 |="Eta":A$(8)="Th|
000002f0 65 74 61 22 3a 41 24 28 39 29 3d 22 49 6f 74 61 |eta":A$(9)="Iota|
00000300 22 3a 41 24 28 31 30 29 3d 22 4b 61 70 70 61 22 |":A$(10)="Kappa"|
00000310 3a 41 24 28 31 31 29 3d 22 4c 61 6d 62 64 61 22 |:A$(11)="Lambda"|
00000320 3a 41 24 28 31 32 29 3d 22 4d 75 22 3a 41 24 28 |:A$(12)="Mu":A$(|
00000330 31 33 29 3d 22 4e 75 22 3a 41 24 28 31 34 29 3d |13)="Nu":A$(14)=|
00000340 22 58 69 22 3a 41 24 28 31 35 29 3d 22 4f 6d 69 |"Xi":A$(15)="Omi|
00000350 63 72 6f 6e 22 3a 41 24 28 31 36 29 3d 22 50 69 |cron":A$(16)="Pi|
00000360 22 3a 41 24 28 31 37 29 3d 22 52 68 6f 22 0d 00 |":A$(17)="Rho"..|
00000370 0a f2 41 24 28 31 38 29 3d 22 53 69 67 6d 61 22 |..A$(18)="Sigma"|
00000380 3a 41 24 28 31 39 29 3d 22 54 61 75 22 3a 41 24 |:A$(19)="Tau":A$|
00000390 28 32 30 29 3d 22 55 70 73 69 6c 6f 6e 22 3a 41 |(20)="Upsilon":A|
000003a0 24 28 32 31 29 3d 22 50 68 69 22 3a 41 24 28 32 |$(21)="Phi":A$(2|
000003b0 32 29 3d 22 43 68 69 22 3a 41 24 28 32 33 29 3d |2)="Chi":A$(23)=|
000003c0 22 50 73 69 22 3a 41 24 28 32 34 29 3d 22 4f 6d |"Psi":A$(24)="Om|
000003d0 65 67 61 22 3a de 47 24 28 31 32 29 3a 47 24 28 |ega":.G$(12):G$(|
000003e0 31 29 3d 22 4a 61 6e 75 61 72 79 22 3a 47 24 28 |1)="January":G$(|
000003f0 32 29 3d 22 46 65 62 72 75 61 72 79 22 3a 47 24 |2)="February":G$|
00000400 28 33 29 3d 22 4d 61 72 63 68 22 3a 47 24 28 34 |(3)="March":G$(4|
00000410 29 3d 22 41 70 72 69 6c 22 3a 47 24 28 35 29 3d |)="April":G$(5)=|
00000420 22 4d 61 79 22 3a 47 24 28 36 29 3d 22 4a 75 6e |"May":G$(6)="Jun|
00000430 65 22 3a 47 24 28 37 29 3d 22 4a 75 6c 79 22 3a |e":G$(7)="July":|
00000440 47 24 28 38 29 3d 22 41 75 67 75 73 74 22 3a 47 |G$(8)="August":G|
00000450 24 28 39 29 3d 22 53 65 70 74 65 6d 62 65 72 22 |$(9)="September"|
00000460 0d 00 0b fd 47 24 28 31 30 29 3d 22 4f 63 74 6f |....G$(10)="Octo|
00000470 62 65 72 22 3a 47 24 28 31 31 29 3d 22 4e 6f 76 |ber":G$(11)="Nov|
00000480 65 6d 62 65 72 22 3a 47 24 28 31 32 29 3d 22 44 |ember":G$(12)="D|
00000490 65 63 65 6d 62 65 72 22 3a de 41 25 28 31 32 29 |ecember":.A%(12)|
000004a0 3a 41 25 28 31 29 3d 33 31 3a 41 25 28 32 29 3d |:A%(1)=31:A%(2)=|
000004b0 32 38 3a 41 25 28 33 29 3d 33 31 3a 41 25 28 34 |28:A%(3)=31:A%(4|
000004c0 29 3d 33 30 3a 41 25 28 35 29 3d 33 31 3a 41 25 |)=30:A%(5)=31:A%|
000004d0 28 36 29 3d 33 30 3a 41 25 28 37 29 3d 33 31 3a |(6)=30:A%(7)=31:|
000004e0 41 25 28 38 29 3d 33 31 3a 41 25 28 39 29 3d 33 |A%(8)=31:A%(9)=3|
000004f0 30 3a 41 25 28 31 30 29 3d 33 31 3a 41 25 28 31 |0:A%(10)=31:A%(1|
00000500 31 29 3d 33 30 3a 41 25 28 31 32 29 3d 33 31 3a |1)=30:A%(12)=31:|
00000510 de 43 24 28 31 31 29 3a 43 24 28 30 29 3d 22 47 |.C$(11):C$(0)="G|
00000520 32 20 73 74 61 72 22 3a 43 24 28 31 29 3d 22 54 |2 star":C$(1)="T|
00000530 65 72 72 65 73 74 72 69 61 6c 20 70 6c 61 6e 65 |errestrial plane|
00000540 74 22 3a 43 24 28 32 29 3d 22 54 65 72 72 65 73 |t":C$(2)="Terres|
00000550 74 72 69 61 6c 20 70 6c 61 6e 65 74 22 0d 00 0c |trial planet"...|
00000560 f7 43 24 28 33 29 3d 22 54 65 72 72 65 73 74 72 |.C$(3)="Terrestr|
00000570 69 61 6c 20 70 6c 61 6e 65 74 22 3a 43 24 28 34 |ial planet":C$(4|
00000580 29 3d 22 54 65 72 72 65 73 74 72 69 61 6c 20 70 |)="Terrestrial p|
00000590 6c 61 6e 65 74 22 3a 43 24 28 35 29 3d 22 50 6c |lanet":C$(5)="Pl|
000005a0 61 6e 65 74 20 28 47 61 73 20 67 69 61 6e 74 29 |anet (Gas giant)|
000005b0 22 3a 43 24 28 36 29 3d 22 50 6c 61 6e 65 74 20 |":C$(6)="Planet |
000005c0 28 47 61 73 20 67 69 61 6e 74 29 22 3a 43 24 28 |(Gas giant)":C$(|
000005d0 37 29 3d 22 50 6c 61 6e 65 74 20 28 47 61 73 20 |7)="Planet (Gas |
000005e0 67 69 61 6e 74 29 22 3a 43 24 28 38 29 3d 22 50 |giant)":C$(8)="P|
000005f0 6c 61 6e 65 74 20 28 47 61 73 20 67 69 61 6e 74 |lanet (Gas giant|
00000600 29 22 3a 43 24 28 39 29 3d 22 50 6c 61 6e 65 74 |)":C$(9)="Planet|
00000610 20 28 43 61 70 74 75 72 65 64 20 61 73 74 65 72 | (Captured aster|
00000620 6f 69 64 29 22 3a 43 24 28 31 30 29 3d 22 4d 6f |oid)":C$(10)="Mo|
00000630 6f 6e 22 3a 43 24 28 31 31 29 3d 22 45 61 72 74 |on":C$(11)="Eart|
00000640 68 27 73 20 73 68 61 64 64 6f 77 22 3a de 44 24 |h's shaddow":.D$|
00000650 28 31 31 29 0d 00 0d ee 44 24 28 30 29 3d 22 53 |(11)....D$(0)="S|
00000660 75 6e 22 3a 44 24 28 31 29 3d 22 4d 65 72 63 75 |un":D$(1)="Mercu|
00000670 72 79 22 3a 44 24 28 32 29 3d 22 56 65 6e 75 73 |ry":D$(2)="Venus|
00000680 22 3a 44 24 28 33 29 3d 22 45 61 72 74 68 22 3a |":D$(3)="Earth":|
00000690 44 24 28 34 29 3d 22 4d 61 72 73 22 3a 44 24 28 |D$(4)="Mars":D$(|
000006a0 35 29 3d 22 4a 75 70 69 74 65 72 22 3a 44 24 28 |5)="Jupiter":D$(|
000006b0 36 29 3d 22 53 61 74 75 72 6e 22 3a 44 24 28 37 |6)="Saturn":D$(7|
000006c0 29 3d 22 55 72 61 6e 75 73 22 3a 44 24 28 38 29 |)="Uranus":D$(8)|
000006d0 3d 22 4e 65 70 74 75 6e 65 22 3a 44 24 28 39 29 |="Neptune":D$(9)|
000006e0 3d 22 50 6c 75 74 6f 22 3a 44 24 28 31 30 29 3d |="Pluto":D$(10)=|
000006f0 22 4d 6f 6f 6e 22 3a 44 24 28 31 31 29 3d 22 55 |"Moon":D$(11)="U|
00000700 6d 62 72 61 2f 50 65 6e 75 6d 62 72 61 22 3a de |mbra/Penumbra":.|
00000710 44 25 28 31 31 29 3a de 48 25 28 31 31 29 3a de |D%(11):.H%(11):.|
00000720 46 24 28 31 31 29 3a de 49 24 28 38 29 3a 49 24 |F$(11):.I$(8):I$|
00000730 28 31 29 3d 22 4f 70 65 6e 20 43 6c 75 73 74 65 |(1)="Open Cluste|
00000740 72 22 0d 00 0e fb 49 24 28 32 29 3d 22 47 6c 6f |r"....I$(2)="Glo|
00000750 62 75 6c 61 72 20 43 6c 75 73 74 65 72 22 3a 49 |bular Cluster":I|
00000760 24 28 33 29 3d 22 43 6c 75 73 74 65 72 20 77 69 |$(3)="Cluster wi|
00000770 74 68 20 4e 65 62 75 6c 61 22 3a 49 24 28 34 29 |th Nebula":I$(4)|
00000780 3d 22 50 6c 61 6e 65 74 61 72 79 20 4e 65 62 75 |="Planetary Nebu|
00000790 6c 61 22 3a 49 24 28 35 29 3d 22 44 69 66 66 75 |la":I$(5)="Diffu|
000007a0 73 65 20 4e 65 62 75 6c 61 22 3a 49 24 28 36 29 |se Nebula":I$(6)|
000007b0 3d 22 47 61 6c 61 78 79 22 3a 49 24 28 37 29 3d |="Galaxy":I$(7)=|
000007c0 22 53 75 70 65 72 6e 6f 76 61 20 52 65 6d 6e 61 |"Supernova Remna|
000007d0 6e 74 22 3a 49 24 28 38 29 3d 22 41 73 74 65 72 |nt":I$(8)="Aster|
000007e0 69 73 6d 20 6f 66 20 73 74 61 72 73 22 3a de 4b |ism of stars":.K|
000007f0 25 28 31 31 30 29 3a de 4d 25 28 31 31 30 29 3a |%(110):.M%(110):|
00000800 de 4f 25 28 31 31 30 29 3a de 4c 24 28 33 30 29 |.O%(110):.L$(30)|
00000810 3a 7a 33 25 3d 31 30 3a de 42 24 28 31 30 29 3a |:z3%=10:.B$(10):|
00000820 de 51 28 31 30 29 3a de 52 28 31 30 29 3a de 51 |.Q(10):.R(10):.Q|
00000830 25 28 31 30 29 3a de 48 24 28 39 36 29 0d 00 0f |%(10):.H$(96)...|
00000840 fa de 4d 24 28 39 36 29 3a de 43 25 28 39 38 30 |..M$(96):.C%(980|
00000850 29 3a de 42 25 28 39 38 30 29 3a 72 25 3d 30 3a |):.B%(980):r%=0:|
00000860 de 53 25 28 39 36 29 3a de 55 25 28 39 36 29 3a |.S%(96):.U%(96):|
00000870 5f 33 25 3d 30 3a de 5a 25 28 31 30 29 3a 4c 34 |_3%=0:.Z%(10):L4|
00000880 25 3d 30 3a de 46 25 28 33 32 30 29 3a de 4e 25 |%=0:.F%(320):.N%|
00000890 28 33 32 30 29 3a 64 33 25 3d 30 3a de 4a 24 28 |(320):d3%=0:.J$(|
000008a0 33 31 30 29 3a de 4a 25 28 39 31 30 30 29 3a de |310):.J%(9100):.|
000008b0 47 25 28 39 31 30 30 29 3a de 4c 28 39 31 30 30 |G%(9100):.L(9100|
000008c0 29 3a de 4f 28 39 31 30 30 29 3a de 52 25 28 35 |):.O(9100):.R%(5|
000008d0 30 30 30 29 3a de 57 25 28 35 30 30 30 29 3a de |000):.W%(5000):.|
000008e0 50 25 28 35 30 30 30 29 3a de 42 28 38 2c 39 29 |P%(5000):.B(8,9)|
000008f0 3a de 41 28 38 29 3a de 4e 24 28 38 29 3a de 47 |:.A(8):.N$(8):.G|
00000900 28 38 2c 33 29 3a de 49 28 38 2c 33 29 3a de 4b |(8,3):.I(8,3):.K|
00000910 28 38 2c 33 29 3a de 48 28 38 2c 33 29 3a de 4a |(8,3):.H(8,3):.J|
00000920 28 38 2c 33 29 3a de 57 28 38 29 3a de 54 28 38 |(8,3):.W(8):.T(8|
00000930 29 3a de 56 28 38 29 0d 00 10 1e de 44 28 32 2c |):.V(8).....D(2,|
00000940 32 29 2c 43 28 32 29 2c 55 28 32 29 2c 46 28 32 |2),C(2),U(2),F(2|
00000950 2c 32 29 3a e1 0d 00 11 d3 dd f2 50 31 3a 67 24 |,2):.......P1:g$|
00000960 3d 22 21 41 73 74 72 6f 6e 6f 6d 79 22 3a 54 24 |="!Astronomy":T$|
00000970 3d 22 53 6b 79 5f 47 75 69 64 65 22 3a 5f 24 3d |="Sky_Guide":_$=|
00000980 22 41 6e 20 61 73 74 72 6f 6e 6f 6d 69 63 61 6c |"An astronomical|
00000990 20 67 75 69 64 65 22 3a 61 24 3d 22 a9 20 41 6c | guide":a$=". Al|
000009a0 61 6e 20 53 65 6e 69 6f 72 20 31 39 39 36 22 3a |an Senior 1996":|
000009b0 66 24 3d 22 56 65 72 73 69 6f 6e 20 30 2e 31 36 |f$="Version 0.16|
000009c0 df 2c 20 37 74 68 20 4d 61 79 20 31 39 39 36 22 |., 7th May 1996"|
000009d0 3a 44 24 3d a4 6c 28 22 4f 62 65 79 24 44 69 72 |:D$=.l("Obey$Dir|
000009e0 22 29 3a 4a 34 25 3d 30 3a 70 25 3d 30 3a 6c 34 |"):J4%=0:p%=0:l4|
000009f0 25 3d 2d 32 3a 5a 31 25 3d 34 3a 6b 30 25 3d 31 |%=-2:Z1%=4:k0%=1|
00000a00 3a 74 34 25 3d 36 34 3a 48 35 25 3d 31 36 3a 4e |:t4%=64:H5%=16:N|
00000a10 31 25 3d 32 3a 6d 34 25 3d 30 3a 4f 33 25 3d 30 |1%=2:m4%=0:O3%=0|
00000a20 3a 68 33 25 3d a3 3a e1 0d 00 12 e2 dd f2 54 31 |:h3%=.:.......T1|
00000a30 3a 54 25 3d 30 3a 41 30 25 3d a3 3a 7a 25 3d 30 |:T%=0:A0%=.:z%=0|
00000a40 3a 6f 25 3d 30 3a 44 30 25 3d 30 3a 46 30 25 3d |:o%=0:D0%=0:F0%=|
00000a50 30 3a 58 3d 32 2a af 3a 68 25 3d 35 32 30 3a 4b |0:X=2*.:h%=520:K|
00000a60 32 25 3d 31 38 30 3a 4e 25 3d 31 32 30 30 3a 52 |2%=180:N%=1200:R|
00000a70 33 25 3d 31 3a 74 31 25 3d 31 3a 5f 25 3d 30 3a |3%=1:t1%=1:_%=0:|
00000a80 60 25 3d 30 3a 5a 30 25 3d 31 32 30 30 3a 42 30 |`%=0:Z0%=1200:B0|
00000a90 25 3d 39 30 38 3a 77 32 25 3d b6 28 5a 30 25 5e |%=908:w2%=.(Z0%^|
00000aa0 32 2b 42 30 25 5e 32 29 3a f2 4b 28 4e 30 25 2c |2+B0%^2):.K(N0%,|
00000ab0 39 2c 31 30 29 3a e3 59 30 25 3d 30 b8 33 36 30 |9,10):.Y0%=0.360|
00000ac0 3a 4d 28 59 30 25 29 3d 4e 25 2a b5 28 b2 28 59 |:M(Y0%)=N%*.(.(Y|
00000ad0 30 25 2b 31 38 30 29 29 3a 53 28 59 30 25 29 3d |0%+180)):S(Y0%)=|
00000ae0 4e 25 2a 9b 28 b2 28 59 30 25 2b 31 38 30 29 29 |N%*.(.(Y0%+180))|
00000af0 3a ed 3a f2 4b 28 4e 30 25 2c 39 2c 32 30 29 3a |:.:.K(N0%,9,20):|
00000b00 e3 59 30 25 3d 30 b8 33 36 30 0d 00 13 73 4e 28 |.Y0%=0.360...sN(|
00000b10 59 30 25 29 3d b5 28 b2 28 59 30 25 2a 33 36 30 |Y0%)=.(.(Y0%*360|
00000b20 2f 32 38 38 2b 31 38 30 29 29 3a 50 28 59 30 25 |/288+180)):P(Y0%|
00000b30 29 3d 9b 28 b2 28 59 30 25 2a 33 36 30 2f 32 38 |)=.(.(Y0%*360/28|
00000b40 38 2b 31 38 30 29 29 3a ed 3a f2 4b 28 4e 30 25 |8+180)):.:.K(N0%|
00000b50 2c 39 2c 32 30 29 3a e7 77 32 25 3e 32 2a 4e 25 |,9,20):.w2%>2*N%|
00000b60 3a 72 30 25 3d 39 30 3a 8b 72 30 25 3d 9d 28 98 |:r0%=90:.r0%=.(.|
00000b70 28 77 32 25 2f 28 32 2a 4e 25 29 29 29 0d 00 14 |(w2%/(2*N%)))...|
00000b80 21 76 25 3d 4e 25 2a 9b 28 b2 28 72 30 25 2b 31 |!v%=N%*.(.(r0%+1|
00000b90 30 29 29 3a e7 76 25 3c 30 3a 76 25 3d 30 0d 00 |0)):.v%<0:v%=0..|
00000ba0 15 14 e7 76 25 3e 4e 25 2f 32 3a 76 25 3d 4e 25 |...v%>N%/2:v%=N%|
00000bb0 2f 32 0d 00 16 fc 53 25 3d 31 3a 5f 32 25 3d a3 |/2....S%=1:_2%=.|
00000bc0 3a 72 32 25 3d a3 3a 74 30 25 3d 36 3a 61 25 3d |:r2%=.:t0%=6:a%=|
00000bd0 35 3a 4d 25 3d 30 3a 4e 3d b2 28 4d 25 29 3a 50 |5:M%=0:N=.(M%):P|
00000be0 25 3d 32 2a 32 37 30 3a 46 31 25 3d a3 3a 56 3d |%=2*270:F1%=.:V=|
00000bf0 b5 28 4e 29 3a 55 3d 9b 28 4e 29 3a 6b 25 3d 9d |.(N):U=.(N):k%=.|
00000c00 28 98 28 5a 30 25 2f 32 2f 4e 25 29 29 3a 6b 25 |(.(Z0%/2/N%)):k%|
00000c10 2b 3d 61 25 3a 72 33 25 3d 2d 4e 25 2a b5 28 b2 |+=a%:r3%=-N%*.(.|
00000c20 28 6b 25 29 29 3a 67 34 25 3d 2d 72 33 25 3a 6b |(k%)):g4%=-r3%:k|
00000c30 25 3d 9d 28 98 28 42 30 25 2f 32 2f 4e 25 29 29 |%=.(.(B0%/2/N%))|
00000c40 3a 6b 25 2b 3d 32 2a 74 30 25 3a 69 31 25 3d 2d |:k%+=2*t0%:i1%=-|
00000c50 4e 25 2a b5 28 b2 28 6b 25 29 29 3a 62 32 25 3d |N%*.(.(k%)):b2%=|
00000c60 2d 69 31 25 3a 66 33 25 3d 31 3a 46 31 25 3d 32 |-i1%:f3%=1:F1%=2|
00000c70 3a 74 33 25 3d 33 3a 52 34 25 3d 34 3a 64 30 25 |:t3%=3:R4%=4:d0%|
00000c80 3d 66 33 25 3a 6e 32 25 3d b9 3a 49 32 25 3d b9 |=f3%:n2%=.:I2%=.|
00000c90 3a 63 32 25 3d b9 3a 51 32 25 3d b9 3a 70 31 25 |:c2%=.:Q2%=.:p1%|
00000ca0 3d b9 3a 42 32 25 3d b9 3a 43 32 25 3d b9 0d 00 |=.:B2%=.:C2%=...|
00000cb0 17 f6 4f 32 25 3d b9 3a 48 32 25 3d b9 3a 71 31 |..O2%=.:H2%=.:q1|
00000cc0 25 3d b9 3a 53 32 25 3d b9 3a 42 33 25 3d b9 3a |%=.:S2%=.:B3%=.:|
00000cd0 74 32 25 3d b9 3a 71 32 25 3d b9 3a 79 25 3d a3 |t2%=.:q2%=.:y%=.|
00000ce0 3a 47 30 25 3d a3 3a 47 33 25 3d b9 3a 76 33 25 |:G0%=.:G3%=.:v3%|
00000cf0 3d 30 3a 4c 33 25 3d 30 3a 6e 31 25 3d 30 3a 61 |=0:L3%=0:n1%=0:a|
00000d00 31 25 3d 30 3a 57 32 25 3d 30 3a 58 32 25 3d 30 |1%=0:W2%=0:X2%=0|
00000d10 3a 65 33 25 3d a3 3a 65 30 25 3d a3 3a 75 31 25 |:e3%=.:e0%=.:u1%|
00000d20 3d a3 3a 78 31 25 3d a3 3a 67 31 25 3d a3 3a 65 |=.:x1%=.:g1%=.:e|
00000d30 25 3d b9 3a 71 25 3d a3 3a 79 32 25 3d a3 3a 6d |%=.:q%=.:y2%=.:m|
00000d40 33 25 3d a3 3a 49 30 25 3d a3 3a 7a 32 25 3d a3 |3%=.:I0%=.:z2%=.|
00000d50 3a 55 25 3d 30 3a 4d 31 25 3d 2d 31 3a 76 3d 30 |:U%=0:M1%=-1:v=0|
00000d60 3a 73 3d 30 3a 47 31 25 3d 30 3a 43 31 25 3d 30 |:s=0:G1%=0:C1%=0|
00000d70 3a 61 32 25 3d 30 3a 60 32 25 3d 30 3a 48 30 25 |:a2%=0:`2%=0:H0%|
00000d80 3d a3 3a 62 33 25 3d a3 3a 7a 30 3d 30 3a 6c 25 |=.:b3%=.:z0=0:l%|
00000d90 3d 31 3a 65 32 25 3d b9 3a 4b 35 25 3d a3 3a 69 |=1:e2%=.:K5%=.:i|
00000da0 32 25 3d b9 0d 00 18 eb 47 32 25 3d b9 3a 73 30 |2%=.....G2%=.:s0|
00000db0 25 3d b9 3a 63 33 25 3d a3 3a 6a 25 3d a3 3a 6e |%=.:c3%=.:j%=.:n|
00000dc0 25 3d a3 3a 4f 25 3d 30 3a 6d 32 25 3d 30 3a 78 |%=.:O%=0:m2%=0:x|
00000dd0 30 25 3d b9 3a 73 25 3d a3 3a 7a 31 25 3d a3 3a |0%=.:s%=.:z1%=.:|
00000de0 41 33 25 3d a3 3a 6c 32 25 3d a3 3a 64 32 25 3d |A3%=.:l2%=.:d2%=|
00000df0 b9 3a 59 32 25 3d b9 3a 4a 32 25 3d b9 3a 6c 31 |.:Y2%=.:J2%=.:l1|
00000e00 25 3d b9 3a 6b 31 25 3d b9 3a 54 32 25 3d b9 3a |%=.:k1%=.:T2%=.:|
00000e10 46 32 25 3d b9 3a 4c 32 25 3d b9 3a 4e 32 25 3d |F2%=.:L2%=.:N2%=|
00000e20 b9 3a 4d 32 25 3d b9 3a 6d 31 25 3d b9 3a 75 25 |.:M2%=.:m1%=.:u%|
00000e30 3d 30 3a 47 33 3d 33 30 2f 36 33 37 38 31 34 30 |=0:G3=30/6378140|
00000e40 3a 71 3d 35 32 3a 44 30 3d 2d 32 3a 58 31 25 3d |:q=52:D0=-2:X1%=|
00000e50 a3 3a 69 24 3d 22 48 6f 6d 65 22 3a 70 33 25 3d |.:i$="Home":p3%=|
00000e60 30 3a 54 33 25 3d 30 3a 50 30 25 3d a3 3a 56 30 |0:T3%=0:P0%=.:V0|
00000e70 25 3d 30 3a 76 31 25 3d a3 3a 78 32 25 3d a3 3a |%=0:v1%=.:x2%=.:|
00000e80 f2 63 31 3a 64 24 3d 22 22 3a 60 24 3d 22 22 0d |.c1:d$="":`$="".|
00000e90 00 19 fb f2 4e 31 28 44 24 2b 22 2e 44 61 74 61 |....N1(D$+".Data|
00000ea0 2e 53 74 61 72 44 61 74 61 22 29 3a f2 4b 28 4e |.StarData"):.K(N|
00000eb0 30 25 2c 39 2c 33 30 29 3a f2 41 28 4e 30 25 2c |0%,9,30):.A(N0%,|
00000ec0 37 2c 22 63 6f 6e 73 74 65 6c 6c 61 74 69 6f 6e |7,"constellation|
00000ed0 73 22 29 3a f2 6a 31 28 44 24 2b 22 2e 44 61 74 |s"):.j1(D$+".Dat|
00000ee0 61 2e 53 74 61 72 4e 61 6d 65 73 22 29 3a f2 6b |a.StarNames"):.k|
00000ef0 31 28 44 24 2b 22 2e 44 61 74 61 2e 43 6f 6e 73 |1(D$+".Data.Cons|
00000f00 74 47 65 6e 69 74 22 29 3a f2 51 31 28 44 24 2b |tGenit"):.Q1(D$+|
00000f10 22 2e 44 61 74 61 2e 43 6f 6e 73 74 4e 61 6d 65 |".Data.ConstName|
00000f20 73 22 29 3a f2 4b 28 4e 30 25 2c 39 2c 34 30 29 |s"):.K(N0%,9,40)|
00000f30 3a f2 49 31 28 44 24 2b 22 2e 44 61 74 61 2e 43 |:.I1(D$+".Data.C|
00000f40 6f 6e 73 74 4c 69 6e 65 73 22 29 3a f2 61 30 28 |onstLines"):.a0(|
00000f50 44 24 2b 22 2e 44 61 74 61 2e 4d 65 73 73 5f 4d |D$+".Data.Mess_M|
00000f60 61 70 22 29 3a f2 79 30 28 44 24 2b 22 2e 44 61 |ap"):.y0(D$+".Da|
00000f70 74 61 2e 50 6c 61 6e 65 74 45 6c 22 29 3a f2 4b |ta.PlanetEl"):.K|
00000f80 28 4e 30 25 2c 39 2c 35 30 29 0d 00 1a 31 f2 6b |(N0%,9,50)...1.k|
00000f90 30 28 44 24 2b 22 2e 44 61 74 61 2e 4c 6f 63 61 |0(D$+".Data.Loca|
00000fa0 74 69 6f 6e 73 22 29 3a 76 34 25 3d 30 3a 73 34 |tions"):v4%=0:s4|
00000fb0 25 3d 30 3a 47 35 25 3d 30 3a e1 0d 00 1b 1d dd |%=0:G5%=0:......|
00000fc0 f2 74 30 3a 46 35 25 3d a4 60 28 67 24 2c 22 52 |.t0:F5%=.`(g$,"R|
00000fd0 49 47 48 54 22 29 3a e1 0d 00 1c cd dd f2 77 30 |IGHT"):.......w0|
00000fe0 3a 4c 25 3d a4 6f 28 44 24 2b 22 2e 52 65 73 6f |:L%=.o(D$+".Reso|
00000ff0 75 72 63 65 73 2e 53 70 72 69 74 65 73 22 29 3a |urces.Sprites"):|
00001000 c8 99 26 34 30 30 65 64 2c 32 35 36 2c 4c 25 2c |..&400ed,256,L%,|
00001010 22 6d 61 67 30 22 2c 2c 2c 2c 6a 30 25 2c 50 31 |"mag0",,,,j0%,P1|
00001020 25 3a c8 99 26 34 30 30 65 64 2c 32 35 36 2c 4c |%:..&400ed,256,L|
00001030 25 2c 22 6d 61 67 30 22 2c 2c 2c 2c 68 30 25 2c |%,"mag0",,,,h0%,|
00001040 50 31 25 3a c8 99 26 34 30 30 65 64 2c 32 35 36 |P1%:..&400ed,256|
00001050 2c 4c 25 2c 22 6d 61 67 30 22 2c 2c 2c 2c 67 30 |,L%,"mag0",,,,g0|
00001060 25 2c 4e 35 25 3a 67 30 25 21 30 3d 67 30 25 21 |%,N5%:g0%!0=g0%!|
00001070 30 2a 31 31 3a 67 30 25 21 34 3d 67 30 25 21 34 |0*11:g0%!4=g0%!4|
00001080 2a 31 31 3a 67 30 25 21 38 3d 67 30 25 21 38 2a |*11:g0%!8=g0%!8*|
00001090 31 35 3a 67 30 25 21 31 32 3d 67 30 25 21 31 32 |15:g0%!12=g0%!12|
000010a0 2a 31 35 3a e1 0d 00 1d ea dd f2 64 30 3a 69 6e |*15:.......d0:in|
000010b0 66 6f 25 3d a4 47 28 44 24 2b 22 2e 52 65 73 6f |fo%=.G(D$+".Reso|
000010c0 75 72 63 65 73 2e 54 65 6d 70 6c 61 74 65 73 22 |urces.Templates"|
000010d0 2c 22 69 6e 66 6f 25 22 2c 77 30 25 2c 4a 31 25 |,"info%",w0%,J1%|
000010e0 2c 30 29 3a 4b 25 3d a4 47 28 44 24 2b 22 2e 52 |,0):K%=.G(D$+".R|
000010f0 65 73 6f 75 72 63 65 73 2e 54 65 6d 70 6c 61 74 |esources.Templat|
00001100 65 73 22 2c 22 62 75 74 74 6f 6e 5f 62 61 72 25 |es","button_bar%|
00001110 22 2c 77 30 25 2c 4a 31 25 2c 4c 25 29 3a 58 25 |",w0%,J1%,L%):X%|
00001120 3d a4 47 28 44 24 2b 22 2e 52 65 73 6f 75 72 63 |=.G(D$+".Resourc|
00001130 65 73 2e 54 65 6d 70 6c 61 74 65 73 22 2c 22 6f |es.Templates","o|
00001140 62 6a 65 63 74 69 6e 66 6f 25 22 2c 77 30 25 2c |bjectinfo%",w0%,|
00001150 4a 31 25 2c 30 29 3a 77 25 3d a4 47 28 44 24 2b |J1%,0):w%=.G(D$+|
00001160 22 2e 52 65 73 6f 75 72 63 65 73 2e 54 65 6d 70 |".Resources.Temp|
00001170 6c 61 74 65 73 22 2c 22 73 74 61 72 77 69 6e 64 |lates","starwind|
00001180 6f 77 25 22 2c 77 30 25 2c 4a 31 25 2c 30 29 0d |ow%",w0%,J1%,0).|
00001190 00 1e e7 54 30 25 3d a4 47 28 44 24 2b 22 2e 52 |...T0%=.G(D$+".R|
000011a0 65 73 6f 75 72 63 65 73 2e 54 65 6d 70 6c 61 74 |esources.Templat|
000011b0 65 73 22 2c 22 65 71 75 61 77 69 6e 64 6f 77 25 |es","equawindow%|
000011c0 22 2c 77 30 25 2c 4a 31 25 2c 30 29 3a 74 69 6d |",w0%,J1%,0):tim|
000011d0 65 25 3d a4 47 28 44 24 2b 22 2e 52 65 73 6f 75 |e%=.G(D$+".Resou|
000011e0 72 63 65 73 2e 54 65 6d 70 6c 61 74 65 73 22 2c |rces.Templates",|
000011f0 22 74 69 6d 65 25 22 2c 77 30 25 2c 4a 31 25 2c |"time%",w0%,J1%,|
00001200 4c 25 29 3a 58 30 25 3d a4 47 28 44 24 2b 22 2e |L%):X0%=.G(D$+".|
00001210 52 65 73 6f 75 72 63 65 73 2e 54 65 6d 70 6c 61 |Resources.Templa|
00001220 74 65 73 22 2c 22 70 6f 73 69 74 69 6f 6e 25 22 |tes","position%"|
00001230 2c 77 30 25 2c 4a 31 25 2c 4c 25 29 3a 51 31 25 |,w0%,J1%,L%):Q1%|
00001240 3d a4 47 28 44 24 2b 22 2e 52 65 73 6f 75 72 63 |=.G(D$+".Resourc|
00001250 65 73 2e 54 65 6d 70 6c 61 74 65 73 22 2c 22 6d |es.Templates","m|
00001260 6f 6f 6e 70 68 61 73 65 25 22 2c 77 30 25 2c 4a |oonphase%",w0%,J|
00001270 31 25 2c 4c 25 29 0d 00 1f f9 f2 41 28 4b 25 2c |1%,L%).....A(K%,|
00001280 31 31 2c c3 28 28 32 34 2d 50 25 2f 33 30 29 83 |11,.((24-P%/30).|
00001290 32 34 29 29 3a f2 41 28 4b 25 2c 31 33 2c c3 28 |24)):.A(K%,13,.(|
000012a0 4d 25 29 29 3a f2 42 28 4b 25 2c 30 2c 47 32 25 |M%)):.B(K%,0,G2%|
000012b0 29 3a f2 42 28 4b 25 2c 32 2c 65 32 25 29 3a f2 |):.B(K%,2,e2%):.|
000012c0 42 28 4b 25 2c 33 2c 69 32 25 29 3a f2 42 28 4b |B(K%,3,i2%):.B(K|
000012d0 25 2c 31 37 2c 73 30 25 29 3a f2 42 28 4b 25 2c |%,17,s0%):.B(K%,|
000012e0 35 2c 6e 25 29 3a f2 42 28 4b 25 2c 34 2c 78 30 |5,n%):.B(K%,4,x0|
000012f0 25 29 3a f2 42 28 4b 25 2c 36 2c 6a 25 29 3a f2 |%):.B(K%,6,j%):.|
00001300 42 28 4b 25 2c 37 2c ac 46 31 25 29 3a f2 42 28 |B(K%,7,.F1%):.B(|
00001310 4b 25 2c 38 2c 46 31 25 29 3a f2 42 28 4b 25 2c |K%,8,F1%):.B(K%,|
00001320 32 37 2b 74 31 25 2c b9 29 3a f2 48 28 4b 25 2c |27+t1%,.):.H(K%,|
00001330 35 2c ac 48 30 25 29 3a f2 48 28 4b 25 2c 36 2c |5,.H0%):.H(K%,6,|
00001340 ac 48 30 25 29 3a f2 48 28 4b 25 2c 38 2c b9 29 |.H0%):.H(K%,8,.)|
00001350 3a f2 41 28 4b 25 2c 31 39 2c a4 4b 28 68 25 29 |:.A(K%,19,.K(h%)|
00001360 29 3a f2 41 28 4b 25 2c 32 34 2c 22 30 22 29 0d |):.A(K%,24,"0").|
00001370 00 20 0f f2 61 28 54 33 25 2c b9 29 3a e1 0d 00 |. ..a(T3%,.):...|
00001380 21 2d dd f2 5f 31 3a 60 33 25 3d a4 56 28 22 4f |!-.._1:`3%=.V("O|
00001390 62 6a 65 63 74 20 69 6e 66 6f 72 6d 61 74 69 6f |bject informatio|
000013a0 6e 22 2c 34 30 2c 32 30 29 3a e1 0d 00 22 20 dd |n",40,20):..." .|
000013b0 f2 46 30 3a f2 7a 28 69 6e 66 6f 25 2c 54 24 2c |.F0:.z(info%,T$,|
000013c0 5f 24 2c 61 24 2c 66 24 29 3a e1 0d 00 23 25 dd |_$,a$,f$):...#%.|
000013d0 f2 4e 30 3a f2 78 30 28 44 24 2b 22 2e 52 65 73 |.N0:.x0(D$+".Res|
000013e0 6f 75 72 63 65 73 2e 6d 65 6e 75 73 22 29 3a e1 |ources.menus"):.|
000013f0 0d 00 24 93 dd f2 56 30 3a ea 59 34 25 3a 4e 30 |..$...V0:.Y4%:N0|
00001400 25 3d a4 47 28 44 24 2b 22 2e 52 65 73 6f 75 72 |%=.G(D$+".Resour|
00001410 63 65 73 2e 54 65 6d 70 6c 61 74 65 73 22 2c 22 |ces.Templates","|
00001420 72 75 6e 75 70 22 2c 77 30 25 2c 4a 31 25 2c 30 |runup",w0%,J1%,0|
00001430 29 3a f2 60 30 28 4e 30 25 29 3a 21 48 25 3d 4e |):.`0(N0%):!H%=N|
00001440 30 25 3a c8 99 26 34 30 30 63 35 2c 2c 48 25 3a |0%:..&400c5,,H%:|
00001450 c8 99 26 34 30 30 63 38 2c 2c 48 25 b8 59 34 25 |..&400c8,,H%.Y4%|
00001460 3a c8 95 59 34 25 3a c8 99 26 34 30 30 63 61 2c |:..Y4%:..&400ca,|
00001470 2c 48 25 b8 59 34 25 3a ce 3a 77 30 25 3d 5f 34 |,H%.Y4%:.:w0%=_4|
00001480 25 3a e1 0d 00 25 29 dd f2 55 31 3a f5 3a c8 99 |%:...%)..U1:.:..|
00001490 26 34 30 30 65 31 2c 6d 34 25 2c 4a 25 2c 4f 33 |&400e1,m4%,J%,O3|
000014a0 25 b8 63 34 25 3a c8 8e 63 34 25 ca 0d 00 26 0a |%.c4%:..c4%...&.|
000014b0 c9 30 3a f2 4f 31 0d 00 27 0a c9 31 3a f2 53 31 |.0:.O1..'..1:.S1|
000014c0 0d 00 28 17 c9 32 3a 68 32 25 3d 21 4a 25 3a f2 |..(..2:h2%=!J%:.|
000014d0 65 31 28 68 32 25 29 0d 00 29 16 c9 33 3a 68 32 |e1(h2%)..)..3:h2|
000014e0 25 3d 21 4a 25 3a f2 63 28 68 32 25 29 0d 00 2a |%=!J%:.c(h2%)..*|
000014f0 0a c9 34 3a f2 69 31 0d 00 2b 0a c9 35 3a f2 71 |..4:.i1..+..5:.q|
00001500 31 0d 00 2c 0a c9 36 3a f2 66 30 0d 00 2d 0a c9 |1..,..6:.f0..-..|
00001510 37 3a f2 72 30 0d 00 2e 0a c9 38 3a f2 68 30 0d |7:.r0.....8:.h0.|
00001520 00 2f 0a c9 39 3a f2 43 31 0d 00 30 0b c9 31 30 |./..9:.C1..0..10|
00001530 3a f2 6e 30 0d 00 31 0b c9 31 31 3a f2 66 31 0d |:.n0..1..11:.f1.|
00001540 00 32 0b c9 31 32 3a f2 6d 30 0d 00 33 0a c9 31 |.2..12:.m0..3..1|
00001550 37 3a f2 76 0d 00 34 0a c9 31 38 3a f2 76 0d 00 |7:.v..4..18:.v..|
00001560 35 0b c9 31 39 3a f2 62 31 0d 00 36 0f cb 3a fd |5..19:.b1..6..:.|
00001570 68 33 25 3a f2 5a 3a e1 0d 00 37 1e dd f2 4f 31 |h3%:.Z:...7...O1|
00001580 3a c8 99 36 36 b8 4f 33 25 3a 4f 33 25 2b 3d 35 |:..66.O3%:O3%+=5|
00001590 3a e7 76 31 25 8c 0d 00 38 0d e7 49 30 25 84 47 |:.v1%...8..I0%.G|
000015a0 30 25 8c 0d 00 39 17 6b 25 3d 52 30 25 3a f2 69 |0%...9.k%=R0%:.i|
000015b0 3a e7 52 30 25 3c 3e 6b 25 8c 0d 00 3a 1e 61 32 |:.R0%<>k%...:.a2|
000015c0 25 3d 30 3a 60 32 25 3d 30 3a 4d 31 25 3d 30 3a |%=0:`2%=0:M1%=0:|
000015d0 f2 5f 3a f2 4d 3a f2 44 0d 00 3b 05 cd 0d 00 3c |._:.M:.D..;....<|
000015e0 05 cd 0d 00 3d 0b cd 3a e7 6d 33 25 8c 0d 00 3e |....=..:.m3%...>|
000015f0 09 e7 49 30 25 8c 0d 00 3f 15 f2 53 28 b9 29 3a |..I0%...?..S(.):|
00001600 f2 53 28 a3 29 3a 6d 33 25 3d a3 0d 00 40 05 cd |.S(.):m3%=...@..|
00001610 0d 00 41 12 cd 3a e7 7a 32 25 80 6e 25 80 48 30 |..A..:.z2%.n%.H0|
00001620 25 8c 0d 00 42 2d 4d 35 25 3d 55 25 3a c8 99 26 |%...B-M5%=U%:..&|
00001630 34 30 30 63 66 2c 2c 4a 25 3a 69 30 25 3d 4a 25 |400cf,,J%:i0%=J%|
00001640 21 30 3a 60 30 25 3d 4a 25 21 34 3a f2 42 30 0d |!0:`0%=J%!4:.B0.|
00001650 00 43 0a cd 3a e7 75 25 8c 0d 00 44 22 6b 2b 3d |.C..:.u%...D"k+=|
00001660 75 25 2a bb 28 a4 43 28 74 69 6d 65 25 2c 32 38 |u%*.(.C(time%,28|
00001670 29 29 3a e7 50 30 25 6b 2b 3d 31 0d 00 45 33 6b |)):.P0%k+=1..E3k|
00001680 2b 3d 56 30 25 3a 66 2b 3d 75 25 2a bb 28 a4 43 |+=V0%:f+=u%*.(.C|
00001690 28 74 69 6d 65 25 2c 32 39 29 29 3a f2 65 3a f2 |(time%,29)):.e:.|
000016a0 4d 3a e7 49 30 25 3a e7 65 25 3a f2 6d 31 0d 00 |M:.I0%:.e%:.m1..|
000016b0 46 0b e7 47 30 25 3a f2 6b 0d 00 47 18 cd 3a e7 |F..G0%:.k..G..:.|
000016c0 65 30 25 3a f2 69 30 28 4b 24 29 3a 65 30 25 3d |e0%:.i0(K$):e0%=|
000016d0 a3 0d 00 48 05 e1 0d 00 49 54 dd f2 53 31 3a ea |...H....IT..S1:.|
000016e0 49 34 25 2c 48 34 25 3a c8 99 26 34 30 30 63 38 |I4%,H4%:..&400c8|
000016f0 2c 2c 4a 25 b8 48 34 25 3a 46 25 3d 4a 25 21 34 |,,J%.H4%:F%=J%!4|
00001700 2d 4a 25 21 32 30 3a 49 25 3d 4a 25 21 31 36 2d |-J%!20:I%=J%!16-|
00001710 4a 25 21 32 34 3a c8 95 48 34 25 3a 49 34 25 3d |J%!24:..H4%:I4%=|
00001720 21 4a 25 3a c8 8e 49 34 25 ca 0d 00 4a 10 c9 60 |!J%:..I4%...J..`|
00001730 33 25 3a f2 6f 31 28 4a 25 29 0d 00 4b 12 c9 77 |3%:.o1(J%)..K..w|
00001740 25 3a f2 59 31 28 46 25 2c 49 25 29 0d 00 4c 13 |%:.Y1(F%,I%)..L.|
00001750 c9 54 30 25 3a f2 56 31 28 46 25 2c 49 25 29 0d |.T0%:.V1(F%,I%).|
00001760 00 4d 22 cb 3a 21 4a 25 3d 49 34 25 3a c8 99 26 |.M".:!J%=I4%:..&|
00001770 34 30 30 63 61 2c 2c 4a 25 b8 48 34 25 3a ce 3a |400ca,,J%.H4%:.:|
00001780 e1 0d 00 4e 12 dd f2 65 31 28 59 25 29 3a c8 8e |...N...e1(Y%):..|
00001790 59 25 ca 0d 00 4f 13 c9 77 25 3a f2 53 28 a3 29 |Y%...O..w%:.S(.)|
000017a0 3a 49 30 25 3d b9 0d 00 50 1b c9 54 30 25 3a c8 |:I0%=...P..T0%:.|
000017b0 99 26 34 30 30 63 35 2c 2c 4a 25 3a 47 30 25 3d |.&400c5,,J%:G0%=|
000017c0 b9 0d 00 51 44 c9 58 25 3a c8 99 26 34 30 30 63 |...QD.X%:..&400c|
000017d0 35 2c 2c 4a 25 3a 48 30 25 3d b9 3a f2 42 28 4b |5,,J%:H0%=.:.B(K|
000017e0 25 2c 63 25 2c 48 30 25 29 3a f2 48 28 4b 25 2c |%,c%,H0%):.H(K%,|
000017f0 35 2c ac 48 30 25 29 3a f2 48 28 4b 25 2c 36 2c |5,.H0%):.H(K%,6,|
00001800 ac 48 30 25 29 0d 00 52 11 7f c8 99 26 34 30 30 |.H0%)..R....&400|
00001810 63 35 2c 2c 4a 25 0d 00 53 07 cb 3a e1 0d 00 54 |c5,,J%..S..:...T|
00001820 25 dd f2 63 28 59 25 29 3a 21 4a 25 3d 59 25 3a |%..c(Y%):!J%=Y%:|
00001830 c8 99 26 34 30 30 63 36 2c 2c 4a 25 3a c8 8e 59 |..&400c6,,J%:..Y|
00001840 25 ca 0d 00 55 14 c9 77 25 3a 49 30 25 3d a3 3a |%...U..w%:I0%=.:|
00001850 f2 63 28 4b 25 29 0d 00 56 37 c9 58 25 3a 48 30 |.c(K%)..V7.X%:H0|
00001860 25 3d a3 3a f2 42 28 4b 25 2c 32 36 2c 48 30 25 |%=.:.B(K%,26,H0%|
00001870 29 3a f2 48 28 4b 25 2c 35 2c ac 48 30 25 29 3a |):.H(K%,5,.H0%):|
00001880 f2 48 28 4b 25 2c 36 2c ac 48 30 25 29 0d 00 57 |.H(K%,6,.H0%)..W|
00001890 1f c9 74 69 6d 65 25 3a e7 75 25 3e 30 3a f2 42 |..time%:.u%>0:.B|
000018a0 28 74 69 6d 65 25 2c 32 34 2c a3 29 0d 00 58 18 |(time%,24,.)..X.|
000018b0 e7 75 25 3c 30 3a f2 42 28 74 69 6d 65 25 2c 32 |.u%<0:.B(time%,2|
000018c0 33 2c a3 29 0d 00 59 19 e7 78 32 25 f2 48 28 4b |3,.)..Y..x2%.H(K|
000018d0 25 2c 33 37 2c a3 29 3a 78 32 25 3d a3 0d 00 5a |%,37,.):x2%=...Z|
000018e0 08 75 25 3d 30 0d 00 5b 0e c9 54 30 25 3a 47 30 |.u%=0..[..T0%:G0|
000018f0 25 3d a3 0d 00 5c 0e c9 51 31 25 3a 62 33 25 3d |%=...\..Q1%:b3%=|
00001900 a3 0d 00 5d 07 cb 3a e1 0d 00 5e 17 dd f2 69 31 |...]..:...^...i1|
00001910 3a e7 7a 32 25 3a f2 75 30 3a 7a 32 25 3d a3 0d |:.z2%:.u0:z2%=..|
00001920 00 5f 05 e1 0d 00 60 16 dd f2 71 31 3a 59 25 3d |._....`...q1:Y%=|
00001930 4a 25 21 30 3a c8 8e 59 25 ca 0d 00 61 28 c9 77 |J%!0:..Y%...a(.w|
00001940 25 2c 54 30 25 3a f2 73 30 28 4c 25 2c 22 73 74 |%,T0%:.s0(L%,"st|
00001950 61 72 5f 70 74 72 22 2c 36 2c 33 29 3a 7a 32 25 |ar_ptr",6,3):z2%|
00001960 3d b9 0d 00 62 07 cb 3a e1 0d 00 63 3b dd f2 66 |=...b..:...c;..f|
00001970 30 3a 69 30 25 3d 4a 25 21 30 3a 60 30 25 3d 4a |0:i0%=J%!0:`0%=J|
00001980 25 21 34 3a 55 31 25 3d 4a 25 21 38 3a 59 25 3d |%!4:U1%=J%!8:Y%=|
00001990 4a 25 21 31 32 3a 63 25 3d 4a 25 21 31 36 3a c8 |J%!12:c%=J%!16:.|
000019a0 8e 59 25 ca 0d 00 64 0c c9 6c 34 25 3a f2 5f 30 |.Y%...d..l4%:._0|
000019b0 0d 00 65 0b c9 77 25 3a f2 52 30 0d 00 66 24 c9 |..e..w%:.R0..f$.|
000019c0 69 6e 66 6f 25 3a f2 7a 28 69 6e 66 6f 25 2c 54 |info%:.z(info%,T|
000019d0 24 2c 5f 24 2c 61 24 2c c3 28 93 2d e0 29 29 0d |$,_$,a$,.(.-.)).|
000019e0 00 67 0b c9 4b 25 3a f2 4d 31 0d 00 68 0c c9 60 |.g..K%:.M1..h..`|
000019f0 33 25 3a f2 6f 30 0d 00 69 0e c9 74 69 6d 65 25 |3%:.o0..i..time%|
00001a00 3a f2 57 31 0d 00 6a 0c c9 54 30 25 3a f2 57 30 |:.W1..j..T0%:.W0|
00001a10 0d 00 6b 0c c9 58 30 25 3a f2 5a 30 0d 00 6c 07 |..k..X0%:.Z0..l.|
00001a20 cb 3a e1 0d 00 6d 0a dd f2 72 30 3a e1 0d 00 6e |.:...m...r0:...n|
00001a30 0a dd f2 68 30 3a e1 0d 00 6f 39 dd f2 43 31 3a |...h0:...o9..C1:|
00001a40 ea 4e 24 2c 52 24 2c 47 24 3a 4e 24 3d a4 74 28 |.N$,R$,G$:N$=.t(|
00001a50 78 25 2c 4a 25 29 3a 52 24 3d a4 41 28 4e 24 29 |x%,J%):R$=.A(N$)|
00001a60 3a 47 24 3d a4 57 28 4a 25 29 3a c8 8e 78 25 ca |:G$=.W(J%):..x%.|
00001a70 0d 00 70 12 c9 49 25 28 31 29 3a f2 54 30 28 52 |..p..I%(1):.T0(R|
00001a80 24 29 0d 00 71 18 c9 49 25 28 32 29 3a f2 63 30 |$)..q..I%(2):.c0|
00001a90 28 4e 24 2c 52 24 2c 47 24 29 0d 00 72 13 c9 49 |(N$,R$,G$)..r..I|
00001aa0 25 28 32 33 29 3a f2 42 31 28 52 24 29 0d 00 73 |%(23):.B1(R$)..s|
00001ab0 13 c9 49 25 28 32 34 29 3a f2 55 30 28 52 24 29 |..I%(24):.U0(R$)|
00001ac0 0d 00 74 10 c9 50 33 25 3a f2 46 31 28 52 24 29 |..t..P3%:.F1(R$)|
00001ad0 0d 00 75 2e cb 3a c8 99 26 34 30 30 63 66 2c 2c |..u..:..&400cf,,|
00001ae0 4a 25 3a e7 4a 25 21 38 3d 31 c8 99 26 34 30 30 |J%:.J%!8=1..&400|
00001af0 64 34 2c 2c 78 25 2c 53 30 25 2c 51 30 25 0d 00 |d4,,x%,S0%,Q0%..|
00001b00 76 05 e1 0d 00 77 0a dd f2 6e 30 3a e1 0d 00 78 |v....w...n0:...x|
00001b10 0a dd f2 66 31 3a e1 0d 00 79 18 dd f2 6d 30 3a |...f1:...y...m0:|
00001b20 68 32 25 3d 4a 25 21 30 3a c8 8e 68 32 25 ca 0d |h2%=J%!0:..h2%..|
00001b30 00 7a 15 c9 58 30 25 3a f2 48 28 58 30 25 2c 31 |.z..X0%:.H(X0%,1|
00001b40 33 2c a3 29 0d 00 7b 07 cb 3a e1 0d 00 7c 1d dd |3,.)..{..:...|..|
00001b50 f2 76 3a ea 65 34 25 3a 65 34 25 3d 4a 25 21 31 |.v:.e4%:e4%=J%!1|
00001b60 36 3a c8 8e 65 34 25 ca 0d 00 7d 0c c9 30 3a 68 |6:..e4%...}..0:h|
00001b70 33 25 3d b9 0d 00 7e 8d c9 26 34 30 30 63 31 3a |3%=...~..&400c1:|
00001b80 c8 99 26 34 30 30 65 64 2c 32 35 36 2c 4c 25 2c |..&400ed,256,L%,|
00001b90 22 6d 61 67 30 22 2c 2c 2c 2c 6a 30 25 2c 50 31 |"mag0",,,,j0%,P1|
00001ba0 25 3a 6a 30 25 21 30 3d 6a 30 25 21 30 2a 53 25 |%:j0%!0=j0%!0*S%|
00001bb0 3a 6a 30 25 21 34 3d 6a 30 25 21 34 2a 53 25 3a |:j0%!4=j0%!4*S%:|
00001bc0 c8 99 26 34 30 30 65 64 2c 32 35 36 2c 4c 25 2c |..&400ed,256,L%,|
00001bd0 22 6d 61 67 30 22 2c 2c 2c 2c 68 30 25 2c 50 31 |"mag0",,,,h0%,P1|
00001be0 25 3a e7 79 25 3a 68 30 25 21 30 3d 68 30 25 21 |%:.y%:h0%!0=h0%!|
00001bf0 30 2a 32 3a 68 30 25 21 34 3d 68 30 25 21 34 2a |0*2:h0%!4=h0%!4*|
00001c00 32 0d 00 7f 09 6d 33 25 3d b9 0d 00 80 07 cb 3a |2....m3%=......:|
00001c10 e1 0d 00 81 0a dd f2 62 31 3a e1 0d 00 82 0f dd |.......b1:......|
00001c20 f2 5f 30 3a c8 8e 55 31 25 ca 0d 00 83 50 c9 4e |._0:..U1%....P.N|
00001c30 31 25 3a 51 24 3d 22 69 63 6f 6e 5f 62 61 72 22 |1%:Q$="icon_bar"|
00001c40 3a 78 25 3d 49 25 28 31 29 3a 53 30 25 3d 69 30 |:x%=I%(1):S0%=i0|
00001c50 25 2d 36 34 3a 51 30 25 3d a4 61 28 49 25 28 31 |%-64:Q0%=.a(I%(1|
00001c60 29 29 2b 39 36 3a c8 99 26 34 30 30 64 34 2c 2c |))+96:..&400d4,,|
00001c70 78 25 2c 53 30 25 2c 51 30 25 0d 00 84 12 c9 6b |x%,S0%,Q0%.....k|
00001c80 30 25 3a f2 51 28 60 33 25 2c b9 29 0d 00 85 0f |0%:.Q(`3%,.)....|
00001c90 c9 5a 31 25 3a c8 8e 64 30 25 ca 0d 00 86 14 c9 |.Z1%:..d0%......|
00001ca0 66 33 25 3a f2 53 28 b9 29 3a e7 75 31 25 8c 0d |f3%:.S(.):.u1%..|
00001cb0 00 87 22 c8 99 26 34 30 30 64 31 2c 77 25 2c 30 |.."..&400d1,w%,0|
00001cc0 2c 2d 42 30 25 2a 53 25 2c 5a 30 25 2a 53 25 2c |,-B0%*S%,Z0%*S%,|
00001cd0 30 0d 00 88 0e cc 3a f2 44 3a 75 31 25 3d b9 0d |0.....:.D:u1%=..|
00001ce0 00 89 05 cd 0d 00 8a 08 c9 46 31 25 0d 00 8b 0c |.........F1%....|
00001cf0 c9 74 33 25 3a f2 49 30 0d 00 8c 08 c9 52 34 25 |.t3%:.I0.....R4%|
00001d00 0d 00 8d 05 cb 0d 00 8e 07 cb 3a e1 0d 00 8f 0f |..........:.....|
00001d10 dd f2 52 30 3a c8 8e 55 31 25 ca 0d 00 90 10 c9 |..R0:..U1%......|
00001d20 5a 31 25 3a e7 48 30 25 f2 42 30 0d 00 91 3b c9 |Z1%:.H0%.B0...;.|
00001d30 4e 31 25 3a 51 24 3d 22 73 74 61 72 5f 77 69 6e |N1%:Q$="star_win|
00001d40 64 6f 77 22 3a 78 25 3d 49 25 28 32 29 3a 53 30 |dow":x%=I%(2):S0|
00001d50 25 3d 69 30 25 2d 36 34 3a 51 30 25 3d 60 30 25 |%=i0%-64:Q0%=`0%|
00001d60 3a e7 61 33 25 8c 0d 00 92 1e c8 99 36 2c 32 30 |:.a3%.......6,20|
00001d70 32 2c 30 2c 32 35 35 b8 2c 6f 25 3a e7 28 6f 25 |2,0,255.,o%:.(o%|
00001d80 80 38 29 8c 0d 00 93 1a c8 99 26 34 30 30 64 34 |.8).......&400d4|
00001d90 2c 2c 78 25 2c 53 30 25 2c 51 30 25 3a e1 0d 00 |,,x%,S0%,Q0%:...|
00001da0 94 5f cd 3a 4a 25 21 30 3d 59 25 3a c8 99 26 34 |._.:J%!0=Y%:..&4|
00001db0 30 30 63 62 2c 2c 4a 25 3a 7a 30 25 3d 4a 25 21 |00cb,,J%:z0%=J%!|
00001dc0 34 2d 4a 25 21 32 30 3a 4b 31 25 3d 4a 25 21 31 |4-J%!20:K1%=J%!1|
00001dd0 36 2d 4a 25 21 32 34 3a 46 25 3d 69 30 25 2d 7a |6-J%!24:F%=i0%-z|
00001de0 30 25 3a 49 25 3d 60 30 25 2d 4b 31 25 2b 42 30 |0%:I%=`0%-K1%+B0|
00001df0 25 3a f2 6d 28 46 25 2c 49 25 29 3a e1 0d 00 95 |%:.m(F%,I%):....|
00001e00 1a cc 3a c8 99 26 34 30 30 64 34 2c 2c 78 25 2c |..:..&400d4,,x%,|
00001e10 53 30 25 2c 51 30 25 0d 00 96 05 cd 0d 00 97 71 |S0%,Q0%........q|
00001e20 c9 6b 30 25 3a 4a 25 21 30 3d 59 25 3a c8 99 26 |.k0%:J%!0=Y%:..&|
00001e30 34 30 30 63 62 2c 2c 4a 25 3a 7a 30 25 3d 4a 25 |400cb,,J%:z0%=J%|
00001e40 21 34 2d 4a 25 21 32 30 3a 4b 31 25 3d 4a 25 21 |!4-J%!20:K1%=J%!|
00001e50 31 36 2d 4a 25 21 32 34 3a 46 25 3d 28 69 30 25 |16-J%!24:F%=(i0%|
00001e60 2d 7a 30 25 29 2f 53 25 3a 49 25 3d 28 60 30 25 |-z0%)/S%:I%=(`0%|
00001e70 2d 4b 31 25 29 2f 53 25 2b 42 30 25 3a e7 61 33 |-K1%)/S%+B0%:.a3|
00001e80 25 3a f2 6d 28 46 25 2c 49 25 29 3a e1 0d 00 98 |%:.m(F%,I%):....|
00001e90 1a 55 25 3d a4 54 28 46 25 2c 49 25 29 3a e7 55 |.U%=.T(F%,I%):.U|
00001ea0 25 3e 39 39 39 39 8c 0d 00 99 10 e7 55 25 3c 32 |%>9999......U%<2|
00001eb0 30 30 30 30 30 30 8c 0d 00 9a 0e e7 4e 25 3c 4c |000000......N%<L|
00001ec0 25 28 32 29 8c 0d 00 9b 50 50 25 3d 37 32 30 2d |%(2)....PP%=720-|
00001ed0 33 30 2a a8 28 30 2e 35 2b 4b 25 28 55 25 81 31 |30*.(0.5+K%(U%.1|
00001ee0 30 30 30 30 29 2f 33 36 30 30 29 3a 4d 25 3d a8 |0000)/3600):M%=.|
00001ef0 28 30 2e 35 2b 28 4d 25 28 55 25 81 31 30 30 30 |(0.5+(M%(U%.1000|
00001f00 30 29 2f 28 33 36 30 30 2a 32 2a 61 25 29 29 29 |0)/(3600*2*a%)))|
00001f10 2a 32 2a 61 25 0d 00 9c 4e cc 3a 50 25 3d 37 32 |*2*a%...N.:P%=72|
00001f20 30 2d 31 35 2a a8 28 30 2e 35 2b 4b 25 28 55 25 |0-15*.(0.5+K%(U%|
00001f30 81 31 30 30 30 30 29 2f 31 38 30 30 29 3a 4d 25 |.10000)/1800):M%|
00001f40 3d a8 28 30 2e 35 2b 28 4d 25 28 55 25 81 31 30 |=.(0.5+(M%(U%.10|
00001f50 30 30 30 29 2f 28 33 36 30 30 2a 61 25 29 29 29 |000)/(3600*a%)))|
00001f60 2a 61 25 0d 00 9d 05 cd 0d 00 9e 10 cc 3a e7 4e |*a%..........:.N|
00001f70 25 3c 4c 25 28 32 29 8c 0d 00 9f 5c 50 25 3d 37 |%<L%(2)....\P%=7|
00001f80 32 30 2d 33 30 2a a8 28 30 2e 35 2b 44 25 28 28 |20-30*.(0.5+D%((|
00001f90 55 25 81 31 30 30 30 30 29 2d 32 30 30 29 2f 33 |U%.10000)-200)/3|
00001fa0 36 30 30 29 3a 4d 25 3d a8 28 30 2e 35 2b 28 48 |600):M%=.(0.5+(H|
00001fb0 25 28 28 55 25 81 31 30 30 30 30 29 2d 32 30 30 |%((U%.10000)-200|
00001fc0 29 2f 28 33 36 30 30 2a 32 2a 61 25 29 29 29 2a |)/(3600*2*a%)))*|
00001fd0 32 2a 61 25 0d 00 a0 5a cc 3a 50 25 3d 37 32 30 |2*a%...Z.:P%=720|
00001fe0 2d 31 35 2a a8 28 30 2e 35 2b 44 25 28 28 55 25 |-15*.(0.5+D%((U%|
00001ff0 81 31 30 30 30 30 29 2d 32 30 30 29 2f 31 38 30 |.10000)-200)/180|
00002000 30 29 3a 4d 25 3d a8 28 30 2e 35 2b 28 48 25 28 |0):M%=.(0.5+(H%(|
00002010 28 55 25 81 31 30 30 30 30 29 2d 32 30 30 29 2f |(U%.10000)-200)/|
00002020 28 33 36 30 30 2a 61 25 29 29 29 2a 61 25 0d 00 |(3600*a%)))*a%..|
00002030 a1 05 cd 0d 00 a2 1b cd 3a 4e 3d b2 28 4d 25 29 |........:N=.(M%)|
00002040 3a 56 3d b5 28 4e 29 3a 55 3d 9b 28 4e 29 0d 00 |:V=.(N):U=.(N)..|
00002050 a3 10 cc 3a e7 4e 25 3c 4c 25 28 32 29 8c 0d 00 |...:.N%<L%(2)...|
00002060 a4 44 50 25 3d 37 32 30 2d 33 30 2a a8 28 30 2e |.DP%=720-30*.(0.|
00002070 35 2b 4a 25 28 55 25 29 2f 33 36 30 30 29 3a 4d |5+J%(U%)/3600):M|
00002080 25 3d a8 28 30 2e 35 2b 28 47 25 28 55 25 29 2f |%=.(0.5+(G%(U%)/|
00002090 28 33 36 30 30 2a 32 2a 61 25 29 29 29 2a 32 2a |(3600*2*a%)))*2*|
000020a0 61 25 0d 00 a5 42 cc 3a 50 25 3d 37 32 30 2d 31 |a%...B.:P%=720-1|
000020b0 35 2a a8 28 30 2e 35 2b 4a 25 28 55 25 29 2f 31 |5*.(0.5+J%(U%)/1|
000020c0 38 30 30 29 3a 4d 25 3d a8 28 30 2e 35 2b 28 47 |800):M%=.(0.5+(G|
000020d0 25 28 55 25 29 2f 28 33 36 30 30 2a 61 25 29 29 |%(U%)/(3600*a%))|
000020e0 29 2a 61 25 0d 00 a6 1b cd 3a 4e 3d b2 28 4d 25 |)*a%.....:N=.(M%|
000020f0 29 3a 56 3d b5 28 4e 29 3a 55 3d 9b 28 4e 29 0d |):V=.(N):U=.(N).|
00002100 00 a7 55 cd 3a 61 32 25 3d 2d 61 32 25 3a 60 32 |..U.:a2%=-a2%:`2|
00002110 25 3d 2d 60 32 25 3a f2 42 28 4b 25 2c 35 2c 6e |%=-`2%:.B(K%,5,n|
00002120 25 29 3a f2 41 28 4b 25 2c 31 33 2c c3 28 4d 25 |%):.A(K%,13,.(M%|
00002130 29 29 3a f2 41 28 4b 25 2c 31 31 2c c3 28 28 28 |)):.A(K%,11,.(((|
00002140 34 38 2d 50 25 2f 31 35 29 83 34 38 29 2f 32 29 |48-P%/15).48)/2)|
00002150 29 3a f2 44 0d 00 a8 1c c9 6b 30 25 3a 68 25 2b |):.D.....k0%:h%+|
00002160 3d 32 30 3a e7 68 25 3e 37 30 30 3a 68 25 3d 30 |=20:.h%>700:h%=0|
00002170 0d 00 a9 11 4b 32 25 3d 37 30 30 2d 68 25 3a f2 |....K2%=700-h%:.|
00002180 44 0d 00 aa 61 c9 6b 30 25 3a 4a 25 21 30 3d 59 |D...a.k0%:J%!0=Y|
00002190 25 3a c8 99 26 34 30 30 63 62 2c 2c 4a 25 3a 7a |%:..&400cb,,J%:z|
000021a0 30 25 3d 4a 25 21 34 2d 4a 25 21 32 30 3a 4b 31 |0%=J%!4-J%!20:K1|
000021b0 25 3d 4a 25 21 31 36 2d 4a 25 21 32 34 3a 46 25 |%=J%!16-J%!24:F%|
000021c0 3d 69 30 25 2d 7a 30 25 3a 49 25 3d 60 30 25 2d |=i0%-z0%:I%=`0%-|
000021d0 4b 31 25 2b 42 30 25 3a f2 41 30 28 46 25 2c 49 |K1%+B0%:.A0(F%,I|
000021e0 25 29 0d 00 ab 07 cb 3a e1 0d 00 ac 0f dd f2 4d |%).....:.......M|
000021f0 31 3a c8 8e 55 31 25 ca 0d 00 ad 0e c9 5a 31 25 |1:..U1%......Z1%|
00002200 3a c8 8e 63 25 ca 0d 00 ae 12 c9 31 30 3a e7 4e |:..c%......10:.N|
00002210 25 3c 4c 25 28 32 29 8c 0d 00 af 12 50 25 3d 28 |%<L%(2).....P%=(|
00002220 50 25 2b 33 30 29 83 37 32 30 0d 00 b0 14 cc 3a |P%+30).720.....:|
00002230 50 25 3d 28 50 25 2b 31 35 29 83 37 32 30 0d 00 |P%=(P%+15).720..|
00002240 b1 31 cd 3a f2 41 28 4b 25 2c 31 31 2c c3 28 28 |.1.:.A(K%,11,.((|
00002250 28 34 38 2d 50 25 2f 31 35 29 83 34 38 29 2f 32 |(48-P%/15).48)/2|
00002260 29 29 3a e7 65 25 3a f2 44 3a 8b 71 25 3d b9 0d |)):.e%:.D:.q%=..|
00002270 00 b2 12 c9 31 34 3a e7 4e 25 3c 4c 25 28 32 29 |....14:.N%<L%(2)|
00002280 8c 0d 00 b3 0c 4d 25 2b 3d 32 2a 61 25 0d 00 b4 |.....M%+=2*a%...|
00002290 0c cc 3a 4d 25 2b 3d 61 25 0d 00 b5 13 cd 3a e7 |..:M%+=a%.....:.|
000022a0 4d 25 3e 39 30 3a 4d 25 3d 2d 39 30 0d 00 b6 36 |M%>90:M%=-90...6|
000022b0 4e 3d b2 28 4d 25 29 3a 56 3d b5 28 4e 29 3a 55 |N=.(M%):V=.(N):U|
000022c0 3d 9b 28 4e 29 3a f2 41 28 4b 25 2c 31 33 2c c3 |=.(N):.A(K%,13,.|
000022d0 28 4d 25 29 29 3a e7 65 25 3a f2 44 3a 8b 71 25 |(M%)):.e%:.D:.q%|
000022e0 3d b9 0d 00 b7 11 c9 39 3a e7 4e 25 3c 4c 25 28 |=......9:.N%<L%(|
000022f0 32 29 8c 0d 00 b8 13 50 25 3d 28 50 25 2b 36 39 |2).....P%=(P%+69|
00002300 30 29 83 37 32 30 0d 00 b9 15 cc 3a 50 25 3d 28 |0).720.....:P%=(|
00002310 50 25 2b 37 30 35 29 83 37 32 30 0d 00 ba 31 cd |P%+705).720...1.|
00002320 3a f2 41 28 4b 25 2c 31 31 2c c3 28 28 28 34 38 |:.A(K%,11,.(((48|
00002330 2d 50 25 2f 31 35 29 83 34 38 29 2f 32 29 29 3a |-P%/15).48)/2)):|
00002340 e7 65 25 3a f2 44 3a 8b 71 25 3d b9 0d 00 bb 12 |.e%:.D:.q%=.....|
00002350 c9 31 35 3a e7 4e 25 3c 4c 25 28 32 29 8c 0d 00 |.15:.N%<L%(2)...|
00002360 bc 0c 4d 25 2d 3d 32 2a 61 25 0d 00 bd 0c cc 3a |..M%-=2*a%.....:|
00002370 4d 25 2d 3d 61 25 0d 00 be 13 cd 3a e7 4d 25 3c |M%-=a%.....:.M%<|
00002380 2d 39 30 3a 4d 25 3d 39 30 0d 00 bf 36 4e 3d b2 |-90:M%=90...6N=.|
00002390 28 4d 25 29 3a 56 3d b5 28 4e 29 3a 55 3d 9b 28 |(M%):V=.(N):U=.(|
000023a0 4e 29 3a f2 41 28 4b 25 2c 31 33 2c c3 28 4d 25 |N):.A(K%,13,.(M%|
000023b0 29 29 3a e7 65 25 3a f2 44 3a 8b 71 25 3d b9 0d |)):.e%:.D:.q%=..|
000023c0 00 c0 30 c9 32 3a 65 32 25 3d ac 65 32 25 3a f2 |..0.2:e2%=.e2%:.|
000023d0 42 28 4b 25 2c 63 25 2c 65 32 25 29 3a e7 65 25 |B(K%,c%,e2%):.e%|
000023e0 3a 67 31 25 3d b9 3a f2 44 3a 8b 71 25 3d b9 0d |:g1%=.:.D:.q%=..|
000023f0 00 c1 30 c9 33 3a 69 32 25 3d ac 69 32 25 3a f2 |..0.3:i2%=.i2%:.|
00002400 42 28 4b 25 2c 63 25 2c 69 32 25 29 3a e7 65 25 |B(K%,c%,i2%):.e%|
00002410 3a 67 31 25 3d b9 3a f2 44 3a 8b 71 25 3d b9 0d |:g1%=.:.D:.q%=..|
00002420 00 c2 1d c9 36 3a 6a 25 3d ac 6a 25 3a f2 42 28 |....6:j%=.j%:.B(|
00002430 4b 25 2c 63 25 2c 6a 25 29 3a f2 60 0d 00 c3 1a |K%,c%,j%):.`....|
00002440 c9 35 3a 6e 25 3d ac 6e 25 3a f2 42 28 4b 25 2c |.5:n%=.n%:.B(K%,|
00002450 63 25 2c 6e 25 29 0d 00 c4 0b c9 37 3a e7 46 31 |c%,n%).....7:.F1|
00002460 25 0d 00 c5 09 46 31 25 3d a3 0d 00 c6 0c c9 38 |%....F1%=......8|
00002470 3a e7 ac 46 31 25 0d 00 c7 09 46 31 25 3d b9 0d |:..F1%....F1%=..|
00002480 00 c8 23 c9 34 3a 78 30 25 3d ac 78 30 25 3a f2 |..#.4:x0%=.x0%:.|
00002490 42 28 4b 25 2c 63 25 2c 78 30 25 29 3a e7 78 30 |B(K%,c%,x0%):.x0|
000024a0 25 8c 0d 00 c9 0d f2 6a 3a 4d 31 25 3d 2d 31 0d |%......j:M1%=-1.|
000024b0 00 ca 17 cc 3a 73 25 3d a3 3a f2 42 28 4b 25 2c |....:s%=.:.B(K%,|
000024c0 33 34 2c 73 25 29 0d 00 cb 0a cd 3a e7 65 25 8c |34,s%).....:.e%.|
000024d0 0d 00 cc 06 f2 44 0d 00 cd 0a cc 3a 71 25 3d b9 |.....D.....:q%=.|
000024e0 0d 00 ce 05 cd 0d 00 cf 2a c9 30 3a 47 32 25 3d |........*.0:G2%=|
000024f0 ac 47 32 25 3a f2 42 28 4b 25 2c 63 25 2c 47 32 |.G2%:.B(K%,c%,G2|
00002500 25 29 3a e7 65 25 3a f2 44 3a 8b 71 25 3d b9 0d |%):.e%:.D:.q%=..|
00002510 00 d0 0d c9 31 37 3a e7 73 30 25 8c 0d 00 d1 17 |....17:.s0%.....|
00002520 7a 31 25 3d a3 3a f2 42 28 4b 25 2c 33 32 2c 7a |z1%=.:.B(K%,32,z|
00002530 31 25 29 0d 00 d2 2f cd 3a 73 30 25 3d ac 73 30 |1%).../.:s0%=.s0|
00002540 25 3a f2 42 28 4b 25 2c 63 25 2c 73 30 25 29 3a |%:.B(K%,c%,s0%):|
00002550 e7 65 25 3a 67 31 25 3d b9 3a f2 44 3a 8b 71 25 |.e%:g1%=.:.D:.q%|
00002560 3d b9 0d 00 d3 1d c9 32 30 3a 68 25 2b 3d 32 30 |=......20:h%+=20|
00002570 3a e7 68 25 3e 37 30 30 3a 68 25 3d 37 30 30 0d |:.h%>700:h%=700.|
00002580 00 d4 2c 4b 32 25 3d 37 30 30 2d 68 25 3a f2 41 |..,K2%=700-h%:.A|
00002590 28 4b 25 2c 31 39 2c a4 4b 28 68 25 29 29 3a e7 |(K%,19,.K(h%)):.|
000025a0 65 25 3a f2 44 3a 8b 71 25 3d b9 0d 00 d5 1d c9 |e%:.D:.q%=......|
000025b0 32 31 3a 68 25 2d 3d 32 30 3a e7 68 25 3c 31 30 |21:h%-=20:.h%<10|
000025c0 30 3a 68 25 3d 31 30 30 0d 00 d6 2c 4b 32 25 3d |0:h%=100...,K2%=|
000025d0 37 30 30 2d 68 25 3a f2 41 28 4b 25 2c 31 39 2c |700-h%:.A(K%,19,|
000025e0 a4 4b 28 68 25 29 29 3a e7 65 25 3a f2 44 3a 8b |.K(h%)):.e%:.D:.|
000025f0 71 25 3d b9 0d 00 d7 40 c9 32 36 3a f2 48 28 4b |q%=....@.26:.H(K|
00002600 25 2c 35 2c 48 30 25 29 3a f2 48 28 4b 25 2c 36 |%,5,H0%):.H(K%,6|
00002610 2c 48 30 25 29 3a 48 30 25 3d ac 48 30 25 3a e7 |,H0%):H0%=.H0%:.|
00002620 48 30 25 3a f2 51 28 58 25 2c b9 29 3a 8b f2 63 |H0%:.Q(X%,.):..c|
00002630 28 58 25 29 0d 00 d8 11 f2 42 28 4b 25 2c 63 25 |(X%).....B(K%,c%|
00002640 2c 48 30 25 29 0d 00 d9 22 c9 32 37 3a e7 74 31 |,H0%)...".27:.t1|
00002650 25 3c 3e 30 3a f2 59 28 30 29 3a e7 65 25 3a f2 |%<>0:.Y(0):.e%:.|
00002660 44 3a 8b 71 25 3d b9 0d 00 da 22 c9 32 38 3a e7 |D:.q%=....".28:.|
00002670 74 31 25 3c 3e 31 3a f2 59 28 31 29 3a e7 65 25 |t1%<>1:.Y(1):.e%|
00002680 3a f2 44 3a 8b 71 25 3d b9 0d 00 db 22 c9 32 39 |:.D:.q%=....".29|
00002690 3a e7 74 31 25 3c 3e 32 3a f2 59 28 32 29 3a e7 |:.t1%<>2:.Y(2):.|
000026a0 65 25 3a f2 44 3a 8b 71 25 3d b9 0d 00 dc 22 c9 |e%:.D:.q%=....".|
000026b0 33 30 3a e7 74 31 25 3c 3e 33 3a f2 59 28 33 29 |30:.t1%<>3:.Y(3)|
000026c0 3a e7 65 25 3a f2 44 3a 8b 71 25 3d b9 0d 00 dd |:.e%:.D:.q%=....|
000026d0 20 c9 33 31 3a f2 42 28 4b 25 2c 63 25 2c 65 25 | .31:.B(K%,c%,e%|
000026e0 29 3a 65 25 3d ac 65 25 3a e7 65 25 8c 0d 00 de |):e%=.e%:.e%....|
000026f0 11 e7 79 32 25 3a f2 4d 3a 79 32 25 3d a3 0d 00 |..y2%:.M:y2%=...|
00002700 df 0b f2 44 3a 71 25 3d a3 0d 00 e0 05 cd 0d 00 |...D:q%=........|
00002710 e1 17 c9 33 32 3a 7a 31 25 3d ac 7a 31 25 3a e7 |...32:z1%=.z1%:.|
00002720 ac 73 30 25 8c 0d 00 e2 17 73 30 25 3d b9 3a f2 |.s0%.....s0%=.:.|
00002730 42 28 4b 25 2c 31 37 2c 73 30 25 29 0d 00 e3 1f |B(K%,17,s0%)....|
00002740 cd 3a f2 42 28 4b 25 2c 63 25 2c 7a 31 25 29 3a |.:.B(K%,c%,z1%):|
00002750 e7 65 25 3a f2 44 3a 71 25 3d a3 0d 00 e4 2a c9 |.e%:.D:q%=....*.|
00002760 33 33 3a 41 33 25 3d ac 41 33 25 3a f2 42 28 4b |33:A3%=.A3%:.B(K|
00002770 25 2c 63 25 2c 41 33 25 29 3a e7 65 25 3a f2 44 |%,c%,A3%):.e%:.D|
00002780 3a 71 25 3d a3 0d 00 e5 15 c9 33 34 3a 73 25 3d |:q%=......34:s%=|
00002790 ac 73 25 3a e7 ac 78 30 25 8c 0d 00 e6 16 78 30 |.s%:..x0%.....x0|
000027a0 25 3d b9 3a f2 42 28 4b 25 2c 34 2c 78 30 25 29 |%=.:.B(K%,4,x0%)|
000027b0 0d 00 e7 20 cd 3a f2 42 28 4b 25 2c 63 25 2c 73 |... .:.B(K%,c%,s|
000027c0 25 29 3a e7 73 25 3a f2 6a 3a 4d 31 25 3d 2d 31 |%):.s%:.j:M1%=-1|
000027d0 0d 00 e8 0f e7 65 25 3a f2 44 3a 71 25 3d a3 0d |.....e%:.D:q%=..|
000027e0 00 e9 2a c9 33 36 3a 6c 32 25 3d ac 6c 32 25 3a |..*.36:l2%=.l2%:|
000027f0 f2 42 28 4b 25 2c 63 25 2c 6c 32 25 29 3a e7 65 |.B(K%,c%,l2%):.e|
00002800 25 3a f2 44 3a 71 25 3d a3 0d 00 ea 1e c9 33 37 |%:.D:q%=......37|
00002810 3a 76 31 25 3d ac 76 31 25 3a f2 42 28 4b 25 2c |:v1%=.v1%:.B(K%,|
00002820 63 25 2c 76 31 25 29 0d 00 eb 13 c9 33 35 3a f2 |c%,v1%).....35:.|
00002830 51 28 74 69 6d 65 25 2c b9 29 0d 00 ec 52 c9 33 |Q(time%,.)...R.3|
00002840 38 3a 51 24 3d 22 62 75 74 74 6f 6e 5f 77 69 6e |8:Q$="button_win|
00002850 64 6f 77 22 3a 78 25 3d 49 25 28 32 33 29 3a 53 |dow":x%=I%(23):S|
00002860 30 25 3d a4 52 28 59 25 2c 63 25 29 3a 51 30 25 |0%=.R(Y%,c%):Q0%|
00002870 3d 60 30 25 2b 32 30 3a c8 99 26 34 30 30 64 34 |=`0%+20:..&400d4|
00002880 2c 2c 78 25 2c 53 30 25 2c 51 30 25 0d 00 ed 05 |,,x%,S0%,Q0%....|
00002890 cb 0d 00 ee 4d c9 4e 31 25 3a 51 24 3d 22 62 75 |....M.N1%:Q$="bu|
000028a0 74 74 6f 6e 5f 77 69 6e 64 6f 77 22 3a 78 25 3d |tton_window":x%=|
000028b0 49 25 28 32 33 29 3a 53 30 25 3d 69 30 25 2d 36 |I%(23):S0%=i0%-6|
000028c0 34 3a 51 30 25 3d 60 30 25 3a c8 99 26 34 30 30 |4:Q0%=`0%:..&400|
000028d0 64 34 2c 2c 78 25 2c 53 30 25 2c 51 30 25 0d 00 |d4,,x%,S0%,Q0%..|
000028e0 ef 1a c9 6b 30 25 3a 53 25 3d 31 2b 53 25 83 32 |...k0%:S%=1+S%.2|
000028f0 3a f2 62 30 28 53 25 29 0d 00 f0 0e c9 6b 30 25 |:.b0(S%).....k0%|
00002900 3a c8 8e 63 25 ca 0d 00 f1 06 c9 34 0d 00 f2 5e |:..c%......4...^|
00002910 7f 3a 4a 25 21 30 3d 59 25 3a c8 99 26 34 30 30 |.:J%!0=Y%:..&400|
00002920 63 62 2c 2c 4a 25 3a 7a 30 25 3d 4a 25 21 34 2d |cb,,J%:z0%=J%!4-|
00002930 4a 25 21 32 30 3a 4b 31 25 3d 4a 25 21 31 36 2d |J%!20:K1%=J%!16-|
00002940 4a 25 21 32 34 3a 46 25 3d 69 30 25 2d 7a 30 25 |J%!24:F%=i0%-z0%|
00002950 3a 49 25 3d 60 30 25 2d 4b 31 25 2b 42 30 25 3a |:I%=`0%-K1%+B0%:|
00002960 f2 41 30 28 46 25 2c 49 25 29 0d 00 f3 05 cb 0d |.A0(F%,I%)......|
00002970 00 f4 07 cb 3a e1 0d 00 f5 0f dd f2 6f 30 3a c8 |....:.......o0:.|
00002980 8e 55 31 25 ca 0d 00 f6 4b c9 4e 31 25 3a 51 24 |.U1%....K.N1%:Q$|
00002990 3d 22 69 6e 66 6f 5f 77 69 6e 64 6f 77 22 3a 78 |="info_window":x|
000029a0 25 3d 49 25 28 31 34 29 3a 53 30 25 3d 69 30 25 |%=I%(14):S0%=i0%|
000029b0 2d 36 34 3a 51 30 25 3d 60 30 25 3a c8 99 26 34 |-64:Q0%=`0%:..&4|
000029c0 30 30 64 34 2c 2c 78 25 2c 53 30 25 2c 51 30 25 |00d4,,x%,S0%,Q0%|
000029d0 0d 00 f7 08 c9 6b 30 25 0d 00 f8 08 c9 5a 31 25 |.....k0%.....Z1%|
000029e0 0d 00 f9 07 cb 3a e1 0d 00 fa 0f dd f2 57 31 3a |.....:.......W1:|
000029f0 c8 8e 55 31 25 ca 0d 00 fb 08 c9 4e 31 25 0d 00 |..U1%......N1%..|
00002a00 fc 12 c9 5a 31 25 2c 6b 30 25 3a c8 8e 63 25 ca |...Z1%,k0%:..c%.|
00002a10 0d 00 fd 11 c9 32 3a f2 50 28 2d 31 2c 30 2c 30 |.....2:.P(-1,0,0|
00002a20 29 0d 00 fe 11 c9 33 3a f2 50 28 30 2c 2d 31 2c |).....3:.P(0,-1,|
00002a30 30 29 0d 00 ff 11 c9 34 3a f2 50 28 30 2c 30 2c |0).....4:.P(0,0,|
00002a40 2d 31 29 0d 01 00 10 c9 35 3a f2 50 28 31 2c 30 |-1).....5:.P(1,0|
00002a50 2c 30 29 0d 01 01 10 c9 36 3a f2 50 28 30 2c 31 |,0).....6:.P(0,1|
00002a60 2c 30 29 0d 01 02 10 c9 37 3a f2 50 28 30 2c 30 |,0).....7:.P(0,0|
00002a70 2c 31 29 0d 01 03 12 c9 31 32 3a f2 54 28 2d 31 |,1).....12:.T(-1|
00002a80 2c 30 2c 30 29 0d 01 04 12 c9 31 33 3a f2 54 28 |,0,0).....13:.T(|
00002a90 30 2c 2d 31 2c 30 29 0d 01 05 12 c9 31 34 3a f2 |0,-1,0).....14:.|
00002aa0 54 28 30 2c 30 2c 2d 31 29 0d 01 06 11 c9 31 35 |T(0,0,-1).....15|
00002ab0 3a f2 54 28 31 2c 30 2c 30 29 0d 01 07 11 c9 31 |:.T(1,0,0).....1|
00002ac0 36 3a f2 54 28 30 2c 31 2c 30 29 0d 01 08 11 c9 |6:.T(0,1,0).....|
00002ad0 31 37 3a f2 54 28 30 2c 30 2c 31 29 0d 01 09 09 |17:.T(0,0,1)....|
00002ae0 c9 39 3a f2 5f 0d 01 0a 0a c9 31 39 3a f2 69 0d |.9:._.....19:.i.|
00002af0 01 0b 11 c9 32 34 3a 75 25 3d 31 3a f2 57 3a e1 |....24:u%=1:.W:.|
00002b00 0d 01 0c 12 c9 32 33 3a 75 25 3d 2d 31 3a f2 57 |.....23:u%=-1:.W|
00002b10 3a e1 0d 01 0d 1c c9 32 32 3a e7 75 25 3e 30 3a |:......22:.u%>0:|
00002b20 f2 42 28 74 69 6d 65 25 2c 32 34 2c a3 29 0d 01 |.B(time%,24,.)..|
00002b30 0e 18 e7 75 25 3c 30 3a f2 42 28 74 69 6d 65 25 |...u%<0:.B(time%|
00002b40 2c 32 33 2c a3 29 0d 01 0f 0d 75 25 3d 30 3a f2 |,23,.)....u%=0:.|
00002b50 57 3a e1 0d 01 10 1c c9 33 30 3a e7 75 25 3e 30 |W:......30:.u%>0|
00002b60 3a f2 42 28 74 69 6d 65 25 2c 32 34 2c a3 29 0d |:.B(time%,24,.).|
00002b70 01 11 18 e7 75 25 3c 30 3a f2 42 28 74 69 6d 65 |....u%<0:.B(time|
00002b80 25 2c 32 33 2c a3 29 0d 01 12 25 75 25 3d 30 3a |%,23,.)...%u%=0:|
00002b90 6b 2b 3d bb 28 a4 43 28 74 69 6d 65 25 2c 32 38 |k+=.(.C(time%,28|
00002ba0 29 29 3a e7 50 30 25 3a 6b 2b 3d 31 0d 01 13 20 |)):.P0%:k+=1... |
00002bb0 6b 2b 3d 56 30 25 3a 66 2b 3d bb 28 a4 43 28 74 |k+=V0%:f+=.(.C(t|
00002bc0 69 6d 65 25 2c 32 39 29 29 3a f2 65 0d 01 14 1c |ime%,29)):.e....|
00002bd0 c9 32 35 3a e7 75 25 3e 30 3a f2 42 28 74 69 6d |.25:.u%>0:.B(tim|
00002be0 65 25 2c 32 34 2c a3 29 0d 01 15 18 e7 75 25 3c |e%,24,.).....u%<|
00002bf0 30 3a f2 42 28 74 69 6d 65 25 2c 32 33 2c a3 29 |0:.B(time%,23,.)|
00002c00 0d 01 16 25 75 25 3d 30 3a 6b 2d 3d bb 28 a4 43 |...%u%=0:k-=.(.C|
00002c10 28 74 69 6d 65 25 2c 32 38 29 29 3a e7 50 30 25 |(time%,28)):.P0%|
00002c20 3a 6b 2b 3d 31 0d 01 17 20 6b 2b 3d 56 30 25 3a |:k+=1... k+=V0%:|
00002c30 66 2d 3d bb 28 a4 43 28 74 69 6d 65 25 2c 32 39 |f-=.(.C(time%,29|
00002c40 29 29 3a f2 65 0d 01 18 0d cb 3a f2 57 3a e7 65 |)):.e.....:.W:.e|
00002c50 25 8c 0d 01 19 15 f2 4d 3a e7 49 30 25 3a f2 44 |%......M:.I0%:.D|
00002c60 3a 8b 75 31 25 3d a3 0d 01 1a 0e cc 3a e7 ac 47 |:.u1%=......:..G|
00002c70 30 25 3a f2 67 0d 01 1b 0e 71 25 3d b9 3a 79 32 |0%:.g....q%=.:y2|
00002c80 25 3d b9 0d 01 1c 0b cd 3a e7 47 30 25 8c 0d 01 |%=......:.G0%...|
00002c90 1d 0b e7 ac 65 25 3a f2 4d 0d 01 1e 14 e7 75 25 |....e%:.M.....u%|
00002ca0 3a f2 6b 3a 8b f2 55 3a 78 31 25 3d b9 0d 01 1f |:.k:..U:x1%=....|
00002cb0 05 cd 0d 01 20 07 cb 3a e1 0d 01 21 0f dd f2 57 |.... ..:...!...W|
00002cc0 30 3a c8 8e 55 31 25 ca 0d 01 22 4b c9 4e 31 25 |0:..U1%..."K.N1%|
00002cd0 3a 51 24 3d 22 65 71 75 61 5f 77 69 6e 64 6f 77 |:Q$="equa_window|
00002ce0 22 3a 78 25 3d 49 25 28 32 34 29 3a 53 30 25 3d |":x%=I%(24):S0%=|
00002cf0 69 30 25 2d 36 34 3a 51 30 25 3d 60 30 25 3a c8 |i0%-64:Q0%=`0%:.|
00002d00 99 26 34 30 30 64 34 2c 2c 78 25 2c 53 30 25 2c |.&400d4,,x%,S0%,|
00002d10 51 30 25 0d 01 23 17 c9 6b 30 25 3a 79 25 3d ac |Q0%..#..k0%:y%=.|
00002d20 79 25 3a f2 6a 30 28 79 25 29 0d 01 24 11 c9 5a |y%:.j0(y%)..$..Z|
00002d30 31 25 3a f2 55 3a 78 31 25 3d b9 0d 01 25 07 cb |1%:.U:x1%=...%..|
00002d40 3a e1 0d 01 26 0f dd f2 5a 30 3a c8 8e 55 31 25 |:...&...Z0:..U1%|
00002d50 ca 0d 01 27 48 c9 4e 31 25 3a 51 24 3d 22 70 6f |...'H.N1%:Q$="po|
00002d60 73 6e 5f 77 69 6e 64 6f 77 22 3a 78 25 3d 50 33 |sn_window":x%=P3|
00002d70 25 3a 53 30 25 3d 69 30 25 2d 36 34 3a 51 30 25 |%:S0%=i0%-64:Q0%|
00002d80 3d 60 30 25 3a c8 99 26 34 30 30 64 34 2c 2c 78 |=`0%:..&400d4,,x|
00002d90 25 2c 53 30 25 2c 51 30 25 0d 01 28 12 c9 6b 30 |%,S0%,Q0%..(..k0|
00002da0 25 2c 5a 31 25 3a c8 8e 63 25 ca 0d 01 29 1d c9 |%,Z1%:..c%...)..|
00002db0 31 32 3a 58 31 25 3d ac 58 31 25 3a f2 48 28 58 |12:X1%=.X1%:.H(X|
00002dc0 30 25 2c 31 33 2c a3 29 0d 01 2a 46 c9 31 33 3a |0%,13,.)..*F.13:|
00002dd0 50 30 25 3d 58 31 25 3a 71 3d a4 68 3a 44 30 3d |P0%=X1%:q=.h:D0=|
00002de0 a4 6d 3a 56 30 25 3d a4 73 3a 69 24 3d 42 24 28 |.m:V0%=.s:i$=B$(|
00002df0 70 33 25 29 3a 54 33 25 3d 70 33 25 3a f2 48 28 |p3%):T3%=p3%:.H(|
00002e00 58 30 25 2c 31 33 2c b9 29 3a e7 65 25 8c 0d 01 |X0%,13,.):.e%...|
00002e10 2b 15 f2 4d 3a e7 49 30 25 3a f2 44 3a 8b 75 31 |+..M:.I0%:.D:.u1|
00002e20 25 3d a3 0d 01 2c 0e cc 3a e7 ac 47 30 25 3a f2 |%=...,..:..G0%:.|
00002e30 67 0d 01 2d 0e 71 25 3d b9 3a 79 32 25 3d b9 0d |g..-.q%=.:y2%=..|
00002e40 01 2e 0b cd 3a e7 47 30 25 8c 0d 01 2f 0b e7 ac |....:.G0%.../...|
00002e50 65 25 3a f2 4d 0d 01 30 14 e7 75 25 3a f2 6b 3a |e%:.M..0..u%:.k:|
00002e60 8b f2 55 3a 78 31 25 3d b9 0d 01 31 05 cd 0d 01 |..U:x1%=...1....|
00002e70 32 4d c9 31 38 3a 51 24 3d 22 70 6f 73 6e 5f 77 |2M.18:Q$="posn_w|
00002e80 69 6e 64 6f 77 22 3a 78 25 3d 50 33 25 3a 53 30 |indow":x%=P3%:S0|
00002e90 25 3d a4 52 28 59 25 2c 63 25 29 3a 51 30 25 3d |%=.R(Y%,c%):Q0%=|
00002ea0 60 30 25 2b 32 30 3a c8 99 26 34 30 30 64 34 2c |`0%+20:..&400d4,|
00002eb0 2c 78 25 2c 53 30 25 2c 51 30 25 0d 01 33 05 cb |,x%,S0%,Q0%..3..|
00002ec0 0d 01 34 07 cb 3a e1 0d 01 35 12 dd f2 54 30 28 |..4..:...5...T0(|
00002ed0 4a 24 29 3a c8 8e 4a 24 ca 0d 01 36 11 c9 22 51 |J$):..J$...6.."Q|
00002ee0 75 69 74 22 3a 68 33 25 3d b9 0d 01 37 43 c9 22 |uit":h3%=...7C."|
00002ef0 43 65 6c 65 73 74 69 61 6c 20 73 70 68 65 72 65 |Celestial sphere|
00002f00 22 3a f2 43 28 31 2c 64 30 25 2c a3 29 3a 64 30 |":.C(1,d0%,.):d0|
00002f10 25 3d 66 33 25 3a f2 43 28 31 2c 64 30 25 2c b9 |%=f3%:.C(1,d0%,.|
00002f20 29 3a f2 53 28 b9 29 3a e7 75 31 25 8c 0d 01 38 |):.S(.):.u1%...8|
00002f30 22 c8 99 26 34 30 30 64 31 2c 77 25 2c 30 2c 2d |"..&400d1,w%,0,-|
00002f40 42 30 25 2a 53 25 2c 5a 30 25 2a 53 25 2c 30 0d |B0%*S%,Z0%*S%,0.|
00002f50 01 39 0e cc 3a f2 44 3a 75 31 25 3d b9 0d 01 3a |.9..:.D:u1%=...:|
00002f60 05 cd 0d 01 3b 33 c9 22 48 6f 72 69 7a 6f 6e 20 |....;3."Horizon |
00002f70 76 69 65 77 22 3a f2 43 28 31 2c 64 30 25 2c a3 |view":.C(1,d0%,.|
00002f80 29 3a 64 30 25 3d 46 31 25 3a f2 43 28 31 2c 64 |):d0%=F1%:.C(1,d|
00002f90 30 25 2c b9 29 0d 01 3c 40 c9 22 45 71 75 61 74 |0%,.)..<@."Equat|
00002fa0 6f 72 69 61 6c 20 76 69 65 77 22 3a f2 43 28 31 |orial view":.C(1|
00002fb0 2c 64 30 25 2c a3 29 3a 64 30 25 3d 74 33 25 3a |,d0%,.):d0%=t3%:|
00002fc0 f2 43 28 31 2c 64 30 25 2c b9 29 3a f2 49 30 3a |.C(1,d0%,.):.I0:|
00002fd0 e7 78 31 25 8c 0d 01 3d 1e c8 99 26 34 30 30 64 |.x1%...=...&400d|
00002fe0 31 2c 54 30 25 2c 30 2c 2d 36 30 30 2c 33 36 30 |1,T0%,0,-600,360|
00002ff0 30 2c 30 0d 01 3e 0e cc 3a f2 55 3a 78 31 25 3d |0,0..>..:.U:x1%=|
00003000 b9 0d 01 3f 05 cd 0d 01 40 2d c9 22 4f 72 72 65 |...?....@-."Orre|
00003010 72 79 22 3a f2 43 28 31 2c 64 30 25 2c a3 29 3a |ry":.C(1,d0%,.):|
00003020 64 30 25 3d 52 34 25 3a f2 43 28 31 2c 64 30 25 |d0%=R4%:.C(1,d0%|
00003030 2c b9 29 0d 01 41 1f c9 22 4d 6f 6f 6e 22 3a f2 |,.)..A.."Moon":.|
00003040 51 28 51 31 25 2c b9 29 3a 62 33 25 3d b9 3a f2 |Q(Q1%,.):b3%=.:.|
00003050 43 30 0d 01 42 23 c9 22 4c 6f 63 61 74 69 6f 6e |C0..B#."Location|
00003060 22 3a f2 61 28 54 33 25 2c b9 29 3a f2 51 28 58 |":.a(T3%,.):.Q(X|
00003070 30 25 2c b9 29 0d 01 43 07 cb 3a e1 0d 01 44 2f |0%,.)..C..:...D/|
00003080 dd f2 63 30 28 4e 24 2c 52 24 2c 47 24 29 3a ea |..c0(N$,R$,G$):.|
00003090 78 33 25 3a c8 8e c0 4e 24 2c a9 28 4e 24 29 2d |x3%:...N$,.(N$)-|
000030a0 a9 28 a4 41 28 4e 24 29 29 29 ca 0d 01 45 2b c9 |.(.A(N$)))...E+.|
000030b0 22 43 6f 6e 73 74 65 6c 6c 61 74 69 6f 6e 73 2e |"Constellations.|
000030c0 50 72 6f 70 65 72 20 6e 61 6d 65 73 2e 22 3a e7 |Proper names.":.|
000030d0 6c 25 3c 38 39 8c 0d 01 46 10 f2 43 28 34 2c 6c |l%<89...F..C(4,l|
000030e0 25 2d 31 2c a3 29 0d 01 47 13 cc 3a f2 43 28 35 |%-1,.)..G..:.C(5|
000030f0 2c 6c 25 2d 38 39 2c a3 29 0d 01 48 93 cd 3a 6c |,l%-89,.)..H..:l|
00003100 25 3d bb 28 a4 41 28 47 24 29 29 3a f2 43 28 34 |%=.(.A(G$)):.C(4|
00003110 2c 6c 25 2c b9 29 3a 50 25 3d 32 2a 28 31 35 2a |,l%,.):P%=2*(15*|
00003120 28 53 25 28 6c 25 29 81 31 35 29 29 3a 4d 25 3d |(S%(l%).15)):M%=|
00003130 31 30 2a 28 55 25 28 6c 25 29 81 31 30 29 3a 4e |10*(U%(l%).10):N|
00003140 3d b2 28 4d 25 29 3a 56 3d b5 28 4e 29 3a 55 3d |=.(M%):V=.(N):U=|
00003150 9b 28 4e 29 3a 6c 25 2b 3d 31 3a f2 41 28 4b 25 |.(N):l%+=1:.A(K%|
00003160 2c 31 31 2c c3 28 28 28 34 38 2d 50 25 2f 31 35 |,11,.(((48-P%/15|
00003170 29 83 34 38 29 2f 32 29 29 3a f2 41 28 4b 25 2c |).48)/2)):.A(K%,|
00003180 31 33 2c c3 28 4d 25 29 29 3a f2 44 0d 01 49 2b |13,.(M%)):.D..I+|
00003190 c9 22 43 6f 6e 73 74 65 6c 6c 61 74 69 6f 6e 73 |."Constellations|
000031a0 2e 43 6f 6d 6d 6f 6e 20 6e 61 6d 65 73 2e 22 3a |.Common names.":|
000031b0 e7 6c 25 3c 38 39 8c 0d 01 4a 10 f2 43 28 34 2c |.l%<89...J..C(4,|
000031c0 6c 25 2d 31 2c a3 29 0d 01 4b 13 cc 3a f2 43 28 |l%-1,.)..K..:.C(|
000031d0 35 2c 6c 25 2d 38 39 2c a3 29 0d 01 4c a4 cd 3a |5,l%-89,.)..L..:|
000031e0 6c 25 3d 38 38 2b bb 28 a4 41 28 47 24 29 29 3a |l%=88+.(.A(G$)):|
000031f0 f2 43 28 35 2c 6c 25 2d 38 38 2c b9 29 3a 50 25 |.C(5,l%-88,.):P%|
00003200 3d 32 2a 28 31 35 2a 28 53 25 28 6c 25 29 81 31 |=2*(15*(S%(l%).1|
00003210 35 29 29 3a 4d 25 3d 31 30 2a 28 55 25 28 6c 25 |5)):M%=10*(U%(l%|
00003220 29 81 31 30 29 3a 4e 3d b2 28 4d 25 29 3a 56 3d |).10):N=.(M%):V=|
00003230 b5 28 4e 29 3a 55 3d 9b 28 4e 29 3a 6c 25 3d 5a |.(N):U=.(N):l%=Z|
00003240 25 28 bb 28 a4 41 28 47 24 29 29 29 3a f2 41 28 |%(.(.A(G$))):.A(|
00003250 4b 25 2c 31 31 2c c3 28 28 28 34 38 2d 50 25 2f |K%,11,.(((48-P%/|
00003260 31 35 29 83 34 38 29 2f 32 29 29 3a f2 41 28 4b |15).48)/2)):.A(K|
00003270 25 2c 31 33 2c c3 28 4d 25 29 29 3a f2 44 0d 01 |%,13,.(M%)):.D..|
00003280 4d fa c9 22 4e 61 6d 65 64 20 73 74 61 72 2e 41 |M.."Named star.A|
00003290 2e 2e 2e 41 2e 22 3a 4f 25 3d bb 28 a4 41 28 47 |...A.":O%=.(.A(G|
000032a0 24 29 29 3a 50 25 3d 37 32 30 2d 33 30 2a a8 28 |$)):P%=720-30*.(|
000032b0 30 2e 35 2b 46 25 28 4f 25 29 2f 33 36 30 30 29 |0.5+F%(O%)/3600)|
000032c0 3a 4b 24 3d 22 52 41 41 20 22 2b c3 28 46 25 28 |:K$="RAA "+.(F%(|
000032d0 4f 25 29 29 3a 65 30 25 3d b9 3a 4d 25 3d a8 28 |O%)):e0%=.:M%=.(|
000032e0 30 2e 35 2b 28 4e 25 28 4f 25 29 2f 33 36 30 30 |0.5+(N%(O%)/3600|
000032f0 30 29 29 2a 31 30 3a 4e 3d b2 28 4d 25 29 3a 56 |0))*10:N=.(M%):V|
00003300 3d b5 28 4e 29 3a 55 3d 9b 28 4e 29 3a 6a 25 3d |=.(N):U=.(N):j%=|
00003310 b9 3a 76 3d 46 25 28 4f 25 29 3a 73 3d 4e 25 28 |.:v=F%(O%):s=N%(|
00003320 4f 25 29 3a f2 42 28 4b 25 2c 36 2c 6a 25 29 3a |O%):.B(K%,6,j%):|
00003330 f2 41 28 4b 25 2c 31 31 2c c3 28 28 28 34 38 2d |.A(K%,11,.(((48-|
00003340 50 25 2f 31 35 29 83 34 38 29 2f 32 29 29 3a f2 |P%/15).48)/2)):.|
00003350 41 28 4b 25 2c 31 33 2c c3 28 4d 25 29 29 3a f2 |A(K%,13,.(M%)):.|
00003360 44 3a f2 4a 28 47 31 25 2b 5f 25 2c 43 31 25 2b |D:.J(G1%+_%,C1%+|
00003370 60 25 29 3a 6e 25 3d a3 0d 01 4e 0f f2 42 28 4b |`%):n%=...N..B(K|
00003380 25 2c 35 2c 6e 25 29 0d 01 4f fd c9 22 4e 61 6d |%,5,n%)..O.."Nam|
00003390 65 64 20 73 74 61 72 2e 42 2e 2e 2e 4c 2e 22 3a |ed star.B...L.":|
000033a0 4f 25 3d bb 28 a4 41 28 47 24 29 29 2b 39 31 3a |O%=.(.A(G$))+91:|
000033b0 50 25 3d 37 32 30 2d 33 30 2a a8 28 30 2e 35 2b |P%=720-30*.(0.5+|
000033c0 46 25 28 4f 25 29 2f 33 36 30 30 29 3a 4b 24 3d |F%(O%)/3600):K$=|
000033d0 22 52 41 41 20 22 2b c3 28 46 25 28 4f 25 29 29 |"RAA "+.(F%(O%))|
000033e0 3a 65 30 25 3d b9 3a 4d 25 3d a8 28 30 2e 35 2b |:e0%=.:M%=.(0.5+|
000033f0 28 4e 25 28 4f 25 29 2f 33 36 30 30 30 29 29 2a |(N%(O%)/36000))*|
00003400 31 30 3a 4e 3d b2 28 4d 25 29 3a 56 3d b5 28 4e |10:N=.(M%):V=.(N|
00003410 29 3a 55 3d 9b 28 4e 29 3a 6a 25 3d b9 3a 76 3d |):U=.(N):j%=.:v=|
00003420 46 25 28 4f 25 29 3a 73 3d 4e 25 28 4f 25 29 3a |F%(O%):s=N%(O%):|
00003430 f2 42 28 4b 25 2c 36 2c 6a 25 29 3a f2 41 28 4b |.B(K%,6,j%):.A(K|
00003440 25 2c 31 31 2c c3 28 28 28 34 38 2d 50 25 2f 31 |%,11,.(((48-P%/1|
00003450 35 29 83 34 38 29 2f 32 29 29 3a f2 41 28 4b 25 |5).48)/2)):.A(K%|
00003460 2c 31 33 2c c3 28 4d 25 29 29 3a f2 44 3a f2 4a |,13,.(M%)):.D:.J|
00003470 28 47 31 25 2b 5f 25 2c 43 31 25 2b 60 25 29 3a |(G1%+_%,C1%+`%):|
00003480 6e 25 3d a3 0d 01 50 0f f2 42 28 4b 25 2c 35 2c |n%=...P..B(K%,5,|
00003490 6e 25 29 0d 01 51 fb c9 22 4e 61 6d 65 64 20 73 |n%)..Q.."Named s|
000034a0 74 61 72 2e 4d 2e 2e 2e 52 2e 22 3a 4f 25 3d bb |tar.M...R.":O%=.|
000034b0 28 a4 41 28 47 24 29 29 2b 39 31 2b 37 36 3a 50 |(.A(G$))+91+76:P|
000034c0 25 3d 37 32 30 2d 33 30 2a a8 28 30 2e 35 2b 46 |%=720-30*.(0.5+F|
000034d0 25 28 4f 25 29 2f 33 36 30 30 29 3a 4b 24 3d 22 |%(O%)/3600):K$="|
000034e0 52 41 41 20 22 2b c3 28 46 25 28 4f 25 29 29 3a |RAA "+.(F%(O%)):|
000034f0 65 30 25 3d b9 3a 4d 25 3d a8 28 30 2e 35 2b 28 |e0%=.:M%=.(0.5+(|
00003500 4e 25 28 4f 25 29 2f 33 36 30 30 30 29 29 2a 31 |N%(O%)/36000))*1|
00003510 30 3a 4e 3d b2 28 4d 25 29 3a 56 3d b5 28 4e 29 |0:N=.(M%):V=.(N)|
00003520 3a 55 3d 9b 28 4e 29 3a 6a 25 3d b9 3a 76 3d 46 |:U=.(N):j%=.:v=F|
00003530 25 28 4f 25 29 3a 73 3d 4e 25 28 4f 25 29 3a f2 |%(O%):s=N%(O%):.|
00003540 42 28 4b 25 2c 36 2c 6a 25 29 3a f2 41 28 4b 25 |B(K%,6,j%):.A(K%|
00003550 2c 31 31 2c c3 28 28 28 34 38 2d 50 25 2f 31 35 |,11,.(((48-P%/15|
00003560 29 83 34 38 29 2f 32 29 29 3a f2 41 28 4b 25 2c |).48)/2)):.A(K%,|
00003570 31 33 2c c3 28 4d 25 29 29 3a f2 44 3a f2 4a 28 |13,.(M%)):.D:.J(|
00003580 47 31 25 2b 5f 25 2c 43 31 25 2b 60 25 29 0d 01 |G1%+_%,C1%+`%)..|
00003590 52 14 6e 25 3d a3 3a f2 42 28 4b 25 2c 35 2c 6e |R.n%=.:.B(K%,5,n|
000035a0 25 29 0d 01 53 ec c9 22 4e 61 6d 65 64 20 73 74 |%)..S.."Named st|
000035b0 61 72 2e 53 2e 2e 2e 5a 2e 22 3a 4f 25 3d bb 28 |ar.S...Z.":O%=.(|
000035c0 a4 41 28 47 24 29 29 2b 39 31 2b 37 36 2b 37 34 |.A(G$))+91+76+74|
000035d0 3a 50 25 3d 37 32 30 2d 33 30 2a a8 28 30 2e 35 |:P%=720-30*.(0.5|
000035e0 2b 46 25 28 4f 25 29 2f 33 36 30 30 29 3a 4b 24 |+F%(O%)/3600):K$|
000035f0 3d 22 52 41 41 20 22 2b c3 28 46 25 28 4f 25 29 |="RAA "+.(F%(O%)|
00003600 29 3a 65 30 25 3d b9 3a 4d 25 3d a8 28 30 2e 35 |):e0%=.:M%=.(0.5|
00003610 2b 28 4e 25 28 4f 25 29 2f 33 36 30 30 30 29 29 |+(N%(O%)/36000))|
00003620 2a 31 30 3a 4e 3d b2 28 4d 25 29 3a 56 3d b5 28 |*10:N=.(M%):V=.(|
00003630 4e 29 3a 55 3d 9b 28 4e 29 3a 6a 25 3d b9 3a 76 |N):U=.(N):j%=.:v|
00003640 3d 46 25 28 4f 25 29 3a 73 3d 4e 25 28 4f 25 29 |=F%(O%):s=N%(O%)|
00003650 3a f2 42 28 4b 25 2c 36 2c 6a 25 29 3a f2 41 28 |:.B(K%,6,j%):.A(|
00003660 4b 25 2c 31 31 2c c3 28 28 28 34 38 2d 50 25 2f |K%,11,.(((48-P%/|
00003670 31 35 29 83 34 38 29 2f 32 29 29 3a f2 41 28 4b |15).48)/2)):.A(K|
00003680 25 2c 31 33 2c c3 28 4d 25 29 29 3a f2 44 0d 01 |%,13,.(M%)):.D..|
00003690 54 26 f2 4a 28 47 31 25 2b 5f 25 2c 43 31 25 2b |T&.J(G1%+_%,C1%+|
000036a0 60 25 29 3a 6e 25 3d a3 3a f2 42 28 4b 25 2c 35 |`%):n%=.:.B(K%,5|
000036b0 2c 6e 25 29 0d 01 55 f6 c9 22 4e 61 6d 65 64 20 |,n%)..U.."Named |
000036c0 73 74 61 72 2e 43 6f 6d 6d 6f 6e 20 6e 61 6d 65 |star.Common name|
000036d0 73 2e 22 3a 4f 25 3d bb 28 a4 41 28 47 24 29 29 |s.":O%=.(.A(G$))|
000036e0 2b 39 31 2b 37 36 2b 37 34 2b 36 36 3a 50 25 3d |+91+76+74+66:P%=|
000036f0 37 32 30 2d 33 30 2a a8 28 30 2e 35 2b 46 25 28 |720-30*.(0.5+F%(|
00003700 4f 25 29 2f 33 36 30 30 29 3a 4b 24 3d 22 52 41 |O%)/3600):K$="RA|
00003710 41 20 22 2b c3 28 46 25 28 4f 25 29 29 3a 65 30 |A "+.(F%(O%)):e0|
00003720 25 3d b9 3a 4d 25 3d a8 28 30 2e 35 2b 28 4e 25 |%=.:M%=.(0.5+(N%|
00003730 28 4f 25 29 2f 33 36 30 30 30 29 29 2a 31 30 3a |(O%)/36000))*10:|
00003740 4e 3d b2 28 4d 25 29 3a 56 3d b5 28 4e 29 3a 55 |N=.(M%):V=.(N):U|
00003750 3d 9b 28 4e 29 3a 6a 25 3d b9 3a 76 3d 46 25 28 |=.(N):j%=.:v=F%(|
00003760 4f 25 29 3a 73 3d 4e 25 28 4f 25 29 3a f2 42 28 |O%):s=N%(O%):.B(|
00003770 4b 25 2c 36 2c 6a 25 29 3a f2 41 28 4b 25 2c 31 |K%,6,j%):.A(K%,1|
00003780 31 2c c3 28 28 28 34 38 2d 50 25 2f 31 35 29 83 |1,.(((48-P%/15).|
00003790 34 38 29 2f 32 29 29 3a f2 41 28 4b 25 2c 31 33 |48)/2)):.A(K%,13|
000037a0 2c c3 28 4d 25 29 29 3a f2 44 0d 01 56 26 f2 4a |,.(M%)):.D..V&.J|
000037b0 28 47 31 25 2b 5f 25 2c 43 31 25 2b 60 25 29 3a |(G1%+_%,C1%+`%):|
000037c0 6e 25 3d a3 3a f2 42 28 4b 25 2c 35 2c 6e 25 29 |n%=.:.B(K%,5,n%)|
000037d0 0d 01 57 49 c9 22 4d 65 73 73 69 65 72 20 6f 62 |..WI."Messier ob|
000037e0 6a 65 63 74 2e 22 3a 4f 25 3d bb 28 a4 41 28 47 |ject.":O%=.(.A(G|
000037f0 24 29 29 3a e3 46 25 3d 31 b8 31 31 30 3a e7 4f |$)):.F%=1.110:.O|
00003800 25 28 46 25 29 81 31 30 30 3d 4f 25 3a 4f 25 3d |%(F%).100=O%:O%=|
00003810 46 25 3a 46 25 3d 31 31 31 0d 01 58 f6 ed 3a 50 |F%:F%=111..X..:P|
00003820 25 3d 37 32 30 2d 33 30 2a a8 28 30 2e 35 2b 4b |%=720-30*.(0.5+K|
00003830 25 28 4f 25 29 2f 33 36 30 30 29 3a 4d 25 3d a8 |%(O%)/3600):M%=.|
00003840 28 30 2e 35 2b 28 4d 25 28 4f 25 29 2f 33 36 30 |(0.5+(M%(O%)/360|
00003850 30 30 29 29 2a 31 30 3a 4e 3d b2 28 4d 25 29 3a |00))*10:N=.(M%):|
00003860 56 3d b5 28 4e 29 3a 55 3d 9b 28 4e 29 3a 76 3d |V=.(N):U=.(N):v=|
00003870 4b 25 28 4f 25 29 3a 73 3d 4d 25 28 4f 25 29 3a |K%(O%):s=M%(O%):|
00003880 4f 25 3d 31 30 30 30 30 2a 4f 25 3a 6a 25 3d b9 |O%=10000*O%:j%=.|
00003890 3a f2 42 28 4b 25 2c 36 2c 6a 25 29 3a f2 41 28 |:.B(K%,6,j%):.A(|
000038a0 4b 25 2c 31 31 2c c3 28 28 28 34 38 2d 50 25 2f |K%,11,.(((48-P%/|
000038b0 31 35 29 83 34 38 29 2f 32 29 29 3a f2 41 28 4b |15).48)/2)):.A(K|
000038c0 25 2c 31 33 2c c3 28 4d 25 29 29 3a f2 44 3a 4b |%,13,.(M%)):.D:K|
000038d0 24 3d 49 24 28 4f 25 28 4f 25 81 31 30 30 30 30 |$=I$(O%(O%.10000|
000038e0 29 83 31 30 30 29 3a 65 30 25 3d b9 3a f2 4a 28 |).100):e0%=.:.J(|
000038f0 47 31 25 2b 5f 25 2c 43 31 25 2b 60 25 29 3a 6e |G1%+_%,C1%+`%):n|
00003900 25 3d a3 3a f2 42 28 4b 25 2c 35 2c 6e 25 29 0d |%=.:.B(K%,5,n%).|
00003910 01 59 47 c9 22 4d 65 73 73 69 65 72 20 6f 62 6a |.YG."Messier obj|
00003920 65 63 74 2e 27 4d 27 20 6e 75 6d 62 65 72 20 28 |ect.'M' number (|
00003930 31 20 2d 20 31 31 30 29 2e 22 3a 4f 25 3d bb 28 |1 - 110).":O%=.(|
00003940 a4 41 28 4e 24 29 29 3a e7 4f 25 3c 31 84 4f 25 |.A(N$)):.O%<1.O%|
00003950 3e 31 31 30 3a e1 0d 01 5a f4 50 25 3d 37 32 30 |>110:...Z.P%=720|
00003960 2d 33 30 2a a8 28 30 2e 35 2b 4b 25 28 4f 25 29 |-30*.(0.5+K%(O%)|
00003970 2f 33 36 30 30 29 3a 4d 25 3d a8 28 30 2e 35 2b |/3600):M%=.(0.5+|
00003980 28 4d 25 28 4f 25 29 2f 33 36 30 30 30 29 29 2a |(M%(O%)/36000))*|
00003990 31 30 3a 4e 3d b2 28 4d 25 29 3a 56 3d b5 28 4e |10:N=.(M%):V=.(N|
000039a0 29 3a 55 3d 9b 28 4e 29 3a 76 3d 4b 25 28 4f 25 |):U=.(N):v=K%(O%|
000039b0 29 3a 73 3d 4d 25 28 4f 25 29 3a 4f 25 3d 31 30 |):s=M%(O%):O%=10|
000039c0 30 30 30 2a 4f 25 3a 6a 25 3d b9 3a f2 42 28 4b |000*O%:j%=.:.B(K|
000039d0 25 2c 36 2c 6a 25 29 3a f2 41 28 4b 25 2c 31 31 |%,6,j%):.A(K%,11|
000039e0 2c c3 28 28 28 34 38 2d 50 25 2f 31 35 29 83 34 |,.(((48-P%/15).4|
000039f0 38 29 2f 32 29 29 3a f2 41 28 4b 25 2c 31 33 2c |8)/2)):.A(K%,13,|
00003a00 c3 28 4d 25 29 29 3a f2 44 3a f2 4a 28 47 31 25 |.(M%)):.D:.J(G1%|
00003a10 2b 5f 25 2c 43 31 25 2b 60 25 29 3a 6e 25 3d a3 |+_%,C1%+`%):n%=.|
00003a20 3a f2 42 28 4b 25 2c 35 2c 6e 25 29 3a 4b 24 3d |:.B(K%,5,n%):K$=|
00003a30 49 24 28 4f 25 28 4f 25 81 31 30 30 30 30 29 83 |I$(O%(O%.10000).|
00003a40 31 30 30 29 3a 65 30 25 3d b9 0d 01 5b 1a c9 22 |100):e0%=...[.."|
00003a50 53 6f 6c 61 72 20 73 79 73 74 65 6d 2e 22 3a c8 |Solar system.":.|
00003a60 8e 52 24 ca 0d 01 5c 14 c9 22 53 75 6e 22 3a 42 |.R$...\.."Sun":B|
00003a70 3d 4d 30 3a 43 3d 6d 30 0d 01 5d 15 c9 22 4d 6f |=M0:C=m0..].."Mo|
00003a80 6f 6e 22 3a 42 3d 49 30 3a 43 3d 4c 30 0d 01 5e |on":B=I0:C=L0..^|
00003a90 18 c9 22 4d 65 72 63 75 72 79 22 3a 42 3d 43 32 |.."Mercury":B=C2|
00003aa0 3a 43 3d 6d 31 0d 01 5f 16 c9 22 56 65 6e 75 73 |:C=m1.._.."Venus|
00003ab0 22 3a 42 3d 50 32 3a 43 3d 4d 32 0d 01 60 15 c9 |":B=P2:C=M2..`..|
00003ac0 22 4d 61 72 73 22 3a 42 3d 46 32 3a 43 3d 49 32 |"Mars":B=F2:C=I2|
00003ad0 0d 01 61 18 c9 22 4a 75 70 69 74 65 72 22 3a 42 |..a.."Jupiter":B|
00003ae0 3d 4a 32 3a 43 3d 48 32 0d 01 62 17 c9 22 53 61 |=J2:C=H2..b.."Sa|
00003af0 74 75 72 6e 22 3a 42 3d 41 32 3a 43 3d 4c 32 0d |turn":B=A2:C=L2.|
00003b00 01 63 17 c9 22 55 72 61 6e 75 73 22 3a 42 3d 76 |.c.."Uranus":B=v|
00003b10 31 3a 43 3d 53 32 0d 01 64 18 c9 22 4e 65 70 74 |1:C=S2..d.."Nept|
00003b20 75 6e 65 22 3a 42 3d 72 31 3a 43 3d 4b 32 0d 01 |une":B=r1:C=K2..|
00003b30 65 16 c9 22 50 6c 75 74 6f 22 3a 42 3d 7a 31 3a |e.."Pluto":B=z1:|
00003b40 43 3d 6a 31 0d 01 66 15 c9 22 55 6d 62 72 61 22 |C=j1..f.."Umbra"|
00003b50 3a 42 3d 6d 3a 43 3d 69 30 0d 01 67 b8 cb 3a 50 |:B=m:C=i0..g..:P|
00003b60 25 3d 37 32 30 2d 33 30 2a a8 28 30 2e 35 2b 42 |%=720-30*.(0.5+B|
00003b70 2f 33 36 30 30 29 3a 4d 25 3d a8 28 30 2e 35 2b |/3600):M%=.(0.5+|
00003b80 28 43 2f 33 36 30 30 30 29 29 2a 31 30 3a 4e 3d |(C/36000))*10:N=|
00003b90 b2 28 4d 25 29 3a 56 3d b5 28 4e 29 3a 55 3d 9b |.(M%):V=.(N):U=.|
00003ba0 28 4e 29 3a 6a 25 3d b9 3a 76 3d 42 3a 73 3d 43 |(N):j%=.:v=B:s=C|
00003bb0 3a f2 42 28 4b 25 2c 36 2c 6a 25 29 3a f2 41 28 |:.B(K%,6,j%):.A(|
00003bc0 4b 25 2c 31 31 2c c3 28 28 28 34 38 2d 50 25 2f |K%,11,.(((48-P%/|
00003bd0 31 35 29 83 34 38 29 2f 32 29 29 3a f2 41 28 4b |15).48)/2)):.A(K|
00003be0 25 2c 31 33 2c c3 28 4d 25 29 29 3a f2 44 3a f2 |%,13,.(M%)):.D:.|
00003bf0 4a 28 47 31 25 2b 5f 25 2c 43 31 25 2b 60 25 29 |J(G1%+_%,C1%+`%)|
00003c00 3a 6e 25 3d a3 3a f2 42 28 4b 25 2c 35 2c 6e 25 |:n%=.:.B(K%,5,n%|
00003c10 29 0d 01 68 17 7f 3a e7 c0 4e 24 2c 36 29 3d 22 |)..h..:..N$,6)="|
00003c20 42 61 79 65 72 2e 22 8c 0d 01 69 29 49 25 3d 30 |Bayer."...i)I%=0|
00003c30 3a e3 46 25 3d 31 b8 a9 28 4e 24 29 3a e7 c1 4e |:.F%=1..(N$):..N|
00003c40 24 2c 46 25 2c 31 29 3d 22 2e 22 3a 49 25 2b 3d |$,F%,1)=".":I%+=|
00003c50 31 0d 01 6a 0c ed 3a e7 49 25 3d 32 8c 0d 01 6b |1..j..:.I%=2...k|
00003c60 5a 6f 34 25 3d 31 2b bb 28 a4 41 28 47 24 29 29 |Zo4%=1+.(.A(G$))|
00003c70 3a 70 34 25 3d 31 2b bb 28 c1 47 24 2c 31 2b a7 |:p4%=1+.(.G$,1+.|
00003c80 47 24 2c 22 2e 22 29 2c 32 29 29 3a 78 33 25 3d |G$,"."),2)):x3%=|
00003c90 b9 3a e3 52 25 3d 30 b8 70 30 25 3a e7 28 67 32 |.:.R%=0.p0%:.(g2|
00003ca0 25 3f 52 25 3d 6f 34 25 29 80 28 6a 33 25 3f 52 |%?R%=o4%).(j3%?R|
00003cb0 25 3d 70 34 25 29 8c 0d 01 6c 18 55 25 3d 52 25 |%=p4%)...l.U%=R%|
00003cc0 3a 52 25 3d 70 30 25 2b 31 3a 78 33 25 3d a3 0d |:R%=p0%+1:x3%=..|
00003cd0 01 6d 0d cd 3a ed 3a e7 78 33 25 8c 0d 01 6e 3f |.m..:.:.x3%...n?|
00003ce0 f2 77 28 22 53 74 61 72 20 72 65 71 75 65 73 74 |.w("Star request|
00003cf0 65 64 20 6e 6f 74 20 69 6e 20 64 61 74 61 62 61 |ed not in databa|
00003d00 73 65 21 22 2c 22 42 61 79 65 72 20 73 74 61 72 |se!","Bayer star|
00003d10 20 66 69 6e 64 65 72 22 29 3a e1 0d 01 6f 16 cd | finder"):...o..|
00003d20 3a 4f 25 3d 55 25 3a e7 4e 25 3c 4c 25 28 32 29 |:O%=U%:.N%<L%(2)|
00003d30 8c 0d 01 70 44 50 25 3d 37 32 30 2d 33 30 2a a8 |...pDP%=720-30*.|
00003d40 28 30 2e 35 2b 4a 25 28 55 25 29 2f 33 36 30 30 |(0.5+J%(U%)/3600|
00003d50 29 3a 4d 25 3d a8 28 30 2e 35 2b 28 47 25 28 55 |):M%=.(0.5+(G%(U|
00003d60 25 29 2f 28 33 36 30 30 2a 32 2a 61 25 29 29 29 |%)/(3600*2*a%)))|
00003d70 2a 32 2a 61 25 0d 01 71 42 cc 3a 50 25 3d 37 32 |*2*a%..qB.:P%=72|
00003d80 30 2d 31 35 2a a8 28 30 2e 35 2b 4a 25 28 55 25 |0-15*.(0.5+J%(U%|
00003d90 29 2f 31 38 30 30 29 3a 4d 25 3d a8 28 30 2e 35 |)/1800):M%=.(0.5|
00003da0 2b 28 47 25 28 55 25 29 2f 28 33 36 30 30 2a 61 |+(G%(U%)/(3600*a|
00003db0 25 29 29 29 2a 61 25 0d 01 72 89 cd 3a 4e 3d b2 |%)))*a%..r..:N=.|
00003dc0 28 4d 25 29 3a 56 3d b5 28 4e 29 3a 55 3d 9b 28 |(M%):V=.(N):U=.(|
00003dd0 4e 29 3a 76 3d 4a 25 28 4f 25 29 3a 73 3d 47 25 |N):v=J%(O%):s=G%|
00003de0 28 4f 25 29 3a 6a 25 3d b9 3a 6e 25 3d a3 3a f2 |(O%):j%=.:n%=.:.|
00003df0 42 28 4b 25 2c 36 2c 6a 25 29 3a f2 42 28 4b 25 |B(K%,6,j%):.B(K%|
00003e00 2c 35 2c 6e 25 29 3a f2 41 28 4b 25 2c 31 33 2c |,5,n%):.A(K%,13,|
00003e10 c3 28 4d 25 29 29 3a f2 41 28 4b 25 2c 31 31 2c |.(M%)):.A(K%,11,|
00003e20 c3 28 28 28 34 38 2d 50 25 2f 31 35 29 83 34 38 |.(((48-P%/15).48|
00003e30 29 2f 32 29 29 3a f2 44 3a f2 4b 30 28 55 25 29 |)/2)):.D:.K0(U%)|
00003e40 0d 01 73 05 cd 0d 01 74 05 cd 0d 01 75 07 cb 3a |..s....t....u..:|
00003e50 e1 0d 01 76 12 dd f2 42 31 28 4a 24 29 3a c8 8e |...v...B1(J$):..|
00003e60 4a 24 ca 0d 01 77 20 c9 22 53 75 6e 22 3a 64 32 |J$...w ."Sun":d2|
00003e70 25 3d ac 64 32 25 3a f2 43 28 32 33 2c 30 2c 64 |%=.d2%:.C(23,0,d|
00003e80 32 25 29 0d 01 78 21 c9 22 4d 6f 6f 6e 22 3a 59 |2%)..x!."Moon":Y|
00003e90 32 25 3d ac 59 32 25 3a f2 43 28 32 33 2c 31 2c |2%=.Y2%:.C(23,1,|
00003ea0 59 32 25 29 0d 01 79 24 c9 22 4d 65 72 63 75 72 |Y2%)..y$."Mercur|
00003eb0 79 22 3a 4a 32 25 3d ac 4a 32 25 3a f2 43 28 32 |y":J2%=.J2%:.C(2|
00003ec0 33 2c 32 2c 4a 32 25 29 0d 01 7a 22 c9 22 56 65 |3,2,J2%)..z"."Ve|
00003ed0 6e 75 73 22 3a 6c 31 25 3d ac 6c 31 25 3a f2 43 |nus":l1%=.l1%:.C|
00003ee0 28 32 33 2c 33 2c 6c 31 25 29 0d 01 7b 21 c9 22 |(23,3,l1%)..{!."|
00003ef0 4d 61 72 73 22 3a 6b 31 25 3d ac 6b 31 25 3a f2 |Mars":k1%=.k1%:.|
00003f00 43 28 32 33 2c 34 2c 6b 31 25 29 0d 01 7c 24 c9 |C(23,4,k1%)..|$.|
00003f10 22 4a 75 70 69 74 65 72 22 3a 54 32 25 3d ac 54 |"Jupiter":T2%=.T|
00003f20 32 25 3a f2 43 28 32 33 2c 35 2c 54 32 25 29 0d |2%:.C(23,5,T2%).|
00003f30 01 7d 23 c9 22 53 61 74 75 72 6e 22 3a 46 32 25 |.}#."Saturn":F2%|
00003f40 3d ac 46 32 25 3a f2 43 28 32 33 2c 36 2c 46 32 |=.F2%:.C(23,6,F2|
00003f50 25 29 0d 01 7e 23 c9 22 55 72 61 6e 75 73 22 3a |%)..~#."Uranus":|
00003f60 4c 32 25 3d ac 4c 32 25 3a f2 43 28 32 33 2c 37 |L2%=.L2%:.C(23,7|
00003f70 2c 4c 32 25 29 0d 01 7f 24 c9 22 4e 65 70 74 75 |,L2%)...$."Neptu|
00003f80 6e 65 22 3a 4e 32 25 3d ac 4e 32 25 3a f2 43 28 |ne":N2%=.N2%:.C(|
00003f90 32 33 2c 38 2c 4e 32 25 29 0d 01 80 22 c9 22 50 |23,8,N2%)..."."P|
00003fa0 6c 75 74 6f 22 3a 4d 32 25 3d ac 4d 32 25 3a f2 |luto":M2%=.M2%:.|
00003fb0 43 28 32 33 2c 39 2c 4d 32 25 29 0d 01 81 23 c9 |C(23,9,M2%)...#.|
00003fc0 22 55 6d 62 72 61 22 3a 6d 31 25 3d ac 6d 31 25 |"Umbra":m1%=.m1%|
00003fd0 3a f2 43 28 32 33 2c 31 30 2c 6d 31 25 29 0d 01 |:.C(23,10,m1%)..|
00003fe0 82 07 cb 3a e1 0d 01 83 12 dd f2 55 30 28 4a 24 |...:.......U0(J$|
00003ff0 29 3a c8 8e 4a 24 ca 0d 01 84 20 c9 22 54 69 6d |):..J$.... ."Tim|
00004000 65 20 63 6f 6e 74 72 6f 6c 73 22 3a f2 51 28 74 |e controls":.Q(t|
00004010 69 6d 65 25 2c b9 29 0d 01 85 2a c9 22 43 6f 6e |ime%,.)...*."Con|
00004020 73 74 27 6e 20 6c 69 6e 65 73 22 3a 74 32 25 3d |st'n lines":t2%=|
00004030 ac 74 32 25 3a f2 43 28 32 34 2c 31 2c 74 32 25 |.t2%:.C(24,1,t2%|
00004040 29 0d 01 86 2a c9 22 43 6f 6e 73 74 27 6e 20 6e |)...*."Const'n n|
00004050 61 6d 65 73 22 3a 71 32 25 3d ac 71 32 25 3a f2 |ames":q2%=.q2%:.|
00004060 43 28 32 34 2c 32 2c 71 32 25 29 0d 01 87 28 c9 |C(24,2,q2%)...(.|
00004070 22 52 41 2f 44 65 63 20 67 72 69 64 22 3a 42 33 |"RA/Dec grid":B3|
00004080 25 3d ac 42 33 25 3a f2 43 28 32 34 2c 33 2c 42 |%=.B3%:.C(24,3,B|
00004090 33 25 29 0d 01 88 1e c9 22 55 70 64 61 74 65 20 |3%)....."Update |
000040a0 64 69 73 70 6c 61 79 22 3a f2 55 3a 78 31 25 3d |display":.U:x1%=|
000040b0 b9 0d 01 89 20 c9 22 53 75 6e 22 3a 6e 32 25 3d |.... ."Sun":n2%=|
000040c0 ac 6e 32 25 3a f2 43 28 32 35 2c 30 2c 6e 32 25 |.n2%:.C(25,0,n2%|
000040d0 29 0d 01 8a 21 c9 22 4d 6f 6f 6e 22 3a 63 32 25 |)...!."Moon":c2%|
000040e0 3d ac 63 32 25 3a f2 43 28 32 35 2c 31 2c 63 32 |=.c2%:.C(25,1,c2|
000040f0 25 29 0d 01 8b 24 c9 22 4d 65 72 63 75 72 79 22 |%)...$."Mercury"|
00004100 3a 51 32 25 3d ac 51 32 25 3a f2 43 28 32 35 2c |:Q2%=.Q2%:.C(25,|
00004110 32 2c 51 32 25 29 0d 01 8c 22 c9 22 56 65 6e 75 |2,Q2%)..."."Venu|
00004120 73 22 3a 70 31 25 3d ac 70 31 25 3a f2 43 28 32 |s":p1%=.p1%:.C(2|
00004130 35 2c 33 2c 70 31 25 29 0d 01 8d 21 c9 22 4d 61 |5,3,p1%)...!."Ma|
00004140 72 73 22 3a 42 32 25 3d ac 42 32 25 3a f2 43 28 |rs":B2%=.B2%:.C(|
00004150 32 35 2c 34 2c 42 32 25 29 0d 01 8e 24 c9 22 4a |25,4,B2%)...$."J|
00004160 75 70 69 74 65 72 22 3a 43 32 25 3d ac 43 32 25 |upiter":C2%=.C2%|
00004170 3a f2 43 28 32 35 2c 35 2c 43 32 25 29 0d 01 8f |:.C(25,5,C2%)...|
00004180 23 c9 22 53 61 74 75 72 6e 22 3a 4f 32 25 3d ac |#."Saturn":O2%=.|
00004190 4f 32 25 3a f2 43 28 32 35 2c 36 2c 4f 32 25 29 |O2%:.C(25,6,O2%)|
000041a0 0d 01 90 23 c9 22 55 72 61 6e 75 73 22 3a 48 32 |...#."Uranus":H2|
000041b0 25 3d ac 48 32 25 3a f2 43 28 32 35 2c 37 2c 48 |%=.H2%:.C(25,7,H|
000041c0 32 25 29 0d 01 91 24 c9 22 4e 65 70 74 75 6e 65 |2%)...$."Neptune|
000041d0 22 3a 71 31 25 3d ac 71 31 25 3a f2 43 28 32 35 |":q1%=.q1%:.C(25|
000041e0 2c 38 2c 71 31 25 29 0d 01 92 22 c9 22 50 6c 75 |,8,q1%)..."."Plu|
000041f0 74 6f 22 3a 53 32 25 3d ac 53 32 25 3a f2 43 28 |to":S2%=.S2%:.C(|
00004200 32 35 2c 39 2c 53 32 25 29 0d 01 93 23 c9 22 55 |25,9,S2%)...#."U|
00004210 6d 62 72 61 22 3a 49 32 25 3d ac 49 32 25 3a f2 |mbra":I2%=.I2%:.|
00004220 43 28 32 35 2c 31 30 2c 49 32 25 29 0d 01 94 07 |C(25,10,I2%)....|
00004230 cb 3a e1 0d 01 95 18 dd f2 46 31 28 4a 24 29 3a |.:.......F1(J$):|
00004240 46 25 3d 2d 31 3a c8 8e 4a 24 ca 0d 01 96 0f c9 |F%=-1:..J$......|
00004250 42 24 28 30 29 3a 46 25 3d 30 0d 01 97 0f c9 42 |B$(0):F%=0.....B|
00004260 24 28 31 29 3a 46 25 3d 31 0d 01 98 0f c9 42 24 |$(1):F%=1.....B$|
00004270 28 32 29 3a 46 25 3d 32 0d 01 99 0f c9 42 24 28 |(2):F%=2.....B$(|
00004280 33 29 3a 46 25 3d 33 0d 01 9a 0f c9 42 24 28 34 |3):F%=3.....B$(4|
00004290 29 3a 46 25 3d 34 0d 01 9b 0f c9 42 24 28 35 29 |):F%=4.....B$(5)|
000042a0 3a 46 25 3d 35 0d 01 9c 0f c9 42 24 28 36 29 3a |:F%=5.....B$(6):|
000042b0 46 25 3d 36 0d 01 9d 0f c9 42 24 28 37 29 3a 46 |F%=6.....B$(7):F|
000042c0 25 3d 37 0d 01 9e 0f c9 42 24 28 38 29 3a 46 25 |%=7.....B$(8):F%|
000042d0 3d 38 0d 01 9f 0f c9 42 24 28 39 29 3a 46 25 3d |=8.....B$(9):F%=|
000042e0 39 0d 01 a0 11 c9 42 24 28 31 30 29 3a 46 25 3d |9.....B$(10):F%=|
000042f0 31 30 0d 01 a1 1c cb 3a e7 46 25 3e 2d 31 3a f2 |10.....:.F%>-1:.|
00004300 61 28 46 25 2c a3 29 3a 70 33 25 3d 46 25 0d 01 |a(F%,.):p3%=F%..|
00004310 a2 05 e1 0d 01 a3 29 dd f2 4a 30 28 21 59 33 25 |......)..J0(!Y3%|
00004320 2c 49 24 29 3a e7 41 30 25 3a c8 99 34 36 2c 7a |,I$):.A0%:..46,z|
00004330 25 2c 6f 25 2c 44 30 25 2c 46 30 25 0d 01 a4 28 |%,o%,D0%,F0%...(|
00004340 4a 34 25 2b 3d 31 3a e7 4a 34 25 3e 35 3a 85 a2 |J4%+=1:.J4%>5:..|
00004350 30 2c 22 54 6f 6f 20 6d 61 6e 79 20 65 72 72 6f |0,"Too many erro|
00004360 72 73 21 22 0d 01 a5 1e e7 9f 3c 32 30 30 49 24 |rs!"......<200I$|
00004370 2b 3d 22 20 61 74 20 6c 69 6e 65 20 22 2b c3 28 |+=" at line "+.(|
00004380 9e 29 0d 01 a6 2e e7 9f 3d 32 30 30 49 24 3d 22 |.)......=200I$="|
00004390 2a 2a 2a 20 45 72 72 6f 72 20 69 6e 20 6d 65 6e |*** Error in men|
000043a0 75 20 66 69 6c 65 21 20 2a 2a 2a 20 22 2b 49 24 |u file! *** "+I$|
000043b0 0d 01 a7 2e e7 9f 3d 32 30 31 49 24 3d 22 2a 2a |......=201I$="**|
000043c0 2a 20 20 20 20 20 4d 65 6e 75 20 65 72 72 6f 72 |* Menu error|
000043d0 20 20 20 20 20 20 2a 2a 2a 20 22 2b 49 24 0d 01 | *** "+I$..|
000043e0 a8 2e e7 9f 3d 32 30 32 49 24 3d 22 2a 2a 2a 20 |....=202I$="*** |
000043f0 20 20 20 20 49 63 6f 6e 20 65 72 72 6f 72 20 20 | Icon error |
00004400 20 20 20 20 2a 2a 2a 20 22 2b 49 24 0d 01 a9 2e | *** "+I$....|
00004410 e7 9f 3d 32 30 33 49 24 3d 22 2a 2a 2a 20 20 20 |..=203I$="*** |
00004420 20 20 46 69 6c 65 20 65 72 72 6f 72 20 20 20 20 | File error |
00004430 20 20 2a 2a 2a 20 22 2b 49 24 0d 01 aa 2e e7 9f | *** "+I$......|
00004440 3d 32 30 34 49 24 3d 22 2a 2a 2a 20 20 20 20 57 |=204I$="*** W|
00004450 69 6e 64 6f 77 20 65 72 72 6f 72 20 20 20 20 20 |indow error |
00004460 2a 2a 2a 20 22 2b 49 24 0d 01 ab 48 c8 99 26 32 |*** "+I$...H..&2|
00004470 30 30 30 64 2c 30 2c 70 25 3a c8 99 26 32 30 30 |000d,0,p%:..&200|
00004480 30 64 2c 30 2c 54 25 3a c8 99 26 36 30 30 64 61 |0d,0,T%:..&600da|
00004490 3a 24 28 59 33 25 2b 34 29 3d 49 24 3a c8 99 26 |:$(Y3%+4)=I$:..&|
000044a0 34 30 30 64 66 2c 59 33 25 2c 31 2c 54 24 3a e1 |400df,Y3%,1,T$:.|
000044b0 0d 01 ac 14 dd f2 5a 3a c8 99 26 34 30 30 64 64 |......Z:..&400dd|
000044c0 3a e0 3a e1 0d 01 ad 17 dd f2 53 28 75 34 25 29 |:.:.......S(u4%)|
000044d0 3a ea 4b 34 25 3a e7 75 34 25 8c 0d 01 ae 1d 21 |:.K4%:.u4%.....!|
000044e0 4a 25 3d 77 25 3a c8 99 26 34 30 30 63 62 2c 2c |J%=w%:..&400cb,,|
000044f0 4a 25 3a e7 49 30 25 8c 0d 01 af 0c 4a 25 21 32 |J%:.I0%.....J%!2|
00004500 38 3d 2d 31 0d 01 b0 12 cc 3a c8 99 26 34 30 30 |8=-1.....:..&400|
00004510 63 35 2c 2c 4a 25 0d 01 b1 05 cd 0d 01 b2 44 cc |c5,,J%........D.|
00004520 3a 21 48 25 3d 77 25 3a c8 99 26 34 30 30 63 62 |:!H%=w%:..&400cb|
00004530 2c 2c 48 25 3a 4b 34 25 3d 31 3c 3c 31 39 80 48 |,,H%:K4%=1<<19.H|
00004540 25 21 33 32 3a e7 4b 34 25 3a 4a 25 21 32 38 3d |%!32:.K4%:J%!28=|
00004550 4b 25 3a c8 99 26 34 30 30 63 35 2c 2c 4a 25 0d |K%:..&400c5,,J%.|
00004560 01 b3 80 cd 3a 49 30 25 3d b9 3a 21 48 25 3d 4b |....:I0%=.:!H%=K|
00004570 25 3a c8 99 26 34 30 30 63 62 2c 2c 48 25 3a 48 |%:..&400cb,,H%:H|
00004580 25 21 34 3d 4a 25 21 34 3a 48 25 21 31 32 3d 4a |%!4=J%!4:H%!12=J|
00004590 25 21 31 32 3a 48 25 21 32 38 3d 4a 25 21 32 38 |%!12:H%!28=J%!28|
000045a0 3a 48 25 21 38 3d 4a 25 21 38 3a 48 25 21 31 36 |:H%!8=J%!8:H%!16|
000045b0 3d 4a 25 21 31 36 3a c8 99 26 34 30 30 63 35 2c |=J%!16:..&400c5,|
000045c0 2c 48 25 3a e7 ac 4b 34 25 3a 4a 25 21 32 38 3d |,H%:..K4%:J%!28=|
000045d0 4b 25 3a c8 99 26 34 30 30 63 35 2c 2c 4a 25 0d |K%:..&400c5,,J%.|
000045e0 01 b4 05 e1 0d 01 b5 44 dd f2 4c 30 3a e3 4d 30 |.......D..L0:.M0|
000045f0 25 3d 30 b8 4f 30 25 3a 46 25 3d 52 25 28 4d 30 |%=0.O0%:F%=R%(M0|
00004600 25 29 2d 5f 25 3a 49 25 3d 57 25 28 4d 30 25 29 |%)-_%:I%=W%(M0%)|
00004610 2d 60 25 3a 52 25 3d 50 25 28 4d 30 25 29 3a e7 |-`%:R%=P%(M0%):.|
00004620 52 25 3c 39 39 39 39 8c 0d 01 b6 17 62 25 3d 49 |R%<9999.....b%=I|
00004630 31 25 21 28 34 2a 52 25 29 3a e7 6c 32 25 8c 0d |1%!(4*R%):.l2%..|
00004640 01 b7 10 e7 5f 31 25 21 28 32 2a 52 25 29 8c 0d |...._1%!(2*R%)..|
00004650 01 b8 0f e7 62 25 3c 68 25 2d 32 30 30 8c 0d 01 |....b%<h%-200...|
00004660 b9 33 ef 35 3a c8 99 26 34 30 30 65 36 2c 39 3a |.3.5:..&400e6,9:|
00004670 ec 46 25 2b 38 2c 49 25 2b 38 3a f1 4a 24 28 36 |.F%+8,I%+8:.J$(6|
00004680 35 35 33 35 80 5f 31 25 21 28 32 2a 52 25 29 29 |5535._1%!(2*R%))|
00004690 3b 0d 01 ba 05 cd 0d 01 bb 05 cd 0d 01 bc 35 cd |;.............5.|
000046a0 3a 62 25 3d 28 4b 32 25 2b 62 25 29 81 31 30 30 |:b%=(K2%+b%).100|
000046b0 3a e7 62 25 3d 36 c8 99 34 36 2c 32 39 30 2c 4c |:.b%=6..46,290,L|
000046c0 25 2c 22 6d 61 67 36 22 2c 46 25 2c 49 25 2c 32 |%,"mag6",F%,I%,2|
000046d0 0d 01 bd 27 e7 62 25 3d 35 c8 99 34 36 2c 32 39 |...'.b%=5..46,29|
000046e0 30 2c 4c 25 2c 22 6d 61 67 35 22 2c 46 25 2d 32 |0,L%,"mag5",F%-2|
000046f0 2c 49 25 2d 32 2c 32 0d 01 be 27 e7 62 25 3d 34 |,I%-2,2...'.b%=4|
00004700 c8 99 34 36 2c 32 39 30 2c 4c 25 2c 22 6d 61 67 |..46,290,L%,"mag|
00004710 34 22 2c 46 25 2d 32 2c 49 25 2d 32 2c 32 0d 01 |4",F%-2,I%-2,2..|
00004720 bf 27 e7 62 25 3d 33 c8 99 34 36 2c 32 39 30 2c |.'.b%=3..46,290,|
00004730 4c 25 2c 22 6d 61 67 33 22 2c 46 25 2d 32 2c 49 |L%,"mag3",F%-2,I|
00004740 25 2d 32 2c 32 0d 01 c0 27 e7 62 25 3d 32 c8 99 |%-2,2...'.b%=2..|
00004750 34 36 2c 32 39 30 2c 4c 25 2c 22 6d 61 67 32 22 |46,290,L%,"mag2"|
00004760 2c 46 25 2d 34 2c 49 25 2d 34 2c 32 0d 01 c1 27 |,F%-4,I%-4,2...'|
00004770 e7 62 25 3d 31 c8 99 34 36 2c 32 39 30 2c 4c 25 |.b%=1..46,290,L%|
00004780 2c 22 6d 61 67 31 22 2c 46 25 2d 34 2c 49 25 2d |,"mag1",F%-4,I%-|
00004790 34 2c 32 0d 01 c2 27 e7 62 25 3d 30 c8 99 34 36 |4,2...'.b%=0..46|
000047a0 2c 32 39 30 2c 4c 25 2c 22 6d 61 67 30 22 2c 46 |,290,L%,"mag0",F|
000047b0 25 2d 36 2c 49 25 2d 36 2c 32 0d 01 c3 28 e7 62 |%-6,I%-6,2...(.b|
000047c0 25 3c 30 c8 99 34 36 2c 32 39 30 2c 4c 25 2c 22 |%<0..46,290,L%,"|
000047d0 6d 61 67 2d 31 22 2c 46 25 2d 36 2c 49 25 2d 36 |mag-1",F%-6,I%-6|
000047e0 2c 32 0d 01 c4 09 cd 3a ed 3a e1 0d 01 c5 9d dd |,2.....:.:......|
000047f0 f2 44 3a ea 42 2c 43 3a 65 33 25 3d a3 3a c8 99 |.D:.B,C:e3%=.:..|
00004800 26 34 30 36 63 30 3a c8 99 34 36 2c 33 31 36 2c |&406c0:..46,316,|
00004810 4c 25 2c 22 73 74 61 72 6d 61 70 22 2c 30 b8 7a |L%,"starmap",0.z|
00004820 25 2c 6f 25 2c 44 30 25 2c 46 30 25 3a 41 30 25 |%,o%,D0%,F0%:A0%|
00004830 3d b9 3a 5f 25 3d 5a 30 25 2f 32 3a 60 25 3d 42 |=.:_%=Z0%/2:`%=B|
00004840 30 25 2f 32 3a c8 99 26 34 30 30 65 36 2c 37 3a |0%/2:..&400e6,7:|
00004850 c8 93 c8 90 30 2c 30 2c 5a 30 25 2c 42 30 25 3a |....0,0,Z0%,B0%:|
00004860 4c 30 25 3d 4d 25 2d 72 30 25 3a e7 4c 30 25 3e |L0%=M%-r0%:.L0%>|
00004870 39 30 2d 72 30 25 3a 4c 30 25 3d 31 38 30 2d 32 |90-r0%:L0%=180-2|
00004880 2a 72 30 25 2d 4c 30 25 0d 01 c6 2a 4b 30 25 3d |*r0%-L0%...*K0%=|
00004890 4d 25 2b 72 30 25 3a e7 4b 30 25 3e 39 30 2b 72 |M%+r0%:.K0%>90+r|
000048a0 30 25 3a 4b 30 25 3d 31 38 30 2d 4b 30 25 2b 72 |0%:K0%=180-K0%+r|
000048b0 30 25 0d 01 c7 24 4c 30 25 3d 61 25 2a 28 4c 30 |0%...$L0%=a%*(L0|
000048c0 25 81 61 25 29 3a e7 4c 30 25 3c 2d 39 30 3a 4c |%.a%):.L0%<-90:L|
000048d0 30 25 3d 2d 39 30 0d 01 c8 22 4b 30 25 3d 61 25 |0%=-90..."K0%=a%|
000048e0 2a 28 4b 30 25 81 61 25 29 3a e7 4b 30 25 3e 39 |*(K0%.a%):.K0%>9|
000048f0 30 3a 4b 30 25 3d 39 30 0d 01 c9 2c 4d 25 2b 3d |0:K0%=90...,M%+=|
00004900 31 38 30 3a c8 91 5f 25 2c 60 25 3a 74 25 3d 32 |180:.._%,`%:t%=2|
00004910 38 38 3a c8 8e 28 94 28 4d 25 2d 31 38 30 29 81 |88:..(.(M%-180).|
00004920 31 30 29 ca 0d 01 ca 28 c9 37 3a 74 25 3d 31 34 |10)....(.7:t%=14|
00004930 34 2b 37 2a 31 32 3a e7 4e 25 3c 31 30 30 30 3a |4+7*12:.N%<1000:|
00004940 74 25 3d 31 34 34 2b 31 32 2a 31 32 0d 01 cb 27 |t%=144+12*12...'|
00004950 c9 36 3a 74 25 3d 31 34 34 2b 36 2a 31 32 3a e7 |.6:t%=144+6*12:.|
00004960 4e 25 3c 31 30 30 30 3a 74 25 3d 31 34 34 2b 38 |N%<1000:t%=144+8|
00004970 2a 31 32 0d 01 cc 27 c9 35 3a 74 25 3d 31 34 34 |*12...'.5:t%=144|
00004980 2b 35 2a 31 32 3a e7 4e 25 3c 31 30 30 30 3a 74 |+5*12:.N%<1000:t|
00004990 25 3d 31 34 34 2b 37 2a 31 32 0d 01 cd 27 c9 34 |%=144+7*12...'.4|
000049a0 3a 74 25 3d 31 34 34 2b 34 2a 31 32 3a e7 4e 25 |:t%=144+4*12:.N%|
000049b0 3c 31 30 30 30 3a 74 25 3d 31 34 34 2b 36 2a 31 |<1000:t%=144+6*1|
000049c0 32 0d 01 ce 27 c9 33 3a 74 25 3d 31 34 34 2b 33 |2...'.3:t%=144+3|
000049d0 2a 31 32 3a e7 4e 25 3c 31 30 30 30 3a 74 25 3d |*12:.N%<1000:t%=|
000049e0 31 34 34 2b 35 2a 31 32 0d 01 cf 27 c9 32 3a 74 |144+5*12...'.2:t|
000049f0 25 3d 31 34 34 2b 33 2a 31 32 3a e7 4e 25 3c 31 |%=144+3*12:.N%<1|
00004a00 30 30 30 3a 74 25 3d 31 34 34 2b 35 2a 31 32 0d |000:t%=144+5*12.|
00004a10 01 d0 27 c9 31 3a 74 25 3d 31 34 34 2b 33 2a 31 |..'.1:t%=144+3*1|
00004a20 32 3a e7 4e 25 3c 31 30 30 30 3a 74 25 3d 31 34 |2:.N%<1000:t%=14|
00004a30 34 2b 34 2a 31 32 0d 01 d1 27 c9 30 3a 74 25 3d |4+4*12...'.0:t%=|
00004a40 31 34 34 2b 33 2a 31 32 3a e7 4e 25 3c 31 30 30 |144+3*12:.N%<100|
00004a50 30 3a 74 25 3d 31 34 34 2b 34 2a 31 32 0d 01 d2 |0:t%=144+4*12...|
00004a60 4a cb 3a 6d 30 25 3d 28 34 38 2d 28 74 25 2d 31 |J.:m0%=(48-(t%-1|
00004a70 34 34 29 2f 31 32 2d 50 25 2f 33 30 29 83 32 34 |44)/12-P%/30).24|
00004a80 3a 6c 30 25 3d 28 32 34 2b 28 74 25 2d 31 34 34 |:l0%=(24+(t%-144|
00004a90 29 2f 31 32 2d 50 25 2f 33 30 29 83 32 34 3a e7 |)/12-P%/30).24:.|
00004aa0 65 32 25 3a f2 47 31 0d 01 d3 1a 4a 35 25 3d 91 |e2%:.G1....J5%=.|
00004ab0 3a e7 41 33 25 3a f2 6e 31 3a c8 91 5f 25 2c 60 |:.A3%:.n1:.._%,`|
00004ac0 25 0d 01 d4 0d e7 6c 30 25 3e 6d 30 25 8c 0d 01 |%.....l0%>m0%...|
00004ad0 d5 09 e7 47 32 25 8c 0d 01 d6 09 e7 67 31 25 8c |...G2%......g1%.|
00004ae0 0d 01 d7 0d f2 4c 30 3a 67 31 25 3d a3 0d 01 d8 |.....L0:g1%=....|
00004af0 45 cc 3a 6d 32 25 3d 30 3a 4f 30 25 3d 30 3a e3 |E.:m2%=0:O0%=0:.|
00004b00 52 25 3d 30 b8 70 30 25 3a 42 3d 4a 25 28 52 25 |R%=0.p0%:B=J%(R%|
00004b10 29 2f 33 36 30 30 3a 43 3d 47 25 28 52 25 29 2f |)/3600:C=G%(R%)/|
00004b20 33 36 30 30 3a e7 42 3c 6c 30 25 80 42 3e 6d 30 |3600:.B<l0%.B>m0|
00004b30 25 8c 0d 01 d9 11 e7 43 3c 4b 30 25 80 43 3e 4c |%......C<K0%.C>L|
00004b40 30 25 8c 0d 01 da 32 f2 73 28 4a 25 28 52 25 29 |0%....2.s(J%(R%)|
00004b50 2c 52 25 2c 49 31 25 21 28 34 2a 52 25 29 29 3a |,R%,I1%!(4*R%)):|
00004b60 e7 49 31 25 21 28 34 2a 52 25 29 3e 68 25 3a 52 |.I1%!(4*R%)>h%:R|
00004b70 25 3d 70 30 25 0d 01 db 05 cd 0d 01 dc 0e cd 3a |%=p0%..........:|
00004b80 6d 32 25 2b 3d 31 3a ed 0d 01 dd 05 cd 0d 01 de |m2%+=1:.........|
00004b90 0b cd 3a e7 73 30 25 8c 0d 01 df 37 e3 52 25 3d |..:.s0%....7.R%=|
00004ba0 31 b8 31 31 30 3a 42 3d 4b 25 28 52 25 29 2f 33 |1.110:B=K%(R%)/3|
00004bb0 36 30 30 3a 43 3d 4d 25 28 52 25 29 2f 33 36 30 |600:C=M%(R%)/360|
00004bc0 30 3a e7 42 3c 6c 30 25 80 42 3e 6d 30 25 8c 0d |0:.B<l0%.B>m0%..|
00004bd0 01 e0 11 e7 43 3c 4b 30 25 80 43 3e 4c 30 25 8c |....C<K0%.C>L0%.|
00004be0 0d 01 e1 13 f2 74 28 4b 25 28 52 25 29 2c 43 2c |.....t(K%(R%),C,|
00004bf0 52 25 29 0d 01 e2 05 cd 0d 01 e3 07 cd 3a ed 0d |R%)..........:..|
00004c00 01 e4 05 cd 0d 01 e5 0b cc 3a e7 47 32 25 8c 0d |.........:.G2%..|
00004c10 01 e6 09 e7 67 31 25 8c 0d 01 e7 0d f2 4c 30 3a |....g1%......L0:|
00004c20 67 31 25 3d a3 0d 01 e8 45 cc 3a 6d 32 25 3d 30 |g1%=....E.:m2%=0|
00004c30 3a 4f 30 25 3d 30 3a e3 52 25 3d 30 b8 70 30 25 |:O0%=0:.R%=0.p0%|
00004c40 3a 42 3d 4a 25 28 52 25 29 2f 33 36 30 30 3a 43 |:B=J%(R%)/3600:C|
00004c50 3d 47 25 28 52 25 29 2f 33 36 30 30 3a e7 42 3c |=G%(R%)/3600:.B<|
00004c60 6c 30 25 84 42 3e 6d 30 25 8c 0d 01 e9 11 e7 43 |l0%.B>m0%......C|
00004c70 3c 4b 30 25 80 43 3e 4c 30 25 8c 0d 01 ea 32 f2 |<K0%.C>L0%....2.|
00004c80 73 28 4a 25 28 52 25 29 2c 52 25 2c 49 31 25 21 |s(J%(R%),R%,I1%!|
00004c90 28 34 2a 52 25 29 29 3a e7 49 31 25 21 28 34 2a |(4*R%)):.I1%!(4*|
00004ca0 52 25 29 3e 68 25 3a 52 25 3d 70 30 25 0d 01 eb |R%)>h%:R%=p0%...|
00004cb0 05 cd 0d 01 ec 0e cd 3a 6d 32 25 2b 3d 31 3a ed |.......:m2%+=1:.|
00004cc0 0d 01 ed 05 cd 0d 01 ee 0b cd 3a e7 73 30 25 8c |..........:.s0%.|
00004cd0 0d 01 ef 37 e3 52 25 3d 31 b8 31 31 30 3a 42 3d |...7.R%=1.110:B=|
00004ce0 4b 25 28 52 25 29 2f 33 36 30 30 3a 43 3d 4d 25 |K%(R%)/3600:C=M%|
00004cf0 28 52 25 29 2f 33 36 30 30 3a e7 42 3c 6c 30 25 |(R%)/3600:.B<l0%|
00004d00 84 42 3e 6d 30 25 8c 0d 01 f0 11 e7 43 3c 4b 30 |.B>m0%......C<K0|
00004d10 25 80 43 3e 4c 30 25 8c 0d 01 f1 13 f2 74 28 4b |%.C>L0%......t(K|
00004d20 25 28 52 25 29 2c 43 2c 52 25 29 0d 01 f2 05 cd |%(R%),C,R%).....|
00004d30 0d 01 f3 07 cd 3a ed 0d 01 f4 05 cd 0d 01 f5 0b |.....:..........|
00004d40 cd 3a e7 78 30 25 8c 0d 01 f6 1c f2 70 30 3a e7 |.:.x0%......p0:.|
00004d50 4d 32 25 f2 46 28 7a 31 2c 6a 31 2f 33 36 30 30 |M2%.F(z1,j1/3600|
00004d60 2c 39 29 0d 01 f7 18 e7 4e 32 25 f2 46 28 72 31 |,9).....N2%.F(r1|
00004d70 2c 4b 32 2f 33 36 30 30 2c 38 29 0d 01 f8 18 e7 |,K2/3600,8).....|
00004d80 4c 32 25 f2 46 28 76 31 2c 53 32 2f 33 36 30 30 |L2%.F(v1,S2/3600|
00004d90 2c 37 29 0d 01 f9 18 e7 46 32 25 f2 46 28 41 32 |,7).....F2%.F(A2|
00004da0 2c 4c 32 2f 33 36 30 30 2c 36 29 0d 01 fa 18 e7 |,L2/3600,6).....|
00004db0 54 32 25 f2 46 28 4a 32 2c 48 32 2f 33 36 30 30 |T2%.F(J2,H2/3600|
00004dc0 2c 35 29 0d 01 fb 18 e7 6b 31 25 f2 46 28 46 32 |,5).....k1%.F(F2|
00004dd0 2c 49 32 2f 33 36 30 30 2c 34 29 0d 01 fc 15 e3 |,I2/3600,4).....|
00004de0 64 25 3d 30 b8 32 3a c8 8e 58 25 28 64 25 29 ca |d%=0.2:..X%(d%).|
00004df0 0d 01 fd 1b c9 30 3a e7 64 32 25 f2 46 28 4d 30 |.....0:.d2%.F(M0|
00004e00 2c 6d 30 2f 33 36 30 30 2c 30 29 0d 01 fe 1b c9 |,m0/3600,0).....|
00004e10 31 3a e7 4a 32 25 f2 46 28 43 32 2c 6d 31 2f 33 |1:.J2%.F(C2,m1/3|
00004e20 36 30 30 2c 31 29 0d 01 ff 1b c9 32 3a e7 6c 31 |600,1).....2:.l1|
00004e30 25 f2 46 28 50 32 2c 4d 32 2f 33 36 30 30 2c 32 |%.F(P2,M2/3600,2|
00004e40 29 0d 02 00 1d cb 3a ed 3a e7 59 32 25 f2 46 28 |).....:.:.Y2%.F(|
00004e50 49 30 2c 4c 30 2f 33 36 30 30 2c 31 30 29 0d 02 |I0,L0/3600,10)..|
00004e60 01 18 e7 6d 31 25 f2 46 28 6d 2c 69 30 2f 33 36 |...m1%.F(m,i0/36|
00004e70 30 30 2c 31 31 29 0d 02 02 20 cd 3a ef 32 33 2c |00,11)... .:.23,|
00004e80 36 2c 38 35 7c 3a e7 4c 30 25 3c 2d 38 35 3a 4c |6,85|:.L0%<-85:L|
00004e90 30 25 3d 2d 38 30 0d 02 03 15 e7 4b 30 25 3e 39 |0%=-80.....K0%>9|
00004ea0 30 2d 61 25 3a 4b 30 25 3d 38 30 0d 02 04 09 e7 |0-a%:K0%=80.....|
00004eb0 69 32 25 8c 0d 02 05 68 c8 99 26 34 30 30 65 36 |i2%....h..&400e6|
00004ec0 2c 31 32 38 2b 38 3a e3 43 34 25 3d 4c 30 25 2b |,128+8:.C4%=L0%+|
00004ed0 31 38 30 b8 4b 30 25 2b 31 38 30 88 61 25 3a 5a |180.K0%+180.a%:Z|
00004ee0 3d 4d 28 43 34 25 29 3a 54 3d 53 28 43 34 25 29 |=M(C4%):T=S(C4%)|
00004ef0 3a 64 31 25 3d 2d 54 2a 4e 28 31 34 34 29 3a 6f |:d1%=-T*N(144):o|
00004f00 30 25 3d 5a 2a 55 2d 54 2a 56 2a 50 28 31 34 34 |0%=Z*U-T*V*P(144|
00004f10 29 3a e7 72 32 25 3a 5f 32 25 3d b9 0d 02 06 6a |):.r2%:_2%=....j|
00004f20 e3 4f 31 25 3d 31 34 34 2b 74 30 25 b8 74 25 88 |.O1%=144+t0%.t%.|
00004f30 74 30 25 3a 6a 32 25 3d 2d 54 2a 4e 28 4f 31 25 |t0%:j2%=-T*N(O1%|
00004f40 29 3a 4c 31 25 3d 5a 2a 55 2d 54 2a 56 2a 50 28 |):L1%=Z*U-T*V*P(|
00004f50 4f 31 25 29 3a 6e 30 25 3d 4f 31 25 2f 74 30 25 |O1%):n0%=O1%/t0%|
00004f60 3a e7 28 6f 30 25 3e 69 31 25 80 6f 30 25 3c 62 |:.(o0%>i1%.o0%<b|
00004f70 32 25 29 84 28 4c 31 25 3e 69 31 25 80 4c 31 25 |2%).(L1%>i1%.L1%|
00004f80 3c 62 32 25 29 8c 0d 02 07 37 72 32 25 3d b9 3a |<b2%)....7r2%=.:|
00004f90 ec 6a 32 25 2c 4c 31 25 3a f0 35 35 2c 64 31 25 |.j2%,L1%:.55,d1%|
00004fa0 2c 6f 30 25 3a e7 5f 32 25 3a f0 35 35 2c 56 25 |,o0%:._2%:.55,V%|
00004fb0 28 6e 30 25 29 2c 54 25 28 6e 30 25 29 0d 02 08 |(n0%),T%(n0%)...|
00004fc0 40 ec 2d 6a 32 25 2c 4c 31 25 3a f0 35 35 2c 2d |@.-j2%,L1%:.55,-|
00004fd0 64 31 25 2c 6f 30 25 3a e7 5f 32 25 3a e7 4f 31 |d1%,o0%:._2%:.O1|
00004fe0 25 3e 31 34 34 2b 74 30 25 f0 35 35 2c 2d 56 25 |%>144+t0%.55,-V%|
00004ff0 28 6e 30 25 29 2c 54 25 28 6e 30 25 29 0d 02 09 |(n0%),T%(n0%)...|
00005000 38 cd 3a 56 25 28 6e 30 25 29 3d 64 31 25 3a 54 |8.:V%(n0%)=d1%:T|
00005010 25 28 6e 30 25 29 3d 6f 30 25 3a 64 31 25 3d 6a |%(n0%)=o0%:d1%=j|
00005020 32 25 3a 6f 30 25 3d 4c 31 25 3a ed 3a e7 74 25 |2%:o0%=L1%:.:.t%|
00005030 3d 32 38 38 8c 0d 02 0a 62 4f 31 25 3d 32 38 38 |=288....bO1%=288|
00005040 2b 74 30 25 3a 6e 30 25 3d 4f 31 25 2f 74 30 25 |+t0%:n0%=O1%/t0%|
00005050 3a 6a 32 25 3d 2d 54 2a 4e 28 4f 31 25 29 3a 4c |:j2%=-T*N(O1%):L|
00005060 31 25 3d 5a 2a 55 2d 54 2a 56 2a 50 28 4f 31 25 |1%=Z*U-T*V*P(O1%|
00005070 29 3a e7 28 6f 30 25 3e 69 31 25 80 6f 30 25 3c |):.(o0%>i1%.o0%<|
00005080 62 32 25 29 84 28 4c 31 25 3e 69 31 25 80 4c 31 |b2%).(L1%>i1%.L1|
00005090 25 3c 62 32 25 29 8c 0d 02 0b 2d 72 32 25 3d b9 |%<b2%)....-r2%=.|
000050a0 3a ec 2d 64 31 25 2c 6f 30 25 3a e7 5f 32 25 3a |:.-d1%,o0%:._2%:|
000050b0 f0 35 35 2c 2d 56 25 28 6e 30 25 29 2c 54 25 28 |.55,-V%(n0%),T%(|
000050c0 6e 30 25 29 0d 02 0c 2d cd 3a 56 25 28 6e 30 25 |n0%)...-.:V%(n0%|
000050d0 29 3d 64 31 25 3a 54 25 28 6e 30 25 29 3d 6f 30 |)=d1%:T%(n0%)=o0|
000050e0 25 3a 64 31 25 3d 6a 32 25 3a 6f 30 25 3d 4c 31 |%:d1%=j2%:o0%=L1|
000050f0 25 0d 02 0d 07 cd 3a ed 0d 02 0e 12 cd 3a e7 6a |%.....:......:.j|
00005100 25 3a f2 47 30 28 76 2c 73 29 0d 02 0f 6b 4d 25 |%:.G0(v,s)...kM%|
00005110 2d 3d 31 38 30 3a 5f 32 25 3d a3 3a 72 32 25 3d |-=180:_2%=.:r2%=|
00005120 a3 3a 41 30 25 3d a3 3a c8 99 34 36 2c 7a 25 2c |.:A0%=.:..46,z%,|
00005130 6f 25 2c 44 30 25 2c 46 30 25 3a c8 99 26 34 30 |o%,D0%,F0%:..&40|
00005140 36 63 31 3a c8 99 26 34 30 30 64 31 2c 77 25 2c |6c1:..&400d1,w%,|
00005150 30 2c 2d 42 30 25 2a 53 25 2c 5a 30 25 2a 53 25 |0,-B0%*S%,Z0%*S%|
00005160 2c 30 3a f2 41 28 4b 25 2c 32 34 2c c3 28 6d 32 |,0:.A(K%,24,.(m2|
00005170 25 29 29 3a e1 0d 02 10 1f dd f2 4a 28 46 25 2c |%)):.......J(F%,|
00005180 49 25 29 3a e7 46 25 3d 61 32 25 80 49 25 3d 60 |I%):.F%=a2%.I%=`|
00005190 32 25 3a e1 0d 02 11 2e 55 25 3d a4 54 28 46 25 |2%:.....U%=.T(F%|
000051a0 2c 49 25 29 3a f2 4b 30 28 55 25 29 3a 4f 25 3d |,I%):.K0(U%):O%=|
000051b0 55 25 3a 61 32 25 3d 46 25 3a 60 32 25 3d 49 25 |U%:a2%=F%:`2%=I%|
000051c0 3a e1 0d 02 12 82 dd a4 54 28 46 25 2c 49 25 29 |:.......T(F%,I%)|
000051d0 3a ea 4d 30 25 2c 69 34 25 2c 68 34 25 2c 44 33 |:.M0%,i4%,h4%,D3|
000051e0 25 2c 73 32 25 2c 48 33 25 3a 55 25 3d 30 3a 54 |%,s2%,H3%:U%=0:T|
000051f0 34 25 3d 30 3a 48 33 25 3d 26 66 66 66 66 66 66 |4%=0:H3%=&ffffff|
00005200 3a e3 4d 30 25 3d 30 b8 4f 30 25 3a 69 34 25 3d |:.M0%=0.O0%:i4%=|
00005210 52 25 28 4d 30 25 29 2d 46 25 3a 68 34 25 3d 57 |R%(M0%)-F%:h4%=W|
00005220 25 28 4d 30 25 29 2d 49 25 3a 73 32 25 3d 69 34 |%(M0%)-I%:s2%=i4|
00005230 25 5e 32 2b 68 34 25 5e 32 3a e7 73 32 25 3c 3d |%^2+h4%^2:.s2%<=|
00005240 48 33 25 8c 0d 02 13 0d e7 73 32 25 3d 48 33 25 |H3%......s2%=H3%|
00005250 8c 0d 02 14 2d 63 33 25 3d b9 3a 44 33 25 3d 50 |....-c3%=.:D3%=P|
00005260 25 28 4d 30 25 29 3a e7 44 33 25 3e 39 39 39 39 |%(M0%):.D3%>9999|
00005270 3a 44 33 25 3d 44 33 25 81 31 30 30 30 30 0d 02 |:D3%=D3%.10000..|
00005280 15 19 e7 28 36 35 35 33 35 80 5f 31 25 21 28 32 |...(65535._1%!(2|
00005290 2a 44 33 25 29 29 8c 0d 02 16 1e 55 25 3d 50 25 |*D3%)).....U%=P%|
000052a0 28 4d 30 25 29 3a 54 34 25 3d 4d 30 25 3a 48 33 |(M0%):T4%=M0%:H3|
000052b0 25 3d 73 32 25 0d 02 17 05 cd 0d 02 18 26 cc 3a |%=s2%........&.:|
000052c0 63 33 25 3d a3 3a 55 25 3d 50 25 28 4d 30 25 29 |c3%=.:U%=P%(M0%)|
000052d0 3a 54 34 25 3d 4d 30 25 3a 48 33 25 3d 73 32 25 |:T4%=M0%:H3%=s2%|
000052e0 0d 02 19 05 cd 0d 02 1a 0b cd 3a ed 3a 3d 55 25 |..........:.:=U%|
000052f0 0d 02 1b 27 dd f2 4b 30 28 51 25 29 3a ea 76 34 |...'..K0(Q%):.v4|
00005300 2c 63 30 2c 5a 30 2c 6f 30 2c 79 30 3a e7 51 25 |,c0,Z0,o0,y0:.Q%|
00005310 3c 31 30 30 30 30 8c 0d 02 1c 0d e7 51 25 3c 3e |<10000......Q%<>|
00005320 4d 31 25 8c 0d 02 1d 61 4d 31 25 3d 51 25 3a 41 |M1%....aM1%=Q%:A|
00005330 24 3d bd 28 41 34 25 3f 28 32 2a 51 25 29 29 2b |$=.(A4%?(2*Q%))+|
00005340 bd 28 41 34 25 3f 28 32 2a 51 25 2b 31 29 29 3a |.(A4%?(2*Q%+1)):|
00005350 f2 41 28 58 25 2c 34 2c 41 24 2b 22 20 73 74 61 |.A(X%,4,A$+" sta|
00005360 72 22 29 3a e7 63 33 25 3a f2 41 28 58 25 2c 34 |r"):.c3%:.A(X%,4|
00005370 2c 41 24 2b 22 20 73 74 61 72 20 28 44 6f 75 62 |,A$+" star (Doub|
00005380 6c 65 29 22 29 0d 02 1e 40 f2 41 28 58 25 2c 35 |le)")...@.A(X%,5|
00005390 2c 4a 24 28 36 35 35 33 35 80 5f 31 25 21 28 32 |,J$(65535._1%!(2|
000053a0 2a 51 25 29 29 29 3a 41 24 3d 22 22 3a e7 44 34 |*Q%))):A$="":.D4|
000053b0 25 3f 51 25 3a 41 24 3d 22 20 22 2b c3 28 44 34 |%?Q%:A$=" "+.(D4|
000053c0 25 3f 51 25 29 0d 02 1f 2b e7 6a 33 25 3f 51 25 |%?Q%)...+.j3%?Q%|
000053d0 3a 41 24 3d 41 24 28 6a 33 25 3f 51 25 29 2b 41 |:A$=A$(j3%?Q%)+A|
000053e0 24 2b 22 20 22 2b 4d 24 28 67 32 25 3f 51 25 29 |$+" "+M$(g2%?Q%)|
000053f0 0d 02 20 df f2 41 28 58 25 2c 36 2c 41 24 29 3a |.. ..A(X%,6,A$):|
00005400 f2 41 28 58 25 2c 37 2c a4 4b 28 49 31 25 21 28 |.A(X%,7,.K(I1%!(|
00005410 34 2a 51 25 29 2b 30 2e 31 29 29 3a f2 41 28 58 |4*Q%)+0.1)):.A(X|
00005420 25 2c 38 2c 22 22 29 3a f2 41 28 58 25 2c 39 2c |%,8,""):.A(X%,9,|
00005430 48 24 28 67 32 25 3f 51 25 29 29 3a f2 41 28 58 |H$(g2%?Q%)):.A(X|
00005440 25 2c 31 30 2c a4 42 28 46 33 25 21 28 51 25 2a |%,10,.B(F3%!(Q%*|
00005450 34 29 29 29 3a f2 41 28 58 25 2c 31 31 2c a4 42 |4))):.A(X%,11,.B|
00005460 28 4b 33 25 21 28 51 25 2a 34 29 29 29 3a f2 66 |(K3%!(Q%*4))):.f|
00005470 28 b2 28 28 46 33 25 21 28 51 25 2a 34 29 29 2f |(.((F3%!(Q%*4))/|
00005480 32 34 30 29 2c b2 28 28 4b 33 25 21 28 51 25 2a |240),.((K3%!(Q%*|
00005490 34 29 29 2f 33 36 30 30 29 2c 56 30 29 3a f2 41 |4))/3600),V0):.A|
000054a0 28 58 25 2c 31 32 2c a4 42 28 9d 28 51 32 29 2a |(X%,12,.B(.(Q2)*|
000054b0 33 36 30 30 29 29 3a f2 41 28 58 25 2c 31 33 2c |3600)):.A(X%,13,|
000054c0 a4 42 28 9d 28 68 32 29 2a 33 36 30 30 29 29 0d |.B(.(h2)*3600)).|
000054d0 02 21 ef f2 75 28 b2 28 28 46 33 25 21 28 51 25 |.!..u(.((F3%!(Q%|
000054e0 2a 34 29 29 2f 32 34 30 29 2c b2 28 28 4b 33 25 |*4))/240),.((K3%|
000054f0 21 28 51 25 2a 34 29 29 2f 33 36 30 30 29 2c 63 |!(Q%*4))/3600),c|
00005500 30 2c 5a 30 2c 6f 30 2c 79 30 2c 30 29 3a f2 41 |0,Z0,o0,y0,0):.A|
00005510 28 58 25 2c 31 34 2c c3 28 a4 4c 28 63 30 29 29 |(X%,14,.(.L(c0))|
00005520 2b 22 68 72 73 2c 20 61 7a 69 6d 75 74 68 3d 22 |+"hrs, azimuth="|
00005530 2b c3 28 6f 30 29 29 3a f2 41 28 58 25 2c 31 35 |+.(o0)):.A(X%,15|
00005540 2c c3 28 a4 4c 28 5a 30 29 29 2b 22 68 72 73 2c |,.(.L(Z0))+"hrs,|
00005550 20 61 7a 69 6d 75 74 68 3d 22 2b c3 28 79 30 29 | azimuth="+.(y0)|
00005560 29 3a f2 4f 28 31 2c 22 54 79 70 65 20 3a 22 2b |):.O(1,"Type :"+|
00005570 22 53 74 61 72 22 29 3a f2 4f 28 32 2c 22 4e 61 |"Star"):.O(2,"Na|
00005580 6d 65 20 3a 22 2b 4a 24 28 36 35 35 33 35 80 5f |me :"+J$(65535._|
00005590 31 25 21 28 32 2a 51 25 29 29 29 3a f2 4f 28 33 |1%!(2*Q%))):.O(3|
000055a0 2c 22 4d 61 67 2e 20 3a 22 2b c3 28 28 49 31 25 |,"Mag. :"+.((I1%|
000055b0 21 28 34 2a 51 25 29 29 2f 31 30 30 29 29 0d 02 |!(4*Q%))/100))..|
000055c0 22 1d f2 4f 28 34 2c 22 43 6f 6e 73 74 3a 22 2b |"..O(4,"Const:"+|
000055d0 48 24 28 67 32 25 3f 51 25 29 29 0d 02 23 05 cd |H$(g2%?Q%))..#..|
000055e0 0d 02 24 0f cc 3a e7 51 25 3c 3e 4d 31 25 8c 0d |..$..:.Q%<>M1%..|
000055f0 02 25 40 4d 31 25 3d 51 25 3a 51 25 3d 51 25 81 |.%@M1%=Q%:Q%=Q%.|
00005600 31 30 30 30 30 3a 4b 24 3d 22 4f 62 6a 65 63 74 |10000:K$="Object|
00005610 20 6e 75 6d 62 65 72 20 3a 22 2b c3 28 51 25 29 | number :"+.(Q%)|
00005620 3a 65 30 25 3d b9 3a e7 51 25 3c 32 30 30 8c 0d |:e0%=.:.Q%<200..|
00005630 02 26 da f2 41 28 58 25 2c 34 2c 49 24 28 4f 25 |.&..A(X%,4,I$(O%|
00005640 28 51 25 29 83 31 30 30 29 29 3a f2 41 28 58 25 |(Q%).100)):.A(X%|
00005650 2c 35 2c 4c 24 28 4f 25 28 51 25 29 81 31 30 30 |,5,L$(O%(Q%).100|
00005660 29 29 3a f2 41 28 58 25 2c 36 2c 22 4d 22 2b c3 |)):.A(X%,6,"M"+.|
00005670 28 51 25 29 29 3a f2 4f 28 31 2c 22 54 79 70 65 |(Q%)):.O(1,"Type|
00005680 20 3a 22 2b 49 24 28 4f 25 28 51 25 29 83 31 30 | :"+I$(O%(Q%).10|
00005690 30 29 29 3a f2 4f 28 32 2c 22 4e 61 6d 65 20 3a |0)):.O(2,"Name :|
000056a0 22 2b 4c 24 28 4f 25 28 51 25 29 81 31 30 30 29 |"+L$(O%(Q%).100)|
000056b0 29 3a f2 4f 28 33 2c 22 52 65 66 2e 20 3a 22 2b |):.O(3,"Ref. :"+|
000056c0 22 4d 22 2b c3 28 51 25 29 29 3a f2 4f 28 34 2c |"M"+.(Q%)):.O(4,|
000056d0 22 22 29 3a f2 41 28 58 25 2c 38 2c 22 22 29 3a |""):.A(X%,8,""):|
000056e0 f2 41 28 58 25 2c 31 30 2c a4 42 28 4b 25 28 51 |.A(X%,10,.B(K%(Q|
000056f0 25 29 29 29 3a f2 41 28 58 25 2c 31 31 2c a4 42 |%))):.A(X%,11,.B|
00005700 28 4d 25 28 51 25 29 29 29 0d 02 27 5d f2 66 28 |(M%(Q%)))..'].f(|
00005710 b2 28 28 4b 25 28 51 25 29 29 2f 32 34 30 29 2c |.((K%(Q%))/240),|
00005720 b2 28 28 4d 25 28 51 25 29 29 2f 33 36 30 30 29 |.((M%(Q%))/3600)|
00005730 2c 56 30 29 3a f2 41 28 58 25 2c 31 32 2c a4 42 |,V0):.A(X%,12,.B|
00005740 28 9d 28 51 32 29 2a 33 36 30 30 29 29 3a f2 41 |(.(Q2)*3600)):.A|
00005750 28 58 25 2c 31 33 2c a4 42 28 9d 28 68 32 29 2a |(X%,13,.B(.(h2)*|
00005760 33 36 30 30 29 29 0d 02 28 cd cc 3a 51 25 2d 3d |3600))..(..:Q%-=|
00005770 32 30 30 3a f2 41 28 58 25 2c 34 2c 43 24 28 51 |200:.A(X%,4,C$(Q|
00005780 25 29 29 3a f2 41 28 58 25 2c 35 2c 44 24 28 51 |%)):.A(X%,5,D$(Q|
00005790 25 29 29 3a f2 41 28 58 25 2c 36 2c 22 22 29 3a |%)):.A(X%,6,""):|
000057a0 f2 41 28 58 25 2c 38 2c 46 24 28 51 25 29 29 3a |.A(X%,8,F$(Q%)):|
000057b0 f2 41 28 58 25 2c 31 30 2c a4 42 28 44 25 28 51 |.A(X%,10,.B(D%(Q|
000057c0 25 29 29 29 3a f2 41 28 58 25 2c 31 31 2c a4 42 |%))):.A(X%,11,.B|
000057d0 28 48 25 28 51 25 29 29 29 3a f2 66 28 b2 28 28 |(H%(Q%))):.f(.((|
000057e0 44 25 28 51 25 29 29 2f 32 34 30 29 2c b2 28 28 |D%(Q%))/240),.((|
000057f0 48 25 28 51 25 29 29 2f 33 36 30 30 29 2c 56 30 |H%(Q%))/3600),V0|
00005800 29 3a f2 41 28 58 25 2c 31 32 2c a4 42 28 9d 28 |):.A(X%,12,.B(.(|
00005810 51 32 29 2a 33 36 30 30 29 29 3a f2 41 28 58 25 |Q2)*3600)):.A(X%|
00005820 2c 31 33 2c a4 42 28 9d 28 68 32 29 2a 33 36 30 |,13,.B(.(h2)*360|
00005830 30 29 29 0d 02 29 37 cd 3a f2 41 28 58 25 2c 37 |0))..)7.:.A(X%,7|
00005840 2c 22 22 29 3a f2 41 28 58 25 2c 39 2c 22 22 29 |,""):.A(X%,9,"")|
00005850 3a f2 41 28 58 25 2c 31 34 2c 22 22 29 3a f2 41 |:.A(X%,14,""):.A|
00005860 28 58 25 2c 31 35 2c 22 22 29 0d 02 2a 05 cd 0d |(X%,15,"")..*...|
00005870 02 2b 07 cd 3a e1 0d 02 2c 26 dd a4 42 28 5f 30 |.+..:...,&..B(_0|
00005880 25 29 3a ea 62 30 25 2c 63 30 25 2c 68 24 3a e7 |%):.b0%,c0%,h$:.|
00005890 5f 30 25 3c 30 3a 68 24 3d 22 2d 22 0d 02 2d 65 |_0%<0:h$="-"..-e|
000058a0 5f 30 25 3d 94 28 5f 30 25 29 3a 62 30 25 3d 5f |_0%=.(_0%):b0%=_|
000058b0 30 25 2f 33 36 30 30 3a 63 30 25 3d 5f 30 25 2f |0%/3600:c0%=_0%/|
000058c0 36 30 2d 62 30 25 2a 36 30 3a 5f 30 25 3d 5f 30 |60-b0%*60:_0%=_0|
000058d0 25 83 36 30 3a 3d 68 24 2b c3 62 30 25 2b 22 3a |%.60:=h$+.b0%+":|
000058e0 22 2b c2 22 30 30 22 2b c3 63 30 25 2c 32 29 2b |"+."00"+.c0%,2)+|
000058f0 22 3a 22 2b c2 22 30 30 22 2b c3 5f 30 25 2c 32 |":"+."00"+._0%,2|
00005900 29 0d 02 2e 7d dd f2 47 30 28 76 2c 73 29 3a c8 |)...}..G0(v,s):.|
00005910 99 26 34 30 30 65 36 2c 31 38 39 3a 73 3d 73 2f |.&400e6,189:s=s/|
00005920 33 36 30 30 3a 76 3d 50 25 2f 32 2b 28 28 38 36 |3600:v=P%/2+((86|
00005930 34 30 30 2b 76 29 83 38 36 34 30 30 29 2f 32 34 |400+v).86400)/24|
00005940 30 3a 5a 3d 4e 25 2a b5 28 b2 28 73 29 29 3a 54 |0:Z=N%*.(.(s)):T|
00005950 3d 4e 25 2a 9b 28 b2 28 73 29 29 3a 42 30 3d 9b |=N%*.(.(s)):B0=.|
00005960 28 b2 28 76 29 29 3a 57 30 25 3d 5a 2a 56 2b 54 |(.(v)):W0%=Z*V+T|
00005970 2a 42 30 2a 55 3a e7 57 30 25 3e 76 25 8c 0d 02 |*B0*U:.W0%>v%...|
00005980 2f 3e 46 25 3d 2d 54 2a b5 28 b2 28 76 29 29 3a |/>F%=-T*.(.(v)):|
00005990 49 25 3d 5a 2a 55 2d 54 2a 56 2a 42 30 3a ec 46 |I%=Z*U-T*V*B0:.F|
000059a0 25 2c 49 25 3a f0 31 34 37 2c 32 30 2c 30 3a 47 |%,I%:.147,20,0:G|
000059b0 31 25 3d 46 25 3a 43 31 25 3d 49 25 0d 02 30 07 |1%=F%:C1%=I%..0.|
000059c0 cd 3a e1 0d 02 31 a5 dd f2 60 3a c8 99 34 36 2c |.:...1...`:..46,|
000059d0 33 31 36 2c 4c 25 2c 22 73 74 61 72 6d 61 70 22 |316,L%,"starmap"|
000059e0 2c 30 b8 7a 25 2c 6f 25 2c 44 30 25 2c 46 30 25 |,0.z%,o%,D0%,F0%|
000059f0 3a 41 30 25 3d b9 3a c8 91 5f 25 2c 60 25 3a f2 |:A0%=.:.._%,`%:.|
00005a00 47 30 28 76 2c 73 29 3a 41 30 25 3d a3 3a c8 99 |G0(v,s):A0%=.:..|
00005a10 34 36 2c 7a 25 2c 6f 25 2c 44 30 25 2c 46 30 25 |46,z%,o%,D0%,F0%|
00005a20 3a c8 99 26 34 30 30 64 31 2c 77 25 2c 53 25 2a |:..&400d1,w%,S%*|
00005a30 28 5f 25 2b 46 25 2d 32 32 29 2c 53 25 2a 28 2d |(_%+F%-22),S%*(-|
00005a40 60 25 2b 49 25 2d 32 32 29 2c 53 25 2a 28 5f 25 |`%+I%-22),S%*(_%|
00005a50 2b 46 25 2b 32 32 29 2c 53 25 2a 28 2d 60 25 2b |+F%+22),S%*(-`%+|
00005a60 49 25 2b 32 32 29 3a e1 0d 02 32 71 dd f2 42 30 |I%+22):...2q..B0|
00005a70 3a 4a 25 21 30 3d 77 25 3a c8 99 26 34 30 30 63 |:J%!0=w%:..&400c|
00005a80 62 2c 2c 4a 25 3a 7a 30 25 3d 4a 25 21 34 2d 4a |b,,J%:z0%=J%!4-J|
00005a90 25 21 32 30 3a 4b 31 25 3d 4a 25 21 31 36 2d 4a |%!20:K1%=J%!16-J|
00005aa0 25 21 32 34 3a 46 25 3d 28 69 30 25 2d 7a 30 25 |%!24:F%=(i0%-z0%|
00005ab0 29 2f 53 25 3a 49 25 3d 28 60 30 25 2d 4b 31 25 |)/S%:I%=(`0%-K1%|
00005ac0 29 2f 53 25 2b 42 30 25 3a f2 4a 28 46 25 2c 49 |)/S%+B0%:.J(F%,I|
00005ad0 25 29 3a e7 6a 25 3a f2 60 0d 02 33 0d e7 55 25 |%):.j%:.`..3..U%|
00005ae0 3e 39 39 39 39 8c 0d 02 34 14 e7 28 55 25 81 31 |>9999...4..(U%.1|
00005af0 30 30 30 30 29 3c 32 30 30 8c 0d 02 35 21 76 3d |0000)<200...5!v=|
00005b00 4b 25 28 55 25 81 31 30 30 30 30 29 3a 73 3d 4d |K%(U%.10000):s=M|
00005b10 25 28 55 25 81 31 30 30 30 30 29 0d 02 36 2f cc |%(U%.10000)..6/.|
00005b20 3a 76 3d 44 25 28 28 55 25 81 31 30 30 30 30 29 |:v=D%((U%.10000)|
00005b30 2d 32 30 30 29 3a 73 3d 48 25 28 28 55 25 81 31 |-200):s=H%((U%.1|
00005b40 30 30 30 30 29 2d 32 30 30 29 0d 02 37 05 cd 0d |0000)-200)..7...|
00005b50 02 38 17 cc 3a 76 3d 4a 25 28 55 25 29 3a 73 3d |.8..:v=J%(U%):s=|
00005b60 47 25 28 55 25 29 0d 02 39 0c cd 3a e7 6a 25 3a |G%(U%)..9..:.j%:|
00005b70 f2 60 0d 02 3a 05 e1 0d 02 3b 37 dd f2 73 28 42 |.`..:....;7..s(B|
00005b80 2c 52 25 2c 62 25 29 3a 42 3d b2 28 50 25 2f 32 |,R%,b%):B=.(P%/2|
00005b90 2b 42 2f 32 34 30 29 3a 46 25 3d 2d 4f 28 52 25 |+B/240):F%=-O(R%|
00005ba0 29 2a b5 42 3a e7 94 46 25 3e 5f 25 3a e1 0d 02 |)*.B:..F%>_%:...|
00005bb0 3c 29 55 30 3d 4f 28 52 25 29 2a 9b 42 3a 49 25 |<)U0=O(R%)*.B:I%|
00005bc0 3d 4c 28 52 25 29 2a 55 2d 56 2a 55 30 3a e7 94 |=L(R%)*U-V*U0:..|
00005bd0 49 25 3e 60 25 3a e1 0d 02 3d 1e 57 30 25 3d 4c |I%>`%:...=.W0%=L|
00005be0 28 52 25 29 2a 56 2b 55 30 2a 55 3a e7 57 30 25 |(R%)*V+U0*U:.W0%|
00005bf0 3c 76 25 3a e1 0d 02 3e 37 52 25 28 4f 30 25 29 |<v%:...>7R%(O0%)|
00005c00 3d 46 25 2b 5f 25 3a 57 25 28 4f 30 25 29 3d 49 |=F%+_%:W%(O0%)=I|
00005c10 25 2b 60 25 3a 50 25 28 4f 30 25 29 3d 52 25 3a |%+`%:P%(O0%)=R%:|
00005c20 4f 30 25 2b 3d 31 3a e7 6c 32 25 8c 0d 02 3f 18 |O0%+=1:.l2%...?.|
00005c30 e7 28 36 35 35 33 35 80 5f 31 25 21 28 32 2a 52 |.(65535._1%!(2*R|
00005c40 25 29 29 8c 0d 02 40 0f e7 62 25 3c 68 25 2d 32 |%))...@..b%<h%-2|
00005c50 30 30 8c 0d 02 41 33 ef 35 3a c8 99 26 34 30 30 |00...A3.5:..&400|
00005c60 65 36 2c 39 3a ec 46 25 2b 38 2c 49 25 2b 38 3a |e6,9:.F%+8,I%+8:|
00005c70 f1 4a 24 28 36 35 35 33 35 80 5f 31 25 21 28 32 |.J$(65535._1%!(2|
00005c80 2a 52 25 29 29 3b 0d 02 42 05 cd 0d 02 43 05 cd |*R%));..B....C..|
00005c90 0d 02 44 33 cd 3a 62 25 3d 4b 32 25 2b 62 25 3a |..D3.:b%=K2%+b%:|
00005ca0 e7 62 25 3e 35 39 39 c8 99 34 36 2c 32 39 30 2c |.b%>599..46,290,|
00005cb0 4c 25 2c 22 6d 61 67 36 22 2c 46 25 2c 49 25 2c |L%,"mag6",F%,I%,|
00005cc0 32 3a e1 0d 02 45 2b e7 62 25 3e 34 39 39 c8 99 |2:...E+.b%>499..|
00005cd0 34 36 2c 32 39 30 2c 4c 25 2c 22 6d 61 67 35 22 |46,290,L%,"mag5"|
00005ce0 2c 46 25 2d 32 2c 49 25 2d 32 2c 32 3a e1 0d 02 |,F%-2,I%-2,2:...|
00005cf0 46 2b e7 62 25 3e 33 39 39 c8 99 34 36 2c 32 39 |F+.b%>399..46,29|
00005d00 30 2c 4c 25 2c 22 6d 61 67 34 22 2c 46 25 2d 32 |0,L%,"mag4",F%-2|
00005d10 2c 49 25 2d 32 2c 32 3a e1 0d 02 47 2b e7 62 25 |,I%-2,2:...G+.b%|
00005d20 3e 32 39 39 c8 99 34 36 2c 32 39 30 2c 4c 25 2c |>299..46,290,L%,|
00005d30 22 6d 61 67 33 22 2c 46 25 2d 32 2c 49 25 2d 32 |"mag3",F%-2,I%-2|
00005d40 2c 32 3a e1 0d 02 48 2b e7 62 25 3e 31 39 39 c8 |,2:...H+.b%>199.|
00005d50 99 34 36 2c 32 39 30 2c 4c 25 2c 22 6d 61 67 32 |.46,290,L%,"mag2|
00005d60 22 2c 46 25 2d 34 2c 49 25 2d 34 2c 32 3a e1 0d |",F%-4,I%-4,2:..|
00005d70 02 49 2a e7 62 25 3e 39 39 c8 99 34 36 2c 32 39 |.I*.b%>99..46,29|
00005d80 30 2c 4c 25 2c 22 6d 61 67 31 22 2c 46 25 2d 34 |0,L%,"mag1",F%-4|
00005d90 2c 49 25 2d 34 2c 32 3a e1 0d 02 4a 2a e7 62 25 |,I%-4,2:...J*.b%|
00005da0 3e 2d 31 c8 99 34 36 2c 32 39 30 2c 4c 25 2c 22 |>-1..46,290,L%,"|
00005db0 6d 61 67 30 22 2c 46 25 2d 36 2c 49 25 2d 36 2c |mag0",F%-6,I%-6,|
00005dc0 32 3a e1 0d 02 4b 2a e7 62 25 3c 30 c8 99 34 36 |2:...K*.b%<0..46|
00005dd0 2c 32 39 30 2c 4c 25 2c 22 6d 61 67 2d 31 22 2c |,290,L%,"mag-1",|
00005de0 46 25 2d 36 2c 49 25 2d 36 2c 32 3a e1 0d 02 4c |F%-6,I%-6,2:...L|
00005df0 05 e1 0d 02 4d 40 dd f2 74 28 42 2c 43 2c 63 30 |....M@..t(B,C,c0|
00005e00 25 29 3a 42 3d b2 28 50 25 2f 32 2b 42 2f 32 34 |%):B=.(P%/2+B/24|
00005e10 30 29 3a 54 3d 4e 25 2a 9b 28 b2 28 43 29 29 3a |0):T=N%*.(.(C)):|
00005e20 46 25 3d 2d 54 2a b5 42 3a e7 94 46 25 3e 5f 25 |F%=-T*.B:..F%>_%|
00005e30 3a e1 0d 02 4e 2f 42 30 3d 9b 42 3a 5a 3d 4e 25 |:...N/B0=.B:Z=N%|
00005e40 2a b5 28 b2 28 43 29 29 3a 57 30 25 3d 5a 2a 56 |*.(.(C)):W0%=Z*V|
00005e50 2b 54 2a 42 30 2a 55 3a e7 57 30 25 3c 76 25 3a |+T*B0*U:.W0%<v%:|
00005e60 e1 0d 02 4f 1b 49 25 3d 5a 2a 55 2d 54 2a 56 2a |...O.I%=Z*U-T*V*|
00005e70 42 30 3a e7 94 49 25 3e 60 25 3a e1 0d 02 50 47 |B0:..I%>`%:...PG|
00005e80 52 25 28 4f 30 25 29 3d 46 25 2b 5f 25 3a 57 25 |R%(O0%)=F%+_%:W%|
00005e90 28 4f 30 25 29 3d 49 25 2b 60 25 3a 50 25 28 4f |(O0%)=I%+`%:P%(O|
00005ea0 30 25 29 3d 63 30 25 2a 31 30 30 30 30 3a 4f 30 |0%)=c0%*10000:O0|
00005eb0 25 2b 3d 31 3a c8 8e 4f 25 28 63 30 25 29 83 31 |%+=1:..O%(c0%).1|
00005ec0 30 30 ca 0d 02 51 2e c9 31 3a c8 99 34 36 2c 32 |00...Q..1:..46,2|
00005ed0 39 30 2c 4c 25 2c 22 6f 70 65 6e 63 6c 75 73 74 |90,L%,"openclust|
00005ee0 65 72 22 2c 46 25 2d 31 30 2c 49 25 2d 31 30 2c |er",F%-10,I%-10,|
00005ef0 38 0d 02 52 2e c9 32 3a c8 99 34 36 2c 32 39 30 |8..R..2:..46,290|
00005f00 2c 4c 25 2c 22 67 6c 6f 62 63 6c 75 73 74 65 72 |,L%,"globcluster|
00005f10 22 2c 46 25 2d 31 30 2c 49 25 2d 31 30 2c 38 0d |",F%-10,I%-10,8.|
00005f20 02 53 2d c9 33 3a c8 99 34 36 2c 32 39 30 2c 4c |.S-.3:..46,290,L|
00005f30 25 2c 22 6e 65 62 63 6c 75 73 74 65 72 22 2c 46 |%,"nebcluster",F|
00005f40 25 2d 31 30 2c 49 25 2d 31 30 2c 38 0d 02 54 2c |%-10,I%-10,8..T,|
00005f50 c9 34 3a c8 99 34 36 2c 32 39 30 2c 4c 25 2c 22 |.4:..46,290,L%,"|
00005f60 70 6c 61 6e 65 74 61 72 79 22 2c 46 25 2d 31 32 |planetary",F%-12|
00005f70 2c 49 25 2d 31 32 2c 38 0d 02 55 29 c9 35 3a c8 |,I%-12,8..U).5:.|
00005f80 99 34 36 2c 32 39 30 2c 4c 25 2c 22 6e 65 62 75 |.46,290,L%,"nebu|
00005f90 6c 61 22 2c 46 25 2d 31 30 2c 49 25 2d 31 30 2c |la",F%-10,I%-10,|
00005fa0 38 0d 02 56 29 c9 36 3a c8 99 34 36 2c 32 39 30 |8..V).6:..46,290|
00005fb0 2c 4c 25 2c 22 67 61 6c 61 78 79 22 2c 46 25 2d |,L%,"galaxy",F%-|
00005fc0 31 36 2c 49 25 2d 31 30 2c 38 0d 02 57 2a c9 37 |16,I%-10,8..W*.7|
00005fd0 3a c8 99 34 36 2c 32 39 30 2c 4c 25 2c 22 73 6e |:..46,290,L%,"sn|
00005fe0 6f 76 61 72 65 6d 22 2c 46 25 2d 31 36 2c 49 25 |ovarem",F%-16,I%|
00005ff0 2d 38 2c 38 0d 02 58 2b c9 38 3a c8 99 34 36 2c |-8,8..X+.8:..46,|
00006000 32 39 30 2c 4c 25 2c 22 61 73 74 65 72 69 73 6d |290,L%,"asterism|
00006010 22 2c 46 25 2d 31 30 2c 49 25 2d 31 30 2c 38 0d |",F%-10,I%-10,8.|
00006020 02 59 2b cb 3a e7 7a 31 25 3a ef 35 3a e6 30 2c |.Y+.:.z1%:.5:.0,|
00006030 31 35 3a ec 46 25 2b 38 2c 49 25 2b 32 32 3a f1 |15:.F%+8,I%+22:.|
00006040 22 4d 22 3b c3 28 63 30 25 29 0d 02 5a 05 e1 0d |"M";.(c0%)..Z...|
00006050 02 5b 3f dd f2 46 28 42 2c 43 2c 51 25 29 3a 42 |.[?..F(B,C,Q%):B|
00006060 3d b2 28 50 25 2f 32 2b 42 2f 32 34 30 29 3a 54 |=.(P%/2+B/240):T|
00006070 3d 4e 25 2a 9b 28 b2 28 43 29 29 3a 46 25 3d 2d |=N%*.(.(C)):F%=-|
00006080 54 2a b5 42 3a e7 94 46 25 3e 5f 25 3a e1 0d 02 |T*.B:..F%>_%:...|
00006090 5c 2f 42 30 3d 9b 42 3a 5a 3d 4e 25 2a b5 28 b2 |\/B0=.B:Z=N%*.(.|
000060a0 28 43 29 29 3a 57 30 25 3d 5a 2a 56 2b 54 2a 42 |(C)):W0%=Z*V+T*B|
000060b0 30 2a 55 3a e7 57 30 25 3c 76 25 3a e1 0d 02 5d |0*U:.W0%<v%:...]|
000060c0 1b 49 25 3d 5a 2a 55 2d 54 2a 56 2a 42 30 3a e7 |.I%=Z*U-T*V*B0:.|
000060d0 94 49 25 3e 60 25 3a e1 0d 02 5e 50 52 25 28 4f |.I%>`%:...^PR%(O|
000060e0 30 25 29 3d 46 25 2b 5f 25 3a 57 25 28 4f 30 25 |0%)=F%+_%:W%(O0%|
000060f0 29 3d 49 25 2b 60 25 3a 50 25 28 4f 30 25 29 3d |)=I%+`%:P%(O0%)=|
00006100 28 32 30 30 2b 51 25 29 2a 31 30 30 30 30 3a 4f |(200+Q%)*10000:O|
00006110 30 25 2b 3d 31 3a e7 4f 30 25 3e 35 30 30 30 3a |0%+=1:.O0%>5000:|
00006120 4f 30 25 3d 35 30 30 30 0d 02 5f 11 ef 35 3a e6 |O0%=5000.._..5:.|
00006130 30 2c 30 3a c8 8e 51 25 ca 0d 02 60 3e c9 30 3a |0,0:..Q%...`>.0:|
00006140 c8 99 34 36 2c 32 39 30 2c 4c 25 2c 22 73 75 6e |..46,290,L%,"sun|
00006150 22 2c 46 25 2d 31 34 2c 49 25 2d 31 34 2c 38 3a |",F%-14,I%-14,8:|
00006160 e7 73 25 3a ec 46 25 2b 31 34 2c 49 25 2b 32 38 |.s%:.F%+14,I%+28|
00006170 3a f1 22 53 75 6e 22 0d 02 61 45 c9 31 3a c8 99 |:."Sun"..aE.1:..|
00006180 34 36 2c 32 39 30 2c 4c 25 2c 22 6d 65 72 63 75 |46,290,L%,"mercu|
00006190 72 79 22 2c 46 25 2d 31 30 2c 49 25 2d 31 30 2c |ry",F%-10,I%-10,|
000061a0 38 3a e7 73 25 3a ec 46 25 2b 38 2c 49 25 2b 32 |8:.s%:.F%+8,I%+2|
000061b0 32 3a f1 22 4d 65 72 63 75 72 79 22 0d 02 62 41 |2:."Mercury"..bA|
000061c0 c9 32 3a c8 99 34 36 2c 32 39 30 2c 4c 25 2c 22 |.2:..46,290,L%,"|
000061d0 76 65 6e 75 73 22 2c 46 25 2d 31 30 2c 49 25 2d |venus",F%-10,I%-|
000061e0 31 30 2c 38 3a e7 73 25 3a ec 46 25 2b 38 2c 49 |10,8:.s%:.F%+8,I|
000061f0 25 2b 32 32 3a f1 22 56 65 6e 75 73 22 0d 02 63 |%+22:."Venus"..c|
00006200 3f c9 34 3a c8 99 34 36 2c 32 39 30 2c 4c 25 2c |?.4:..46,290,L%,|
00006210 22 6d 61 72 73 22 2c 46 25 2d 31 30 2c 49 25 2d |"mars",F%-10,I%-|
00006220 31 30 2c 38 3a e7 73 25 3a ec 46 25 2b 38 2c 49 |10,8:.s%:.F%+8,I|
00006230 25 2b 32 32 3a f1 22 4d 61 72 73 22 0d 02 64 45 |%+22:."Mars"..dE|
00006240 c9 35 3a c8 99 34 36 2c 32 39 30 2c 4c 25 2c 22 |.5:..46,290,L%,"|
00006250 6a 75 70 69 74 65 72 22 2c 46 25 2d 31 30 2c 49 |jupiter",F%-10,I|
00006260 25 2d 31 30 2c 38 3a e7 73 25 3a ec 46 25 2b 38 |%-10,8:.s%:.F%+8|
00006270 2c 49 25 2b 32 32 3a f1 22 4a 75 70 69 74 65 72 |,I%+22:."Jupiter|
00006280 22 0d 02 65 42 c9 36 3a c8 99 34 36 2c 32 39 30 |"..eB.6:..46,290|
00006290 2c 4c 25 2c 22 73 61 74 75 72 6e 22 2c 46 25 2d |,L%,"saturn",F%-|
000062a0 31 38 2c 49 25 2d 38 2c 38 3a e7 73 25 3a ec 46 |18,I%-8,8:.s%:.F|
000062b0 25 2b 38 2c 49 25 2b 32 32 3a f1 22 53 61 74 75 |%+8,I%+22:."Satu|
000062c0 72 6e 22 0d 02 66 43 c9 37 3a c8 99 34 36 2c 32 |rn"..fC.7:..46,2|
000062d0 39 30 2c 4c 25 2c 22 75 72 61 6e 75 73 22 2c 46 |90,L%,"uranus",F|
000062e0 25 2d 31 30 2c 49 25 2d 31 30 2c 38 3a e7 73 25 |%-10,I%-10,8:.s%|
000062f0 3a ec 46 25 2b 38 2c 49 25 2b 32 32 3a f1 22 55 |:.F%+8,I%+22:."U|
00006300 72 61 6e 75 73 22 0d 02 67 45 c9 38 3a c8 99 34 |ranus"..gE.8:..4|
00006310 36 2c 32 39 30 2c 4c 25 2c 22 6e 65 70 74 75 6e |6,290,L%,"neptun|
00006320 65 22 2c 46 25 2d 31 30 2c 49 25 2d 31 30 2c 38 |e",F%-10,I%-10,8|
00006330 3a e7 73 25 3a ec 46 25 2b 38 2c 49 25 2b 32 32 |:.s%:.F%+8,I%+22|
00006340 3a f1 22 4e 65 70 74 75 6e 65 22 0d 02 68 3f c9 |:."Neptune"..h?.|
00006350 39 3a c8 99 34 36 2c 32 39 30 2c 4c 25 2c 22 70 |9:..46,290,L%,"p|
00006360 6c 75 74 6f 22 2c 46 25 2d 38 2c 49 25 2d 38 2c |luto",F%-8,I%-8,|
00006370 38 3a e7 73 25 3a ec 46 25 2b 34 2c 49 25 2b 31 |8:.s%:.F%+4,I%+1|
00006380 38 3a f1 22 50 6c 75 74 6f 22 0d 02 69 41 c9 31 |8:."Pluto"..iA.1|
00006390 30 3a c8 99 34 36 2c 32 39 30 2c 4c 25 2c 22 6d |0:..46,290,L%,"m|
000063a0 6f 6f 6e 22 2c 46 25 2d 31 34 2c 49 25 2d 31 34 |oon",F%-14,I%-14|
000063b0 2c 38 3a e7 73 25 3a ec 46 25 2b 31 34 2c 49 25 |,8:.s%:.F%+14,I%|
000063c0 2b 32 38 3a f1 22 4d 6f 6f 6e 22 0d 02 6a 7b c9 |+28:."Moon"..j{.|
000063d0 31 31 3a c8 99 26 34 30 30 65 36 2c 31 33 31 84 |11:..&400e6,131.|
000063e0 34 38 3a 4c 33 25 3d 32 2a a8 28 30 2e 33 36 2a |48:L3%=2*.(0.36*|
000063f0 4d 28 31 38 31 29 29 3a ec 46 25 2c 49 25 3a f0 |M(181)):.F%,I%:.|
00006400 31 34 37 2c 4c 33 25 2c 30 3a 61 31 25 3d 32 2a |147,L3%,0:a1%=2*|
00006410 a8 28 30 2e 38 38 2a 4c 33 25 29 3a ec 46 25 2c |.(0.88*L3%):.F%,|
00006420 49 25 3a f0 31 34 37 2c 61 31 25 2c 30 3a e7 73 |I%:.147,a1%,0:.s|
00006430 25 3a ec 46 25 2d 34 30 2c 49 25 2b 38 3a f1 22 |%:.F%-40,I%+8:."|
00006440 55 6d 62 72 61 22 0d 02 6b 0c e7 75 25 80 65 33 |Umbra"..k..u%.e3|
00006450 25 8c 0d 02 6c 81 ec 57 32 25 2c 58 32 25 3a f0 |%...l..W2%,X2%:.|
00006460 31 34 37 2c 76 33 25 2c 30 3a ec 57 32 25 2c 58 |147,v3%,0:.W2%,X|
00006470 32 25 3a f0 31 34 37 2c 6e 31 25 2c 30 3a c8 99 |2%:.147,n1%,0:..|
00006480 26 34 30 30 64 31 2c 77 25 2c 53 25 2a 28 5f 25 |&400d1,w%,S%*(_%|
00006490 2b 57 32 25 2d 6e 31 25 2d 32 29 2c 53 25 2a 28 |+W2%-n1%-2),S%*(|
000064a0 2d 60 25 2b 58 32 25 2d 6e 31 25 2d 32 29 2c 53 |-`%+X2%-n1%-2),S|
000064b0 25 2a 28 5f 25 2b 57 32 25 2b 32 2b 6e 31 25 29 |%*(_%+W2%+2+n1%)|
000064c0 2c 53 25 2a 28 2d 60 25 2b 58 32 25 2b 32 2b 6e |,S%*(-`%+X2%+2+n|
000064d0 31 25 29 0d 02 6d 29 cd 3a 76 33 25 3d 4c 33 25 |1%)..m).:v3%=L3%|
000064e0 3a 6e 31 25 3d 61 31 25 3a 57 32 25 3d 46 25 3a |:n1%=a1%:W2%=F%:|
000064f0 58 32 25 3d 49 25 3a 65 33 25 3d b9 0d 02 6e 07 |X2%=I%:e3%=...n.|
00006500 cb 3a e1 0d 02 6f 50 dd f2 6d 31 3a ea 56 33 25 |.:...oP..m1:.V3%|
00006510 3a c8 94 56 33 25 2c 73 25 3a c8 99 34 36 2c 33 |:..V3%,s%:..46,3|
00006520 31 36 2c 4c 25 2c 22 73 74 61 72 6d 61 70 22 2c |16,L%,"starmap",|
00006530 30 b8 7a 25 2c 6f 25 2c 44 30 25 2c 46 30 25 3a |0.z%,o%,D0%,F0%:|
00006540 41 30 25 3d b9 3a c8 91 5f 25 2c 60 25 3a e7 78 |A0%=.:.._%,`%:.x|
00006550 30 25 8c 0d 02 70 1b e7 4d 32 25 f2 46 28 7a 31 |0%...p..M2%.F(z1|
00006560 2c 6a 31 2f 33 36 30 30 2c 39 29 3a f2 49 0d 02 |,j1/3600,9):.I..|
00006570 71 1b e7 4e 32 25 f2 46 28 72 31 2c 4b 32 2f 33 |q..N2%.F(r1,K2/3|
00006580 36 30 30 2c 38 29 3a f2 49 0d 02 72 1b e7 4c 32 |600,8):.I..r..L2|
00006590 25 f2 46 28 76 31 2c 53 32 2f 33 36 30 30 2c 37 |%.F(v1,S2/3600,7|
000065a0 29 3a f2 49 0d 02 73 1b e7 46 32 25 f2 46 28 41 |):.I..s..F2%.F(A|
000065b0 32 2c 4c 32 2f 33 36 30 30 2c 36 29 3a f2 49 0d |2,L2/3600,6):.I.|
000065c0 02 74 1b e7 54 32 25 f2 46 28 4a 32 2c 48 32 2f |.t..T2%.F(J2,H2/|
000065d0 33 36 30 30 2c 35 29 3a f2 49 0d 02 75 1b e7 6b |3600,5):.I..u..k|
000065e0 31 25 f2 46 28 46 32 2c 49 32 2f 33 36 30 30 2c |1%.F(F2,I2/3600,|
000065f0 34 29 3a f2 49 0d 02 76 15 e3 64 25 3d 30 b8 32 |4):.I..v..d%=0.2|
00006600 3a c8 8e 58 25 28 64 25 29 ca 0d 02 77 1e c9 30 |:..X%(d%)...w..0|
00006610 3a e7 64 32 25 f2 46 28 4d 30 2c 6d 30 2f 33 36 |:.d2%.F(M0,m0/36|
00006620 30 30 2c 30 29 3a f2 49 0d 02 78 1e c9 31 3a e7 |00,0):.I..x..1:.|
00006630 4a 32 25 f2 46 28 43 32 2c 6d 31 2f 33 36 30 30 |J2%.F(C2,m1/3600|
00006640 2c 31 29 3a f2 49 0d 02 79 1e c9 32 3a e7 6c 31 |,1):.I..y..2:.l1|
00006650 25 f2 46 28 50 32 2c 4d 32 2f 33 36 30 30 2c 32 |%.F(P2,M2/3600,2|
00006660 29 3a f2 49 0d 02 7a 20 cb 3a ed 3a e7 59 32 25 |):.I..z .:.:.Y2%|
00006670 f2 46 28 49 30 2c 4c 30 2f 33 36 30 30 2c 31 30 |.F(I0,L0/3600,10|
00006680 29 3a f2 49 0d 02 7b 09 e7 6d 31 25 8c 0d 02 7c |):.I..{..m1%...||
00006690 66 f2 46 28 6d 2c 69 30 2f 33 36 30 30 2c 31 31 |f.F(m,i0/3600,11|
000066a0 29 3a c8 99 26 34 30 30 64 31 2c 77 25 2c 53 25 |):..&400d1,w%,S%|
000066b0 2a 28 5f 25 2b 46 25 2d 61 31 25 2d 32 29 2c 53 |*(_%+F%-a1%-2),S|
000066c0 25 2a 28 2d 60 25 2b 49 25 2d 61 31 25 2d 32 29 |%*(-`%+I%-a1%-2)|
000066d0 2c 53 25 2a 28 5f 25 2b 46 25 2b 32 2b 61 31 25 |,S%*(_%+F%+2+a1%|
000066e0 29 2c 53 25 2a 28 2d 60 25 2b 49 25 2b 32 2b 61 |),S%*(-`%+I%+2+a|
000066f0 31 25 29 0d 02 7d 05 cd 0d 02 7e 29 cd 3a 41 30 |1%)..}....~).:A0|
00006700 25 3d a3 3a c8 99 34 36 2c 7a 25 2c 6f 25 2c 44 |%=.:..46,z%,o%,D|
00006710 30 25 2c 46 30 25 3a c8 94 56 33 25 2c 73 25 3a |0%,F0%:..V3%,s%:|
00006720 e1 0d 02 7f 4f dd f2 49 3a c8 99 26 34 30 30 64 |....O..I:..&400d|
00006730 31 2c 77 25 2c 53 25 2a 28 5f 25 2b 46 25 2d 31 |1,w%,S%*(_%+F%-1|
00006740 36 29 2c 53 25 2a 28 2d 60 25 2b 49 25 2d 31 36 |6),S%*(-`%+I%-16|
00006750 29 2c 53 25 2a 28 5f 25 2b 46 25 2b 31 36 29 2c |),S%*(_%+F%+16),|
00006760 53 25 2a 28 2d 60 25 2b 49 25 2b 31 36 29 3a e1 |S%*(-`%+I%+16):.|
00006770 0d 02 80 53 dd f2 62 30 28 53 25 29 3a c8 99 26 |...S..b0(S%):..&|
00006780 34 30 30 65 64 2c 32 35 36 2c 4c 25 2c 22 6d 61 |400ed,256,L%,"ma|
00006790 67 30 22 2c 2c 2c 2c 6a 30 25 2c 50 31 25 3a 6a |g0",,,,j0%,P1%:j|
000067a0 30 25 21 30 3d 6a 30 25 21 30 2a 53 25 3a 6a 30 |0%!0=j0%!0*S%:j0|
000067b0 25 21 34 3d 6a 30 25 21 34 2a 53 25 3a e7 53 25 |%!4=j0%!4*S%:.S%|
000067c0 3d 31 8c 0d 02 81 5e 21 4a 25 3d 77 25 3a c8 99 |=1....^!J%=w%:..|
000067d0 26 34 30 30 63 62 2c 2c 4a 25 3a 4a 25 21 32 30 |&400cb,,J%:J%!20|
000067e0 3d 30 3a 4a 25 21 32 34 3d 31 33 36 3a 4a 25 21 |=0:J%!24=136:J%!|
000067f0 31 32 3d 4a 25 21 34 2b 5a 30 25 2a 53 25 3a 4a |12=J%!4+Z0%*S%:J|
00006800 25 21 38 3d 4a 25 21 31 36 2d 42 30 25 2a 53 25 |%!8=J%!16-B0%*S%|
00006810 2d 31 33 36 3a c8 99 26 34 30 30 63 35 2c 2c 4a |-136:..&400c5,,J|
00006820 25 0d 02 82 26 cd 3a f2 72 28 77 25 2c 5a 30 25 |%...&.:.r(w%,Z0%|
00006830 2a 53 25 2c 2d 42 30 25 2a 53 25 2c 30 2c 30 29 |*S%,-B0%*S%,0,0)|
00006840 3a e7 53 25 3d 32 8c 0d 02 83 72 21 4a 25 3d 77 |:.S%=2....r!J%=w|
00006850 25 3a c8 99 26 34 30 30 63 62 2c 2c 4a 25 3a 4a |%:..&400cb,,J%:J|
00006860 25 21 32 30 3d 30 3a 4a 25 21 32 34 3d 31 33 36 |%!20=0:J%!24=136|
00006870 3a 21 4a 25 3d 77 25 3a c8 99 26 34 30 30 63 62 |:!J%=w%:..&400cb|
00006880 2c 2c 4a 25 3a 4a 25 21 31 32 3d 4a 25 21 34 2b |,,J%:J%!12=J%!4+|
00006890 5a 30 25 2a 53 25 3a 4a 25 21 38 3d 4a 25 21 31 |Z0%*S%:J%!8=J%!1|
000068a0 36 2d 53 25 2a 42 30 25 2d 31 33 36 3a c8 99 26 |6-S%*B0%-136:..&|
000068b0 34 30 30 63 35 2c 2c 4a 25 0d 02 84 2c cd 3a f2 |400c5,,J%...,.:.|
000068c0 53 28 b9 29 3a c8 99 26 34 30 30 64 31 2c 77 25 |S(.):..&400d1,w%|
000068d0 2c 30 2c 2d 42 30 25 2a 53 25 2c 5a 30 25 2a 53 |,0,-B0%*S%,Z0%*S|
000068e0 25 2c 30 3a e1 0d 02 85 c2 dd f2 6e 31 3a 73 33 |%,0:.......n1:s3|
000068f0 25 3d 30 3a 51 35 25 3d 36 35 32 38 30 3a 58 34 |%=0:Q5%=65280:X4|
00006900 25 3d 26 63 30 63 30 63 30 30 30 3a c8 99 26 34 |%=&c0c0c000:..&4|
00006910 30 30 38 31 2c 2c 22 54 72 69 6e 69 74 79 2e 4d |0081,,"Trinity.M|
00006920 65 64 69 75 6d 2e 49 74 61 6c 69 63 22 2c 32 34 |edium.Italic",24|
00006930 30 2c 32 34 30 2c 30 2c 30 b8 4a 33 25 3a c8 99 |0,240,0,0.J3%:..|
00006940 26 34 30 37 34 66 2c 4a 33 25 2c 73 33 25 2c 58 |&4074f,J3%,s3%,X|
00006950 34 25 2c 31 34 3a e3 66 30 25 3d 31 b8 38 38 3a |4%,14:.f0%=1.88:|
00006960 42 3d 33 36 30 2d 53 25 28 66 30 25 2d 31 29 3a |B=360-S%(f0%-1):|
00006970 43 3d 55 25 28 66 30 25 2d 31 29 3a 42 3d b2 28 |C=U%(f0%-1):B=.(|
00006980 50 25 2f 32 2b 42 29 3a 54 3d 4e 25 2a 9b 28 b2 |P%/2+B):T=N%*.(.|
00006990 28 43 29 29 3a 46 25 3d 2d 54 2a b5 42 3a e7 94 |(C)):F%=-T*.B:..|
000069a0 46 25 3c 3d 5f 25 8c 0d 02 86 2e 42 30 3d 9b 42 |F%<=_%.....B0=.B|
000069b0 3a 5a 3d 4e 25 2a b5 28 b2 28 43 29 29 3a 57 30 |:Z=N%*.(.(C)):W0|
000069c0 25 3d 5a 2a 56 2b 54 2a 42 30 2a 55 3a e7 57 30 |%=Z*V+T*B0*U:.W0|
000069d0 25 3e 76 25 8c 0d 02 87 1b 49 25 3d 5a 2a 55 2d |%>v%.....I%=Z*U-|
000069e0 54 2a 56 2a 42 30 3a e7 94 49 25 3c 3d 60 25 8c |T*V*B0:..I%<=`%.|
000069f0 0d 02 88 0c e7 66 30 25 3d 6c 25 8c 0d 02 89 67 |.....f0%=l%....g|
00006a00 c8 99 26 34 30 37 34 66 2c 4a 33 25 2c 73 33 25 |..&4074f,J3%,s3%|
00006a10 2c 2d 32 35 36 2c 31 34 3a c8 99 26 34 30 30 38 |,-256,14:..&4008|
00006a20 36 2c 2c c0 48 24 28 66 30 25 29 2c a7 48 24 28 |6,,.H$(f0%),.H$(|
00006a30 66 30 25 29 2c 22 28 22 29 2d 31 29 2c 31 36 2c |f0%),"(")-1),16,|
00006a40 46 25 2b 5f 25 2c 49 25 2b 60 25 3a c8 99 26 34 |F%+_%,I%+`%:..&4|
00006a50 30 37 34 66 2c 4a 33 25 2c 73 33 25 2c 58 34 25 |074f,J3%,s3%,X4%|
00006a60 2c 31 34 0d 02 8a 38 cc 3a c8 99 26 34 30 30 38 |,14...8.:..&4008|
00006a70 36 2c 2c c0 48 24 28 66 30 25 29 2c a7 48 24 28 |6,,.H$(f0%),.H$(|
00006a80 66 30 25 29 2c 22 28 22 29 2d 31 29 2c 31 36 2c |f0%),"(")-1),16,|
00006a90 46 25 2b 5f 25 2c 49 25 2b 60 25 0d 02 8b 05 cd |F%+_%,I%+`%.....|
00006aa0 0d 02 8c 05 cd 0d 02 8d 05 cd 0d 02 8e 16 cd 3a |...............:|
00006ab0 ed 3a c8 99 26 34 30 30 38 32 2c 4a 33 25 3a e1 |.:..&40082,J3%:.|
00006ac0 0d 02 8f fd dd f2 4e 31 28 4c 24 29 3a ea 53 31 |......N1(L$):.S1|
00006ad0 25 3a 70 30 25 3d 30 3a 44 35 25 3d 31 3a 53 31 |%:p0%=0:D5%=1:S1|
00006ae0 25 3d a4 4f 28 4c 24 29 3a de 71 30 25 53 31 25 |%=.O(L$):.q0%S1%|
00006af0 3a 53 31 25 3d a4 6e 28 4c 24 2c 71 30 25 2c 53 |:S1%=.n(L$,q0%,S|
00006b00 31 25 29 3a 70 30 25 3d 21 71 30 25 2d 31 3a 68 |1%):p0%=!q0%-1:h|
00006b10 31 25 3d 71 30 25 21 34 3a 71 30 25 2b 3d 31 36 |1%=q0%!4:q0%+=16|
00006b20 3a 46 33 25 3d 71 30 25 3a 4b 33 25 3d 71 30 25 |:F3%=q0%:K3%=q0%|
00006b30 2b 34 2a 68 31 25 3a 49 31 25 3d 71 30 25 2b 38 |+4*h1%:I1%=q0%+8|
00006b40 2a 68 31 25 3a 41 34 25 3d 71 30 25 2b 31 32 2a |*h1%:A4%=q0%+12*|
00006b50 68 31 25 3a 5f 31 25 3d 71 30 25 2b 31 34 2a 68 |h1%:_1%=q0%+14*h|
00006b60 31 25 3a 67 32 25 3d 71 30 25 2b 31 36 2a 68 31 |1%:g2%=q0%+16*h1|
00006b70 25 3a 6a 33 25 3d 71 30 25 2b 31 37 2a 68 31 25 |%:j3%=q0%+17*h1%|
00006b80 3a 44 34 25 3d 71 30 25 2b 31 38 2a 68 31 25 3a |:D4%=q0%+18*h1%:|
00006b90 e3 46 25 3d 30 b8 70 30 25 3a 4a 25 28 46 25 29 |.F%=0.p0%:J%(F%)|
00006ba0 3d 46 33 25 21 28 34 2a 46 25 29 3a 47 25 28 46 |=F3%!(4*F%):G%(F|
00006bb0 25 29 3d 4b 33 25 21 28 34 2a 46 25 29 0d 02 90 |%)=K3%!(4*F%)...|
00006bc0 3d 4f 28 46 25 29 3d 4e 25 2a 9b 28 b2 28 47 25 |=O(F%)=N%*.(.(G%|
00006bd0 28 46 25 29 2f 33 36 30 30 29 29 3a 4c 28 46 25 |(F%)/3600)):L(F%|
00006be0 29 3d 4e 25 2a b5 28 b2 28 47 25 28 46 25 29 2f |)=N%*.(.(G%(F%)/|
00006bf0 33 36 30 30 29 29 3a ed 3a e1 0d 02 91 4e dd f2 |3600)):.:....N..|
00006c00 6a 31 28 4c 24 29 3a 47 34 25 3d 31 3a 54 25 3d |j1(L$):G4%=1:T%=|
00006c10 8e 28 4c 24 29 3a c8 95 ac c5 23 54 25 3a 4a 24 |.(L$):....#T%:J$|
00006c20 28 47 34 25 29 3d be 23 54 25 3a 47 34 25 2b 3d |(G4%)=.#T%:G4%+=|
00006c30 31 3a ce 3a c8 99 26 32 30 30 30 64 2c 30 2c 54 |1:.:..&2000d,0,T|
00006c40 25 3a 54 25 3d 30 3a e1 0d 02 92 ce dd f2 61 30 |%:T%=0:.......a0|
00006c50 28 4c 24 29 3a ea 5a 32 25 3a 6f 33 25 3d 31 3a |(L$):.Z2%:o3%=1:|
00006c60 54 25 3d 8e 28 4c 24 29 3a c8 95 ac c5 23 54 25 |T%=.(L$):....#T%|
00006c70 3a 42 24 3d be 23 54 25 3a 5a 32 25 3d bb 28 c0 |:B$=.#T%:Z2%=.(.|
00006c80 42 24 2c 33 29 29 3a 62 30 25 3d bb 28 c1 42 24 |B$,3)):b0%=.(.B$|
00006c90 2c 35 2c 32 29 29 3a 63 30 25 3d bb 28 c1 42 24 |,5,2)):c0%=.(.B$|
00006ca0 2c 37 2c 32 29 29 3a 5f 30 25 3d bb 28 c1 42 24 |,7,2)):_0%=.(.B$|
00006cb0 2c 39 2c 32 29 29 3a 4b 25 28 5a 32 25 29 3d 62 |,9,2)):K%(Z2%)=b|
00006cc0 30 25 2a 36 30 2a 36 30 2b 63 30 25 2a 36 30 2b |0%*60*60+c0%*60+|
00006cd0 5f 30 25 3a 51 33 25 3d bb 28 c1 42 24 2c 31 31 |_0%:Q3%=.(.B$,11|
00006ce0 2c 33 29 29 3a 63 30 25 3d bb 28 c1 42 24 2c 31 |,3)):c0%=.(.B$,1|
00006cf0 34 2c 32 29 29 3a 5f 30 25 3d bb 28 c1 42 24 2c |4,2)):_0%=.(.B$,|
00006d00 31 36 2c 32 29 29 3a e7 c1 42 24 2c 31 31 2c 31 |16,2)):..B$,11,1|
00006d10 29 3d 22 2d 22 8c 0d 02 93 20 4d 25 28 5a 32 25 |)="-".... M%(Z2%|
00006d20 29 3d 51 33 25 2a 36 30 2a 36 30 2d 63 30 25 2a |)=Q3%*60*60-c0%*|
00006d30 36 30 2d 5f 30 25 0d 02 94 22 cc 3a 4d 25 28 5a |60-_0%...".:M%(Z|
00006d40 32 25 29 3d 51 33 25 2a 36 30 2a 36 30 2b 63 30 |2%)=Q3%*60*60+c0|
00006d50 25 2a 36 30 2b 5f 30 25 0d 02 95 28 cd 3a 4f 25 |%*60+_0%...(.:O%|
00006d60 28 5a 32 25 29 3d bb 28 c1 42 24 2c 31 39 2c 31 |(Z2%)=.(.B$,19,1|
00006d70 29 29 3a e7 a7 42 24 2c 22 3a 22 29 3e 31 30 8c |)):..B$,":")>10.|
00006d80 0d 02 96 2d 4c 24 28 6f 33 25 29 3d c1 42 24 2c |...-L$(o3%)=.B$,|
00006d90 32 31 29 3a 4f 25 28 5a 32 25 29 2b 3d 28 6f 33 |21):O%(Z2%)+=(o3|
00006da0 25 2a 31 30 30 29 3a 6f 33 25 2b 3d 31 0d 02 97 |%*100):o3%+=1...|
00006db0 1c cd 3a ce 3a c8 99 26 32 30 30 30 64 2c 30 2c |..:.:..&2000d,0,|
00006dc0 54 25 3a 54 25 3d 30 3a e1 0d 02 98 18 dd a4 4b |T%:T%=0:.......K|
00006dd0 28 46 34 25 29 3a ea 42 24 3a e7 46 34 25 3c 30 |(F4%):.B$:.F4%<0|
00006de0 8c 0d 02 99 3f 42 24 3d c2 22 30 30 30 22 2b c1 |....?B$=."000"+.|
00006df0 c3 28 46 34 25 29 2c 32 29 2c 33 29 3a 42 24 3d |.(F4%),2),3):B$=|
00006e00 22 2d 22 2b c0 c0 42 24 2c 31 29 2b 22 2e 22 2b |"-"+..B$,1)+"."+|
00006e10 c1 42 24 2c 32 2c 32 29 2b 22 30 30 22 2c 34 29 |.B$,2,2)+"00",4)|
00006e20 0d 02 9a 39 cc 3a 42 24 3d c2 22 30 30 30 22 2b |...9.:B$=."000"+|
00006e30 c3 28 46 34 25 29 2c 33 29 3a 42 24 3d c0 c0 42 |.(F4%),3):B$=..B|
00006e40 24 2c 31 29 2b 22 2e 22 2b c1 42 24 2c 32 2c 32 |$,1)+"."+.B$,2,2|
00006e50 29 2b 22 30 30 22 2c 34 29 0d 02 9b 09 cd 3a 3d |)+"00",4).....:=|
00006e60 42 24 0d 02 9c 59 dd f2 51 31 28 4c 24 29 3a 54 |B$...Y..Q1(L$):T|
00006e70 25 3d 8e 28 4c 24 29 3a 65 31 25 3d 30 3a c8 95 |%=.(L$):e1%=0:..|
00006e80 ac c5 23 54 25 3a 48 24 28 65 31 25 29 3d c1 be |..#T%:H$(e1%)=..|
00006e90 23 54 25 2c 35 29 3a 65 31 25 2b 3d 31 3a ce 3a |#T%,5):e1%+=1:.:|
00006ea0 65 31 25 2d 3d 31 3a c8 99 26 32 30 30 30 64 2c |e1%-=1:..&2000d,|
00006eb0 30 2c 54 25 3a 54 25 3d 30 3a e1 0d 02 9d 4e dd |0,T%:T%=0:....N.|
00006ec0 f2 6b 31 28 4c 24 29 3a 54 25 3d 8e 28 4c 24 29 |.k1(L$):T%=.(L$)|
00006ed0 3a 65 31 25 3d 30 3a c8 95 ac c5 23 54 25 3a 4d |:e1%=0:....#T%:M|
00006ee0 24 28 65 31 25 29 3d be 23 54 25 3a 65 31 25 2b |$(e1%)=.#T%:e1%+|
00006ef0 3d 31 3a ce 3a c8 99 26 32 30 30 30 64 2c 30 2c |=1:.:..&2000d,0,|
00006f00 54 25 3a 54 25 3d 30 3a e1 0d 02 9e 20 dd f2 49 |T%:T%=0:.... ..I|
00006f10 31 28 4c 24 29 3a ea 5a 25 2c 4d 30 25 3a 72 25 |1(L$):.Z%,M0%:r%|
00006f20 3d 30 3a e7 61 33 25 3a e1 0d 02 9f 29 54 25 3d |=0:.a3%:....)T%=|
00006f30 8e 28 4c 24 29 3a c8 95 ac c5 23 54 25 3a 41 24 |.(L$):....#T%:A$|
00006f40 3d be 23 54 25 3a e7 a7 41 24 2c 22 3a 22 29 3e |=.#T%:..A$,":")>|
00006f50 31 8c 0d 02 a0 37 43 25 28 72 25 29 3d bb 28 c0 |1....7C%(r%)=.(.|
00006f60 41 24 2c a7 41 24 2c 22 3a 22 29 2d 31 29 29 3a |A$,.A$,":")-1)):|
00006f70 42 25 28 72 25 29 3d bb 28 c1 41 24 2c a7 41 24 |B%(r%)=.(.A$,.A$|
00006f80 2c 22 3a 22 29 2b 31 29 29 0d 02 a1 3a cc 3a 5a |,":")+1))...:.:Z|
00006f90 25 3d 30 3a e3 4d 30 25 3d 31 b8 65 31 25 3a e7 |%=0:.M0%=1.e1%:.|
00006fa0 41 24 3d c0 48 24 28 4d 30 25 29 2c a7 48 24 28 |A$=.H$(M0%),.H$(|
00006fb0 4d 30 25 29 2c 22 28 22 29 2d 32 29 3a 5a 25 3d |M0%),"(")-2):Z%=|
00006fc0 4d 30 25 0d 02 a2 1e ed 3a 43 25 28 72 25 29 3d |M0%.....:C%(r%)=|
00006fd0 26 66 66 66 66 66 66 3a 42 25 28 72 25 29 3d 5a |&ffffff:B%(r%)=Z|
00006fe0 25 0d 02 a3 31 cd 3a 72 25 2b 3d 31 3a ce 3a 43 |%...1.:r%+=1:.:C|
00006ff0 25 28 72 25 29 3d 26 66 66 66 66 66 66 3a c8 99 |%(r%)=&ffffff:..|
00007000 26 32 30 30 30 64 2c 30 2c 54 25 3a 54 25 3d 30 |&2000d,0,T%:T%=0|
00007010 3a e1 0d 02 a4 3f dd f2 66 28 42 2c 4c 31 2c 56 |:....?..f(B,L1,V|
00007020 30 29 3a 6f 33 3d b2 28 71 29 3a 6d 33 3d b5 28 |0):o3=.(q):m3=.(|
00007030 6f 33 29 3a 72 33 3d 9b 28 6f 33 29 3a 48 33 3d |o3):r3=.(o3):H3=|
00007040 56 30 2d 42 3a e7 48 33 3c 30 3a 42 2b 3d 32 2a |V0-B:.H3<0:B+=2*|
00007050 af 0d 02 a5 83 65 33 3d b5 28 4c 31 29 3a 64 33 |.....e3=.(L1):d3|
00007060 3d 9b 28 4c 31 29 3a 6e 33 3d 65 33 2a 6d 33 2b |=.(L1):n3=e3*m3+|
00007070 64 33 2a 72 33 2a 9b 28 48 33 29 3a 68 32 3d 98 |d3*r3*.(H3):h2=.|
00007080 28 6e 33 29 3a 6a 33 3d 2d 64 33 2a 72 33 2a b5 |(n3):j3=-d3*r3*.|
00007090 28 48 33 29 3a 44 33 3d 65 33 2d 6d 33 2a 6e 33 |(H3):D3=e3-m3*n3|
000070a0 3a 51 32 3d 99 28 6a 33 2f 28 44 33 2b 31 45 2d |:Q2=.(j3/(D3+1E-|
000070b0 33 38 29 29 3a e7 44 33 3c 30 3a 51 32 2b 3d af |38)):.D3<0:Q2+=.|
000070c0 3a 8b e7 44 33 3e 30 80 6a 33 3c 30 3a 51 32 2b |:..D3>0.j3<0:Q2+|
000070d0 3d 32 2a af 0d 02 a6 05 e1 0d 02 a7 2f dd f2 59 |=2*........./..Y|
000070e0 28 52 33 25 29 3a c8 99 26 34 30 36 63 30 3a 74 |(R3%):..&406c0:t|
000070f0 31 25 3d 52 33 25 3a 4e 25 3d 4c 25 28 52 33 25 |1%=R3%:N%=L%(R3%|
00007100 29 3a c8 8e 52 33 25 ca 0d 02 a8 0d c9 30 3a 68 |):..R3%......0:h|
00007110 25 3d 34 34 30 0d 02 a9 0d c9 31 3a 68 25 3d 35 |%=440.....1:h%=5|
00007120 32 30 0d 02 aa 0d c9 32 3a 68 25 3d 36 30 30 0d |20.....2:h%=600.|
00007130 02 ab 0d c9 33 3a 68 25 3d 37 30 30 0d 02 ac 2c |....3:h%=700...,|
00007140 cb 3a 4b 32 25 3d 37 30 30 2d 68 25 3a f2 41 28 |.:K2%=700-h%:.A(|
00007150 4b 25 2c 31 39 2c a4 4b 28 68 25 29 29 3a e7 4e |K%,19,.K(h%)):.N|
00007160 25 3e 4c 25 28 32 29 8c 0d 02 ad 0e 74 30 25 3d |%>L%(2).....t0%=|
00007170 36 3a 61 25 3d 35 0d 02 ae 44 cc 3a 74 30 25 3d |6:a%=5...D.:t0%=|
00007180 36 3a 61 25 3d 35 3a 4d 25 3d 31 30 2a 28 4d 25 |6:a%=5:M%=10*(M%|
00007190 81 31 30 29 3a 4e 3d b2 28 4d 25 29 3a 56 3d b5 |.10):N=.(M%):V=.|
000071a0 28 4e 29 3a 55 3d 9b 28 4e 29 3a f2 41 28 4b 25 |(N):U=.(N):.A(K%|
000071b0 2c 31 33 2c c3 28 4d 25 29 29 0d 02 af 69 cd 3a |,13,.(M%))...i.:|
000071c0 e3 59 30 25 3d 30 b8 33 36 30 3a 4d 28 59 30 25 |.Y0%=0.360:M(Y0%|
000071d0 29 3d 4e 25 2a b5 28 b2 28 59 30 25 2b 31 38 30 |)=N%*.(.(Y0%+180|
000071e0 29 29 3a 53 28 59 30 25 29 3d 4e 25 2a 9b 28 b2 |)):S(Y0%)=N%*.(.|
000071f0 28 59 30 25 2b 31 38 30 29 29 3a ed 3a e7 77 32 |(Y0%+180)):.:.w2|
00007200 25 3e 32 2a 4e 25 3a 72 30 25 3d 39 30 3a 8b 72 |%>2*N%:r0%=90:.r|
00007210 30 25 3d 9d 28 98 28 77 32 25 2f 28 32 2a 4e 25 |0%=.(.(w2%/(2*N%|
00007220 29 29 29 0d 02 b0 21 76 25 3d 4e 25 2a 9b 28 b2 |)))...!v%=N%*.(.|
00007230 28 72 30 25 2b 31 30 29 29 3a e7 76 25 3c 30 3a |(r0%+10)):.v%<0:|
00007240 76 25 3d 30 0d 02 b1 14 e7 76 25 3e 4e 25 2f 32 |v%=0.....v%>N%/2|
00007250 3a 76 25 3d 4e 25 2f 32 0d 02 b2 b9 6b 25 3d 9d |:v%=N%/2....k%=.|
00007260 28 98 28 5a 30 25 2f 32 2f 4e 25 29 29 3a 6b 25 |(.(Z0%/2/N%)):k%|
00007270 2b 3d 61 25 3a 72 33 25 3d 2d 4e 25 2a b5 28 b2 |+=a%:r3%=-N%*.(.|
00007280 28 6b 25 29 29 3a 67 34 25 3d 2d 72 33 25 3a 6b |(k%)):g4%=-r3%:k|
00007290 25 3d 9d 28 98 28 42 30 25 2f 32 2f 4e 25 29 29 |%=.(.(B0%/2/N%))|
000072a0 3a 6b 25 2b 3d 32 2a 74 30 25 3a 69 31 25 3d 2d |:k%+=2*t0%:i1%=-|
000072b0 4e 25 2a b5 28 b2 28 6b 25 29 29 3a 62 32 25 3d |N%*.(.(k%)):b2%=|
000072c0 2d 69 31 25 3a e3 46 25 3d 30 b8 70 30 25 3a 4f |-i1%:.F%=0.p0%:O|
000072d0 28 46 25 29 3d 4e 25 2a 9b 28 b2 28 47 25 28 46 |(F%)=N%*.(.(G%(F|
000072e0 25 29 2f 33 36 30 30 29 29 3a 4c 28 46 25 29 3d |%)/3600)):L(F%)=|
000072f0 4e 25 2a b5 28 b2 28 47 25 28 46 25 29 2f 33 36 |N%*.(.(G%(F%)/36|
00007300 30 30 29 29 3a ed 3a c8 99 26 34 30 36 63 31 3a |00)):.:..&406c1:|
00007310 e1 0d 02 b3 4a dd f2 47 31 3a ea 5a 25 2c 77 31 |....J..G1:.Z%,w1|
00007320 25 2c 57 33 25 3a c8 99 26 34 30 30 65 36 2c 31 |%,W3%:..&400e6,1|
00007330 32 38 2b 31 31 3a 77 31 25 3d a3 3a 57 33 25 3d |28+11:w1%=.:W3%=|
00007340 31 34 3a e3 5a 25 3d 31 b8 72 25 2d 34 36 3a f2 |14:.Z%=1.r%-46:.|
00007350 78 3a ed 3a e7 6c 25 3e 38 38 8c 0d 02 b4 09 c8 |x:.:.l%>88......|
00007360 8e 6c 25 ca 0d 02 b5 1b c9 39 35 3a 46 25 3d 31 |.l%......95:F%=1|
00007370 37 37 3a 49 25 3d 31 38 32 3a 6c 25 3d 31 38 0d |77:I%=182:l%=18.|
00007380 02 b6 15 c9 39 32 3a 46 25 3d 39 33 35 3a 49 25 |....92:F%=935:I%|
00007390 3d 39 33 39 0d 02 b7 15 c9 39 34 3a 46 25 3d 39 |=939.....94:F%=9|
000073a0 34 30 3a 49 25 3d 39 34 34 0d 02 b8 15 c9 39 33 |40:I%=944.....93|
000073b0 3a 46 25 3d 39 34 35 3a 49 25 3d 39 35 37 0d 02 |:F%=945:I%=957..|
000073c0 b9 15 c9 38 39 3a 46 25 3d 39 35 38 3a 49 25 3d |...89:F%=958:I%=|
000073d0 39 36 33 0d 02 ba 15 c9 39 31 3a 46 25 3d 39 36 |963.....91:F%=96|
000073e0 34 3a 49 25 3d 39 36 39 0d 02 bb 15 c9 39 30 3a |4:I%=969.....90:|
000073f0 46 25 3d 39 37 30 3a 49 25 3d 39 37 38 0d 02 bc |F%=970:I%=978...|
00007400 28 cb 3a 57 33 25 3d 31 34 3a e3 5a 25 3d 46 25 |(.:W3%=14:.Z%=F%|
00007410 b8 49 25 3a f2 78 3a ed 3a e7 6c 25 3d 31 38 3a |.I%:.x:.:.l%=18:|
00007420 6c 25 3d 39 35 0d 02 bd 07 cd 3a e1 0d 02 be 29 |l%=95.....:....)|
00007430 dd f2 78 3a 67 25 3d 43 25 28 5a 25 29 3a 43 3d |..x:g%=C%(Z%):C=|
00007440 42 25 28 5a 25 29 2f 33 36 30 30 3a e7 6c 30 25 |B%(Z%)/3600:.l0%|
00007450 3e 6d 30 25 8c 0d 02 bf 15 e7 67 25 3d 26 66 66 |>m0%......g%=&ff|
00007460 66 66 66 66 3a 77 31 25 3d b9 0d 02 c0 09 e7 77 |ffff:w1%=......w|
00007470 31 25 8c 0d 02 c1 0f e7 42 25 28 5a 25 29 3d 6c |1%......B%(Z%)=l|
00007480 25 8c 0d 02 c2 14 c8 99 26 34 30 30 65 36 2c 31 |%.......&400e6,1|
00007490 32 38 2b 57 33 25 0d 02 c3 15 cc 3a c8 99 26 34 |28+W3%.....:..&4|
000074a0 30 30 65 36 2c 31 32 38 2b 31 31 0d 02 c4 05 cd |00e6,128+11.....|
000074b0 0d 02 c5 25 cd 3a 77 31 25 3d a3 3a e7 67 25 2f |...%.:w1%=.:.g%/|
000074c0 33 36 30 30 3c 6c 30 25 80 67 25 2f 33 36 30 30 |3600<l0%.g%/3600|
000074d0 3e 6d 30 25 8c 0d 02 c6 11 e7 43 3c 4b 30 25 80 |>m0%......C<K0%.|
000074e0 43 3e 4c 30 25 8c 0d 02 c7 11 e7 67 25 3c 3e 26 |C>L0%......g%<>&|
000074f0 66 66 66 66 66 66 8c 0d 02 c8 3f 42 3d b2 28 50 |ffffff....?B=.(P|
00007500 25 2f 32 2b 67 25 2f 32 34 30 29 3a 43 3d b2 43 |%/2+g%/240):C=.C|
00007510 3a 5a 3d 4e 25 2a b5 43 3a 54 3d 4e 25 2a 9b 43 |:Z=N%*.C:T=N%*.C|
00007520 3a 55 30 3d 54 2a 9b 42 3a e7 5a 2a 56 2b 55 30 |:U0=T*.B:.Z*V+U0|
00007530 2a 55 3e 76 25 8c 0d 02 c9 99 ec a8 28 2d 54 2a |*U>v%.......(-T*|
00007540 b5 42 29 2c a8 28 5a 2a 55 2d 56 2a 55 30 29 3a |.B),.(Z*U-V*U0):|
00007550 5a 25 2b 3d 31 3a 67 25 3d 43 25 28 5a 25 29 3a |Z%+=1:g%=C%(Z%):|
00007560 43 3d 42 25 28 5a 25 29 2f 33 36 30 30 3a c8 95 |C=B%(Z%)/3600:..|
00007570 67 25 3c 3e 26 66 66 66 66 66 66 3a 42 3d b2 28 |g%<>&ffffff:B=.(|
00007580 50 25 2f 32 2b 67 25 2f 32 34 30 29 3a 43 3d b2 |P%/2+g%/240):C=.|
00007590 43 3a 5a 3d 4e 25 2a b5 43 3a 54 3d 4e 25 2a 9b |C:Z=N%*.C:T=N%*.|
000075a0 43 3a 55 30 3d 54 2a 9b 42 3a e7 5a 2a 56 2b 55 |C:U0=T*.B:.Z*V+U|
000075b0 30 2a 55 3e 76 25 3a f0 35 35 2c a8 28 2d 54 2a |0*U>v%:.55,.(-T*|
000075c0 b5 42 29 2c a8 28 5a 2a 55 2d 56 2a 55 30 29 0d |.B),.(Z*U-V*U0).|
000075d0 02 ca 29 5a 25 2b 3d 31 3a 67 25 3d 43 25 28 5a |..)Z%+=1:g%=C%(Z|
000075e0 25 29 3a 43 3d 42 25 28 5a 25 29 2f 33 36 30 30 |%):C=B%(Z%)/3600|
000075f0 3a ce 3a 5a 25 2d 3d 31 0d 02 cb 05 cd 0d 02 cc |:.:Z%-=1........|
00007600 05 cd 0d 02 cd 05 cd 0d 02 ce 05 cd 0d 02 cf 17 |................|
00007610 cc 3a e7 67 25 3d 26 66 66 66 66 66 66 3a 77 31 |.:.g%=&ffffff:w1|
00007620 25 3d b9 0d 02 d0 09 e7 77 31 25 8c 0d 02 d1 0f |%=......w1%.....|
00007630 e7 42 25 28 5a 25 29 3d 6c 25 8c 0d 02 d2 14 c8 |.B%(Z%)=l%......|
00007640 99 26 34 30 30 65 36 2c 31 32 38 2b 57 33 25 0d |.&400e6,128+W3%.|
00007650 02 d3 15 cc 3a c8 99 26 34 30 30 65 36 2c 31 32 |....:..&400e6,12|
00007660 38 2b 31 31 0d 02 d4 05 cd 0d 02 d5 25 cd 3a 77 |8+11........%.:w|
00007670 31 25 3d a3 3a e7 67 25 2f 33 36 30 30 3c 6c 30 |1%=.:.g%/3600<l0|
00007680 25 84 67 25 2f 33 36 30 30 3e 6d 30 25 8c 0d 02 |%.g%/3600>m0%...|
00007690 d6 11 e7 43 3c 4b 30 25 80 43 3e 4c 30 25 8c 0d |...C<K0%.C>L0%..|
000076a0 02 d7 11 e7 67 25 3c 3e 26 66 66 66 66 66 66 8c |....g%<>&ffffff.|
000076b0 0d 02 d8 3f 42 3d b2 28 50 25 2f 32 2b 67 25 2f |...?B=.(P%/2+g%/|
000076c0 32 34 30 29 3a 43 3d b2 43 3a 5a 3d 4e 25 2a b5 |240):C=.C:Z=N%*.|
000076d0 43 3a 54 3d 4e 25 2a 9b 43 3a 55 30 3d 54 2a 9b |C:T=N%*.C:U0=T*.|
000076e0 42 3a e7 5a 2a 56 2b 55 30 2a 55 3e 76 25 8c 0d |B:.Z*V+U0*U>v%..|
000076f0 02 d9 99 ec a8 28 2d 54 2a b5 42 29 2c a8 28 5a |.....(-T*.B),.(Z|
00007700 2a 55 2d 56 2a 55 30 29 3a 5a 25 2b 3d 31 3a 67 |*U-V*U0):Z%+=1:g|
00007710 25 3d 43 25 28 5a 25 29 3a 43 3d 42 25 28 5a 25 |%=C%(Z%):C=B%(Z%|
00007720 29 2f 33 36 30 30 3a c8 95 67 25 3c 3e 26 66 66 |)/3600:..g%<>&ff|
00007730 66 66 66 66 3a 42 3d b2 28 50 25 2f 32 2b 67 25 |ffff:B=.(P%/2+g%|
00007740 2f 32 34 30 29 3a 43 3d b2 43 3a 5a 3d 4e 25 2a |/240):C=.C:Z=N%*|
00007750 b5 43 3a 54 3d 4e 25 2a 9b 43 3a 55 30 3d 54 2a |.C:T=N%*.C:U0=T*|
00007760 9b 42 3a e7 5a 2a 56 2b 55 30 2a 55 3e 76 25 3a |.B:.Z*V+U0*U>v%:|
00007770 f0 35 35 2c a8 28 2d 54 2a b5 42 29 2c a8 28 5a |.55,.(-T*.B),.(Z|
00007780 2a 55 2d 56 2a 55 30 29 0d 02 da 29 5a 25 2b 3d |*U-V*U0)...)Z%+=|
00007790 31 3a 67 25 3d 43 25 28 5a 25 29 3a 43 3d 42 25 |1:g%=C%(Z%):C=B%|
000077a0 28 5a 25 29 2f 33 36 30 30 3a ce 3a 5a 25 2d 3d |(Z%)/3600:.:Z%-=|
000077b0 31 0d 02 db 05 cd 0d 02 dc 05 cd 0d 02 dd 05 cd |1...............|
000077c0 0d 02 de 05 cd 0d 02 df 07 cd 3a e1 0d 02 e0 37 |..........:....7|
000077d0 dd f2 70 30 3a ea 76 32 25 3a 76 32 25 3d a3 3a |..p0:.v2%:v2%=.:|
000077e0 ef 32 33 2c 36 2c 31 33 36 7c 3a c8 99 26 34 30 |.23,6,136|:..&40|
000077f0 30 65 36 2c 31 32 38 2b 38 3a e7 6c 30 25 3e 6d |0e6,128+8:.l0%>m|
00007800 30 25 8c 0d 02 e1 49 e3 64 25 3d 30 b8 33 36 30 |0%....I.d%=0.360|
00007810 88 31 30 3a 42 3d b2 28 64 25 29 3a 43 3d 30 3a |.10:B=.(d%):C=0:|
00007820 f2 4e 28 42 2c 43 2c 4f 30 29 3a 42 3d 9d 28 42 |.N(B,C,O0):B=.(B|
00007830 29 3a 43 3d 9d 28 43 29 3a e7 42 2f 31 35 3c 6c |):C=.(C):.B/15<l|
00007840 30 25 80 42 2f 31 35 3e 6d 30 25 8c 0d 02 e2 11 |0%.B/15>m0%.....|
00007850 e7 43 3c 4b 30 25 80 43 3e 4c 30 25 8c 0d 02 e3 |.C<K0%.C>L0%....|
00007860 49 42 3d 50 25 2f 32 2b 42 3a 5a 3d 4e 25 2a b5 |IB=P%/2+B:Z=N%*.|
00007870 28 b2 28 43 29 29 3a 54 3d 4e 25 2a 9b 28 b2 28 |(.(C)):T=N%*.(.(|
00007880 43 29 29 3a 42 30 3d 9b 28 b2 28 42 29 29 3a 57 |C)):B0=.(.(B)):W|
00007890 30 25 3d 5a 2a 56 2b 54 2a 42 30 2a 55 3a e7 57 |0%=Z*V+T*B0*U:.W|
000078a0 30 25 3e 76 25 8c 0d 02 e4 3a 46 25 3d 2d 54 2a |0%>v%....:F%=-T*|
000078b0 b5 28 b2 28 42 29 29 3a 49 25 3d 5a 2a 55 2d 54 |.(.(B)):I%=Z*U-T|
000078c0 2a 56 2a 42 30 3a e7 76 32 25 f0 35 35 2c 46 25 |*V*B0:.v2%.55,F%|
000078d0 2c 49 25 8b ec 46 25 2c 49 25 3a 76 32 25 3d b9 |,I%..F%,I%:v2%=.|
000078e0 0d 02 e5 05 cd 0d 02 e6 05 cd 0d 02 e7 07 cd 3a |...............:|
000078f0 ed 0d 02 e8 4e cc 3a e3 64 25 3d 2d 31 38 30 b8 |....N.:.d%=-180.|
00007900 31 38 30 88 31 30 3a 42 3d b2 28 64 25 29 3a 43 |180.10:B=.(d%):C|
00007910 3d 30 3a f2 4e 28 42 2c 43 2c 4f 30 29 3a 42 3d |=0:.N(B,C,O0):B=|
00007920 9d 28 42 29 3a 43 3d 9d 28 43 29 3a e7 42 2f 31 |.(B):C=.(C):.B/1|
00007930 35 3c 6c 30 25 84 42 2f 31 35 3e 6d 30 25 8c 0d |5<l0%.B/15>m0%..|
00007940 02 e9 11 e7 43 3c 4b 30 25 80 43 3e 4c 30 25 8c |....C<K0%.C>L0%.|
00007950 0d 02 ea 49 42 3d 50 25 2f 32 2b 42 3a 5a 3d 4e |...IB=P%/2+B:Z=N|
00007960 25 2a b5 28 b2 28 43 29 29 3a 54 3d 4e 25 2a 9b |%*.(.(C)):T=N%*.|
00007970 28 b2 28 43 29 29 3a 42 30 3d 9b 28 b2 28 42 29 |(.(C)):B0=.(.(B)|
00007980 29 3a 57 30 25 3d 5a 2a 56 2b 54 2a 42 30 2a 55 |):W0%=Z*V+T*B0*U|
00007990 3a e7 57 30 25 3e 76 25 8c 0d 02 eb 3a 46 25 3d |:.W0%>v%....:F%=|
000079a0 2d 54 2a b5 28 b2 28 42 29 29 3a 49 25 3d 5a 2a |-T*.(.(B)):I%=Z*|
000079b0 55 2d 54 2a 56 2a 42 30 3a e7 76 32 25 f0 35 35 |U-T*V*B0:.v2%.55|
000079c0 2c 46 25 2c 49 25 8b ec 46 25 2c 49 25 3a 76 32 |,F%,I%..F%,I%:v2|
000079d0 25 3d b9 0d 02 ec 05 cd 0d 02 ed 05 cd 0d 02 ee |%=..............|
000079e0 07 cd 3a ed 0d 02 ef 07 cd 3a e1 0d 02 f0 46 dd |..:......:....F.|
000079f0 f2 59 31 28 46 25 2c 49 25 29 3a 49 25 2d 3d 53 |.Y1(F%,I%):I%-=S|
00007a00 25 2a 42 30 25 3a c8 99 26 32 30 30 32 65 2c 33 |%*B0%:..&2002e,3|
00007a10 30 38 2c 4c 25 2c 22 73 74 61 72 6d 61 70 22 2c |08,L%,"starmap",|
00007a20 46 25 2c 49 25 2c 30 2c 6a 30 25 2c 50 31 25 3a |F%,I%,0,j0%,P1%:|
00007a30 e1 0d 02 f1 10 dd f2 41 30 28 46 25 2c 49 25 29 |.......A0(F%,I%)|
00007a40 e1 0d 02 f2 38 dd f2 6d 28 46 25 2c 49 25 29 3a |....8..m(F%,I%):|
00007a50 54 25 3d ad 28 44 24 2b 22 2e 44 61 74 61 2e 43 |T%=.(D$+".Data.C|
00007a60 5f 6c 69 6e 65 73 22 29 3a cf 23 54 25 3d a2 23 |_lines"):.#T%=.#|
00007a70 54 25 3a c8 8e 55 31 25 ca 0d 02 f3 23 c9 6b 30 |T%:..U1%....#.k0|
00007a80 25 3a c8 99 36 2c 32 30 32 2c 30 2c 32 35 35 b8 |%:..6,202,0,255.|
00007a90 2c 6f 25 3a e7 28 6f 25 80 38 29 8c 0d 02 f4 45 |,o%:.(o%.8)....E|
00007aa0 43 25 28 72 25 29 3d 26 66 66 66 66 66 66 3a 42 |C%(r%)=&ffffff:B|
00007ab0 25 28 72 25 29 3d 26 66 66 66 66 66 66 3a 72 25 |%(r%)=&ffffff:r%|
00007ac0 2d 3d 31 3a 43 25 28 72 25 29 3d 26 66 66 66 66 |-=1:C%(r%)=&ffff|
00007ad0 66 66 3a 42 25 28 72 25 29 3d 26 66 66 66 66 66 |ff:B%(r%)=&fffff|
00007ae0 66 0d 02 f5 4e cc 3a f2 4a 28 46 25 2c 49 25 29 |f...N.:.J(F%,I%)|
00007af0 3a 43 25 28 72 25 29 3d 4a 25 28 55 25 29 3a 42 |:C%(r%)=J%(U%):B|
00007b00 25 28 72 25 29 3d 47 25 28 55 25 29 3a 72 25 2b |%(r%)=G%(U%):r%+|
00007b10 3d 31 3a d5 23 54 25 2c c3 28 4a 25 28 55 25 29 |=1:.#T%,.(J%(U%)|
00007b20 29 2b 22 3a 22 2b c3 28 47 25 28 55 25 29 29 0d |)+":"+.(G%(U%)).|
00007b30 02 f6 05 cd 0d 02 f7 5b c9 4e 31 25 3a d5 23 54 |.......[.N1%:.#T|
00007b40 25 2c 48 24 28 67 32 25 3f 4d 31 25 29 3a 43 25 |%,H$(g2%?M1%):C%|
00007b50 28 72 25 29 3d 26 66 66 66 66 66 66 3a 42 25 28 |(r%)=&ffffff:B%(|
00007b60 72 25 29 3d 26 66 66 66 66 66 66 3a 72 25 2b 3d |r%)=&ffffff:r%+=|
00007b70 31 3a 43 25 28 72 25 29 3d 26 66 66 66 66 66 66 |1:C%(r%)=&ffffff|
00007b80 3a 42 25 28 72 25 29 3d 26 66 66 66 66 66 66 0d |:B%(r%)=&ffffff.|
00007b90 02 f8 1a cb 3a c8 99 26 32 30 30 30 64 2c 30 2c |....:..&2000d,0,|
00007ba0 54 25 3a 54 25 3d 30 3a e1 0d 02 f9 1a dd f2 49 |T%:T%=0:.......I|
00007bb0 30 3a f2 51 28 54 30 25 2c b9 29 3a 47 30 25 3d |0:.Q(T0%,.):G0%=|
00007bc0 b9 3a e1 0d 02 fa 91 dd f2 55 3a ea 42 2c 43 3a |.:.......U:.B,C:|
00007bd0 c8 99 26 34 30 36 63 30 3a c8 99 34 36 2c 33 31 |..&406c0:..46,31|
00007be0 36 2c 4c 25 2c 22 65 71 75 61 74 6f 72 69 61 6c |6,L%,"equatorial|
00007bf0 22 2c 30 b8 7a 25 2c 6f 25 2c 44 30 25 2c 46 30 |",0.z%,o%,D0%,F0|
00007c00 25 3a 41 30 25 3d b9 3a c8 99 26 34 30 30 65 36 |%:A0%=.:..&400e6|
00007c10 2c 31 32 38 2b 38 3a c8 99 26 34 30 30 65 36 2c |,128+8:..&400e6,|
00007c20 37 3a c8 91 30 2c 30 3a c8 93 c8 90 30 2c 30 2c |7:..0,0:....0,0,|
00007c30 33 36 30 30 2c 36 30 30 3a c8 91 30 2c 33 30 30 |3600,600:..0,300|
00007c40 3a f2 4b 31 3a ef 32 33 2c 36 2c 38 35 7c 3a e7 |:.K1:.23,6,85|:.|
00007c50 42 33 25 8c 0d 02 fb fd ef 35 3a c8 99 26 34 30 |B3%......5:..&40|
00007c60 30 65 36 2c 38 3a ec 38 2c 2d 31 38 30 3a f1 22 |0e6,8:.8,-180:."|
00007c70 2d 32 30 22 3b 3a ec 30 2c 2d 32 30 30 3a f0 35 |-20";:.0,-200:.5|
00007c80 35 2c 33 36 30 30 2c 2d 32 30 30 3a ec 38 2c 2d |5,3600,-200:.8,-|
00007c90 38 30 3a f1 22 2d 31 30 22 3b 3a ec 30 2c 2d 31 |80:."-10";:.0,-1|
00007ca0 30 30 3a f0 35 35 2c 33 36 30 30 2c 2d 31 30 30 |00:.55,3600,-100|
00007cb0 3a ec 38 2c 32 30 3a f1 22 30 22 3b 3a ec 30 2c |:.8,20:."0";:.0,|
00007cc0 30 3a f0 35 35 2c 33 36 30 30 2c 30 3a ec 38 2c |0:.55,3600,0:.8,|
00007cd0 31 32 30 3a f1 22 31 30 22 3b 3a ec 30 2c 31 30 |120:."10";:.0,10|
00007ce0 30 3a f0 35 35 2c 33 36 30 30 2c 31 30 30 3a ec |0:.55,3600,100:.|
00007cf0 38 2c 32 32 30 3a f1 22 32 30 22 3b 3a ec 30 2c |8,220:."20";:.0,|
00007d00 32 30 30 3a f0 35 35 2c 33 36 30 30 2c 32 30 30 |200:.55,3600,200|
00007d10 3a e3 46 25 3d 31 35 30 b8 33 34 35 30 88 31 35 |:.F%=150.3450.15|
00007d20 30 3a ec 46 25 2b 38 2c 2d 32 38 30 3a f1 c3 28 |0:.F%+8,-280:..(|
00007d30 32 34 2d 28 46 25 2f 31 35 30 29 29 3b 3a ec 46 |24-(F%/150));:.F|
00007d40 25 2c 2d 33 30 30 3a f0 35 35 2c 46 25 2c 33 30 |%,-300:.55,F%,30|
00007d50 30 0d 02 fc 05 ed 0d 02 fd 0e cd 3a e7 74 32 25 |0..........:.t2%|
00007d60 3a f2 44 31 0d 02 fe 0c e7 71 32 25 3a f2 64 31 |:.D1.....q2%:.d1|
00007d70 0d 02 ff 31 4f 30 25 3d 30 3a e3 52 25 3d 30 b8 |...1O0%=0:.R%=0.|
00007d80 70 30 25 3a 57 30 25 3d 47 25 28 52 25 29 2f 33 |p0%:W0%=G%(R%)/3|
00007d90 36 30 3a e7 43 3c 33 30 30 80 43 3e 2d 33 30 30 |60:.C<300.C>-300|
00007da0 8c 0d 03 00 41 f2 76 30 28 33 36 30 30 2d 4a 25 |....A.v0(3600-J%|
00007db0 28 52 25 29 2f 32 34 2c 57 30 25 2c 49 31 25 21 |(R%)/24,W0%,I1%!|
00007dc0 28 34 2a 52 25 29 2b 31 30 30 29 3a e7 49 31 25 |(4*R%)+100):.I1%|
00007dd0 21 28 34 2a 52 25 29 3e 34 38 30 3a 52 25 3d 70 |!(4*R%)>480:R%=p|
00007de0 30 25 0d 03 01 1f cd 3a ed 3a e7 53 32 25 3a f2 |0%.....:.:.S2%:.|
00007df0 47 28 7a 31 2c 6a 31 2f 33 36 30 30 2c 39 2c b9 |G(z1,j1/3600,9,.|
00007e00 29 0d 03 02 1b e7 71 31 25 3a f2 47 28 72 31 2c |).....q1%:.G(r1,|
00007e10 4b 32 2f 33 36 30 30 2c 38 2c b9 29 0d 03 03 1b |K2/3600,8,.)....|
00007e20 e7 48 32 25 3a f2 47 28 76 31 2c 53 32 2f 33 36 |.H2%:.G(v1,S2/36|
00007e30 30 30 2c 37 2c b9 29 0d 03 04 1b e7 4f 32 25 3a |00,7,.).....O2%:|
00007e40 f2 47 28 41 32 2c 4c 32 2f 33 36 30 30 2c 36 2c |.G(A2,L2/3600,6,|
00007e50 b9 29 0d 03 05 1b e7 43 32 25 3a f2 47 28 4a 32 |.).....C2%:.G(J2|
00007e60 2c 48 32 2f 33 36 30 30 2c 35 2c b9 29 0d 03 06 |,H2/3600,5,.)...|
00007e70 1b e7 42 32 25 3a f2 47 28 46 32 2c 49 32 2f 33 |..B2%:.G(F2,I2/3|
00007e80 36 30 30 2c 34 2c b9 29 0d 03 07 15 e3 64 25 3d |600,4,.).....d%=|
00007e90 30 b8 32 3a c8 8e 58 25 28 64 25 29 ca 0d 03 08 |0.2:..X%(d%)....|
00007ea0 1e c9 30 3a e7 6e 32 25 3a f2 47 28 4d 30 2c 6d |..0:.n2%:.G(M0,m|
00007eb0 30 2f 33 36 30 30 2c 30 2c b9 29 0d 03 09 1e c9 |0/3600,0,.).....|
00007ec0 31 3a e7 51 32 25 3a f2 47 28 43 32 2c 6d 31 2f |1:.Q2%:.G(C2,m1/|
00007ed0 33 36 30 30 2c 31 2c b9 29 0d 03 0a 1e c9 32 3a |3600,1,.).....2:|
00007ee0 e7 70 31 25 3a f2 47 28 50 32 2c 4d 32 2f 33 36 |.p1%:.G(P2,M2/36|
00007ef0 30 30 2c 32 2c b9 29 0d 03 0b 20 cb 3a ed 3a e7 |00,2,.)... .:.:.|
00007f00 63 32 25 3a f2 47 28 49 30 2c 4c 30 2f 33 36 30 |c2%:.G(I0,L0/360|
00007f10 30 2c 31 30 2c b9 29 0d 03 0c 1a e7 49 32 25 f2 |0,10,.).....I2%.|
00007f20 47 28 6d 2c 69 30 2f 33 36 30 30 2c 31 31 2c b9 |G(m,i0/3600,11,.|
00007f30 29 0d 03 0d 43 41 30 25 3d a3 3a c8 99 34 36 2c |)...CA0%=.:..46,|
00007f40 7a 25 2c 6f 25 2c 44 30 25 2c 46 30 25 3a c8 99 |z%,o%,D0%,F0%:..|
00007f50 26 34 30 36 63 31 3a c8 99 26 34 30 30 64 31 2c |&406c1:..&400d1,|
00007f60 54 30 25 2c 30 2c 2d 31 32 30 30 2c 37 32 30 30 |T0%,0,-1200,7200|
00007f70 2c 30 3a e1 0d 03 0e 25 dd f2 56 31 28 46 25 2c |,0:....%..V1(F%,|
00007f80 49 25 29 3a e7 79 25 3a 49 25 2d 3d 31 32 30 30 |I%):.y%:I%-=1200|
00007f90 3a 8b 49 25 2d 3d 36 30 30 0d 03 0f 32 c8 99 26 |:.I%-=600...2..&|
00007fa0 32 30 30 32 65 2c 33 30 38 2c 4c 25 2c 22 65 71 |2002e,308,L%,"eq|
00007fb0 75 61 74 6f 72 69 61 6c 22 2c 46 25 2c 49 25 2c |uatorial",F%,I%,|
00007fc0 30 2c 68 30 25 2c 50 31 25 3a e1 0d 03 10 38 dd |0,h0%,P1%:....8.|
00007fd0 f2 44 31 3a ea 5a 25 2c 77 31 25 2c 57 33 25 3a |.D1:.Z%,w1%,W3%:|
00007fe0 c8 99 26 34 30 30 65 36 2c 31 32 38 2b 31 31 3a |..&400e6,128+11:|
00007ff0 e3 5a 25 3d 31 b8 72 25 2d 34 36 3a f2 60 31 3a |.Z%=1.r%-46:.`1:|
00008000 ed 3a e1 0d 03 11 40 dd f2 60 31 3a 67 25 3d 43 |.:....@..`1:g%=C|
00008010 25 28 5a 25 29 3a 43 3d 42 25 28 5a 25 29 2f 33 |%(Z%):C=B%(Z%)/3|
00008020 36 30 30 3a 4a 31 3d 33 36 30 2d 67 25 2f 32 34 |600:J1=360-g%/24|
00008030 30 3a 67 31 3d 43 3a e7 43 3c 34 35 80 43 3e 2d |0:g1=C:.C<45.C>-|
00008040 34 35 8c 0d 03 12 11 e7 67 25 3c 3e 26 66 66 66 |45......g%<>&fff|
00008050 66 66 66 8c 0d 03 13 6f 42 3d 33 36 30 2d 67 25 |fff....oB=360-g%|
00008060 2f 32 34 30 3a ec a8 28 42 2a 31 30 29 2c a8 28 |/240:..(B*10),.(|
00008070 43 2a 31 30 29 3a 4a 31 3d 42 3a 67 31 3d 43 3a |C*10):J1=B:g1=C:|
00008080 5a 25 2b 3d 31 3a 67 25 3d 43 25 28 5a 25 29 3a |Z%+=1:g%=C%(Z%):|
00008090 43 3d 42 25 28 5a 25 29 2f 33 36 30 30 3a c8 95 |C=B%(Z%)/3600:..|
000080a0 67 25 3c 3e 26 66 66 66 66 66 66 3a 42 3d 33 36 |g%<>&ffffff:B=36|
000080b0 30 2d 67 25 2f 32 34 30 3a e7 42 2d 4a 31 3e 31 |0-g%/240:.B-J1>1|
000080c0 38 30 8c 0d 03 14 5d ec a8 28 4a 31 2a 31 30 29 |80....]..(J1*10)|
000080d0 2c a8 28 67 31 2a 31 30 29 3a f0 35 35 2c a8 28 |,.(g1*10):.55,.(|
000080e0 28 42 2d 33 36 30 29 2a 31 30 29 2c a8 28 43 2a |(B-360)*10),.(C*|
000080f0 31 30 29 3a ec a8 28 28 4a 31 2b 33 36 30 29 2a |10):..((J1+360)*|
00008100 31 30 29 2c a8 28 67 31 2a 31 30 29 3a f0 35 35 |10),.(g1*10):.55|
00008110 2c a8 28 42 2a 31 30 29 2c a8 28 43 2a 31 30 29 |,.(B*10),.(C*10)|
00008120 0d 03 15 11 cc 3a e7 42 2d 4a 31 3c 2d 31 38 30 |.....:.B-J1<-180|
00008130 8c 0d 03 16 5d ec a8 28 4a 31 2a 31 30 29 2c a8 |....]..(J1*10),.|
00008140 28 67 31 2a 31 30 29 3a f0 35 35 2c a8 28 28 42 |(g1*10):.55,.((B|
00008150 2b 33 36 30 29 2a 31 30 29 2c a8 28 43 2a 31 30 |+360)*10),.(C*10|
00008160 29 3a ec a8 28 28 4a 31 2d 33 36 30 29 2a 31 30 |):..((J1-360)*10|
00008170 29 2c a8 28 67 31 2a 31 30 29 3a f0 35 35 2c a8 |),.(g1*10):.55,.|
00008180 28 42 2a 31 30 29 2c a8 28 43 2a 31 30 29 0d 03 |(B*10),.(C*10)..|
00008190 17 19 cc 3a f0 35 35 2c a8 28 42 2a 31 30 29 2c |...:.55,.(B*10),|
000081a0 a8 28 43 2a 31 30 29 0d 03 18 05 cd 0d 03 19 35 |.(C*10)........5|
000081b0 cd 3a 4a 31 3d 42 3a 67 31 3d 43 3a 5a 25 2b 3d |.:J1=B:g1=C:Z%+=|
000081c0 31 3a 67 25 3d 43 25 28 5a 25 29 3a 43 3d 42 25 |1:g%=C%(Z%):C=B%|
000081d0 28 5a 25 29 2f 33 36 30 30 3a ce 3a 5a 25 2d 3d |(Z%)/3600:.:Z%-=|
000081e0 31 0d 03 1a 05 cd 0d 03 1b 07 cd 3a e1 0d 03 1c |1..........:....|
000081f0 36 dd f2 76 30 28 46 25 2c 49 25 2c 62 25 29 3a |6..v0(F%,I%,b%):|
00008200 e7 62 25 3e 35 39 39 c8 99 34 36 2c 32 39 30 2c |.b%>599..46,290,|
00008210 4c 25 2c 22 6d 61 67 36 22 2c 46 25 2c 49 25 2c |L%,"mag6",F%,I%,|
00008220 32 3a e1 0d 03 1d 2b e7 62 25 3e 34 39 39 c8 99 |2:....+.b%>499..|
00008230 34 36 2c 32 39 30 2c 4c 25 2c 22 6d 61 67 35 22 |46,290,L%,"mag5"|
00008240 2c 46 25 2d 32 2c 49 25 2d 32 2c 32 3a e1 0d 03 |,F%-2,I%-2,2:...|
00008250 1e 2b e7 62 25 3e 33 39 39 c8 99 34 36 2c 32 39 |.+.b%>399..46,29|
00008260 30 2c 4c 25 2c 22 6d 61 67 34 22 2c 46 25 2d 32 |0,L%,"mag4",F%-2|
00008270 2c 49 25 2d 32 2c 32 3a e1 0d 03 1f 2b e7 62 25 |,I%-2,2:....+.b%|
00008280 3e 32 39 39 c8 99 34 36 2c 32 39 30 2c 4c 25 2c |>299..46,290,L%,|
00008290 22 6d 61 67 33 22 2c 46 25 2d 32 2c 49 25 2d 32 |"mag3",F%-2,I%-2|
000082a0 2c 32 3a e1 0d 03 20 2b e7 62 25 3e 31 39 39 c8 |,2:... +.b%>199.|
000082b0 99 34 36 2c 32 39 30 2c 4c 25 2c 22 6d 61 67 32 |.46,290,L%,"mag2|
000082c0 22 2c 46 25 2d 34 2c 49 25 2d 34 2c 32 3a e1 0d |",F%-4,I%-4,2:..|
000082d0 03 21 2a e7 62 25 3e 39 39 c8 99 34 36 2c 32 39 |.!*.b%>99..46,29|
000082e0 30 2c 4c 25 2c 22 6d 61 67 31 22 2c 46 25 2d 34 |0,L%,"mag1",F%-4|
000082f0 2c 49 25 2d 34 2c 32 3a e1 0d 03 22 2a e7 62 25 |,I%-4,2:..."*.b%|
00008300 3e 2d 31 c8 99 34 36 2c 32 39 30 2c 4c 25 2c 22 |>-1..46,290,L%,"|
00008310 6d 61 67 30 22 2c 46 25 2d 36 2c 49 25 2d 36 2c |mag0",F%-6,I%-6,|
00008320 32 3a e1 0d 03 23 2a e7 62 25 3c 30 c8 99 34 36 |2:...#*.b%<0..46|
00008330 2c 32 39 30 2c 4c 25 2c 22 6d 61 67 2d 31 22 2c |,290,L%,"mag-1",|
00008340 46 25 2d 36 2c 49 25 2d 36 2c 32 3a e1 0d 03 24 |F%-6,I%-6,2:...$|
00008350 05 e1 0d 03 25 77 dd f2 4b 31 3a ec 33 36 30 30 |....%w..K1:.3600|
00008360 2c 30 3a ef 32 33 2c 36 2c 31 33 36 7c 3a c8 99 |,0:.23,6,136|:..|
00008370 26 34 30 30 65 36 2c 31 32 38 2b 38 3a e3 64 25 |&400e6,128+8:.d%|
00008380 3d 30 b8 33 36 30 88 31 30 3a 42 3d b2 28 64 25 |=0.360.10:B=.(d%|
00008390 29 3a 43 3d 30 3a f2 4e 28 42 2c 43 2c 4f 30 29 |):C=0:.N(B,C,O0)|
000083a0 3a 46 25 3d 33 36 30 30 2d 9d 28 42 29 2a 31 30 |:F%=3600-.(B)*10|
000083b0 3a 49 25 3d 9d 28 43 29 2a 31 30 3a f0 35 35 2c |:I%=.(C)*10:.55,|
000083c0 46 25 2c 49 25 3a ed 3a e1 0d 03 26 36 dd f2 47 |F%,I%:.:...&6..G|
000083d0 28 42 2c 43 2c 51 25 2c 75 30 25 29 3a 46 25 3d |(B,C,Q%,u0%):F%=|
000083e0 33 36 30 30 2d 42 2f 32 34 3a 49 25 3d 43 2a 31 |3600-B/24:I%=C*1|
000083f0 30 3a ef 35 3a e6 30 2c 30 3a c8 8e 51 25 ca 0d |0:.5:.0,0:..Q%..|
00008400 03 27 3f c9 30 3a c8 99 34 36 2c 32 39 30 2c 4c |.'?.0:..46,290,L|
00008410 25 2c 22 73 75 6e 22 2c 46 25 2d 31 34 2c 49 25 |%,"sun",F%-14,I%|
00008420 2d 31 34 2c 38 3a e7 75 30 25 3a ec 46 25 2b 31 |-14,8:.u0%:.F%+1|
00008430 34 2c 49 25 2b 32 38 3a f1 22 53 75 6e 22 0d 03 |4,I%+28:."Sun"..|
00008440 28 46 c9 31 3a c8 99 34 36 2c 32 39 30 2c 4c 25 |(F.1:..46,290,L%|
00008450 2c 22 73 6d 6d 65 72 63 75 72 79 22 2c 46 25 2d |,"smmercury",F%-|
00008460 36 2c 49 25 2d 36 2c 38 3a e7 75 30 25 3a ec 46 |6,I%-6,8:.u0%:.F|
00008470 25 2b 34 2c 49 25 2b 31 38 3a f1 22 4d 65 72 63 |%+4,I%+18:."Merc|
00008480 75 72 79 22 0d 03 29 42 c9 32 3a c8 99 34 36 2c |ury"..)B.2:..46,|
00008490 32 39 30 2c 4c 25 2c 22 73 6d 76 65 6e 75 73 22 |290,L%,"smvenus"|
000084a0 2c 46 25 2d 36 2c 49 25 2d 36 2c 38 3a e7 75 30 |,F%-6,I%-6,8:.u0|
000084b0 25 3a ec 46 25 2b 34 2c 49 25 2b 31 38 3a f1 22 |%:.F%+4,I%+18:."|
000084c0 56 65 6e 75 73 22 0d 03 2a 40 c9 34 3a c8 99 34 |Venus"..*@.4:..4|
000084d0 36 2c 32 39 30 2c 4c 25 2c 22 73 6d 6d 61 72 73 |6,290,L%,"smmars|
000084e0 22 2c 46 25 2d 36 2c 49 25 2d 36 2c 38 3a e7 75 |",F%-6,I%-6,8:.u|
000084f0 30 25 3a ec 46 25 2b 34 2c 49 25 2b 31 38 3a f1 |0%:.F%+4,I%+18:.|
00008500 22 4d 61 72 73 22 0d 03 2b 46 c9 35 3a c8 99 34 |"Mars"..+F.5:..4|
00008510 36 2c 32 39 30 2c 4c 25 2c 22 73 6d 6a 75 70 69 |6,290,L%,"smjupi|
00008520 74 65 72 22 2c 46 25 2d 36 2c 49 25 2d 36 2c 38 |ter",F%-6,I%-6,8|
00008530 3a e7 75 30 25 3a ec 46 25 2b 34 2c 49 25 2b 31 |:.u0%:.F%+4,I%+1|
00008540 38 3a f1 22 4a 75 70 69 74 65 72 22 0d 03 2c 45 |8:."Jupiter"..,E|
00008550 c9 36 3a c8 99 34 36 2c 32 39 30 2c 4c 25 2c 22 |.6:..46,290,L%,"|
00008560 73 6d 73 61 74 75 72 6e 22 2c 46 25 2d 31 32 2c |smsaturn",F%-12,|
00008570 49 25 2d 36 2c 38 3a e7 75 30 25 3a ec 46 25 2b |I%-6,8:.u0%:.F%+|
00008580 34 2c 49 25 2b 31 38 3a f1 22 53 61 74 75 72 6e |4,I%+18:."Saturn|
00008590 22 0d 03 2d 44 c9 37 3a c8 99 34 36 2c 32 39 30 |"..-D.7:..46,290|
000085a0 2c 4c 25 2c 22 73 6d 75 72 61 6e 75 73 22 2c 46 |,L%,"smuranus",F|
000085b0 25 2d 36 2c 49 25 2d 36 2c 38 3a e7 75 30 25 3a |%-6,I%-6,8:.u0%:|
000085c0 ec 46 25 2b 34 2c 49 25 2b 31 38 3a f1 22 55 72 |.F%+4,I%+18:."Ur|
000085d0 61 6e 75 73 22 0d 03 2e 46 c9 38 3a c8 99 34 36 |anus"...F.8:..46|
000085e0 2c 32 39 30 2c 4c 25 2c 22 73 6d 6e 65 70 74 75 |,290,L%,"smneptu|
000085f0 6e 65 22 2c 46 25 2d 36 2c 49 25 2d 36 2c 38 3a |ne",F%-6,I%-6,8:|
00008600 e7 75 30 25 3a ec 46 25 2b 34 2c 49 25 2b 31 38 |.u0%:.F%+4,I%+18|
00008610 3a f1 22 4e 65 70 74 75 6e 65 22 0d 03 2f 42 c9 |:."Neptune"../B.|
00008620 39 3a c8 99 34 36 2c 32 39 30 2c 4c 25 2c 22 73 |9:..46,290,L%,"s|
00008630 6d 70 6c 75 74 6f 22 2c 46 25 2d 34 2c 49 25 2d |mpluto",F%-4,I%-|
00008640 34 2c 38 3a e7 75 30 25 3a ec 46 25 2b 34 2c 49 |4,8:.u0%:.F%+4,I|
00008650 25 2b 31 36 3a f1 22 50 6c 75 74 6f 22 0d 03 30 |%+16:."Pluto"..0|
00008660 42 c9 31 30 3a c8 99 34 36 2c 32 39 30 2c 4c 25 |B.10:..46,290,L%|
00008670 2c 22 6d 6f 6f 6e 22 2c 46 25 2d 31 34 2c 49 25 |,"moon",F%-14,I%|
00008680 2d 31 34 2c 38 3a e7 75 30 25 3a ec 46 25 2b 31 |-14,8:.u0%:.F%+1|
00008690 34 2c 49 25 2b 32 38 3a f1 22 4d 6f 6f 6e 22 0d |4,I%+28:."Moon".|
000086a0 03 31 3f c9 31 31 3a c8 99 26 34 30 30 65 36 2c |.1?.11:..&400e6,|
000086b0 31 34 32 3a ec 46 25 2c 49 25 3a f0 31 34 37 2c |142:.F%,I%:.147,|
000086c0 31 30 2c 30 3a e7 75 30 25 3a ec 46 25 2b 38 2c |10,0:.u0%:.F%+8,|
000086d0 49 25 2d 31 30 3a f1 22 55 6d 62 72 61 22 0d 03 |I%-10:."Umbra"..|
000086e0 32 07 cb 3a e1 0d 03 33 66 dd f2 6b 3a ea 56 33 |2..:...3f..k:.V3|
000086f0 25 3a c8 94 56 33 25 2c 73 25 3a c8 99 34 36 2c |%:..V3%,s%:..46,|
00008700 33 31 36 2c 4c 25 2c 22 65 71 75 61 74 6f 72 69 |316,L%,"equatori|
00008710 61 6c 22 2c 30 b8 7a 25 2c 6f 25 2c 44 30 25 2c |al",0.z%,o%,D0%,|
00008720 46 30 25 3a 41 30 25 3d b9 3a c8 91 30 2c 33 30 |F0%:A0%=.:..0,30|
00008730 30 3a e7 53 32 25 f2 47 28 7a 31 2c 6a 31 2f 33 |0:.S2%.G(z1,j1/3|
00008740 36 30 30 2c 39 2c a3 29 3a f2 4c 0d 03 34 1d e7 |600,9,.):.L..4..|
00008750 71 31 25 f2 47 28 72 31 2c 4b 32 2f 33 36 30 30 |q1%.G(r1,K2/3600|
00008760 2c 38 2c a3 29 3a f2 4c 0d 03 35 1d e7 48 32 25 |,8,.):.L..5..H2%|
00008770 f2 47 28 76 31 2c 53 32 2f 33 36 30 30 2c 37 2c |.G(v1,S2/3600,7,|
00008780 a3 29 3a f2 4c 0d 03 36 1d e7 4f 32 25 f2 47 28 |.):.L..6..O2%.G(|
00008790 41 32 2c 4c 32 2f 33 36 30 30 2c 36 2c a3 29 3a |A2,L2/3600,6,.):|
000087a0 f2 4c 0d 03 37 1d e7 43 32 25 f2 47 28 4a 32 2c |.L..7..C2%.G(J2,|
000087b0 48 32 2f 33 36 30 30 2c 35 2c a3 29 3a f2 4c 0d |H2/3600,5,.):.L.|
000087c0 03 38 1d e7 42 32 25 f2 47 28 46 32 2c 49 32 2f |.8..B2%.G(F2,I2/|
000087d0 33 36 30 30 2c 34 2c a3 29 3a f2 4c 0d 03 39 15 |3600,4,.):.L..9.|
000087e0 e3 64 25 3d 30 b8 32 3a c8 8e 58 25 28 64 25 29 |.d%=0.2:..X%(d%)|
000087f0 ca 0d 03 3a 21 c9 30 3a e7 6e 32 25 f2 47 28 4d |...:!.0:.n2%.G(M|
00008800 30 2c 6d 30 2f 33 36 30 30 2c 30 2c a3 29 3a f2 |0,m0/3600,0,.):.|
00008810 48 30 0d 03 3b 20 c9 31 3a e7 51 32 25 f2 47 28 |H0..; .1:.Q2%.G(|
00008820 43 32 2c 6d 31 2f 33 36 30 30 2c 31 2c a3 29 3a |C2,m1/3600,1,.):|
00008830 f2 4c 0d 03 3c 20 c9 32 3a e7 70 31 25 f2 47 28 |.L..< .2:.p1%.G(|
00008840 50 32 2c 4d 32 2f 33 36 30 30 2c 32 2c a3 29 3a |P2,M2/3600,2,.):|
00008850 f2 4c 0d 03 3d 23 cb 3a ed 3a e7 63 32 25 f2 47 |.L..=#.:.:.c2%.G|
00008860 28 49 30 2c 4c 30 2f 33 36 30 30 2c 31 30 2c a3 |(I0,L0/3600,10,.|
00008870 29 3a f2 48 30 0d 03 3e 1d e7 49 32 25 f2 47 28 |):.H0..>..I2%.G(|
00008880 6d 2c 69 30 2f 33 36 30 30 2c 31 31 2c a3 29 3a |m,i0/3600,11,.):|
00008890 f2 4c 0d 03 3f 27 41 30 25 3d a3 3a c8 99 34 36 |.L..?'A0%=.:..46|
000088a0 2c 7a 25 2c 6f 25 2c 44 30 25 2c 46 30 25 3a c8 |,z%,o%,D0%,F0%:.|
000088b0 94 56 33 25 2c 73 25 3a e1 0d 03 40 0c dd f2 4c |.V3%,s%:...@...L|
000088c0 3a e7 79 25 8c 0d 03 41 32 c8 99 26 34 30 30 64 |:.y%...A2..&400d|
000088d0 31 2c 54 30 25 2c 32 2a 46 25 2d 32 34 2c 32 2a |1,T0%,2*F%-24,2*|
000088e0 49 25 2d 36 32 30 2c 32 2a 46 25 2b 32 38 2c 32 |I%-620,2*F%+28,2|
000088f0 2a 49 25 2d 35 37 36 0d 03 42 2c cc 3a c8 99 26 |*I%-576..B,.:..&|
00008900 34 30 30 64 31 2c 54 30 25 2c 46 25 2d 31 32 2c |400d1,T0%,F%-12,|
00008910 49 25 2d 33 31 30 2c 46 25 2b 31 34 2c 49 25 2d |I%-310,F%+14,I%-|
00008920 32 38 38 0d 03 43 07 cd 3a e1 0d 03 44 0d dd f2 |288..C..:...D...|
00008930 48 30 3a e7 79 25 8c 0d 03 45 32 c8 99 26 34 30 |H0:.y%...E2..&40|
00008940 30 64 31 2c 54 30 25 2c 32 2a 46 25 2d 33 32 2c |0d1,T0%,2*F%-32,|
00008950 32 2a 49 25 2d 36 32 38 2c 32 2a 46 25 2b 33 32 |2*I%-628,2*F%+32|
00008960 2c 32 2a 49 25 2d 35 37 30 0d 03 46 2c cc 3a c8 |,2*I%-570..F,.:.|
00008970 99 26 34 30 30 64 31 2c 54 30 25 2c 46 25 2d 31 |.&400d1,T0%,F%-1|
00008980 36 2c 49 25 2d 33 31 34 2c 46 25 2b 31 36 2c 49 |6,I%-314,F%+16,I|
00008990 25 2d 32 38 34 0d 03 47 07 cd 3a e1 0d 03 48 3b |%-284..G..:...H;|
000089a0 dd f2 64 31 3a ef 35 3a c8 99 26 34 30 30 65 36 |..d1:.5:..&400e6|
000089b0 2c 31 31 3a e3 66 30 25 3d 31 b8 38 38 3a 49 25 |,11:.f0%=1.88:I%|
000089c0 3d 31 30 2a 55 25 28 66 30 25 2d 31 29 3a e7 94 |=10*U%(f0%-1):..|
000089d0 49 25 3c 33 35 30 8c 0d 03 49 38 46 25 3d 31 30 |I%<350...I8F%=10|
000089e0 2a 53 25 28 66 30 25 2d 31 29 3a ec 46 25 2c 49 |*S%(f0%-1):.F%,I|
000089f0 25 2b 31 36 3a f1 c0 48 24 28 66 30 25 29 2c a7 |%+16:..H$(f0%),.|
00008a00 48 24 28 66 30 25 29 2c 22 28 22 29 2d 31 29 0d |H$(f0%),"(")-1).|
00008a10 03 4a 09 cd 3a ed 3a e1 0d 03 4b 11 dd f2 6a 30 |.J..:.:...K...j0|
00008a20 28 79 25 29 3a e7 79 25 8c 0d 03 4c 46 c8 99 26 |(y%):.y%...LF..&|
00008a30 34 30 30 65 64 2c 32 35 36 2c 4c 25 2c 22 6d 61 |400ed,256,L%,"ma|
00008a40 67 30 22 2c 2c 2c 2c 68 30 25 2c 50 31 25 3a 68 |g0",,,,h0%,P1%:h|
00008a50 30 25 21 30 3d 68 30 25 21 30 2a 32 3a 68 30 25 |0%!0=h0%!0*2:h0%|
00008a60 21 34 3d 68 30 25 21 34 2a 32 3a 79 25 3d 32 0d |!4=h0%!4*2:y%=2.|
00008a70 03 4d 2c cc 3a c8 99 26 34 30 30 65 64 2c 32 35 |.M,.:..&400ed,25|
00008a80 36 2c 4c 25 2c 22 6d 61 67 30 22 2c 2c 2c 2c 68 |6,L%,"mag0",,,,h|
00008a90 30 25 2c 50 31 25 3a 79 25 3d 31 0d 03 4e 51 cd |0%,P1%:y%=1..NQ.|
00008aa0 3a 21 4a 25 3d 54 30 25 3a c8 99 26 34 30 30 63 |:!J%=T0%:..&400c|
00008ab0 62 2c 2c 4a 25 3a 4a 25 21 32 30 3d 30 3a 4a 25 |b,,J%:J%!20=0:J%|
00008ac0 21 32 34 3d 30 3a e7 4a 25 21 31 32 2d 4a 25 21 |!24=0:.J%!12-J%!|
00008ad0 34 3e 33 36 30 30 2a 79 25 3a 4a 25 21 31 32 3d |4>3600*y%:J%!12=|
00008ae0 4a 25 21 34 2b 31 38 30 30 2a 79 25 0d 03 4f 45 |J%!4+1800*y%..OE|
00008af0 4a 25 21 38 3d 4a 25 21 31 36 2d 36 30 30 2a 79 |J%!8=J%!16-600*y|
00008b00 25 3a c8 99 26 34 30 30 63 35 2c 2c 4a 25 3a f2 |%:..&400c5,,J%:.|
00008b10 72 28 54 30 25 2c 33 36 30 30 2a 79 25 2c 2d 36 |r(T0%,3600*y%,-6|
00008b20 30 30 2a 79 25 2c 30 2c 30 29 3a e7 79 25 3d 32 |00*y%,0,0):.y%=2|
00008b30 8c 0d 03 50 37 21 4a 25 3d 54 30 25 3a c8 99 26 |...P7!J%=T0%:..&|
00008b40 34 30 30 63 62 2c 2c 4a 25 3a 4a 25 21 38 3d 4a |400cb,,J%:J%!8=J|
00008b50 25 21 31 36 2d 36 30 30 2a 79 25 3a c8 99 26 34 |%!16-600*y%:..&4|
00008b60 30 30 63 35 2c 2c 4a 25 0d 03 51 28 cd 3a c8 99 |00c5,,J%..Q(.:..|
00008b70 26 34 30 30 64 31 2c 54 30 25 2c 30 2c 2d 36 30 |&400d1,T0%,0,-60|
00008b80 30 2a 79 25 2c 33 36 30 30 2a 79 25 2c 30 3a e1 |0*y%,3600*y%,0:.|
00008b90 0d 03 52 26 dd a4 68 3a 41 24 3d a4 43 28 58 30 |..R&..h:A$=.C(X0|
00008ba0 25 2c 32 29 3a e7 a7 41 24 2c 22 3a 22 29 80 41 |%,2):..A$,":").A|
00008bb0 24 3c 3e 22 22 8c 0d 03 53 7c 71 3d bb 28 c0 41 |$<>""...S|q=.(.A|
00008bc0 24 2c a7 41 24 2c 22 3a 22 29 2d 31 29 29 3a 41 |$,.A$,":")-1)):A|
00008bd0 24 3d c1 41 24 2c a7 41 24 2c 22 3a 22 29 2b 31 |$=.A$,.A$,":")+1|
00008be0 29 3a 71 2b 3d b4 28 71 29 2a bb 28 c0 41 24 2c |):q+=.(q)*.(.A$,|
00008bf0 a7 41 24 2c 22 3a 22 29 2d 31 29 29 2f 36 30 3a |.A$,":")-1))/60:|
00008c00 41 24 3d c1 41 24 2c a7 41 24 2c 22 3a 22 29 2b |A$=.A$,.A$,":")+|
00008c10 31 29 3a 71 2b 3d b4 28 71 29 2a bb 28 c0 41 24 |1):q+=.(q)*.(.A$|
00008c20 2c a7 41 24 2c 22 3a 22 29 2d 31 29 29 2f 33 36 |,.A$,":")-1))/36|
00008c30 30 30 0d 03 54 0b cc 3a 71 3d bb 41 24 0d 03 55 |00..T..:q=.A$..U|
00008c40 12 cd 3a e7 71 3c 2d 39 30 3a 71 3d 2d 39 30 0d |..:.q<-90:q=-90.|
00008c50 03 56 0e e7 71 3e 39 30 3a 71 3d 39 30 0d 03 57 |.V..q>90:q=90..W|
00008c60 06 3d 71 0d 03 58 26 dd a4 6d 3a 41 24 3d a4 43 |.=q..X&..m:A$=.C|
00008c70 28 58 30 25 2c 36 29 3a e7 a7 41 24 2c 22 3a 22 |(X0%,6):..A$,":"|
00008c80 29 80 41 24 3c 3e 22 22 8c 0d 03 59 81 44 30 3d |).A$<>""...Y.D0=|
00008c90 bb 28 c0 41 24 2c a7 41 24 2c 22 3a 22 29 2d 31 |.(.A$,.A$,":")-1|
00008ca0 29 29 3a 41 24 3d c1 41 24 2c a7 41 24 2c 22 3a |)):A$=.A$,.A$,":|
00008cb0 22 29 2b 31 29 3a 44 30 2b 3d b4 28 44 30 29 2a |")+1):D0+=.(D0)*|
00008cc0 bb 28 c0 41 24 2c a7 41 24 2c 22 3a 22 29 2d 31 |.(.A$,.A$,":")-1|
00008cd0 29 29 2f 36 30 3a 41 24 3d c1 41 24 2c a7 41 24 |))/60:A$=.A$,.A$|
00008ce0 2c 22 3a 22 29 2b 31 29 3a 44 30 2b 3d b4 28 44 |,":")+1):D0+=.(D|
00008cf0 30 29 2a bb 28 c0 41 24 2c a7 41 24 2c 22 3a 22 |0)*.(.A$,.A$,":"|
00008d00 29 2d 31 29 29 2f 33 36 30 30 0d 03 5a 0c cc 3a |)-1))/3600..Z..:|
00008d10 44 30 3d bb 41 24 0d 03 5b 16 cd 3a e7 44 30 3c |D0=.A$..[..:.D0<|
00008d20 2d 31 38 30 3a 44 30 3d 2d 31 38 30 0d 03 5c 12 |-180:D0=-180..\.|
00008d30 e7 44 30 3e 31 38 30 3a 44 30 3d 31 38 30 0d 03 |.D0>180:D0=180..|
00008d40 5d 07 3d 44 30 0d 03 5e 16 dd a4 73 3a 3d bb 28 |].=D0..^...s:=.(|
00008d50 a4 43 28 58 30 25 2c 31 30 29 29 0d 03 5f 0e dd |.C(X0%,10)).._..|
00008d60 f2 57 3a e7 78 32 25 3a e1 0d 03 60 2b 76 31 25 |.W:.x2%:...`+v1%|
00008d70 3d a3 3a f2 42 28 4b 25 2c 33 37 2c 76 31 25 29 |=.:.B(K%,37,v1%)|
00008d80 3a f2 48 28 4b 25 2c 33 37 2c b9 29 3a 78 32 25 |:.H(K%,37,.):x2%|
00008d90 3d b9 3a e1 0d 03 61 61 dd a4 5a 28 66 29 3a ea |=.:...aa..Z(f):.|
00008da0 4a 33 2c 41 3a 41 3d 28 66 2f 33 36 35 32 35 29 |J3,A:A=(f/36525)|
00008db0 2d 31 3a 4a 33 3d 28 28 34 36 2e 38 31 35 2b 28 |-1:J3=((46.815+(|
00008dc0 30 2e 30 30 30 36 2d 30 2e 30 30 31 38 31 2a 41 |0.0006-0.00181*A|
00008dd0 29 2a 41 29 2a 41 29 2f 33 36 30 30 3a 3d b2 28 |)*A)*A)/3600:=.(|
00008de0 32 33 2e 34 33 39 32 39 31 36 37 2d 4a 33 2b a4 |23.43929167-J3+.|
00008df0 50 28 66 29 29 0d 03 62 5b dd a4 6b 28 66 29 3a |P(f))..b[..k(f):|
00008e00 ea 4a 33 2c 41 3a 41 3d 28 66 2f 33 36 35 32 35 |.J3,A:A=(f/36525|
00008e10 29 2d 31 3a 4a 33 3d 28 28 34 36 2e 38 31 35 2b |)-1:J3=((46.815+|
00008e20 28 30 2e 30 30 30 36 2d 30 2e 30 30 31 38 31 2a |(0.0006-0.00181*|
00008e30 41 29 2a 41 29 2a 41 29 2f 33 36 30 30 3a 3d b2 |A)*A)*A)/3600:=.|
00008e40 28 32 33 2e 34 33 39 32 39 31 36 37 2d 4a 33 29 |(23.43929167-J3)|
00008e50 0d 03 63 e2 dd a4 50 28 66 29 3a ea 67 2c 44 2c |..c...P(f):.g,D,|
00008e60 4d 2c 67 30 2c 62 31 2c 6f 2c 78 2c 61 30 2c 49 |M,g0,b1,o,x,a0,I|
00008e70 33 2c 73 30 3a 41 3d 66 2f 33 36 35 32 35 3a 67 |3,s0:A=f/36525:g|
00008e80 3d 41 2a 41 3a 44 3d 31 2e 30 30 30 30 32 31 33 |=A*A:D=1.0000213|
00008e90 35 38 45 32 2a 41 3a 4d 3d 33 36 30 2a 28 44 2d |58E2*A:M=360*(D-|
00008ea0 a8 28 44 29 29 3a 67 30 3d 32 2e 37 39 36 39 36 |.(D)):g0=2.79696|
00008eb0 37 45 32 2b 33 2e 30 33 45 2d 34 2a 67 2b 4d 3a |7E2+3.03E-4*g+M:|
00008ec0 47 30 3d 32 2a b2 28 67 30 29 3a 44 3d 31 2e 33 |G0=2*.(g0):D=1.3|
00008ed0 33 36 38 35 35 32 33 32 45 33 2a 41 3a 4d 3d 33 |36855232E3*A:M=3|
00008ee0 36 30 2a 28 44 2d a8 28 44 29 29 3a 62 31 3d 32 |60*(D-.(D)):b1=2|
00008ef0 2e 37 30 34 33 34 32 45 32 2d 31 2e 31 33 33 45 |.704342E2-1.133E|
00008f00 2d 33 2a 67 2b 4d 3a 57 30 3d 32 2a b2 28 62 31 |-3*g+M:W0=2*.(b1|
00008f10 29 3a 44 3d 39 2e 39 39 39 37 33 36 30 35 36 45 |):D=9.999736056E|
00008f20 31 2a 41 3a 4d 3d 33 36 30 2a 28 44 2d a8 28 44 |1*A:M=360*(D-.(D|
00008f30 29 29 0d 03 64 f6 6f 3d 33 2e 35 38 34 37 35 38 |))..d.o=3.584758|
00008f40 45 32 2d 31 2e 35 45 2d 34 2a 67 2b 4d 3a 6f 3d |E2-1.5E-4*g+M:o=|
00008f50 b2 28 6f 29 3a 44 3d 31 2e 33 32 35 35 35 32 33 |.(o):D=1.3255523|
00008f60 35 39 45 33 2a 41 3a 4d 3d 33 36 30 2a 28 44 2d |59E3*A:M=360*(D-|
00008f70 a8 28 44 29 29 3a 78 3d 32 2e 39 36 31 30 34 36 |.(D)):x=2.961046|
00008f80 45 32 2b 39 2e 31 39 32 45 2d 33 2a 67 2b 4d 3a |E2+9.192E-3*g+M:|
00008f90 78 3d b2 28 78 29 3a 44 3d 35 2e 33 37 32 36 31 |x=.(x):D=5.37261|
00008fa0 36 36 36 37 2a 41 3a 4d 3d 33 36 30 2a 28 44 2d |6667*A:M=360*(D-|
00008fb0 a8 28 44 29 29 3a 61 30 3d 32 2e 35 39 31 38 33 |.(D)):a0=2.59183|
00008fc0 33 45 32 2b 32 2e 30 37 38 45 2d 33 2a 67 2d 4d |3E2+2.078E-3*g-M|
00008fd0 3a 61 30 3d b2 28 61 30 29 3a 49 33 3d 32 2a 61 |:a0=.(a0):I3=2*a|
00008fe0 30 3a 73 30 3d 28 39 2e 32 31 2b 39 2e 31 45 2d |0:s0=(9.21+9.1E-|
00008ff0 34 2a 41 29 2a 9b 28 61 30 29 3a 73 30 3d 73 30 |4*A)*.(a0):s0=s0|
00009000 2b 28 35 2e 35 32 32 45 2d 31 2d 32 2e 39 45 2d |+(5.522E-1-2.9E-|
00009010 34 2a 41 29 2a 9b 28 47 30 29 2d 39 2e 30 34 45 |4*A)*.(G0)-9.04E|
00009020 2d 32 2a 9b 28 49 33 29 0d 03 65 87 73 30 3d 73 |-2*.(I3)..e.s0=s|
00009030 30 2b 38 2e 38 34 45 2d 32 2a 9b 28 57 30 29 2b |0+8.84E-2*.(W0)+|
00009040 32 2e 31 36 45 2d 32 2a 9b 28 47 30 2b 6f 29 3a |2.16E-2*.(G0+o):|
00009050 73 30 3d 73 30 2b 31 2e 38 33 45 2d 32 2a 9b 28 |s0=s0+1.83E-2*.(|
00009060 57 30 2d 61 30 29 2b 31 2e 31 33 45 2d 32 2a 9b |W0-a0)+1.13E-2*.|
00009070 28 57 30 2b 78 29 3a 73 30 3d 73 30 2d 39 2e 33 |(W0+x):s0=s0-9.3|
00009080 45 2d 33 2a 9b 28 47 30 2d 6f 29 2d 36 2e 36 45 |E-3*.(G0-o)-6.6E|
00009090 2d 33 2a 9b 28 47 30 2d 61 30 29 3a 4a 30 3d 4a |-3*.(G0-a0):J0=J|
000090a0 30 2f 33 36 30 30 3a 3d 73 30 2f 33 36 30 30 0d |0/3600:=s0/3600.|
000090b0 03 66 e2 dd a4 55 28 66 29 3a ea 67 2c 44 2c 4d |.f...U(f):.g,D,M|
000090c0 2c 67 30 2c 62 31 2c 6f 2c 78 2c 61 30 2c 49 33 |,g0,b1,o,x,a0,I3|
000090d0 2c 4a 30 3a 41 3d 66 2f 33 36 35 32 35 3a 67 3d |,J0:A=f/36525:g=|
000090e0 41 2a 41 3a 44 3d 31 2e 30 30 30 30 32 31 33 35 |A*A:D=1.00002135|
000090f0 38 45 32 2a 41 3a 4d 3d 33 36 30 2a 28 44 2d a8 |8E2*A:M=360*(D-.|
00009100 28 44 29 29 3a 67 30 3d 32 2e 37 39 36 39 36 37 |(D)):g0=2.796967|
00009110 45 32 2b 33 2e 30 33 45 2d 34 2a 67 2b 4d 3a 47 |E2+3.03E-4*g+M:G|
00009120 30 3d 32 2a b2 28 67 30 29 3a 44 3d 31 2e 33 33 |0=2*.(g0):D=1.33|
00009130 36 38 35 35 32 33 32 45 33 2a 41 3a 4d 3d 33 36 |6855232E3*A:M=36|
00009140 30 2a 28 44 2d a8 28 44 29 29 3a 62 31 3d 32 2e |0*(D-.(D)):b1=2.|
00009150 37 30 34 33 34 32 45 32 2d 31 2e 31 33 33 45 2d |704342E2-1.133E-|
00009160 33 2a 67 2b 4d 3a 57 30 3d 32 2a b2 28 62 31 29 |3*g+M:W0=2*.(b1)|
00009170 3a 44 3d 39 2e 39 39 39 37 33 36 30 35 36 45 31 |:D=9.999736056E1|
00009180 2a 41 3a 4d 3d 33 36 30 2a 28 44 2d a8 28 44 29 |*A:M=360*(D-.(D)|
00009190 29 0d 03 67 fc 6f 3d 33 2e 35 38 34 37 35 38 45 |)..g.o=3.584758E|
000091a0 32 2d 31 2e 35 45 2d 34 2a 67 2b 4d 3a 6f 3d b2 |2-1.5E-4*g+M:o=.|
000091b0 28 6f 29 3a 44 3d 31 2e 33 32 35 35 35 32 33 35 |(o):D=1.32555235|
000091c0 39 45 33 2a 41 3a 4d 3d 33 36 30 2a 28 44 2d a8 |9E3*A:M=360*(D-.|
000091d0 28 44 29 29 3a 78 3d 32 2e 39 36 31 30 34 36 45 |(D)):x=2.961046E|
000091e0 32 2b 39 2e 31 39 32 45 2d 33 2a 67 2b 4d 3a 78 |2+9.192E-3*g+M:x|
000091f0 3d b2 28 78 29 3a 44 3d 35 2e 33 37 32 36 31 36 |=.(x):D=5.372616|
00009200 36 36 37 2a 41 3a 4d 3d 33 36 30 2a 28 44 2d a8 |667*A:M=360*(D-.|
00009210 28 44 29 29 3a 61 30 3d 32 2e 35 39 31 38 33 33 |(D)):a0=2.591833|
00009220 45 32 2b 32 2e 30 37 38 45 2d 33 2a 67 2d 4d 3a |E2+2.078E-3*g-M:|
00009230 61 30 3d b2 28 61 30 29 3a 49 33 3d 32 2a 61 30 |a0=.(a0):I3=2*a0|
00009240 3a 4a 30 3d 28 2d 31 37 2e 32 33 32 37 2d 31 2e |:J0=(-17.2327-1.|
00009250 37 33 37 45 2d 32 2a 41 29 2a b5 28 61 30 29 3a |737E-2*A)*.(a0):|
00009260 4a 30 3d 4a 30 2b 28 2d 31 2e 32 37 32 39 2d 31 |J0=J0+(-1.2729-1|
00009270 2e 33 45 2d 34 2a 41 29 2a b5 28 47 30 29 2b 32 |.3E-4*A)*.(G0)+2|
00009280 2e 30 38 38 45 2d 31 2a b5 28 49 33 29 0d 03 68 |.088E-1*.(I3)..h|
00009290 df 4a 30 3d 4a 30 2d 32 2e 30 33 37 45 2d 31 2a |.J0=J0-2.037E-1*|
000092a0 b5 28 57 30 29 2b 28 31 2e 32 36 31 45 2d 31 2d |.(W0)+(1.261E-1-|
000092b0 33 2e 31 45 2d 34 2a 41 29 2a b5 28 6f 29 3a 4a |3.1E-4*A)*.(o):J|
000092c0 30 3d 4a 30 2b 36 2e 37 35 45 2d 32 2a b5 28 78 |0=J0+6.75E-2*.(x|
000092d0 29 2d 28 34 2e 39 37 45 2d 32 2d 31 2e 32 45 2d |)-(4.97E-2-1.2E-|
000092e0 34 2a 41 29 2a b5 28 47 30 2b 6f 29 3a 4a 30 3d |4*A)*.(G0+o):J0=|
000092f0 4a 30 2d 33 2e 34 32 45 2d 32 2a b5 28 57 30 2d |J0-3.42E-2*.(W0-|
00009300 61 30 29 2d 32 2e 36 31 45 2d 32 2a b5 28 57 30 |a0)-2.61E-2*.(W0|
00009310 2b 78 29 3a 4a 30 3d 4a 30 2b 32 2e 31 34 45 2d |+x):J0=J0+2.14E-|
00009320 32 2a b5 28 47 30 2d 6f 29 2d 31 2e 34 39 45 2d |2*.(G0-o)-1.49E-|
00009330 32 2a b5 28 47 30 2d 57 30 2b 78 29 3a 4a 30 3d |2*.(G0-W0+x):J0=|
00009340 4a 30 2b 31 2e 32 34 45 2d 32 2a b5 28 47 30 2d |J0+1.24E-2*.(G0-|
00009350 61 30 29 2b 31 2e 31 34 45 2d 32 2a b5 28 57 30 |a0)+1.14E-2*.(W0|
00009360 2d 78 29 3a 3d 4a 30 2f 33 36 30 30 0d 03 69 c1 |-x):=J0/3600..i.|
00009370 dd f2 62 28 41 34 2c 58 32 29 3a ea 4d 33 2c 6f |..b(A4,X2):.M3,o|
00009380 32 2c 4c 31 3a 4d 33 3d 32 2a af 3a 6f 32 3d 41 |2,L1:M3=2*.:o2=A|
00009390 34 2d 4d 33 2a a8 28 41 34 2f 4d 33 29 3a 72 30 |4-M3*.(A4/M3):r0|
000093a0 3d 6f 32 3a 4c 31 3d 72 30 2d 28 58 32 2a b5 28 |=o2:L1=r0-(X2*.(|
000093b0 72 30 29 29 2d 6f 32 3a c8 95 94 28 4c 31 29 3e |r0))-o2:...(L1)>|
000093c0 31 45 2d 36 3a 4c 31 3d 4c 31 2f 28 31 2d 28 58 |1E-6:L1=L1/(1-(X|
000093d0 32 2a 9b 28 72 30 29 29 29 3a 72 30 3d 72 30 2d |2*.(r0))):r0=r0-|
000093e0 4c 31 3a 4c 31 3d 72 30 2d 28 58 32 2a b5 28 72 |L1:L1=r0-(X2*.(r|
000093f0 30 29 29 2d 6f 32 3a ce 3a 51 34 3d b6 28 28 31 |0))-o2:.:Q4=.((1|
00009400 2b 58 32 29 2f 28 31 2d 58 32 29 29 2a b7 28 72 |+X2)/(1-X2))*.(r|
00009410 30 2f 32 29 3a 71 34 3d 32 2a 99 28 51 34 29 3a |0/2):q4=2*.(Q4):|
00009420 6b 34 3d 72 30 3a 4f 32 3d 71 34 3a e1 0d 03 6a |k4=r0:O2=q4:...j|
00009430 e7 dd f2 68 28 66 2c 6b 2c f8 42 2c f8 72 34 29 |...h(f,k,.B,.r4)|
00009440 3a 41 3d 28 66 2f 33 36 35 32 35 29 2b 28 6b 2f |:A=(f/36525)+(k/|
00009450 38 2e 37 36 36 45 35 29 3a 67 3d 41 2a 41 3a 44 |8.766E5):g=A*A:D|
00009460 3d 31 2e 30 30 30 30 32 31 33 35 39 45 32 2a 41 |=1.000021359E2*A|
00009470 3a 4d 3d 33 36 30 2a 28 44 2d a8 28 44 29 29 3a |:M=360*(D-.(D)):|
00009480 4c 3d 32 2e 37 39 36 39 36 36 38 45 32 2b 33 2e |L=2.7969668E2+3.|
00009490 30 32 35 45 2d 34 2a 67 2b 4d 3a 44 3d 39 2e 39 |025E-4*g+M:D=9.9|
000094a0 39 39 37 33 36 30 34 32 45 31 2a 41 3a 4d 3d 33 |99736042E1*A:M=3|
000094b0 36 30 2a 28 44 2d a8 28 44 29 29 3a 6f 3d 33 2e |60*(D-.(D)):o=3.|
000094c0 35 38 34 37 35 38 33 45 32 2d 28 31 2e 35 45 2d |5847583E2-(1.5E-|
000094d0 34 2b 33 2e 33 45 2d 36 2a 41 29 2a 67 2b 4d 3a |4+3.3E-6*A)*g+M:|
000094e0 65 30 3d 31 2e 36 37 35 31 30 34 45 2d 32 2d 34 |e0=1.675104E-2-4|
000094f0 2e 31 38 45 2d 35 2a 41 2d 31 2e 32 36 45 2d 37 |.18E-5*A-1.26E-7|
00009500 2a 67 3a 4e 31 3d b2 28 6f 29 3a f2 62 28 4e 31 |*g:N1=.(o):.b(N1|
00009510 2c 65 30 29 0d 03 6b e0 44 3d 36 2e 32 35 35 32 |,e0)..k.D=6.2552|
00009520 30 39 34 37 32 45 31 2a 41 3a 4d 3d 33 36 30 2a |09472E1*A:M=360*|
00009530 28 44 2d a8 28 44 29 29 3a 60 33 3d b2 28 31 35 |(D-.(D)):`3=.(15|
00009540 33 2e 32 35 2b 4d 29 3a 44 3d 31 2e 32 35 31 30 |3.25+M):D=1.2510|
00009550 34 31 38 39 34 45 32 2a 41 3a 4d 3d 33 36 30 2a |41894E2*A:M=360*|
00009560 28 44 2d a8 28 44 29 29 3a 53 33 3d b2 28 32 31 |(D-.(D)):S3=.(21|
00009570 36 2e 35 37 2b 4d 29 3a 44 3d 39 2e 31 35 36 37 |6.57+M):D=9.1567|
00009580 36 36 30 32 38 45 31 2a 41 3a 4d 3d 33 36 30 2a |66028E1*A:M=360*|
00009590 28 44 2d a8 28 44 29 29 3a 79 3d b2 28 33 31 32 |(D-.(D)):y=.(312|
000095a0 2e 36 39 2b 4d 29 3a 44 3d 31 2e 32 33 36 38 35 |.69+M):D=1.23685|
000095b0 33 30 39 35 45 33 2a 41 3a 4d 3d 33 36 30 2a 28 |3095E3*A:M=360*(|
000095c0 44 2d a8 28 44 29 29 3a 62 31 3d b2 28 33 35 30 |D-.(D)):b1=.(350|
000095d0 2e 37 34 2d 31 2e 34 34 45 2d 33 2a 67 2b 4d 29 |.74-1.44E-3*g+M)|
000095e0 3a 64 34 3d b2 28 32 33 31 2e 31 39 2b 32 30 2e |:d4=.(231.19+20.|
000095f0 32 2a 41 29 0d 03 6c e3 44 3d 31 2e 38 33 31 33 |2*A)..l.D=1.8313|
00009600 35 33 32 30 38 45 32 2a 41 3a 4d 3d 33 36 30 2a |53208E2*A:M=360*|
00009610 28 44 2d a8 28 44 29 29 3a 55 34 3d b2 28 33 35 |(D-.(D)):U4=.(35|
00009620 33 2e 34 2b 4d 29 3a 57 30 3d 31 2e 33 34 45 2d |3.4+M):W0=1.34E-|
00009630 33 2a 9b 28 60 33 29 2b 31 2e 35 34 45 2d 33 2a |3*.(`3)+1.54E-3*|
00009640 9b 28 53 33 29 2b 32 45 2d 33 2a 9b 28 79 29 3a |.(S3)+2E-3*.(y):|
00009650 57 30 3d 57 30 2b 31 2e 37 39 45 2d 33 2a b5 28 |W0=W0+1.79E-3*.(|
00009660 62 31 29 2b 31 2e 37 38 45 2d 33 2a b5 28 64 34 |b1)+1.78E-3*.(d4|
00009670 29 3a 6b 31 3d 35 2e 34 33 45 2d 36 2a b5 28 60 |):k1=5.43E-6*.(`|
00009680 33 29 2b 31 2e 35 37 35 45 2d 35 2a b5 28 53 33 |3)+1.575E-5*.(S3|
00009690 29 3a 6b 31 3d 6b 31 2b 31 2e 36 32 37 45 2d 35 |):k1=k1+1.627E-5|
000096a0 2a b5 28 79 29 2b 33 2e 30 37 36 45 2d 35 2a 9b |*.(y)+3.076E-5*.|
000096b0 28 62 31 29 3a 6b 31 3d 6b 31 2b 39 2e 32 37 45 |(b1):k1=k1+9.27E|
000096c0 2d 36 2a b5 28 55 34 29 3a 42 3d 4f 32 2b b2 28 |-6*.(U4):B=O2+.(|
000096d0 4c 2d 6f 2b 57 30 29 0d 03 6d 47 72 34 3d 31 2e |L-o+W0)..mGr4=1.|
000096e0 30 30 30 30 30 30 32 2a 28 31 2d 65 30 2a 9b 28 |0000002*(1-e0*.(|
000096f0 6b 34 29 29 2b 6b 31 3a c8 95 42 3c 30 3a 42 2b |k4))+k1:..B<0:B+|
00009700 3d 32 2a af 3a ce 3a c8 95 42 3e 32 2a af 3a 42 |=2*.:.:..B>2*.:B|
00009710 2d 3d 32 2a af 3a ce 3a 43 31 3d 42 3a e1 0d 03 |-=2*.:.:C1=B:...|
00009720 6e f5 dd f2 44 30 28 66 2c 6b 2c f8 42 2c f8 43 |n...D0(f,k,.B,.C|
00009730 2c f8 58 31 29 3a 41 3d 28 66 2f 33 36 35 32 35 |,.X1):A=(f/36525|
00009740 29 2b 28 6b 2f 38 2e 37 36 36 45 35 29 3a 67 3d |)+(k/8.766E5):g=|
00009750 41 2a 41 3a 6f 3d 32 2e 37 33 32 31 35 38 32 31 |A*A:o=2.73215821|
00009760 33 45 31 3a 78 3d 33 2e 36 35 32 35 39 36 34 30 |3E1:x=3.65259640|
00009770 37 45 32 3a 64 31 3d 32 2e 37 35 35 34 35 35 30 |7E2:d1=2.7554550|
00009780 39 34 45 31 3a 5f 31 3d 32 2e 39 35 33 30 35 38 |94E1:_1=2.953058|
00009790 38 36 38 45 31 3a 5a 31 3d 32 2e 37 32 31 32 32 |868E1:Z1=2.72122|
000097a0 32 30 33 39 45 31 3a 63 31 3d 36 2e 37 39 38 33 |2039E1:c1=6.7983|
000097b0 36 33 33 30 37 45 33 3a 51 30 3d 66 2b 28 6b 2f |63307E3:Q0=f+(k/|
000097c0 32 34 29 3a 6f 3d 51 30 2f 6f 3a 78 3d 51 30 2f |24):o=Q0/o:x=Q0/|
000097d0 78 3a 64 31 3d 51 30 2f 64 31 3a 5f 31 3d 51 30 |x:d1=Q0/d1:_1=Q0|
000097e0 2f 5f 31 3a 5a 31 3d 51 30 2f 5a 31 3a 63 31 3d |/_1:Z1=Q0/Z1:c1=|
000097f0 51 30 2f 63 31 3a 6f 3d 33 36 30 2a 28 6f 2d a8 |Q0/c1:o=360*(o-.|
00009800 28 6f 29 29 3a 78 3d 33 36 30 2a 28 78 2d a8 28 |(o)):x=360*(x-.(|
00009810 78 29 29 0d 03 6f e9 64 31 3d 33 36 30 2a 28 64 |x))..o.d1=360*(d|
00009820 31 2d a8 28 64 31 29 29 3a 5f 31 3d 33 36 30 2a |1-.(d1)):_1=360*|
00009830 28 5f 31 2d a8 28 5f 31 29 29 3a 5a 31 3d 33 36 |(_1-.(_1)):Z1=36|
00009840 30 2a 28 5a 31 2d a8 28 5a 31 29 29 3a 63 31 3d |0*(Z1-.(Z1)):c1=|
00009850 33 36 30 2a 28 63 31 2d a8 28 63 31 29 29 3a 79 |360*(c1-.(c1)):y|
00009860 31 3d 32 2e 37 30 34 33 34 31 36 34 45 32 2b 6f |1=2.70434164E2+o|
00009870 2d 28 31 2e 31 33 33 45 2d 33 2d 31 2e 39 45 2d |-(1.133E-3-1.9E-|
00009880 36 2a 41 29 2a 67 3a 48 3d 33 2e 35 38 34 37 35 |6*A)*g:H=3.58475|
00009890 38 33 33 45 32 2b 78 2d 28 31 2e 35 45 2d 34 2b |833E2+x-(1.5E-4+|
000098a0 33 2e 33 45 2d 36 2a 41 29 2a 67 3a 46 3d 32 2e |3.3E-6*A)*g:F=2.|
000098b0 39 36 31 30 34 36 30 38 45 32 2b 64 31 2b 28 39 |96104608E2+d1+(9|
000098c0 2e 31 39 32 45 2d 33 2b 31 2e 34 34 45 2d 35 2a |.192E-3+1.44E-5*|
000098d0 41 29 2a 67 3a 47 3d 33 2e 35 30 37 33 37 34 38 |A)*g:G=3.5073748|
000098e0 36 45 32 2b 5f 31 2d 28 31 2e 34 33 36 45 2d 33 |6E2+_1-(1.436E-3|
000098f0 2d 31 2e 39 45 2d 36 2a 41 29 2a 67 0d 03 70 f0 |-1.9E-6*A)*g..p.|
00009900 4a 3d 31 31 2e 32 35 30 38 38 39 2b 5a 31 2d 28 |J=11.250889+Z1-(|
00009910 33 2e 32 31 31 45 2d 33 2b 33 45 2d 37 2a 41 29 |3.211E-3+3E-7*A)|
00009920 2a 67 3a 70 31 3d 32 2e 35 39 31 38 33 32 37 35 |*g:p1=2.59183275|
00009930 45 32 2d 63 31 2b 28 32 2e 30 37 38 45 2d 33 2b |E2-c1+(2.078E-3+|
00009940 32 2e 32 45 2d 36 2a 41 29 2a 67 3a 44 3d b2 28 |2.2E-6*A)*g:D=.(|
00009950 35 31 2e 32 2b 32 30 2e 32 2a 41 29 3a 70 3d b5 |51.2+20.2*A):p=.|
00009960 28 44 29 3a 75 3d b5 28 b2 28 70 31 29 29 3a 4d |(D):u=.(.(p1)):M|
00009970 3d 33 34 36 2e 35 36 2b 28 31 33 32 2e 38 37 2d |=346.56+(132.87-|
00009980 39 2e 31 37 33 31 45 2d 33 2a 41 29 2a 41 3a 4e |9.1731E-3*A)*A:N|
00009990 30 3d 33 2e 39 36 34 45 2d 33 2a b5 28 b2 28 4d |0=3.964E-3*.(.(M|
000099a0 29 29 3a 77 3d b2 28 70 31 2b 32 37 35 2e 30 35 |)):w=.(p1+275.05|
000099b0 2d 32 2e 33 2a 41 29 3a 66 34 3d b5 28 77 29 3a |-2.3*A):f4=.(w):|
000099c0 79 31 3d 79 31 2b 32 2e 33 33 45 2d 34 2a 70 2b |y1=y1+2.33E-4*p+|
000099d0 4e 30 2b 31 2e 39 36 34 45 2d 33 2a 75 3a 48 3d |N0+1.964E-3*u:H=|
000099e0 48 2d 31 2e 37 37 38 45 2d 33 2a 70 0d 03 71 f4 |H-1.778E-3*p..q.|
000099f0 46 3d 46 2b 38 2e 31 37 45 2d 34 2a 70 2b 4e 30 |F=F+8.17E-4*p+N0|
00009a00 2b 32 2e 35 34 31 45 2d 33 2a 75 3a 4a 3d 4a 2b |+2.541E-3*u:J=J+|
00009a10 4e 30 2d 32 2e 34 36 39 31 45 2d 32 2a 75 2d 34 |N0-2.4691E-2*u-4|
00009a20 2e 33 32 38 45 2d 33 2a 66 34 3a 47 3d 47 2b 32 |.328E-3*f4:G=G+2|
00009a30 2e 30 31 31 45 2d 33 2a 70 2b 4e 30 2b 31 2e 39 |.011E-3*p+N0+1.9|
00009a40 36 34 45 2d 33 2a 75 3a 52 3d 31 2d 28 32 2e 34 |64E-3*u:R=1-(2.4|
00009a50 39 35 45 2d 33 2b 37 2e 35 32 45 2d 36 2a 41 29 |95E-3+7.52E-6*A)|
00009a60 2a 41 3a 55 31 3d 52 2a 52 3a 79 31 3d b2 28 79 |*A:U1=R*R:y1=.(y|
00009a70 31 29 3a 48 3d b2 28 48 29 3a 70 31 3d b2 28 70 |1):H=.(H):p1=.(p|
00009a80 31 29 3a 47 3d b2 28 47 29 3a 4a 3d b2 28 4a 29 |1):G=.(G):J=.(J)|
00009a90 3a 46 3d b2 28 46 29 3a 4c 3d 36 2e 32 38 38 37 |:F=.(F):L=6.2887|
00009aa0 35 2a b5 28 46 29 2b 31 2e 32 37 34 30 31 38 2a |5*.(F)+1.274018*|
00009ab0 b5 28 32 2a 47 2d 46 29 3a 4c 3d 4c 2b 36 2e 35 |.(2*G-F):L=L+6.5|
00009ac0 38 33 30 39 45 2d 31 2a b5 28 32 2a 47 29 2b 32 |8309E-1*.(2*G)+2|
00009ad0 2e 31 33 36 31 36 45 2d 31 2a b5 28 32 2a 46 29 |.13616E-1*.(2*F)|
00009ae0 0d 03 72 ef 4c 3d 4c 2d 52 2a 31 2e 38 35 35 39 |..r.L=L-R*1.8559|
00009af0 36 45 2d 31 2a b5 28 48 29 2d 31 2e 31 34 33 33 |6E-1*.(H)-1.1433|
00009b00 36 45 2d 31 2a b5 28 32 2a 4a 29 3a 4c 3d 4c 2b |6E-1*.(2*J):L=L+|
00009b10 35 2e 38 37 39 33 45 2d 32 2a b5 28 32 2a 28 47 |5.8793E-2*.(2*(G|
00009b20 2d 46 29 29 3a 4c 3d 4c 2b 35 2e 37 32 31 32 45 |-F)):L=L+5.7212E|
00009b30 2d 32 2a 52 2a b5 28 32 2a 47 2d 48 2d 46 29 2b |-2*R*.(2*G-H-F)+|
00009b40 35 2e 33 33 32 45 2d 32 2a b5 28 32 2a 47 2b 46 |5.332E-2*.(2*G+F|
00009b50 29 3a 4c 3d 4c 2b 34 2e 35 38 37 34 45 2d 32 2a |):L=L+4.5874E-2*|
00009b60 52 2a b5 28 32 2a 47 2d 48 29 2b 34 2e 31 30 32 |R*.(2*G-H)+4.102|
00009b70 34 45 2d 32 2a 52 2a b5 28 46 2d 48 29 3a 4c 3d |4E-2*R*.(F-H):L=|
00009b80 4c 2d 33 2e 34 37 31 38 45 2d 32 2a b5 28 47 29 |L-3.4718E-2*.(G)|
00009b90 2d 52 2a 33 2e 30 34 36 35 45 2d 32 2a b5 28 48 |-R*3.0465E-2*.(H|
00009ba0 2b 46 29 3a 4c 3d 4c 2b 31 2e 35 33 32 36 45 2d |+F):L=L+1.5326E-|
00009bb0 32 2a b5 28 32 2a 28 47 2d 4a 29 29 2d 31 2e 32 |2*.(2*(G-J))-1.2|
00009bc0 35 32 38 45 2d 32 2a b5 28 32 2a 4a 2b 46 29 0d |528E-2*.(2*J+F).|
00009bd0 03 73 fa 4c 3d 4c 2d 31 2e 30 39 38 45 2d 32 2a |.s.L=L-1.098E-2*|
00009be0 b5 28 32 2a 4a 2d 46 29 2b 31 2e 30 36 37 34 45 |.(2*J-F)+1.0674E|
00009bf0 2d 32 2a b5 28 34 2a 47 2d 46 29 3a 4c 3d 4c 2b |-2*.(4*G-F):L=L+|
00009c00 31 2e 30 30 33 34 45 2d 32 2a b5 28 33 2a 46 29 |1.0034E-2*.(3*F)|
00009c10 2b 38 2e 35 34 38 45 2d 33 2a b5 28 34 2a 47 2d |+8.548E-3*.(4*G-|
00009c20 32 2a 46 29 3a 4c 3d 4c 2d 52 2a 37 2e 39 31 45 |2*F):L=L-R*7.91E|
00009c30 2d 33 2a b5 28 48 2d 46 2b 32 2a 47 29 2d 52 2a |-3*.(H-F+2*G)-R*|
00009c40 36 2e 37 38 33 45 2d 33 2a b5 28 32 2a 47 2b 48 |6.783E-3*.(2*G+H|
00009c50 29 3a 4c 3d 4c 2b 35 2e 31 36 32 45 2d 33 2a b5 |):L=L+5.162E-3*.|
00009c60 28 46 2d 47 29 2b 52 2a 35 45 2d 33 2a b5 28 48 |(F-G)+R*5E-3*.(H|
00009c70 2b 47 29 3a 4c 3d 4c 2b 33 2e 38 36 32 45 2d 33 |+G):L=L+3.862E-3|
00009c80 2a b5 28 34 2a 47 29 2b 52 2a 34 2e 30 34 39 45 |*.(4*G)+R*4.049E|
00009c90 2d 33 2a b5 28 46 2d 48 2b 32 2a 47 29 3a 4c 3d |-3*.(F-H+2*G):L=|
00009ca0 4c 2b 33 2e 39 39 36 45 2d 33 2a b5 28 32 2a 28 |L+3.996E-3*.(2*(|
00009cb0 46 2b 47 29 29 2b 33 2e 36 36 35 45 2d 33 2a b5 |F+G))+3.665E-3*.|
00009cc0 28 32 2a 47 2d 33 2a 46 29 0d 03 74 ea 4c 3d 4c |(2*G-3*F)..t.L=L|
00009cd0 2b 52 2a 32 2e 36 39 35 45 2d 33 2a b5 28 32 2a |+R*2.695E-3*.(2*|
00009ce0 46 2d 48 29 2b 32 2e 36 30 32 45 2d 33 2a b5 28 |F-H)+2.602E-3*.(|
00009cf0 46 2d 32 2a 28 4a 2b 47 29 29 3a 4c 3d 4c 2b 52 |F-2*(J+G)):L=L+R|
00009d00 2a 32 2e 33 39 36 45 2d 33 2a b5 28 32 2a 28 47 |*2.396E-3*.(2*(G|
00009d10 2d 46 29 2d 48 29 2d 32 2e 33 34 39 45 2d 33 2a |-F)-H)-2.349E-3*|
00009d20 b5 28 46 2b 47 29 3a 4c 3d 4c 2b 55 31 2a 32 2e |.(F+G):L=L+U1*2.|
00009d30 32 34 39 45 2d 33 2a b5 28 32 2a 28 47 2d 48 29 |249E-3*.(2*(G-H)|
00009d40 29 2d 52 2a 32 2e 31 32 35 45 2d 33 2a b5 28 32 |)-R*2.125E-3*.(2|
00009d50 2a 46 2b 48 29 3a 4c 3d 4c 2d 55 31 2a 32 2e 30 |*F+H):L=L-U1*2.0|
00009d60 37 39 45 2d 33 2a b5 28 32 2a 48 29 2b 55 31 2a |79E-3*.(2*H)+U1*|
00009d70 32 2e 30 35 39 45 2d 33 2a b5 28 32 2a 28 47 2d |2.059E-3*.(2*(G-|
00009d80 48 29 2d 46 29 3a 4c 3d 4c 2d 31 2e 37 37 33 45 |H)-F):L=L-1.773E|
00009d90 2d 33 2a b5 28 46 2b 32 2a 28 47 2d 4a 29 29 2d |-3*.(F+2*(G-J))-|
00009da0 31 2e 35 39 35 45 2d 33 2a b5 28 32 2a 28 4a 2b |1.595E-3*.(2*(J+|
00009db0 47 29 29 0d 03 75 e9 4c 3d 4c 2b 52 2a 31 2e 32 |G))..u.L=L+R*1.2|
00009dc0 32 45 2d 33 2a b5 28 34 2a 47 2d 48 2d 46 29 2d |2E-3*.(4*G-H-F)-|
00009dd0 31 2e 31 31 45 2d 33 2a b5 28 32 2a 28 46 2b 4a |1.11E-3*.(2*(F+J|
00009de0 29 29 3a 4c 3d 4c 2b 38 2e 39 32 45 2d 34 2a b5 |)):L=L+8.92E-4*.|
00009df0 28 46 2d 33 2a 47 29 2d 52 2a 38 2e 31 31 45 2d |(F-3*G)-R*8.11E-|
00009e00 34 2a b5 28 48 2b 46 2b 32 2a 47 29 3a 4c 3d 4c |4*.(H+F+2*G):L=L|
00009e10 2b 52 2a 37 2e 36 31 45 2d 34 2a b5 28 34 2a 47 |+R*7.61E-4*.(4*G|
00009e20 2d 48 2d 32 2a 46 29 3a 4c 3d 4c 2b 55 31 2a 37 |-H-2*F):L=L+U1*7|
00009e30 2e 30 34 45 2d 34 2a b5 28 46 2d 32 2a 28 48 2b |.04E-4*.(F-2*(H+|
00009e40 47 29 29 3a 4c 3d 4c 2b 52 2a 36 2e 39 33 45 2d |G)):L=L+R*6.93E-|
00009e50 34 2a b5 28 48 2d 32 2a 28 46 2d 47 29 29 3a 4c |4*.(H-2*(F-G)):L|
00009e60 3d 4c 2b 52 2a 35 2e 39 38 45 2d 34 2a b5 28 32 |=L+R*5.98E-4*.(2|
00009e70 2a 28 47 2d 4a 29 2d 48 29 3a 4c 3d 4c 2b 35 2e |*(G-J)-H):L=L+5.|
00009e80 35 45 2d 34 2a b5 28 46 2b 34 2a 47 29 2b 35 2e |5E-4*.(F+4*G)+5.|
00009e90 33 38 45 2d 34 2a b5 28 34 2a 46 29 0d 03 76 eb |38E-4*.(4*F)..v.|
00009ea0 4c 3d 4c 2b 52 2a 35 2e 32 31 45 2d 34 2a b5 28 |L=L+R*5.21E-4*.(|
00009eb0 34 2a 47 2d 48 29 2b 34 2e 38 36 45 2d 34 2a b5 |4*G-H)+4.86E-4*.|
00009ec0 28 32 2a 46 2d 47 29 3a 4c 3d 4c 2b 55 31 2a 37 |(2*F-G):L=L+U1*7|
00009ed0 2e 31 37 45 2d 34 2a b5 28 46 2d 32 2a 48 29 3a |.17E-4*.(F-2*H):|
00009ee0 6b 30 3d 79 31 2b b2 28 4c 29 3a c8 95 6b 30 3c |k0=y1+.(L):..k0<|
00009ef0 30 3a 6b 30 2b 3d 58 3a ce 3a c8 95 6b 30 3e 58 |0:k0+=X:.:..k0>X|
00009f00 3a 6b 30 2d 3d 58 3a ce 3a 42 3d 6b 30 3a 4f 3d |:k0-=X:.:B=k0:O=|
00009f10 35 2e 31 32 38 31 38 39 2a b5 28 4a 29 2b 32 2e |5.128189*.(J)+2.|
00009f20 38 30 36 30 36 45 2d 31 2a b5 28 46 2b 4a 29 3a |80606E-1*.(F+J):|
00009f30 4f 3d 4f 2b 32 2e 37 37 36 39 33 45 2d 31 2a b5 |O=O+2.77693E-1*.|
00009f40 28 46 2d 4a 29 2b 31 2e 37 33 32 33 38 45 2d 31 |(F-J)+1.73238E-1|
00009f50 2a b5 28 32 2a 47 2d 4a 29 3a 4f 3d 4f 2b 35 2e |*.(2*G-J):O=O+5.|
00009f60 35 34 31 33 45 2d 32 2a b5 28 32 2a 47 2b 4a 2d |5413E-2*.(2*G+J-|
00009f70 46 29 2b 34 2e 36 32 37 32 45 2d 32 2a b5 28 32 |F)+4.6272E-2*.(2|
00009f80 2a 47 2d 4a 2d 46 29 0d 03 77 e9 4f 3d 4f 2b 33 |*G-J-F)..w.O=O+3|
00009f90 2e 32 35 37 33 45 2d 32 2a b5 28 32 2a 47 2b 4a |.2573E-2*.(2*G+J|
00009fa0 29 2b 31 2e 37 31 39 38 45 2d 32 2a b5 28 32 2a |)+1.7198E-2*.(2*|
00009fb0 46 2b 4a 29 3a 4f 3d 4f 2b 39 2e 32 36 37 45 2d |F+J):O=O+9.267E-|
00009fc0 33 2a b5 28 32 2a 47 2b 46 2d 4a 29 2b 38 2e 38 |3*.(2*G+F-J)+8.8|
00009fd0 32 33 45 2d 33 2a b5 28 32 2a 46 2d 4a 29 3a 4f |23E-3*.(2*F-J):O|
00009fe0 3d 4f 2b 52 2a 38 2e 32 34 37 45 2d 33 2a b5 28 |=O+R*8.247E-3*.(|
00009ff0 32 2a 47 2d 48 2d 4a 29 2b 34 2e 33 32 33 45 2d |2*G-H-J)+4.323E-|
0000a000 33 2a b5 28 32 2a 28 47 2d 46 29 2d 4a 29 3a 4f |3*.(2*(G-F)-J):O|
0000a010 3d 4f 2b 34 2e 32 45 2d 33 2a b5 28 32 2a 47 2b |=O+4.2E-3*.(2*G+|
0000a020 4a 2b 46 29 2b 52 2a 33 2e 33 37 32 45 2d 33 2a |J+F)+R*3.372E-3*|
0000a030 b5 28 4a 2d 48 2d 32 2a 47 29 3a 4f 3d 4f 2b 52 |.(J-H-2*G):O=O+R|
0000a040 2a 32 2e 34 37 32 45 2d 33 2a b5 28 32 2a 47 2b |*2.472E-3*.(2*G+|
0000a050 4a 2d 48 2d 46 29 3a 4f 3d 4f 2b 52 2a 32 2e 32 |J-H-F):O=O+R*2.2|
0000a060 32 32 45 2d 33 2a b5 28 32 2a 47 2b 4a 2d 48 29 |22E-3*.(2*G+J-H)|
0000a070 0d 03 78 e7 4f 3d 4f 2b 52 2a 32 2e 30 37 32 45 |..x.O=O+R*2.072E|
0000a080 2d 33 2a b5 28 32 2a 47 2d 4a 2d 48 2d 46 29 3a |-3*.(2*G-J-H-F):|
0000a090 4f 3d 4f 2b 52 2a 31 2e 38 37 37 45 2d 33 2a b5 |O=O+R*1.877E-3*.|
0000a0a0 28 4a 2d 48 2b 46 29 2b 31 2e 38 32 38 45 2d 33 |(J-H+F)+1.828E-3|
0000a0b0 2a b5 28 34 2a 47 2d 4a 2d 46 29 3a 4f 3d 4f 2d |*.(4*G-J-F):O=O-|
0000a0c0 52 2a 31 2e 38 30 33 45 2d 33 2a b5 28 4a 2b 48 |R*1.803E-3*.(J+H|
0000a0d0 29 2d 31 2e 37 35 45 2d 33 2a b5 28 33 2a 4a 29 |)-1.75E-3*.(3*J)|
0000a0e0 3a 4f 3d 4f 2b 52 2a 31 2e 35 37 45 2d 33 2a b5 |:O=O+R*1.57E-3*.|
0000a0f0 28 46 2d 48 2d 4a 29 2d 31 2e 34 38 37 45 2d 33 |(F-H-J)-1.487E-3|
0000a100 2a b5 28 4a 2b 47 29 3a 4f 3d 4f 2d 52 2a 31 2e |*.(J+G):O=O-R*1.|
0000a110 34 38 31 45 2d 33 2a b5 28 4a 2b 48 2b 46 29 2b |481E-3*.(J+H+F)+|
0000a120 52 2a 31 2e 34 31 37 45 2d 33 2a b5 28 4a 2d 48 |R*1.417E-3*.(J-H|
0000a130 2d 46 29 3a 4f 3d 4f 2b 52 2a 31 2e 33 35 45 2d |-F):O=O+R*1.35E-|
0000a140 33 2a b5 28 4a 2d 48 29 2b 31 2e 33 33 45 2d 33 |3*.(J-H)+1.33E-3|
0000a150 2a b5 28 4a 2d 47 29 0d 03 79 ef 4f 3d 4f 2b 31 |*.(J-G)..y.O=O+1|
0000a160 2e 31 30 36 45 2d 33 2a b5 28 4a 2b 33 2a 46 29 |.106E-3*.(J+3*F)|
0000a170 2b 31 2e 30 32 45 2d 33 2a b5 28 34 2a 47 2d 4a |+1.02E-3*.(4*G-J|
0000a180 29 3a 4f 3d 4f 2b 38 2e 33 33 45 2d 34 2a b5 28 |):O=O+8.33E-4*.(|
0000a190 4a 2b 34 2a 47 2d 46 29 2b 37 2e 38 31 45 2d 34 |J+4*G-F)+7.81E-4|
0000a1a0 2a b5 28 46 2d 33 2a 4a 29 3a 4f 3d 4f 2b 36 2e |*.(F-3*J):O=O+6.|
0000a1b0 37 45 2d 34 2a b5 28 4a 2b 34 2a 47 2d 32 2a 46 |7E-4*.(J+4*G-2*F|
0000a1c0 29 2b 36 2e 30 36 45 2d 34 2a b5 28 32 2a 47 2d |)+6.06E-4*.(2*G-|
0000a1d0 33 2a 4a 29 3a 4f 3d 4f 2b 35 2e 39 37 45 2d 34 |3*J):O=O+5.97E-4|
0000a1e0 2a b5 28 32 2a 28 47 2b 46 29 2d 4a 29 3a 4f 3d |*.(2*(G+F)-J):O=|
0000a1f0 4f 2b 52 2a 34 2e 39 32 45 2d 34 2a b5 28 32 2a |O+R*4.92E-4*.(2*|
0000a200 47 2b 46 2d 48 2d 4a 29 2b 34 2e 35 45 2d 34 2a |G+F-H-J)+4.5E-4*|
0000a210 b5 28 32 2a 28 46 2d 47 29 2d 4a 29 3a 4f 3d 4f |.(2*(F-G)-J):O=O|
0000a220 2b 34 2e 33 39 45 2d 34 2a b5 28 33 2a 46 2d 4a |+4.39E-4*.(3*F-J|
0000a230 29 2b 34 2e 32 33 45 2d 34 2a b5 28 4a 2b 32 2a |)+4.23E-4*.(J+2*|
0000a240 28 47 2b 46 29 29 0d 03 7a de 4f 3d 4f 2b 34 2e |(G+F))..z.O=O+4.|
0000a250 32 32 45 2d 34 2a b5 28 32 2a 47 2d 4a 2d 33 2a |22E-4*.(2*G-J-3*|
0000a260 46 29 2d 52 2a 33 2e 36 37 45 2d 34 2a b5 28 48 |F)-R*3.67E-4*.(H|
0000a270 2b 4a 2b 32 2a 47 2d 46 29 3a 4f 3d 4f 2d 52 2a |+J+2*G-F):O=O-R*|
0000a280 33 2e 35 33 45 2d 34 2a b5 28 48 2b 4a 2b 32 2a |3.53E-4*.(H+J+2*|
0000a290 47 29 2b 33 2e 33 31 45 2d 34 2a b5 28 4a 2b 34 |G)+3.31E-4*.(J+4|
0000a2a0 2a 47 29 3a 4f 3d 4f 2b 52 2a 33 2e 31 37 45 2d |*G):O=O+R*3.17E-|
0000a2b0 34 2a b5 28 32 2a 47 2b 4a 2d 48 2b 46 29 3a 4f |4*.(2*G+J-H+F):O|
0000a2c0 3d 4f 2b 55 31 2a 33 2e 30 36 45 2d 34 2a b5 28 |=O+U1*3.06E-4*.(|
0000a2d0 32 2a 28 47 2d 48 29 2d 4a 29 2d 32 2e 38 33 45 |2*(G-H)-J)-2.83E|
0000a2e0 2d 34 2a b5 28 46 2b 33 2a 4a 29 3a 5f 34 3d 34 |-4*.(F+3*J):_4=4|
0000a2f0 2e 36 36 34 45 2d 34 2a 9b 28 70 31 29 3a 6d 34 |.664E-4*.(p1):m4|
0000a300 3d 37 2e 37 34 45 2d 35 2a 9b 28 77 29 3a 59 31 |=7.74E-5*.(w):Y1|
0000a310 3d b2 28 4f 29 2a 28 31 2d 5f 34 2d 6d 34 29 3a |=.(O)*(1-_4-m4):|
0000a320 43 3d 59 31 0d 03 7b dd 61 3d 39 2e 35 30 37 32 |C=Y1..{.a=9.5072|
0000a330 34 45 2d 31 2b 35 2e 31 38 31 38 45 2d 32 2a 9b |4E-1+5.1818E-2*.|
0000a340 28 46 29 2b 39 2e 35 33 31 45 2d 33 2a 9b 28 32 |(F)+9.531E-3*.(2|
0000a350 2a 47 2d 46 29 3a 61 3d 61 2b 37 2e 38 34 33 45 |*G-F):a=a+7.843E|
0000a360 2d 33 2a 9b 28 32 2a 47 29 2b 32 2e 38 32 34 45 |-3*.(2*G)+2.824E|
0000a370 2d 33 2a 9b 28 32 2a 46 29 3a 61 3d 61 2b 38 2e |-3*.(2*F):a=a+8.|
0000a380 35 37 45 2d 34 2a 9b 28 32 2a 47 2b 46 29 2b 52 |57E-4*.(2*G+F)+R|
0000a390 2a 35 2e 33 33 45 2d 34 2a 9b 28 32 2a 47 2d 48 |*5.33E-4*.(2*G-H|
0000a3a0 29 3a 61 3d 61 2b 52 2a 34 2e 30 31 45 2d 34 2a |):a=a+R*4.01E-4*|
0000a3b0 9b 28 32 2a 47 2d 46 2d 48 29 3a 61 3d 61 2b 52 |.(2*G-F-H):a=a+R|
0000a3c0 2a 33 2e 32 45 2d 34 2a 9b 28 46 2d 48 29 2d 32 |*3.2E-4*.(F-H)-2|
0000a3d0 2e 37 31 45 2d 34 2a 9b 28 47 29 3a 61 3d 61 2d |.71E-4*.(G):a=a-|
0000a3e0 52 2a 32 2e 36 34 45 2d 34 2a 9b 28 48 2b 46 29 |R*2.64E-4*.(H+F)|
0000a3f0 2d 31 2e 39 38 45 2d 34 2a 9b 28 32 2a 4a 2d 46 |-1.98E-4*.(2*J-F|
0000a400 29 0d 03 7c eb 61 3d 61 2b 31 2e 37 33 45 2d 34 |)..|.a=a+1.73E-4|
0000a410 2a 9b 28 33 2a 46 29 2b 31 2e 36 37 45 2d 34 2a |*.(3*F)+1.67E-4*|
0000a420 9b 28 34 2a 47 2d 46 29 3a 61 3d 61 2d 52 2a 31 |.(4*G-F):a=a-R*1|
0000a430 2e 31 31 45 2d 34 2a 9b 28 48 29 2b 31 2e 30 33 |.11E-4*.(H)+1.03|
0000a440 45 2d 34 2a 9b 28 34 2a 47 2d 32 2a 46 29 3a 61 |E-4*.(4*G-2*F):a|
0000a450 3d 61 2d 38 2e 34 45 2d 35 2a 9b 28 32 2a 46 2d |=a-8.4E-5*.(2*F-|
0000a460 32 2a 47 29 2d 52 2a 38 2e 33 45 2d 35 2a 9b 28 |2*G)-R*8.3E-5*.(|
0000a470 32 2a 47 2b 48 29 3a 61 3d 61 2b 37 2e 39 45 2d |2*G+H):a=a+7.9E-|
0000a480 35 2a 9b 28 32 2a 47 2b 32 2a 46 29 2b 37 2e 32 |5*.(2*G+2*F)+7.2|
0000a490 45 2d 35 2a 9b 28 34 2a 47 29 3a 61 3d 61 2b 52 |E-5*.(4*G):a=a+R|
0000a4a0 2a 36 2e 34 45 2d 35 2a 9b 28 32 2a 47 2d 48 2b |*6.4E-5*.(2*G-H+|
0000a4b0 46 29 2d 52 2a 36 2e 33 45 2d 35 2a 9b 28 32 2a |F)-R*6.3E-5*.(2*|
0000a4c0 47 2b 48 2d 46 29 3a 61 3d 61 2b 52 2a 34 2e 31 |G+H-F):a=a+R*4.1|
0000a4d0 45 2d 35 2a 9b 28 48 2b 47 29 2b 52 2a 33 2e 35 |E-5*.(H+G)+R*3.5|
0000a4e0 45 2d 35 2a 9b 28 32 2a 46 2d 48 29 0d 03 7d a0 |E-5*.(2*F-H)..}.|
0000a4f0 61 3d 61 2d 33 2e 33 45 2d 35 2a 9b 28 33 2a 46 |a=a-3.3E-5*.(3*F|
0000a500 2d 32 2a 47 29 2d 33 45 2d 35 2a 9b 28 46 2b 47 |-2*G)-3E-5*.(F+G|
0000a510 29 3a 61 3d 61 2d 32 2e 39 45 2d 35 2a 9b 28 32 |):a=a-2.9E-5*.(2|
0000a520 2a 28 4a 2d 47 29 29 2d 52 2a 32 2e 39 45 2d 35 |*(J-G))-R*2.9E-5|
0000a530 2a 9b 28 32 2a 46 2b 48 29 3a 61 3d 61 2b 55 31 |*.(2*F+H):a=a+U1|
0000a540 2a 32 2e 36 45 2d 35 2a 9b 28 32 2a 28 47 2d 48 |*2.6E-5*.(2*(G-H|
0000a550 29 29 2d 32 2e 33 45 2d 35 2a 9b 28 32 2a 28 4a |))-2.3E-5*.(2*(J|
0000a560 2d 47 29 2b 46 29 3a 61 3d 61 2b 52 2a 31 2e 39 |-G)+F):a=a+R*1.9|
0000a570 45 2d 35 2a 9b 28 34 2a 47 2d 48 2d 46 29 3a 61 |E-5*.(4*G-H-F):a|
0000a580 3d b2 28 61 29 3a 58 31 3d 61 3a e1 0d 03 7e 8d |=.(a):X1=a:...~.|
0000a590 dd a4 64 3a 46 33 3d 9b 28 6b 30 2d 43 31 29 2a |..d:F3=.(k0-C1)*|
0000a5a0 9b 28 59 31 29 3a 59 32 3d 31 2e 35 37 30 37 39 |.(Y1):Y2=1.57079|
0000a5b0 36 33 32 37 2d 98 28 46 33 29 3a 63 32 3d b5 28 |6327-.(F3):c2=.(|
0000a5c0 59 32 29 3a 53 31 3d 28 31 2e 34 36 38 45 2d 31 |Y2):S1=(1.468E-1|
0000a5d0 2a 63 32 2a 28 31 2d 35 2e 34 39 45 2d 32 2a b5 |*c2*(1-5.49E-2*.|
0000a5e0 28 46 29 29 29 2f 28 31 2d 31 2e 36 37 45 2d 32 |(F)))/(1-1.67E-2|
0000a5f0 2a b5 28 48 29 29 3a 53 31 3d af 2d 59 32 2d b2 |*.(H)):S1=.-Y2-.|
0000a600 28 53 31 29 3a 7a 30 3d 6b 30 2d 43 31 3a e7 7a |(S1):z0=k0-C1:.z|
0000a610 30 3c 30 3a 7a 30 2b 3d 58 0d 03 7f 0f e7 7a 30 |0<0:z0+=X.....z0|
0000a620 3e 58 3a 7a 30 2d 3d 58 0d 03 80 24 7a 30 3d 9d |>X:z0-=X...$z0=.|
0000a630 28 7a 30 29 2f 31 32 2e 32 3a 52 31 3d 28 31 2b |(z0)/12.2:R1=(1+|
0000a640 9b 28 53 31 29 29 2f 32 3a 3d 52 31 0d 03 81 a0 |.(S1))/2:=R1....|
0000a650 dd a4 66 3a 6b 32 3d b2 28 6d 30 2f 33 36 30 30 |..f:k2=.(m0/3600|
0000a660 29 3a 4e 33 3d b2 28 4d 30 2f 32 34 30 29 3a 52 |):N3=.(M0/240):R|
0000a670 33 3d b2 28 4c 30 2f 33 36 30 30 29 3a 4f 33 3d |3=.(L0/3600):O3=|
0000a680 b2 28 49 30 2f 32 34 30 29 3a 6c 31 3d 9b 28 6b |.(I0/240):l1=.(k|
0000a690 32 29 2a b5 28 4e 33 2d 4f 33 29 3a 4d 31 3d 9b |2)*.(N3-O3):M1=.|
0000a6a0 28 52 33 29 2a b5 28 6b 32 29 2d b5 28 52 33 29 |(R3)*.(k2)-.(R3)|
0000a6b0 2a 9b 28 6b 32 29 2a 9b 28 4e 33 2d 4f 33 29 3a |*.(k2)*.(N3-O3):|
0000a6c0 58 30 3d 99 28 6c 31 2f 4d 31 29 3a e7 4d 31 3c |X0=.(l1/M1):.M1<|
0000a6d0 30 3a 58 30 2b 3d af 3a 8b e7 4d 31 3e 3d 30 80 |0:X0+=.:..M1>=0.|
0000a6e0 6c 31 3c 30 3a 58 30 2b 3d 32 2a af 0d 03 82 11 |l1<0:X0+=2*.....|
0000a6f0 e7 58 30 3c 30 3a 58 30 2b 3d 32 2a af 0d 03 83 |.X0<0:X0+=2*....|
0000a700 07 3d 58 30 0d 03 84 ba dd a4 69 3a 41 3d 28 66 |.=X0......i:A=(f|
0000a710 2d 33 36 35 32 35 29 2f 33 36 35 32 35 3a 69 33 |-36525)/36525:i3|
0000a720 3d b2 28 31 32 35 2e 30 34 34 35 32 32 2d 31 39 |=.(125.044522-19|
0000a730 33 34 2e 31 33 36 32 36 31 2a 41 29 3a 53 31 3d |34.136261*A):S1=|
0000a740 b2 28 31 2e 35 34 32 34 31 36 36 36 37 29 3a 77 |.(1.542416667):w|
0000a750 3d 99 28 28 9b 28 69 33 2d 6b 30 29 2a b5 28 53 |=.((.(i3-k0)*.(S|
0000a760 31 29 29 2f 28 9b 28 59 31 29 2a 9b 28 53 31 29 |1))/(.(Y1)*.(S1)|
0000a770 2b b5 28 59 31 29 2a b5 28 53 31 29 2a b5 28 69 |+.(Y1)*.(S1)*.(i|
0000a780 33 2d 6b 30 29 29 29 3a 77 2b 3d 99 28 28 b5 28 |3-k0))):w+=.((.(|
0000a790 4f 30 29 2a 9b 28 6b 30 29 29 2f 28 b5 28 4f 30 |O0)*.(k0))/(.(O0|
0000a7a0 29 2a b5 28 59 31 29 2a b5 28 6b 30 29 2d 9b 28 |)*.(Y1)*.(k0)-.(|
0000a7b0 4f 30 29 2a 9b 28 59 31 29 29 29 3a 3d 77 0d 03 |O0)*.(Y1))):=w..|
0000a7c0 85 50 dd f2 67 31 3a c8 99 34 36 2c 33 31 37 2c |.P..g1:..46,317,|
0000a7d0 4c 25 2c 22 66 75 6c 6c 6d 6f 6f 6e 22 2c 30 b8 |L%,"fullmoon",0.|
0000a7e0 7a 25 2c 6f 25 2c 44 30 25 2c 46 30 25 3a 41 30 |z%,o%,D0%,F0%:A0|
0000a7f0 25 3d b9 3a e6 30 3a c8 93 c8 90 30 2c 30 2c 33 |%=.:.0:....0,0,3|
0000a800 30 2c 33 30 3a e7 48 31 3e 30 2e 30 33 8c 0d 03 |0,30:.H1>0.03...|
0000a810 86 57 e6 31 35 3a ec 31 34 2c 31 34 3a ec 31 35 |.W.15:.14,14:.15|
0000a820 2b 31 36 2a 9b 28 58 30 29 2c 31 35 2b 31 36 2a |+16*.(X0),15+16*|
0000a830 b5 28 58 30 29 3a f0 31 38 31 2c 31 35 2b 31 36 |.(X0):.181,15+16|
0000a840 2a 9b 28 58 30 2b af 29 2c 31 35 2b 31 36 2a b5 |*.(X0+.),15+16*.|
0000a850 28 58 30 2b af 29 3a e6 31 35 3a e7 48 31 3c 30 |(X0+.):.15:.H1<0|
0000a860 2e 35 3a e6 30 0d 03 87 23 c8 9d c8 90 31 35 2c |.5:.0...#....15,|
0000a870 31 35 2c 31 36 2c 31 35 2a 28 30 2e 35 2d 48 31 |15,16,15*(0.5-H1|
0000a880 29 2f 30 2e 35 2c 58 30 0d 03 88 62 cd 3a c8 99 |)/0.5,X0...b.:..|
0000a890 34 36 2c 7a 25 2c 6f 25 2c 44 30 25 2c 46 30 25 |46,z%,o%,D0%,F0%|
0000a8a0 3a 41 30 25 3d a3 3a c8 99 34 36 2c 33 31 36 2c |:A0%=.:..46,316,|
0000a8b0 4c 25 2c 22 6d 6f 6f 6e 22 2c 30 b8 7a 25 2c 6f |L%,"moon",0.z%,o|
0000a8c0 25 2c 44 30 25 2c 46 30 25 3a 41 30 25 3d b9 3a |%,D0%,F0%:A0%=.:|
0000a8d0 e6 36 3a c8 93 c8 90 30 2c 30 2c 33 30 2c 33 30 |.6:....0,0,30,30|
0000a8e0 3a e7 48 31 3e 30 2e 30 33 8c 0d 03 89 23 ec 30 |:.H1>0.03....#.0|
0000a8f0 2c 30 3a c8 99 34 36 2c 32 38 34 2c 4c 25 2c 22 |,0:..46,284,L%,"|
0000a900 66 75 6c 6c 6d 6f 6f 6e 22 2c 2c 2c 38 0d 03 8a |fullmoon",,,8...|
0000a910 27 cd 3a c8 99 34 36 2c 7a 25 2c 6f 25 2c 44 30 |'.:..46,z%,o%,D0|
0000a920 25 2c 46 30 25 3a 41 30 25 3d a3 3a e7 62 33 25 |%,F0%:A0%=.:.b3%|
0000a930 3a f2 43 30 0d 03 8b 05 e1 0d 03 8c 6b dd f2 43 |:.C0........k..C|
0000a940 30 3a ea 60 31 25 2c 41 32 25 2c 56 31 25 2c 50 |0:.`1%,A2%,V1%,P|
0000a950 32 25 3a c8 99 34 36 2c 33 31 37 2c 4c 25 2c 22 |2%:..46,317,L%,"|
0000a960 62 69 67 5f 6d 6f 6f 6e 22 2c 30 b8 7a 25 2c 6f |big_moon",0.z%,o|
0000a970 25 2c 44 30 25 2c 46 30 25 3a 41 30 25 3d b9 3a |%,D0%,F0%:A0%=.:|
0000a980 e6 30 3a c8 93 c8 90 30 2c 30 2c 31 32 38 2c 31 |.0:....0,0,128,1|
0000a990 32 38 3a e6 31 35 3a ec 36 32 2c 36 32 3a e7 58 |28:.15:.62,62:.X|
0000a9a0 30 3e af 8c 0d 03 8d 15 ec 36 32 2c 30 3a f0 31 |0>.......62,0:.1|
0000a9b0 38 31 2c 36 32 2c 31 32 38 0d 03 8e 17 cc 3a ec |81,62,128.....:.|
0000a9c0 36 32 2c 31 32 38 3a f0 31 38 31 2c 36 32 2c 30 |62,128:.181,62,0|
0000a9d0 0d 03 8f 10 cd 3a e7 48 31 3c 30 2e 35 3a e6 30 |.....:.H1<0.5:.0|
0000a9e0 0d 03 90 ef ec 36 32 2c 36 32 3a ec 36 32 2b 31 |.....62,62:.62+1|
0000a9f0 32 30 2a 28 30 2e 35 2d 48 31 29 2c 36 32 3a f0 |20*(0.5-H1),62:.|
0000aa00 32 30 35 2c 36 32 2c 30 3a c8 99 34 36 2c 7a 25 |205,62,0:..46,z%|
0000aa10 2c 6f 25 2c 44 30 25 2c 46 30 25 3a 41 30 25 3d |,o%,D0%,F0%:A0%=|
0000aa20 a3 3a c8 99 34 36 2c 33 31 36 2c 4c 25 2c 22 6e |.:..46,316,L%,"n|
0000aa30 65 77 5f 6d 6f 6f 6e 22 2c 30 b8 7a 25 2c 6f 25 |ew_moon",0.z%,o%|
0000aa40 2c 44 30 25 2c 46 30 25 3a 41 30 25 3d b9 3a e6 |,D0%,F0%:A0%=.:.|
0000aa50 37 3a c8 93 c8 90 30 2c 30 2c 31 32 38 2c 32 30 |7:....0,0,128,20|
0000aa60 30 3a c8 91 30 2c 37 32 3a e6 36 3a ec 36 32 2c |0:..0,72:.6:.62,|
0000aa70 36 32 3a f0 31 35 33 2c 36 30 2c 30 3a ec 30 2c |62:.153,60,0:.0,|
0000aa80 30 3a c8 99 34 36 2c 32 38 34 2c 4c 25 2c 22 62 |0:..46,284,L%,"b|
0000aa90 69 67 5f 6d 6f 6f 6e 22 2c 2c 2c 38 3a c8 91 30 |ig_moon",,,8:..0|
0000aaa0 2c 30 3a e6 32 3a ec 36 32 2c 33 34 3a f0 31 35 |,0:.2:.62,34:.15|
0000aab0 33 2c 31 36 2c 30 3a ec 36 32 2d 33 30 2a b5 28 |3,16,0:.62-30*.(|
0000aac0 52 32 29 2c 33 34 2b 33 30 2a 9b 28 52 32 29 0d |R2),34+30*.(R2).|
0000aad0 03 91 f4 f0 31 2c 36 30 2a b5 28 52 32 29 2c 2d |....1,60*.(R2),-|
0000aae0 36 30 2a 9b 28 52 32 29 3a c8 99 34 36 2c 7a 25 |60*.(R2):..46,z%|
0000aaf0 2c 6f 25 2c 44 30 25 2c 46 30 25 3a 41 30 25 3d |,o%,D0%,F0%:A0%=|
0000ab00 a3 3a 48 25 21 30 3d 51 31 25 3a 48 25 21 34 3d |.:H%!0=Q1%:H%!4=|
0000ab10 31 3a c8 99 26 34 30 30 63 65 2c 2c 48 25 3a 60 |1:..&400ce,,H%:`|
0000ab20 31 25 3d 48 25 21 38 3a 41 32 25 3d 48 25 21 31 |1%=H%!8:A2%=H%!1|
0000ab30 32 3a 56 31 25 3d 48 25 21 31 36 3a 50 32 25 3d |2:V1%=H%!16:P2%=|
0000ab40 48 25 21 32 30 3a c8 99 26 34 30 30 64 31 2c 51 |H%!20:..&400d1,Q|
0000ab50 31 25 2c 60 31 25 2c 41 32 25 2c 56 31 25 2c 50 |1%,`1%,A2%,V1%,P|
0000ab60 32 25 3a f2 41 28 51 31 25 2c 33 2c c3 28 a8 28 |2%:.A(Q1%,3,.(.(|
0000ab70 30 2e 35 2b 48 31 2a 31 30 30 29 29 2b 22 25 22 |0.5+H1*100))+"%"|
0000ab80 29 3a f2 41 28 51 31 25 2c 35 2c c3 28 a8 7a 30 |):.A(Q1%,5,.(.z0|
0000ab90 29 2b 22 20 64 61 79 73 20 22 29 3a f2 52 31 3a |)+" days "):.R1:|
0000aba0 f2 41 28 51 31 25 2c 37 2c a4 53 28 46 34 29 29 |.A(Q1%,7,.S(F4))|
0000abb0 3a f2 41 28 51 31 25 2c 39 2c a4 53 28 69 32 29 |:.A(Q1%,9,.S(i2)|
0000abc0 29 3a e1 0d 03 92 24 dd f2 52 31 3a ea 6a 3a 6a |):....$..R1:.j:j|
0000abd0 3d 2d 31 3a 52 30 3d 31 32 2b 56 30 25 3a e7 50 |=-1:R0=12+V0%:.P|
0000abe0 30 25 52 30 2b 3d 31 0d 03 93 2b f2 52 3a 69 32 |0%R0+=1...+.R:i2|
0000abf0 3d 5a 30 3a 52 30 3d a4 4a 28 63 30 2c 6a 29 3a |=Z0:R0=.J(c0,j):|
0000ac00 44 3d 52 30 2b 56 30 25 3a e7 50 30 25 3a 44 2b |D=R0+V0%:.P0%:D+|
0000ac10 3d 31 0d 03 94 0e e7 44 3e 32 34 3a 6a 2d 3d 31 |=1.....D>24:j-=1|
0000ac20 0d 03 95 0d e7 44 3c 32 34 6a 2b 3d 31 0d 03 96 |.....D<24j+=1...|
0000ac30 2a f2 52 3a 6a 3d 2d 31 3a 52 30 3d a4 4a 28 63 |*.R:j=-1:R0=.J(c|
0000ac40 30 2c 6a 29 3a 44 3d 52 30 2b 56 30 25 3a e7 50 |0,j):D=R0+V0%:.P|
0000ac50 30 25 3a 44 2b 3d 31 0d 03 97 0e e7 44 3e 32 34 |0%:D+=1.....D>24|
0000ac60 3a 6a 2d 3d 31 0d 03 98 0d e7 44 3c 32 34 6a 2b |:j-=1.....D<24j+|
0000ac70 3d 31 0d 03 99 2a f2 52 3a 6a 3d 2d 31 3a 52 30 |=1...*.R:j=-1:R0|
0000ac80 3d a4 4a 28 63 30 2c 6a 29 3a 44 3d 52 30 2b 56 |=.J(c0,j):D=R0+V|
0000ac90 30 25 3a e7 50 30 25 3a 44 2b 3d 31 0d 03 9a 0e |0%:.P0%:D+=1....|
0000aca0 e7 44 3e 32 34 3a 6a 2d 3d 31 0d 03 9b 0d e7 44 |.D>24:j-=1.....D|
0000acb0 3c 32 34 6a 2b 3d 31 0d 03 9c 34 f2 52 3a 6a 3d |<24j+=1...4.R:j=|
0000acc0 2d 31 3a 46 34 3d a4 4c 28 63 30 29 3a 52 30 3d |-1:F4=.L(c0):R0=|
0000acd0 a4 4a 28 69 32 2c 6a 29 3a 44 3d 52 30 2b 56 30 |.J(i2,j):D=R0+V0|
0000ace0 25 3a e7 50 30 25 3a 44 2b 3d 31 0d 03 9d 0e e7 |%:.P0%:D+=1.....|
0000acf0 44 3e 32 34 3a 6a 2d 3d 31 0d 03 9e 0d e7 44 3c |D>24:j-=1.....D<|
0000ad00 32 34 6a 2b 3d 31 0d 03 9f 2a f2 52 3a 6a 3d 2d |24j+=1...*.R:j=-|
0000ad10 31 3a 52 30 3d a4 4a 28 5a 30 2c 6a 29 3a 44 3d |1:R0=.J(Z0,j):D=|
0000ad20 52 30 2b 56 30 25 3a e7 50 30 25 3a 44 2b 3d 31 |R0+V0%:.P0%:D+=1|
0000ad30 0d 03 a0 0e e7 44 3e 32 34 3a 6a 2d 3d 31 0d 03 |.....D>24:j-=1..|
0000ad40 a1 0d e7 44 3c 32 34 6a 2b 3d 31 0d 03 a2 2a f2 |...D<24j+=1...*.|
0000ad50 52 3a 6a 3d 2d 31 3a 52 30 3d a4 4a 28 5a 30 2c |R:j=-1:R0=.J(Z0,|
0000ad60 6a 29 3a 44 3d 52 30 2b 56 30 25 3a e7 50 30 25 |j):D=R0+V0%:.P0%|
0000ad70 3a 44 2b 3d 31 0d 03 a3 0e e7 44 3e 32 34 3a 6a |:D+=1.....D>24:j|
0000ad80 2d 3d 31 0d 03 a4 0d e7 44 3c 32 34 6a 2b 3d 31 |-=1.....D<24j+=1|
0000ad90 0d 03 a5 12 f2 52 3a 69 32 3d a4 4c 28 5a 30 29 |.....R:i2=.L(Z0)|
0000ada0 3a e1 0d 03 a6 8b dd f2 52 3a ea 64 32 2c 6b 33 |:.......R:.d2,k3|
0000adb0 2c 4c 33 3a 44 32 3d a4 55 28 66 2b 6a 29 3a f2 |,L3:D2=.U(f+j):.|
0000adc0 44 30 28 66 2b 6a 2c 52 30 2c 64 32 2c 6b 33 2c |D0(f+j,R0,d2,k3,|
0000add0 4c 33 29 3a 50 31 3d 32 2e 37 32 34 39 45 2d 31 |L3):P1=2.7249E-1|
0000ade0 2a b5 28 4c 33 29 3a 76 32 3d 50 31 2b 39 2e 38 |*.(L3):v2=P1+9.8|
0000adf0 39 30 32 45 2d 33 2d 4c 33 3a 64 32 3d 64 32 2b |902E-3-L3:d2=d2+|
0000ae00 b2 28 44 32 29 3a f2 4e 28 64 32 2c 6b 33 2c 4f |.(D2):.N(d2,k3,O|
0000ae10 30 29 3a f2 75 28 64 32 2c 6b 33 2c 63 30 2c 5a |0):.u(d2,k3,c0,Z|
0000ae20 30 2c 6f 30 2c 79 30 2c 76 32 29 3a e1 0d 03 a7 |0,o0,y0,v2):....|
0000ae30 7a dd f2 6a 3a 4d 30 3d 30 3a 6d 30 3d 30 3a 56 |z..j:M0=0:m0=0:V|
0000ae40 33 3d 30 3a 4f 30 3d a4 5a 28 66 29 3a f2 68 28 |3=0:O0=.Z(f):.h(|
0000ae50 66 2c 6b 2c 4d 30 2c 56 33 29 3a 44 32 3d a4 55 |f,k,M0,V3):D2=.U|
0000ae60 28 66 29 3a 73 34 3d a4 50 28 66 29 3a 4d 30 3d |(f):s4=.P(f):M0=|
0000ae70 b2 28 9d 28 4d 30 29 2b 44 32 2d 35 2e 36 39 45 |.(.(M0)+D2-5.69E|
0000ae80 2d 33 29 3a f2 4e 28 4d 30 2c 6d 30 2c 4f 30 29 |-3):.N(M0,m0,O0)|
0000ae90 3a 6d 3d 4d 30 2b af 3a e7 6d 3e 32 2a af 3a 6d |:m=M0+.:.m>2*.:m|
0000aea0 2d 3d 28 32 2a af 29 0d 03 a8 fa 69 30 3d 2d 6d |-=(2*.)....i0=-m|
0000aeb0 30 3a 4d 30 3d 32 34 30 2a 9d 28 4d 30 29 3a 44 |0:M0=240*.(M0):D|
0000aec0 25 28 30 29 3d 4d 30 3a 6d 30 3d 33 36 30 30 2a |%(0)=M0:m0=3600*|
0000aed0 9d 28 6d 30 29 3a 48 25 28 30 29 3d 6d 30 3a 46 |.(m0):H%(0)=m0:F|
0000aee0 24 28 30 29 3d c0 c3 28 56 33 29 2c 38 29 2b 22 |$(0)=..(V3),8)+"|
0000aef0 20 41 55 22 3a 49 30 3d 30 3a 4c 30 3d 30 3a 58 | AU":I0=0:L0=0:X|
0000af00 31 3d 30 3a f2 44 30 28 66 2c 6b 2c 49 30 2c 4c |1=0:.D0(f,k,I0,L|
0000af10 30 2c 58 31 29 3a 48 31 3d a4 64 3a 49 30 3d b2 |0,X1):H1=.d:I0=.|
0000af20 28 9d 28 49 30 29 2b 44 32 29 3a f2 4e 28 49 30 |(.(I0)+D2):.N(I0|
0000af30 2c 4c 30 2c 4f 30 29 3a 42 3d 9d 28 49 30 29 2f |,L0,O0):B=.(I0)/|
0000af40 31 35 3a f2 56 28 42 2c 4c 30 2c 41 30 29 3a 42 |15:.V(B,L0,A0):B|
0000af50 3d b2 28 42 2a 31 35 29 3a f2 6e 28 42 2c 4c 30 |=.(B*15):.n(B,L0|
0000af60 2c 71 2c 47 33 2c 58 31 29 3a 42 3d 9d 28 42 29 |,q,G3,X1):B=.(B)|
0000af70 2f 31 35 3a f2 56 28 42 2c 4c 30 2c 41 30 29 3a |/15:.V(B,L0,A0):|
0000af80 49 30 3d b2 28 42 2a 31 35 29 3a 49 30 3d 32 34 |I0=.(B*15):I0=24|
0000af90 30 2a 9d 28 49 30 29 3a 44 25 28 31 30 29 3d 49 |0*.(I0):D%(10)=I|
0000afa0 30 0d 03 a9 c4 4c 30 3d 33 36 30 30 2a 9d 28 4c |0....L0=3600*.(L|
0000afb0 30 29 3a 48 25 28 31 30 29 3d 4c 30 3a 68 34 3d |0):H%(10)=L0:h4=|
0000afc0 36 33 37 38 2e 31 34 2f b5 28 58 31 29 3a 58 30 |6378.14/.(X1):X0|
0000afd0 3d a4 66 3a 52 32 3d a4 69 3a 4b 24 3d 22 4d 6f |=.f:R2=.i:K$="Mo|
0000afe0 6f 6e 20 61 6e 67 6c 65 20 3d 22 2b c3 28 9d 28 |on angle ="+.(.(|
0000aff0 52 32 29 29 3a 65 30 25 3d b9 3a f2 67 31 3a 46 |R2)):e0%=.:.g1:F|
0000b000 24 28 31 30 29 3d c3 28 a8 28 68 34 29 29 2b 22 |$(10)=.(.(h4))+"|
0000b010 20 4b 6d 22 3a 43 24 28 31 30 29 3d 22 4d 6f 6f | Km":C$(10)="Moo|
0000b020 6e 20 28 50 68 61 73 65 20 3d 20 22 2b c3 28 a8 |n (Phase = "+.(.|
0000b030 28 48 31 2a 31 30 30 30 29 29 2b 22 29 20 4c 69 |(H1*1000))+") Li|
0000b040 6d 62 3d 22 2b c3 28 9d 58 30 29 3a e7 47 33 25 |mb="+.(.X0):.G3%|
0000b050 84 28 47 30 25 80 49 32 25 29 84 28 49 30 25 80 |.(G0%.I2%).(I0%.|
0000b060 6d 31 25 29 8c 0d 03 aa 80 6d 3d 9d 28 6d 29 2f |m1%).....m=.(m)/|
0000b070 31 35 3a f2 56 28 6d 2c 69 30 2c 41 30 29 3a 6d |15:.V(m,i0,A0):m|
0000b080 3d b2 28 6d 2a 31 35 29 3a f2 6e 28 6d 2c 69 30 |=.(m*15):.n(m,i0|
0000b090 2c 71 2c 47 33 2c 58 31 29 3a 6d 3d 9d 28 6d 29 |,q,G3,X1):m=.(m)|
0000b0a0 2f 31 35 3a f2 56 28 6d 2c 69 30 2c 41 30 29 3a |/15:.V(m,i0,A0):|
0000b0b0 6d 3d b2 28 6d 2a 31 35 29 3a 6d 3d 32 34 30 2a |m=.(m*15):m=240*|
0000b0c0 9d 28 6d 29 3a 44 25 28 31 31 29 3d 6d 3a 69 30 |.(m):D%(11)=m:i0|
0000b0d0 3d 33 36 30 30 2a 9d 28 69 30 29 3a 48 25 28 31 |=3600*.(i0):H%(1|
0000b0e0 31 29 3d 69 30 0d 03 ab 22 cd 3a f2 58 30 28 66 |1)=i0...".:.X0(f|
0000b0f0 2c 6b 29 3a e3 57 25 3d 31 b8 37 3a 41 31 25 3d |,k):.W%=1.7:A1%=|
0000b100 a3 3a c8 8e 57 25 ca 0d 03 ac 21 c9 31 3a e7 28 |.:..W%....!.1:.(|
0000b110 47 30 25 80 51 32 25 29 84 28 49 30 25 80 4a 32 |G0%.Q2%).(I0%.J2|
0000b120 25 29 3a 41 31 25 3d b9 0d 03 ad 21 c9 32 3a e7 |%):A1%=....!.2:.|
0000b130 28 47 30 25 80 70 31 25 29 84 28 49 30 25 80 6c |(G0%.p1%).(I0%.l|
0000b140 31 25 29 3a 41 31 25 3d b9 0d 03 ae 21 c9 33 3a |1%):A1%=....!.3:|
0000b150 e7 28 47 30 25 80 42 32 25 29 84 28 49 30 25 80 |.(G0%.B2%).(I0%.|
0000b160 6b 31 25 29 3a 41 31 25 3d b9 0d 03 af 21 c9 34 |k1%):A1%=....!.4|
0000b170 3a e7 28 47 30 25 80 43 32 25 29 84 28 49 30 25 |:.(G0%.C2%).(I0%|
0000b180 80 54 32 25 29 3a 41 31 25 3d b9 0d 03 b0 21 c9 |.T2%):A1%=....!.|
0000b190 35 3a e7 28 47 30 25 80 4f 32 25 29 84 28 49 30 |5:.(G0%.O2%).(I0|
0000b1a0 25 80 46 32 25 29 3a 41 31 25 3d b9 0d 03 b1 21 |%.F2%):A1%=....!|
0000b1b0 c9 36 3a e7 28 47 30 25 80 48 32 25 29 84 28 49 |.6:.(G0%.H2%).(I|
0000b1c0 30 25 80 4c 32 25 29 3a 41 31 25 3d b9 0d 03 b2 |0%.L2%):A1%=....|
0000b1d0 21 c9 37 3a e7 28 47 30 25 80 71 31 25 29 84 28 |!.7:.(G0%.q1%).(|
0000b1e0 49 30 25 80 4e 32 25 29 3a 41 31 25 3d b9 0d 03 |I0%.N2%):A1%=...|
0000b1f0 b3 10 cb 3a e7 47 33 25 3a 41 31 25 3d b9 0d 03 |...:.G3%:A1%=...|
0000b200 b4 09 e7 41 31 25 8c 0d 03 b5 8f f2 67 30 28 66 |...A1%......g0(f|
0000b210 2c 6b 2c 57 25 29 3a 6c 2b 3d b2 28 44 32 29 3a |,k,W%):l+=.(D2):|
0000b220 44 3d 54 31 2b af 2d 6c 3a 4d 3d 9b 28 44 29 3a |D=T1+.-l:M=.(D):|
0000b230 77 3d b5 28 44 29 3a 6c 2d 3d 28 39 2e 39 33 38 |w=.(D):l-=(9.938|
0000b240 37 45 2d 35 2a 4d 2f 9b 28 66 30 29 29 3a 66 30 |7E-5*M/.(f0)):f0|
0000b250 2d 3d 28 39 2e 39 33 38 37 45 2d 35 2a 77 2a b5 |-=(9.9387E-5*w*.|
0000b260 28 66 30 29 29 3a 42 3d 6c 3a 43 3d 66 30 3a f2 |(f0)):B=l:C=f0:.|
0000b270 4e 28 42 2c 43 2c 4f 30 29 3a 42 3d 32 34 30 2a |N(B,C,O0):B=240*|
0000b280 9d 28 42 29 3a 43 3d 33 36 30 30 2a 9d 28 43 29 |.(B):C=3600*.(C)|
0000b290 3a c8 8e 57 25 ca 0d 03 b6 36 c9 31 3a 43 32 3d |:..W%....6.1:C2=|
0000b2a0 42 3a 6d 31 3d 43 3a 44 25 28 31 29 3d 42 3a 48 |B:m1=C:D%(1)=B:H|
0000b2b0 25 28 31 29 3d 43 3a 46 24 28 31 29 3d c0 c3 28 |%(1)=C:F$(1)=..(|
0000b2c0 78 30 29 2c 37 29 2b 22 20 41 55 22 0d 03 b7 36 |x0),7)+" AU"...6|
0000b2d0 c9 32 3a 50 32 3d 42 3a 4d 32 3d 43 3a 44 25 28 |.2:P2=B:M2=C:D%(|
0000b2e0 32 29 3d 42 3a 48 25 28 32 29 3d 43 3a 46 24 28 |2)=B:H%(2)=C:F$(|
0000b2f0 32 29 3d c0 c3 28 78 30 29 2c 37 29 2b 22 20 41 |2)=..(x0),7)+" A|
0000b300 55 22 0d 03 b8 36 c9 33 3a 46 32 3d 42 3a 49 32 |U"...6.3:F2=B:I2|
0000b310 3d 43 3a 44 25 28 34 29 3d 42 3a 48 25 28 34 29 |=C:D%(4)=B:H%(4)|
0000b320 3d 43 3a 46 24 28 34 29 3d c0 c3 28 78 30 29 2c |=C:F$(4)=..(x0),|
0000b330 37 29 2b 22 20 41 55 22 0d 03 b9 36 c9 34 3a 4a |7)+" AU"...6.4:J|
0000b340 32 3d 42 3a 48 32 3d 43 3a 44 25 28 35 29 3d 42 |2=B:H2=C:D%(5)=B|
0000b350 3a 48 25 28 35 29 3d 43 3a 46 24 28 35 29 3d c0 |:H%(5)=C:F$(5)=.|
0000b360 c3 28 78 30 29 2c 37 29 2b 22 20 41 55 22 0d 03 |.(x0),7)+" AU"..|
0000b370 ba 36 c9 35 3a 41 32 3d 42 3a 4c 32 3d 43 3a 44 |.6.5:A2=B:L2=C:D|
0000b380 25 28 36 29 3d 42 3a 48 25 28 36 29 3d 43 3a 46 |%(6)=B:H%(6)=C:F|
0000b390 24 28 36 29 3d c0 c3 28 78 30 29 2c 37 29 2b 22 |$(6)=..(x0),7)+"|
0000b3a0 20 41 55 22 0d 03 bb 36 c9 36 3a 76 31 3d 42 3a | AU"...6.6:v1=B:|
0000b3b0 53 32 3d 43 3a 44 25 28 37 29 3d 42 3a 48 25 28 |S2=C:D%(7)=B:H%(|
0000b3c0 37 29 3d 43 3a 46 24 28 37 29 3d c0 c3 28 78 30 |7)=C:F$(7)=..(x0|
0000b3d0 29 2c 37 29 2b 22 20 41 55 22 0d 03 bc 36 c9 37 |),7)+" AU"...6.7|
0000b3e0 3a 72 31 3d 42 3a 4b 32 3d 43 3a 44 25 28 38 29 |:r1=B:K2=C:D%(8)|
0000b3f0 3d 42 3a 48 25 28 38 29 3d 43 3a 46 24 28 38 29 |=B:H%(8)=C:F$(8)|
0000b400 3d c0 c3 28 78 30 29 2c 37 29 2b 22 20 41 55 22 |=..(x0),7)+" AU"|
0000b410 0d 03 bd 05 cb 0d 03 be 21 cd 3a ed 3a e7 47 33 |........!.:.:.G3|
0000b420 25 84 28 47 30 25 80 53 32 25 29 84 28 49 30 25 |%.(G0%.S2%).(I0%|
0000b430 80 4d 32 25 29 8c 0d 03 bf 37 f2 4f 30 3a 7a 31 |.M2%)....7.O0:z1|
0000b440 3d 42 3a 6a 31 3d 43 3a 44 25 28 39 29 3d 42 3a |=B:j1=C:D%(9)=B:|
0000b450 48 25 28 39 29 3d 43 3a 46 24 28 39 29 3d c0 c3 |H%(9)=C:F$(9)=..|
0000b460 28 78 30 29 2c 37 29 2b 22 20 41 55 22 0d 03 c0 |(x0),7)+" AU"...|
0000b470 8f cd 3a e3 64 25 3d 30 b8 32 3a 6b 25 3d 64 25 |..:.d%=0.2:k%=d%|
0000b480 2a 32 30 3a 24 28 53 33 25 2b 6b 25 29 3d 46 24 |*20:$(S3%+k%)=F$|
0000b490 28 64 25 29 2b bd 28 31 33 29 3a 21 28 42 34 25 |(d%)+.(13):!(B4%|
0000b4a0 2b 28 64 25 2a 34 29 29 3d 53 33 25 2b 6b 25 3a |+(d%*4))=S3%+k%:|
0000b4b0 ed 3a c8 99 37 39 2c 33 2c 28 30 84 42 34 25 29 |.:..79,3,(0.B4%)|
0000b4c0 2c 35 2c 2c 53 33 25 2c 32 30 3a e3 64 25 3d 30 |,5,,S3%,20:.d%=0|
0000b4d0 b8 32 3a 58 25 28 32 2d 64 25 29 3d 28 21 28 42 |.2:X%(2-d%)=(!(B|
0000b4e0 34 25 2b 28 64 25 2a 34 29 29 2d 53 33 25 29 2f |4%+(d%*4))-S3%)/|
0000b4f0 32 30 3a ed 3a 47 33 25 3d a3 3a e1 0d 03 c1 34 |20:.:G3%=.:....4|
0000b500 dd f2 79 30 28 4c 24 29 3a ea 4a 30 25 3a 54 25 |..y0(L$):.J0%:T%|
0000b510 3d 8e 28 4c 24 29 3a c8 95 ac c5 23 54 25 3a 42 |=.(L$):....#T%:B|
0000b520 24 3d be 23 54 25 3a c8 8e c0 42 24 2c 34 29 ca |$=.#T%:...B$,4).|
0000b530 0d 03 c2 21 c9 22 50 6c 61 6e 22 3a 6b 25 3d a4 |...!."Plan":k%=.|
0000b540 46 28 42 24 29 3a 4a 30 25 3d 30 3a c8 8e 42 24 |F(B$):J0%=0:..B$|
0000b550 ca 0d 03 c3 14 c9 22 4d 65 72 63 75 72 79 22 3a |......"Mercury":|
0000b560 4a 30 25 3d 31 0d 03 c4 12 c9 22 56 65 6e 75 73 |J0%=1....."Venus|
0000b570 22 3a 4a 30 25 3d 32 0d 03 c5 11 c9 22 4d 61 72 |":J0%=2....."Mar|
0000b580 73 22 3a 4a 30 25 3d 33 0d 03 c6 14 c9 22 4a 75 |s":J0%=3....."Ju|
0000b590 70 69 74 65 72 22 3a 4a 30 25 3d 34 0d 03 c7 13 |piter":J0%=4....|
0000b5a0 c9 22 53 61 74 75 72 6e 22 3a 4a 30 25 3d 35 0d |."Saturn":J0%=5.|
0000b5b0 03 c8 13 c9 22 55 72 61 6e 75 73 22 3a 4a 30 25 |...."Uranus":J0%|
0000b5c0 3d 36 0d 03 c9 14 c9 22 4e 65 70 74 75 6e 65 22 |=6....."Neptune"|
0000b5d0 3a 4a 30 25 3d 37 0d 03 ca 12 c9 22 50 6c 75 74 |:J0%=7....."Plut|
0000b5e0 6f 22 3a 4a 30 25 3d 38 0d 03 cb 10 cb 3a 4e 24 |o":J0%=8.....:N$|
0000b5f0 28 4a 30 25 29 3d 42 24 0d 03 cc 26 c9 22 4d 65 |(J0%)=B$...&."Me|
0000b600 61 6e 22 3a e3 46 25 3d 30 b8 33 3a 47 28 4a 30 |an":.F%=0.3:G(J0|
0000b610 25 2c 46 25 29 3d a4 46 28 42 24 29 3a ed 0d 03 |%,F%)=.F(B$):...|
0000b620 cd 26 c9 22 50 65 72 69 22 3a e3 46 25 3d 30 b8 |.&."Peri":.F%=0.|
0000b630 33 3a 49 28 4a 30 25 2c 46 25 29 3d a4 46 28 42 |3:I(J0%,F%)=.F(B|
0000b640 24 29 3a ed 0d 03 ce 26 c9 22 45 63 63 65 22 3a |$):....&."Ecce":|
0000b650 e3 46 25 3d 30 b8 33 3a 4b 28 4a 30 25 2c 46 25 |.F%=0.3:K(J0%,F%|
0000b660 29 3d a4 46 28 42 24 29 3a ed 0d 03 cf 26 c9 22 |)=.F(B$):....&."|
0000b670 49 6e 63 6c 22 3a e3 46 25 3d 30 b8 33 3a 48 28 |Incl":.F%=0.3:H(|
0000b680 4a 30 25 2c 46 25 29 3d a4 46 28 42 24 29 3a ed |J0%,F%)=.F(B$):.|
0000b690 0d 03 d0 26 c9 22 41 73 63 65 22 3a e3 46 25 3d |...&."Asce":.F%=|
0000b6a0 30 b8 33 3a 4a 28 4a 30 25 2c 46 25 29 3d a4 46 |0.3:J(J0%,F%)=.F|
0000b6b0 28 42 24 29 3a ed 0d 03 d1 19 c9 22 53 65 6d 69 |(B$):......"Semi|
0000b6c0 22 3a 57 28 4a 30 25 29 3d a4 46 28 42 24 29 0d |":W(J0%)=.F(B$).|
0000b6d0 03 d2 19 c9 22 41 6e 67 75 22 3a 54 28 4a 30 25 |...."Angu":T(J0%|
0000b6e0 29 3d a4 46 28 42 24 29 0d 03 d3 19 c9 22 4d 61 |)=.F(B$)....."Ma|
0000b6f0 67 6e 22 3a 56 28 4a 30 25 29 3d a4 46 28 42 24 |gn":V(J0%)=.F(B$|
0000b700 29 0d 03 d4 1c cb 3a ce 3a c8 99 26 32 30 30 30 |).....:.:..&2000|
0000b710 64 2c 30 2c 54 25 3a 54 25 3d 30 3a e1 0d 03 d5 |d,0,T%:T%=0:....|
0000b720 24 dd a4 46 28 f8 42 24 29 3a 42 24 3d c1 42 24 |$..F(.B$):B$=.B$|
0000b730 2c a7 42 24 2c 22 3a 22 29 2b 31 29 3a 3d bb 42 |,.B$,":")+1):=.B|
0000b740 24 0d 03 d6 43 dd f2 6b 30 28 4c 24 29 3a ea 4a |$...C..k0(L$):.J|
0000b750 30 25 3a 54 25 3d 8e 28 4c 24 29 3a 63 31 25 3d |0%:T%=.(L$):c1%=|
0000b760 30 3a c8 95 ac c5 23 54 25 80 63 31 25 3c 3d 7a |0:....#T%.c1%<=z|
0000b770 33 25 3a 42 24 3d be 23 54 25 3a c8 8e c0 42 24 |3%:B$=.#T%:...B$|
0000b780 2c 34 29 ca 0d 03 d7 1a c9 22 4c 6f 63 3d 22 3a |,4)......"Loc=":|
0000b790 42 24 28 63 31 25 29 3d c1 42 24 2c 35 29 0d 03 |B$(c1%)=.B$,5)..|
0000b7a0 d8 1c c9 22 4c 61 74 3d 22 3a 51 28 63 31 25 29 |..."Lat=":Q(c1%)|
0000b7b0 3d bb 28 c1 42 24 2c 35 29 29 0d 03 d9 1c c9 22 |=.(.B$,5))....."|
0000b7c0 4c 6f 6e 3d 22 3a 52 28 63 31 25 29 3d bb 28 c1 |Lon=":R(c1%)=.(.|
0000b7d0 42 24 2c 35 29 29 0d 03 da 36 c9 22 54 69 6d 3d |B$,5))...6."Tim=|
0000b7e0 22 3a 51 25 28 63 31 25 29 3d bb 28 c1 42 24 2c |":Q%(c1%)=.(.B$,|
0000b7f0 35 29 29 3a e7 a7 42 24 2c 22 44 53 22 29 3a 51 |5)):..B$,"DS"):Q|
0000b800 25 28 63 31 25 29 2b 3d 31 30 30 30 0d 03 db 0a |%(c1%)+=1000....|
0000b810 63 31 25 2b 3d 31 0d 03 dc 99 cb 3a ce 3a c8 99 |c1%+=1.....:.:..|
0000b820 26 32 30 30 30 64 2c 30 2c 54 25 3a 54 25 3d 30 |&2000d,0,T%:T%=0|
0000b830 3a de 50 33 25 32 38 2b 32 34 2a 31 31 3a 6d 25 |:.P3%28+24*11:m%|
0000b840 3d 50 33 25 3a f2 71 28 6d 25 2c 22 4c 6f 63 61 |=P3%:.q(m%,"Loca|
0000b850 74 69 6f 6e 73 22 2c 32 34 30 29 3a e3 46 25 3d |tions",240):.F%=|
0000b860 30 b8 7a 33 25 3a f2 6c 28 42 24 28 46 25 29 29 |0.z3%:.l(B$(F%))|
0000b870 3a ed 3a f2 64 28 6d 25 29 3a 71 3d 51 28 30 29 |:.:.d(m%):q=Q(0)|
0000b880 3a 44 30 3d 52 28 30 29 3a 56 30 25 3d 51 25 28 |:D0=R(0):V0%=Q%(|
0000b890 30 29 83 31 30 30 30 3a e7 51 25 28 30 29 3e 39 |0).1000:.Q%(0)>9|
0000b8a0 39 39 3a 50 30 25 3d b9 3a 8b 50 30 25 3d a3 0d |99:P0%=.:.P0%=..|
0000b8b0 03 dd 0d 58 31 25 3d 50 30 25 3a e1 0d 03 de 80 |...X1%=P0%:.....|
0000b8c0 dd f2 61 28 43 33 25 2c 6b 34 25 29 3a f2 41 28 |..a(C3%,k4%):.A(|
0000b8d0 58 30 25 2c 32 2c c3 28 51 28 43 33 25 29 29 29 |X0%,2,.(Q(C3%)))|
0000b8e0 3a f2 41 28 58 30 25 2c 36 2c c3 28 52 28 43 33 |:.A(X0%,6,.(R(C3|
0000b8f0 25 29 29 29 3a f2 41 28 58 30 25 2c 31 30 2c c3 |%))):.A(X0%,10,.|
0000b900 28 51 25 28 43 33 25 29 83 31 30 30 30 29 29 3a |(Q%(C3%).1000)):|
0000b910 f2 41 28 58 30 25 2c 31 37 2c 42 24 28 43 33 25 |.A(X0%,17,B$(C3%|
0000b920 29 29 3a e7 51 25 28 43 33 25 29 3e 39 39 39 3a |)):.Q%(C3%)>999:|
0000b930 58 31 25 3d b9 3a 8b 58 31 25 3d a3 0d 03 df 23 |X1%=.:.X1%=....#|
0000b940 f2 42 28 58 30 25 2c 31 32 2c 58 31 25 29 3a f2 |.B(X0%,12,X1%):.|
0000b950 48 28 58 30 25 2c 31 33 2c 6b 34 25 29 3a e1 0d |H(X0%,13,k4%):..|
0000b960 03 e0 cf dd f2 58 30 28 66 2c 6b 29 3a 41 3d 28 |.....X0(f,k):A=(|
0000b970 66 2f 33 36 35 32 35 29 2b 28 6b 2f 38 2e 37 36 |f/36525)+(k/8.76|
0000b980 36 45 35 29 3a e3 57 25 3d 31 b8 38 3a 59 33 3d |6E5):.W%=1.8:Y3=|
0000b990 47 28 57 25 2c 31 29 2a 41 3a 4d 3d 33 36 30 2a |G(W%,1)*A:M=360*|
0000b9a0 28 59 33 2d a8 28 59 33 29 29 3a 77 3d 47 28 57 |(Y3-.(Y3)):w=G(W|
0000b9b0 25 2c 30 29 2b 4d 2b 28 47 28 57 25 2c 33 29 2a |%,0)+M+(G(W%,3)*|
0000b9c0 41 2b 47 28 57 25 2c 32 29 29 2a 41 2a 41 3a c8 |A+G(W%,2))*A*A:.|
0000b9d0 95 77 3e 33 36 30 3a 77 2d 3d 33 36 30 3a ce 3a |.w>360:w-=360:.:|
0000b9e0 c8 95 77 3c 30 3a 77 2b 3d 33 36 30 3a ce 3a 42 |..w<0:w+=360:.:B|
0000b9f0 28 57 25 2c 31 29 3d 77 3a 42 28 57 25 2c 32 29 |(W%,1)=w:B(W%,2)|
0000ba00 3d 28 47 28 57 25 2c 31 29 2a 39 2e 38 35 36 32 |=(G(W%,1)*9.8562|
0000ba10 36 33 45 2d 33 29 2b 28 47 28 57 25 2c 32 29 2b |63E-3)+(G(W%,2)+|
0000ba20 47 28 57 25 2c 33 29 29 2f 33 36 35 32 35 0d 03 |G(W%,3))/36525..|
0000ba30 e1 f9 42 28 57 25 2c 33 29 3d 28 28 49 28 57 25 |..B(W%,3)=((I(W%|
0000ba40 2c 33 29 2a 41 2a 49 28 57 25 2c 32 29 29 2a 41 |,3)*A*I(W%,2))*A|
0000ba50 2b 49 28 57 25 2c 31 29 29 2a 41 2b 49 28 57 25 |+I(W%,1))*A+I(W%|
0000ba60 2c 30 29 3a 42 28 57 25 2c 34 29 3d 28 28 4b 28 |,0):B(W%,4)=((K(|
0000ba70 57 25 2c 33 29 2a 41 2a 4b 28 57 25 2c 32 29 29 |W%,3)*A*K(W%,2))|
0000ba80 2a 41 2b 4b 28 57 25 2c 31 29 29 2a 41 2b 4b 28 |*A+K(W%,1))*A+K(|
0000ba90 57 25 2c 30 29 3a 42 28 57 25 2c 35 29 3d 28 28 |W%,0):B(W%,5)=((|
0000baa0 48 28 57 25 2c 33 29 2a 41 2a 48 28 57 25 2c 32 |H(W%,3)*A*H(W%,2|
0000bab0 29 29 2a 41 2b 48 28 57 25 2c 31 29 29 2a 41 2b |))*A+H(W%,1))*A+|
0000bac0 48 28 57 25 2c 30 29 3a 42 28 57 25 2c 36 29 3d |H(W%,0):B(W%,6)=|
0000bad0 28 28 4a 28 57 25 2c 33 29 2a 41 2a 4a 28 57 25 |((J(W%,3)*A*J(W%|
0000bae0 2c 32 29 29 2a 41 2b 4a 28 57 25 2c 31 29 29 2a |,2))*A+J(W%,1))*|
0000baf0 41 2b 4a 28 57 25 2c 30 29 3a 42 28 57 25 2c 37 |A+J(W%,0):B(W%,7|
0000bb00 29 3d 57 28 57 25 29 3a 42 28 57 25 2c 38 29 3d |)=W(W%):B(W%,8)=|
0000bb10 54 28 57 25 29 3a 42 28 57 25 2c 39 29 3d 56 28 |T(W%):B(W%,9)=V(|
0000bb20 57 25 29 3a ed 3a e1 0d 03 e2 a4 dd f2 67 30 28 |W%):.:.......g0(|
0000bb30 66 2c 6b 2c 4a 30 25 29 3a 62 30 3d 4a 30 25 3a |f,k,J0%):b0=J0%:|
0000bb40 4e 32 3d 30 3a 43 31 3d 30 3a 71 31 3d 30 3a f2 |N2=0:C1=0:q1=0:.|
0000bb50 68 28 66 2c 6b 2c 43 31 2c 71 31 29 3a 48 3d 4e |h(f,k,C1,q1):H=N|
0000bb60 31 3a 46 30 3d 71 31 3a 54 31 3d 43 31 2b af 3a |1:F0=q1:T1=C1+.:|
0000bb70 e3 52 31 3d 31 b8 32 3a e3 42 32 3d 31 b8 38 3a |.R1=1.2:.B2=1.8:|
0000bb80 41 28 42 32 29 3d b2 28 42 28 42 32 2c 31 29 2d |A(B2)=.(B(B2,1)-|
0000bb90 42 28 42 32 2c 33 29 2d 4e 32 2a 42 28 42 32 2c |B(B2,3)-N2*B(B2,|
0000bba0 32 29 29 3a ed 42 32 3a 65 3d 30 3a 5f 3d 30 3a |2)):.B2:e=0:_=0:|
0000bbb0 4b 3d 30 3a 50 3d 30 3a 41 31 3d 30 3a 69 3d 30 |K=0:P=0:A1=0:i=0|
0000bbc0 3a 54 30 3d 30 3a c8 8e 62 30 ca 0d 03 e3 0a c9 |:T0=0:..b0......|
0000bbd0 31 3a f2 6c 31 0d 03 e4 0a c9 32 3a f2 4d 30 0d |1:.l1.....2:.M0.|
0000bbe0 03 e5 0a c9 33 3a f2 41 31 0d 03 e6 10 c9 34 3a |....3:.A1.....4:|
0000bbf0 f2 58 3a f2 6f 3a f2 71 30 0d 03 e7 10 c9 35 3a |.X:.o:.q0.....5:|
0000bc00 f2 58 3a f2 6f 3a f2 65 30 0d 03 e8 10 c9 36 3a |.X:.o:.e0.....6:|
0000bc10 f2 58 3a f2 70 3a f2 70 31 0d 03 e9 10 c9 37 3a |.X:.p:.p1.....7:|
0000bc20 f2 58 3a f2 70 3a f2 59 30 0d 03 ea 09 7f 62 30 |.X:.p:.Y0.....b0|
0000bc30 3d 30 0d 03 eb fc cb 3a 65 30 3d 42 28 62 30 2c |=0.....:e0=B(b0,|
0000bc40 34 29 2b 50 3a 4e 31 3d 41 28 62 30 29 2b 41 31 |4)+P:N1=A(b0)+A1|
0000bc50 3a f2 62 28 4e 31 2c 65 30 29 3a 50 30 3d 28 42 |:.b(N1,e0):P0=(B|
0000bc60 28 62 30 2c 37 29 2b 69 29 2a 28 31 2d 65 30 2a |(b0,7)+i)*(1-e0*|
0000bc70 65 30 29 2f 28 31 2b 65 30 2a 9b 28 4f 32 29 29 |e0)/(1+e0*.(O2))|
0000bc80 3a 74 31 3d 9d 28 4f 32 29 2b 42 28 62 30 2c 33 |:t1=.(O2)+B(b0,3|
0000bc90 29 2b 9d 28 4b 2d 41 31 29 3a 74 31 3d b2 28 74 |)+.(K-A1):t1=.(t|
0000bca0 31 29 3a 75 30 3d b2 28 42 28 62 30 2c 36 29 29 |1):u0=.(B(b0,6))|
0000bcb0 3a 47 32 3d 74 31 2d 75 30 3a 44 31 3d b5 28 47 |:G2=t1-u0:D1=.(G|
0000bcc0 32 29 3a 74 30 3d 9b 28 47 32 29 3a 68 31 3d b2 |2):t0=.(G2):h1=.|
0000bcd0 28 42 28 62 30 2c 35 29 29 3a 50 30 3d 50 30 2b |(B(b0,5)):P0=P0+|
0000bce0 5f 3a 4b 31 3d 44 31 2a b5 28 68 31 29 3a 64 30 |_:K1=D1*.(h1):d0|
0000bcf0 3d 44 31 2a 9b 28 68 31 29 3a 73 31 3d 98 28 4b |=D1*.(h1):s1=.(K|
0000bd00 31 29 2b 54 30 3a 4b 31 3d b5 28 73 31 29 3a 4b |1)+T0:K1=.(s1):K|
0000bd10 30 3d 99 28 64 30 2f 74 30 29 2b 75 30 2b b2 28 |0=.(d0/t0)+u0+.(|
0000bd20 65 29 3a e7 74 30 3c 30 3a 4b 30 2b 3d af 0d 03 |e):.t0<0:K0+=...|
0000bd30 ec 0f e7 4b 30 3e 58 3a 4b 30 2d 3d 58 0d 03 ed |...K0>X:K0-=X...|
0000bd40 77 59 30 3d 9b 28 73 31 29 3a 77 30 3d 50 30 2a |wY0=.(s1):w0=P0*|
0000bd50 59 30 3a 56 31 3d 4b 30 2d 54 31 3a 76 30 3d 46 |Y0:V1=K0-T1:v0=F|
0000bd60 30 2a 46 30 2b 50 30 2a 50 30 2d 32 2a 46 30 2a |0*F0+P0*P0-2*F0*|
0000bd70 50 30 2a 59 30 2a 9b 28 56 31 29 3a 76 30 3d b6 |P0*Y0*.(V1):v0=.|
0000bd80 28 76 30 29 3a 4e 32 3d 76 30 2a 35 2e 37 37 35 |(v0):N2=v0*5.775|
0000bd90 35 31 38 45 2d 33 3a e7 52 31 3d 31 3a 79 33 3d |518E-3:.R1=1:y3=|
0000bda0 4b 30 3a 78 30 3d 76 30 3a 42 34 3d 73 31 3a 59 |K0:x0=v0:B4=s1:Y|
0000bdb0 34 3d 50 30 0d 03 ee 20 ed 52 31 3a 67 30 3d b5 |4=P0... .R1:g0=.|
0000bdc0 28 56 31 29 3a 47 30 3d 9b 28 56 31 29 3a e7 62 |(V1):G0=.(V1):.b|
0000bdd0 30 3e 32 8c 0d 03 ef 1c 6c 3d 99 28 46 30 2a 67 |0>2.....l=.(F0*g|
0000bde0 30 2f 28 77 30 2d 46 30 2a 47 30 29 29 2b 4b 30 |0/(w0-F0*G0))+K0|
0000bdf0 0d 03 f0 23 cc 3a 6c 3d 99 28 2d 31 2a 77 30 2a |...#.:l=.(-1*w0*|
0000be00 67 30 2f 28 46 30 2d 77 30 2a 47 30 29 29 2b 54 |g0/(F0-w0*G0))+T|
0000be10 31 2b af 0d 03 f1 40 cd 3a c8 95 6c 3c 30 3a 6c |1+....@.:..l<0:l|
0000be20 2b 3d 58 3a ce 3a c8 95 6c 3e 58 3a 6c 2d 3d 58 |+=X:.:..l>X:l-=X|
0000be30 3a ce 3a 66 30 3d 99 28 77 30 2a 4b 31 2a b5 28 |:.:f0=.(w0*K1*.(|
0000be40 6c 2d 4b 30 29 2f 28 59 30 2a 46 30 2a 67 30 29 |l-K0)/(Y0*F0*g0)|
0000be50 29 3a e1 0d 03 f2 e0 dd f2 6c 31 3a 65 3d 32 2e |):.......l1:e=2.|
0000be60 30 34 45 2d 33 2a 9b 28 35 2a 41 28 32 29 2d 32 |04E-3*.(5*A(2)-2|
0000be70 2a 41 28 31 29 2b 32 2e 31 33 32 38 45 2d 31 29 |*A(1)+2.1328E-1)|
0000be80 3a 65 2b 3d 31 2e 30 33 45 2d 33 2a 9b 28 32 2a |:e+=1.03E-3*.(2*|
0000be90 41 28 32 29 2d 41 28 31 29 2d 32 2e 38 30 34 36 |A(2)-A(1)-2.8046|
0000bea0 29 3a 65 2b 3d 39 2e 31 45 2d 34 2a 9b 28 32 2a |):e+=9.1E-4*.(2*|
0000beb0 41 28 34 29 2d 41 28 31 29 2d 36 2e 34 35 38 32 |A(4)-A(1)-6.4582|
0000bec0 45 2d 31 29 3a 65 2b 3d 37 2e 38 45 2d 34 2a 9b |E-1):e+=7.8E-4*.|
0000bed0 28 35 2a 41 28 32 29 2d 33 2a 41 28 31 29 2b 31 |(5*A(2)-3*A(1)+1|
0000bee0 2e 37 36 39 32 45 2d 31 29 3a 5f 3d 37 2e 35 32 |.7692E-1):_=7.52|
0000bef0 35 45 2d 36 2a 9b 28 32 2a 41 28 34 29 2d 41 28 |5E-6*.(2*A(4)-A(|
0000bf00 31 29 2b 39 2e 32 35 32 35 31 45 2d 31 29 3a 5f |1)+9.25251E-1):_|
0000bf10 2b 3d 36 2e 38 30 32 45 2d 36 2a 9b 28 35 2a 41 |+=6.802E-6*.(5*A|
0000bf20 28 32 29 2d 33 2a 41 28 31 29 2d 34 2e 35 33 36 |(2)-3*A(1)-4.536|
0000bf30 34 32 29 0d 03 f3 4d 5f 2b 3d 35 2e 34 35 37 45 |42)...M_+=5.457E|
0000bf40 2d 36 2a 9b 28 32 2a 41 28 32 29 2d 32 2a 41 28 |-6*.(2*A(2)-2*A(|
0000bf50 31 29 2d 31 2e 32 34 32 34 36 29 3a 5f 2b 3d 33 |1)-1.24246):_+=3|
0000bf60 2e 35 36 39 45 2d 36 2a 9b 28 35 2a 41 28 32 29 |.569E-6*.(5*A(2)|
0000bf70 2d 41 28 31 29 2d 31 2e 33 35 36 39 39 29 3a e1 |-A(1)-1.35699):.|
0000bf80 0d 03 f4 ec dd f2 4d 30 3a 4b 3d 37 2e 37 45 2d |......M0:K=7.7E-|
0000bf90 34 2a b5 28 34 2e 31 34 30 36 2b 41 2a 32 2e 36 |4*.(4.1406+A*2.6|
0000bfa0 32 32 37 29 3a 4b 3d b2 28 4b 29 3a 41 31 3d 4b |227):K=.(K):A1=K|
0000bfb0 3a 65 3d 33 2e 31 33 45 2d 33 2a 9b 28 32 2a 48 |:e=3.13E-3*.(2*H|
0000bfc0 2d 32 2a 41 28 32 29 2d 32 2e 35 38 37 29 3a 65 |-2*A(2)-2.587):e|
0000bfd0 2b 3d 31 2e 39 38 45 2d 33 2a 9b 28 33 2a 48 2d |+=1.98E-3*.(3*H-|
0000bfe0 33 2a 41 28 32 29 2b 34 2e 34 37 36 38 45 2d 32 |3*A(2)+4.4768E-2|
0000bff0 29 3a 65 2b 3d 31 2e 33 36 45 2d 33 2a 9b 28 48 |):e+=1.36E-3*.(H|
0000c000 2d 41 28 32 29 2d 32 2e 30 37 38 38 29 3a 65 2b |-A(2)-2.0788):e+|
0000c010 3d 39 2e 36 45 2d 34 2a 9b 28 33 2a 48 2d 32 2a |=9.6E-4*.(3*H-2*|
0000c020 41 28 32 29 2d 32 2e 33 37 32 31 29 3a 65 2b 3d |A(2)-2.3721):e+=|
0000c030 38 2e 32 45 2d 34 2a 9b 28 41 28 34 29 2d 41 28 |8.2E-4*.(A(4)-A(|
0000c040 32 29 2d 33 2e 36 33 31 38 29 3a 5f 3d 32 2e 32 |2)-3.6318):_=2.2|
0000c050 35 30 31 45 2d 35 2a 9b 28 32 2a 48 2d 32 2a 41 |501E-5*.(2*H-2*A|
0000c060 28 32 29 2d 31 2e 30 31 35 39 32 29 0d 03 f5 d5 |(2)-1.01592)....|
0000c070 5f 2b 3d 31 2e 39 30 34 35 45 2d 35 2a 9b 28 33 |_+=1.9045E-5*.(3|
0000c080 2a 48 2d 33 2a 41 28 32 29 2b 31 2e 36 31 35 37 |*H-3*A(2)+1.6157|
0000c090 37 29 3a 5f 2b 3d 36 2e 38 38 37 45 2d 36 2a 9b |7):_+=6.887E-6*.|
0000c0a0 28 41 28 34 29 2d 41 28 32 29 2d 32 2e 30 36 31 |(A(4)-A(2)-2.061|
0000c0b0 30 36 29 3a 5f 2b 3d 35 2e 31 37 32 45 2d 36 2a |06):_+=5.172E-6*|
0000c0c0 9b 28 48 2d 41 28 32 29 2d 35 2e 30 38 30 36 35 |.(H-A(2)-5.08065|
0000c0d0 45 2d 31 29 3a 5f 2b 3d 33 2e 36 32 45 2d 36 2a |E-1):_+=3.62E-6*|
0000c0e0 9b 28 35 2a 48 2d 34 2a 41 28 32 29 2d 31 2e 38 |.(5*H-4*A(2)-1.8|
0000c0f0 31 38 37 37 29 3a 5f 2b 3d 33 2e 32 38 33 45 2d |1877):_+=3.283E-|
0000c100 36 2a 9b 28 34 2a 48 2d 34 2a 41 28 32 29 2b 31 |6*.(4*H-4*A(2)+1|
0000c110 2e 31 30 38 35 31 29 3a 5f 2b 3d 33 2e 30 37 34 |.10851):_+=3.074|
0000c120 45 2d 36 2a 9b 28 32 2a 41 28 34 29 2d 32 2a 41 |E-6*.(2*A(4)-2*A|
0000c130 28 32 29 2d 39 2e 36 32 38 34 36 45 2d 31 29 3a |(2)-9.62846E-1):|
0000c140 e1 0d 03 f6 f9 dd f2 41 31 3a 44 3d 33 2a 41 28 |.......A1:D=3*A(|
0000c150 34 29 2d 38 2a 41 28 33 29 2b 34 2a 48 3a 6f 34 |4)-8*A(3)+4*H:o4|
0000c160 3d b5 28 44 29 3a 6a 32 3d 9b 28 44 29 3a 4b 3d |=.(D):j2=.(D):K=|
0000c170 2d 28 31 2e 31 33 33 45 2d 32 2a 6f 34 2b 39 2e |-(1.133E-2*o4+9.|
0000c180 33 33 45 2d 33 2a 6a 32 29 3a 4b 3d b2 28 4b 29 |33E-3*j2):K=.(K)|
0000c190 3a 41 31 3d 4b 3a 65 3d 37 2e 30 35 45 2d 33 2a |:A1=K:e=7.05E-3*|
0000c1a0 9b 28 41 28 34 29 2d 41 28 33 29 2d 38 2e 35 34 |.(A(4)-A(3)-8.54|
0000c1b0 34 38 45 2d 31 29 3a 65 2b 3d 36 2e 30 37 45 2d |48E-1):e+=6.07E-|
0000c1c0 33 2a 9b 28 32 2a 41 28 34 29 2d 41 28 33 29 2d |3*.(2*A(4)-A(3)-|
0000c1d0 33 2e 32 38 37 33 29 3a 65 2b 3d 34 2e 34 35 45 |3.2873):e+=4.45E|
0000c1e0 2d 33 2a 9b 28 32 2a 41 28 34 29 2d 32 2a 41 28 |-3*.(2*A(4)-2*A(|
0000c1f0 33 29 2d 33 2e 33 34 39 32 29 3a 65 2b 3d 33 2e |3)-3.3492):e+=3.|
0000c200 38 38 45 2d 33 2a 9b 28 48 2d 32 2a 41 28 33 29 |88E-3*.(H-2*A(3)|
0000c210 2b 33 2e 35 37 37 31 45 2d 31 29 3a 65 2b 3d 32 |+3.5771E-1):e+=2|
0000c220 2e 33 38 45 2d 33 2a 9b 28 48 2d 41 28 33 29 2b |.38E-3*.(H-A(3)+|
0000c230 36 2e 31 32 35 36 45 2d 31 29 0d 03 f7 ef 65 2b |6.1256E-1)....e+|
0000c240 3d 32 2e 30 34 45 2d 33 2a 9b 28 32 2a 48 2d 33 |=2.04E-3*.(2*H-3|
0000c250 2a 41 28 33 29 2b 32 2e 37 36 38 38 29 3a 65 2b |*A(3)+2.7688):e+|
0000c260 3d 31 2e 37 37 45 2d 33 2a 9b 28 33 2a 41 28 33 |=1.77E-3*.(3*A(3|
0000c270 29 2d 41 28 32 29 2d 31 2e 30 30 35 33 29 3a 65 |)-A(2)-1.0053):e|
0000c280 2b 3d 31 2e 33 36 45 2d 33 2a 9b 28 32 2a 48 2d |+=1.36E-3*.(2*H-|
0000c290 34 2a 41 28 33 29 2b 32 2e 36 38 39 34 29 3a 65 |4*A(3)+2.6894):e|
0000c2a0 2b 3d 31 2e 30 34 45 2d 33 2a 9b 28 41 28 34 29 |+=1.04E-3*.(A(4)|
0000c2b0 2b 33 2e 30 37 34 39 45 2d 31 29 3a 5f 3d 35 2e |+3.0749E-1):_=5.|
0000c2c0 33 32 32 37 45 2d 35 2a 9b 28 41 28 34 29 2d 41 |3227E-5*.(A(4)-A|
0000c2d0 28 33 29 2b 37 2e 31 37 38 36 34 45 2d 31 29 3a |(3)+7.17864E-1):|
0000c2e0 5f 2b 3d 35 2e 30 39 38 39 45 2d 35 2a 9b 28 32 |_+=5.0989E-5*.(2|
0000c2f0 2a 41 28 34 29 2d 32 2a 41 28 33 29 2d 31 2e 37 |*A(4)-2*A(3)-1.7|
0000c300 37 39 39 37 29 3a 5f 2b 3d 33 2e 38 32 37 38 45 |7997):_+=3.8278E|
0000c310 2d 35 2a 9b 28 32 2a 41 28 34 29 2d 41 28 33 29 |-5*.(2*A(4)-A(3)|
0000c320 2d 31 2e 37 31 36 31 37 29 0d 03 f8 fb 5f 2b 3d |-1.71617)...._+=|
0000c330 31 2e 35 39 39 36 45 2d 35 2a 9b 28 48 2d 41 28 |1.5996E-5*.(H-A(|
0000c340 33 29 2d 39 2e 36 39 36 31 38 45 2d 31 29 3a 5f |3)-9.69618E-1):_|
0000c350 2b 3d 31 2e 34 37 36 34 45 2d 35 2a 9b 28 32 2a |+=1.4764E-5*.(2*|
0000c360 48 2d 33 2a 41 28 33 29 2b 31 2e 31 39 37 36 38 |H-3*A(3)+1.19768|
0000c370 29 3a 5f 2b 3d 38 2e 39 36 36 45 2d 36 2a 9b 28 |):_+=8.966E-6*.(|
0000c380 41 28 34 29 2d 32 2a 41 28 33 29 2b 37 2e 36 31 |A(4)-2*A(3)+7.61|
0000c390 32 32 35 45 2d 31 29 3a 5f 2b 3d 37 2e 39 31 34 |225E-1):_+=7.914|
0000c3a0 45 2d 36 2a 9b 28 33 2a 41 28 34 29 2d 32 2a 41 |E-6*.(3*A(4)-2*A|
0000c3b0 28 33 29 2d 32 2e 34 33 38 38 37 29 3a 5f 2b 3d |(3)-2.43887):_+=|
0000c3c0 37 2e 30 30 34 45 2d 36 2a 9b 28 32 2a 41 28 34 |7.004E-6*.(2*A(4|
0000c3d0 29 2d 33 2a 41 28 33 29 2d 31 2e 37 39 35 37 33 |)-3*A(3)-1.79573|
0000c3e0 29 3a 5f 2b 3d 36 2e 36 32 45 2d 36 2a 9b 28 48 |):_+=6.62E-6*.(H|
0000c3f0 2d 32 2a 41 28 33 29 2b 31 2e 39 37 35 37 35 29 |-2*A(3)+1.97575)|
0000c400 3a 5f 2b 3d 34 2e 39 33 45 2d 36 2a 9b 28 33 2a |:_+=4.93E-6*.(3*|
0000c410 41 28 34 29 2d 33 2a 41 28 33 29 2d 31 2e 33 33 |A(4)-3*A(3)-1.33|
0000c420 30 36 39 29 0d 03 f9 6c 5f 2b 3d 34 2e 36 39 33 |069)...l_+=4.693|
0000c430 45 2d 36 2a 9b 28 33 2a 48 2d 35 2a 41 28 33 29 |E-6*.(3*H-5*A(3)|
0000c440 2b 33 2e 33 32 36 36 35 29 3a 5f 2b 3d 34 2e 35 |+3.32665):_+=4.5|
0000c450 37 31 45 2d 36 2a 9b 28 32 2a 48 2d 34 2a 41 28 |71E-6*.(2*H-4*A(|
0000c460 33 29 2b 34 2e 32 37 30 38 36 29 3a 5f 2b 3d 34 |3)+4.27086):_+=4|
0000c470 2e 34 30 39 45 2d 36 2a 9b 28 33 2a 41 28 34 29 |.409E-6*.(3*A(4)|
0000c480 2d 41 28 33 29 2d 32 2e 30 32 31 35 38 29 3a e1 |-A(3)-2.02158):.|
0000c490 0d 03 fa b0 dd f2 58 3a 49 3d 41 2f 35 2b 30 2e |......X:I=A/5+0.|
0000c4a0 31 3a 46 31 3d 34 2e 31 34 34 37 33 2b 35 2e 32 |1:F1=4.14473+5.2|
0000c4b0 39 36 39 31 45 31 2a 41 3a 46 31 3d 46 31 2d a8 |9691E1*A:F1=F1-.|
0000c4c0 28 46 31 2f 28 32 2a af 29 29 2a 32 2a af 3a 7a |(F1/(2*.))*2*.:z|
0000c4d0 3d 34 2e 36 34 31 31 31 38 2b 32 2e 31 33 32 39 |=4.641118+2.1329|
0000c4e0 39 31 45 31 2a 41 3a 7a 3d 7a 2d a8 28 7a 2f 28 |91E1*A:z=z-.(z/(|
0000c4f0 32 2a af 29 29 2a 32 2a af 3a 74 3d 34 2e 32 35 |2*.))*2*.:t=4.25|
0000c500 30 31 37 37 2b 37 2e 34 37 38 31 37 32 2a 41 3a |0177+7.478172*A:|
0000c510 74 3d 74 2d a8 28 74 2f 28 32 2a af 29 29 2a 32 |t=t-.(t/(2*.))*2|
0000c520 2a af 3a 67 32 3d 35 2a 7a 2d 32 2a 46 31 3a 51 |*.:g2=5*z-2*F1:Q|
0000c530 33 3d 32 2a 46 31 2d 36 2a 7a 2b 33 2a 74 3a e1 |3=2*F1-6*z+3*t:.|
0000c540 0d 03 fb b1 dd f2 6f 3a 6e 30 3d 7a 2d 46 31 3a |......o:n0=z-F1:|
0000c550 53 3d b5 28 7a 29 3a 51 3d 9b 28 7a 29 3a 60 3d |S=.(z):Q=.(z):`=|
0000c560 b5 28 32 2a 7a 29 3a 59 3d 9b 28 32 2a 7a 29 3a |.(2*z):Y=.(2*z):|
0000c570 51 31 3d b5 28 67 32 29 3a 47 31 3d 9b 28 67 32 |Q1=.(g2):G1=.(g2|
0000c580 29 3a 42 33 3d b5 28 32 2a 67 32 29 3a 58 33 3d |):B3=.(2*g2):X3=|
0000c590 b5 28 51 33 29 3a 64 3d b5 28 6e 30 29 3a 62 3d |.(Q3):d=.(n0):b=|
0000c5a0 9b 28 6e 30 29 3a 68 3d b5 28 32 2a 6e 30 29 3a |.(n0):h=.(2*n0):|
0000c5b0 63 3d 9b 28 32 2a 6e 30 29 3a 43 30 3d b5 28 33 |c=.(2*n0):C0=.(3|
0000c5c0 2a 6e 30 29 3a 72 3d 9b 28 33 2a 6e 30 29 3a 60 |*n0):r=.(3*n0):`|
0000c5d0 31 3d b5 28 34 2a 6e 30 29 3a 66 31 3d 9b 28 34 |1=.(4*n0):f1=.(4|
0000c5e0 2a 6e 30 29 3a 75 32 3d 9b 28 35 2a 6e 30 29 3a |*n0):u2=.(5*n0):|
0000c5f0 e1 0d 03 fc d4 dd f2 71 30 3a 4b 3d 28 33 2e 33 |.......q0:K=(3.3|
0000c600 31 33 36 34 45 2d 31 2d 28 31 2e 30 32 38 31 45 |1364E-1-(1.0281E|
0000c610 2d 32 2b 34 2e 36 39 32 45 2d 33 2a 49 29 2a 49 |-2+4.692E-3*I)*I|
0000c620 29 2a 51 31 3a 4b 2b 3d 28 33 2e 32 32 38 45 2d |)*Q1:K+=(3.228E-|
0000c630 33 2d 28 36 2e 34 34 33 36 45 2d 32 2d 32 2e 30 |3-(6.4436E-2-2.0|
0000c640 37 35 45 2d 33 2a 49 29 2a 49 29 2a 47 31 3a 4b |75E-3*I)*I)*G1:K|
0000c650 3d 4b 2d 28 33 2e 30 38 33 45 2d 33 2b 28 32 2e |=K-(3.083E-3+(2.|
0000c660 37 35 45 2d 34 2d 34 2e 38 39 45 2d 34 2a 49 29 |75E-4-4.89E-4*I)|
0000c670 2a 49 29 2a 42 33 3a 4b 2b 3d 32 2e 34 37 32 45 |*I)*B3:K+=2.472E|
0000c680 2d 33 2a 58 33 2b 31 2e 33 36 31 39 45 2d 32 2a |-3*X3+1.3619E-2*|
0000c690 64 2b 31 2e 38 34 37 32 45 2d 32 2a 68 3a 4b 2b |d+1.8472E-2*h:K+|
0000c6a0 3d 36 2e 37 31 37 45 2d 33 2a 43 30 2b 32 2e 37 |=6.717E-3*C0+2.7|
0000c6b0 37 35 45 2d 33 2a 60 31 2b 36 2e 34 31 37 45 2d |75E-3*`1+6.417E-|
0000c6c0 33 2a 68 2a 53 0d 03 fd d9 4b 2b 3d 28 37 2e 32 |3*h*S....K+=(7.2|
0000c6d0 37 35 45 2d 33 2d 31 2e 32 35 33 45 2d 33 2a 49 |75E-3-1.253E-3*I|
0000c6e0 29 2a 64 2a 53 2b 32 2e 34 33 39 45 2d 33 2a 43 |)*d*S+2.439E-3*C|
0000c6f0 30 2a 53 3a 4b 3d 4b 2d 28 33 2e 35 36 38 31 45 |0*S:K=K-(3.5681E|
0000c700 2d 32 2b 31 2e 32 30 38 45 2d 33 2a 49 29 2a 64 |-2+1.208E-3*I)*d|
0000c710 2a 51 2d 33 2e 37 36 37 45 2d 33 2a 63 2a 53 3a |*Q-3.767E-3*c*S:|
0000c720 4b 3d 4b 2d 28 33 2e 33 38 33 39 45 2d 32 2b 31 |K=K-(3.3839E-2+1|
0000c730 2e 31 32 35 45 2d 33 2a 49 29 2a 62 2a 53 2d 34 |.125E-3*I)*b*S-4|
0000c740 2e 32 36 31 45 2d 33 2a 68 2a 51 3a 4b 2b 3d 28 |.261E-3*h*Q:K+=(|
0000c750 31 2e 31 36 31 45 2d 33 2a 49 2d 36 2e 33 33 33 |1.161E-3*I-6.333|
0000c760 45 2d 33 29 2a 62 2a 51 2b 32 2e 31 37 38 45 2d |E-3)*b*Q+2.178E-|
0000c770 33 2a 51 3a 4b 3d 4b 2d 36 2e 36 37 35 45 2d 33 |3*Q:K=K-6.675E-3|
0000c780 2a 63 2a 51 2d 32 2e 36 36 34 45 2d 33 2a 72 2a |*c*Q-2.664E-3*r*|
0000c790 51 2d 32 2e 35 37 32 45 2d 33 2a 64 2a 60 0d 03 |Q-2.572E-3*d*`..|
0000c7a0 fe e6 4b 3d 4b 2d 33 2e 35 36 37 45 2d 33 2a 68 |..K=K-3.567E-3*h|
0000c7b0 2a 60 2b 32 2e 30 39 34 45 2d 33 2a 62 2a 59 2b |*`+2.094E-3*b*Y+|
0000c7c0 33 2e 33 34 32 45 2d 33 2a 63 2a 59 3a 4b 3d b2 |3.342E-3*c*Y:K=.|
0000c7d0 28 4b 29 3a 50 3d 28 33 36 30 36 2b 28 31 33 30 |(K):P=(3606+(130|
0000c7e0 2d 34 33 2a 49 29 2a 49 29 2a 51 31 2b 28 31 32 |-43*I)*I)*Q1+(12|
0000c7f0 38 39 2d 35 38 30 2a 49 29 2a 47 31 3a 50 3d 50 |89-580*I)*G1:P=P|
0000c800 2d 36 37 36 34 2a 64 2a 53 2d 31 31 31 30 2a 68 |-6764*d*S-1110*h|
0000c810 2a 53 2d 32 32 34 2a 43 30 2a 53 2d 32 30 34 2a |*S-224*C0*S-204*|
0000c820 53 3a 50 2b 3d 28 31 32 38 34 2b 31 31 36 2a 49 |S:P+=(1284+116*I|
0000c830 29 2a 62 2a 53 2b 31 38 38 2a 63 2a 53 3a 50 2b |)*b*S+188*c*S:P+|
0000c840 3d 28 31 34 36 30 2b 31 33 30 2a 49 29 2a 64 2a |=(1460+130*I)*d*|
0000c850 51 2b 32 32 34 2a 68 2a 51 2d 38 31 37 2a 51 3a |Q+224*h*Q-817*Q:|
0000c860 50 2b 3d 36 30 37 34 2a 51 2a 62 2b 39 39 32 2a |P+=6074*Q*b+992*|
0000c870 63 2a 51 2b 35 30 38 2a 72 2a 51 2b 32 33 30 2a |c*Q+508*r*Q+230*|
0000c880 66 31 2a 51 0d 03 ff f9 50 2b 3d 31 30 38 2a 75 |f1*Q....P+=108*u|
0000c890 32 2a 51 2d 28 39 35 36 2b 37 33 2a 49 29 2a 64 |2*Q-(956+73*I)*d|
0000c8a0 2a 60 2b 34 34 38 2a 68 2a 60 3a 50 2b 3d 31 33 |*`+448*h*`:P+=13|
0000c8b0 37 2a 43 30 2a 60 2b 28 31 30 38 2a 49 2d 39 39 |7*C0*`+(108*I-99|
0000c8c0 37 29 2a 62 2a 60 2b 34 38 30 2a 63 2a 60 3a 50 |7)*b*`+480*c*`:P|
0000c8d0 2b 3d 31 34 38 2a 72 2a 60 2b 28 39 39 2a 49 2d |+=148*r*`+(99*I-|
0000c8e0 39 35 36 29 2a 64 2a 59 2b 34 39 30 2a 68 2a 59 |956)*d*Y+490*h*Y|
0000c8f0 3a 50 2b 3d 31 35 38 2a 43 30 2a 59 2b 31 37 39 |:P+=158*C0*Y+179|
0000c900 2a 59 2b 28 31 30 32 34 2b 37 35 2a 49 29 2a 62 |*Y+(1024+75*I)*b|
0000c910 2a 59 3a 50 3d 50 2d 34 33 37 2a 63 2a 59 2d 31 |*Y:P=P-437*c*Y-1|
0000c920 33 32 2a 72 2a 59 3a 50 3d 50 2a 31 45 2d 37 3a |32*r*Y:P=P*1E-7:|
0000c930 57 3d 28 37 2e 31 39 32 45 2d 33 2d 33 2e 31 34 |W=(7.192E-3-3.14|
0000c940 37 45 2d 33 2a 49 29 2a 51 31 2d 34 2e 33 34 34 |7E-3*I)*Q1-4.344|
0000c950 45 2d 33 2a 53 3a 57 2b 3d 28 49 2a 28 31 2e 39 |E-3*S:W+=(I*(1.9|
0000c960 37 45 2d 34 2a 49 2d 36 2e 37 35 45 2d 34 29 2d |7E-4*I-6.75E-4)-|
0000c970 32 2e 30 34 32 38 45 2d 32 29 2a 47 31 0d 04 00 |2.0428E-2)*G1...|
0000c980 fc 57 2b 3d 33 2e 34 30 33 36 45 2d 32 2a 62 2a |.W+=3.4036E-2*b*|
0000c990 53 2b 28 37 2e 32 36 39 45 2d 33 2b 36 2e 37 32 |S+(7.269E-3+6.72|
0000c9a0 45 2d 34 2a 49 29 2a 64 2a 53 3a 57 2b 3d 35 2e |E-4*I)*d*S:W+=5.|
0000c9b0 36 31 34 45 2d 33 2a 63 2a 53 2b 32 2e 39 36 34 |614E-3*c*S+2.964|
0000c9c0 45 2d 33 2a 72 2a 53 2b 33 2e 37 37 36 31 45 2d |E-3*r*S+3.7761E-|
0000c9d0 32 2a 64 2a 51 3a 57 2b 3d 36 2e 31 35 38 45 2d |2*d*Q:W+=6.158E-|
0000c9e0 33 2a 68 2a 51 2d 36 2e 36 30 33 45 2d 33 2a 62 |3*h*Q-6.603E-3*b|
0000c9f0 2a 51 2d 35 2e 33 35 36 45 2d 33 2a 64 2a 60 3a |*Q-5.356E-3*d*`:|
0000ca00 57 2b 3d 32 2e 37 32 32 45 2d 33 2a 68 2a 60 2b |W+=2.722E-3*h*`+|
0000ca10 34 2e 34 38 33 45 2d 33 2a 62 2a 60 3a 57 3d 57 |4.483E-3*b*`:W=W|
0000ca20 2d 32 2e 36 34 32 45 2d 33 2a 63 2a 60 2b 34 2e |-2.642E-3*c*`+4.|
0000ca30 34 30 33 45 2d 33 2a 64 2a 59 3a 57 3d 57 2d 32 |403E-3*d*Y:W=W-2|
0000ca40 2e 35 33 36 45 2d 33 2a 68 2a 59 2b 35 2e 35 34 |.536E-3*h*Y+5.54|
0000ca50 37 45 2d 33 2a 62 2a 59 2d 32 2e 36 38 39 45 2d |7E-3*b*Y-2.689E-|
0000ca60 33 2a 63 2a 59 3a 41 31 3d 4b 2d 28 b2 28 57 29 |3*c*Y:A1=K-(.(W)|
0000ca70 2f 42 28 62 30 2c 34 29 29 0d 04 01 68 69 3d 32 |/B(b0,4))...hi=2|
0000ca80 30 35 2a 62 2d 32 36 33 2a 47 31 2b 36 39 33 2a |05*b-263*G1+693*|
0000ca90 63 2b 33 31 32 2a 72 2b 31 34 37 2a 66 31 2b 32 |c+312*r+147*f1+2|
0000caa0 39 39 2a 64 2a 53 3a 69 2b 3d 31 38 31 2a 63 2a |99*d*S:i+=181*c*|
0000cab0 53 2b 32 30 34 2a 68 2a 51 2b 31 31 31 2a 43 30 |S+204*h*Q+111*C0|
0000cac0 2a 51 2d 33 33 37 2a 62 2a 51 3a 69 3d 69 2d 31 |*Q-337*b*Q:i=i-1|
0000cad0 31 31 2a 63 2a 51 3a 69 3d 69 2a 31 45 2d 36 3a |11*c*Q:i=i*1E-6:|
0000cae0 e1 0d 04 02 f8 dd f2 65 30 3a 5a 32 3d b5 28 33 |.......e0:Z2=.(3|
0000caf0 2a 7a 29 3a 61 32 3d 9b 28 33 2a 7a 29 3a 54 34 |*z):a2=.(3*z):T4|
0000cb00 3d b5 28 34 2a 7a 29 3a 4d 34 3d 9b 28 34 2a 7a |=.(4*z):M4=.(4*z|
0000cb10 29 3a 52 34 3d 9b 28 32 2a 67 32 29 3a 53 34 3d |):R4=.(2*g2):S4=|
0000cb20 b5 28 35 2a 6e 30 29 3a 48 30 3d 74 2d 7a 3a 50 |.(5*n0):H0=t-z:P|
0000cb30 34 3d b5 28 32 2a 48 30 29 3a 4b 34 3d 9b 28 32 |4=.(2*H0):K4=.(2|
0000cb40 2a 48 30 29 3a 72 32 3d b5 28 33 2a 48 30 29 3a |*H0):r2=.(3*H0):|
0000cb50 73 32 3d 9b 28 33 2a 48 30 29 3a 4b 3d 37 2e 35 |s2=.(3*H0):K=7.5|
0000cb60 38 31 45 2d 33 2a 42 33 2d 37 2e 39 38 36 45 2d |81E-3*B3-7.986E-|
0000cb70 33 2a 58 33 2d 31 2e 34 38 38 31 31 45 2d 31 2a |3*X3-1.48811E-1*|
0000cb80 64 3a 4b 3d 4b 2d 28 38 2e 31 34 31 38 31 45 2d |d:K=K-(8.14181E-|
0000cb90 31 2d 28 31 2e 38 31 35 45 2d 32 2d 31 2e 36 37 |1-(1.815E-2-1.67|
0000cba0 31 34 45 2d 32 2a 49 29 2a 49 29 2a 51 31 3a 4b |14E-2*I)*I)*Q1:K|
0000cbb0 3d 4b 2d 28 31 2e 30 34 39 37 45 2d 32 2d 28 31 |=K-(1.0497E-2-(1|
0000cbc0 2e 36 30 39 30 36 45 2d 31 2d 34 2e 31 45 2d 33 |.60906E-1-4.1E-3|
0000cbd0 2a 49 29 2a 49 29 2a 47 31 0d 04 03 f5 4b 3d 4b |*I)*I)*G1....K=K|
0000cbe0 2d 31 2e 35 32 30 38 45 2d 32 2a 43 30 2d 36 2e |-1.5208E-2*C0-6.|
0000cbf0 33 33 39 45 2d 33 2a 60 31 2d 36 2e 32 34 34 45 |339E-3*`1-6.244E|
0000cc00 2d 33 2a 53 3a 4b 3d 4b 2d 31 2e 36 35 45 2d 32 |-3*S:K=K-1.65E-2|
0000cc10 2a 68 2a 53 2d 34 2e 30 37 38 36 45 2d 32 2a 68 |*h*S-4.0786E-2*h|
0000cc20 3a 4b 2b 3d 28 38 2e 39 33 31 45 2d 33 2b 32 2e |:K+=(8.931E-3+2.|
0000cc30 37 32 38 45 2d 33 2a 49 29 2a 64 2a 53 2d 35 2e |728E-3*I)*d*S-5.|
0000cc40 37 37 35 45 2d 33 2a 43 30 2a 53 3a 4b 2b 3d 28 |775E-3*C0*S:K+=(|
0000cc50 38 2e 31 33 34 34 45 2d 32 2b 33 2e 32 30 36 45 |8.1344E-2+3.206E|
0000cc60 2d 33 2a 49 29 2a 62 2a 53 2b 31 2e 35 30 31 39 |-3*I)*b*S+1.5019|
0000cc70 45 2d 32 2a 63 2a 53 3a 4b 2b 3d 28 38 2e 35 35 |E-2*c*S:K+=(8.55|
0000cc80 38 31 45 2d 32 2b 32 2e 34 39 34 45 2d 33 2a 49 |81E-2+2.494E-3*I|
0000cc90 29 2a 64 2a 51 2b 31 2e 34 33 39 34 45 2d 32 2a |)*d*Q+1.4394E-2*|
0000cca0 63 2a 51 3a 4b 2b 3d 28 32 2e 35 33 32 38 45 2d |c*Q:K+=(2.5328E-|
0000ccb0 32 2d 33 2e 31 31 37 45 2d 33 2a 49 29 2a 62 2a |2-3.117E-3*I)*b*|
0000ccc0 51 2b 36 2e 33 31 39 45 2d 33 2a 72 2a 51 0d 04 |Q+6.319E-3*r*Q..|
0000ccd0 04 eb 4b 2b 3d 36 2e 33 36 39 45 2d 33 2a 64 2a |..K+=6.369E-3*d*|
0000cce0 60 2b 39 2e 31 35 36 45 2d 33 2a 68 2a 60 2b 37 |`+9.156E-3*h*`+7|
0000ccf0 2e 35 32 35 45 2d 33 2a 72 32 2a 60 3a 4b 3d 4b |.525E-3*r2*`:K=K|
0000cd00 2d 35 2e 32 33 36 45 2d 33 2a 62 2a 59 2d 37 2e |-5.236E-3*b*Y-7.|
0000cd10 37 33 36 45 2d 33 2a 63 2a 59 2d 37 2e 35 32 38 |736E-3*c*Y-7.528|
0000cd20 45 2d 33 2a 73 32 2a 59 3a 4b 3d b2 28 4b 29 3a |E-3*s2*Y:K=.(K):|
0000cd30 50 3d 28 2d 37 39 32 37 2b 28 32 35 34 38 2b 39 |P=(-7927+(2548+9|
0000cd40 31 2a 49 29 2a 49 29 2a 51 31 3a 50 2b 3d 28 31 |1*I)*I)*Q1:P+=(1|
0000cd50 33 33 38 31 2b 28 31 32 32 36 2d 32 35 33 2a 49 |3381+(1226-253*I|
0000cd60 29 2a 49 29 2a 47 31 2b 28 32 34 38 2d 31 32 31 |)*I)*G1+(248-121|
0000cd70 2a 49 29 2a 42 33 3a 50 3d 50 2d 28 33 30 35 2b |*I)*B3:P=P-(305+|
0000cd80 39 31 2a 49 29 2a 52 34 2b 34 31 32 2a 68 2b 31 |91*I)*R4+412*h+1|
0000cd90 32 34 31 35 2a 53 3a 50 2b 3d 28 33 39 30 2d 36 |2415*S:P+=(390-6|
0000cda0 31 37 2a 49 29 2a 64 2a 53 2b 28 31 36 35 2d 32 |17*I)*d*S+(165-2|
0000cdb0 30 34 2a 49 29 2a 68 2a 53 0d 04 05 fd 50 2b 3d |04*I)*h*S....P+=|
0000cdc0 32 36 35 39 39 2a 62 2a 53 2d 34 36 38 37 2a 63 |26599*b*S-4687*c|
0000cdd0 2a 53 2d 31 38 37 30 2a 72 2a 53 2d 38 32 31 2a |*S-1870*r*S-821*|
0000cde0 66 31 2a 53 3a 50 3d 50 2d 33 37 37 2a 75 32 2a |f1*S:P=P-377*u2*|
0000cdf0 53 2b 34 39 37 2a 4b 34 2a 53 2b 28 31 36 33 2d |S+497*K4*S+(163-|
0000ce00 36 31 31 2a 49 29 2a 51 3a 50 3d 50 2d 31 32 36 |611*I)*Q:P=P-126|
0000ce10 39 36 2a 64 2a 51 2d 34 32 30 30 2a 68 2a 51 2d |96*d*Q-4200*h*Q-|
0000ce20 31 35 30 33 2a 43 30 2a 51 2d 36 31 39 2a 60 31 |1503*C0*Q-619*`1|
0000ce30 2a 51 3a 50 3d 50 2d 32 36 38 2a 53 34 2a 51 2d |*Q:P=P-268*S4*Q-|
0000ce40 28 32 38 32 2b 31 33 30 36 2a 49 29 2a 62 2a 51 |(282+1306*I)*b*Q|
0000ce50 3a 50 2b 3d 28 2d 38 36 2b 32 33 30 2a 49 29 2a |:P+=(-86+230*I)*|
0000ce60 63 2a 51 2b 34 36 31 2a 50 34 2a 51 2d 33 35 30 |c*Q+461*P4*Q-350|
0000ce70 2a 60 3a 50 2b 3d 28 32 32 31 31 2d 32 38 36 2a |*`:P+=(2211-286*|
0000ce80 49 29 2a 64 2a 60 2d 32 32 30 38 2a 68 2a 60 2d |I)*d*`-2208*h*`-|
0000ce90 35 36 38 2a 43 30 2a 60 3a 50 3d 50 2d 33 34 36 |568*C0*`:P=P-346|
0000cea0 2a 60 31 2a 60 2d 28 32 37 38 30 2b 32 32 32 2a |*`1*`-(2780+222*|
0000ceb0 49 29 2a 62 2a 60 0d 04 06 fc 50 2b 3d 28 32 30 |I)*b*`....P+=(20|
0000cec0 32 32 2b 32 36 33 2a 49 29 2a 63 2a 60 2b 32 34 |22+263*I)*c*`+24|
0000ced0 38 2a 72 2a 60 2b 32 34 32 2a 72 32 2a 60 3a 50 |8*r*`+242*r2*`:P|
0000cee0 2b 3d 34 36 37 2a 73 32 2a 60 2d 34 39 30 2a 59 |+=467*s2*`-490*Y|
0000cef0 2d 28 32 38 34 32 2b 32 37 39 2a 49 29 2a 64 2a |-(2842+279*I)*d*|
0000cf00 59 3a 50 2b 3d 28 31 32 38 2b 32 32 36 2a 49 29 |Y:P+=(128+226*I)|
0000cf10 2a 68 2a 59 2b 32 32 34 2a 43 30 2a 59 3a 50 2b |*h*Y+224*C0*Y:P+|
0000cf20 3d 28 2d 31 35 39 34 2b 32 38 32 2a 49 29 2a 62 |=(-1594+282*I)*b|
0000cf30 2a 59 2b 28 32 31 36 32 2d 32 30 37 2a 49 29 2a |*Y+(2162-207*I)*|
0000cf40 63 2a 59 3a 50 2b 3d 35 36 31 2a 72 2a 59 2b 33 |c*Y:P+=561*r*Y+3|
0000cf50 34 33 2a 66 31 2a 59 2b 34 36 39 2a 72 32 2a 59 |43*f1*Y+469*r2*Y|
0000cf60 2d 32 34 32 2a 73 32 2a 59 3a 50 3d 50 2d 32 30 |-242*s2*Y:P=P-20|
0000cf70 35 2a 64 2a 5a 32 2b 32 36 32 2a 43 30 2a 5a 32 |5*d*Z2+262*C0*Z2|
0000cf80 2b 32 30 38 2a 62 2a 61 32 2d 32 37 31 2a 72 2a |+208*b*a2-271*r*|
0000cf90 61 32 3a 50 3d 50 2d 33 38 32 2a 72 2a 54 34 2d |a2:P=P-382*r*T4-|
0000cfa0 33 37 36 2a 43 30 2a 4d 34 3a 50 3d 50 2a 31 45 |376*C0*M4:P=P*1E|
0000cfb0 2d 37 0d 04 07 d1 57 3d 28 37 2e 37 31 30 38 45 |-7....W=(7.7108E|
0000cfc0 2d 32 2b 28 37 2e 31 38 36 45 2d 33 2d 31 2e 35 |-2+(7.186E-3-1.5|
0000cfd0 33 33 45 2d 33 2a 49 29 2a 49 29 2a 51 31 3a 57 |33E-3*I)*I)*Q1:W|
0000cfe0 3d 57 2d 37 2e 30 37 35 45 2d 33 2a 64 3a 57 2b |=W-7.075E-3*d:W+|
0000cff0 3d 28 34 2e 35 38 30 33 45 2d 32 2d 28 31 2e 34 |=(4.5803E-2-(1.4|
0000d000 37 36 36 45 2d 32 2b 35 2e 33 36 45 2d 34 2a 49 |766E-2+5.36E-4*I|
0000d010 29 2a 49 29 2a 47 31 3a 57 3d 57 2d 37 2e 32 35 |)*I)*G1:W=W-7.25|
0000d020 38 36 45 2d 32 2a 51 2d 37 2e 35 38 32 35 45 2d |86E-2*Q-7.5825E-|
0000d030 32 2a 64 2a 53 2d 32 2e 34 38 33 39 45 2d 32 2a |2*d*S-2.4839E-2*|
0000d040 68 2a 53 3a 57 3d 57 2d 38 2e 36 33 31 45 2d 33 |h*S:W=W-8.631E-3|
0000d050 2a 43 30 2a 53 2d 31 2e 35 30 33 38 33 45 2d 31 |*C0*S-1.50383E-1|
0000d060 2a 62 2a 51 3a 57 2b 3d 32 2e 36 38 39 37 45 2d |*b*Q:W+=2.6897E-|
0000d070 32 2a 63 2a 51 2b 31 2e 30 30 35 33 45 2d 32 2a |2*c*Q+1.0053E-2*|
0000d080 72 2a 51 0d 04 08 dc 57 3d 57 2d 28 31 2e 33 35 |r*Q....W=W-(1.35|
0000d090 39 37 45 2d 32 2b 31 2e 37 31 39 45 2d 33 2a 49 |97E-2+1.719E-3*I|
0000d0a0 29 2a 64 2a 60 2b 31 2e 31 39 38 31 45 2d 32 2a |)*d*`+1.1981E-2*|
0000d0b0 68 2a 59 3a 57 3d 57 2d 28 37 2e 37 34 32 45 2d |h*Y:W=W-(7.742E-|
0000d0c0 33 2d 31 2e 35 31 37 45 2d 33 2a 49 29 2a 62 2a |3-1.517E-3*I)*b*|
0000d0d0 60 3a 57 2b 3d 28 31 2e 33 35 38 36 45 2d 32 2d |`:W+=(1.3586E-2-|
0000d0e0 31 2e 33 37 35 45 2d 33 2a 49 29 2a 63 2a 60 3a |1.375E-3*I)*c*`:|
0000d0f0 57 3d 57 2d 28 31 2e 33 36 36 37 45 2d 32 2d 31 |W=W-(1.3667E-2-1|
0000d100 2e 32 33 39 45 2d 33 2a 49 29 2a 64 2a 59 3a 57 |.239E-3*I)*d*Y:W|
0000d110 2b 3d 28 31 2e 34 38 36 31 45 2d 32 2b 31 2e 31 |+=(1.4861E-2+1.1|
0000d120 33 36 45 2d 33 2a 49 29 2a 62 2a 59 3a 57 3d 57 |36E-3*I)*b*Y:W=W|
0000d130 2d 28 31 2e 33 30 36 34 45 2d 32 2b 31 2e 36 32 |-(1.3064E-2+1.62|
0000d140 38 45 2d 33 2a 49 29 2a 63 2a 59 3a 41 31 3d 4b |8E-3*I)*c*Y:A1=K|
0000d150 2d 28 b2 28 57 29 2f 42 28 62 30 2c 34 29 29 0d |-(.(W)/B(b0,4)).|
0000d160 04 09 fc 69 3d 35 37 32 2a 51 31 2d 31 35 39 30 |...i=572*Q1-1590|
0000d170 2a 68 2a 51 2b 32 39 33 33 2a 47 31 2d 36 34 37 |*h*Q+2933*G1-647|
0000d180 2a 43 30 2a 51 3a 69 2b 3d 33 33 36 32 39 2a 62 |*C0*Q:i+=33629*b|
0000d190 2d 33 34 34 2a 60 31 2a 51 2d 33 30 38 31 2a 63 |-344*`1*Q-3081*c|
0000d1a0 2b 32 38 38 35 2a 62 2a 51 3a 69 3d 69 2d 31 34 |+2885*b*Q:i=i-14|
0000d1b0 32 33 2a 72 2b 28 32 31 37 32 2b 31 30 32 2a 49 |23*r+(2172+102*I|
0000d1c0 29 2a 63 2a 51 2d 36 37 31 2a 66 31 3a 69 2b 3d |)*c*Q-671*f1:i+=|
0000d1d0 32 39 36 2a 72 2a 51 2d 33 32 30 2a 75 32 2d 32 |296*r*Q-320*u2-2|
0000d1e0 36 37 2a 68 2a 60 2b 31 30 39 38 2a 53 3a 69 3d |67*h*`+1098*S:i=|
0000d1f0 69 2d 37 37 38 2a 62 2a 60 2d 32 38 31 32 2a 64 |i-778*b*`-2812*d|
0000d200 2a 53 2b 34 39 35 2a 63 2a 60 2b 36 38 38 2a 68 |*S+495*c*`+688*h|
0000d210 2a 53 3a 69 2b 3d 32 35 30 2a 72 2a 60 2d 33 39 |*S:i+=250*r*`-39|
0000d220 33 2a 43 30 2a 53 2d 38 35 36 2a 64 2a 59 2d 32 |3*C0*S-856*d*Y-2|
0000d230 32 38 2a 60 31 2a 53 3a 69 2b 3d 34 34 31 2a 68 |28*`1*S:i+=441*h|
0000d240 2a 59 2b 32 31 33 38 2a 62 2a 53 2b 32 39 36 2a |*Y+2138*b*S+296*|
0000d250 63 2a 59 2d 39 39 39 2a 63 2a 53 0d 04 0a c2 69 |c*Y-999*c*S....i|
0000d260 2b 3d 32 31 31 2a 72 2a 59 2d 36 34 32 2a 72 2a |+=211*r*Y-642*r*|
0000d270 53 2d 34 32 37 2a 64 2a 5a 32 2d 33 32 35 2a 66 |S-427*d*Z2-325*f|
0000d280 31 2a 53 3a 69 2b 3d 33 39 38 2a 43 30 2a 5a 32 |1*S:i+=398*C0*Z2|
0000d290 2d 38 39 30 2a 51 2b 33 34 34 2a 62 2a 61 32 2b |-890*Q+344*b*a2+|
0000d2a0 32 32 30 36 2a 64 2a 51 3a 69 3d 69 2d 34 32 37 |2206*d*Q:i=i-427|
0000d2b0 2a 72 2a 61 32 3a 69 3d 69 2a 31 45 2d 36 3a 54 |*r*a2:i=i*1E-6:T|
0000d2c0 30 3d 37 2e 34 37 45 2d 34 2a 62 2a 53 2b 31 2e |0=7.47E-4*b*S+1.|
0000d2d0 30 36 39 45 2d 33 2a 62 2a 51 2b 32 2e 31 30 38 |069E-3*b*Q+2.108|
0000d2e0 45 2d 33 2a 68 2a 60 3a 54 30 2b 3d 31 2e 32 36 |E-3*h*`:T0+=1.26|
0000d2f0 31 45 2d 33 2a 63 2a 60 2b 31 2e 32 33 36 45 2d |1E-3*c*`+1.236E-|
0000d300 33 2a 68 2a 59 2d 32 2e 30 37 35 45 2d 33 2a 63 |3*h*Y-2.075E-3*c|
0000d310 2a 59 3a 54 30 3d b2 28 54 30 29 3a e1 0d 04 0b |*Y:T0=.(T0):....|
0000d320 66 dd f2 70 3a 48 30 3d 31 2e 34 36 32 30 35 2b |f..p:H0=1.46205+|
0000d330 33 2e 38 31 33 33 37 2a 41 3a 48 30 3d 48 30 2d |3.81337*A:H0=H0-|
0000d340 a8 28 48 30 2f 28 32 2a af 29 29 2a 32 2a af 3a |.(H0/(2*.))*2*.:|
0000d350 56 32 3d 32 2a 48 30 2d 74 3a 4f 31 3d b5 28 56 |V2=2*H0-t:O1=.(V|
0000d360 32 29 3a 42 31 3d 9b 28 56 32 29 3a 6f 31 3d b5 |2):B1=.(V2):o1=.|
0000d370 28 32 2a 56 32 29 3a 6e 31 3d 9b 28 32 2a 56 32 |(2*V2):n1=.(2*V2|
0000d380 29 3a e1 0d 04 0c d8 dd f2 70 31 3a 75 31 3d 74 |):.......p1:u1=t|
0000d390 2d 46 31 3a 6a 30 3d 74 2d 7a 3a 53 30 3d 48 30 |-F1:j0=t-z:S0=H0|
0000d3a0 2d 74 3a 4b 3d 28 38 2e 36 34 33 31 39 45 2d 31 |-t:K=(8.64319E-1|
0000d3b0 2d 31 2e 35 38 33 45 2d 33 2a 49 29 2a 4f 31 3a |-1.583E-3*I)*O1:|
0000d3c0 4b 2b 3d 28 38 2e 32 32 32 32 45 2d 32 2d 36 2e |K+=(8.2222E-2-6.|
0000d3d0 38 33 33 45 2d 33 2a 49 29 2a 42 31 2b 33 2e 36 |833E-3*I)*B1+3.6|
0000d3e0 30 31 37 45 2d 32 2a 6f 31 3a 4b 3d 4b 2d 33 2e |017E-2*o1:K=K-3.|
0000d3f0 30 31 39 45 2d 33 2a 6e 31 2b 38 2e 31 32 32 45 |019E-3*n1+8.122E|
0000d400 2d 33 2a b5 28 51 33 29 3a 4b 3d b2 28 4b 29 3a |-3*.(Q3):K=.(K):|
0000d410 57 3d 31 2e 32 30 33 30 33 45 2d 31 2a 4f 31 2b |W=1.20303E-1*O1+|
0000d420 36 2e 31 39 37 45 2d 33 2a 6f 31 3a 57 2b 3d 28 |6.197E-3*o1:W+=(|
0000d430 31 2e 39 34 37 32 45 2d 32 2d 39 2e 34 37 45 2d |1.9472E-2-9.47E-|
0000d440 34 2a 49 29 2a 42 31 3a 41 31 3d 4b 2d 28 b2 28 |4*I)*B1:A1=K-(.(|
0000d450 57 29 2f 42 28 62 30 2c 34 29 29 0d 04 0d e4 50 |W)/B(b0,4))....P|
0000d460 3d 28 31 36 33 2a 49 2d 33 33 34 39 29 2a 4f 31 |=(163*I-3349)*O1|
0000d470 2b 32 30 39 38 31 2a 42 31 2b 31 33 31 31 2a 6e |+20981*B1+1311*n|
0000d480 31 3a 50 3d 50 2a 31 45 2d 37 3a 69 3d 2d 33 2e |1:P=P*1E-7:i=-3.|
0000d490 38 32 35 45 2d 33 2a 42 31 3a 65 3d 28 2d 33 2e |825E-3*B1:e=(-3.|
0000d4a0 38 35 38 31 45 2d 32 2b 28 32 2e 30 33 31 45 2d |8581E-2+(2.031E-|
0000d4b0 33 2d 31 2e 39 31 45 2d 33 2a 49 29 2a 49 29 2a |3-1.91E-3*I)*I)*|
0000d4c0 9b 28 74 2b 6a 30 29 3a 65 2b 3d 28 31 2e 30 31 |.(t+j0):e+=(1.01|
0000d4d0 32 32 45 2d 32 2d 39 2e 38 38 45 2d 34 2a 49 29 |22E-2-9.88E-4*I)|
0000d4e0 2a b5 28 74 2b 6a 30 29 3a 44 3d 28 33 2e 34 39 |*.(t+j0):D=(3.49|
0000d4f0 36 34 45 2d 32 2d 28 31 2e 30 33 38 45 2d 33 2d |64E-2-(1.038E-3-|
0000d500 38 2e 36 38 45 2d 34 2a 49 29 2a 49 29 2a 9b 28 |8.68E-4*I)*I)*.(|
0000d510 32 2a 74 2b 6a 30 29 3a 65 2b 3d 44 2b 35 2e 35 |2*t+j0):e+=D+5.5|
0000d520 39 34 45 2d 33 2a b5 28 74 2b 33 2a 53 30 29 2d |94E-3*.(t+3*S0)-|
0000d530 31 2e 34 38 30 38 45 2d 32 2a b5 28 75 31 29 0d |1.4808E-2*.(u1).|
0000d540 04 0e f2 65 3d 65 2d 35 2e 37 39 34 45 2d 33 2a |...e=e-5.794E-3*|
0000d550 b5 28 6a 30 29 2b 32 2e 33 34 37 45 2d 33 2a 9b |.(j0)+2.347E-3*.|
0000d560 28 6a 30 29 3a 65 2b 3d 39 2e 38 37 32 45 2d 33 |(j0):e+=9.872E-3|
0000d570 2a b5 28 53 30 29 2b 38 2e 38 30 33 45 2d 33 2a |*.(S0)+8.803E-3*|
0000d580 b5 28 32 2a 53 30 29 3a 65 3d 65 2d 34 2e 33 30 |.(2*S0):e=e-4.30|
0000d590 38 45 2d 33 2a b5 28 33 2a 53 30 29 3a 6e 32 3d |8E-3*.(3*S0):n2=|
0000d5a0 b5 28 6a 30 29 3a 54 32 3d 9b 28 6a 30 29 3a 70 |.(j0):T2=.(j0):p|
0000d5b0 32 3d b5 28 74 29 3a 65 32 3d 9b 28 74 29 3a 73 |2=.(t):e2=.(t):s|
0000d5c0 33 3d b5 28 32 2a 74 29 3a 70 33 3d 9b 28 32 2a |3=.(2*t):p3=.(2*|
0000d5d0 74 29 3a 54 30 3d 28 34 2e 35 38 45 2d 34 2a 6e |t):T0=(4.58E-4*n|
0000d5e0 32 2d 36 2e 34 32 45 2d 34 2a 54 32 2d 35 2e 31 |2-6.42E-4*T2-5.1|
0000d5f0 37 45 2d 34 2a 9b 28 34 2a 53 30 29 29 2a 70 32 |7E-4*.(4*S0))*p2|
0000d600 3a 54 30 3d 54 30 2d 28 33 2e 34 37 45 2d 34 2a |:T0=T0-(3.47E-4*|
0000d610 6e 32 2b 38 2e 35 33 45 2d 34 2a 54 32 2b 35 2e |n2+8.53E-4*T2+5.|
0000d620 31 37 45 2d 34 2a b5 28 34 2a 6a 30 29 29 2a 65 |17E-4*.(4*j0))*e|
0000d630 32 0d 04 0f c2 54 30 2b 3d 34 2e 30 33 45 2d 34 |2....T0+=4.03E-4|
0000d640 2a 28 9b 28 32 2a 53 30 29 2a 73 33 2b b5 28 32 |*(.(2*S0)*s3+.(2|
0000d650 2a 53 30 29 2a 70 33 29 3a 54 30 3d b2 28 54 30 |*S0)*p3):T0=.(T0|
0000d660 29 3a 5f 3d 2d 32 35 39 34 38 2b 34 39 38 35 2a |):_=-25948+4985*|
0000d670 9b 28 75 31 29 2d 31 32 33 30 2a 65 32 2b 33 33 |.(u1)-1230*e2+33|
0000d680 35 34 2a 54 32 3a 5f 2b 3d 39 30 34 2a 9b 28 32 |54*T2:_+=904*.(2|
0000d690 2a 53 30 29 2b 38 39 34 2a 28 9b 28 53 30 29 2d |*S0)+894*(.(S0)-|
0000d6a0 9b 28 33 2a 53 30 29 29 3a 5f 2b 3d 28 35 37 39 |.(3*S0)):_+=(579|
0000d6b0 35 2a 65 32 2d 31 31 36 35 2a 70 32 2b 31 33 38 |5*e2-1165*p2+138|
0000d6c0 38 2a 70 33 29 2a 6e 32 3a 5f 2b 3d 28 31 33 35 |8*p3)*n2:_+=(135|
0000d6d0 31 2a 65 32 2b 35 37 30 32 2a 70 32 2b 31 33 38 |1*e2+5702*p2+138|
0000d6e0 38 2a 73 33 29 2a 54 32 3a 5f 3d 5f 2a 31 45 2d |8*s3)*T2:_=_*1E-|
0000d6f0 36 3a e1 0d 04 10 e6 dd f2 59 30 3a 75 31 3d 48 |6:.......Y0:u1=H|
0000d700 30 2d 46 31 3a 6a 30 3d 48 30 2d 7a 3a 53 30 3d |0-F1:j0=H0-z:S0=|
0000d710 48 30 2d 74 3a 4b 3d 28 31 2e 30 38 39 45 2d 33 |H0-t:K=(1.089E-3|
0000d720 2a 49 2d 35 2e 38 39 38 33 33 45 2d 31 29 2a 4f |*I-5.89833E-1)*O|
0000d730 31 3a 4b 2b 3d 28 34 2e 36 35 38 45 2d 33 2a 49 |1:K+=(4.658E-3*I|
0000d740 2d 35 2e 36 30 39 34 45 2d 32 29 2a 42 31 2d 32 |-5.6094E-2)*B1-2|
0000d750 2e 34 32 38 36 45 2d 32 2a 6f 31 3a 4b 3d b2 28 |.4286E-2*o1:K=.(|
0000d760 4b 29 3a 57 3d 32 2e 34 30 33 39 45 2d 32 2a 4f |K):W=2.4039E-2*O|
0000d770 31 2d 32 2e 35 33 30 33 45 2d 32 2a 42 31 2b 36 |1-2.5303E-2*B1+6|
0000d780 2e 32 30 36 45 2d 33 2a 6f 31 3a 57 3d 57 2d 35 |.206E-3*o1:W=W-5|
0000d790 2e 39 39 32 45 2d 33 2a 6e 31 3a 41 31 3d 4b 2d |.992E-3*n1:A1=K-|
0000d7a0 28 b2 28 57 29 2f 42 28 62 30 2c 34 29 29 3a 50 |(.(W)/B(b0,4)):P|
0000d7b0 3d 34 33 38 39 2a 4f 31 2b 31 31 32 39 2a 6f 31 |=4389*O1+1129*o1|
0000d7c0 2b 34 32 36 32 2a 42 31 2b 31 30 38 39 2a 6e 31 |+4262*B1+1089*n1|
0000d7d0 3a 50 3d 50 2a 31 45 2d 37 0d 04 11 e1 69 3d 38 |:P=P*1E-7....i=8|
0000d7e0 31 38 39 2a 42 31 2d 38 31 37 2a 4f 31 2b 37 38 |189*B1-817*O1+78|
0000d7f0 31 2a 6e 31 3a 69 3d 69 2a 31 45 2d 36 3a 79 32 |1*n1:i=i*1E-6:y2|
0000d800 3d b5 28 32 2a 53 30 29 3a 78 32 3d 9b 28 32 2a |=.(2*S0):x2=.(2*|
0000d810 53 30 29 3a 67 33 3d b5 28 48 30 29 3a 62 33 3d |S0):g3=.(H0):b3=|
0000d820 9b 28 48 30 29 3a 65 3d 2d 39 2e 35 35 36 45 2d |.(H0):e=-9.556E-|
0000d830 33 2a b5 28 75 31 29 2d 35 2e 31 37 38 45 2d 33 |3*.(u1)-5.178E-3|
0000d840 2a b5 28 6a 30 29 3a 65 2b 3d 32 2e 35 37 32 45 |*.(j0):e+=2.572E|
0000d850 2d 33 2a 79 32 2d 32 2e 39 37 32 45 2d 33 2a 78 |-3*y2-2.972E-3*x|
0000d860 32 2a 67 33 2d 32 2e 38 33 33 45 2d 33 2a 79 32 |2*g3-2.833E-3*y2|
0000d870 2a 62 33 3a 54 30 3d 33 2e 33 36 45 2d 34 2a 78 |*b3:T0=3.36E-4*x|
0000d880 32 2a 67 33 2b 33 2e 36 34 45 2d 34 2a 79 32 2a |2*g3+3.64E-4*y2*|
0000d890 62 33 3a 54 30 3d b2 28 54 30 29 3a 5f 3d 2d 34 |b3:T0=.(T0):_=-4|
0000d8a0 30 35 39 36 2b 34 39 39 32 2a 9b 28 75 31 29 2b |0596+4992*.(u1)+|
0000d8b0 32 37 35 35 2a 9b 28 6a 30 29 0d 04 12 24 5f 2b |2755*.(j0)...$_+|
0000d8c0 3d 32 30 34 34 2a 9b 28 53 30 29 2b 31 30 35 31 |=2044*.(S0)+1051|
0000d8d0 2a 78 32 3a 5f 3d 5f 2a 31 45 2d 36 3a e1 0d 04 |*x2:_=_*1E-6:...|
0000d8e0 13 f1 dd f2 4f 30 3a 65 34 3d 30 2e 32 35 34 37 |....O0:e4=0.2547|
0000d8f0 30 32 33 3a 58 34 3d 65 34 3a 7a 33 3d 33 39 2e |023:X4=e4:z3=39.|
0000d900 38 31 32 32 37 3a 49 34 3d 7a 33 3a 4a 34 3d 31 |81227:I4=z3:J4=1|
0000d910 37 2e 31 32 31 34 33 3a 68 31 3d 4a 34 3a 70 34 |7.12143:h1=J4:p4|
0000d920 3d 31 31 30 2e 33 38 31 37 3a 75 30 3d 70 34 3a |=110.3817:u0=p4:|
0000d930 63 34 3d 32 32 34 2e 36 32 38 37 3a 49 31 3d 63 |c4=224.6287:I1=c|
0000d940 34 3a 47 34 3d 49 31 2d 75 30 3a 44 34 3d 47 34 |4:G4=I1-u0:D4=G4|
0000d950 3a 43 34 3d 30 2e 30 30 33 39 32 33 35 34 36 3a |:C4=0.003923546:|
0000d960 50 33 3d 43 34 3a 4c 34 3d 32 33 32 2e 35 39 34 |P3=C4:L4=232.594|
0000d970 39 37 2d 49 31 3a 60 34 3d 4c 34 3a 77 33 25 3d |97-I1:`4=L4:w3%=|
0000d980 31 39 39 35 3a 75 33 25 3d 37 3a 57 33 3d 32 32 |1995:u3%=7:W3=22|
0000d990 3a 5f 30 3d b2 28 68 31 29 3a 64 30 3d b2 28 44 |:_0=.(h1):d0=.(D|
0000d9a0 34 29 3a 66 33 3d b2 28 75 30 29 3a 6e 3d 30 3a |4):f3=.(u0):n=0:|
0000d9b0 51 30 3d 30 3a 71 32 3d 30 3a 4d 33 25 3d 32 30 |Q0=0:q2=0:M3%=20|
0000d9c0 30 30 3a 70 32 25 3d 31 3a 66 32 3d 31 2e 35 0d |00:p2%=1:f2=1.5.|
0000d9d0 04 14 60 f2 4c 31 28 5f 30 2c 64 30 2c 66 33 2c |..`.L1(_0,d0,f3,|
0000d9e0 4d 33 25 2c 70 32 25 2c 66 32 2c 6e 2c 51 30 2c |M3%,p2%,f2,n,Q0,|
0000d9f0 71 32 2c 66 25 2c 56 25 2c 57 31 29 3a 68 31 3d |q2,f%,V%,W1):h1=|
0000da00 9d 28 6e 29 3a 4e 34 3d 9d 28 51 30 29 3a 75 30 |.(n):N4=.(Q0):u0|
0000da10 3d 9d 28 71 32 29 3a 49 31 3d 4e 34 2b 75 30 3a |=.(q2):I1=N4+u0:|
0000da20 e7 49 31 3e 33 36 30 3a 49 31 2d 3d 33 36 30 0d |.I1>360:I1-=360.|
0000da30 04 15 11 e7 49 31 3c 30 3a 49 31 2b 3d 33 36 30 |....I1<0:I1+=360|
0000da40 0d 04 16 a6 f2 48 31 28 66 2c 6b 2c 30 2c 77 33 |.....H1(f,k,0,w3|
0000da50 25 2c 75 33 25 2c 57 33 29 3a 44 3d 54 31 2b af |%,u3%,W3):D=T1+.|
0000da60 2d 6c 3a 4d 3d 9b 28 44 29 3a 77 3d b5 28 44 29 |-l:M=.(D):w=.(D)|
0000da70 3a 6c 2d 3d 28 39 2e 39 33 38 37 45 2d 35 2a 4d |:l-=(9.9387E-5*M|
0000da80 2f 9b 28 66 30 29 29 3a 66 30 2d 3d 28 39 2e 39 |/.(f0)):f0-=(9.9|
0000da90 33 38 37 45 2d 35 2a 77 2a b5 28 66 30 29 29 3a |387E-5*w*.(f0)):|
0000daa0 f2 4e 28 6c 2c 66 30 2c a4 6b 28 66 29 29 3a f2 |.N(l,f0,.k(f)):.|
0000dab0 5a 31 28 6c 2c 66 30 2c 66 25 2c 56 25 2c 57 31 |Z1(l,f0,f%,V%,W1|
0000dac0 2c 4d 33 25 2c 70 32 25 2c 66 32 29 3a 42 3d 32 |,M3%,p2%,f2):B=2|
0000dad0 34 30 2a 9d 28 6c 29 3a 43 3d 33 36 30 30 2a 9d |40*.(l):C=3600*.|
0000dae0 28 66 30 29 3a e1 0d 04 17 fb dd f2 48 31 28 66 |(f0):.......H1(f|
0000daf0 2c 6b 2c 52 35 25 2c 77 33 25 2c 75 33 25 2c 57 |,k,R5%,w3%,u3%,W|
0000db00 33 29 3a 4e 32 3d 30 3a 62 34 3d a4 49 28 77 33 |3):N2=0:b4=.I(w3|
0000db10 25 2c 75 33 25 2c 57 33 29 3a 43 31 3d 30 3a 71 |%,u3%,W3):C1=0:q|
0000db20 31 3d 30 3a f2 68 28 66 2c 6b 2c 43 31 2c 71 31 |1=0:.h(f,k,C1,q1|
0000db30 29 3a 48 3d 4e 31 3a 46 30 3d 71 31 3a 54 31 3d |):H=N1:F0=q1:T1=|
0000db40 43 31 2b af 3a 5a 34 3d 66 2d 62 34 3a e3 52 31 |C1+.:Z4=f-b4:.R1|
0000db50 3d 31 b8 32 3a 65 30 3d 58 34 3a 4e 31 3d b2 28 |=1.2:e0=X4:N1=.(|
0000db60 60 34 2b 50 33 2a 5a 34 2d 4e 32 2a 50 33 29 3a |`4+P3*Z4-N2*P3):|
0000db70 f2 62 28 4e 31 2c 65 30 29 3a 50 30 3d 49 34 2a |.b(N1,e0):P0=I4*|
0000db80 28 31 2d 65 30 2a 65 30 29 2f 28 31 2b 65 30 2a |(1-e0*e0)/(1+e0*|
0000db90 9b 28 4f 32 29 29 3a 74 31 3d 4f 32 2b b2 28 49 |.(O2)):t1=O2+.(I|
0000dba0 31 29 3a 47 32 3d 74 31 2d b2 28 75 30 29 3a 44 |1):G2=t1-.(u0):D|
0000dbb0 31 3d b5 28 47 32 29 3a 74 30 3d 9b 28 47 32 29 |1=.(G2):t0=.(G2)|
0000dbc0 3a 55 33 3d b2 28 68 31 29 3a 4b 31 3d 44 31 2a |:U3=.(h1):K1=D1*|
0000dbd0 b5 28 55 33 29 3a 64 30 3d 44 31 2a 9b 28 55 33 |.(U3):d0=D1*.(U3|
0000dbe0 29 0d 04 18 2a 73 31 3d 98 28 4b 31 29 3a 4b 30 |)...*s1=.(K1):K0|
0000dbf0 3d 99 28 64 30 2f 74 30 29 2b b2 28 75 30 29 3a |=.(d0/t0)+.(u0):|
0000dc00 e7 74 30 3c 30 3a 4b 30 2b 3d af 0d 04 19 0f e7 |.t0<0:K0+=......|
0000dc10 4b 30 3e 58 3a 4b 30 2d 3d 58 0d 04 1a 7a 59 30 |K0>X:K0-=X...zY0|
0000dc20 3d 9b 28 73 31 29 3a 77 30 3d 50 30 2a 59 30 3a |=.(s1):w0=P0*Y0:|
0000dc30 56 31 3d 4b 30 2d 54 31 3a 76 30 3d 46 30 2a 46 |V1=K0-T1:v0=F0*F|
0000dc40 30 2b 50 30 2a 50 30 2d 32 2a 46 30 2a 50 30 2a |0+P0*P0-2*F0*P0*|
0000dc50 59 30 2a 9b 28 56 31 29 3a 76 30 3d b6 28 76 30 |Y0*.(V1):v0=.(v0|
0000dc60 29 3a 4e 32 3d 76 30 2a 35 2e 37 37 35 35 31 38 |):N2=v0*5.775518|
0000dc70 45 2d 33 3a e7 52 31 3d 31 3a 79 33 3d 4b 30 3a |E-3:.R1=1:y3=K0:|
0000dc80 78 30 3d 76 30 3a 42 34 3d 98 28 4b 31 29 3a 59 |x0=v0:B4=.(K1):Y|
0000dc90 34 3d 50 30 0d 04 1b 21 ed 52 31 3a 67 30 3d b5 |4=P0...!.R1:g0=.|
0000dca0 28 56 31 29 3a 47 30 3d 9b 28 56 31 29 3a e7 50 |(V1):G0=.(V1):.P|
0000dcb0 30 3c 46 30 8c 0d 04 1c 21 6c 3d 99 28 2d 31 2a |0<F0....!l=.(-1*|
0000dcc0 77 30 2a 67 30 2f 28 46 30 2d 77 30 2a 47 30 29 |w0*g0/(F0-w0*G0)|
0000dcd0 29 2b 54 31 2b af 0d 04 1d 1e cc 3a 6c 3d 99 28 |)+T1+......:l=.(|
0000dce0 46 30 2a 67 30 2f 28 77 30 2d 46 30 2a 47 30 29 |F0*g0/(w0-F0*G0)|
0000dcf0 29 2b 4b 30 0d 04 1e 40 cd 3a c8 95 6c 3c 30 3a |)+K0...@.:..l<0:|
0000dd00 6c 2b 3d 58 3a ce 3a c8 95 6c 3e 58 3a 6c 2d 3d |l+=X:.:..l>X:l-=|
0000dd10 58 3a ce 3a 66 30 3d 99 28 77 30 2a 4b 31 2a b5 |X:.:f0=.(w0*K1*.|
0000dd20 28 6c 2d 4b 30 29 2f 28 59 30 2a 46 30 2a 67 30 |(l-K0)/(Y0*F0*g0|
0000dd30 29 29 3a e1 0d 04 1f f9 dd f2 4c 31 28 5f 30 2c |)):.......L1(_0,|
0000dd40 64 30 2c 66 33 2c 4d 33 25 2c 70 32 25 2c 66 32 |d0,f3,M3%,p2%,f2|
0000dd50 2c f8 6e 2c f8 51 30 2c f8 71 32 2c 66 34 25 2c |,.n,.Q0,.q2,f4%,|
0000dd60 6a 34 25 2c 78 33 29 3a 71 30 3d a4 49 28 4d 33 |j4%,x3):q0=.I(M3|
0000dd70 25 2c 70 32 25 2c 66 32 29 2f 33 36 35 32 35 30 |%,p2%,f2)/365250|
0000dd80 3a 6e 34 3d a4 49 28 66 34 25 2c 6a 34 25 2c 78 |:n4=.I(f4%,j4%,x|
0000dd90 33 29 2f 33 36 35 32 35 30 3a 65 31 3d 6e 34 2d |3)/365250:e1=n4-|
0000dda0 71 30 3a 67 3d 65 31 2a 65 31 3a 6c 32 3d 71 30 |q0:g=e1*e1:l2=q0|
0000ddb0 2a 71 30 3a 63 33 3d 65 31 2a 67 3a 61 31 3d 28 |*q0:c3=e1*g:a1=(|
0000ddc0 34 37 31 2e 30 37 2d 36 2e 37 35 2a 71 30 2b 30 |471.07-6.75*q0+0|
0000ddd0 2e 35 37 2a 6c 32 29 2a 65 31 2b 28 30 2e 35 37 |.57*l2)*e1+(0.57|
0000dde0 2a 71 30 2d 33 2e 33 37 29 2a 67 3a 61 31 3d 61 |*q0-3.37)*g:a1=a|
0000ddf0 31 2b 30 2e 30 35 2a 63 33 3a 61 31 3d b2 28 61 |1+0.05*c3:a1=.(a|
0000de00 31 2f 33 36 30 30 29 3a 70 30 3d 33 32 38 36 39 |1/3600):p0=32869|
0000de10 2a 71 30 2b 35 36 2a 6c 32 2d 28 38 36 39 34 2b |*q0+56*l2-(8694+|
0000de20 35 35 2a 71 30 29 2a 65 31 2b 33 2a 67 0d 04 20 |55*q0)*e1+3*g.. |
0000de30 e1 70 30 3d b2 28 28 70 30 2f 33 36 30 30 29 2b |.p0=.((p0/3600)+|
0000de40 31 37 33 2e 39 35 30 38 33 33 29 3a 50 31 3d 28 |173.950833):P1=(|
0000de50 35 30 32 35 36 2e 34 31 2b 32 32 32 2e 32 39 2a |50256.41+222.29*|
0000de60 71 30 2b 30 2e 32 36 2a 6c 32 29 2a 65 31 3a 50 |q0+0.26*l2)*e1:P|
0000de70 31 3d 50 31 2b 28 31 31 31 2e 31 35 2b 30 2e 32 |1=P1+(111.15+0.2|
0000de80 36 2a 71 30 29 2a 67 2b 30 2e 31 2a 63 33 3a 50 |6*q0)*g+0.1*c3:P|
0000de90 31 3d 70 30 2b b2 28 50 31 2f 33 36 30 30 29 3a |1=p0+.(P1/3600):|
0000dea0 59 30 3d 9b 28 5f 30 29 3a 5f 32 3d b5 28 5f 30 |Y0=.(_0):_2=.(_0|
0000deb0 29 3a 54 33 3d 66 33 2d 70 30 3a 44 31 3d b5 28 |):T3=f3-p0:D1=.(|
0000dec0 54 33 29 3a 74 30 3d 9b 28 54 33 29 3a 62 32 3d |T3):t0=.(T3):b2=|
0000ded0 b5 28 61 31 29 3a 41 33 3d 9b 28 61 31 29 3a 44 |.(a1):A3=.(a1):D|
0000dee0 3d 5f 32 2a 44 31 3a 4d 3d 41 33 2a 5f 32 2a 74 |=_2*D1:M=A3*_2*t|
0000def0 30 2d 62 32 2a 59 30 3a 7a 32 3d 99 28 44 2f 4d |0-b2*Y0:z2=.(D/M|
0000df00 29 3a e7 4d 3c 30 3a 7a 32 3d 7a 32 2b af 0d 04 |):.M<0:z2=z2+...|
0000df10 21 34 4d 3d 5f 32 2a 41 33 2d 59 30 2a 62 32 2a |!4M=_2*A3-Y0*b2*|
0000df20 74 30 3a 44 3d 2d 62 32 2a 44 31 3a 57 32 3d 99 |t0:D=-b2*D1:W2=.|
0000df30 28 44 2f 4d 29 3a e7 4d 3c 30 3a 57 32 3d 57 32 |(D/M):.M<0:W2=W2|
0000df40 2b af 0d 04 22 76 6c 30 3d 64 30 2b 57 32 3a c8 |+..."vl0=d0+W2:.|
0000df50 95 6c 30 3c 30 3a 6c 30 2b 3d 58 3a ce 3a c8 95 |.l0<0:l0+=X:.:..|
0000df60 6c 30 3e 58 3a 6c 30 2d 3d 58 3a ce 3a 51 30 3d |l0>X:l0-=X:.:Q0=|
0000df70 6c 30 3a 6c 30 3d 7a 32 2b 50 31 3a c8 95 6c 30 |l0:l0=z2+P1:..l0|
0000df80 3c 30 3a 6c 30 2b 3d 58 3a ce 3a c8 95 6c 30 3e |<0:l0+=X:.:..l0>|
0000df90 58 3a 6c 30 2d 3d 58 3a ce 3a 71 32 3d 6c 30 3a |X:l0-=X:.:q2=l0:|
0000dfa0 e7 5f 30 3c 30 2e 31 37 35 3a 6e 3d 98 28 44 2f |._0<0.175:n=.(D/|
0000dfb0 b5 28 57 32 29 29 3a e1 0d 04 23 2f 59 30 3d 28 |.(W2)):...#/Y0=(|
0000dfc0 59 30 2a 41 33 29 2b 28 5f 32 2a 62 32 2a 74 30 |Y0*A3)+(_2*b2*t0|
0000dfd0 29 3a 6e 3d 31 2e 35 37 30 37 39 36 33 32 37 2d |):n=1.570796327-|
0000dfe0 98 28 59 30 29 3a e1 0d 04 24 f5 dd f2 5a 31 28 |.(Y0):...$...Z1(|
0000dff0 f8 5f 30 2c f8 64 30 2c 4d 33 25 2c 70 32 25 2c |._0,.d0,M3%,p2%,|
0000e000 66 32 2c 66 34 25 2c 6a 34 25 2c 78 33 29 3a 6c |f2,f4%,j4%,x3):l|
0000e010 34 3d a4 49 28 4d 33 25 2c 70 32 25 2c 66 32 29 |4=.I(M3%,p2%,f2)|
0000e020 3a 41 3d 28 6c 34 2d 33 36 35 32 35 29 2f 33 36 |:A=(l4-36525)/36|
0000e030 35 32 35 3a 78 31 3d b2 28 28 28 28 30 2e 30 30 |525:x1=.((((0.00|
0000e040 30 30 30 35 2a 41 29 2b 30 2e 30 30 30 30 38 33 |0005*A)+0.000083|
0000e050 39 29 2a 41 2b 30 2e 36 34 30 36 31 36 31 29 2a |9)*A+0.6406161)*|
0000e060 41 29 3a 77 31 3d b2 28 28 28 28 30 2e 30 30 30 |A):w1=.((((0.000|
0000e070 30 30 35 31 2a 41 29 2b 30 2e 30 30 30 33 30 34 |0051*A)+0.000304|
0000e080 31 29 2a 41 2b 30 2e 36 34 30 36 31 36 31 29 2a |1)*A+0.6406161)*|
0000e090 41 29 3a 70 30 3d b2 28 28 28 28 2d 30 2e 30 30 |A):p0=.((((-0.00|
0000e0a0 30 30 31 31 36 2a 41 29 2b 30 2e 30 30 30 31 31 |00116*A)+0.00011|
0000e0b0 38 35 29 2a 41 2b 30 2e 35 35 36 37 35 33 29 2a |85)*A+0.556753)*|
0000e0c0 41 29 3a 79 3d 9b 28 78 31 29 3a 60 30 3d 9b 28 |A):y=.(x1):`0=.(|
0000e0d0 77 31 29 3a 68 30 3d 9b 28 70 30 29 0d 04 25 fc |w1):h0=.(p0)..%.|
0000e0e0 70 3d b5 28 78 31 29 3a 75 3d b5 28 77 31 29 3a |p=.(x1):u=.(w1):|
0000e0f0 4e 30 3d b5 28 70 30 29 3a 44 28 30 2c 30 29 3d |N0=.(p0):D(0,0)=|
0000e100 79 2a 68 30 2a 60 30 2d 70 2a 75 3a 44 28 30 2c |y*h0*`0-p*u:D(0,|
0000e110 31 29 3d 2d 70 2a 68 30 2a 60 30 2d 79 2a 75 3a |1)=-p*h0*`0-y*u:|
0000e120 44 28 30 2c 32 29 3d 2d 4e 30 2a 60 30 3a 44 28 |D(0,2)=-N0*`0:D(|
0000e130 31 2c 30 29 3d 79 2a 68 30 2a 75 2b 70 2a 60 30 |1,0)=y*h0*u+p*`0|
0000e140 3a 44 28 31 2c 31 29 3d 2d 70 2a 68 30 2a 75 2b |:D(1,1)=-p*h0*u+|
0000e150 79 2a 60 30 3a 44 28 31 2c 32 29 3d 2d 4e 30 2a |y*`0:D(1,2)=-N0*|
0000e160 75 3a 44 28 32 2c 30 29 3d 79 2a 4e 30 3a 44 28 |u:D(2,0)=y*N0:D(|
0000e170 32 2c 31 29 3d 2d 70 2a 4e 30 3a 44 28 32 2c 32 |2,1)=-p*N0:D(2,2|
0000e180 29 3d 68 30 3a 48 34 3d a4 49 28 66 34 25 2c 6a |)=h0:H4=.I(f4%,j|
0000e190 34 25 2c 78 33 29 3a 41 3d 28 48 34 2d 33 36 35 |4%,x3):A=(H4-365|
0000e1a0 32 35 29 2f 33 36 35 32 35 3a 78 31 3d b2 28 28 |25)/36525:x1=.((|
0000e1b0 28 28 30 2e 30 30 30 30 30 35 2a 41 29 2b 30 2e |((0.000005*A)+0.|
0000e1c0 30 30 30 30 38 33 39 29 2a 41 2b 30 2e 36 34 30 |0000839)*A+0.640|
0000e1d0 36 31 36 31 29 2a 41 29 0d 04 26 de 77 31 3d b2 |6161)*A)..&.w1=.|
0000e1e0 28 28 28 28 30 2e 30 30 30 30 30 35 31 2a 41 29 |((((0.0000051*A)|
0000e1f0 2b 30 2e 30 30 30 33 30 34 31 29 2a 41 2b 30 2e |+0.0003041)*A+0.|
0000e200 36 34 30 36 31 36 31 29 2a 41 29 3a 70 30 3d b2 |6406161)*A):p0=.|
0000e210 28 28 28 28 2d 30 2e 30 30 30 30 31 31 36 2a 41 |((((-0.0000116*A|
0000e220 29 2b 30 2e 30 30 30 31 31 38 35 29 2a 41 2b 30 |)+0.0001185)*A+0|
0000e230 2e 35 35 36 37 35 33 29 2a 41 29 3a 79 3d 9b 28 |.556753)*A):y=.(|
0000e240 78 31 29 3a 60 30 3d 9b 28 77 31 29 3a 68 30 3d |x1):`0=.(w1):h0=|
0000e250 9b 28 70 30 29 3a 70 3d b5 28 78 31 29 3a 75 3d |.(p0):p=.(x1):u=|
0000e260 b5 28 77 31 29 3a 4e 30 3d b5 28 70 30 29 3a 46 |.(w1):N0=.(p0):F|
0000e270 28 30 2c 30 29 3d 79 2a 68 30 2a 60 30 2d 70 2a |(0,0)=y*h0*`0-p*|
0000e280 75 3a 46 28 31 2c 30 29 3d 2d 70 2a 68 30 2a 60 |u:F(1,0)=-p*h0*`|
0000e290 30 2d 79 2a 75 3a 46 28 32 2c 30 29 3d 2d 4e 30 |0-y*u:F(2,0)=-N0|
0000e2a0 2a 60 30 3a 46 28 30 2c 31 29 3d 79 2a 68 30 2a |*`0:F(0,1)=y*h0*|
0000e2b0 75 2b 70 2a 60 30 0d 04 27 a9 46 28 31 2c 31 29 |u+p*`0..'.F(1,1)|
0000e2c0 3d 2d 70 2a 68 30 2a 75 2b 79 2a 60 30 3a 46 28 |=-p*h0*u+y*`0:F(|
0000e2d0 32 2c 31 29 3d 2d 4e 30 2a 75 3a 46 28 30 2c 32 |2,1)=-N0*u:F(0,2|
0000e2e0 29 3d 79 2a 4e 30 3a 46 28 31 2c 32 29 3d 2d 70 |)=y*N0:F(1,2)=-p|
0000e2f0 2a 4e 30 3a 46 28 32 2c 32 29 3d 68 30 3a 5a 33 |*N0:F(2,2)=h0:Z3|
0000e300 3d 9b 28 64 30 29 3a 43 28 30 29 3d 9b 28 5f 30 |=.(d0):C(0)=.(_0|
0000e310 29 2a 5a 33 3a 43 28 31 29 3d b5 28 5f 30 29 2a |)*Z3:C(1)=.(_0)*|
0000e320 5a 33 3a 43 28 32 29 3d b5 28 64 30 29 3a 55 28 |Z3:C(2)=.(d0):U(|
0000e330 29 3d 43 28 29 2e 46 28 29 3a 43 28 29 3d 55 28 |)=C().F():C()=U(|
0000e340 29 2e 44 28 29 3a e7 94 28 43 28 30 29 29 3c 31 |).D():..(C(0))<1|
0000e350 45 2d 32 30 3a 43 28 30 29 3d 31 45 2d 32 30 0d |E-20:C(0)=1E-20.|
0000e360 04 28 2a 6e 3d 99 28 43 28 31 29 2f 43 28 30 29 |.(*n=.(C(1)/C(0)|
0000e370 29 3a 51 30 3d 98 28 43 28 32 29 29 3a e7 43 28 |):Q0=.(C(2)):.C(|
0000e380 30 29 3c 30 3a 6e 2b 3d af 0d 04 29 2a c8 95 6e |0)<0:n+=...)*..n|
0000e390 3c 30 3a 6e 2b 3d 58 3a ce 3a c8 95 6e 3e 58 3a |<0:n+=X:.:..n>X:|
0000e3a0 6e 2d 3d 58 3a ce 3a 5f 30 3d 6e 3a 64 30 3d 51 |n-=X:.:_0=n:d0=Q|
0000e3b0 30 3a e1 0d 04 2a 80 dd f2 75 28 42 2c 43 2c f8 |0:...*...u(B,C,.|
0000e3c0 63 30 2c f8 5a 30 2c f8 6f 30 2c f8 79 30 2c 76 |c0,.Z0,.o0,.y0,v|
0000e3d0 32 29 3a 74 33 3d 9b 28 b2 71 29 3a 71 33 3d b5 |2):t3=.(.q):q3=.|
0000e3e0 28 b2 71 29 3a 55 32 3d b5 28 43 29 3a 60 32 3d |(.q):U2=.(C):`2=|
0000e3f0 9b 28 43 29 3a 63 32 3d b5 28 76 32 29 3a 46 33 |.(C):c2=.(v2):F3|
0000e400 3d 9b 28 76 32 29 3a 77 32 3d 2d 28 63 32 2b 28 |=.(v2):w2=-(c2+(|
0000e410 71 33 2a 55 32 29 29 2f 28 74 33 2a 60 32 29 3a |q3*U2))/(t3*`2):|
0000e420 e7 77 32 3c 2d 31 3a 63 30 3d 30 3a 5a 30 3d 2d |.w2<-1:c0=0:Z0=-|
0000e430 31 3a e1 0d 04 2b 16 e7 77 32 3e 31 3a 63 30 3d |1:...+..w2>1:c0=|
0000e440 2d 31 3a 5a 30 3d 30 3a e1 0d 04 2c e9 6a 32 3d |-1:Z0=0:...,.j2=|
0000e450 28 55 32 2b 28 63 32 2a 71 33 29 29 2f 28 46 33 |(U2+(c2*q3))/(F3|
0000e460 2a 74 33 29 3a 6a 34 3d 95 28 77 32 29 3a 6f 30 |*t3):j4=.(w2):o0|
0000e470 3d 95 28 6a 32 29 3a 4d 3d 9d 28 6a 34 29 2f 31 |=.(j2):M=.(j4)/1|
0000e480 35 3a 44 3d 9d 28 42 29 2f 31 35 3a 63 30 3d 32 |5:D=.(B)/15:c0=2|
0000e490 34 2b 44 2d 4d 3a 5a 30 3d 44 2b 4d 3a 79 30 3d |4+D-M:Z0=D+M:y0=|
0000e4a0 58 2d 6f 30 3a c8 95 63 30 3c 30 3a 63 30 2b 3d |X-o0:..c0<0:c0+=|
0000e4b0 32 34 3a ce 3a c8 95 63 30 3e 32 34 3a 63 30 2d |24:.:..c0>24:c0-|
0000e4c0 3d 32 34 3a ce 3a c8 95 5a 30 3c 30 3a 5a 30 2b |=24:.:..Z0<0:Z0+|
0000e4d0 3d 32 34 3a ce 3a c8 95 5a 30 3e 32 34 3a 5a 30 |=24:.:..Z0>24:Z0|
0000e4e0 2d 3d 32 34 3a ce 3a c8 95 6f 30 3c 58 3a 6f 30 |-=24:.:..o0<X:o0|
0000e4f0 2b 3d 58 3a ce 3a c8 95 6f 30 3e 58 3a 6f 30 2d |+=X:.:..o0>X:o0-|
0000e500 3d 58 3a ce 3a 6f 30 3d 9d 6f 30 3a c8 95 79 30 |=X:.:o0=.o0:..y0|
0000e510 3c 58 3a 79 30 2b 3d 58 3a ce 3a c8 95 79 30 3e |<X:y0+=X:.:..y0>|
0000e520 58 3a 79 30 2d 3d 58 3a ce 3a 79 30 3d 9d 79 30 |X:y0-=X:.:y0=.y0|
0000e530 3a e1 0d 04 2d 10 dd f2 63 31 3a f2 5f 3a f2 69 |:...-...c1:._:.i|
0000e540 3a e1 0d 04 2e 7f dd f2 5f 3a ea 4f 24 3a 4a 25 |:......._:.O$:J%|
0000e550 3f 30 3d 33 3a c8 99 37 2c 31 34 2c 4a 25 3a 41 |?0=3:..7,14,J%:A|
0000e560 24 3d 22 25 43 45 25 59 52 25 4d 4e 25 44 59 25 |$="%CE%YR%MN%DY%|
0000e570 32 34 25 4d 49 25 53 45 22 2b bd 30 3a c8 99 31 |24%MI%SE"+.0:..1|
0000e580 39 33 2c 4a 25 2c 48 25 2c 31 32 38 2c 41 24 b8 |93,J%,H%,128,A$.|
0000e590 4f 24 3a 66 25 3d bb 28 c1 4f 24 2c 31 2c 34 29 |O$:f%=.(.O$,1,4)|
0000e5a0 29 3a 56 25 3d bb 28 c1 4f 24 2c 35 2c 32 29 29 |):V%=.(.O$,5,2))|
0000e5b0 3a 69 25 3d bb 28 c1 4f 24 2c 37 2c 32 29 29 3a |:i%=.(.O$,7,2)):|
0000e5c0 e1 0d 04 2f 84 dd f2 69 3a ea 4f 24 3a 4a 25 3f |.../...i:.O$:J%?|
0000e5d0 30 3d 33 3a c8 99 37 2c 31 34 2c 4a 25 3a 41 24 |0=3:..7,14,J%:A$|
0000e5e0 3d 22 25 43 45 25 59 52 25 4d 4e 25 44 59 25 32 |="%CE%YR%MN%DY%2|
0000e5f0 34 25 4d 49 25 53 45 22 2b bd 30 3a c8 99 31 39 |4%MI%SE"+.0:..19|
0000e600 33 2c 4a 25 2c 48 25 2c 31 32 38 2c 41 24 b8 4f |3,J%,H%,128,A$.O|
0000e610 24 3a 55 30 25 3d bb 28 c1 4f 24 2c 39 2c 32 29 |$:U0%=.(.O$,9,2)|
0000e620 29 3a 52 30 25 3d bb 28 c1 4f 24 2c 31 31 2c 32 |):R0%=.(.O$,11,2|
0000e630 29 29 3a 44 31 25 3d bb 28 c1 4f 24 2c 31 33 2c |)):D1%=.(.O$,13,|
0000e640 32 29 29 3a e1 0d 04 30 2c dd f2 50 28 51 33 25 |2)):...0,..P(Q3%|
0000e650 2c 63 30 25 2c 49 25 29 3a e7 66 25 83 34 3d 30 |,c0%,I%):.f%.4=0|
0000e660 41 25 28 32 29 3d 32 39 8b 41 25 28 32 29 3d 32 |A%(2)=29.A%(2)=2|
0000e670 38 0d 04 31 22 69 25 2b 3d 51 33 25 3a e7 69 25 |8..1"i%+=Q3%:.i%|
0000e680 3e 41 25 28 56 25 29 80 56 25 3d 31 32 3a 66 25 |>A%(V%).V%=12:f%|
0000e690 2b 3d 31 0d 04 32 1c e7 66 25 83 34 3d 30 41 25 |+=1..2..f%.4=0A%|
0000e6a0 28 32 29 3d 32 39 8b 41 25 28 32 29 3d 32 38 0d |(2)=29.A%(2)=28.|
0000e6b0 04 33 25 e7 69 25 3e 41 25 28 56 25 29 3a 56 25 |.3%.i%>A%(V%):V%|
0000e6c0 2b 3d 31 3a 69 25 3d 31 3a e7 56 25 3e 31 32 3a |+=1:i%=1:.V%>12:|
0000e6d0 56 25 3d 31 0d 04 34 14 e7 69 25 3c 30 80 56 25 |V%=1..4..i%<0.V%|
0000e6e0 3d 31 3a 66 25 2d 3d 31 0d 04 35 27 e7 69 25 3c |=1:f%-=1..5'.i%<|
0000e6f0 31 3a 56 25 2d 3d 31 3a 69 25 3d 33 31 3a e7 56 |1:V%-=1:i%=31:.V|
0000e700 25 3c 31 3a 56 25 3d 31 32 3a 66 25 2d 3d 31 0d |%<1:V%=12:f%-=1.|
0000e710 04 36 1c e7 66 25 83 34 3d 30 41 25 28 32 29 3d |.6..f%.4=0A%(2)=|
0000e720 32 39 8b 41 25 28 32 29 3d 32 38 0d 04 37 18 e7 |29.A%(2)=28..7..|
0000e730 69 25 3e 41 25 28 56 25 29 3a 69 25 3d 41 25 28 |i%>A%(V%):i%=A%(|
0000e740 56 25 29 0d 04 38 1d 56 25 2b 3d 63 30 25 3a e7 |V%)..8.V%+=c0%:.|
0000e750 56 25 3e 31 32 3a 56 25 3d 31 3a 66 25 2b 3d 31 |V%>12:V%=1:f%+=1|
0000e760 0d 04 39 1c e7 66 25 83 34 3d 30 41 25 28 32 29 |..9..f%.4=0A%(2)|
0000e770 3d 32 39 8b 41 25 28 32 29 3d 32 38 0d 04 3a 15 |=29.A%(2)=28..:.|
0000e780 e7 56 25 3c 31 3a 56 25 3d 31 32 3a 66 25 2d 3d |.V%<1:V%=12:f%-=|
0000e790 31 0d 04 3b 1c e7 66 25 83 34 3d 30 41 25 28 32 |1..;..f%.4=0A%(2|
0000e7a0 29 3d 32 39 8b 41 25 28 32 29 3d 32 38 0d 04 3c |)=29.A%(2)=28..<|
0000e7b0 18 e7 69 25 3e 41 25 28 56 25 29 3a 69 25 3d 41 |..i%>A%(V%):i%=A|
0000e7c0 25 28 56 25 29 0d 04 3d 23 66 25 2b 3d 49 25 3a |%(V%)..=#f%+=I%:|
0000e7d0 e7 66 25 83 34 3d 30 41 25 28 32 29 3d 32 39 8b |.f%.4=0A%(2)=29.|
0000e7e0 41 25 28 32 29 3d 32 38 0d 04 3e 18 e7 69 25 3e |A%(2)=28..>..i%>|
0000e7f0 41 25 28 56 25 29 3a 69 25 3d 41 25 28 56 25 29 |A%(V%):i%=A%(V%)|
0000e800 0d 04 3f 05 e1 0d 04 40 44 dd f2 54 28 62 30 25 |..?....@D..T(b0%|
0000e810 2c 63 30 25 2c 5f 30 25 29 3a 44 31 25 2b 3d 5f |,c0%,_0%):D1%+=_|
0000e820 30 25 3a 52 30 25 2b 3d 63 30 25 3a 55 30 25 2b |0%:R0%+=c0%:U0%+|
0000e830 3d 62 30 25 3a e7 44 31 25 3e 35 39 3a 44 31 25 |=b0%:.D1%>59:D1%|
0000e840 3d 30 3a 52 30 25 2b 3d 31 0d 04 41 1d e7 52 30 |=0:R0%+=1..A..R0|
0000e850 25 3e 35 39 3a 52 30 25 3d 52 30 25 83 36 30 3a |%>59:R0%=R0%.60:|
0000e860 55 30 25 2b 3d 31 0d 04 42 20 e7 55 30 25 3e 32 |U0%+=1..B .U0%>2|
0000e870 33 3a 55 30 25 3d 55 30 25 83 32 34 3a f2 50 28 |3:U0%=U0%.24:.P(|
0000e880 31 2c 30 2c 30 29 0d 04 43 18 e7 44 31 25 3c 30 |1,0,0)..C..D1%<0|
0000e890 3a 44 31 25 3d 35 39 3a 52 30 25 2d 3d 31 0d 04 |:D1%=59:R0%-=1..|
0000e8a0 44 1c e7 52 30 25 3c 30 3a 52 30 25 3d 36 30 2b |D..R0%<0:R0%=60+|
0000e8b0 52 30 25 3a 55 30 25 2d 3d 31 0d 04 45 20 e7 55 |R0%:U0%-=1..E .U|
0000e8c0 30 25 3c 30 3a 55 30 25 3d 55 30 25 2b 32 34 3a |0%<0:U0%=U0%+24:|
0000e8d0 f2 50 28 2d 31 2c 30 2c 30 29 0d 04 46 05 e1 0d |.P(-1,0,0)..F...|
0000e8e0 04 47 62 dd f2 4d 3a f2 67 3a 41 30 3d a4 72 28 |.Gb..M:.g:A0=.r(|
0000e8f0 66 25 2c 56 25 2c 69 25 2c 55 30 25 2c 52 30 25 |f%,V%,i%,U0%,R0%|
0000e900 2c 44 31 25 29 3a 56 30 3d b2 28 31 35 2a a4 5f |,D1%):V0=.(15*._|
0000e910 28 41 30 29 29 3a 4b 24 3d 4f 24 3a 65 30 25 3d |(A0)):K$=O$:e0%=|
0000e920 b9 3a 6b 3d 55 30 25 2b 52 30 25 2f 36 30 2b 44 |.:k=U0%+R0%/60+D|
0000e930 31 25 2f 33 36 30 30 3a e7 50 30 25 3a 6b 2d 3d |1%/3600:.P0%:k-=|
0000e940 31 0d 04 48 1e 6b 2d 3d 56 30 25 3a 66 3d a4 49 |1..H.k-=V0%:f=.I|
0000e950 28 66 25 2c 56 25 2c 69 25 29 3a f2 6a 3a e1 0d |(f%,V%,i%):.j:..|
0000e960 04 49 51 dd f2 67 3a 58 24 3d c2 22 20 22 2b c3 |.IQ..g:X$=." "+.|
0000e970 28 69 25 29 2c 32 29 2b 22 2f 22 2b c2 22 20 22 |(i%),2)+"/"+." "|
0000e980 2b c3 28 56 25 29 2c 32 29 2b 22 2f 22 2b c3 28 |+.(V%),2)+"/"+.(|
0000e990 66 25 29 3a e7 58 24 3c 3e 64 24 3a f2 41 28 74 |f%):.X$<>d$:.A(t|
0000e9a0 69 6d 65 25 2c 31 2c 58 24 29 3a 64 24 3d 58 24 |ime%,1,X$):d$=X$|
0000e9b0 0d 04 4a 59 57 24 3d c2 22 20 22 2b c3 28 55 30 |..JYW$=." "+.(U0|
0000e9c0 25 29 2c 32 29 2b 22 3a 22 2b c2 22 30 22 2b c3 |%),2)+":"+."0"+.|
0000e9d0 28 52 30 25 29 2c 32 29 2b 22 3a 22 2b c2 22 30 |(R0%),2)+":"+."0|
0000e9e0 22 2b c3 28 44 31 25 29 2c 32 29 3a e7 57 24 3c |"+.(D1%),2):.W$<|
0000e9f0 3e 60 24 3a f2 41 28 74 69 6d 65 25 2c 31 31 2c |>`$:.A(time%,11,|
0000ea00 57 24 29 3a 60 24 3d 57 24 0d 04 4b 05 e1 0d 04 |W$):`$=W$..K....|
0000ea10 4c b7 dd a4 72 28 66 25 2c 56 25 2c 69 25 2c 55 |L...r(f%,V%,i%,U|
0000ea20 30 25 2c 52 30 25 2c 75 34 29 3a 41 3d a4 4e 28 |0%,R0%,u4):A=.N(|
0000ea30 66 25 2c 56 25 2c 69 25 29 2d 32 34 35 31 35 34 |f%,V%,i%)-245154|
0000ea40 35 3a 41 3d 41 2f 33 36 35 32 35 3a 41 3d 36 2e |5:A=A/36525:A=6.|
0000ea50 36 39 37 33 37 34 35 35 38 2b 28 32 34 30 30 2e |697374558+(2400.|
0000ea60 30 35 31 33 33 36 2a 41 29 2b 28 32 35 38 36 32 |051336*A)+(25862|
0000ea70 45 2d 39 2a 41 2a 41 29 3a c8 95 41 3c 30 3a 41 |E-9*A*A):..A<0:A|
0000ea80 2b 3d 32 34 3a ce 3a c8 95 41 3e 3d 32 34 3a 41 |+=24:.:..A>=24:A|
0000ea90 2d 3d 32 34 3a ce 3a 41 3d 28 55 30 25 2b 52 30 |-=24:.:A=(U0%+R0|
0000eaa0 25 2f 36 30 2b 75 34 2f 33 36 30 30 29 2a 31 2e |%/60+u4/3600)*1.|
0000eab0 30 30 32 37 33 37 39 30 39 2b 41 3a e7 50 30 25 |002737909+A:.P0%|
0000eac0 3a 41 2d 3d 31 0d 04 4d 2b 41 2d 3d 56 30 25 3a |:A-=1..M+A-=V0%:|
0000ead0 c8 95 41 3c 30 3a 41 2b 3d 32 34 3a ce 3a c8 95 |..A<0:A+=24:.:..|
0000eae0 41 3e 3d 32 34 3a 41 2d 3d 32 34 3a ce 3a 3d 41 |A>=24:A-=24:.:=A|
0000eaf0 0d 04 4e c0 dd a4 71 28 66 25 2c 56 25 2c 69 25 |..N...q(f%,V%,i%|
0000eb00 2c 74 34 29 3a 41 3d a4 4e 28 66 25 2c 56 25 2c |,t4):A=.N(f%,V%,|
0000eb10 69 25 29 2d 32 34 35 31 35 34 35 3a 41 3d 41 2f |i%)-2451545:A=A/|
0000eb20 33 36 35 32 35 3a 41 3d 36 2e 36 39 37 33 37 34 |36525:A=6.697374|
0000eb30 35 35 38 2b 28 32 34 30 30 2e 30 35 31 33 33 36 |558+(2400.051336|
0000eb40 2a 41 29 2b 28 32 35 38 36 32 45 2d 39 2a 41 2a |*A)+(25862E-9*A*|
0000eb50 41 29 3a c8 95 41 3c 30 3a 41 2b 3d 32 34 3a ce |A):..A<0:A+=24:.|
0000eb60 3a c8 95 41 3e 3d 32 34 3a 41 2d 3d 32 34 3a ce |:..A>=24:A-=24:.|
0000eb70 3a 41 3d 74 34 2d 41 3a c8 95 41 3c 30 3a 41 2b |:A=t4-A:..A<0:A+|
0000eb80 3d 32 34 3a ce 3a c8 95 41 3e 3d 32 34 3a 41 2d |=24:.:..A>=24:A-|
0000eb90 3d 32 34 3a ce 3a 41 3d 41 2a 30 2e 39 39 37 32 |=24:.:A=A*0.9972|
0000eba0 36 39 35 36 36 33 3a e7 50 30 25 3a 41 2b 3d 31 |695663:.P0%:A+=1|
0000ebb0 0d 04 4f 2b 41 2b 3d 56 30 25 3a c8 95 41 3c 30 |..O+A+=V0%:..A<0|
0000ebc0 3a 41 2b 3d 32 34 3a ce 3a c8 95 41 3e 3d 32 34 |:A+=24:.:..A>=24|
0000ebd0 3a 41 2d 3d 32 34 3a ce 3a 3d 41 0d 04 50 30 dd |:A-=24:.:=A..P0.|
0000ebe0 a4 4e 28 66 25 2c 56 25 2c 69 25 29 3a e7 56 25 |.N(f%,V%,i%):.V%|
0000ebf0 3e 32 3a 56 25 3d 56 25 2d 33 3a 8b 66 25 3d 66 |>2:V%=V%-3:.f%=f|
0000ec00 25 2d 31 3a 56 25 3d 56 25 2b 39 0d 04 51 2d 3d |%-1:V%=V%+9..Q-=|
0000ec10 31 37 32 31 31 30 33 2e 35 2b a8 28 33 36 35 2e |1721103.5+.(365.|
0000ec20 32 35 2a 66 25 29 2b a8 28 33 30 2e 36 2a 56 25 |25*f%)+.(30.6*V%|
0000ec30 2b 30 2e 35 29 2b 69 25 0d 04 52 35 dd a4 49 28 |+0.5)+i%..R5..I(|
0000ec40 66 25 2c 56 25 2c 57 31 29 3a ea 69 25 3a 49 33 |f%,V%,W1):.i%:I3|
0000ec50 25 3d 56 25 3a 79 30 25 3d 66 25 3a 4d 3d 30 3a |%=V%:y0%=f%:M=0:|
0000ec60 e7 79 30 25 3c 31 3a 79 30 25 2b 3d 31 0d 04 53 |.y0%<1:y0%+=1..S|
0000ec70 1a e7 56 25 3c 33 3a 49 33 25 3d 56 25 2b 31 32 |..V%<3:I3%=V%+12|
0000ec80 3a 79 30 25 2d 3d 31 0d 04 54 3e 69 25 3d 57 31 |:y0%-=1..T>i%=W1|
0000ec90 3a e7 79 30 25 3e 31 35 38 32 84 28 79 30 25 3d |:.y0%>1582.(y0%=|
0000eca0 31 35 38 32 80 49 33 25 3e 31 30 29 84 28 79 30 |1582.I3%>10).(y0|
0000ecb0 25 3d 31 35 38 32 80 49 33 25 3d 31 30 80 69 25 |%=1582.I3%=10.i%|
0000ecc0 3e 31 34 29 8c 0d 04 55 1d 44 3d a8 28 79 30 25 |>14)...U.D=.(y0%|
0000ecd0 2f 31 30 30 29 3a 4d 3d 32 2d 44 2b a8 28 44 2f |/100):M=2-D+.(D/|
0000ece0 34 29 0d 04 56 0d cd 3a e7 79 30 25 3c 30 8c 0d |4)..V..:.y0%<0..|
0000ecf0 04 57 22 77 3d a4 48 28 28 33 36 35 2e 32 35 2a |.W"w=.H((365.25*|
0000ed00 79 30 25 29 2d 30 2e 37 35 29 2d 36 39 34 30 32 |y0%)-0.75)-69402|
0000ed10 35 0d 04 58 1c cc 3a 77 3d a8 28 33 36 35 2e 32 |5..X..:w=.(365.2|
0000ed20 35 2a 79 30 25 29 2d 36 39 34 30 32 35 0d 04 59 |5*y0%)-694025..Y|
0000ed30 2a cd 3a 59 32 3d a8 28 33 30 2e 36 30 30 31 2a |*.:Y2=.(30.6001*|
0000ed40 28 49 33 25 2b 31 29 29 3a 3d 4d 2b 77 2b 59 32 |(I3%+1)):=M+w+Y2|
0000ed50 2b 57 31 2d 30 2e 35 0d 04 5a 1e dd a4 48 28 61 |+W1-0.5..Z...H(a|
0000ed60 34 25 29 3a 3d a8 28 94 28 61 34 25 29 29 2a b4 |4%):=.(.(a4%))*.|
0000ed70 28 61 34 25 29 0d 04 5b 7f dd f2 65 3a 68 33 3d |(a4%)..[...e:h3=|
0000ed80 66 2b 30 2e 35 3a 52 31 25 3d a4 48 28 68 33 29 |f+0.5:R1%=.H(h3)|
0000ed90 3a 69 31 3d 68 33 2d 52 31 25 2b 6b 2f 32 34 2b |:i1=h3-R1%+k/24+|
0000eda0 30 2e 35 2f 28 33 36 30 30 2a 32 34 29 3a 52 31 |0.5/(3600*24):R1|
0000edb0 25 2b 3d 32 34 31 35 30 32 30 3a c8 95 69 31 3e |%+=2415020:..i1>|
0000edc0 31 3a 69 31 2d 3d 31 3a 52 31 25 2b 3d 31 3a ce |1:i1-=1:R1%+=1:.|
0000edd0 3a c8 95 69 31 3c 30 3a 69 31 2b 3d 31 3a 52 31 |:..i1<0:i1+=1:R1|
0000ede0 25 2d 3d 31 3a ce 3a e7 52 31 25 3e 32 32 39 39 |%-=1:.:.R1%>2299|
0000edf0 31 36 30 8c 0d 04 5c 39 41 25 3d a4 48 28 28 52 |160...\9A%=.H((R|
0000ee00 31 25 2d 31 38 36 37 32 31 36 2e 32 35 29 2f 33 |1%-1867216.25)/3|
0000ee10 36 35 32 34 2e 32 35 29 3a 42 25 3d 52 31 25 2b |6524.25):B%=R1%+|
0000ee20 31 2b 41 25 2d a4 48 28 41 25 2f 34 29 0d 04 5d |1+A%-.H(A%/4)..]|
0000ee30 0c cc 3a 42 25 3d 52 31 25 0d 04 5e 95 cd 3a 43 |..:B%=R1%..^..:C|
0000ee40 25 3d 42 25 2b 31 35 32 34 3a 44 25 3d a4 48 28 |%=B%+1524:D%=.H(|
0000ee50 28 43 25 2d 31 32 32 2e 31 29 2f 33 36 35 2e 32 |(C%-122.1)/365.2|
0000ee60 35 29 3a 45 25 3d a4 48 28 33 36 35 2e 32 35 2a |5):E%=.H(365.25*|
0000ee70 44 25 29 3a 47 25 3d a4 48 28 28 43 25 2d 45 25 |D%):G%=.H((C%-E%|
0000ee80 29 2f 33 30 2e 36 30 30 31 29 3a 57 31 3d 43 25 |)/30.6001):W1=C%|
0000ee90 2d 45 25 2b 69 31 2d a4 48 28 33 30 2e 36 30 30 |-E%+i1-.H(30.600|
0000eea0 31 2a 47 25 29 3a 69 25 3d 57 31 3a 43 33 3d 57 |1*G%):i%=W1:C3=W|
0000eeb0 31 2d 69 25 3a 56 25 3d 47 25 2d 31 3a e7 47 25 |1-i%:V%=G%-1:.G%|
0000eec0 3e 31 33 2e 35 3a 56 25 3d 47 25 2d 31 33 0d 04 |>13.5:V%=G%-13..|
0000eed0 5f 0c e7 56 25 3e 32 2e 35 8c 0d 04 60 0e 66 25 |_..V%>2.5...`.f%|
0000eee0 3d 44 25 2d 34 37 31 36 0d 04 61 10 cc 3a 66 25 |=D%-4716..a..:f%|
0000eef0 3d 44 25 2d 34 37 31 35 0d 04 62 40 cd 3a 55 30 |=D%-4715..b@.:U0|
0000ef00 25 3d 43 33 2a 32 34 3a 52 30 25 3d 28 43 33 2a |%=C3*24:R0%=(C3*|
0000ef10 32 34 2d 55 30 25 29 2a 36 30 3a 44 31 25 3d 28 |24-U0%)*60:D1%=(|
0000ef20 28 43 33 2a 32 34 2d 55 30 25 29 2a 36 30 2d 52 |(C3*24-U0%)*60-R|
0000ef30 30 25 29 2a 36 30 3a e1 0d 04 63 26 dd a4 5f 28 |0%)*60:...c&.._(|
0000ef40 41 30 29 3a 56 30 3d 41 30 2b 44 30 2f 31 35 3a |A0):V0=A0+D0/15:|
0000ef50 e7 56 30 3e 3d 32 34 3a 56 30 2d 3d 32 34 0d 04 |.V0>=24:V0-=24..|
0000ef60 64 10 e7 56 30 3c 30 3a 56 30 2b 3d 32 34 0d 04 |d..V0<0:V0+=24..|
0000ef70 65 07 3d 56 30 0d 04 66 2a dd a4 51 28 56 30 29 |e.=V0..f*..Q(V0)|
0000ef80 3a ea 41 30 3a 41 30 3d 56 30 2d 44 30 2f 31 35 |:.A0:A0=V0-D0/15|
0000ef90 3a e7 41 30 3e 3d 32 34 3a 41 30 2d 3d 32 34 0d |:.A0>=24:A0-=24.|
0000efa0 04 67 10 e7 41 30 3c 30 3a 41 30 2b 3d 32 34 0d |.g..A0<0:A0+=24.|
0000efb0 04 68 07 3d 41 30 0d 04 69 2a dd a4 4c 28 56 30 |.h.=A0..i*..L(V0|
0000efc0 29 3a ea 41 30 3a 41 30 3d a4 51 28 56 30 29 3a |):.A0:A0=.Q(V0):|
0000efd0 3d a4 71 28 66 25 2c 56 25 2c 69 25 2c 41 30 29 |=.q(f%,V%,i%,A0)|
0000efe0 0d 04 6a be dd a4 4a 28 56 30 2c 66 29 3a ea 41 |..j...J(V0,f):.A|
0000eff0 30 3a 41 30 3d a4 51 28 56 30 29 3a 41 3d a4 4e |0:A0=.Q(V0):A=.N|
0000f000 28 66 25 2c 56 25 2c 69 25 29 2d 32 34 35 31 35 |(f%,V%,i%)-24515|
0000f010 34 35 2b 66 3a 41 3d 41 2f 33 36 35 32 35 3a 41 |45+f:A=A/36525:A|
0000f020 3d 36 2e 36 39 37 33 37 34 35 35 38 2b 28 32 34 |=6.697374558+(24|
0000f030 30 30 2e 30 35 31 33 33 36 2a 41 29 2b 28 32 35 |00.051336*A)+(25|
0000f040 38 36 32 45 2d 39 2a 41 2a 41 29 3a c8 95 41 3c |862E-9*A*A):..A<|
0000f050 30 3a 41 2b 3d 32 34 3a ce 3a c8 95 41 3e 3d 32 |0:A+=24:.:..A>=2|
0000f060 34 3a 41 2d 3d 32 34 3a ce 3a 41 3d 41 30 2d 41 |4:A-=24:.:A=A0-A|
0000f070 3a c8 95 41 3c 30 3a 41 2b 3d 32 34 3a ce 3a c8 |:..A<0:A+=24:.:.|
0000f080 95 41 3e 3d 32 34 3a 41 2d 3d 32 34 3a ce 3a 3d |.A>=24:A-=24:.:=|
0000f090 41 2a 30 2e 39 39 37 32 36 39 35 36 36 33 0d 04 |A*0.9972695663..|
0000f0a0 6b 47 dd a4 53 28 5a 29 3a ea 62 30 25 2c 63 30 |kG..S(Z):.b0%,c0|
0000f0b0 25 3a 62 30 25 3d 5a 3a 63 30 25 3d 30 2e 35 2b |%:b0%=Z:c0%=0.5+|
0000f0c0 28 5a 2d 62 30 25 29 2a 36 30 3a 3d c3 28 62 30 |(Z-b0%)*60:=.(b0|
0000f0d0 25 29 2b 22 3a 22 2b c2 22 30 22 2b c3 28 63 30 |%)+":"+."0"+.(c0|
0000f0e0 25 29 2c 32 29 0d 04 6c 7f dd f2 56 28 f8 42 2c |%),2)..l...V(.B,|
0000f0f0 43 2c 41 30 29 3a 5f 30 3d 42 3a 69 34 3d 41 30 |C,A0):_0=B:i4=A0|
0000f100 3a 76 33 3d 44 30 3a 44 3d 69 34 2b 28 76 33 2f |:v3=D0:D=i4+(v3/|
0000f110 31 35 29 3a c8 95 44 3e 32 34 3a 44 2d 3d 32 34 |15):..D>24:D-=24|
0000f120 3a ce 3a c8 95 44 3c 30 3a 44 2b 3d 32 34 3a ce |:.:..D<0:D+=24:.|
0000f130 3a 57 34 3d 44 3a 44 3d 57 34 2d 5f 30 3a c8 95 |:W4=D:D=W4-_0:..|
0000f140 44 3e 32 34 3a 44 2d 3d 32 34 3a ce 3a c8 95 44 |D>24:D-=24:.:..D|
0000f150 3c 30 3a 44 2b 3d 32 34 3a ce 3a 6e 3d 44 3a 42 |<0:D+=24:.:n=D:B|
0000f160 3d 6e 3a e1 0d 04 6d fc dd f2 6e 28 f8 67 34 2c |=n:...m...n(.g4,|
0000f170 f8 43 2c 71 2c 47 33 2c 58 31 29 3a 5f 30 3d 67 |.C,q,G3,X1):_0=g|
0000f180 34 3a 64 30 3d 43 3a 6c 33 3d b2 28 71 29 3a 5f |4:d0=C:l3=.(q):_|
0000f190 33 3d 47 33 3a 61 34 3d 58 31 3a 79 3d 9b 28 6c |3=G3:a4=X1:y=.(l|
0000f1a0 33 29 3a 70 3d b5 28 6c 33 29 3a 4b 33 3d 99 28 |3):p=.(l3):K3=.(|
0000f1b0 39 2e 39 36 36 34 37 45 2d 31 2a 70 2f 79 29 3a |9.96647E-1*p/y):|
0000f1c0 60 30 3d 9b 28 4b 33 29 3a 75 3d b5 28 4b 33 29 |`0=.(K3):u=.(K3)|
0000f1d0 3a 4f 34 3d 28 39 2e 39 36 36 34 37 45 2d 31 2a |:O4=(9.96647E-1*|
0000f1e0 75 29 2b 28 5f 33 2a 70 29 3a 6d 32 3d 60 30 2b |u)+(_3*p):m2=`0+|
0000f1f0 28 5f 33 2a 79 29 3a 74 32 3d 31 2f b5 28 61 34 |(_3*y):t2=1/.(a4|
0000f200 29 3a 61 33 3d 9b 28 5f 30 29 3a 55 32 3d b5 28 |):a3=.(_0):U2=.(|
0000f210 64 30 29 3a 60 32 3d 9b 28 64 30 29 3a 44 3d 28 |d0):`2=.(d0):D=(|
0000f220 6d 32 2a b5 28 5f 30 29 29 2f 28 28 74 32 2a 60 |m2*.(_0))/((t2*`|
0000f230 32 29 2d 28 6d 32 2a 61 33 29 29 3a 56 34 3d 99 |2)-(m2*a3)):V4=.|
0000f240 28 44 29 3a 6e 3d 5f 30 2b 56 34 3a 77 33 3d 9b |(D):n=_0+V4:w3=.|
0000f250 28 6e 29 3a c8 95 6e 3e 58 3a 6e 2d 3d 58 3a ce |(n):..n>X:n-=X:.|
0000f260 0d 04 6e 3e c8 95 6e 3c 30 3a 6e 2b 3d 58 3a ce |..n>..n<0:n+=X:.|
0000f270 3a 51 30 3d 99 28 77 33 2a 28 74 32 2a 55 32 2d |:Q0=.(w3*(t2*U2-|
0000f280 4f 34 29 2f 28 74 32 2a 60 32 2a 61 33 2d 6d 32 |O4)/(t2*`2*a3-m2|
0000f290 29 29 3a 67 34 3d 6e 3a 43 3d 51 30 3a e1 0d 04 |)):g4=n:C=Q0:...|
0000f2a0 6f 84 dd f2 4e 28 f8 42 2c f8 43 2c 4f 30 29 3a |o...N(.B,.C,O0):|
0000f2b0 75 33 3d b5 28 42 29 3a 6c 31 3d 75 33 2a 9b 28 |u3=.(B):l1=u3*.(|
0000f2c0 4f 30 29 2d b7 28 43 29 2a b5 28 4f 30 29 3a 4d |O0)-.(C)*.(O0):M|
0000f2d0 31 3d 9b 28 42 29 3a 42 3d 99 28 6c 31 2f 4d 31 |1=.(B):B=.(l1/M1|
0000f2e0 29 3a 43 3d 9b 28 43 29 2a b5 28 4f 30 29 2a 75 |):C=.(C)*.(O0)*u|
0000f2f0 33 2b b5 28 43 29 2a 9b 28 4f 30 29 3a 43 3d 98 |3+.(C)*.(O0):C=.|
0000f300 28 43 29 3a e7 4d 31 3c 30 3a 42 2b 3d af 3a 8b |(C):.M1<0:B+=.:.|
0000f310 e7 4d 31 3e 3d 30 80 6c 31 3c 30 3a 42 2b 3d 32 |.M1>=0.l1<0:B+=2|
0000f320 2a af 0d 04 70 0f e7 42 3c 30 3a 42 2b 3d 32 2a |*...p..B<0:B+=2*|
0000f330 af 0d 04 71 05 e1 0d 04 72 55 dd a4 4f 28 56 24 |...q....rU..O(V$|
0000f340 29 3a ea 53 31 25 2c 58 33 25 3a c8 99 38 2c 31 |):.S1%,X3%:..8,1|
0000f350 37 2c 56 24 b8 58 33 25 2c 2c 2c 2c 53 31 25 3a |7,V$.X3%,,,,S1%:|
0000f360 e7 58 33 25 3c 3e 31 8c 85 32 30 33 2c 22 46 69 |.X3%<>1..203,"Fi|
0000f370 6c 65 20 27 22 2b a4 41 28 56 24 29 2b 22 27 20 |le '"+.A(V$)+"' |
0000f380 6e 6f 74 20 66 6f 75 6e 64 21 22 0d 04 73 08 3d |not found!"..s.=|
0000f390 53 31 25 0d 04 74 2d dd a4 6e 28 4c 24 2c 77 34 |S1%..t-..n(L$,w4|
0000f3a0 25 2c 78 34 25 29 3a ea 53 34 25 3a 53 34 25 3d |%,x4%):.S4%:S4%=|
0000f3b0 a4 4f 28 4c 24 29 3a e7 53 34 25 3e 78 34 25 8c |.O(L$):.S4%>x4%.|
0000f3c0 0d 04 75 3c f2 77 28 22 46 69 6c 65 20 74 6f 20 |..u<.w("File to |
0000f3d0 6c 6f 61 64 20 69 73 20 74 6f 6f 20 6c 61 72 67 |load is too larg|
0000f3e0 65 21 22 2c 22 44 61 74 61 20 6c 6f 61 64 69 6e |e!","Data loadin|
0000f3f0 67 20 65 72 72 6f 72 22 29 3a 3d 30 0d 04 76 18 |g error"):=0..v.|
0000f400 cd 3a c8 99 38 2c 31 36 2c 4c 24 2c 77 34 25 3a |.:..8,16,L$,w4%:|
0000f410 3d 53 34 25 0d 04 77 3e dd a4 43 28 59 25 2c 63 |=S4%..w>..C(Y%,c|
0000f420 25 29 3a 48 25 21 30 3d 59 25 3a 48 25 21 34 3d |%):H%!0=Y%:H%!4=|
0000f430 63 25 3a c8 99 26 34 30 30 63 65 2c 2c 48 25 3a |c%:..&400ce,,H%:|
0000f440 e7 28 48 25 21 32 34 80 32 35 37 29 3c 3e 32 35 |.(H%!24.257)<>25|
0000f450 37 8c 0d 04 78 2b 85 32 30 32 2c 22 49 63 6f 6e |7...x+.202,"Icon|
0000f460 20 22 2b c3 63 25 2b 22 20 6e 6f 74 20 69 6e 64 | "+.c%+" not ind|
0000f470 69 72 65 63 74 65 64 21 22 3a 3d 22 22 0d 04 79 |irected!":=""..y|
0000f480 0d cd 3a 3d 24 48 25 21 32 38 0d 04 7a 41 dd f2 |..:=$H%!28..zA..|
0000f490 41 28 59 25 2c 63 25 2c 55 24 29 3a 48 25 21 30 |A(Y%,c%,U$):H%!0|
0000f4a0 3d 59 25 3a 48 25 21 34 3d 63 25 3a c8 99 26 34 |=Y%:H%!4=c%:..&4|
0000f4b0 30 30 63 65 2c 2c 48 25 3a e7 28 48 25 21 32 34 |00ce,,H%:.(H%!24|
0000f4c0 80 32 35 37 29 3c 3e 32 35 37 8c 0d 04 7b 29 85 |.257)<>257...{).|
0000f4d0 32 30 32 2c 22 49 63 6f 6e 20 22 2b c3 63 25 2b |202,"Icon "+.c%+|
0000f4e0 22 20 6e 6f 74 20 69 6e 64 69 72 65 63 74 65 64 |" not indirected|
0000f4f0 21 22 3a e1 0d 04 7c 3d cd 3a 55 24 3d c0 55 24 |!":...|=.:U$=.U$|
0000f500 2c 48 25 21 33 36 2d 31 29 3a 24 48 25 21 32 38 |,H%!36-1):$H%!28|
0000f510 3d 55 24 3a 48 25 21 38 3d 30 3a 48 25 21 31 32 |=U$:H%!8=0:H%!12|
0000f520 3d 30 3a c8 99 26 34 30 30 63 64 2c 2c 48 25 3a |=0:..&400cd,,H%:|
0000f530 e1 0d 04 7d 44 dd f2 42 28 59 25 2c 63 25 2c 4f |...}D..B(Y%,c%,O|
0000f540 35 25 29 3a 48 25 21 30 3d 59 25 3a 48 25 21 34 |5%):H%!0=Y%:H%!4|
0000f550 3d 63 25 3a 48 25 21 31 32 3d 31 3c 3c 32 31 3a |=c%:H%!12=1<<21:|
0000f560 e7 4f 35 25 48 25 21 38 3d 31 3c 3c 32 31 8b 48 |.O5%H%!8=1<<21.H|
0000f570 25 21 38 3d 30 0d 04 7e 12 c8 99 26 34 30 30 63 |%!8=0..~...&400c|
0000f580 64 2c 2c 48 25 3a e1 0d 04 7f 44 dd f2 48 28 59 |d,,H%:....D..H(Y|
0000f590 25 2c 63 25 2c 6b 34 25 29 3a 48 25 21 30 3d 59 |%,c%,k4%):H%!0=Y|
0000f5a0 25 3a 48 25 21 34 3d 63 25 3a 48 25 21 31 32 3d |%:H%!4=c%:H%!12=|
0000f5b0 31 3c 3c 32 32 3a e7 6b 34 25 48 25 21 38 3d 31 |1<<22:.k4%H%!8=1|
0000f5c0 3c 3c 32 32 8b 48 25 21 38 3d 30 0d 04 80 12 c8 |<<22.H%!8=0.....|
0000f5d0 99 26 34 30 30 63 64 2c 2c 48 25 3a e1 0d 04 81 |.&400cd,,H%:....|
0000f5e0 2c dd a4 60 28 6a 24 2c 6e 24 29 3a ea 55 32 25 |,..`(j$,n$):.U2%|
0000f5f0 3a e7 6e 24 3d 22 52 49 47 48 54 22 21 48 25 3d |:.n$="RIGHT"!H%=|
0000f600 2d 31 8b 21 48 25 3d 2d 32 0d 04 82 55 48 25 21 |-1.!H%=-2...UH%!|
0000f610 34 3d 30 3a 48 25 21 38 3d 30 3a 48 25 21 31 32 |4=0:H%!8=0:H%!12|
0000f620 3d 36 38 3a 48 25 21 31 36 3d 36 38 3a 48 25 21 |=68:H%!16=68:H%!|
0000f630 32 30 3d 26 31 37 30 30 32 30 32 61 3a 24 28 48 |20=&1700202a:$(H|
0000f640 25 2b 32 34 29 3d 6a 24 3a c8 99 26 34 30 30 63 |%+24)=j$:..&400c|
0000f650 32 2c 2c 48 25 b8 55 32 25 3a 3d 55 32 25 0d 04 |2,,H%.U2%:=U2%..|
0000f660 83 49 dd f2 7a 28 59 25 2c 6f 24 2c 6d 24 2c 6c |.I..z(Y%,o$,m$,l|
0000f670 24 2c 6b 24 29 3a f2 41 28 59 25 2c 31 2c 6f 24 |$,k$):.A(Y%,1,o$|
0000f680 29 3a f2 41 28 59 25 2c 32 2c 6d 24 29 3a f2 41 |):.A(Y%,2,m$):.A|
0000f690 28 59 25 2c 33 2c 6c 24 29 3a f2 41 28 59 25 2c |(Y%,3,l$):.A(Y%,|
0000f6a0 34 2c 6b 24 29 3a e1 0d 04 84 3f dd a4 65 28 53 |4,k$):....?..e(S|
0000f6b0 24 29 3a ea 57 34 25 3a 57 34 25 3d 32 30 30 3a |$):.W4%:W4%=200:|
0000f6c0 c8 99 26 34 30 30 63 30 2c 57 34 25 2c 26 34 62 |..&400c0,W4%,&4b|
0000f6d0 35 33 34 31 35 34 2c 53 24 b8 57 34 25 2c 71 34 |534154,S$.W4%,q4|
0000f6e0 25 3a 3d 71 34 25 0d 04 85 68 dd f2 6c 28 43 24 |%:=q4%...h..l(C$|
0000f6f0 29 3a ea 52 32 25 2c 66 32 25 2c 48 24 2c 71 33 |):.R2%,f2%,H$,q3|
0000f700 25 2c 4d 24 2c 6a 31 25 2c 73 31 25 3a 66 32 25 |%,M$,j1%,s1%:f2%|
0000f710 3d 26 37 30 30 30 30 32 31 3a 71 33 25 3d 2d 31 |=&7000021:q3%=-1|
0000f720 3a 6a 31 25 3d a3 3a 4d 24 3d a4 75 28 43 24 29 |:j1%=.:M$=.u(C$)|
0000f730 3a 73 31 25 3d a9 4d 24 3a f5 3a 48 24 3d a4 58 |:s1%=.M$:.:H$=.X|
0000f740 28 43 24 29 3a c8 8e c0 48 24 2c 32 29 ca 0d 04 |(C$):...H$,2)...|
0000f750 86 1b c9 22 73 72 22 3a 46 25 28 64 33 25 29 3d |..."sr":F%(d3%)=|
0000f760 bb 28 a4 44 28 48 24 29 29 0d 04 87 22 c9 22 73 |.(.D(H$))..."."s|
0000f770 64 22 3a 4e 25 28 64 33 25 29 3d bb 28 a4 44 28 |d":N%(d3%)=.(.D(|
0000f780 48 24 29 29 3a 64 33 25 2b 3d 31 0d 04 88 1b c9 |H$)):d3%+=1.....|
0000f790 22 63 72 22 3a 53 25 28 5f 33 25 29 3d bb 28 a4 |"cr":S%(_3%)=.(.|
0000f7a0 44 28 48 24 29 29 0d 04 89 22 c9 22 63 64 22 3a |D(H$))..."."cd":|
0000f7b0 55 25 28 5f 33 25 29 3d bb 28 a4 44 28 48 24 29 |U%(_3%)=.(.D(H$)|
0000f7c0 29 3a 5f 33 25 2b 3d 31 0d 04 8a 22 c9 22 63 6f |):_3%+=1..."."co|
0000f7d0 22 3a 5a 25 28 4c 34 25 29 3d bb 28 a4 44 28 48 |":Z%(L4%)=.(.D(H|
0000f7e0 24 29 29 3a 4c 34 25 2b 3d 31 0d 04 8b 13 c9 22 |$)):L4%+=1....."|
0000f7f0 74 69 22 3a 52 32 25 3d 52 32 25 84 31 0d 04 8c |ti":R2%=R2%.1...|
0000f800 13 c9 22 6c 69 22 3a 52 32 25 3d 52 32 25 84 32 |.."li":R2%=R2%.2|
0000f810 0d 04 8d 19 c9 22 73 68 22 3a 66 32 25 3d 66 32 |....."sh":f2%=f2|
0000f820 25 84 26 34 30 30 30 30 30 0d 04 8e 18 c9 22 73 |%.&400000....."s|
0000f830 75 22 3a 71 33 25 3d a4 59 28 a4 44 28 48 24 29 |u":q3%=.Y(.D(H$)|
0000f840 29 0d 04 8f 18 c9 22 77 69 22 3a 71 33 25 3d a4 |)....."wi":q3%=.|
0000f850 70 28 a4 44 28 48 24 29 29 0d 04 90 18 c9 22 69 |p(.D(H$))....."i|
0000f860 63 22 3a 66 32 25 3d a4 6a 28 a4 44 28 48 24 29 |c":f2%=.j(.D(H$)|
0000f870 29 0d 04 91 15 c9 22 77 72 22 3a f2 61 31 28 a4 |)....."wr":.a1(.|
0000f880 44 28 48 24 29 29 0d 04 92 2e cb 3a fd 48 24 3d |D(H$)).....:.H$=|
0000f890 22 22 3a 6d 25 21 30 3d 52 32 25 3a 6d 25 21 34 |"":m%!0=R2%:m%!4|
0000f8a0 3d 71 33 25 3a e7 a9 28 4d 24 29 3e 3d 31 32 84 |=q3%:..(M$)>=12.|
0000f8b0 6a 31 25 8c 0d 04 93 20 6d 25 21 38 3d 66 32 25 |j1%.... m%!8=f2%|
0000f8c0 84 32 35 36 3a f2 51 30 28 6d 25 2c 6a 31 25 2c |.256:.Q0(m%,j1%,|
0000f8d0 73 31 25 29 0d 04 94 24 cc 3a 6d 25 21 38 3d 66 |s1%)...$.:m%!8=f|
0000f8e0 32 25 3a 24 28 6d 25 2b 31 32 29 3d c0 4d 24 2b |2%:$(m%+12)=.M$+|
0000f8f0 bd 28 30 29 2c 31 32 29 0d 04 95 0e cd 3a 6d 25 |.(0),12).....:m%|
0000f900 2b 3d 32 34 3a e1 0d 04 96 21 dd a4 4d 28 43 24 |+=24:....!..M(C$|
0000f910 29 3a e7 c0 43 24 2c 39 29 3d 22 62 65 67 69 6e |):..C$,9)="begin|
0000f920 6d 65 6e 75 22 3d b9 0d 04 97 06 3d a3 0d 04 98 |menu"=.....=....|
0000f930 37 dd a4 74 28 60 34 25 2c 42 35 25 29 3a ea 65 |7..t(`4%,B5%):.e|
0000f940 24 3a c8 99 26 34 30 30 64 35 2c 2c 60 34 25 2c |$:..&400d5,,`4%,|
0000f950 42 35 25 2c 4a 25 2b 32 35 36 b8 2c 2c 2c 65 24 |B5%,J%+256.,,,e$|
0000f960 3a 3d 65 24 0d 04 99 56 dd f2 68 31 28 43 30 25 |:=e$...V..h1(C0%|
0000f970 2c 59 31 25 2c 4e 33 25 2c 62 34 25 29 3a de 60 |,Y1%,N3%,b4%):.`|
0000f980 34 25 20 28 43 30 25 2a 32 38 29 2b 28 59 31 25 |4% (C0%*28)+(Y1%|
0000f990 2a 32 34 29 3a de 59 25 28 43 30 25 29 3a de 49 |*24):.Y%(C0%):.I|
0000f9a0 25 28 43 30 25 29 3a de 60 25 28 4e 33 25 29 3a |%(C0%):.`%(N3%):|
0000f9b0 de 5f 25 28 4e 33 25 29 3a e1 0d 04 9a 62 dd f2 |._%(N3%):....b..|
0000f9c0 79 3a ea 6b 25 2c 43 24 3a cf 23 70 25 3d 30 3a |y:.k%,C$:.#p%=0:|
0000f9d0 f5 3a 6b 25 3d 8f 23 70 25 3a 43 24 3d be 23 70 |.:k%=.#p%:C$=.#p|
0000f9e0 25 3a fd a4 4d 28 43 24 29 84 c5 23 70 25 3a e7 |%:..M(C$)..#p%:.|
0000f9f0 c5 23 70 25 85 32 30 30 2c 22 4e 6f 20 27 62 65 |.#p%.200,"No 'be|
0000fa00 67 69 6e 6d 65 6e 75 27 20 66 6f 75 6e 64 20 69 |ginmenu' found i|
0000fa10 6e 20 6d 65 6e 75 20 66 69 6c 65 22 0d 04 9b 0d |n menu file"....|
0000fa20 cf 23 70 25 3d 6b 25 3a e1 0d 04 9c 20 dd f2 51 |.#p%=k%:.... ..Q|
0000fa30 30 28 61 30 25 2c 6a 31 25 2c 42 31 25 29 3a ea |0(a0%,j1%,B1%):.|
0000fa40 6f 31 25 3a e7 6a 31 25 8c 0d 04 9d 0d de 6f 31 |o1%:.j1%......o1|
0000fa50 25 42 31 25 2b 31 0d 04 9e 0f cc 3a de 6f 31 25 |%B1%+1.....:.o1%|
0000fa60 31 2b a9 4d 24 0d 04 9f 23 cd 3a 61 30 25 21 31 |1+.M$...#.:a0%!1|
0000fa70 32 3d 6f 31 25 3a 24 6f 31 25 3d 4d 24 2b bd 28 |2=o1%:$o1%=M$+.(|
0000fa80 30 29 3a e7 6a 31 25 8c 0d 04 a0 33 60 25 28 6a |0):.j1%....3`%(j|
0000fa90 31 25 29 3d 6f 31 25 3a 5f 25 28 6a 31 25 29 3d |1%)=o1%:_%(j1%)=|
0000faa0 42 31 25 3a 6f 31 25 2b 3d 42 31 25 2b 31 3a 61 |B1%:o1%+=B1%+1:a|
0000fab0 30 25 21 32 30 3d 42 31 25 2b 31 0d 04 a1 1d cc |0%!20=B1%+1.....|
0000fac0 3a 6f 31 25 2b 3d 31 2b a9 4d 24 3a 61 30 25 21 |:o1%+=1+.M$:a0%!|
0000fad0 32 30 3d 31 2b a9 4d 24 0d 04 a2 19 cd 3a 3f 6f |20=1+.M$.....:?o|
0000fae0 31 25 3d 30 3a 61 30 25 21 31 36 3d 6f 31 25 3a |1%=0:a0%!16=o1%:|
0000faf0 e1 0d 04 a3 44 dd a4 67 28 61 30 25 29 3a ea 4d |....D..g(a0%):.M|
0000fb00 30 25 3a 4d 30 25 3d 31 3a 61 30 25 2b 3d 32 38 |0%:M0%=1:a0%+=28|
0000fb10 3a c8 95 28 21 61 30 25 80 31 32 38 29 3d 30 3a |:..(!a0%.128)=0:|
0000fb20 61 30 25 2b 3d 32 34 3a 4d 30 25 2b 3d 31 3a ce |a0%+=24:M0%+=1:.|
0000fb30 3a 3d 4d 30 25 0d 04 a4 67 dd f2 78 30 28 59 24 |:=M0%...g..x0(Y$|
0000fb40 29 3a ea 43 30 25 2c 75 32 25 2c 43 24 2c 6d 25 |):.C0%,u2%,C$,m%|
0000fb50 2c 60 34 25 3a f2 58 31 28 59 24 29 3a 70 25 3d |,`4%:.X1(Y$):p%=|
0000fb60 8e 59 24 3a f2 53 30 3a f2 79 3a 43 30 25 3d 30 |.Y$:.S0:.y:C0%=0|
0000fb70 3a 75 32 25 3d a3 3a f5 3a f2 4b 28 4e 30 25 2c |:u2%=.:.:.K(N0%,|
0000fb80 39 2c 37 35 2b 35 2a 43 30 25 29 3a 43 24 3d be |9,75+5*C0%):C$=.|
0000fb90 23 70 25 3a e7 a4 4d 28 43 24 29 8c 0d 04 a5 36 |#p%:..M(C$)....6|
0000fba0 e7 75 32 25 85 32 30 30 2c 22 42 61 64 20 6d 65 |.u2%.200,"Bad me|
0000fbb0 6e 75 20 66 69 6c 65 2c 20 6e 6f 20 69 74 65 6d |nu file, no item|
0000fbc0 73 20 69 6e 20 6d 65 6e 75 20 22 2b c3 28 43 30 |s in menu "+.(C0|
0000fbd0 25 29 0d 04 a6 0e e7 43 30 25 f2 64 28 6d 25 29 |%).....C0%.d(m%)|
0000fbe0 0d 04 a7 2a 43 30 25 2b 3d 31 3a 43 24 3d be 23 |...*C0%+=1:C$=.#|
0000fbf0 70 25 3a f2 71 28 6d 25 2c 43 24 2c 59 25 28 43 |p%:.q(m%,C$,Y%(C|
0000fc00 30 25 29 29 3a 75 32 25 3d b9 0d 04 a8 12 cc 3a |0%)):u2%=......:|
0000fc10 f2 6c 28 43 24 29 3a 75 32 25 3d a3 0d 04 a9 58 |.l(C$):u2%=....X|
0000fc20 cd 3a fd c5 23 70 25 3a f2 64 28 6d 25 29 3a c8 |.:..#p%:.d(m%):.|
0000fc30 99 26 32 30 30 30 64 2c 30 2c 70 25 3a 70 25 3d |.&2000d,0,p%:p%=|
0000fc40 30 3a e7 75 32 25 85 32 30 30 2c 22 42 61 64 20 |0:.u2%.200,"Bad |
0000fc50 6d 65 6e 75 20 66 69 6c 65 2c 20 6e 6f 20 69 74 |menu file, no it|
0000fc60 65 6d 73 20 69 6e 20 6d 65 6e 75 20 22 2b c3 28 |ems in menu "+.(|
0000fc70 43 30 25 29 0d 04 aa 05 e1 0d 04 ab 68 dd f2 71 |C0%)........h..q|
0000fc80 28 f8 6d 25 2c 53 24 2c 6b 32 25 29 3a 24 6d 25 |(.m%,S$,k2%):$m%|
0000fc90 3d c0 53 24 2c 31 32 29 2b bd 28 30 29 3a 6d 25 |=.S$,12)+.(0):m%|
0000fca0 3f 31 32 3d 37 3a 6d 25 3f 31 33 3d 32 3a 6d 25 |?12=7:m%?13=2:m%|
0000fcb0 3f 31 34 3d 37 3a 6d 25 3f 31 35 3d 30 3a 6d 25 |?14=7:m%?15=0:m%|
0000fcc0 21 31 36 3d 6b 32 25 3a 6d 25 21 32 30 3d 34 34 |!16=k2%:m%!20=44|
0000fcd0 3a 6d 25 21 32 34 3d 30 3a 6d 25 2b 3d 32 38 3a |:m%!24=0:m%+=28:|
0000fce0 e1 0d 04 ac 23 dd f2 64 28 6d 25 29 3a 21 28 6d |....#..d(m%):!(m|
0000fcf0 25 2d 32 34 29 3d 21 28 6d 25 2d 32 34 29 84 31 |%-24)=!(m%-24).1|
0000fd00 32 38 3a e1 0d 04 ad 5f dd a4 61 28 61 30 25 29 |28:...._..a(a0%)|
0000fd10 3a ea 59 31 25 2c 5a 34 25 2c 50 34 25 3a 59 31 |:.Y1%,Z4%,P4%:Y1|
0000fd20 25 3d 31 3a 50 34 25 3d 61 30 25 21 32 30 2b 61 |%=1:P4%=a0%!20+a|
0000fd30 30 25 21 32 34 3a 61 30 25 2b 3d 32 38 3a c8 95 |0%!24:a0%+=28:..|
0000fd40 28 21 61 30 25 80 31 32 38 29 3d 30 3a 59 31 25 |(!a0%.128)=0:Y1%|
0000fd50 2b 3d 31 3a e7 28 21 61 30 25 80 32 29 5a 34 25 |+=1:.(!a0%.2)Z4%|
0000fd60 2b 3d 31 0d 04 ae 1d 61 30 25 2b 3d 32 34 3a ce |+=1....a0%+=24:.|
0000fd70 3a e7 28 21 61 30 25 80 32 29 5a 34 25 2b 3d 31 |:.(!a0%.2)Z4%+=1|
0000fd80 0d 04 af 13 3d 59 31 25 2a 50 34 25 2b 5a 34 25 |....=Y1%*P4%+Z4%|
0000fd90 2a 32 34 0d 04 b0 36 dd a4 6a 28 46 24 29 3a e7 |*24...6..j(F$):.|
0000fda0 46 24 3d 22 22 85 32 30 30 2c 22 4d 65 6e 75 20 |F$="".200,"Menu |
0000fdb0 69 63 6f 6e 20 66 6c 61 67 20 76 61 6c 75 65 20 |icon flag value |
0000fdc0 6d 69 73 73 69 6e 67 21 22 0d 04 b1 0a 3d a0 28 |missing!"....=.(|
0000fdd0 46 24 29 0d 04 b2 3e dd a4 58 28 f8 4a 24 29 3a |F$)...>..X(.J$):|
0000fde0 ea 6b 25 3a 6b 25 3d a7 4a 24 2c 22 2c 22 29 3a |.k%:k%=.J$,","):|
0000fdf0 e7 6b 25 3a 4a 24 3d c1 4a 24 2c 6b 25 2b 31 29 |.k%:J$=.J$,k%+1)|
0000fe00 3a 3d c0 4a 24 2c a7 4a 24 2c 22 2c 22 29 2d 31 |:=.J$,.J$,",")-1|
0000fe10 29 0d 04 b3 07 3d 22 22 0d 04 b4 2a dd a4 75 28 |)....=""...*..u(|
0000fe20 4a 24 29 3a ea 6b 25 3a 6b 25 3d a7 4a 24 2c 22 |J$):.k%:k%=.J$,"|
0000fe30 2c 22 29 3a e7 6b 25 3a 3d c0 4a 24 2c 6b 25 2d |,"):.k%:=.J$,k%-|
0000fe40 31 29 0d 04 b5 07 3d 4a 24 0d 04 b6 4a dd a4 57 |1)....=J$...J..W|
0000fe50 28 56 32 25 29 3a ea 50 24 3a 50 24 3d c3 28 21 |(V2%):.P$:P$=.(!|
0000fe60 56 32 25 29 3a 56 32 25 2b 3d 34 3a c8 95 21 56 |V2%):V2%+=4:..!V|
0000fe70 32 25 3c 3e 2d 31 3a 50 24 2b 3d 22 2e 22 2b c3 |2%<>-1:P$+="."+.|
0000fe80 28 21 56 32 25 29 3a 56 32 25 2b 3d 34 3a ce 3a |(!V2%):V2%+=4:.:|
0000fe90 3d 50 24 0d 04 b7 25 dd a4 59 28 46 24 29 3a e7 |=P$...%..Y(F$):.|
0000fea0 bb 28 46 24 29 3c 31 84 bb 28 46 24 29 3e de 28 |.(F$)<1..(F$)>.(|
0000feb0 49 25 28 29 2c 31 29 8c 0d 04 b8 3a 85 32 30 30 |I%(),1)....:.200|
0000fec0 2c 22 43 61 6e 27 74 20 66 69 6e 64 20 6d 65 6e |,"Can't find men|
0000fed0 75 20 22 2b 46 24 2b 22 2c 20 61 73 20 72 65 66 |u "+F$+", as ref|
0000fee0 65 72 72 65 64 20 74 6f 20 69 6e 3a 2d 20 22 2b |erred to in:- "+|
0000fef0 48 24 0d 04 b9 11 cd 3a e7 bb 28 46 24 29 3d 43 |H$.....:..(F$)=C|
0000ff00 30 25 8c 0d 04 ba 47 85 32 30 30 2c 22 41 6e 20 |0%....G.200,"An |
0000ff10 69 74 65 6d 20 69 6e 20 6d 65 6e 75 20 22 2b 46 |item in menu "+F|
0000ff20 24 2b 22 20 63 61 6e 6e 6f 74 20 68 61 76 65 20 |$+" cannot have |
0000ff30 6d 65 6e 75 20 22 2b 46 24 2b 22 20 61 73 20 61 |menu "+F$+" as a|
0000ff40 20 73 75 62 6d 65 6e 75 21 22 0d 04 bb 10 cd 3a | submenu!".....:|
0000ff50 3d 49 25 28 bb 28 46 24 29 29 0d 04 bc 2f dd a4 |=I%(.(F$)).../..|
0000ff60 44 28 46 24 29 3a 46 24 3d c1 46 24 2c a7 46 24 |D(F$):F$=.F$,.F$|
0000ff70 2c 22 28 22 29 2b 31 29 3a 3d c0 46 24 2c a7 46 |,"(")+1):=.F$,.F|
0000ff80 24 2c 22 29 22 29 2d 31 29 0d 04 bd 4e dd a4 70 |$,")")-1)...N..p|
0000ff90 28 46 24 29 3a ea 55 32 25 3a ea 85 3a ee 85 85 |(F$):.U2%:..:...|
0000ffa0 a2 30 2c 22 4d 65 6e 75 20 66 69 6c 65 20 65 72 |.0,"Menu file er|
0000ffb0 72 6f 72 2e 20 57 69 6e 64 6f 77 20 76 61 72 69 |ror. Window vari|
0000ffc0 61 62 6c 65 20 22 2b 46 24 2b 22 20 6e 6f 74 20 |able "+F$+" not |
0000ffd0 66 6f 75 6e 64 2e 22 0d 04 be 15 55 32 25 3d a0 |found."....U2%=.|
0000ffe0 28 46 24 29 3a e7 55 32 25 3c 31 8c 0d 04 bf 13 |(F$):.U2%<1.....|
0000fff0 c8 99 26 32 30 30 30 64 2c 30 2c 70 25 3a 85 0d |..&2000d,0,p%:..|
00010000 04 c0 0a cd 3a 3d 55 32 25 0d 04 c1 1d dd f2 61 |....:=U2%......a|
00010010 31 28 46 24 29 3a 73 31 25 3d 30 3a e7 a7 46 24 |1(F$):s1%=0:..F$|
00010020 2c 22 3a 22 29 8c 0d 04 c2 2c 73 31 25 3d bb 28 |,":")....,s1%=.(|
00010030 c1 46 24 2c a7 46 24 2c 22 3a 22 29 2b 31 29 29 |.F$,.F$,":")+1))|
00010040 3a e7 a9 28 4d 24 29 3e 73 31 25 73 31 25 3d a9 |:..(M$)>s1%s1%=.|
00010050 4d 24 0d 04 c3 0d cc 3a 73 31 25 3d a9 4d 24 0d |M$.....:s1%=.M$.|
00010060 04 c4 1b cd 3a 52 32 25 3d 52 32 25 84 34 3a 6a |....:R2%=R2%.4:j|
00010070 31 25 3d bb 28 46 24 29 3a e1 0d 04 c5 37 dd f2 |1%=.(F$):....7..|
00010080 53 30 3a ea 59 31 25 2c 43 24 2c 6b 32 25 3a 43 |S0:.Y1%,C$,k2%:C|
00010090 30 25 3d 30 3a 6d 25 3d 60 34 25 3a f2 79 3a f5 |0%=0:m%=`4%:.y:.|
000100a0 3a 43 24 3d be 23 70 25 3a e7 a4 4d 28 43 24 29 |:C$=.#p%:..M(C$)|
000100b0 8c 0d 04 c6 4f 49 25 28 43 30 25 2b 31 29 3d 60 |....OI%(C0%+1)=`|
000100c0 34 25 2b 28 43 30 25 2a 32 38 29 2b 28 59 31 25 |4%+(C0%*28)+(Y1%|
000100d0 2a 32 34 29 3a 43 24 3d be 23 70 25 3a 43 30 25 |*24):C$=.#p%:C0%|
000100e0 2b 3d 31 3a 43 24 3d c0 43 24 2c 31 32 29 3a 59 |+=1:C$=.C$,12):Y|
000100f0 25 28 43 30 25 29 3d 31 32 2b 31 36 2a a9 43 24 |%(C0%)=12+16*.C$|
00010100 0d 04 c7 17 cc 3a 59 31 25 2b 3d 31 3a e7 a7 43 |.....:Y1%+=1:..C|
00010110 24 2c 22 2c 22 29 8c 0d 04 c8 20 6b 32 25 3d 31 |$,",").... k2%=1|
00010120 32 2b 31 36 2a a9 28 c0 43 24 2c a7 43 24 2c 22 |2+16*.(.C$,.C$,"|
00010130 2c 22 29 2d 31 29 29 0d 04 c9 13 cc 3a 6b 32 25 |,")-1)).....:k2%|
00010140 3d 31 32 2b 31 36 2a a9 43 24 0d 04 ca 1d cd 3a |=12+16*.C$.....:|
00010150 e7 6b 32 25 3e 59 25 28 43 30 25 29 59 25 28 43 |.k2%>Y%(C0%)Y%(C|
00010160 30 25 29 3d 6b 32 25 0d 04 cb 0d cd 3a fd c5 23 |0%)=k2%.....:..#|
00010170 70 25 3a e1 0d 04 cc 3a dd f2 58 31 28 59 24 29 |p%:....:..X1(Y$)|
00010180 3a ea 43 30 25 2c 59 31 25 2c 4e 33 25 2c 62 34 |:.C0%,Y1%,N3%,b4|
00010190 25 2c 43 24 3a 70 25 3d 8e 59 24 3a f5 3a 43 24 |%,C$:p%=.Y$:.:C$|
000101a0 3d be 23 70 25 3a e7 a4 4d 28 43 24 29 8c 0d 04 |=.#p%:..M(C$)...|
000101b0 cd 12 43 30 25 2b 3d 31 3a 43 24 3d be 23 70 25 |..C0%+=1:C$=.#p%|
000101c0 0d 04 ce 19 cc 3a e7 a7 43 24 2c 22 2c 77 72 69 |.....:..C$,",wri|
000101d0 74 22 29 4e 33 25 2b 3d 31 0d 04 cf 17 e7 a7 43 |t")N3%+=1......C|
000101e0 24 2c 22 2c 77 69 6e 64 22 29 62 34 25 2b 3d 31 |$,",wind")b4%+=1|
000101f0 0d 04 d0 0a 59 31 25 2b 3d 31 0d 04 d1 35 cd 3a |....Y1%+=1...5.:|
00010200 fd c5 23 70 25 3a c8 99 26 32 30 30 30 64 2c 30 |..#p%:..&2000d,0|
00010210 2c 70 25 3a 70 25 3d 30 3a f2 68 31 28 43 30 25 |,p%:p%=0:.h1(C0%|
00010220 2c 59 31 25 2c 4e 33 25 2c 62 34 25 29 3a e1 0d |,Y1%,N3%,b4%):..|
00010230 04 d2 2f dd f2 43 28 67 33 25 2c 55 34 25 2c 5a |../..C(g3%,U4%,Z|
00010240 33 25 29 3a ea 56 34 25 3a e7 67 33 25 3c 31 84 |3%):.V4%:.g3%<1.|
00010250 67 33 25 3e de 28 49 25 28 29 2c 31 29 8c 0d 04 |g3%>.(I%(),1)...|
00010260 d3 35 85 32 30 31 2c 22 49 74 65 6d 20 74 69 63 |.5.201,"Item tic|
00010270 6b 20 65 72 72 6f 72 2e 20 4f 75 74 20 6f 66 20 |k error. Out of |
00010280 72 61 6e 67 65 20 6d 65 6e 75 20 6e 75 6d 62 65 |range menu numbe|
00010290 72 21 22 0d 04 d4 1d cd 3a e7 55 34 25 3c 30 84 |r!".....:.U4%<0.|
000102a0 55 34 25 3e a4 67 28 49 25 28 67 33 25 29 29 8c |U4%>.g(I%(g3%)).|
000102b0 0d 04 d5 35 85 32 30 31 2c 22 49 74 65 6d 20 74 |...5.201,"Item t|
000102c0 69 63 6b 20 65 72 72 6f 72 2e 20 4f 75 74 20 6f |ick error. Out o|
000102d0 66 20 72 61 6e 67 65 20 69 74 65 6d 20 6e 75 6d |f range item num|
000102e0 62 65 72 21 22 0d 04 d6 2f cd 3a 56 34 25 3d 49 |ber!".../.:V4%=I|
000102f0 25 28 67 33 25 29 2b 32 38 2b 28 32 34 2a 55 34 |%(g3%)+28+(24*U4|
00010300 25 29 3a e7 5a 33 25 3d b9 5a 33 25 3d 31 8b 5a |%):.Z3%=.Z3%=1.Z|
00010310 33 25 3d 30 0d 04 d7 18 21 56 34 25 3d 28 21 56 |3%=0....!V4%=(!V|
00010320 34 25 80 2d 32 29 84 5a 33 25 3a e1 0d 04 d8 2f |4%.-2).Z3%:..../|
00010330 dd a4 41 28 50 24 29 3a c8 95 a7 50 24 2c 22 2e |..A(P$):...P$,".|
00010340 22 29 3a 50 24 3d c1 50 24 2c a7 50 24 2c 22 2e |"):P$=.P$,.P$,".|
00010350 22 29 2b 31 29 3a ce 3a 3d 50 24 0d 04 d9 37 dd |")+1):.:=P$...7.|
00010360 f2 77 28 62 24 2c 53 24 29 3a 62 24 3d bd 30 2b |.w(b$,S$):b$=.0+|
00010370 bd 30 2b bd 30 2b bd 30 2b 62 24 2b bd 30 3a c8 |.0+.0+.0+b$+.0:.|
00010380 99 26 34 30 30 64 66 2c 62 24 2c 31 38 2c 53 24 |.&400df,b$,18,S$|
00010390 3a e1 0d 04 da 5d dd a4 6c 28 5a 24 29 3a ea 42 |:....]..l(Z$):.B|
000103a0 31 25 3a c8 99 26 32 30 30 32 33 2c 5a 24 2b bd |1%:..&20023,Z$+.|
000103b0 28 30 29 2c 48 25 2c 2d 31 b8 2c 2c 42 31 25 3a |(0),H%,-1.,,B1%:|
000103c0 e7 42 31 25 3d 30 85 a2 30 2c 22 53 79 73 74 65 |.B1%=0..0,"Syste|
000103d0 6d 20 76 61 72 69 61 62 6c 65 20 27 22 2b 5a 24 |m variable '"+Z$|
000103e0 2b 22 27 20 6e 6f 74 20 66 6f 75 6e 64 21 22 0d |+"' not found!".|
000103f0 04 db 36 c8 99 26 32 30 30 32 33 2c 5a 24 2b bd |..6..&20023,Z$+.|
00010400 28 30 29 2c 48 25 2c 32 35 35 2c 2c 33 b8 2c 2c |(0),H%,255,,3.,,|
00010410 42 31 25 3a 3f 28 48 25 2b 42 31 25 29 3d 31 33 |B1%:?(H%+B1%)=13|
00010420 3a 3d 24 48 25 0d 04 dc 94 dd f2 73 30 28 4c 25 |:=$H%......s0(L%|
00010430 2c 6a 24 2c 46 25 2c 49 25 29 3a c8 99 34 36 2c |,j$,F%,I%):..46,|
00010440 32 39 32 2c 4c 25 2c 6a 24 2c 32 2c 46 25 2c 49 |292,L%,j$,2,F%,I|
00010450 25 3a 48 25 3f 30 3d 31 3a 48 25 3f 31 3d 32 35 |%:H%?0=1:H%?1=25|
00010460 3a 48 25 3f 32 3d 32 35 35 3a 48 25 3f 33 3d 31 |:H%?2=255:H%?3=1|
00010470 38 37 3a 48 25 3f 34 3d 31 38 37 3a c8 99 37 2c |87:H%?4=187:..7,|
00010480 31 32 2c 48 25 3a 48 25 3f 30 3d 32 3a 48 25 3f |12,H%:H%?0=2:H%?|
00010490 32 3d 38 35 3a 48 25 3f 33 3d 38 35 3a 48 25 3f |2=85:H%?3=85:H%?|
000104a0 34 3d 38 35 3a c8 99 37 2c 31 32 2c 48 25 3a 2a |4=85:..7,12,H%:*|
000104b0 50 4f 49 4e 54 45 52 20 32 0d 04 dd 05 e1 0d 04 |POINTER 2.......|
000104c0 de 13 dd f2 75 30 3a 2a 50 4f 49 4e 54 45 52 20 |....u0:*POINTER |
000104d0 31 0d 04 df 05 e1 0d 04 e0 4c dd a4 6f 28 56 24 |1........L..o(V$|
000104e0 29 3a ea 4c 25 2c 53 31 25 3a 53 31 25 3d a4 4f |):.L%,S1%:S1%=.O|
000104f0 28 56 24 29 2b 31 36 3a de 4c 25 53 31 25 3a 4c |(V$)+16:.L%S1%:L|
00010500 25 21 30 3d 53 31 25 3a 4c 25 21 38 3d 31 36 3a |%!0=S1%:L%!8=16:|
00010510 c8 99 34 36 2c 32 36 36 2c 4c 25 2c 56 24 3a 3d |..46,266,L%,V$:=|
00010520 4c 25 0d 04 e1 4d dd a4 47 28 56 24 2c 63 24 2c |L%...M..G(V$,c$,|
00010530 f8 49 35 25 2c 50 35 25 2c 4c 25 29 3a ea 59 25 |.I5%,P5%,L%):.Y%|
00010540 3a c8 99 26 34 30 30 64 39 2c 2c 56 24 3a 59 25 |:..&400d9,,V$:Y%|
00010550 3d a4 63 28 63 24 2c 49 35 25 2c 50 35 25 2c 4c |=.c(c$,I5%,P5%,L|
00010560 25 29 3a c8 99 26 34 30 30 64 61 3a 3d 59 25 0d |%):..&400da:=Y%.|
00010570 04 e2 4f dd a4 63 28 63 24 2c f8 56 32 25 2c 4c |..O..c(c$,.V2%,L|
00010580 35 25 2c 4c 25 29 3a ea 58 33 25 2c 59 25 3a c8 |5%,L%):.X3%,Y%:.|
00010590 99 26 34 30 30 64 62 2c 2c 4a 25 2c 56 32 25 2c |.&400db,,J%,V2%,|
000105a0 4c 35 25 2c 2d 31 2c 63 24 2c 30 b8 2c 2c 56 32 |L5%,-1,c$,0.,,V2|
000105b0 25 2c 2c 2c 2c 58 33 25 3a e7 58 33 25 8c 0d 04 |%,,,,X3%:.X3%...|
000105c0 e3 10 e7 4c 25 3a 4a 25 21 36 34 3d 4c 25 0d 04 |...L%:J%!64=L%..|
000105d0 e4 13 c8 99 26 34 30 30 63 31 2c 2c 4a 25 b8 59 |....&400c1,,J%.Y|
000105e0 25 0d 04 e5 3a cc 3a 85 a2 30 2c 22 57 69 6e 64 |%...:.:..0,"Wind|
000105f0 6f 77 20 22 2b 63 24 2b 22 20 6e 6f 74 20 66 6f |ow "+c$+" not fo|
00010600 75 6e 64 20 69 6e 20 74 65 6d 70 6c 61 74 65 20 |und in template |
00010610 66 69 6c 65 21 22 3a 59 25 3d 30 0d 04 e6 09 cd |file!":Y%=0.....|
00010620 3a 3d 59 25 0d 04 e7 b4 dd f2 72 28 59 25 2c 46 |:=Y%......r(Y%,F|
00010630 25 2c 49 25 2c 41 35 25 2c 7a 34 25 29 3a ea 62 |%,I%,A5%,z4%):.b|
00010640 31 25 2c 48 31 25 2c 57 31 25 2c 6f 32 25 2c 4d |1%,H1%,W1%,o2%,M|
00010650 34 25 2c 79 33 25 3a 21 48 25 3d 59 25 3a c8 99 |4%,y3%:!H%=Y%:..|
00010660 26 34 30 30 63 63 2c 2c 48 25 3a 62 31 25 3d 48 |&400cc,,H%:b1%=H|
00010670 25 21 34 34 2b 41 35 25 3a 48 31 25 3d 49 25 2d |%!44+A5%:H1%=I%-|
00010680 49 25 83 34 3a 57 31 25 3d 46 25 2d 46 25 83 32 |I%.4:W1%=F%-F%.2|
00010690 3a 6f 32 25 3d 48 25 21 35 36 2b 7a 34 25 3a 4d |:o2%=H%!56+z4%:M|
000106a0 34 25 3d 48 25 21 32 30 2b 48 25 21 31 32 2d 48 |4%=H%!20+H%!12-H|
000106b0 25 21 34 3a 79 33 25 3d 48 25 21 32 34 2d 48 25 |%!4:y3%=H%!24-H%|
000106c0 21 31 36 2b 48 25 21 38 3a e7 48 31 25 3e 79 33 |!16+H%!8:.H1%>y3|
000106d0 25 48 31 25 3d 79 33 25 0d 04 e8 13 e7 4d 34 25 |%H1%=y3%.....M4%|
000106e0 3e 57 31 25 57 31 25 3d 4d 34 25 0d 04 e9 39 48 |>W1%W1%=M4%...9H|
000106f0 25 21 30 3d 62 31 25 3a 48 25 21 34 3d 48 31 25 |%!0=b1%:H%!4=H1%|
00010700 3a 48 25 21 38 3d 57 31 25 3a 48 25 21 31 32 3d |:H%!8=W1%:H%!12=|
00010710 6f 32 25 3a c8 99 26 34 30 30 64 37 2c 59 25 2c |o2%:..&400d7,Y%,|
00010720 48 25 3a e1 0d 04 ea 70 dd a4 56 28 53 24 2c 64 |H%:....p..V(S$,d|
00010730 25 2c 62 30 25 29 3a de 4b 24 28 62 30 25 2d 31 |%,b0%):.K$(b0%-1|
00010740 29 3a 44 32 25 3d 30 3a 6b 33 25 3d 64 25 3a 64 |):D2%=0:k3%=d%:d|
00010750 25 3d 64 25 2a 31 36 2b 38 3a 62 30 25 3d 62 30 |%=d%*16+8:b0%=b0|
00010760 25 2a 33 32 3a 79 31 25 3d a4 62 28 53 24 2c 26 |%*32:y1%=.b(S$,&|
00010770 66 66 30 30 30 30 30 32 2c 64 25 2c 62 30 25 2c |ff000002,d%,b0%,|
00010780 31 30 30 2c 64 25 2c 32 30 30 2c 62 30 25 29 3a |100,d%,200,b0%):|
00010790 3d 79 31 25 0d 04 eb 97 dd a4 62 28 53 24 2c 4f |=y1%......b(S$,O|
000107a0 34 25 2c 5a 30 25 2c 42 30 25 2c 6e 34 25 2c 6b |4%,Z0%,B0%,n4%,k|
000107b0 32 25 2c 64 34 25 2c 50 34 25 29 3a ea 72 34 25 |2%,d4%,P4%):.r4%|
000107c0 2c 55 32 25 3a de 72 34 25 20 28 31 2b a9 53 24 |,U2%:.r4% (1+.S$|
000107d0 29 3a 48 25 21 30 3d 6e 34 25 3a 48 25 21 34 3d |):H%!0=n4%:H%!4=|
000107e0 64 34 25 3a 48 25 21 38 3d 6e 34 25 2b 6b 32 25 |d4%:H%!8=n4%+k2%|
000107f0 3a 48 25 21 31 32 3d 64 34 25 2b 50 34 25 3a 48 |:H%!12=d4%+P4%:H|
00010800 25 21 31 36 3d 30 3a 48 25 21 32 30 3d 30 3a 48 |%!16=0:H%!20=0:H|
00010810 25 21 32 34 3d 2d 31 3a e7 4f 34 25 3d 30 4f 34 |%!24=-1:.O4%=0O4|
00010820 25 3d 26 66 66 30 30 30 30 31 32 0d 04 ec f8 48 |%=&ff000012....H|
00010830 25 21 32 38 3d 4f 34 25 3a 48 25 3f 33 32 3d 37 |%!28=O4%:H%?32=7|
00010840 3a 48 25 3f 33 33 3d 32 3a 48 25 3f 33 34 3d 37 |:H%?33=2:H%?34=7|
00010850 3a 48 25 3f 33 35 3d 31 3a 48 25 3f 33 36 3d 33 |:H%?35=1:H%?36=3|
00010860 3a 48 25 3f 33 37 3d 31 3a 48 25 3f 33 38 3d 31 |:H%?37=1:H%?38=1|
00010870 32 3a 48 25 3f 33 39 3d 30 3a 48 25 21 34 30 3d |2:H%?39=0:H%!40=|
00010880 30 3a 48 25 21 34 34 3d 2d 42 30 25 3a 48 25 21 |0:H%!44=-B0%:H%!|
00010890 34 38 3d 5a 30 25 3a 48 25 21 35 32 3d 30 3a 48 |48=Z0%:H%!52=0:H|
000108a0 25 21 35 36 3d 32 38 31 3a 48 25 21 36 30 3d 32 |%!56=281:H%!60=2|
000108b0 34 35 37 36 3a 48 25 21 36 34 3d 31 3a 48 25 3f |4576:H%!64=1:H%?|
000108c0 36 38 3d 30 3a 48 25 3f 36 39 3d 30 3a 48 25 3f |68=0:H%?69=0:H%?|
000108d0 37 30 3d 30 3a 48 25 3f 37 31 3d 30 3a 24 72 34 |70=0:H%?71=0:$r4|
000108e0 25 3d 53 24 3a 48 25 21 37 32 3d 72 34 25 3a 48 |%=S$:H%!72=r4%:H|
000108f0 25 21 37 36 3d 2d 31 3a 48 25 21 38 30 3d a9 28 |%!76=-1:H%!80=.(|
00010900 53 24 29 2b 31 3a 48 25 21 38 34 3d 30 3a c8 99 |S$)+1:H%!84=0:..|
00010910 26 34 30 30 63 31 2c 2c 48 25 b8 55 32 25 3a 3d |&400c1,,H%.U2%:=|
00010920 55 32 25 0d 04 ed 31 dd f2 51 28 59 25 2c 43 35 |U2%...1..Q(Y%,C5|
00010930 25 29 3a 21 48 25 3d 59 25 3a c8 99 26 34 30 30 |%):!H%=Y%:..&400|
00010940 63 62 2c 2c 48 25 3a e7 43 35 25 3a 48 25 21 32 |cb,,H%:.C5%:H%!2|
00010950 38 3d 2d 31 0d 04 ee 12 c8 99 26 34 30 30 63 35 |8=-1......&400c5|
00010960 2c 2c 48 25 3a e1 0d 04 ef 4e dd f2 4f 28 66 31 |,,H%:....N..O(f1|
00010970 25 2c 55 24 29 3a ea 76 30 25 2c 62 31 25 2c 48 |%,U$):.v0%,b1%,H|
00010980 31 25 2c 57 31 25 2c 6f 32 25 2c 72 31 25 2c 55 |1%,W1%,o2%,r1%,U|
00010990 33 25 2c 46 25 2c 49 25 2c 54 31 25 3a 76 30 25 |3%,F%,I%,T1%:v0%|
000109a0 3d de 28 4b 24 28 29 2c 31 29 3a e7 66 31 25 3e |=.(K$(),1):.f1%>|
000109b0 76 30 25 8c 0d 04 f0 3a 85 32 30 34 2c 22 4f 75 |v0%....:.204,"Ou|
000109c0 74 20 6f 66 20 72 61 6e 67 65 20 6c 69 6e 65 20 |t of range line |
000109d0 6e 75 6d 62 65 72 20 69 6e 20 27 50 52 4f 43 70 |number in 'PROCp|
000109e0 72 69 6e 74 5f 6c 69 6e 65 27 21 22 3a e1 0d 04 |rint_line'!":...|
000109f0 f1 fb cd 3a 21 48 25 3d 79 31 25 3a c8 99 26 34 |...:!H%=y1%:..&4|
00010a00 30 30 63 63 2c 2c 48 25 3a 62 31 25 3d 48 25 21 |00cc,,H%:b1%=H%!|
00010a10 34 34 3a 48 31 25 3d 48 25 21 34 38 3a 57 31 25 |44:H1%=H%!48:W1%|
00010a20 3d 48 25 21 35 32 3a 6f 32 25 3d 48 25 21 35 36 |=H%!52:o2%=H%!56|
00010a30 3a 72 31 25 3d 6f 32 25 2d 66 31 25 2a 33 32 3a |:r1%=o2%-f1%*32:|
00010a40 55 33 25 3d 72 31 25 2d 33 32 3a 66 31 25 3d 28 |U3%=r1%-32:f1%=(|
00010a50 66 31 25 2b 44 32 25 29 83 28 76 30 25 2b 31 29 |f1%+D2%).(v0%+1)|
00010a60 3a 4b 24 28 66 31 25 29 3d c0 55 24 2c 6b 33 25 |:K$(f1%)=.U$,k3%|
00010a70 29 3a 46 25 3d 48 25 21 34 2d 48 25 21 32 30 2b |):F%=H%!4-H%!20+|
00010a80 34 3a 49 25 3d 48 25 21 31 36 2d 48 25 21 32 34 |4:I%=H%!16-H%!24|
00010a90 2b 72 31 25 2d 34 3a 48 25 21 30 3d 79 31 25 3a |+r1%-4:H%!0=y1%:|
00010aa0 48 25 21 34 3d 62 31 25 3a 48 25 21 38 3d 55 33 |H%!4=b1%:H%!8=U3|
00010ab0 25 3a 48 25 21 31 32 3d 57 31 25 3a 48 25 21 31 |%:H%!12=W1%:H%!1|
00010ac0 36 3d 72 31 25 3a c8 99 26 34 30 30 65 36 2c 37 |6=r1%:..&400e6,7|
00010ad0 3a c8 99 26 34 30 30 63 39 2c 2c 48 25 b8 54 31 |:..&400c9,,H%.T1|
00010ae0 25 3a c8 95 54 31 25 3a db 0d 04 f2 2a ec 46 25 |%:..T1%:....*.F%|
00010af0 2c 49 25 3a f1 3b 4b 24 28 66 31 25 29 3b 3a c8 |,I%:.;K$(f1%);:.|
00010b00 99 26 34 30 30 63 61 2c 2c 48 25 b8 54 31 25 3a |.&400ca,,H%.T1%:|
00010b10 ce 3a e1 0d 04 f3 f9 dd f2 69 30 28 55 24 29 3a |.:.......i0(U$):|
00010b20 ea 76 30 25 2c 62 31 25 2c 48 31 25 2c 57 31 25 |.v0%,b1%,H1%,W1%|
00010b30 2c 6f 32 25 2c 72 31 25 2c 55 33 25 2c 46 25 2c |,o2%,r1%,U3%,F%,|
00010b40 49 25 2c 54 31 25 3a 76 30 25 3d de 28 4b 24 28 |I%,T1%:v0%=.(K$(|
00010b50 29 2c 31 29 3a 4b 24 28 44 32 25 29 3d c0 55 24 |),1):K$(D2%)=.U$|
00010b60 2c 6b 33 25 29 3a 62 31 25 3d 30 3a 48 31 25 3d |,k3%):b1%=0:H1%=|
00010b70 2d 28 31 2b 76 30 25 29 2a 33 32 3a 57 31 25 3d |-(1+v0%)*32:W1%=|
00010b80 6b 33 25 2a 31 36 2b 38 3a 6f 32 25 3d 30 3a c8 |k3%*16+8:o2%=0:.|
00010b90 99 26 34 30 30 65 62 2c 79 31 25 2c 62 31 25 2c |.&400eb,y1%,b1%,|
00010ba0 48 31 25 2c 57 31 25 2c 6f 32 25 2c 62 31 25 2c |H1%,W1%,o2%,b1%,|
00010bb0 48 31 25 2b 33 32 3a 72 31 25 3d 48 31 25 2b 33 |H1%+32:r1%=H1%+3|
00010bc0 32 3a 55 33 25 3d 48 31 25 3a 21 48 25 3d 79 31 |2:U3%=H1%:!H%=y1|
00010bd0 25 3a c8 99 26 34 30 30 63 63 2c 2c 48 25 3a 46 |%:..&400cc,,H%:F|
00010be0 25 3d 48 25 21 34 2d 48 25 21 32 30 2b 34 3a 49 |%=H%!4-H%!20+4:I|
00010bf0 25 3d 48 25 21 31 36 2d 48 25 21 32 34 2b 72 31 |%=H%!16-H%!24+r1|
00010c00 25 2d 34 3a 48 25 21 30 3d 79 31 25 0d 04 f4 88 |%-4:H%!0=y1%....|
00010c10 48 25 21 34 3d 62 31 25 3a 48 25 21 38 3d 55 33 |H%!4=b1%:H%!8=U3|
00010c20 25 3a 48 25 21 31 32 3d 57 31 25 3a 48 25 21 31 |%:H%!12=W1%:H%!1|
00010c30 36 3d 72 31 25 3a c8 99 26 34 30 30 65 36 2c 37 |6=r1%:..&400e6,7|
00010c40 3a c8 99 26 34 30 30 63 39 2c 2c 48 25 b8 54 31 |:..&400c9,,H%.T1|
00010c50 25 3a c8 95 54 31 25 3a db 3a ec 46 25 2c 49 25 |%:..T1%:.:.F%,I%|
00010c60 3a f1 3b 4b 24 28 44 32 25 29 3b 3a c8 99 26 34 |:.;K$(D2%);:..&4|
00010c70 30 30 63 61 2c 2c 48 25 b8 54 31 25 3a ce 3a 44 |00ca,,H%.T1%:.:D|
00010c80 32 25 3d 28 44 32 25 2b 31 29 83 28 31 2b 76 30 |2%=(D2%+1).(1+v0|
00010c90 25 29 3a e1 0d 04 f5 79 dd f2 6f 31 28 4a 25 29 |%):....y..o1(J%)|
00010ca0 3a ea 76 30 25 2c 4e 34 25 2c 69 33 25 2c 46 25 |:.v0%,N4%,i3%,F%|
00010cb0 2c 49 25 3a 76 30 25 3d de 28 4b 24 28 29 2c 31 |,I%:v0%=.(K$(),1|
00010cc0 29 3a 4e 34 25 3d 2d 28 4a 25 21 32 34 2b 34 2d |):N4%=-(J%!24+4-|
00010cd0 4a 25 21 31 36 2b 4a 25 21 34 30 29 81 33 32 3a |J%!16+J%!40).32:|
00010ce0 69 33 25 3d 2d 28 4a 25 21 32 34 2b 34 2d 4a 25 |i3%=-(J%!24+4-J%|
00010cf0 21 31 36 2b 4a 25 21 33 32 29 81 33 32 3a e7 69 |!16+J%!32).32:.i|
00010d00 33 25 3e 76 30 25 69 33 25 3d 76 30 25 0d 04 f6 |3%>v0%i3%=v0%...|
00010d10 0e e7 4e 34 25 3c 3d 76 30 25 8c 0d 04 f7 6a 46 |..N4%<=v0%....jF|
00010d20 25 3d 4a 25 21 34 2d 4a 25 21 32 30 2b 34 3a 49 |%=J%!4-J%!20+4:I|
00010d30 25 3d 4a 25 21 34 30 2d 28 4a 25 21 32 34 2b 34 |%=J%!40-(J%!24+4|
00010d40 2d 4a 25 21 31 36 2b 4a 25 21 34 30 29 83 33 32 |-J%!16+J%!40).32|
00010d50 3a e3 66 31 25 3d 4e 34 25 b8 69 33 25 3a ec 46 |:.f1%=N4%.i3%:.F|
00010d60 25 2c 49 25 3a 49 25 2d 3d 33 32 3a f1 3b 4b 24 |%,I%:I%-=32:.;K$|
00010d70 28 28 66 31 25 2b 44 32 25 29 83 28 76 30 25 2b |((f1%+D2%).(v0%+|
00010d80 31 29 29 3a ed 0d 04 f8 07 cd 3a e1 0d 04 f9 54 |1)):......:....T|
00010d90 dd f2 6c 30 28 21 48 25 2c 48 25 21 34 2c 48 25 |..l0(!H%,H%!4,H%|
00010da0 21 38 2c 48 25 21 31 32 2c 48 25 21 31 36 29 3a |!8,H%!12,H%!16):|
00010db0 ea 54 31 25 3a c8 99 26 34 30 30 63 39 2c 2c 48 |.T1%:..&400c9,,H|
00010dc0 25 b8 54 31 25 3a c8 95 54 31 25 3a c8 99 26 34 |%.T1%:..T1%:..&4|
00010dd0 30 30 63 61 2c 2c 48 25 b8 54 31 25 3a ce 3a e1 |00ca,,H%.T1%:.:.|
00010de0 0d 04 fa 56 dd a4 52 28 59 25 2c 63 25 29 3a ea |...V..R(Y%,c%):.|
00010df0 46 25 3a 48 25 21 30 3d 59 25 3a c8 99 26 34 30 |F%:H%!0=Y%:..&40|
00010e00 30 63 62 2c 2c 48 25 3a 46 25 3d 48 25 21 34 2d |0cb,,H%:F%=H%!4-|
00010e10 48 25 21 32 30 3a 48 25 21 34 3d 63 25 3a c8 99 |H%!20:H%!4=c%:..|
00010e20 26 34 30 30 63 65 2c 2c 48 25 3a 3d 46 25 2b 48 |&400ce,,H%:=F%+H|
00010e30 25 21 31 36 2b 32 0d 04 fb e1 dd f2 60 30 28 f8 |%!16+2......`0(.|
00010e40 64 25 29 3a ea 46 25 2c 49 25 2c 60 31 25 2c 56 |d%):.F%,I%,`1%,V|
00010e50 31 25 2c 41 32 25 2c 50 32 25 3a f2 50 30 28 46 |1%,A2%,P2%:.P0(F|
00010e60 25 2c 49 25 29 3a 21 48 25 3d 64 25 3a c8 99 26 |%,I%):!H%=d%:..&|
00010e70 34 30 30 63 63 2c 2c 48 25 3a 60 31 25 3d 48 25 |400cc,,H%:`1%=H%|
00010e80 21 34 3a 56 31 25 3d 48 25 21 31 32 3a 41 32 25 |!4:V1%=H%!12:A2%|
00010e90 3d 48 25 21 38 3a 50 32 25 3d 48 25 21 31 36 3a |=H%!8:P2%=H%!16:|
00010ea0 48 25 21 34 3d 28 46 25 2d 56 31 25 2b 60 31 25 |H%!4=(F%-V1%+`1%|
00010eb0 29 81 32 3a 48 25 21 31 32 3d 48 25 21 34 2b 56 |).2:H%!12=H%!4+V|
00010ec0 31 25 2d 60 31 25 3a 48 25 21 38 3d 28 49 25 2d |1%-`1%:H%!8=(I%-|
00010ed0 50 32 25 2b 41 32 25 29 81 32 3a 48 25 21 31 36 |P2%+A2%).2:H%!16|
00010ee0 3d 48 25 21 38 2b 50 32 25 2d 41 32 25 3a 21 59 |=H%!8+P2%-A2%:!Y|
00010ef0 33 25 3d 64 25 3a c8 99 26 34 30 30 63 33 2c 2c |3%=d%:..&400c3,,|
00010f00 59 33 25 3a c8 99 26 34 30 30 63 31 2c 2c 48 25 |Y3%:..&400c1,,H%|
00010f10 2b 34 b8 64 25 3a e1 0d 04 fc 8f dd f2 50 30 28 |+4.d%:.......P0(|
00010f20 f8 46 25 2c f8 49 25 29 3a ea 6e 33 25 3a 48 25 |.F%,.I%):.n3%:H%|
00010f30 21 30 3d 31 33 30 3a 48 25 21 34 3d 31 33 31 3a |!0=130:H%!4=131:|
00010f40 48 25 21 38 3d 2d 31 3a c8 99 34 39 2c 48 25 2c |H%!8=-1:..49,H%,|
00010f50 48 25 2b 34 30 30 3a 46 25 3d 48 25 21 34 30 30 |H%+400:F%=H%!400|
00010f60 2b 31 3a 49 25 3d 48 25 21 34 30 34 2b 31 3a c8 |+1:I%=H%!404+1:.|
00010f70 99 35 33 2c 2d 31 2c 34 b8 2c 2c 6e 33 25 3a 46 |.53,-1,4.,,n3%:F|
00010f80 25 3d 46 25 3c 3c 6e 33 25 3a c8 99 35 33 2c 2d |%=F%<<n3%:..53,-|
00010f90 31 2c 35 b8 2c 2c 6e 33 25 3a 49 25 3d 49 25 3c |1,5.,,n3%:I%=I%<|
00010fa0 3c 6e 33 25 3a e1 0d 04 fd bb dd f2 4b 28 59 25 |<n3%:.......K(Y%|
00010fb0 2c 63 25 2c 42 31 25 29 3a ea 60 31 25 2c 41 32 |,c%,B1%):.`1%,A2|
00010fc0 25 2c 56 31 25 2c 50 32 25 2c 6c 33 25 3a 48 25 |%,V1%,P2%,l3%:H%|
00010fd0 21 30 3d 59 25 3a 48 25 21 34 3d 63 25 3a c8 99 |!0=Y%:H%!4=c%:..|
00010fe0 26 34 30 30 63 65 2c 2c 48 25 3a 60 31 25 3d 48 |&400ce,,H%:`1%=H|
00010ff0 25 21 38 3a 41 32 25 3d 48 25 21 31 32 3a 56 31 |%!8:A2%=H%!12:V1|
00011000 25 3d 48 25 21 31 36 3a 50 32 25 3d 48 25 21 32 |%=H%!16:P2%=H%!2|
00011010 30 3a 6c 33 25 3d 60 31 25 2b 42 31 25 3a c8 99 |0:l3%=`1%+B1%:..|
00011020 26 34 30 30 63 34 2c 2c 48 25 3a 48 25 21 34 3d |&400c4,,H%:H%!4=|
00011030 59 25 3a 48 25 21 31 36 3d 60 31 25 2b 42 31 25 |Y%:H%!16=`1%+B1%|
00011040 3a c8 99 26 34 30 30 63 32 2c 2c 48 25 2b 34 3a |:..&400c2,,H%+4:|
00011050 e7 6c 33 25 3c 56 31 25 c8 94 6c 33 25 2c 56 31 |.l3%<V1%..l3%,V1|
00011060 25 0d 04 fe 1d f2 6c 30 28 59 25 2c 56 31 25 2c |%.....l0(Y%,V1%,|
00011070 41 32 25 2c 6c 33 25 2c 50 32 25 29 3a e1 0d ff |A2%,l3%,P2%):...|
00011080 
.