' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"_]` L/浍굺L  !"#$%&'()*+,-./0123456789:;<=>?  1#"""  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0EB H  @H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   vLDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( i Š@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(`# d ֠z# u`֭֭֭ͫ֫ͫͫ֫ͫͫ֫ͫʭͫʭ͍ʭͫʫʭͫѭͫѭͫѭͫѭͫѭͫѭͫѭͫѫͫʫʫʫʭͫʭͫʭͫʫͫʭͫʭͫʫͫʭͫʭ֭֭֭֭ͫͫͫͫͫ֫ʭͫʭͫʭͫʫͫ֍֭֭֭֭֭֭֭֭֭֭֭֫֫֫ͫͫͫͫ֫ͫͫ֫ͫͫͫͫͫӫӫӭͫѫѭѫѭͫz#?     ŠmͯӠĠүҠŠ60mT(JD2415020)365259rA$"Y"T2.5T1.5395AwI1b|DY(I)(T19)100II1:380DTDT(I1)(DT(I)DT(I1))((T19)100DY(I1))(DY(I)DY(I1)):DTDT3600400A$"N"DT(24.34972.318T29.95TT)3600"UT(H,M,S):";X,Y)A$"N"İ8300:125-*A$"H"İ8400:1256+125[,:"MO,DA,YEAR,J/G:";MO,DA,YE,A$s6A$"J"İ10150:330;A$"G"300@10100J"DO YOU WANT TO INPUT DELTA T?";TA$:A$:A$"N"365^A$"Y"330h"DELTA T(MINUTES):";DT:DTDT"L"İ6700:125%A$"T"İ9000:125.125:A$:A$WA$"E"İ6800:6920:125nA$"S"İ6900:125A$"L"İ6930:125125"A$:A$#A$"S"700$A$"E"480%A$"P"İ8800:125&A$"C"İ8000:125'A$"L"İ8600:125A$"E"290A$"O"200+A$"M"180;A$"P"420KA$"A"500bA$"S"İ6300:125yA$"L"İ6400:125A$"D"Ą"DELTA T(MINUTES):";DT:DTDT60:125A$"H"100125A$:A$A$"E"600A$"S"İ6600:125A$S & INFO"bx"AS- APPROXIMATE SOLAR ECL ELEMENT COMP.":"AL or AM- APPROXIMATE LUNAR ECL ELEM. "z:"H- HELP (GET THIS MENU AGAIN) ":{"Restart at 125"}54915:"FUNCTION:";:A$:A$;:A$"I"300A$"0"A$"1"ĺ(13)D$"PR#"A$:125 RTH OR SOUTH LIM"s"EP- SOL.ECL/OCCN MAX GLOBALLY":"EC- SOL.ECL/OCCN CENTRAL LINE":"EL- SOL.ECL/OCCN LOCAL CIRCUMSTANCES" u"ME- COMPUTE LUNAR ECLIPSE ELEMENTS":"MS- SAVE LUNAR ECL ELEMENTS":"ML- LOAD LUNAR ECL ELEMENTS":"MT- LUNAR CONTACT TIMEECLIPSE ELEMENTS":"S- SAVE SOLAR ECLIPSE ELEMENTS":"L- LOAD SOLAR ECLIPSE ELEMENTS":"OE- COMPUTE OCCULTATION ELEMENTS"n"OS- SAVE OCCULTATION ELEMENTS":"OL- LOAD OCCULTATION ELEMENTS":"EH- SOL.ECL/OCCN BEGINS/ENDS ON HORIZON":"EN- SOL.ECL/OCCN NOYI116:FF$(I):(ZI143:DC(I):=[I144:EC(I):R\I116:FC(I):r]D$"CLOSE LUNAR/SOLAR FILE"d:"ES- COMP ECL SEASONS":"I- INPUT DATE AND TIME":"D- CHANGE DELTA T":"P- COMPUTE SOLAR AND LUNAR POSITIONS"yi"EE- COMPUTE SOLAR Y(69):DT(69)(AI169:DY(I),DT(I):GPD$"OPEN LUNAR/SOLAR FILE"fQD$"READ LUNAR/SOLAR FILE"|RI172:AF$(I):SI085:BF$(I):TI172:AC(I):UI085:BC(I):VI172:CC(I):WI143:DF$(I):XI144:EF$(I):23.2,1932.5,23.5,1934.5,23.6,1936.5,23.6,1938.5,23.8,1940.5,24.3,1942.5,25.1,1944.5,26.1,1946.5,27.1,1948.5,28.2,1950.5,29.4,1952.2,30.3,1954.5,31.1,1956.5,32.1,1958.5,32.6,1960.5,33 7 1962.5,34.1,1964.5,35,1966.5,36.8,1981.5,52,2000,92,2100,289 <D7,1894.5,-7.3,1897.5,-6.6,1900.5,-3.8,1901.5,-2.5,1902.5,-1.1,1903.5,.4 - 1904.5,1.8,1905.5,3.3,1906.5,4.7,1908.5,7.5,1910.5,10.3,1912.5,12.9,1914.5,15.3,1916.5,17.4,1918.5,19.1,1920.5,20.5,1922.5,21.6,1924.5,22.3 2 1926.5,22.7,1928.5,22.9,1930.5,27,-7.2,1737,-3.1,1747,-.7,1755,1.3,1771,5.6,1785,7.8,1792,7.7 # 1801.5,6,1809.5,4.9,1813,4.7,1821.8,4.4,1831.5,1.3,1837.4,-.2,1843.1,.8,1848.8,2.4,1852.5,2.9,1857.5,3.4,1862.5,3.1G ( 1867.5,1.2,1872.5,-4.9,1877.5,-7.5,1882.5,-8,1887.5,-8,1891.5,-7.R(TG(LA).9933054):R(LA).99833.00168CS(2LA)} R1(DE)(1(CS(DE)12.22193)2):R2(DE)(1(SN(DE)12.22193)2) AF$(72),BF$(85),AC(72),BC(85),CC(72) DF$(43),EF$(44),FF$(16),DC(43),EC(44),FC(16)>  1600,77,1681,-13.6,1710,-12.1,17"BLOAD M/S AMPERSAND", DR3.141592654180G NR(X)X360(X360){ SN(X)(XDR):CS(X)(XDR):TG(X)(XDR) AR(X)(X)DR:AS(X)AR(X(XX1)):AC(X)90AS(X) SG(X)((X).5)3 GD(LA)AR(TG(LA).9933054):GC(LA)AkU Sat,Sun,Mon,Tue,Wed,Thu,Fri,Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,DeciDN$(6),MN$(12)~I06:DN$(I):I112:MN$(I):15000D$(4) 1000:SW898Ĺ6,FW256(FW256):7,(FW256):SW0:1013,76:1014,4:1015,3:D$                                   B(.137SN(MPF).031SN(2MPF).091SN(4MPF).262SN(MF).056SN(2MF))3600&I AF$(9):1100:BB.165SN(FW)3600&N AF$(11):1100:BB.101SN(FW)3600&S AF$(40):1100:BB.558SN(FW)3600&X AF$(53):1100:BB.117SN(FW)3600%']LPLP.311SN(FW)3600:AF$(70):1000:LPLP.482SN(FW)3600J% I085\%& BF$(I):1000%+ BT((768))BT((768))BC(I)SN(FW)%5 %: BT(0)BT(0).083SN(F2OM)%? (NR(D180)180)10(NR(2F180)180)503190%@ "DOING ECL SPECIAL"Y&D BP(.492SN(MP).249SN(2MP).624SN(3MP).51SN(M).343SN(3M))3600$ AF$(9):1000:LPLP(.67SN(FW).254SN(2FW))3600$ AF$(11):1000:LPLP(.921SN(FW).296SN(2FW))3600>% AF$(30):1000:LPLP.292SN(FW)3600:AF$(53):1000:)AC(I)SN(FW)7# PT((768))PT((768))CC(I)CS(FW)=# f# LPLP(LT(0)LT(1)ELT(2)EE)3600# PIPIPT(0)PT(1)EPT(2)EE# PIPIPIPIPI255272000000# (NR(D180)180)10(NR(2F180)180)503100# "DOING ECL SPECIAL"M$ LPL113SN(5MP))3600u" PI3422.54186.5398CS(MP)10.1657CS(2MP).6215CS(3MP).0401CS(4MP).0026CS(5MP)}" B0" LT(0)0:LT(1)0:LT(2)0:BT(0)0:BT(1)0:BT(2)0:PT(0)0:PT(1)0:PT(2)0" I172" AF$(I):1000# LT((768))LT((768)L).0884CS(2LP).0216CS(2LM).0093CS(2LM))3600K!4OBOBNU(1)!9STNR(279.690983.9856473354DD265.6473354KDTT2583)360ETNU(0)CS(OB):STNR(ST)!>" LPLP(22639.55SN(MP)769.016SN(2MP)36.124SN(3MP)1.938SN(4MP).954T.000007522TT *NU(0)((17.2327.01737T)SN(OM)(.2088.00002T)SN(2OM)1.273SN(2L).2037SN(2LP).126SN(M).0675SN(MP).0497SN(2LM).0214SN(2LM))3600;!/NU(1)((9.21.00091T)CS(OM)(.0904.00004T)CS(2OM).552CS(215.6893.3T)17822:LLX:MMX^XSN(235.669150.679T)15190:LPLPX:MPMPX:DDX:FFXXSN(84.1116.209T)11613:LPLPX:MPMPX:DDX:FFXFFSN(OM289.65.9T)1935 OB23.45229444T76.84918TT610169TTT1988950 %E1.0024(OM):LPLPX495.8:MPMPX385.56:DDX495.8:FFX40.5867XSN(OM275.052.3T):FFX231.07:MPMPX3209:XX12766:LPLPX:DDX:FFXX(1.882.016T)SN(57.24150.27T)3600:LLX:MMXX.266SN(31.8119T)3600:LLX:MMXXSN(361716DD101.5761716KD)JSNR(193.1323.9521494604DD232.1494604KD) XSN(51.220.2T):LPLPX4286:MPMPX1224:DDX497.2:MMX562.5:FFX17143:LLX562.5 XSN(346.56132.87T.0091731TT)252.28:LPLPX:MPMPX:DDX:FFX;XSNR(279.696678.9856473354DD265.6473354KDTT3306)OMNR(259.183275.0529539222DD52.9539221994KDTT481TTT450000)VNR(63.07037.6165213685DD256.5213685KD)JNR(221.64742.9025179176DD182.5179176KD)QNR(165.94905.46157DTT6667TTT300000)aDNR(350.73748612.19074919DD310.7491914KDTT696TTT530000)FNR(11.25088913.22935045DD269.350449KDTT311.4TTT3000000)MPNR(296.10460813.064992447DD104.9924465KDTT108.8TTT69500)4LN121)256(122)8:SW898:: LINE TO BE CLOBBEREDEL1000:FWFWF:DDJD2415020:TDD36525:KD(DD1000.5):DDDD1000KDETLPNR(270.43416413.176396527DD216.3965268KDTT882TTT530000)MNR(358.475833.985600267DD265.6002669KT1.5):780'JD(T1173.31.5):780IMO8JD(T1346.62.5):780R125 10200:MN$(MO)" "DA" "YE" Greg ";:2000:(NR(OML)180)20ĺ20)"D";:78820)"A";" Moon "(NR(D)12.19.5)" days old.":" M' = "MP1FW(340 125A$:A$0A$"S"İ14200:125OA$"M"A$"L"İ14300:125X125bX6500v]I12:(7);:bT113:7500:T0T1,X,Y,XP,YP,SP,RH,SI,LO,LA:g125 "YEAR:";YE:MO1:DA20:10100:2000:T1NR((OML)2)2.077202JD:JD(,Z&ETX24Y1440Z86400DT24.5/12592000C3000I"LUNAR":"LAT,LON,PAR "B" "LP" "PI:"DEC,RA "DE(0)" "RA(0)4000"SOLAR":"LAT,LON,DIS "LT" "L" "R:"DEC,RA "DE(1)" "RA(1)1256000I12:(7);:6):L2L2(1)8L2(2)4L2(3)8:L3L2(1)48L2(2)16L2(3)16L2(4)486LL(L1(1)L1(2)L1(3)L1(4)L2(1)L2(2)L2(3)L2(4))46L2(0)L0:L2(1)L1:L2(2)L2:L2(3)L36D0D(2):D1(D(3)D(2))26A$"Y"T0T03:D1D12p7A$"Y"Ą"TAN(F1)";TF(1):"(2):X1(X(1)6X(2)4X(3)2X(4)12):X2X(1)8X(2)4X(3)8:X3X(1)48X(2)16X(3)16X(4)485Y0Y(2):Y1(Y(1)6Y(2)4Y(3)2Y(4)12):Y2Y(1)8Y(2)4Y(3)8:Y3Y(1)48Y(2)16Y(3)16Y(4)48D6L0L2(2):L1(L2(1)6L2(2)4L2(3)2L2(4)12:4000:5000:6090]4"X:";X:"Y:";Y:"SIN(D):";DE:DEAS(DE):"MU:";MU:"L1:";L1:"L2:";L24X(TT)X:Y(TT)Y:D(TT)DE:L1(TT)L1:L2(TT)L2:F1(TT)F1:F2(TT)F2:MU(TT)MU4A$"Y"ETET124:61104ETET1124TTb5T0((ET.25)2412.1):X0XPM).0104SN(2F)?3(ET).5JDJD(ET):ETET(ET):6050J310200a3ET(24ET2.5)24r3A$"N":60703"DO YOU WANT TO INPUT ELEMENTS?";A$:A$"Y"A$"N"60653A$"Y"ETET1243TT143A$"Y"ĺET2412:608542000:3000"2L2TG(F2)(Z.272495SN(F2))(222p2000Y2zETET(NR(D180)180)12.19074919c220002ETET(NR(D180)180)12.190749193ETET.1743ESN(M).0021EESN(2M).4089SN(MP).0161SN(2MP).0004SN(3MP).0051SN(MPM).0075SN(MA))SN(PI3600)Y1Z(SN(DE(0))SN(DE)CS(DE(0))CS(DE)CS(RA(0)A))SN(PI3600)e1MUSTA1S00R50F10:F20:L1.272488:L2L1:53701F1AS((S0.0000116174)(GR))1F2AS((S0.0000116174)(GR))1L1TG(F1)(Z.272495SN(F1))XY)9090SG(Y)A0DEAR((SN(DE(1))BESN(DE(0)))SN(A)X)j0G(SN(DE(1))BESN(DE(0)))SN(DE)0X(CS(DE(0))SN(RA(0)A))SN(PI3600)0"DE(0),RA(0),A,PI",DE(0),RA(0),A,PI" X IS "X1Y(SN(DE(0))CS(DE)CS(DE(0))SN(DE)CS(RA(0)YDR:RHRH3600:SISI3600;/nSPAS(.272274SN(PI3600))K/xLOSTRA(0)Q/t/BE.000042664(RSN(PI3600))/XCS(DE(1))SN(RA(1))BECS(DE(0))SN(RA(0)):YCS(DE(1))CS(RA(1))BECS(DE(0))CS(RA(0))/Y0A90SG(X):53200AAR(1TG(F1)(Z.272274SN(F1))@.L2TG(F2)(Z.272274SN(F2))F..PXCS(DE(0))SN(RA(0)RA(1)180):YCS(DE(1))SN(DE(0))SN(DE(1))CS(DE(0))CS(RA(0)RA(1)180).QET24.ZRH1.01PI959.63R8.8R:SI1.01PI959.63R8.8R/dXXDR:YCS(DE(0))SN(RA(0)A))SN(PI3600)l-Y(SN(DE(0))CS(DE)CS(DE(0))SN(DE)CS(RA(0)A))SN(PI3600)-Z(SN(DE(0))SN(DE)CS(DE(0))CS(DE)CS(RA(0)A))SN(PI3600)-MUSTA-F1AS(.004664016(GR))-F2AS(.004640784(GR)).L)g,XCS(DE(1))SN(RA(1))BECS(DE(0))SN(RA(0)):YCS(DE(1))CS(RA(1))BECS(DE(0))CS(RA(0)),Y0A90SG(X):5030,AAR(XY)9090SG(Y),DEAR((SN(DE(1))BESN(DE(0)))SN(A)X),G(SN(DE(1))BESN(DE(0)))SN(DE)$-X(PI3600)5+"RR.0121200(8.8R)CS(B)CS(LPL)PI_+,LL20.47(1.01675104ECS(M))3600m+6LLNU(0)+@DE(1)AS(CS(LT)SN(L)SN(OB)SN(LT)CS(OB))+ERA(1)AC(CS(LT)CS(L)CS(DE(1)))SG(SN(L))+J,BE.000042664(RSN(PI3600)*LT0*I144&*EF$(I):1000>*LTLTEC(I)CS(FW)D*\*RR(1LT10000000)e*LT0q*I116*FF$(I):1000*LTLTFC(I)CS(FW)** LTLT3600*LL2502(8.8R)CS(B)SN(LPL)(PI3600)+LTLT2502(8.8R)SN(B)((1.054.001T)SN(3M).018SN(4M))3600)R.01675104E:R1.00000003(1RR2(R3RRR8)CS(M)(RR2RRRR3)CS(2M)3RRRCS(3M)8RRRRCS(4M)3))LT0)I143)DF$(I):1000)LTLTDC(I)CS(FW)))LLLT3600.3T))(1.000008966CS(OM289.65.9T))9(| BB.000167I( LPLPNU(0)~( DE(0)AS(CS(B)SN(LP)SN(OB)SN(B)CS(OB))( RA(0)AC(CS(B)CS(LP)CS(DE(0)))SG(SN(LP))( +)LL((6910.05717.24T.052TT)SN(M)(72.338.361T)SN(2M) AF$(61):1100:BB.076SN(FW)3600N'b AF$(70):1100:BB.119SN(FW)3600w'g AF$(25):1100:BB.026SN(FW)3600'l AF$(30):1100:BB.053SN(FW)3600'v BB(BT(0)BT(1)EBT(2)EE)3600)({ BB(1.0004664CS(OM))(1.0000754CS(OM275.052NTRAL CONTACT%FLA0:T10:R1:7000SFV(XPXPYPYP):THAR(XY)9090SG(Y)FLAAS(CS(TH)CS(DE)):R(GD(LA))RRR(GD(LA))FPSAS((XYPYXP)(VR))FASG(T)RCS(PS)V(XXPYYP)(VV)FRR(GD(LA)) GT1T1A:7000:(A)Y2T1T1Y3T1T1T11EvYPY12Y2T13Y3T1T1bEL2L2(0)L2(1)T1L2(2)T1T1L2(3)T1T1T1oEL1L2LLEDED0D1T1:MUMU(0)MU(1)T1EBPYPXMU(1)DRSN(DE):CPXPYMU(1)DRSN(DE)L2TF(2)MU(1)DRCS(DE)E F FIRST AND LAST CE$"READ OCCN "YE" "MO" "DADJD,YE,MO,DA,T0,DT,X0,X1,X2,X3,Y0,Y1,Y2,Y3:L2(0),L2(1),L2(2),L2(3),LL,D0,D1,MU(0),MU(1),TF(1),TF(2)D!D$"CLOSE OCCN "YE" "MO" "DAD&6920:DXXX0X1T1X2T1T1X3T1T1T1DbXPX12X2T13X3T1T1ElYY0Y1T1)","L2(2)","L2(3)","LL","D0","D1","MU(0)","MU(1)","TF(1)","TF(2)aCD$"CLOSE OCCN "YE" "MO" "DAkC6921C JD,YE,MO,DA,T0,DT,X0,X1,X2,X3,Y0,Y1,Y2,Y3,L2(0),L2(1),L2(2),L2(3),LL,D0,D1,MU(0),MU(1),TF(1),TF(2)C CD$"OPEN OCCN "YE" "MO" "DADDTG((F1(1)F1(2))2):TF(2)TG((F2(1)F2(2))2)bBMU(0)MU(1):MU(1)NR(MU(2)MU(1))(T(2)T(1))hBBD$"OPEN OCCN "YE" "MO" "DABD$"WRITE OCCN "YE" "MO" "DA@CJD","YE","MO","DA","T0","DT","X0","X1","X2","X3","Y0","Y1","Y2","Y3:L2(0)","L2(1T(1)):X20:X30AAY0Y(1):Y1(Y(2)Y(1))(T(2)T(1)):Y20:Y30uAL0L2(1):L1(L2(2)L2(1))(T(2)T(1)):L20:L30ALL(L1(1)L1(2)L2(1)L2(2))((T(2)T(1))2)AL2(0)L0:L2(1)L1:L2(2)L2:L2(3)L3AD0D(1):D1(D(2)D(1))(T(2)T(1))/BTF(1)SECS) AT UNIT DIST:";S0:S0SN(S03600)3@TT12j@ET(T(TT)12)24:DE(1)DN(TT):RA(1)RN(TT):RR(TT)@2000:3000:5300@X(TT)X:Y(TT)Y:D(TT)DE:L1(TT)L1:L2(TT)L2:F1(TT)F1:F2(TT)F2:MU(TT)MU@TTAT0T(1):X0X(1):X1(X(2)X(1))(T(2)?6D$"READ ECLM "YE" "MO" "DAs?@JD,YE,MO,DA,T0,DT,X0,X1,X2,X3,Y0,Y1,Y2,Y3:R0,R1,SI(0),SI(1),D0,D1,L0,L1,S0,S1?JD$"CLOSE ECLM "YE" "MO" "DA?T6640:?10200?I12?"ET,RA(DEG),DEC,R(AU):";T(I),RN(I),DN(I),R(I)?'@"SEMI-DIAM(0","X1","X2","X3","Y0","Y1","Y2","Y3:R0","R1","SI(0)","SI(1)","D0","D1","L0","L1","S0","S1|>D$"CLOSE ECLM "YE" "MO" "DA>6645>JD,YE,MO,DA,T0,DT,X0,X1,X2,X3,Y0,Y1,Y2,Y3,R0,R1,SI(0),SI(1),D0,D1,L0,L1,S0,S1>>,D$"OPEN ECLM "YE" "MO" "DA80)180:L1NR(LO(3)LO(2))2:S0SP(2):S1(SP(3)SP(2))2:R0RH(2):R1(RH(3)RH(2))2:SI(0)SI(2):SI(1)(SI(3)SI(2))2=D0D(2):D1(D(3)D(2))2==D$"OPEN ECLM "YE" "MO" "DA=D$"WRITE ECLM "YE" "MO" "DA[>JD","YE","MO","DA","T0","DT","X<T0((ET.25)2412.1):X0X(2):X1(X(1)6X(2)4X(3)2X(4)12):X2X(1)8X(2)4X(3)8:X3X(1)48X(2)16X(3)16X(4)48<Y0Y(2):Y1(Y(1)6Y(2)4Y(3)2Y(4)12):Y2Y(1)8Y(2)4Y(3)8:Y3Y(1)48Y(2)16Y(3)16Y(4)48w=L0NR(LO(2)151SN(MPM).0075SN(MPM).0104SN(2F)W;}(ET).5JDJD(ET):ETET(ET):6525b;10200y;ET(24ET2.5)24;TT14;2000:3000:4000:5200;X(TT)X:Y(TT)Y:D(TT)DE(0):LO(TT)LO:SP(TT)SP:RH(TT)RH:SI(TT)SI;ETET112<TT0,D1,MU(0),MU(1),TF(1),TF(2)<:D$"CLOSE ECL "YE" "MO" "DAH:(6340:R:d2000u:iETET(NR(D)180)12.19074919:n2000:sETET(NR(D)180)12.19074919+;xETET.1743ESN(M).0021EESN(2M).4089SN(MP).0161SN(2MP).0004SN(3MP).006345o9JD,YE,MO,DA,T0,DT,X0,X1,X2,X3,Y0,Y1,Y2,Y3,L2(0),L2(1),L2(2),L2(3),LL,D0,D1,MU(0),MU(1),TF(1),TF(2)u99D$"OPEN ECL "YE" "MO" "DA9 D$"READ ECL "YE" "MO" "DA:JD,YE,MO,DA,T0,DT,X0,X1,X2,X3,Y0,Y1,Y2,Y3:L2(0),L2(1),L2(2),L2(3),LL,D288&8D$"OPEN ECL "YE" "MO" "DAF8D$"WRITE ECL "YE" "MO" "DA8JD","YE","MO","DA","T0","DT","X0","X1","X2","X3","Y0","Y1","Y2","Y3:L2(0)","L2(1)","L2(2)","L2(3)","LL","D0","D1","MU(0)","MU(1)","TF(1)","TF(2)8D$"CLOSE ECL "YE" "MO" "DA9TAN(F2)";TF(2):X1X12:Y1Y12:L2(1)L2(1)2::X2X24:Y2Y24:L2(2)L2(2)4::X3X38:Y3Y38:L2(3)L2(3)8:61807TF(1)TG((F1(1)F1(2)F1(3)F1(4))4):TF(2)TG((F2(1)F2(2)F2(3)F2(4))4)8$MU(0)MU(2):MU(1)NR(MU(4)MU(1))6:A$"Y"MU(1)MU(1)LODT151.0027180)180cV? 7200:PU(0)LA:PU(1)4:PU(2)2:PU(3)0:13000:PU(0)LO:PU(1)5:13000kVD :Vl "BOUND OF HOW MANY PERCENT?";P:PP100:P0P18300Vv "NORTH OR SOUTH LIMIT (N/S)?";:A$:A$:A$"N"A$"S"8310V{ NS0:A$"N"NS1WE)))180NSDU+ SAAS((EENN)R(LA)):SAC(N(EENN))SG(E)|U0 LAGD(AS(CS(SA)SN(DE)SN(SA)CS(DE)CS(S)))U5 (EPE).0001(NPN).0001PEE:PNN:8220V: LOAC((CS(SA)SN(DE)SN(GC(LA)))(CS(DE)CS(GC(LA))))SG(E):LONR(MUAPLPMU(1)DRXFXCS(DE):CPXPMU(1)DRYSN(DE)MU(1)DRLXFXCS(DE)mT Z0:QAR(BPCP)180NS:LA0T LYLXZFX:EXLYSN(Q):NYLYCS(Q):(EENN)R(LA)Z30:T! Z(R(LA)EENN) U& QAR((BPZD1DRAPCS(Q))(CPZMU(1)DRCS(D0ĺ"-";:PU(1)1:8180"SPU(1)2aS13000:PU(0)((DU)PU(0))60:":";:PU(1)2:PU(3)1:13000SPU(0)AL:PU(1)3:PU(2)1:PU(3)0:13000SS S 7000:LXL1(L1L2)P:FXTF(1)(TF(1)TF(2))PLT LPL2(1)2L2(2)T13L2(3)T1T1:LPLP2LPP:AS(SN(DE)SN(LA)CS(DE)CS(LA)CS(H))lRWD(2(L2BTF(2))(BB(XAPYBP)2(APAPBPBP)))6378RPU(0)LA:PU(1)3:PU(2)2:PU(3)0:13000RPU(0)LO:PU(1)4:13000RPU(0)WD:PU(2)0:13000:PU(0)WD1.609344:13000SPU(0)((DU)):DU(1XXYIYI):8128QB0>QP1AS(YICS(DI)BSN(DI))pQHAC((YISN(DI)BCS(DI))CS(P1))SG(X)QLAAR(1.003364TG(P1)):LOMUHDT151.0027:APCPBMU(1)DRCS(DE)QLONR(LO180)180QDU120(L2BTF(2))(APAPBPBP),RAL0:SW01Pw"ANOTHER TIME?";:A$:A$;:A$"N"ĺ:CPxA$"Y"8055\P|" UT(H,M,S):";X,Y,Z}PETX24Y1440Z86400DT24PT1ET24T0:8100:8055P7000PYIYR1(DE):DIAS(SN(DE)R1(DE))PXXYIYI1SWAL1000:P7200QSWB3000:PU(1)2:PU(0)RH:13000:PU(0)SI:13000:PU(0)SP2:13000DOKJOP]O@ CENTRAL LINEgOE9500OJ" UT Lat. Long. km mi m s Alt"OTT1:7100:SW1:8100:SW0O^T1(T151)5Oh8100:AL90T1T1.2:8040PrT1:7100:SW1:8107570:7200DNPU(0)(RHSPD)(2SP):PU(1)3:PU(2)3:PU(3)0:13000~N(PU(0)(SISPD)(2SP):PU(1)3:PU(2)3:PU(3)0:13000N2PU(0)AR(XY)9090SG(Y):PU(1)4:PU(2)1:13000N<PU(0)LO:13000:PU(0)LA:PU(1)4:13000>OFPU(0)D:PU(1)1:PU(2)3:10027 MMSW0MT10&M7570nM((XYPXPY)(LNL(1)))1PS90SG((XYPXPY)(LNL(1))):7620MPSAS((XYPXPY)(LNL(1)))MAL(1)CS(PS)TLN(XXPYYP)(LNLN):T1T1A:(A).00017605MMSW1:7604MSW1:7604 N1Y3T1T1T1*LoYPY12Y2T13Y3T1T1dLyLOL0L1T1:SPS0S1T1:RHR0R1T1:SISI(0)SI(1)T1tLLAD0D1T1zLL7500:LN(XPXPYPYP)LSW0L(1)SISP:7585LSW1L(1)SISP:7585LL(1)RHSPLD(XXYY)MLOLODT151.AL(1)CS(PS)TLN(UUPVVP)(LNLN):T1T1A:(A).00017445GKPK$T10K)7400:A(UUPVVP)LN2:T1T1A:(A).00017465K.KL LUNAR ECL ELEM EVAL.KQXX0X1T1X2T1T1X3T1T1T1K[XPX12X2T13X3T1T1 LeYY0Y1T1Y2T1TS(LA)CS(MULO):NPMU(1)DRESN(DE)zJUXE:VYN:UPXPEP:VPYPNP:L(1)L1ZTF(1):L(2)L2ZTF(2):LN(UPUPVPVP)JJT10J7400J((UVPUPV)(LNL(1)))1PS90SG((UVPUPV)(LNL(1))):7449JPSAS((UVPUPV)(LNL(1)))AK00:(A).00017320=ILOAC(TG(DE)TG(LA))SG(SN(TH))bILONR(MULO180)180:LAGD(LA)hII7000:ERCS(LA)SN(MULO):NRSN(LA)CS(DE)RCS(LA)CS(MULO)SN(DE):ZRSN(LA)SN(DE)RCS(LA)CS(MULO)CS(DE)&JEPMU(1)DRRCT CONTACTHLA0:T10:7000KHV(XPXPYPYP):THAR(XY)9090SG(Y)uHLAAS(CS(TH)CS(DE)):RR(GD(LA))HLX(L1(L1L2)P)HV(XPXPYPYP):PSAS((XYPYXP)(V(RLX)))HASG(T)(RLX)CS(PS)V(XXPYYP)(VV)IT1T1A:70.0000171205GLOAC(TG(DE)TG(LA))SG(SN(TH))ZG LONR(MULO180)180:LAGD(LA)`GG TMT0T1DT1.0027:PU(0)(TM11200):PU(1)3:PU(2)0:PU(3)0:13000G*":";:PU(0)(TMPU(0))60:PU(1)2:PU(2)1:PU(3)1:13000G4 H FIRST AND LAS1440Z86400DT24:T1ET24T0:7700:9020Bf%XJD2:XX7(X7)of&%JD" "DN$(X)" "YE" "MN$(MO)" "DA" DT= ";f+%PU(0)DT60:PU(1)99:PU(2)2:PU(3)0:13000:" min"f0%ft' :GREG MO/DA/YE --> JD AT NOONf~'10150g'JDJD2(CW(1)100)(CW(1)40IST. RHO SIGMA M.DIAM(DEG.)"3e+#T1:7640:7700Ce-#7600:7700Se/#7670:7700ge2#T0:7600:7700{e5#T1:7670:7700e7#7600:7700e9#7640:7700e<#"ANOTHER TIME?";:A$:A$;:A$"N"ĺ:eA#A$"Y"9020eF#" UT(H,M,S):";X,Y,Z*fK#ETX24YDT151.0027180)1802dt"(G)R(LA)L1L20ĺ:udy"PU(0)(L1(G)R(LA))(L1L2):PU(1)2:PU(2)3:"MAG.";:13000d"" LAT.";:PU(0)LA:PU(1)4:PU(2)2:13000:" LONG.";:PU(0)LO:13000:d"d(#9500e*#" UT(GMT) PMAG UMAG CCWFN LONG. LAT.D7000:A(XXPYYP)(XPXPYPYP):T1T1A:(A).00018805cj"7200:"UT (GMT); GAMMA:";:G(XXYY)SG(Y):PU(0)G:PU(1)2:PU(2)4:PU(3)0:13000:do"THAR(XY)9090SG(Y):LAAS(CS(TH)CS(DE)):LOAC(TG(DE)TG(LA))SG(SN(TH)):LONR(MULOU))(DU):PU(1)3:PU(2)0:DU0PU(0)0ĺ"-";:PU(1)2rbR"13000:PU(0)(DUPU(0))60:PU(1)2:PU(3)1:":";:13000bS"L(1)L(2)0ĺ" ";:8790bT"PU(0)(L(1)L(2))(L(1)L(2)):PU(1)3:PU(2)3:PU(3)0:13000bV"" "MULO:b`"T10bd"9500;ce"E)CS(MULO)):PU(1)3:PU(2)1:13000a8"PU(0)AC((SN(DE)SN(GD(LA))SN(PU(0)))(CS(GD(LA))CS(PU(0))))SG(SN(LOMU)):PU(1)4:13000aL"PS(UVPUPV)(LNL(2)):(PS)1SWM1ĺ" ";:87875bO"PSAS(PS):DU120L(2)CS(PS)LN:PU(0)((DSN(2BE)2KK(ALDRSN(2AL)2))3.141592654>`"MG1MG1b`$"PU(0)MG:PU(1)2:PU(2)3:13000`)"PU(0)AR(UV)9090SG(V):PU(1)5:PU(2)1:13000`."CAR(EN)9090SG(N):PU(0)PU(0)C:13000%a3"PU(0)AS(SN(GD(LA))SN(DE)CS(GD(LA))CS(D(1)L(2)):SW19_"PU(0)M:PU(1)3:PU(2)3:PU(3)0:13000N_ "SWMGMM:8735g_"M.00001MG0:8740|_"M1MG1:8740_"K(L(1)L(2))(L(1)L(2)):ALAC((KK(1K2M)21)(2K(1K2M))):BEAC((1(1K2M)2KK)(2(1K2M)))/`"MG(BEDRT2:T2T260'^!"END UT(H,M,S):";X,Y,ZT^!T3X24Y1440Z86400DT24:T3T324T0t^!8700:T1T1T2:T1T38680~^!8640^!7400:7200^!L(1)L(2)0M999:8710_"SW0:M(L(1)(UUVV))(L(1)L(2)):(L(1)L(2))(L(1)L(2))MM(L(1)L(2))(LWFN CCWFV ALT AZ DUR/UMB D/RATIO HRA"?]!T1:7440:8700O]!7460:8700c]!T1:7440:8700]!"ANOTHER TIME?";:A$:A$;:A$"N"ĺ:]!A$"Y"8640]!"START UT(H,M,S):";X,Y,Z]!ETX24Y1440Z86400DT24:T1ET24T0 ^!"INCR.(MIN.):";)LO:PU(1)5:13000/\!SW0SW1:";";:8525?\!SW1SW0G\!:\!"LA,LON(D,M,D,M):";LA,X,LO,Y:LAGC(LAX60):LOLOY6015DT1.0027\!"ALT.(FT):";R:RR(GD(LA))R20925722\!9500:"GC LA="LA"; EPH.LO="LO*]!" UT M AREA CCj[y!H(YISN(DI)CS(P1)):(H)1H(9090(H))SG(SN(THW)):LONR(MUHDT151.0027180)180:8573[z!HAC(YISN(DI)CS(P1))SG(SN(THW)):LONR(MUHDT151.0027180)180[}!SW0SW1İ7200\!PU(0)LA:PU(1)4:PU(2)2:PU(3)0:13000:PU(0XXYY1AL100Za!+Zp!SW1W0:8565ZZq!WAC((RRSSLXLX)(2RS)):SW1WWuZu!YICS(THW)RR1(DE)Zv!(YICS(DI))1P190(YICS(DI)):LAP1:PLLA:8530Zw!P1AS(YICS(DI))[x!LAAR(1.003364TG(P1)):(LAPL).0002PLLA:8530 " UT(H,M,S):";X,Y,Z6Y!ETX24Y1440Z86400DT24RY!T1ET24T0:8500:8435qY4!AL0:7000:LXL1(L1L2)PY>!THAR(XY)9090SG(Y)YM!PL0:LA0:S(XXYY):DIAS(SN(DE)R1(DE))YR!RR(LA)YW!((RRSSLXLX)(2RS))1SW18560Z\!"8335 X !X HORIZON LIMITSDX "HOW MANY PERCENT?";P:PP100NX 9500mX T1:7300:SW1:8500:SW0X T1(T151)5X 8500:AL90T1T1.2:8425X T1:7300:SW1:8500:SW0X "ANOTHER TIME?";:A$:A$;:A$"N"ĺ:X A$"Y"8435Y} 9500JUL MO/DA/YE5h (CW(0)JDJh(CW(0)CW(0)1524lh(CW(1)((CW(0)122.1)365.25)h(CW(2)(365.25CW(1))h#(CW(3)((CW(0)CW(2))30.6001)h((DACW(0)CW(2)(30.61CW(3))h-(YECW(1)4716i2(MOCW(3)1:MO12MOMO12:YE0)g'+g' :JUL MO/DA/YE --> JD AT NOON^g'CW(0)MO:CW(1)YE:MO3CW(0)MO12:CW(1)YE1g'JD(365.25CW(1))(30.61(CW(0)1))DA1720995g'g':NOON JD-->GREG MO/DA/YE g'CW(0)((JD1867216.25)36524.25)g'CW(0)JD1CW(0)(CW(0)4)  ߅ Gȱȱ '8A>04+v-v*v/v ѩ:ȑȑ`P܍LJȑM̎ʑŒ'80L{ВЎЊІSӫӫӭͫӭͫѫѫѫѭͫѭͫѭͫѭͫѭͫѭͫѭͫѭͫѭͫʫʫʫʭͫʭͫʭͫʭͫʫ֭֭֭֭֭֭֭֭ͫ֫֫֫֫֫ͫͫͫͫͫͫͫ֫ͫ֫ͫͲͧͧƭͫčƍͧƭčĭƭ͍ĭͫƍƭčƫĭͭͧĭͧƍĭͧƭ͍ƭͭͧͧƭčͧͭƍƭͧčͧƭīͫƫͧƫĭͧĭͧƫͫƫͧīƫĭͭͧͧƫčƭͧīĭƫͭͧƫĭ͍ĭƫͧīƫƭͧčƫīͧƭĭ͍ĭƭͧƫƍĭƍƭͧčͧƍƫĭͧĭƍĭƫͧͧͭƫčͧƭčͧƍͧīƍĭƭͧͫƫĭͧͫƫīƫčĭͫƫͧĭͭƍͧƫƭĭͭͧƭͫͧīͭƍͫƫčͧƭĭ͍ͧƫīƫͧͭīͫƫͧĭƭͧĭƭͭͧƭͧčͧĸƭčĭͧͭčͧīƍͧͫͧĭƍƭīͧƍƫͧƍͧƍĭƍĭͧƍĭͧƍīƍͧƍĭƫͧͧƍĭͭƍĭƭͧͧƫčƭĭ͍ĭͧƭ͍ĭͫƍͧƭīͫͧͫƍĭƭͧͫƫͧͭƍƫīͫƫͧƭͭͧƭ͍ƭčͧīĭͭͧͧƫĭͧͫīͧĭ͍͍ͧͧͧͭčͫĭͧĭͭƍͧčĭ͍ͧčƭͭčƭͧͫīͧͧčĭͧī͍ͧͫͧĭͧʫͫĭͧīͧͧīƫĭͧ֍ͧͫč͍ͧ֫ĭͧʫͧͭčͧīĭͧčͫƫͧīĭͭͧīͧĭ͍͍ͧīͧͫƭīƫͧƭͧĭͧĭͧͫĭͧīͫͧčͫčͧͫčīͧčͧī͍ͧͧƭčĭͭͧͧīĭ͍ͧͫͫĭ͍ͧͧĭƫƫ        :$:PQ$""15090 s:(4):I:ZZ$""15110:s;: