' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈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,&"ųųೳŪŪųųij  !"#$%&'()*+,-./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#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!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`   LDcpq` [` ~  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õ`  \ 濭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- ( 0 Ϡ@跻~!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䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`M1M4ĺIE$:450)M540,550,560,90;"RUN RADEM"M&"RUN ECLIP"_0"RUN PHASE"p"PLANETS":"SELECT BY NUMBER.....":5)"1) R.A. AND DECLINATION"5)"2) MARS OPPOSITIONS"5)"3) MERCURY AND VENUS ELONGATIONS"(" "RUN JULDY"% "RUN CDATE"7 "RUN EPOCH"I "RUN PSTAR"W "MOON":v "SELECT BY NUMBER.....": 5)"1) R.A. AND DECLINATION" 5)"2) UMBRAL ECLIPSES" 5)"3) PHASES" 5)"4) RETURN TO MAIN MENU" M$:M(M$):5)"5) JULIAN DAY TO DATE"7 @5)"6) STAR PRECESSIONS"U J5)"7) POLARIS TRANSITS"v T5)"8) RETURN TO MAIN MENU" ^TP$:TP(TP$): hTP1TP8ĺIE$:260 rTP380,390,400,410,420,430,440,90 |"RUN CALDR" "RUN EASTR" "RUN TIMESIE$:100# S250,450,650,900,220) / @ SELECTIONSW "TIME PROGRAMS":v "SELECT BY NUMBER.....": 5)"1) CALENDAR AND HOLIDAYS" 5)"2) EASTER DAY" "5)"3) TIMES CONVERSIONS, LST/LMT" ,5)"4) DATE TO JULIAN DAY" 6- THIS DISKETTE" u( x5)"1) TIME": 5)"2) MOON"O 5)"3) PLANETS"U q "DISKETTE (OR SIDE) 2"w 5)"4) GENERAL AND TUTORIAL" "EITHER DISKETTE OR SIDE" 5)"5) END" S$:S(S$)::: S1S5ĺM THE BEST SELLING BOOK": B:14);"'CELESTIAL BASIC'":V C13)"VERSION 5 OCT.83"^ D: E"****************************************" FJ300011:J P Z ASTRO d: n"MENU....SELECT BY NUMBER": q s"DISKETTE (OR SIDE) 1 3R+146,9,36,36,36,4,0P3\+36,188,119,247,45,62,46,53,36,53,37,44,63,44,60,7,03f+36,188,55,21,63,14,46,14,12,37,12,39,60,22,214,7,03p+182,12,37,12,63,12,60,28,54,6,03z+182,28,39,28,45,28,44,12,54,6,0,2070,2090!X10X1180ī2120+2150NX1180X1360X1X1180:2120X 2150yX190X1270X1X190:2120 2150*X10X190X1X190:21204X1270X1360X1X1270:2120>2150HX2(265180)X111RY2(15071.4)(81.4--- END ---;"HIT ANY KEY TO PLOT AGAIN, ^C TO STOP";DYN$L:`YN$(3)ī2200iDF1:(4);"BLOAD CHAIN, A520"520"SKYSET"=*=*=*=*=*=*=*=*=*=*=*=*=*--- BRACKET VALUES ---Y110Y181.42150 HZ2030,2050 X1ZS:Y1AS 2000' X2015405 10X2,Y2O --- PLOT PLANETS ---Z X19h X31610~ "X1AZ(X):Y1AL(X) ,2000 6X201610 @10XX2,Y2 JX T--- PLOT MOON --- ^X1MZ:Y1ML h2000 rX201670 |MSX2,Y2 ))((LA)(SL))& PSZ1SZ0:1400> ZSZ1SZPI:1400N dSZAC0(SZ)c nHA0SZPI2SZs xSZDEG(SZ) SZ360SZSZ360 SZ0SZSZ360 SLDEG(SL) X1SZ:Y1SL 2000 X201480 X2,Y2 K --- PLOT SUN ---FOR EACH STAR AND POKE IT ON CHART ---6 SP1ī1490C K0236] SRST(K,0):SDST(K,1)j HDT2SR HD12HDHD24 HD12HDHD24 (HAHD15 2HARAD(HA):SDRAD(SD) <SLASN((SD)(LA)(SD)(LA)(HA)) FSZ((SD)(LA)(SL 240 W";:1210B " W 300 330 N 30 60 E"; "DATE: "YR"-"MO"-"DA" LMT: "((T1),5)" LST: "((T2),5) "LAT: ";(((DEG(LA))),5); LA0ĺ" NORTH"; LA0ĺ" SOUTH"; " LONG: "((LO),5)& --- GET AZ AND EL LX18 VX10,X2113, `15,X21133 jXF t0,159279,159P ~(21)l HZ1170,1180,1190,1200 " N 30 60 E 120 150 S";:1210 " S 210 240 W 300 330 N";:1210 " E 120 150 S 210 Yd--- SKYPLT PROGRAM ---:--- RESET FUNCTIONS ---VASN(X)(X(XX1))}ACO(X)(X(XX1))3.141592RAD(X)X3.14159180DEG(X)X1803.14159--- SET COORDINATES AND DATA ---$.87:1:0BX(0)      4  IE$"INVALID ENTRY"+:::["****************************************"v14)"CELESTIAL BASIC"|(-11)"PROGRAMS FOR ASTRONOMY"2:11)"ALL RIGHTS RESERVED BY"<12)"ERIC BURGESS F.R.A.S."> A"THE PROGRAMS FRO 膢 ȱ " <67 L  8ij v vo>+ 41,12,228,191,150,114,45,32,4,02H+64,99,173,246,30,30,46,45,5,0F(14,-60,14.7,-60,14.7,-65,15.9,-63,15.1,-69,16.9,-69j1P(20.3,-57,1.7,-57,2,-62,0.4,-63,6.3,-52,6.8,-511Z(8.8,-55,9.3,-55,9.2,-59,8.3,-60,9.1,-70,9.8,-651d(3.9,-75,12.5,-69,12.6,-681**** SHAPE TABLE DATA ***1*132+36,12,21,54,54,30,7,32HINUS20(20.5,11,20.6,15,20.7,15,20.6,16,20.8,16A0 ( AQUARIUSp0(22.6,0,22.5,0,22.4,1,22.3,-2,22,0,21.5,-6}0( AQUILA0((19.8,9,19.7,10.5,19.9,6,19.1,13,18.95,14,20.1,-102( SOUTHPOLAR REGION0<(12.2,-59,12.1,-50,12.4,-57,12.7,-59,12.3,-6361,19,-30,19.1,-21,18.3,-21'/' SCORPIO/'16.5,-26,16.6,-28,16.4,-24,16,-20,15.9,-22,15.9,-26,18.6,-43,16.7,-34,18.5,-37,18.7,-40,16.7,-38,22.9,-30/' CAPRICORNUS/'21.7,-18,21.6,-18,21.4,-22,20.8,-28,20.7,-26,20.3,-14,20.2,-12,22.9,-300' DELP-18.j' CORVUS9.t'12.5,-16,12.2,-17,12.5,-23,12.2,-22G.~' SERPENSr.'15.8,17,15.5,10,15.7,7,15.8,5,15.8,-3~.' LIBRA.'15.3,-9,14.8,-16.' OPHIUCHUS.'17.5,12,17.2,25,17.6,5,17.7,3.' SAGITTARIUS/'18.3,-30,18,-30,18.4,-25,18.9,-260.3,20,10.3,24,11.2,20,11.2,16,11.8,15,9.8,28,9.7,26A-' CANCERT-$'8.7,29,8.6,21`-.' HYDRA-8'9.5,-9,8.7,7,8.9,7,9.2,2,10.4,-17-B' VIRGO-L'11.8,2,13.4,-11,13,11,12.9,3,12.7,-1,12.3,-1,13.1,-5-V' CRATER.`'10.8,-16,10.9,-18,11.3,-15,11.4,5.75,-2,5.6,-1,5.45,0,5.8,-10,5.6,-6,5.6,10,5.5,-21,5.2,-9L,& CANIS MAJORy,&6.7,-17,6.3,-18,6.9,-29,7.2,-27,7.4,-29,& CANIS MINOR,&7.6,7,7.4,9,& GEMINI,&7.6,32,7.7,28,7.3,22,6.7,25,6.6,16,6.4,22,6.3,22,' LEO4-'10.1,12,10.1,17,1f& TAURUSK+p&3.6,24,3,4,2.7,3,4.5,17,5.4,29,5.6,21,3.7,24,4.3,15,4.45,19W+z& ARIESq+&2.1,23,1.8,21,1.8,19+& ERIDANUS+&3.9,-13,3.3,-20+& PISCES+&1.5,-9,1.2,-10+& CETUS+&.7,-18,1.1,-10,1.3,-9,2,2+& ORION:,& 5.8,8,5.4,8,,39,15,40,15.3,33,14.2,20,13.9,19,14.7,27,15.5,27,15.4,29F*& CORONAS* &15.6,27b**& HERCULES*4&16.7,39,16.7,31,17,31,17.2,37,17.2,25,16.5,21,16.4,19*>& LYRA*H&18.7,39,18.8,33,19,32*R& CYGNUS*\&20.7,45,20.3,40,19.8,45,20.8,34,19.5,28 +,21.3,62,22.1,58,22.8,67()% ANDROMEDA?)%2,42,1.1,35,.6,31P)% TRIANGULUMj)%2.1,35,1.8,29,2.2,34x)% PEGASUS)% 22.7,30,0.1,29,0.2,14,21.7,10,22.2,6,22.7,10,23,4,23,28)% AURIGA)%5.2,46,5.9,45,5.9,37,4.9,33,5,41)& BOOTES9* &14.5,0.9,60,0.6,56,0.1,59#(b% PERSEUSR(l%3.3,50,3.0,53,3.7,48,3.1,41,3.9,40,3.9,32c(v% URSA MAJOR(%11,57,11,63,11.9,54,12.2,58,12.9,57,13.4,55,13.7,50(% DRACO(%16,59,16.4,62,17.1,66,17.5,52,17.9,51,18.3,73,19.2,68 (% CEPHEUS)%23.8,789162L'#.000069,3.16948,.471239,3.91303,39.44,9.86,5.23114,.300197,1.91812v'% *** DATA ON RA AND DEC OF STARS ***'&% URSA MINOR'0%2,89,18,86,17,82,16,78,15,75,15.4,72,16.3,76':% CEPHEUS'D%20.8,61,21.5,70'N% CASSIOPEIA(X%1.9,63,1.4,602028,.24934,1.76188,.01972,1.74533o&d#.000584,4.89884,.105558,1.61094,9.5385,.534156,3.1257,.043633,1.977458 &n#.000205,2.46615,.088593,2.96706,19.182,.901554,4.49084,.01396,1.28805'x#.000104,3.78556,.016965,.773181,30.06,.27054,2.33498,.031416,2.2173,.836013 V%<#.027962,3.02812,.013195,2.28638,.7233,.00506,3.85017,.059341,1.33168%F#.017202,1.74022,.032044,1.78547,1,.017,3.33926,0,0%P#.009146,4.51234,.175301,5.85209,1.5237,.141704,1.04656,.03142,.858702"&Z#.001451,4.53364,.090478,.23911,5.PM2MS12$/$MD3600MDMD3600:7700I$MD0MDMD360:7710g$2MD3600MDMD3600:7730$<MD360MDMD360:7740$F$(# *** ORBITAL ELEMENTS OF PLANETS, MERCURY-PLUTO *** %2#.071425,3.8494,.388301,1.34041,.3871,.07974,2.73514,.122)0#zMZACO(((DM)(LA)(ML))((LA)(ML)))E#HA0MZPI2MZU#MZDEG(MZ)e#MLDEG(ML)o#7600u##PMRS12RQ15#PM12PMPM24#(PM2PM2)MS11:#LA0PM2MS12:#PM2MS13:#LA0PM2MS13: $ALRQAL"AL0ALAL3603" AL360ALAL360M"*HE5.1454(RAD(AL))k"4DMHE23.1444(RAD(RQ))x">HDT2RM"HHD12HDHD24"RHD12HDHD24"\(HD12HD12)ı"fHARAD(HD15):DMRAD(DM)#pMLASN((DM)(LA)(DM)(LA)(HA)PGLMPG-! CORRECT FOR ELLIPTICAL ORBITG!DR6.2886(RAD(PG))T!LMLMDRp!LM360LMLM360:7120!LM0LMLM360!RQLM:RMLM15!RM24RMRM24:7130!RM0RMRM24!ALLEND.052954!NDND.5!MDAL:7700:ALMD " A)(AS))((LA)(AS)))- HS0ZSPI2ZSI ASDEG(AS):ZSDEG(ZS)O j X--- POSITION MOON ---w bNDND.5 lLP255.7433 vLZ311.1687:LE178.699 {LMLZ360ND27.32158 MDLM:7700:LMMD PG.111404NDLP MDPG:7700:PGMD !---RSDEG(A(3)PI)155RS24RSRS24:5020NRS0RSRS24:5030iVS(A(3)PI)23.44194vHST2RSHS12HSHS24HS12HSHS24HSRAD(HS15):VSRAD(VS)ASASN((VS)(LA)(VS)(LA)(HS)) ZSACO(((VS)(LDEG(L(I))HAT2R*HA12HAHA24>HA12HAHA24[HARAD(HA15):VRAD(V)ALASN((V)(LA)(V)(LA)(HA))AZACO(((V)(LA)(AL))((LA)(AL)))$HA0AZPI2AZ.ALDEG(AL):AZDEG(AZ)8--- POSITION SUN (D(I)D(3)Q)28X2ACO((((P(PD(I)))(D(3)Q))))HTX(12PI)fZ0RDEC(A(3)PIX)15Z0RDEC(A(3)PIX)15R24RR24:4800R0RR24:4810Z0V(A(3)PIX)23.44194DEG(L(I)) Z0V(A(3)PIX)23.44194PI2:4560#A0AAPI2:4570FDPD(J,4)PD(J,5)(APD(J,6))aLPD(J,7)(APD(J,8))g\--- ELEV & AZ OF PLANETS ---fZA(3)A(I)p(Z)PIZ0ZZ(PI2)z(Z)PIZ0ZZ(PI2)Q(D(I)2D(3)22D(I)D(3)(Z))P064707(((ZNT1)24)SG)T15XT224T2T224:4440NbT20T2T224:4450Tlp *** SUB FOR A,D,L ***ANDPD(J,0)PD(J,1)API2A(A(PI2)(A(PI2)))PI2A0AAPI2:4530CPD(J,2)(APD(J,3))AAC API2AA *** DAYS FROM EPOCH ***5G365YRDA((MO1)31)EMO34340vGG((YR1)4)(.75((YR1)1001)):4350GG(2.3MO.4)(YR4)(.75((YR100)1))0 *** CALCUL OF LST ***:4300:NSG722895DSG.065711NT2SGNS12.NZNLGC15 6 *** ENTER VAR.FOR CALC LST ***@4400\4300:NDG715875T124z--- POSITION PLANETS ---J084500A(J1)A:D(J1)D:L(J1)LJI19I341204700AL(I)AL:AZ(I)AZI"INVALID REPLY"::3010< :"WHAT IS THE LMT(HH.XXX)? ";T1H :3100v :"WHAT IS THE LMT(HR,MI,SE)? ";HR,MI,SE T1HRMI60SE3600:  *** CORRECT ZN FOR LONGITUDE *** LGC(ZN15)LO LGC03350 ZNZN(LGC15):3360  ZPOSITION MOON --- 70009*(4);"BLOAD CHAIN, A520"J4520"SKYPLT"m>*=*=*=*=*=*=*=*=*=*=*=*=*=*=* *** TIME INPUT *** "DO YOU WANT INPUT IN DEC.HRS (D)" " OR IN HR, MI, SE (H)? ";YN$ YN$"D"3060 YN$"H"3080 ""MARS 4 JUPITER 5":"SATURN 6 URANUS 7"Z"NEPTUNE 8 PLUTO 0"l:"(Y/N)";A$}A$"Y"SP1NC12090:"COMPUTING...PLEASE WAIT":*** SET PLANETS ***4000--- POSITION SUN --- 5000--- : ";HZ&:(HZ1HZ2HZ3HZ4)2000AD"INVALID ENTRY":1780[ *** BEGIN CALCS ***c:lSP0"DO YOU WANT PLANETS ONLY SHOWN""WITHOUT SHOWING STARS AS WELL?":"PLANETS IDENTIFIED AS.. ""MERCURY 1 VENUS 2"::::1"WHICH HORIZON DO YOU WANT TO SEE?"7c" 1 EAST HORIZON ... 0 TO 180 DEG"" 2 WEST HORIZON ... 180 TO 360 DEG"" 3 SOUTH HORIZON .. 90 TO 270 DEG"&" 4 NORTH HORIZON .. 270 TO 90 DEG"0:"SELECT (1-4):" THE LONGITUDE OF: ";LO;:" (Y)(N)? ";YN$LYN$"N"1720v:"WHAT IS THE LONGITUDE? ";LO:3300|" THE LATITUDE OF: ";DEG(LA);:" (Y)(N)? ";YN$YN$"N"1770:"WHAT IS THE LATITUDE? ";LALARAD(LA)01640E:::;J:"IF YOU WANT TO CHANGE VARIABLES"gT"ANSWER 'Y' WHEN ASKED, OTHERWISE 'N'"mY^"DO YOU WANT TO CHANGE:"hr" THE TIME ZONE OF:";ZN;:" (Y)(N)? ";YN$|YN$"N"1680:"WHAT IS THE TIME ZONE(0-23)? ";ZND:YRYY18001550I:"IS ";Y;:" THE YEAR YOU WANT(Y)(N)? ";YN$^YN$"N"ĺ:1470qYN$"Y"1520y:DF0ĺ"WHAT IS THE LMT TO BE DISPLAYED?":1590"" THE LMT OF:";T1;:" (Y)(N)? ";YN$,YN$"N"164063000@DFϺE"DO YOU WANT TO CHANGE:":" THE DATE OF: "YR;"-";MO;"-";DAK_"(Y)(N)? ";YN$qYN$"N"1550:"WHAT IS THE DATE TO BE DISPLAYED?""...THE YEAR: ";Y"...THE MONTH: ";M"...THE DAY: ";DMOM:DA0:F:"DATE.. ";YR;"-";MO;"-";DA;" LMT.. ";T1;" HRS"@K\P" TIME ZONE.. ";ZNbUZ"LAT.. ";DEG(LA);" LONG.. ";LO:dn"DO YOU WANT TO ENTER OR CHANGE ANY":"VARIABLES? (Y)(N) ";YN$xYN$"N"NC1:1770}::::7)"BEFORE FULL IT IS SHOWN AS ) AND"S8)"AFTER FULL IT IS SHOWN AS ("::[:c:x I16500:I:: *** BEGIN MAIN PROGRAM ***DF0ĺ:::1460(NC02:"DO YOU WANT TO SEE THE VARIABLES? (Y/N) ";YN$<YN$"N"ī138WISH" jDF0 tI14400:I- ~::::5 := :i :7)"PLOTS THE STARS FOR A REQUESTED" 8)"TIME AND DATE, AND SHOWS THE" 7)"PLANETS, SUN AND MOON ABOVE THE" 16)"HORIZON" :4)"CLOSE TO FULL THE MOON IS SHOWN AS @")E II"< ZN8:LARAD(38.24):L$"SEBASTOPOL,CAL.":LO122.49D $:f ."INITIAL CONDITIONS ARE SET"z 3"FOR ... "L$: 8 B10);"LATITUDE ";DEG(LA) L10);"LONGITUDE ";LO V10);"TIME ZONE ";ZN:: `"YOU CAN CHANGE THESE LATER IF YOU A38144& JN:BA,N:BABA2:BDBA2N1 TX1NA ^BRBD38144\ hBA,(BR(BR256)256)p rBA1,(BR256)| |BABA2 Y:BD,Y BDBD1 Y0390 X --- INTRO PRINT ROUTINE ---  :: 6);"ASTRONOMY PROGRAM FOR APPLTA VARIABLES ---' PD(8,8),ST(236,1)- P :"PLEASE WAIT, LOADING DATA"[ I08f J08s PD(I,J)| J,I I0236 J01 ST(I,J) J,I PI3.141593 "--- SET HGR SHAPE TABLE --- ,38143 6232,0:233,149 @BFTWARE SERVICE" F0 K10)"(VERSION 10/83)"A PK12000:K\ d--- SET FUNCTIONS ---x nASN(X)(X(XX1)) xACO(X)(X(XX1))3.1415932 RAD(X)(X)3.14159180 DEG(X)(X)1803.14159 DF11320 --- INITIALIZE DA+  DF1ī100:(::D8)"ASTRONOMY PROGRAM"Jd#10)"--------------"~(10)"I SKYSET I"-10)"--------------"2:75)"BY ERIC BURGESS F.R.A.S."9::<5)"ALL RIGHTS RESERVED BY" A5)"S & T SO               ESPONSE"::3280% % 9% SUB FOR METEOR RADIANTM% 20);::"+":a% 17)"RADIANT";g% CARES";$ 31)"X";39)"*"5$ " *";8)"*";30)"*"J$ :"SAGITTARIUS"]$ " *";26)"*"z$ 5)"*";12)".";15)"**"$ 12)"*";26)"*";31)"SCORPIO"$ $ K15000:K$ "WANT ANOTHER MONTH? Y/N ";A$$ A$"Y"160% A$"N"ĺ"INVALID ROND ";M$;" SHOWER IS THE OPHIUCIDS"M# "17-26,MAX 19, RAD 17.3 RA, -20 DEC"_# "6 PER HOUR"u# 18)"OPHIUCHUS";#& 33)"."#0 ".";10)".";30)"*"#: :#D 15)".";21)"*":#N 3330#X 38)"*":#b " *";39)"*"#l 34)"*"$v 22)"ANT37)"*":3330"^ ""2"h 9)"* *";30)" * *"C"r " LYRA";W"| 32)"HERCULES"a" " X"n" 28)"*"}" 39)"*":" ::" 12)"."" 10)"*";38)"*"" 33)"*"" "*";31)"OPHIUCHUS"" " " JUNE OPHIUCIDS" ## "SEC! 10)".";16)"*":/! 14)"*";30)"DRACO"5! ;! M! JUNE LYRIDSS! |! "FIRST ";M$;" SHOWER IS THE LYRIDS"!" "10-20,MAX 15, RAD 18.3 RA, 35 DEC"!, "BLUISH METEORS, 8 PER HOUR"!6 !@ 40)"*"!J 6)"VEGA";13)"X";30)"*"; "T * x "SECOND ";M$;" SHOWER IS THE URSIDS"S "17-24,MAX 22, RAD 14.6 RA, 78 DEC"z "FAINT, MEDIUM SPEED, 5 PER HOUR" 10)"POLARIS";20)"*" :16)"."::: 12)".": :3330:"":13)"." " URSA";39)"." " MINOR"GHT SWIFT METEORS 60 PER HOUR"+ 40)".": :22)"*"D 3330^ ".":18)"*";33)"."( 18)".":" .";24)"*";38)"* *"2 28)".":25)"GEMINI"< 36)"*":F 35)".":P 23)"*";46)"X":19)"X PROCYON"Z d DEC URSIDS n J13000:J7 "WANT TO SEE THE OTHER SHOWER Y/N ";A$= Z A$"Y"JS1İ2660:2500q A$"Y"JS2İ2510 A$"N"ī3280 3270 DEC. GEMINIDS  "FIRST ";M$;" SHOWER IS GEMINIDS" "9-13,MAX 13, RAD. 7.46 RA 32 DEC" "BRIEORS, SOME FIREBALLS"'$ ::8)"AND"@. ::5)"THE URSIDS"a8 "17-24, MAX 22, 5 PER HOUR"uB "WEAK DISPLAY"{L V :"PLEASE SELECT GEMINIDS (1)"` " OR URSIDS (2)"j :A$:JS(A$)t JS1İ2510:2440~ JS2İ2660  3)"*"$20)".":3)"X";8)"LEO":20)"X REGULUS"K".";28)"."[37)"* ."e::kq{::"IN ";M$;" THERE ARE TWO METEOR SHOWERS" :5)"THE GEMINIDS" "9-13, MAX 13, 60 PER HOUR" "SWIFT BRIGHT MET30)"*";45)"."::4>0H NOV LEONIDS6R]\"SECOND ";M$;" SHOWER IS LEONIDS"f"15-19,MAX 17, RAD 10.13 RA, 22 DEC"p"SWIFT METEORS, 10 PER HOUR"z3)".";10)".":7)".":24)".":18)".";26)"*"3330:17)"*":"WITH 2 RAD.,3.73 RA, 14 & 22 DEC"O"SLOW METEORS, SCATTERED FIREBALLS"g:16)"PLEIADES":v19)".::""TAURUS":333039)"*""ALDEBARAN";11)"."10)"X";11)".";13)".";34)"ARIES"3330:""  *JS2İ2120DJ13000:JDN"WANT TO SEE OTHER SHOWER Y/N ";A$JXgbA$"Y"JS1İ2120:1920~lA$"Y"JS2İ1930vA$"N"ī32803270 NOV TAURIDS"FIRST ";M$;" SHOWER IS TAURIDS""10/20-11/30,MAX 8, 12 PER HOUR"&)"THE LEONIDS";"15-19,MAX 17, RAD 10 RA, 22 DEC"]"SWIFT METEORS, 10 PER HOUR"e:"PLEASE SELECT TAURIDS (1)"" OR LEONIDS (2)":A$:JS(A$)&JS1JS2ĺ"INVALID RESPONSE"::17900JS1İ1930:1860 :DE$(DE$,4)/' "MOON DATA REQUESTED FOR ..."Z' 5)"YEAR ";YX;" MONTH ";MX;" DAY ";DX`' o'& "AT NOON"'0 "R.A. OF MOON IS ";RA$;" HRS"': "DECLINATION IS..";DE$;" DEG"'D "-------------------------------"(N CALC RISE, TRANSIT, SET TIMESAL0ALAL360$& AL360ALAL360D& HE5.1454(AL3.14159180)i& DMHE23.1444(LMD3.14159180)q& :& RA$(RM):DE$(DM)& RA$(RA$,5):DE$(DE$,5)& (RA$)10RA$(RA$,4)& (DE$)9DE$(DE$,5):3080 ' (DE$)10(DE$)10MD360:2870%@ RMLMD154%J RM24RMRM24:2890G%T RM0RMRM24\%^ ALLENI.052954{%h AL3600ALAL3600:2920%r AL360ALAL360:2920%| AL0ALAL360:2940% AL3600ALAL3600:2950% AL360ALAL360:2960% ALLMDAL& $ PG360PGPG360:27807$ LMDLZ360NI27.32158E$ PGLMDPG_$ DR6.2886(RAD(PG))n$ LMDLMDDR$ LMD360LMDLMD3600:2830$ LMD360LMDLMD360:2840$" LMD0LMDLMD360:2850$, LMD3600LMDLMD3600:2860 %6 LMD360LMDL)T2160#_ TTTTTZ)#d TT0TTTT24=#n TT24TTTT24C#x j# CALC RISE, TRANSIT, SET FOR MOONr# :# RA AND DEC OF MOON# LZ311.1687# LE178.699# LP255.7433# PG.111404NILP# PG360PGPG360:2760$ PG0PGPG3602520" TA0TATA&" TAACO(TA)6" TADEG(TA)C" BTA15`" TR(BR(I)TZT2).99727o" TRTR160" TR0TRTR24" TR24TRTR24"( CTA15"2 TS(CR(I)TZT2).99727"< TSTS360"F TS0TSTS24"P TS24TSTS24 #Z TTR(I !` CALC SIDEREAL TIME T2/!j GC11.927485>!t TC.065711U!~ T2TC(NI7020)GCo! T224T2T224:2440! T224T2T224:2450! T20T2T224! ! CALC RISE, TRANSIT, AND SET TIMES! TA(RAD(LA))(RAD(V(I)))" TA0TA(TA):..5" 8)"SATURN........6"8 8)"URANUS........7"R  8)"NEPTUNE.......8"l  8)"PLUTO.........9"  8)" 10....MOON" $ . "PLEASE SELECT NUMBER .. ";SS$ 8 SS(SS$) B SS1SS10ĺ"INVALID RESPONSE"::2190 L CISS!V4159)23.441944 PICK PLANET, SUN, OR MOON>::H::u"SELECT PLANET, SUN, OR MOON BY NUMBER"{8)"MERCURY.......1"8)"VENUS.........2"8)" 3....SUN"8)"MARS..........4" 8)"JUPITER.....ION44Z0V(A(3)3.14159X)23.44194DEG(L(I))e>Z0V(A(3)3.14159X)23.44194DEG(L(I))sHXDEG(X)RR(3)DEG(A(3)3.14159)15\R(3)24R(3)R(3)24:2140fR(3)24R(3)R(3)24:2150pR(3)0R(3)R(3)24zV(3)(A(3)3.1(DS(I)DS(3)Q)25AC(((P(PDS(I)))(DS(3)Q)))JAC1AC.999999[X2ACO(AC)f R.A.Z0RDEG(A(3)3.14159X)15Z0RDEG(A(3)3.14159X)15 R24RR24:2060R24RR24:2070 R0RR24:2080* DECLINATROM ECLIPTIC (L)+lLPD(J,7)(APD(J,8))1vG CALC RA AND DECd ANG. DIST FROM SUN (Z)tZA(3)A(I)(Z)3.14159Z0ZZ6.28318(Z)3.14159Z0ZZ6.28318CI3X0:2040Q(DS(I)2DS(3)22DS(I)DS(3)(Z))PЭA6.28318A((A6.28318)(A6.28318))6.28318JA0AA6.28318:1820e&CPD(J,2)(APD(J,3))o0AAC:A6.28318AA6.28318DA0AA6.28318:1860NDISTANCE OF PLANET FROM SUN (DS)XDSPD(J,4)PD(J,5)(APD(J,6))b DISTANCE F2200:CI3FLAP+CI10İ2690:174051230Y:"WANT ANOTHER DATE Y/N? ";A$uA$"Y"FL0:F0::430A$"N"ĺ"INVALID RESPONSE"::1740:3200 CALC A,DS, AND L HELIOCENTRIC LONGITUDE (A)ANIPD(J,0)PD(J,1)/NSITS AT.... ";TT;" HR ";+^(TN);" MIN"[h(P$(I)))" SETS AT........ ";TS;" HR ";mr(TP);" MIN"u|:"WANT ANOTHER PLANET, SAME DATE Y/N? ";A$A$"N"ī1740A$"Y"ĺ"INVALID RESPONSE"::1670CI10DDX:MMX:YYX:650"-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-J2480: GET RISE,TRANSIT SETR:p"TM60(TR(TR)):TR(TR),TN60(TT(TT)):TT(TT)6TP60(TS(TS)):TS(TS)@JP$(I)" RISES AT....... ";TR;" HR ";(TM);" MIN"T(P$(I)));" TRAI)R:V(I)VI+ICI:A(I)DEG(A(I))BQ$(I)((Q(I)),5)YX$(I)((X(I)),5)pR$(I)((R(I)),5)V$(I)((V(I)),5)I3ĺP$(I)27)R$(3);I3ĺ33)V$(3)I3ĺ:1540P$(I)9)Q$(I)19)X$(I)28)R$(I);36)V$(I)) TO PLANET FROM SUN (HRS) (DEG)"711)"A.U."e("-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-v2FLAPī1440<:I1FJ08:1780PA(I)A:DS(I)DS:L(I)LZII1:JdI19n SKIP EARTHxI3ĂI1920 Q(I)Q:X(I)X:R(  CALCULATE DATA FOR PLANETS,:::X"DATA REQUESTED FOR ";YX;" ";MX;" ";DX^"-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-CI3ĺ28)"R.A. DEC"CI3ĺ27)"(HRS) (DEG)":1320 " DIST ANG.DIST R.A. DEC"'" .016965,.773181,30.06:t.27054,2.233498,.031416,2.29162F~ PLUTOq.000069,3.16948,.471239,3.91303,39.449.86,5.23114,.300197,1.91812IP110:P$(IP):IPMERCURY,VENUS,SUN,MARS,JUPITER SATURN,URANUS,NEPTUNE,PLUTO,MOONF1 .249374,1.76188,.01972,1.74533-$ SATURNY..000584,4.89884,.105558,1.61094,9.5385~8.534156,3.1257,.043633,1.977458B URANUSL.000205,2.46615,.088593,2.96706,19.182V .901554,4.49084,.01396,1.28805` NEPTUNEj.000104,3.78556,.00506,3.85017,.059341,1.33168* EARTHQ.017202,1.74022,.032044,1.78547,1g.017,3.33926,0,0r MARS.009146,4.51234,.175301,5.85209,1.5237 .141704,1.04656,.03142,.858702 JUPITER.00145,4.53364,.090478,.23911,5.2028 0%R INPUT OF PLANETARY ORBIT DATA4\F1ī1210:fNpPY08:PX08]zPD(PY,PX)hPX,PYv MERCURY.071422,3.8484,.388301,1.34041.3871,.07974,2.73514,.12223,.836013 VENUS.027962,3.02812,.013195,2.28638.7233,31)M2ī800( FOR JAN AND FEBU DGDG((Y1)4)((.75)((Y1)1001))^820u  FOR MAR THRU DEC*DGDG(M.42.3)(Y4)((.75)((Y100)1))4NIDG7158759NINIL0180>2400: TO GET SIDEREAL TIME (T2)HCI10ī269((LY1M2(D)29)M3:DD29:740M(LY0M2D28)M3:DD28:740\D31ī740(M4M6M9M11)MM1:DD30:740(D)31MM1:DD31M13M1:YY1 CALC DAYS TO DATE REQUESTED FROM EPOCH 1960,1,1DG365YD((M1)SPONSE"::570N1X"THE DAY ";DD$:D(DD$)ZbD0D31ĺ"INVALID RESPONSE"::600ilM2ī650vLY0D28ĺ"INVALID RESPONSE"::600LY1D29ĺ"INVALID RESPONSE"::6002190: TO SELECT PLANETDXD:MXM:YXYDD(LO15)24:GOTO410 Y1800ī540< "IS ";Y;" THE CORRECT YEAR? "K "Y/N ";Y$\ Y$"Y"ī540o Y$"N"ĺ:460 "INVALID RESPONSE"::490 LY0 &Y4(Y4)0Y100(Y100)0LY1 0 :"THE MONTH ";MD$:M(MD$)DM0M12ĺ"INVALID RE Y/N? ";A$ rA$"Y"430' |:::/ :H "GIVE LATITUDE ";LAN g "AND LONGITUDE ";LO :"AND TIME ZONE";TZ :::: "ENTER THE DATE": TZLO15TZ FL2 "THE YEAR ";YD$:Y(YD$) Y0ĺ"INVALID RESPONSE:PRINTTHE MOON" "::9 ,"INITIAL CONDITIONS ARE SET FOR"? 6w @ CHANGE NEXT TWO LINES TO YOUR LOCAL LAT AND LONG. J5)"SEBASTOPOL, CALIFORNIA" T5)"LONGITUDE 122.49; LATITUDE 38.24" Y5)"TIME ZONE 8" ^ h"DO YOU WANT TO CHANGE THEM BY"% 5)"S & T SOFTWARE SERVICE"- :I 7)"VERSION OCT. 1983"] J300011:Ji :::s :: "THIS PROGRAM GIVES APPROXIMATE TIMES" "OF THE RISING, TRANSIT, AND SETTING" "OF A SELECTED PLANET, OR THE SUN" 13)"OR IN NEXT LINE$ dLO122.49:LA38.24- iTZ8I n8)"ASTRONOMY PROGRAM"l x5)"------------------------" 5)"I RISE AND SET TIMES I" 5)"------------------------" 5)"BY ERIC BURGESS F.R.A.S." : 5)"ALL RIGHTS RESERVEDL  ::::=PD(9,9):IP(10):A(9):DS(9):L(9)Y(Q(9):X(9):R(9):V(9)u2ASN(X)(X(XX1))<ACO(X)(X(XX1))1.5707963FRAD(X).01745328(X)PDEG(X)57.29578(X) Z INSERT YOUR LOCAL LONGITUDE AND LATITUDE               31)"X";38)"."+r34)":":2)".";38)"X"8|30)"*"B3270J:q"IN ";M$;" THERE ARE TWO SHOWERS"y:5)"THE TAURIDS":"10/20-11/30,MAX 8/11,RAD 3.7 RA,14 DEC""SLOW 12/HR, SCATTERED FIREBALLS":8)"AND":5T TRAIL METEORS, 30/HR"36)".";23)"*";26)"."P11)".";22)".";34)"*"b10)"GEMINI"v8)".";18)"*""3330,:16)"."6:8)"*";32)"."@28)"X";36)"X"J4)"X"T"PROCYON";35)"ORION"^:35)"X"h33)"X":EUS";20)"*":21)".",12)"*"::I39)"X":8)"X";20)"X"f20)".";30)"ANDROMEDA"s37)"*"}3270"FOR THE MONTH OF ";M$"THE METEOR SHOWER IS THE ORIONIDS""16-26,MAX 21, RAD. 6.4 RA, 15 DEC""SLOW PERSISTENTEOR SHOWER"2:::32808<"FOR THE MONTH OF ";M$aF"THE METEOR SHOWER IS THE PERSEIDS"P"4-16,MAX 12, RAD 3 RA 58 DEC"Z"A SPECTACULAR SHOWER, 50 PER HR"d6)".";39)"X"n:29)"CASSIOPEIA"x:333023)"."10)"PERSER"17)".":,32)"AQUARIUS"928)"."S11)"DELTA *";:3330h33)"*";37)"."n}39)"."::19)"X":11)"FOMALHAUT"31)"*"::: 3270"DURING THE MONTH OF ";M$ ("THERE IS NO MAJOR MEYOU WANT TO SEE OTHER SHOWER Y/N ";A$+BHLA$"Y"JS1İ3050:1130_VA$"Y"JS2İ2820q`A$"N"ī3280{j3270t"FOR THE MONTH OF ";M$~"THE METEOR SHOWER IS DELTA AQUARIDS""7/25-8/4,MAX 28,RAD 22.8 RA -16 DEC""DIFFUSE SHOW17-26, MAX 19"-5)"AVERAGING 6 PER HOUR"O:"PLEASE SELECT LYRIDS (1)"o" OR OPHIUCIDS (2)":A$:JS(A$)JS1JS2ĺ"INVALID RESPONSE"::1000JS1İ2820:1070JS2İ3050$A$"N"ī3280.J13000:J%8"DO ".";35)".";39)"."*p19)"CAPRICORNUS"4z3270<:a"IN JUNE THERE ARE TWO SHOWERS"i:~5)"THE LYRIDS""JUNE 10-21, MAX 15, BLUISH METEORS"5)"AVERAGING 8 PER HOUR::8)"AND":5)"THE OPHIUCIDS":"JUNE IS ETA AQUARIDS"6"4-13,MAX 6, RAD 22.5 RA, 0 DEC"J "WEAK DISPLAY"h15)".";30)"*";36)".." 24)".";35)"."::*17)"*";24)"*"415)"*";:3330>30)"AQUARIUS":H33)"X"::R:\12)"."f11)".";29)"*";31)GA";33)"*";39)"*"1l5)"LYRA";33)"HERCULES"7vL34)"*";38)"*"a7)"* *";:3330i:v23)"*"32)"*":33)"*"16)"OPHIUCHUS";27)"X"3270"FOR THE MONTH OF ";M$"THE METEOR SHOWER "DURING THE MONTH OF ";M$" P "THERE IS NO MAJOR ANNUAL METEOR SHOWER"Z &::d 03280 :"FOR THE MONTH OF ";M$ D"THE METEOR SHOWER IS THE LYRIDS" N"20-22, MAX 21,12/HR, RAD.18 RA 33 DEC" X"GOOD ANNUAL SHOWER":b11)"X VE(M1)lM1$((M1),4)/vP$(I);" IS ";AS$_" ";MS$;" ";M1$;" MINUTES ";BA$;" THE SUN"i::oA1B1)D160(R(3)R(I)))&M1C1D1K0 ADJUST FOR RA PASSING ZEROh:M1720M1M11440:1870DM1720M1M11440NM10AS$"AN EVENING STAR ":MS$"SETTING":BA$" AFTER"XM10AS$" A MORNING STAR ":MS$"RISING ":BA$" BEFORE"bM1V(3)))(RAD(LA))+A10A1(A1):1740<A10A1A1[A1(A1.01454)(RAD(LA))sA1A1(RAD(V(3)))B1(RAD(D(I)))(RAD(LA))B10B1(B1):1790B10B1B1B1(B1.00989)(RAD(LA))B1B1(RAD(V(I)))C14(3)R(3)24,6V(3)(A(3)3.14159)23.441942@8JQT CALC SIDEREAL TIMEb^GC11.927485qhTC.065711rT2TC(NI7020)GC|T224T2T224:1660T224T2T224:1670T20T2T224 GET TIME DIFFERENCESA1(RAD(R24:1500! CALC DECLINATIONRZ0V(A(3)3.14159X)23.44194DEG(L(I))Z0V(A(3)3.14159X)23.44194DEG(L(I))XDEG(X)R(3)DEG(A(3)3.14159)15R(3)24R(3)R(3)24:1560"R(3)24R(3)R(3)24:1570 ,R(3)0R()(Z))( CALC ANG DISTANCE FROM SUN>P(D(I)D(3)Q)2gX2ACO((((P(PD(I)))(D(3)Q)))) CALC RA OF PLANETZ0RDEG(A(3)3.14159X)15Z0RDEG(A(3)3.14159X)15R24RR24:1480R24RR24:1490 R0RFROM ECLIPTIC(2LPD(J,7)(APD(J,8)).<HF CALC PLANETARY DATAkP CALC ANG DISTANCE FROM EARTH{ZZA(3)A(I)d(Z)3.14159Z0ZZ6.28318n(Z)3.14159Z0ZZ6.28318x CALC DISTANCE FROM EARTHQ(D(I)2D(3)22D(I)D(3)5A6.28318A((A6.28318)(A6.28318))6.28318PA0AA6.28318:1250kCPD(J,2)(APD(J,3))uAACA6.28318AA6.28318 A0AA6.28318:1290 CALC PLANET DIST FROM SUNDSPD(J,4)PD(J,5)(APD(J,6)) ( CALC DIST K12`IK:A(I)DEG(A(I)))j1710/t9~::["WANT ANOTHER DATE Y/N? ";A$lA$"Y"ī380A$"N"ĺ"INVALID RESPONSE"::1160"RUN ASTRO" CALC POSITION DATA CALC HELIOCENTRIC LONGITUDEANIPD(J,0)PD(J,11 CALC DATA FOR PLANETS$.::Z"DATA REQUESTED FOR ";YX;" ";MX;" ";DXd::n:I1J02:1230A(I)A:D(I)DS:L(I)LII1:I12$ SKIP EARTH.I3Ă81370BQ(I)Q:X(I)X:R(I)R:V(I)VLV871,.07974,2.73514&\.12223,.8360132f VENUSlp.027962,3.02812,.013195,2.28638,.7233,.00506,3.85017z.059341,1.33168 EARTH.017202,1.74022,.032044,1.78547,1,.017,3.339260,0I913:P$(I9):I9 MERCURY,VENUS,SUNF(M.42.3)(Y4)((.75)((Y100)1))8NIDG715875V1620: GET SIDEREAL TIME| INPUT OF ORBIT DATA FOR PLANETS F1ī950 PD(3,9)*YY02:XX084PD(YY,XX)>XX,YYH MERCURYR.071422,3.8484,.388301,1.34041,.3)31MM1:DD31%M13M1:YY1G CALC DAYS TO DATE REQUESTEDa FROM 1960,1,1 EPOCHyDG365YD(M1)31M3ī730 CALC FOR JAN OR FEBDGDG((Y1)4)((.75)((Y1)1001))750 CALC FOR MAR THRU DEC'DGDGD28ĺ"INVALID RESPONSE"::530I:LY1D29ĺ"INVALID RESPONSE"::530\DDXD:MXM:YXYoNDD(LO15)24X(LY1M2(D)29)M3:DD29:660b(LY0M2(D)28)M3:DD28:660lD31660v(M4M6M9M11)MM1:DD30:660(D0 LY03 Y4(Y4)0Y100(Y100)0LY1N Y400(Y400)0LY1r :" THE MONTH? ";MD$:M(MD$) M0M12ĺ"INVALID RESPONSE"::490 :" THE DAY? ";DD$:D(DD$) D0D31ĺ"INVALID RESPONSE"::530 &M2ī5800LY0E ";LO |:::* "ENTER THE DATE":3 FL2U " THE YEAR ? ";YD$:Y(YD$)y Y0ĺ"INVALID RESPONSE"::410 Y1800ī490 "IS ";Y;" THE CORRECT YEAR? " Y$ Y$"Y"ī490 Y$"N"ĺ"INVALID RESPONSE"::440 Y$"N"ĺ:41 WHICH YOU INPUT" ":I ,"INITIAL CONDITIONS ARE SET FOR......"o 65)"SEBASTOPOL, CA LONG. 122.49" @21)"LAT. 38.24": J:"WANT TO CHANGE THEM Y/N? ";A$ TA$"Y"380 ^:::: h" GIVE LATITUDE ";LA r" AND LONGITUDSERVICE" J200011:J( :::4 :::Z "THIS PROGRAM GIVES APPROXIMATE" "TIME IN MINUTES THAT MERCURY AND" "VENUS RISE BEFORE THE SUN AS" "MORNING STARS, OR SET AFTER THE" "SUN AS EVENING STARS, FOR ANY DATE" "  d10)"ASTRONOMY PROGRAM":= n9)"-------------------"[ x9)"I INNER PLANETS I"y 9)"I TIMES FROM SUN I" 9)"-------------------" 7)"BY ERIC BURGESS F.R.A.S." 7)"ALL RIGHTS RESERVED BY" 7)"S & T SOFTWARE p GREETING-1 PROGRAM$::@ASN(X)(X(XX1))g(ACO(X)(X(XX1))1.57079632RAD(X).01745328(X)<DEG(X)57.29578(X)F INSERT LOCAL LONGITUDE AND LATITUDE IF FOLLOWING STATEMENTPLO122.49:LA38.24 Z:::            19)"*" 26)"X":/ 15)"*";28)"BOOTES"< 30)"."^ 13)".";29)".":2)"CORONA"u 12)"*";24)"X": 30)"X ARCTURUS" 3270 "DURING THE MONTH OF ";M$  "THERE IS NO MAJOR ANNUAL METEOR SHOWER" :: 3280 0M$"OCTOBER":14903 @M211M$"NOVEMBER":1680R JM212M$"DECEMBER":2280n T"FOR THE MONTH OF ";M$ ^"THE METEOR SHOWER IS QUANDRANTIDS" h"4 JAN MAX 24 HRS, RAD 15.5 RA 50 DEC" r"GOOD ANNUAL SHOWER 40 PER HOUR" |:3330:: 2M M21M$"JANUARY":340< M22M$"FEBRUARY":470V M23M$"MARCH":520p M24M$"APRIL":570 M25M$"MAY":750 M26M$"JUNE":900 M27M$"JULY":1140 "M28M$"AUGUST":1340 ,M29M$"SEPTEMBER":1300 6M21 "MERCURY (1); VENUS (2); OR BOTH (3) ";SD$<# (SD$)3ıI# E$SD$:i# "INVALID RESPONSE"::2800.) " AP$""6" MX13M7M12AP$"FAVORABLY":2790e" MX18M7M12AP$"VERY FAVORABLY":2790" MX13M1M7AP$"FAVORABLY":2790" MX18M1M7AP$"VERY FAVORABLY":2790" AP$"UNFAVORABLY"" " "SELECT DETAILS FOR DISPLAY",#1!F M12MM12:YY1=!P LY1M2D29M3:DD29:2660a!Z LY0M2D28M3:DD28:2660p!d D312700!n (M4M6M9M11)MM1:DD30:2630!x D31MM1:DD31:2630! M12MM12:YY1! ! SUB FOR VIEWING MERCURY" MX(MW$CENT"+ PH120PH151PH$"FAT CRESCENT"M PH70PH121PH$"NEAR HALF"l PH29PH71PH$"GIBBOUS"  PH30PH$"NEAR FULL"  PH(180PH) ( 2 SUB FOR MONTH END ADJUSTS < Y4(Y4)0Y100(Y100)0LY1!A Y400(Y400)0LY$ :"WANT BOTH PLANETS? Y/N ";A$L A$"Y"E$"3":OP1:450:E$"":OP0u "DO YOU WANT ANOTHER DATE? Y/N ";A$ A$"Y"ī320 A$"N"ĺ"INVALID RESPONSE"::2480 :980 SUB FOR PHASES PH180PH57.2958 PH150PH$"THIN CRESB FL1:NTNT1L 2240$V 450F` SD$"3"E$"":SD$""::2480[j OP1OP0:2480t "WANT THE OTHER PLANET? Y/N ";A$~ A$"Y"E$"1"E$"2":A$"":450:2460 A$"Y"E$"2"E$"1":A$"":450:2460 A$"N"ĺ"INVALID RESPONSE"::2420 CALC DAYS FROM EPOCH:81030:VW$(VW57.29578)UMW$(MW57.29578):1920gF91ė:::"DISPLAY ";NT;" IS DATE ";YI;" ";MI;" ";DI::2110NTNSĺ: NTNSİ2800 NTNSė:2390 $ DDND. 26108 YIY:DID:MIM>"HM120.8((U$(0),5))28RM1);(U$(0),1);U\M220.8((U$(1),5))2kfM2);(U$(1),1);pM320.8((U$(2),5))2zM3);(U$(2),1): ROUTINE FOR ELONGATIONS2220:1290: GET DATEFL01480:(0)"O"I02"U$(I)"999")I1K0<I02SZ$(I)"999"ī2080^JI2uZ$(J)"999"ī2040(Z$(J))(Z$(I))IJ:2040JU$(K)Z$(I):Z$(I)"999" KK1I1 I*4"VISUAL CONFIG. RELATIVE TO SUN"E(ZV))0VP(VDDEVQ)29: CALC ANG DIST FROM SUNXDVV((VP(VPVD))(DEVQ))jNVW2ACO(VV)X(VZ)P1VZ0VZVZP2b(VZ)P1VZ0VZVZP2lVZ0VWVWv SHOW SUN AND PLANETSZ$(0)MW$"M":Z$(1)VW$"V"Z$(2)720 VC.013195(VA2.28638)-VAVAVCAVAP2VAVAP2ZVA0VAVAP2:1760|VD.7233.00506(VA3.85017)ZVAEVAVZZV(ZV)P1ZV0ZVZVP2(ZV)P1ZV0ZVZVP2 CALC DIST FROM EARTH&VQ(VD2DE22VDD0MAMAP2:1620-^MC.388301(MA1.34041):hMAMAMCNrMAP2MAMAP2g|MA0MAMAP2:1660MD.3871.079744(MA2.73514) CALC VENUS'S POSITIONVANI.0279623.02812VAP2VA((VAP2)(VAP2))P2VA0VAVAP2:1((Y1)4)((.75)((Y1)1001))-1560I CALC FOR MAR THRU DEC|DGDG(M.42.3)(Y4)((.75)((Y100)1))NIDG715875",4206 CALC MERCURY'S POSITION@MANI.0714253.8494JMAP2MA((MAP2)(MAP2))P2TMA;D$:D(D$)5D0D31ĺ"INVALID RESPONSE"::1410_M2D29ĺ"INVALID RESPONSE"::1410e~ STORE INITIAL DATEYIY:MIM:DID CALC DAYS FROM EPOCHDG365YD((M1)31)M3ī1540 CALC FOR JAN OR FEB#DGDG"INVALID RESPONSE"::1320-<Y1800ī1390RF" ";Y;" THE CORRECT YEAR? ":A$dPA$"Y"ī1390ZA$"N"ĺ"INVALID RESPONSE"::1350dA$"N"ī1320n:" THE MONTH ";M$:M(M$)xM0M12ĺ"INVALID RESPONSE"::1390 :" THE DAY " SUN#MV((MP(MPMD))(DEMQ))5MW2ACO(MV)Q(ZM)P1ZM0ZMZMP2m(ZM)P1ZM0ZMZMP2~ZM0MWMW1690: CALC VENUS'S POSITION  ENTER DATE:"ENTER THE DATE":(" THE YEAR ";Y$:Y(Y$)2Y0:1110"`DE1.017(AE3.33926)Fj1590: CALC MERCURY'S POSITIONStMZAEMA]~ZMMZy(MZ)P1MZ0MZMZP2(MZ)P1MZ0MZMZP2 CALC DIST FROM EARTHMQ(MD2DE22MDDE(MZ))MP(MDDEMQ)2 CALC ANG DIST. FROM1480: CALC DAYS FROM EPOCH: CALC DIST. FROM EARTHX AND ANG. DIST. FROM SUNrAENI.0172021.74022$AEP2AE((AEP2)(AEP2))P2.AE0AEAEP2:10708CE.032044(AE1.78547)BAEAECELAEP2AEAEP2VAE0AEAEP2 p5);PH;" DEG. ILLUMINATED"&z01920:2100@`:"WANT ANOTHER DATE? ";A$sA$"N"ė:980A$"Y"ĺ"INVALID RESPONSE"::930:::320"RUN ASTRO" FIND ANGULAR DIAM:::1290: ENTER DATE ";VD$;" ARCSEC"D " (AT INFER. CONJ. DIAM. IS 61 ARCSEC)"Jc PH(MW)(MZ):2520t*E$"2"ī8604"MERCURY'S PHASE IS ";PH$>5)PH;" DEG. ILLUMINATED"HRE$"1"ī890\PH(VW)(ZV):2520f"PHASE OF VENUS IS ";PH$US FROM SUN IS ";VW$;!" DEG"ZE$"3"(SD$)3Ą"PRESS RETURN TO CONTINUE ";A$::kE$"2"ī760"ANG. DIAM. OF MERCURY IS ";MD$;" ARCSEC"" (AT INFER.CONJ. DIAM. IS 12 ARCSEC)"E$"1"ī790"ANG. DIAM. OF VENUS ISVQ92.9),5));" MILLION MILES"#D?NMW$((MW57.29578),4)[XVW$((VW57.29578),4)lbE$"2"ī670l"MERCURY ANG.DIST. FROM SUN IS ";MW$;v" DEG"27102)"(LOCATED ";AP$;" FOR VIEWING)"E$"1"ĺ:700"ANG. DIST. OF VEN------------------------":. MQ$((MQ),4)A VQ$((VQ),4)R E$"2"ī560} "DISTANCE OF MERCURY IS ";MQ$;" A.U." 15)"OR ";(((MQ92.9),5));" MILLION MILES" &E$"1"ī580 0"DISTANCE OF VENUS IS ";VQ$;" A.U.":15)"OR ";(((DISPLAY? Y/N ";FL$$ |FL$"N"F91, :K "HOW MANY INTERVALS? ";NSU 2200x 990: GET DISTANCE FROM EARTH :: 450:930 :: MD$((6.68MQ),5) VD$((16.82VQ),5) "FOR YEAR ";Y;" MONTH ";M;" DAY ";D: "---AN THEN ASK TO SEE DATA ABOUT"H 5)"EITHER OR BOTH PLANETS, SUCH AS"s "5)"DISTANCE, APPARENT SIZE,& PHASE."} ,:: 6"TO CONTINUE PRESS RETURN ";A$ @FL0 J::: TF90:NT1 ^"SELECT INTERVAL (DAYS) ";ND h:: r"SCROLLED :160 ::: ::F 5)"THIS PROGRAM PLOTS THE POSITIONS"n 5)"OF MERCURY AND VENUS RELATIVE" 5)"TO THE SUN AT INTERVALS CHOSEN BY" 5)"YOU IN UNITS OF DAYS FOR AS MANY" 5)"INTERVALS AS YOU REQUEST." : 5)"YOU C10)"BY ERIC BURGESS F.R.A.S."::F n11)"ALL RIGHTS RESERVED BY"h x11)"S $ T SOFTWARE SERVICE"p : 13)"JAN. 82 VERSION":: 5)""; "DO YOU WANT INSTRUCTIONS? Y/N ";A$ A$"N"ė::::320 A$"Y"ĺ"INVALID RESPONSE":j -ACO(X)(X(XX1))1.570793GP13.14159:P26.28318O(:z25)"--------------------------------"<5)"I MERCURY AND VENUS I"F5)"--------------------------------"P:Z11)"AN ASTRONOMY PROGRAM"::$ d                 n9)"S & T SOFTWARE SERVICE"& x:U 3)"THIS PROGRAM PROVIDES PARTICULARS OF" 3)"ANNUAL METEOR SHOWERS FOR ANY MONTH" K13000:K :: "SELECT MONTH (1 THRU 12) ";M M1M12ĺ"INVALID RESPONSE"::170 :: Mh ::76)"---------------------------"](6)"I M E T E O R S I"26)"---------------------------"<::F10)"AN ASTRONOMY PROGRAM"P:9)"BY ERIC BURGESS F.R.A.S."Z::d9)"ALL RIGHTS RESERVED BY"                 B FOR PHASES"#J PH180PH57.2958B#T PH150PH$"THIN CRESCENT"h#^ PH120PH151PH$"FAT CRESCENT"#h PH70PH121PH$"NEAR HALF"#r PH29PH71PH$"GIBBOUS"#| PH21PH$"NEAR FULL"# PH(180PH)# )(V2) " CK.05CK.052850;" (VS)45DD10:2800Y" CK.1CK.1DD1:2800p" D30MM1:DD30" M12M1:YY1" V2VS:FL1" 1340" 2640"" :::", "NEXT ELONGATION OF VENUS IS ";Y;" ";M;" ";D"6 MWVW::2430 #@ SU%!Z 930: CALC FOR EARTH AND PLANETS+!d B!n MW$(MW57.29578)H!x ^! YI;" ";MI;" ";DIl! ::::! VW$(VW57.29578):1790:2030! :::! "V= VENUS, M = MERCURY, S = SUN"! VSVW57.29578! FL0(VS)40DD20:2800" CK(VS2620 E$"1"A$"Y"ī2170G A$"N"ĺ"INVALID RESPONSE"::2530O :z  "DO YOU WANT ANOTHER PLANET Y/N? ";A$  A$"Y"ī2110 ( A$"N"ĺ"INVALID RESPONSE"::2580 2 880 < :1200: GET DATE F FL0 P 1360: CALC DAYS FROM EPOCH50( P$"WEST OF SUN (A MORNING STAR)"E "AND THE PLANET IS...."K W 5);P$a 1980 "DO YOU WANT MORE DETAILS Y/N? ";A$ A$"N"ė::2530 A$"Y"ė::440 :1980: "DO YOU WANT ANOTHER DATE Y/N? ";A$ E$"2"A$"Y"2400 (DS)18DD4:2350<$ CK.1CK.1DD1:2350S. D30MM1:DD30g8 M12M1:YY1vB D2DS:FL1L 1340V 2190` :::j "NEXT ELONGATION OF MERCURY ";Y;" ";M;" ";Dt :~ MW0P$"EAST OF SUN (AN EVENING STAR)":24D PLANETS VW$(VW57.29578)&,BYI;" ";MI;" ";DIP::::sMW$(MW57.29578):1790:2030:::"M = MERCURY, V = VENUS, O = SUN"DSMW57.29578FL0(DS)15DD7:2350 CK(DS)(D2) CK.06CK.06M3);(E$(2),1)*:4<>: ROUTINE FOR ELONGATIONSFH::aR"SELECT MERCURY (1)"\" OR VENUS (2) ";E$fE$"1"İ2170:2430p2620z:1200: GET DATEFL01360: CALC DAYS FROM EPOCH 930: CALC FOR EARTH ANS RETURN";A$C"VISUAL CONFIGURATION ON ";YI;" ";MI;" ";DIIp"V = VENUS; M = MERCURY; 0 = SUN"vM120.8((E$(0),5))2M1);(E$(0),1);M220.8((E$(1),5))2 M2);(E$(1),1);M320.8((E$(2),5))2 $(2)(0)""I02'&E$(I)"XXX".0I6:K0ADI02WNZ$(I)"XXX"1950bXJI2xbZ$(J)"XXX"1910l(Z$(J))(Z$(I))IJ:1910vJE$(K)Z$(I):Z$(I)"XXX"KK1I1I "FOR VISUAL CONFIGURATION PRESTH IN AU*VQ(VD2DE22VDDE(ZV))>VP(VDDEVQ)2` CALC ANG. DISTANCE FROM SUNVV((VP(VPVD))(DEVQ))VW2ACO(VV)(VZ)P1VZVZP2VZ0VWVW SHOW SUN AND PLANETSZ$(0)MW$"M":Z$(1)VW$"V" ZP2@VA0VAVAP2:16008JVC.013195(VA2.28638)ETVAVAVCY^VAP2VAVAP2rhVA0VAVAP2:1640rVD.7233.00506(VA3.85017)|ZVAEVAVZZV(ZV)P1ZV0ZVZVP2(ZV)P1ZV0ZVZVP2 CALC DISTANCE FROM EAR2)(MAP2))P2(MA0MAMAP2:1500EMC.388301(MA1.34041)RMAMAMCfMAP2MAMAP2MA0MAMAP2:1540MD.3871.079744(MA2.73514)" CALC VENUS'S POSITION,VANI.0279623.028126VAP2VA((VAP2)(VAP2)) IF JAN OR FEB;xDGDG((Y1)4)((.75)((Y1)1001))E1440a CALC FOR MAR THRU DECDGDG(M.42.3)(Y4)((.75)((Y100)1))NIDG715875410 CALC MERCURY'S POSITIONMANI.0714253.8494MAP2MA((MAP:"THE DAY ";D$:D(D$)GD0D31ĺ"INVALID RESPONSE"::1300q(M2M29ĺ"INVALID RESPONSE"::13002 STORE INITIAL DATE AND TIME<YIY:MIM:DIDFP CALC DAYS FROM EPOCH 1960ZDG365YD((M1)31)dM31420n CALCYEAR ";Y$:Y(Y$)6Y0ĺ"INVALID RESPONSE";:1210GY18001280l"IS ";Y;" THE CORRECT YEAR":A$}A$"Y"1280A$"N"ĺ"INVALID RESPONSE"::1240A$"N"1210:"THE MONTH ";M$:M(M$) M0M12ĺ"INVALID RESPONSE"::1280"BMQ(MD2DE22MDDE(MZ))6LMP(MDDEMQ)2XV CALC ANG. DISTANCE FROM SUNw`MV((MP(MPMD))(DEMQ))jMW2ACO(MV)t(ZM)P1ZMZMP2~ZM0MWMW1570 ENTER DATE::"ENTER THE DATE ":"THE 0AEAEP2:970,CE.032044(AE1.78547)9AEAECEMAEP2AEAEP2fAE0AEAEP2:1010DE1.017(AE3.33926)1470MZAEMAZMMZ$(MZ)P1MZ0MZMZP2.(MZ)P1MZ0MZMZP28 CALC DISTANCE FROM EARTH IN AUONSE"::840f::::410/p"RUN ASTRO"Oz ROUTINE FOR ANG. DIAMETER[:::r1180: ENTER DATE|1360 CALC DIST. FROM EARTH AND ANG. DISTANCE FROM SUNAENI.0172021.74022AEP2AE((AEP2)(AEP2))P2AE$;" ";PH;" DEG ILLUM"&E$"1"ī820?PH(VW)(ZV):2880p"PHASE OF VENUS ";PH$;" ";PH;" DEG ILLUM"v :E$"2"820 1790*19704:>B$"2"ıH"WANT ANOTHER DATE Y/N ? ";A$RA$"N"ė:880 \A$"Y"ĺ"INVALID RESPERCURY'S ANG. DIAMETER ";MD$;" ARCSEC"L" MAX AT INFER. CONJ. IS 12 SEC"]E$"1"ī710c"VENUS'S ANG. DIAMETER ";VD$;" ARCSEC"" MAX AT INFER. CONJ. IS 61 SEC"PH(MW)(MZ):2880E$"2"ī760"MERCURY'S PHASE ";PHVQ92.9),5));" MILLION MI" 0<:MW$((MW57.29578),4)XDVW$((VW57.29578),4)iNE$"2"ī620X"MERCURY'S ANG. DIST. FROM SUN ";MW$;" DEG."bE$"1"ĺ:640l"VENUS'S ANGULAR DIST. FROM SUN ";VW$;" DEG."vE$"2"ī690&"M$ "---------------------------":7 MQ$((MQ),4)J VQ$((VQ),4)[ E$"2"ī540 "DISTANCE OF MERCURY ";MQ$;" A.U." 10)"OR ";(((MQ92.9),5));" MILLION MI" E$"1"ī560 "DISTANCE OF VENUS ";VQ$;" A.U."&10)"OR ";(((" 2) NEXT ELONGATION"& r:B$6 |B$"1"410^ B$"2"ĺ"INVALID RESPONSE"::340h 2110 890: GET DISTANCE FROM EARTH :: 440:820 MD$((6.68MQ),5) VD$((16.82VQ),5) "FOR YEAR ";Y;" MONTH ";M;" DAY ";D:" DIAMETER AND PHASE FOR ANY DATE"- T "" 2) PROVIDES DATE OF THE NEXT" ," ELONGATION OF MERCURY OR VENUS" 6" AFTER ANY DATE" @: J"TO CONTINUE PRESS RETURN ";A$ T::: ^"SELECT 1) ANGULAR DISTANCES" hOGRAM OFFERS TWO ALTERNATIVES"& :R " 1) CALCULATES APPROXIMATE ANGULAR"~ " DISTANCES OF MERCURY AND VENUS" " FROM THE SUN, AND APPROXIMATE" " DISTANCES FROM EARTH, AND" " PROVIDES APPROXIMATE ANGULAR"' " n9)"BY ERIC BURGESS F.R.A.S."* x:K 9)"ALL RIGHTS RESERVED BY"l 9)"S & T SOFTWARE SERVICE"v :: "DO YOU WANT INSTRUCTIONS Y/N? ";A$ A$"N"ė::::350 A$"Y"ĺ"INVALID RESPONSE:PRINT:GOTO140 ::: "THIS PR" INNER PLANETS' ELONGATIONSIACO(X)(X(XX1))1.5707963cP13.14159:P26.28318o(:::210)"AN ASTRONOMY PROGRAM"<:F10)"--------------------"P10)"I INNER PLANETS I"Z10)"--------------------"d:          (X R(I)RM:V(I)DM%(b P$(I)"MOON"/(l 24809(v 1560K( "RUN ASTRO"301::NSNS1:1180#PZ0:PD02XP1:MM1?NS:970DEG(L(I))XDEG(X)"PRESS RETURN TO RETURN TO MENU"+A$380"RUN PLNTF"p"RUN JSATS"D"GENERAL AND TUTORIAL PROGRAMS"r"ARE ON DISKETTE (OR SIDE) NUMBER TWO":"TO RUN THESE PROGRAMS YOU MUST""REBOOT TO""LOAD NUMBER 2 DISKETTE (OR SIDE) ONTO"" YOUR COMPUTER"::#S"$5)"10) RETURN TO MAIN MENU"6P$:P(P$):N P1P10ĺIE$:650|P800,810,820,830,840,850,860,870,880,90 "RUN RADEC"*"RUN MARSP"4"RUN MVENC">"RUN MERVE"H"RUN PRISE"R"RUN RISES"\"RUN SKYSET" f5)"4) MERCURY AND VENUS CONFIGURATIONS"T5)"5) MERCURY AND VENUS RISE AND SET"5)"6) PLANETS/SUN/MOON RISE AND SET"5)"7) HORIZON PLOTS - STARS, MOON, SUN, PLANETS"5)"8) PLANET/SUN/MOON FINDER"5)"9) JUPITER'S SATELLITEY1)5 \fX21p(D$(4)?"ENTER RUN ASTRO"X"TO RETURN TO MENU"Y4.56X-6"APERTURE IN INCHES MUST BE ";Y7@1560\J:"APERTURE TO RESOLVING POWER"uT"TO STOP ENTER 999"^:"APERTURE IN INCHES ";XhX999110rY4.56X|"RESOLVING POWER IN ARC SECS. IS ";Y1630"DEC.HRS. ";XX999110'Y(X):Y160(X(X))OY260(Y1(Y1)){"HRS.MIN.SEC.= ";Y;" ";(Y1);" ";(Y2)1470:"RESOLVING POWER TO APERTURE""TO STOP ENTER 999":"RESOLVING POWER SEC. OF ARC ";X"X999110,p270,77:269,76:268,765z267,77:271,76:272,76A273,77GA138,78:139,79:137,777 136,76:140,80:139,81S138,81:137,81:136,80o 138,75:137,75:139,75*140,76:139,75:140,764J15025010>J,78J5,78HJR(138EX),(78EY)\(138MX),(78MY)f269,76:270,79:270,78 "YI;" ";MI;" ";DI:"IN THE CONSTELLATION OF ";C$@o"FOR FURTHER DETAILS PRESS RETURN KEY";Q$YYI:MMI:DDI:320 SUB TO PLOT PLANETSAD50:DM75EYAD(AE)EX1.5AD(AE)MYDM(MA)MX1.5DM(MA)0R12R14C$"VIRGO":1900>:R14R16C$"LIBRA":1900`DR16R18C$"SCORPIO":1900NR18R20C$"SAGITTARIUS":1900XR20R22C$"CAPRICORNUS":1900bR22R24C$"AQUARIUS"lv"NEXT OPPOSITION OF MARS IS"" R24RR24:1750/R24RR24:1760ER0RR24:1770dR0R2C$"PISCES":1900R2R4C$"ARIES":1900R4R6C$"TAURUS":1900R6R8C$"GEMINI":1900R8R10C$"CANCER":1900&R10R12C$"LEO":1900(LY1M2D29)M3:DD29:1640Fr(LY0M2D28)M3:DD28:1650V|D31ī1690(M4M6M9M11)MM1:DD30:1690D31MM1:DD311390 COMPUTE RA FOR YI,MI,DIZ0RAEP1WZ0RAEP1WR57.29578R15z!#?   ֠!ҠΠϠ  Š Š Ӡ"Ԡ-Ԡ  Ơ> Ӡ Ҡ ͠Р Š à"РàϠҠҠӠ٠ŠȠ ,.23911,5.2028,.249374,1.76188,.01972,1.74533:j SATURNt .000584,4.89884,.105558,1.61094,9.5385,.534156,3.1257,.043633,1.977458~ URANUS.000205,2.46615,.088593,2.96706,19.182,.901554,4.49084,.01396,1.28805 NEPTUNE7.000104,3.7855,2.28638,.7233,.00506,3.85017,.059341,1.33168D. EARTH (FOR SUN)|8.017202,1.74022,.032044,1.78547,1,.017,3.33926,0,0B MARSL.009146,4.51234,.175301,5.85209,1.5237,.141704,1.04656,.03142,.868702V JUPITER-` .001450,4.53364, .090478 PLANETARY INPUT IF NEW DATE,FL1ī1230<F81ī1250LF61ī1250RfYP08:XP08uPD(YP,XP)XP,YP MERCURY.071422,3.8484,.388301,1.34041,.3871,.07974,2.73514,.122173,.836013 VENUS.$ .027962,3.02812,.013191)1001))\8900f CALC FOR MAR THRU DECcpDCDC(M.42.3)(Y4)((.75)((Y100)1))tzNIDC715875F91930 JUMPS PLANETARY INPUTS IF NEW INTERVALF91ī1490 INPUT PLANETARY DATA, ORBITAL PARAMETERS JUMPS$):IN0ĺ"INVALID RESPONSE"::750B SETS INTERVAL COUNT AT 1K NC1Y800:920  CALC DAYS FROM 1960,1,1 EPOCH TO DATE*::"PLEASE WAIT"4DC365YD((M1)31)>M3870H CALC FOR JAN OR FEB RDCDC((Y1)4)((.75)((YNVALID RESPONSE"::610:D"SELECT INTERVALS AND HOW MANY"r5)"ENTER 1'S IF YOU NEED ONE PLOT ONLY"z:"WHAT IS THE INTERVAL (DAYS) ";TI$:TI(TI$):TI0ĺ"INVALID RESPONSE"::730"HOW MANY INTERVALS ";IN$:#IN(INMD$:M(MD$)5XM0M12ĺ"INVALID RESPONSE"::590Ib:" THE DAY "kl"(USE DECIMAL FOR HRS) ";DD$xvD(DD$) STORES INITIAL DATE IN D2,M2,Y2F91ī670D2(DD$):Y2Y:M2MD0D31ĺ"INVALID RESPONSE"::610M2D29ĺ"ITE":% " THE YEAR ";YD$:Y(YD$)I Y0ĺ"INVALID RESPONSE"::500Z Y1800ī590 "IS ";Y;" THE CORRECT YEAR? "; Y$ &PS10F81İ7210 0Y$"Y"ī590 :Y$"N"ĺ"INVALID RESPONSE"::530 DY$"N"ĺ:500 N:" THE MONTH "; PLANET, SUN,"9 "OR MOON IS GIVEN BEFORE THE MONITOR"a "DISPLAYS THE ZODIACAL STAR CHART"g  "THE DOTTED LINE ACROSS THE MIDDLE" "OF EACH CHART IS THE ECLIPTIC" :: "PRESS RETURN TO CONTINUE ";A$ :: "ENTER THE DA J"IN THE SAME CHART WILL BE DISPLAYED"/ TY ^"YOU CAN ALSO PLOT THE POSITIONS OF" h"A PLANET FOR A SERIES OF INTERVALS" r |"BECAUSE OF THE LIMITATIONS OF SCREEN" "RESOLUTION, THE RIGHT ASCENSION AND" "DECLINATION OF THE CHOSEN"Y"ĺ:"INVALID RESPONSE:GOT0190* ::V "THIS PROGRAM PLACES A PLANET, OR THE" "SUN, OR THE MOON AMONG THE ZODIACAL" ""CONSTELLATIONS FOR ANY DATE." , 6"ANSWER THE PROMPT 'OTHERS?' WITH 'Y'" @"AND OTHER PLANETS, SUN, OR MOON")---------------" 9 5)"BY ERIC BURGESS F.R.A.S."A :b 5)"ALL RIGHTS RESERVED BY" 5)"S & T SOFTWARE SERVICE" 8)"(VERSION 4.82)" K13000:K :: "DO YOU WANT INSTRUCTIONS? Y/N ";A$ A$"N"480 A$< PD(9,9)"(:I2ACO(X)(X(XX1))1.5707963d<RAD(X).01745328(X)~FDEG(X)57.29578(X)P::Z8)"ASTRONOMY PROGRAM"dn5)"-----------------------"x5)"I PLANET FINDER I" 5)"--------      u GREETING-1 PROGRAMF "SLAVE DISKETTE CREATED ON 32K SYSTEM"["17 APRIL 1982"m"RUN ASTRO"s( R" THE YEAR ";Y," THE MONTH ";MC" THE DAY ";DOQM:ED_HY1ī2080qY1752ī2080}::: "YEAR MUST BE AFTER 1752"1950 600*HY1ı4:::>10HY;", ";M;", ";ER\"......IS A ";J$W121150&2230!0':1D::DNJ$(1)"SUNDAY"WXJ$(2)"MONDAY"kbJ$(3)"TUESDAY"lJ$(4)"WEDNESDAY"vJ$(5)"THURSDAY"J$(6)"FRIDAY"J$(7)"SATURDAY"HY1ī2020:::::"ENTER DATE":::+r"WANT TO RETURN TO MENU? Y/N ";A$1|DA$"Y"Ľ:120VA$"N"1650`1820nW11020|W21030W31060W41070W51080W61090W71100W81110W91120W101130W111140 ī1550H1WNī15200LY1N2D2D21?D20ĺD2;M26G);TGiD2M(N)Xī1560pCzDDGH1WNī1600":,"PRESS RETURN TO CONTINUE ";A$61630@NJH1WNī1630TI16:;:I^:h:(10)4(:" S M T W T F S":2O<I140:"-";:IZFC16iPNW1380oZdH1WNī1400n2)xG17DD1N2LY1H1ī1440N1LY1ī1460D2DS1470D2D(S1)D2M(N)X"-";:I" ";$H1WN12904LY1ī1220E365S;" -";O1290fLY1H1W21280zM(N)28ī1260335;" -";1290366S;" -";1290366S1;" -";  PRINT HEADING OF DAYS OF WEEKH1WNī1350WN1180!"FEBRUARY";:11605$"MARCH";:1160I."APRIL";:1160[8"MAY";:1160nB"JUNE";:1160L"JULY";:1160V"AUGUST";:1160`"SEPTEMBER";:1160j"OCTOBER";:1160t"NOVEMBER";:1160~"DECEMBER";:1160I110:910f::!p"- ";S1;7);4zH1WNī320=980G::X"- ";S;7);a980tH1WNī320~::"- ";31;7):SS1V0I110:"-";:IH117003001160"JANUARY";:1160LY1X1 H1,30,31::::%Q1:E1:600<"CALENDAR FOR ";YPF150001:FeN012:M(N):Nq N112::::(N1)W800 ::"PLEASE WAIT"*SSM(N1)4M(N)28840>LY1940HH1WNī320RLY1H1W2ī870\1:E1 D600 N710* XK(0.6(1Q))4 bLYKA lOQ12KM vPL100q Z1(P4):Z2(P):Z3((5L)4) Z4(13(O1)5) ZZ4Z3Z2Z1E1 ZZ(7(Z7))1 B$"H"ı D(Z1)  S0 0,31,28,31,30,31,30,31,31,30,31  "YEAR REQUIRED ";Y* :::: Y1752520` :"YEAR MUST BE AFTER 1752":470 Y4(Y4)0Y100(Y100)0LY1 Y400(Y400)0LY1 :"MONTH REQUIRED ";W W1W12ĺ"INVALID RESPONSE"::530 &H1 0730 :Q JH1WNī1180) T"FEBRUARY";:450< ^"MARCH";:450O h"APRIL";:450` r"MAY";:450r |"JUNE";:450 "JULY";:450 "AUGUST";:450 "SEPTEMBER";:450 "OCTOBER";:450 "NOVEMBER";:450 "DECEMBER";:450  ::YS (H)"$ :"TYPE C, D, OR H ";B$5 B$"D"1840F B$"H"2250k B$"C"ĺ"INVALID ENTRY"::230u ::~ 460 " SUB TO SELECT MONTH FOR PRINTING ,N310,320,350,360,370,380,390,400,410,420,430,440 6"JANUARY";:450 @LY1X1 x :: M(12)I "YOU CAN SELECT A CALENDAR FOR ANY MONTH"t "OR THE DAY OF THE WEEK FOR ANY DATE" "OR THE HOLIDAYS FOR ANY YEAR." :: :: "SELECT CALENDAR (C)" " DAY OF WEEK (D)" " OR HOLIDA  ::/10)"------------------"M(10)"I CALENDAR I"k210)"------------------"u<::F2)"A PERPETUAL CALENDAR, DAY-OF-WEEK,"P7)"AND HOLIDAY PROGRAM"Z:d5)"BY ERIC BURGESS F.R.A.S."nK150001:K          5)"MARS (M)......4"-d5)"JUPITER (J)...5"Gn5)"SATURN (S)....6"ax5)"URANUS (U)....7"{5)"NEPTUNE (N)...8"5)"PLUTO (P).....9"5)" 10...MOON ())10):"SELECT 1 THRU 10 ";PS$PS(PS$)PS0PS10FL0$ CALC DATA FOR PLANETS4F92ī1490IF81F80:1490O Y::{"WHICH PLANET, SUN, OR MOON"(" DO YOU WANT TO FIND?"2<5)"MERCURY (+)...1"F5)"VENUS (V).....2"P5)" 3...SUN (O)"Z56,.016965,.773181,30.06,.27054,2.33498,.031416,2.29162C PLUTO.000069,3.16948,.471239,3.91303,39.44,9.86,5.23114,.300197,1.91812I919:P$(I9):I9 MERCURY,VENUS,SUN,MARS,JUPITER,SATURN,URANUS,NEPTUNE,PLUTOF0F92ī12607M$"JUL.":"# M8M$"AUG.":7# M9M$"SEP.":M# M10M$"OCT.":c# M11M$"NOV.":y#M12M$"DEC.":#AN19B:D31"\ DE9DEDE9:34203"f DE0D31(DE)B"p DE0DDE["z Y1974Y1984DD7t" Y1994DD731:M4z" " M1M$"JAN.":" M2M$"FEB.":" M3M$"MAR.":" M4M$"APR.":" M5M$"MAY ":" M6M$"JUN.": # M19! A19(A(A))(! B((7A1)19)0! M0J! M(11A4.00001B)29W! XM(M)f! X1ī3330w! X1M29X! 3340! M0! Q(N4)! W(NQ31M)7! W7(W(W))!* W(W)!4 DE(25MW)!> DE0M4!H DE0M3"R DE0M326:M12 D 2020E N "BOXING DAY ";J$(Z);", ";30)"DEC.26"K X Q b x l "WANT TO RETURN TO MENU? Y/N ";A$ v A$"Y"Ľ:120 A$"N"ĺ"INVALID RESPONSE"::3180 2230 SUB TO CALC D AND M FOR EASTER SUNDAY NY1900! AN ";J$(Z);", ";30)"NOV.11"/ THANKSGIVINGA M11:ZW5:D1K 2020b ZZWDD1:3050m DD21 "THANKSGIVING THURSDAY, ";30)"NOV.";D CHRISTMAS D25:M12& 20200 "CHRISTMAS DAY ";J$(Z);", ";30)"DEC.25" : D ";30)"SEP.";D"r COLUMBUS DAY4| M10:ZW2:D1> 2020U ZZWDD1:2950_ DD7 "COLUMBUS DAY MONDAY, ";30)"OCT.";D DD9:D2DD7 "ELECTION DAY TUESDAY, ";30)"NOV.";D D11:M11:2020 "VETERAN'S DAY ZWDD1:2810 DD28) D31DD7X" "MEMORIAL DAY MONDAY, "30)"MAY ";Dj, D4:M7:20206 "INDEPENDENCE DAY ";J$(Z);", ";30)"JUL. 4"@ LABOR DAYJ M9:ZW2:D1T 2020^ ZZWDD1:2900h "LABOR DAY MONDAY,DAY FRIDAY, ";30)M$;DF' MMX1 3480] "EASTER SUNDAY SUNDAY, ";30)M$;Dp MOTHER'S DAY M5:ZW1:D1 2020 ZZWDD1:2760 DD7 "MOTHER'S DAY SUNDAY, ";30)"MAY ";D D1:M5:ZW2 2020 Z1DD29:M2:2610&( D1DD28:M202 3480^< "ASH WEDNESDAY WEDNESDAY,";30)M$;DqF D17:M3:2020P "ST.PATRICK'S DAY ";J$(Z);",";30)"MAR.17"Z EASTERd 3220n MXMx DFD2 DF1MM1:DFDF31 3480 "GOOD FRI MONDAY,"; 30)"FEB.";D2 VALENTINE'S DAYE D14:M2:2020k "VALENTINE'S DAY ";J$(Z);",";} 30)"FEB.14" ASH WEDNESDAY 3220 DD46 M4DD31:M3:2590 LY1M3DD29:M2:2590 M3DD28:M2 LY1DDAY.....";J$(Z);",";&8 30)"JAN. 1"?B LINCOLN'S BIRTHDAYLL M2:D12VV 2020|` "LINCOLN'S BIRTHDAY ";J$(Z);",";j 30)"FEB.12"t WASHINGTON'S BIRTHDAY~ M2:ZW2:D1 2020 ZZWDD1:2440 DD14  "WASHINGTON'S B'DAYROUTINES::3"YEAR REQUIRED ";Y$:Y(Y$)\Y4(Y4)0Y100(Y100)0LY1wY400(Y400)0LY1 GET DAY OF FIRST DAY OF YEARD1:M1:HY1:1870   "FOR YEAR ";Y;" THE HOLIDAYS ARE ..."$ . "NEW YEAR'S (Z) f::/p"WANT ANOTHER DATE? Y/N ";D$AzD$"Y"ī1950SD$"N"ī2200t"INVALID RESPONSE "::2160:"WANT TO RETURN TO MENU? Y/N ";C$C$"Y"Ľ:120C$"N"ĺ"INVALID RESPONSE"::2200"RUN ASTRO" HOLIDAY SELECT STAR CHART FOR DISPLAY(!` 24407!j F916580J!t (F71F51)ıT!~ 2720r! SELECT CHART AND ADJUST! HORIZONTAL PLOT! PDEDE! JUMPS CHART SELECTION IF SHOWING OTHER PLANETS! F91F51ī2610 " RA22RA23.99999RARA22:CHP77:2350, PS5P$"JUPITER":P74:2350M PS6P$"SATURN":P83:2350n  PS7P$"URANUS":P85:2350  PS8P$"NEPTUNE":P78:2350  PS9P$"PLUTO":P80:2350 $ PS10P$"MOON":P105:2350 . 8 B F91F512390 L PNP!V RT ";A$+ STORES RA FOR SELECTED PLANET;R3RA:DCDEK2250:2360p ASCII CODES FOR POKING PLANETS AS FLASHING SYMBOLSPS1P$"MERCURY":P107:2350PS2P$"VENUS":P86:2350PS3P$"SUN":P79:2350 PS4P$"MARS": RA AND DEC IF NEW INTERVAL*4F9122109>F922210AH:YRRA$(RA):DE$(DE)w\RA$(RA$,5):DE$(DE$,5)f"R.A. OF ";P$(PS);" IS ";RA$p"DECLINATION IS ";DE$z"PRESS RETURN TO DISPLAY PLANET,""SUN, OR MOON ON STAR CHAR24RR24:1990*R24RR24:2000@R0RR24:2010Z CALC DECLINATION, VZ0V(A(3)3.14159X)23.44194DEG(L(I))Z0V(A(3)3.14159X)23.44194DEG(L(I))XDEG(X) RAR(PS) DEV(PS)* JUMPS PRINTINGROM EARTH Q3Q(D(I)2D(3)22D(I)D(3)(Z))U CALC ANG. DIST. FROM SUN, XlPP(D(I)D(3)Q)2X2ACO((((PP(PPD(I)))(D(3)Q)))) CALC RIGHT ASCENSION, RZ0RDEG(A(3)3.14159X)15Z0RDEG(A(3)3.14159X)15,5)(APD(J,6))4& CALC DISTANCE FROM ECLIPTIC,LO0LPD(J,7)(APD(J,8))U:kD CALC Z,Q,X,R,VN CALC ANG. DIST. FROM SUN ZXZA(3)A(I)b(Z)3.14159Z0ZZ6.28318l(Z)3.14159Z0ZZ6.28318 v CALC DISTANCE OF PLANET FE,AANIPD(J,0)PD(J,1)PA6.28318A((A6.28318)(A6.28318))6.28318kA0AA6.28318:1760CPD(J,2)(APD(J,3))AACA6.28318AA6.28318A0AA6.28318:1800 CALC DIST OF PLANET FROM SUN DSDSPD(J,4)PD(J0!JQ(I)Q:X(I)X:R(I)R:V(I)V(TIC^I19:A(I)DEG(A(I))OhI3ĂIUr^|IPSuR(3)(A(3)180)15R(3)0R(3)R(3)24V(3)((RAD(A(3)180)))23.441942070 CALC A, DS, AND L AT DATE HELIOCENTRIC LONGITUDĺ"INVALID CHOICE"::14507 STORES SELECTION IN P2AP2PSRPS10İ7210ZI1} CALC. PLANETARY DATA AT DATE AND STORE IN ARRAYSJ08:1710A(I)A:D(I)DS:L(I)LII1:J"I19, SKIP EARTH6I3ĂI@186A$"Y"ī1201 A$"N"ĺ"INVALID REPLY":4907 I "RUN ASTRO"JMARCH 31":460& DE9DEDE9:400; DE0D31(DE)J DE0DDEc Y1974Y1984DD7 Y1994DD731:M$"APRIL" Y1943Y2038DD7 " ";M$;" ";D J200011: ::: 5)""; "DO YOU WANT ANOTHER YEAR ";A$ M) X1ī270! X1M29X* 2802 M0? Q(N4)R "W(NQ31M)7c ,W7(W(W))n 6W(W) @DE(25MW) J T:::: ^5)"EASTER SUNDAY IN ";Y;" IS..." h::15); rDE0M$"APRIL" |DE0M$"MARCH" DE0ĺ" nJ300011: x::::8 "YEAR REQUIRED ";Y$D Y(Y$)r Y1900Y2099ĺ"INVALID RESPONSE"::130 Y0ĺ"INVALID RESPONSE":130 NY1900 AN19 A19(A(A)) B((7A1)19) M0 M(11A4.00001B)29 XM(J :::;"THIS PROGRAM CALCULATES THE DATE"`("OF EASTER SUNDAY FOR ANY YEAR"2" BETWEEN 1900 AND 2099"<::F" BY ERIC BURGESS F.R.A.S."P::Z6)"ALL RIGHTS RESERVED BY"d6)"S & T SOFTWARE SERVICES"    T1(TCNDGC)(ZN24TC)>n CONVERSION TO NON MID TIME ZONEWxT2T2(.0656667LGC)pT20T2T224:1410T224T2T224:1420T2T2(T224TC)"-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-""DO YOU WANT MORE CALCULATIONS ";A$ 11T$"LMT"1370-  CONVERSION TO LSTRT2TCNDGC(((ZNT1)24)TC)T1y CONVERSION FOR NON MID TIME ZONE(T2T2(.0656667LGC)2T224T2T224:1330<T224T2T224:1340FT20T2T224PZ CONVERSION TO LMTdT2$;14)RR;"/";IM;"/";ES;=23);HB$;32)HR2;"/";MI2;"/";SE2JT1T1INlT124T1T124:NDND1:1200sK}1450 PARAMETERS FOR TIME CALCS GMST AT EPOCH 1979 MARCH 22GC11.927485 DAILY RATE OF CHANGE OF GMSTTC.0657) $1230(.(T2)24T2T224:1080G8H2(T2):M2((T2H2)100)hBS2((((T2H2)100)M2)100)LHR2(T2):MI2(T2(T2))60VSE2(MI2(MI2))60:SE2(SE2)`MI2(MI2):2050jHA$((T1),6)t:~HB$((T2),6):K;5);HA"-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-"W" ";U$;" ";T$" DEC HRS HR/MI/SE DEC HRS HR/MI/SE""-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-"K1NOH1(T1):M1((T1H1)100)S1((((T1H1)100)M1)100 EPOCH)EP722895:1950:DEDG:NDDEEPI CALC AND PRINT TIME TABLEk8)T$;" TIME(S) REQUESTED":zTC.065753"DATE "Y;" ";M;" ";D"LOCATION ";L$;" ZONE ";ZNLGC15"FOR LONGITUDE ";LO"INTERVAL FOR TIME CALCS ";IN;" HRS"-..... ";LO7 "DO YOU WANT TO CHANGE THEM ";A5$O*A5$"Y"FLG1:270Y4FLG0c>1650HT$"LST"U$"LMT":860RU$"LST"\1900f"SPECIFY NUMBER OF CALCULATIONS ";NOp:"AND TIME INTERVALS ";INz CALCS FOR DAYS FROMĺ"INVALID REPLY"::670 :L"WANT TO SEE LOCATION CONDITIONS? ";A$\A$"Y"750lA$"N"790"INVALID REPLY"::710"LOCATION CONDITIONS ARE..."" LOCATION NAME... ";L$" TIME ZONE....... ";ZN  " LONGITUDE..LY"::580XY1800650;b"IS ";Y;" THE CORRECT YEAR"ClY$SvY$"Y"650fY$"N"ĺ:570:"THE MONTH ";MD$:M(MD$)M0M12ĺ"INVALID REPLY"::650:"THE DAY ";DD$:D(DD$)D0D31ĺ"INVALID REPLY"::670M2D29:::::::::::::"5 "TO CONTINUE PRESS RETURN KEY";A$A :::p "DO YOU WANT TO CALCULATE LMT OR LST ";T$ :T$"LMT"570 &T$"LST"570 0"INVALID REPLY"::530 :"ENTER THE DATE ": D"THE YEAR ";YD$:Y(YD$) NY0ĺ"INVALID REP"AND YOU CAN REQUEST CALCULATIONS"J "FOR A NUMBER OF TIME INTERVALS":v "TIME MAY BE ENTERED AND DISPLAYED IN" "DECIMAL HOURS OR HRS. MIN. SEC" " USING 24 HOUR CLOCK": "TIME INTERVALS MUST BE IN DECIMAL HOURS" :":::::::::) J::: TZZN% ^FLG1820D hA$"":A1$"":A2$"":A3$""r r"PROGRAM COMPUTES LOCAL MEAN TIME (LMT)"x | " WHEN GIVEN LOCAL SIDEREAL TIME (LST)"  "OR LOCAL SIDEREAL TIME WHEN GIVEN" " LOCAL MEAN TIME" " )"TIME ZONE ";ZN) 10)"LONGITUDE ";LO/ a "DO YOU WANT TO CHANGE CONDITIONS (Y/N) ";A$q A$"N"330 A$"Y"ĺ"INVALID REPLY"::240 :: "LOCATION NAME ";L$ ""TIME ZONE ";ZN$ ,ZN(ZN$) 6"LONGITUDE ";LO$ @LO(LO$ :::6 SET INITIAL CONDITIONS ZN TIME ZONE^ - IF EAST OF GREENWICH L$ NAME OF YOUR LOCALITY LO IS LONGITUDE - IF EAST EXAMPLE IS FOR WEST COAST ZN8:L$"SEBASTOPOL":LO122.49 "INITIAL CONDITIONS SET FOR "L$ ::10  FLG0:::!::=(12)"TIME CONVERSIONS"C2a<10)"A COMPUTER PROGRAM"|F12)"FOR ASTRONOMERS"PZ8)"BY ERIC BURGESS F.R.A.S."dn8)"ALL RIGHTS RESERVED BY"x8)"S & T SOFTWARE SERVICE" J300011:          * CH75020** CH85170,*4 CH95280<*> CH105510L*H CH115720\*R CH125930u*\ PLOT OTHER PLANETS*f IN1F61:3520*p "OTHERS? Y/N ";A$*z A$"N"F61:3520* A$"Y"ī3440* A$"Y"F51* F60+ SUB TO PLOT OTHER PL A$"Y"ĺ"INVALID RESPONSE"::3200,) b) FL0:F10:F20:F30:F40:F50:F60:F70:F90:F80p) FX0:480) "RUN ASTRO") SELECT ZODIACAL CHART REGION) CH13660) CH23910) CH34160) CH44330) CH54580) CH64810";A$(D A$"N"ė:::3200E(N A$"Y"ĺ"INVALID RESPONSE"::3120(X PLP2:F90:FL0:F10:F20:F30:F40:F50:F60:F70:F80:FX0(b F92(l 480(v ( "WANT ANOTHER DATE, ANOTHER PLANET? Y/N "( :( "........ ";A$( A$"N"ė:3280&)990+' RESET Y,M,D TO ORIGINAL SELECTIONG' RA0:DE0:RA$"":DE$""Z' YY2:MM2:DD2m' F90:F80:F60' FL0:F10:F20:F30:F40:F50:F70:FX0' :::' 770' '& :::'0 "WANT ANOTHER DATE, SAME PLANET? Y/N "(: ::"........ 10CF984128CF:2890"&J SSCF(&T =&^ PRINT ECLIPTICC&h Q&r J1392b&| 12:J)"-";i& Jo& y& 3290& :::& "WANT ANOTHER PLANET, SAME DATE? Y/N "& ::"....... ";A$& A$"N"ī3100' A$"Y"ĺ"INVALID RESPONSE"::2LOW ECLIPTIC PLANE)% PS10CFHE:2820<% CFDEG(L(PS))V% CF(CF).49CFCF1c% CF(CF)% CF9CF8S0:OC$"OFF CHART":2910%" CF0CF4CF128CF:2890%, CF9CF3CF(CF128)984:2890%6 CF0CF5CF128CF:2890&@ CF4CF70$d RARA15.$n (RA(RA)).49RA1(RA)?$x PL(1.3RA)O$ F51ī2710Y$ PXPL_$ }$ IN EACH CHART POKE PL,P$ WHERE P IS NAME OF PLANET$ SUCH AS +,V,M,J,S,U,N,P,O,)$ $ S1487$ 2790$ 2930% SUB FOR ABOVE AND BE10:CH6:26405# RA8RA9.99999RARA8:CH5:2640]# RA6RA7.99999RARA6:CH4:2640# RA4RA5.99999RARA4:CH3:2640# RA2RA3.99999RARA2:CH2:2640#( CH1#2 F91İ6790#< F51İ6790#F F71ı#P F91İ6670$Z F51İ6612:26405" RA20RA21.99999RARA20:CH11:2640a" RA18RA19.99999RARA18:CH10:2640" RA16RA17.99999RARA16:CH9:2640" RA14RA15.99999RARA14:CH8:2640" RA12RA13.99999RARA12:CH7:2640 # RA10RA11.99999RARA))60 ES(ES):IM(IM)!* CALCS FOR MAR THRU DEC>DG365YD((M1)31)(M.42.3)eDGDG(Y4)((.75)((Y100)1))k SUB FOR PRINTING HR,MI,SE RR(T1)IM(T1(T1))60:ES(IM(IM))60 ES(ES):IM(IM)*F)IM(T1(T1))60:ES(IM(IMlLGC(ZN15)LO&vLGC0ī1930@ZNZN(LGC15):1940QZNZNLGC15W CALC GREGORIAN DAYS TO DATE REQUESTEDM32020 CALCS FOR JAN AND FEBDG365YDDGDG((M1)31)((Y1)4)((.75)((Y1)1001)):T1:/T123.9999ĺ:"INVALID ENTRY":17809::C1890d" WHAT IS THE INPUT TIME"&" HR,MIN,SEC (24-HR CLOCK)"0::" ";:HR,MI,SED::NHR23MI59SE59.99ĺ"INVALID ENTRY"::1850XT1HRMI60SE3600b)"'" OR IN HRS MIN SEC (2)"/:B10)" ";:PT$TPT(PT$)::dPT1ī1750tPT2ī1820"INVALID REPLY"::1650T$"LMT"T$"LST"" WHAT IS THE INPUT TIME"" HR.XXXX (24-HR CLOCK)":" ";T"T$"LST":15807"A$"Y"ĺ"INVALID REPLY"::1530C,:::i6"DO YOU WANT TO CHANGE DATE ";A$@A$"N"ZNZ:700JA$"Y"ĺ"INVALID REPLY"::1590T:ZNZ:570^h"RUN ASTRO"r:::|"DO YOU WANT INPUT IN DEC. HRS (1:::A$"N"ī1630AA$"Y"ĺ"INVALID REPLY"::1460}H1$"":M1$"":S1$"":HA$"":H2$"":M2$"":S2$"":HB$""T10:T20:::"DO YOU STILL WANT TO CALCULATE ";T$A$A$"N"T$"LST"T$"LMT":1580A$"N"T$"LM 414)"X"4 21"424)"*".4SPL,P84(7190L42 CHART 8 LIBRA[4<C$"LIBRA"e4F3700l4P6y4Z18)"*"4d114n22)"*"4x19416)"."4SPL,P471904 CHART 9 SCORPIO4C$"SCORPIO"437004558)".";1(10)3B14)".";19)"."#3L11?3V3)"*";28)".";36)"X"G3`14S3j7)"."[3t18h3~12)"."t3SPL,P~371903 CHART 7 VIRGO3C$"VIRGO"3370035314)"*";26)"*"39327)"*"311319)".";33)"*"414192p26)".";29)"*" 2z205212)".";23)"."=221J220)"."R222_222)"."k2SPL,Pu271902 CHART 6 LEO2C$"LEO"2370025220)"*";36)"*"26215)"."2723)".";37)"."2$82.7)"."3829)"."116126)"*"%1192123)".":122G111)"*"S1SPL,P]17190r1 CHART 5 CANCER1C$"CANCER"13700191 26)"."1101 25)"."1*14146)"*"1>151H19)"."1R181\18)"*";21)"*"2f21)"."022'010)".";22)"."30SPL,P=07190R0 CHART 4 GEMINIb0C$"GEMINI"l03700s0606)"*"070&9)"."0080:6)"."0D90N23)"*"0X110b15)"*"0l130v19)".";31)"*";33)"*"0141"." /18!/5)"*";16)". .")/21>/"24)"*";30)"*"J/,SPL,PT/67190i/@ CHART 3 TAURUSy/JC$"TAURUS"/T3700/^6/h11)"*"/r13/|9)"*";19)".";29)"."/14/30)"."/16/27)"X";29)":";32)"."/21 05)"*".((20):38)"."%.2SPL,P/.<7190D.F CHART 2 ARIESS.PC$"ARIES"].Z3700d.d5q.n33)"X"x.x6.37)"*".7.37)".".10.4)".::".10.15)".".15.36)".".16.27)".".19/33)2-P$;" IS IN ";C$;" ";W$&-3B-"ON ";Y2;" ";M2;" ";D2I-4b-(W$,3)"OFF"ī3790-"AS DISPLAYED ON CHART BELOW"-W$""--7:9)"."-7:37)"*"-10:23)"."-11:19)"."- 13:5)"."-15:9)".".19:,NC1:DD2:MM2:YY2-,PSP2:RAR3:DEDC<,$PPN:PLPX`,."PRESS RETURN TO CONTINUE ";A$f,8p,B2980,L CHART 1 PISCES,VC$"PISCES",`3700,j3810,tDEG(L(PS))10W$"OFF CHART BOTTOM",~DEG(L(PS))10W$"OFF CHART TOP"-ANETS+ CF0+ 61204+ CHECKS IF MORE CYCLESD+ NCIN3560U+ NCIN3590+ SUB TO INCREASE DATE BY INTERVAL AND REPEAT PROGRAM+ 6480+ F91ī3530+ RESETS F9 WHEN ALL CYCLES COMPLETED+ RESETS NC,D,M AND Y TO INITIAL VALUESDO YOU WANT ANOTHER DATE Y/N ";A$1 A$"Y"170Y A$"N"ĺ"INVALID RESPONSE"::500_ q "RUN ASTRO"Y D4365Y(Y4)* Y11999D4D42@ D515020(D4)D3J JDD5i Y4(Y4)OM13JDJD1{ JDJD2400000 JDJD((Y11900)100) Y11583JDJD(10((1583Y1)100)) Y11999JDJD3 "JULIAN DAY IS ";JD :::! "  "DAY ";D1 ::+ M2M11: M20DY0J M21DY31Z M22DY59j "M23DY90{ ,M24DY120 6M25DY151 @M26DY181 JM27DY212 TM28DY243 ^M29DY273 hM210DY304 rM211DY334 |D3D1DL RIGHTS RESERVED BY"6 x9)"S & T SOFTWARE SERVICE"@ ::o 3)"THIS PROGRAM PROVIDES THE JULIAN DAY" 5)"FOR A CALENDAR DATE 1100 TO 2200" K13000:K ::: "YEAR ";Y1 Y10Y1Y1100 YY11900 "MONTH ";M1r GREETING-1 PROGRAM *::P(5)"---------------------------"u25)"I JULIAN DAY I<5)"---------------------------"F::P10)"AN ASTRONOMY PROGRAM"Z:9)"BY ERIC BURGESS F.R.A.S."d:: n9)"AL    1.< GOES THROUGH PROG. AGAIN FOR NEW DATE7<820X< PLOT PLANET'S NEW POSITIONm<F71F70:6600y<SPL,P< POKE OTHER PLANETS ON NEW DATE<F616630<F90:6120< REPEATS IF MORE INTERVALS<F91< = ADJUST RA PLOT0:S1487;2790;SPL,P(;F41/; I9;PSP2B;PPNL;(7210\;2RAR3:DEDCp;<F40:F50:F1:;F INCREASE COUNTER BY ONE;PNCNC1;ZPSP2;dF91;nDDTI;x INCREMENTS DATE;D30DD30:MM1:6530<M12MM12:YYCH8R214:6300&:tCH9R216:6300=:~CH10R218:6300T:CH11R220:6300e:CH12R222:R(I)R2R(I)(R21.99999)ī6410: GET PLANET SYMBOL:2250:RAR(I):DEV(I): GET POKE FOR PLANET:2440:F71F70:6400 ;CFNETS 9PNP9I110'9PSI:F51V9 JUMPS R RANGE IF BEEN THROUGH TABLE ONCEe9F416300z9$CH1R20:63009.CH2R22:630098CH3R24:63009BCH4R26:63009LCH5R28:63009VCH6R210:63009`CH7R212:6300:j$"AQUARIUS"8>37008H598R7)".";14)".";33)"*"@8\6d8f5)".";11)".";25)"*";29)"*"l8p13y8z23)"."816818)".."817826)"."819826)"*"82082)"*"8SPL,P871909 SUB TO PLOT NEARBY PLA 7l37007v576)"*"#768720)".";30)"*"?78L730)"*"T713i713)".";18)"*"q71476)"*";8)"*"717713)".."718726)"."7197 20)".";25)"."7SPL,P7 71907* CHART 12 AQUARIUS 84C0 610629)"."6113618)".";21)".";614H630)"*"P615]622)"*"e616r624)"."z617624)"*";36)"*"6186&20)"*"60226:31)"*"6DSPL,P6N71906X CHART 11 CAPRICORNUS6bC$"CAPRICORNUS"3)"." 57!510)"*";18)"*")5106536)"*">513K537)"*"S514`529)"*"h5"15u5,27)"X"}56165@37)5J175T25)"*"5^215h21)"*"5rSPL,P5|71905 CHART 10 SAGITTARIUS5C$"SAGITTARIUS"6370 Y/N? ";A$-lA$"Y"LY0:Y0:D0:M0:170avA$"N"ĺ" INVALID RESPONSE"::610gy"RUN ASTRO""RUN ASTRO"12 D366D1:M1:YY1% ::L "CALENDAR DATE IS ";Y;" ";M;" ";D^ &Y1582ī600d 0 :"(NOTE: IN 1582 DATES BEFORE OCT 15" D"MUST BE DECREASED BY 10 DAYS" N"TO MATCH THE JULIAN CALENDAR)" X:: b"DO YOU WANT ANOTHER DATEDD304:430& D3650M12:DD334: LY1M2DD1I D1ī510i D1LY1M3D29:M2:510 D1LYOM3D28:M2:510 D1M1D31:M12:YY1:510 D1M2M4M6M9M11D31:MM1:510 D1D30:MM1 D365D31:M JD900M3:DD59:4308 TD1200M4:DD90:430V ^D1510M5:DD120:430t hD1810M6:DD151:430 rD2120M7:DD181:430 |D2430M8:DD212:430 D2730M9:DD243:430 D3040M10:DD273:430 D3340M11:365.25 Y1900(Y1)A Y4(Y4)0Y100(Y100)0LY1Y D365.25(Y1(Y1))n D(D).5DD1y D(D) LY0M3DD1 "DD((Y2000)100) ,Y1583DD(10((Y1500)100)) 6D310M1:DD:430 @D590M2:DD31:430 RIGHTS RESERVED BY"3 x9)"S&T SOFTWARE SERVICE"= ::l "THIS PROGRAM PROVIDES THE CALENDAR DATE" 2)"FOR A JULIAN DAY BETWEEN 1100-2000" K12000:K :::: "JULIAN DAY ";JD JDJD2400000 NDJD15018 Y1NDz  ::::E(5)"-------------------------------"o25)"I JULIAN DAY TO CALENDAR DATE I"<5)"--------------------------------"F::P10)"AN ASTRONOMY PROGRAM"Z:9)"BY ERIC BURGESS F.R.A.S."d:: n9)"ALL     ;" OFF CHART";A A23&A 34206A* POKE MOONIA4 LONG OF MOONpA>LZ311.1687:LP255.7433:LE178.699}AHNMNI.5ARPG.111404NMLPA\PG3600PGPG3600:7260AfPG360PGPG360:7270ApPG0PGPG360BzPG3600PGPG3600:72900RA11.99999ī7160@v6@RA12RA13.99999ī7160<@Y@RA14RA15.99999ī7160_@|@RA16RA17.99999ī7160@@RA18RA19.99999ī7160@@RA20RA21.99999ī7160@@RA22RA23.99999ī7160@@F71AP$(PS)H9ī7080?CH10ī7100+?CH11ī71205?7140W? REJECT OBJECTS NOT ON CHARTm?RA1.99999ī7160s??RA2RA3.9999ī7160?&?0RA4RA5.99999ī7160?:?DRA6RA7.99999ī7160?N?XRA8RA9.99999ī7160?b@lRA18RA9.99999RARA8:5>^RA6RA7.99999RARA6:T>hRA4RA5.99999RARA4:s>rRA2RA3.99999RARA2:y>|>CH1ī6920>CH2ī6940>CH3ī6960>CH4ī6980>CH5ī7000>CH6ī7020>CH7ī7040>CH8ī7060 ?C TO CHART+=RA22RA23.99999RARA22:M=RA20RA21.99999RARA20:o="RA18RA19.99999RARA18:=,RA16RA17.99999RARA16:=6RA14RA15.99999RARA14:=@RA12RA13.99999RARA12:=JRA10RA11.99999RARA10:>TRA ";A$A$"Y"ė:::480$:B"ANOTHER EPOCH? Y/N ";A$SA$"Y"ī250Yk"RUN ASTRO"M260(R2(R2))T20ME160(D2(D2)):8905pME60(D2(D2)):900BzME60MESME$((ME))hSE60(ME(ME))uSE(SE)SE$(SE)ED$(D4)","ME$","SE$" OR ....... ";ED$26)"HR,MI,SE":"ANOTHER CONVERSION? Y/N OR ... ";R4$' 26)"HR,MI,SE"/:Q D290D290(D2)((D2))q*D20DD(((D2),6)):8404D290DD90(D2(D2)):840>DD(((D2),5))H" DECLINATION IS ....... ";DD;" DEG"RD20D4(D2)1:870\D4(D2)fD215R224R2R224+R20R2R224@RC(((R2),5))k" RIGHT ASCENSION IS ... ";RC;" HRS"|R3$((R2))M260(R2(R2))M2$((M2))S260(M2(M2))S2(S2)S2$(S2)R4$R3$","M2$","S2$" DEC. AT EPOCH ";Y1;:" .. ";DC,MC,SCC &RA2R1RIMI60SI3600a 0DE4D1DCMC60SC3600n :R1R115v D: NW.0042T(X(Z(RAD(R1))(RAD(D1)))) XR2R1W bD2D1.00028TY(RAD(R1)) l: v" AT EPOCH ";Y2 :R2R DE(DE$)6 DE3DE4ĺ"INVALID RESPONSE"::440B :::P RA2510 "INPUT R.A. AT EPOCH ";Y1;" ";:".. ";R1:530 "INPUT R.A. AT EPOCH ";Y1;:" .. ";RI,MI,SI DE4540 :"INPUT DEC. AT EPOCH ";Y1;:" .. ";D1:550% "INPUThTY2Y1$ r"PICK MODE OF INPUT:", |:N " R.A. IN DECIMAL HRS (1)"u " OR IN HR,MI,SE (2) ";RA$ RA(RA$) RA0RA2ĺ"INVALID RESPONSE"::390 : " DEC. IN DECIMAL DEG. (3)" " OR IN DE,MI,SE (4) ";DE$ )"PRECESSION" J13000:J$ . ::T "WHAT IS FIRST EPOCH (YEAR) ";Y1Z z ""WHAT IS SECOND EPOCH ";Y2 ,T2((Y2Y1)21900)100 6X3.07234(.00186T2) @Y20.0468(.0085T2) JZY15 T:: ^ CALC DAYS BETWEEN EPOCHS ED BY"' 8)"S & T SOFTWARE SERVICE"- > J12000:JJ :::V :::v 9)"THIS PROGRAM COMPUTES" 5)"RIGHT ASCENSION AND DECLINATION" 4)"FOR AN EPOCH WHEN GIVEN RA AND DEC" 5)"FOR ANOTHER EPOCH, REDUCING FOR" 14  ::)RAD(X)X57.298783(::Q210)"------------------"o<10)"I EPOCH I"F10)"------------------"P:Z9)"AN ASTRONOMY PROGRAM"dn7)"BY ERIC BURGESS F.R.A.S."x: 8)"ALL RIGHTS RESERV     MDALDVAL0ALAL360/D`AL360ALAL360ODjHE5.1333(AL3.14159180)tDtDMHE23.1444(LMD3.14159180)D~R(10)RM:V(10)DMDP$(10)"MOON"DD2090:2470DRA0RA1.999997610D2090D"MOON OFF CHART"DLMD360:7390CRMLMD15%CRQRM?CRM24RMRM24:7420RCRM0RMRM24gCALLENM.052954CAL3600ALAL3600:7450C$AL360ALAL360:7460C.AL0ALAL360:7470C8AL3600ALAL3600:7480CBAL360ALAL360:7490DLALLBPG360PGPG360:73007BLMDLZ360NM27.32158EBPGLMDPG_BDR6.2886(RAD(PG))nBLMDLMDDRBLMD3600LMDLMD3600:7350BLMD360LMDLMD360:7360BLMD0LMDLMD360:7370BLMD3600LMDLMD3600:7380 CLMD360LMD0 CONVERT TO HR,MIN,SEC4INININ.00273043AHM(IN)VMI60(IN(IN))cM2(MI)io20)"OR ";HM;" HR ";M2;" MI"IN24ININ24 IN0ININ24"RUN ASTRO"STHA:INNUT:1280:1190:NUTIN5BNUT(((NUT),5))iL"NEXT UPPER TRANSIT WILL BE ";NUT;" HRS":1250sV::`"WANT ANOTHER ELONG. OR TRANSIT (Y/N)";A$jA$"Y"ė:::720t~"WANT ANOTHER DATE (Y/N)";A$A$"Y"300131110(EPMTQW:INEP:1280:1190:EPIN=EP(((EP),5))l"PREVIOUS EAST ELONGATION WAS ";EP;" HRS"|1250:1110NLTMTQL:INNLT:1280:1190:NLTINNLT(((NLT),5))$"NEXT LOWER TRANSIT WILL BE ";NLT;" HRS".1250:11108NU1250:11103WPMTQLQE:INWP:1280:1190:WPINHWP(((WP),5))w"PREVIOUS WEST ELONGATION WAS ";WP;" HRS"1250:1110ENMTQLQW:INEN:1280:1190:ENINEN(((EN),5))"NEXT EAST ELONGATION WILL BE ";EN;" HRS"1250:14S(S$)1>S0S6ĺ"INVALID RESPONSE"::710?H::::jR"ON ";Y;" ";M;" ";D1;" LONGITUDE ";LOp\fS880,920,960,1000,1040,1080pWNMTQW:INWN:1280:1190:WNINzWN(((WN),5))"NEXT WEST ELONGATION WILL BE ";WN;" HRS" :*4)"WEST ELONGATION NEXT (1)"M4)" PREVIOUS (2)"p4)"EAST ELONGATION NEXT (3)"4)" PREVIOUS (4)" 4)"LOWER TRANSIT NEXT (5)"4)"UPPER TRANSIT NEXT (6)" :*"SELECT BY NUMBER ";S$ TUDE lCF.065556LO360/ v GET HOUR ANGLE? GTGTGTCFR HA2.183333GTe HA0HAHA24  ADJUST FOR DAILY LOSS OF MEAN TIME MTHA QD5.98362:QE5.933333 QW5.933333:QL11.967222 :: :"WHICH ELONGATION OR TRANSIT" AT 0 HR OF EPOCH 1980,  ADJUST FOR YEAR9 GY1980M YC.01638889G` GST6.65422YC & ADJUST FOR DAILY GAIN OF SID TIME 0DGD.0657096 :GTGSTDG DGT24GTGT24 NGT0GTGT24 X:"LONGITUDE ";LO b ADJUST ST FOR LONGI"MONTH ";M ^D20$ hM2D2313 rM3D259B |M4D290R M5D2120b M6D2151r M7D2181 M8D2212 M9D2243 M10D2273 M11D2304 M12D2334 :"DAY ";D1 DD1D2 LY1M2DD1  GSTIN 10 MINUTES)" : 10)"FOR SETTING OR CHECKING":\ 12)"THE ALIGNMENT OF THE": 6)"EQUATORIAL MOUNT OF A TELESCOPE" :: ""PRESS RETURN WHEN READY";A$ ,::: 6"YEAR ";Y @Y4(Y4)0Y100(Y100)0LY1 J T)"S & T SOFTWARE SERVICE"! x:4 K300011:@ :::m 5)"THIS PROGRAM PROVIDES THE TIMES OF"s 10)"ELONGATIONS AND TRANSITS" 10)"OF POLARIS FOR ANY DATE" 10)"WITH SUFFICIENT ACCURACY"  13)"(WITH  PSTAR POSITIONS%::::E8)"---------------------"e(8)"I POLARIS I"28)"---------------------"<:F8)"AN ASTRONOMY PROGRAM"P7)"BY ERIC BURGESS F.R.A.S."Z:d8)"ALL RIGHTS RESERVED BY" n8     (RA$,4))F(DE$)9DE$(DE$,5):1370PP(DE$)10(DE$)10DE$(DE$,4)Z"LOCL TIME ";T1;" HR:YR ";YP;" MNTH ";MP;" DY ";DPd"UNIV TIME ";TU;" HR:YR ";Y2;" MNTH ";M2;" DY ";(D2)nx"RA OF MOON IS ";RA$;" DECLINATION IS ";DE$ 3600ALAL3600:12402AL360ALAL360:1250@ALLMDALTAL0ALAL360jAL360ALAL360 HE5.1454(AL3.14159180)DMHE23.1444(LMD3.14159180)(RA$(RM):DE$(DM)2RA$(RA$,5):DE$(DE$,5)<(RA$)10RA$LMDLMD360:11403~LMD3600LMDLMD3600:1150RLMD360LMDLMD360:1160`RMLMD15zRM24RMRM24:1180RM0RMRM24ALLENM.052954AL3600ALAL3600:1210AL360ALAL360:1220AL0ALAL360:1230ALG.111404NMLP,PG360PGPG360:1050@$PG0PGPG360\.PG360PGPG360:1070x8LMDLZ360NM27.321582BPGLMDPGLDR6.2886(.01745328PG)VLMDLMDDR`LMD3600LMDLMD3600:1120jLMD360LMDLMD360:1130tLMD0G((Y1)4)((.75)((Y1)1001))-970I CALC FOR MAR THRU DEC|DGDG(M.42.3)(Y4)((.75)((Y100)1))NMDG715875NMNM.5 FIND RA AND DEC OF MOON LONG OF MOONLZ311.1687LE178.699LP255.7433PIN0ĺ"INVALID RESPONSE"::810@H SETS INTERVAL COUNT AT 1IRNC1m\ CALC DAYS FROM EPOCH 1960,1,1{fNC1900p:z"INTERVALS OF ";TI;" DAYS FOR TIME ZONE ";TZDG365YDU((M1)31)M3950 CALC IF JAN OR FEB$DGDEED ONE PLOT ONLY"="UP TO THREE INTERVALS ARE DISPLAYED"_"ON SCREEN BEFORE SCROLLING"g:"WHAT IS THE TIME INTERVAL (DAYS) ";TI$ TI(TI$) TI0ĺ"INVALID RESPONSE"::770*"HOW MANY INTERVALS ";IN$:4IN(IN$)!>28)M3:DUDU28:670$DU31670P(M4M6M9M11)MM1:DUDU30:670m(DU)31MM1:DUDU31M13M1:YY1F91710T2TU:D2DU:Y2Y:M2MFL5ī860::"SELECT INTERVALS AND HOW MANY""ENTER 1'S IF YOU NM2D28ĺ"INVALID RESPONSE"::520:0:"TIME ZONE ";TZP::"TIME HRS ";T1rD STORE INITIAL DATE AND TIMENYPY:MPM:DPDXDUD:TUTZT1:TU24TUTU24:DUDU1bDUDUTU24l(LY1M2(DU)29)M3:DUDU29:670v(LY0M2(DU)(Y4)0Y100(Y100)0LY19 Y400(Y400)0LY1Z :"THE MONTH ";MD$:M(MD$) M0M12ĺ"INVALID RESPONSE"::500 :"THE DAY ";DD$:D(DD$) D0D31ĺ"INVALID RESPONSE"::520 M2D29ĺ"INVALID RESPONSE"::520#&LY1$ |:::% "ENTER THE DATE":C "THE YEAR ";YD$:Y(YD$)g Y0ĺ"INVALID RESPONSE"::400w Y1800480 "IS ";Y;" THE CORRECT YEAR?" Y$ Y$"Y"480 Y$"N"ĺ"INVALID RESPONSE"::430 Y$"N"ĺ:400 LY0 Y4ME INTERVALS IN DAYS AND THE"B 6"NUMBERS OF INTERVALS REQUIRED"J @:y J"THE PROGRAM WILL DISPLAY UNIVERSAL TIME" T"AND THE APPROXIMATE RA AND DECLINATION" ^"FOR EACH DAY AT THE SELECTED INTERVALS" h:: r"WHEN READY PRESS RETURN";AGRAM DISPLAYS THE APPROXIMATE"E "RIGHT ASCENSION AND DECLINATION"m "OF THE MOON FOR A REQUESTED DATE" 12)"AND TIME": "FOR A SERIES OF INTERVALS" : "ENTER YEAR, MONTH, DAY, TIME ZONE," "" AND LOCAL TIME" ,"ALSO TIS." n: xFL05 7)"ALL RIGHTS RESERVED BY"V 7)"S & T SOFTWARE SERVICE"\ t 10)"VERSION 4/82"~ :: "DO YOU WANT INSTRUCTIONS Y/N ";A$ A$"N"ė:::390 A$"Y"ĺ:"INVALID RESPONSE":180 ::: "THIS PRO GREETING-1 PROGRAM@ RA AND DEC OF MOON FOR ANY DATEZRAD(X).01745328(X)h(::::29)"ASTRONOMY PROGRAM":<9)"-----------------"F9)"I RADEM I"P9)"-----------------"Z d7)"BY ERIC BURGESS F.R.A.     173, CALC RADIAL DISTANCE FROM JUPITERZS15.906(RAD(AI3P3(P1203.405863)))S29.397(RAD(BI3P3(P1101.2916323)))S314.989(RAD(CI3P3(P150.23451687)))S426.364(RAD(DI3P3(P121.48798021)))FL1ī1370 2ZZ4~P2P2((RAD(2P1))50)((RAD(P1)).521)fP3((RAD(2I2)).1673)((RAD(I2))5.5372)sP2P2P3P1(28.07((RAD(P2))10.406))J((RAD(P2))P1)I357.2958((((RAD(J)))(1((RAD(J)))2)))I3I357.2958P1P1DI21.48798021176.35864,ZZD:22905DZZT ORBITAL MOTION IN PERIODl$ EARTH AND JUPITER.P1I.9856003358.4768ZZP1:2290BP1ZZLI2I.0830853225.328VZZI2:2290:I2ZZ`P2I.9025179221.647jZZP2:2290tPLC DAYS SINCE 1900 EPOCH7ITDYZ2(YZ4)694025.5a DEG/DAY*NUMBR DAYS + POSTN AT EPOCH|AI203.4058684.55061ZZA:2290AZZBI101.291632341.50155ZZB:2290BZZCI50.23451687109.97702ZZC:2290CZZ90*(M4M6M9M11)MM1:DA1:790@ DA31MM1:DA1TM13M1:YY1b FL1820v*YPY:MPM:DPDA4TUT24>YCY:MCM:DCDATHMC2870RYCY1\MCM12fTD(365.25YC)((MC1)30.6001)DCzYZ(YC100) CA :::1"PROGRAM RUNNING...PLEASE WAIT"9L1MYPY:MPM:DPDAZL1720gUTLTTZ CORRECT FOR DAY MONTH AND YR ENDSUT24UTUT24:DADA1(LY1M2DA30)M3:DA1:790(LY0M2DA29)M3:DA1:790DA317S.) ";LT$DLT(LT$)BNLT0LT24ĺ"INVALID RESPONSE"::570HXzb"HOW MANY DISPLAYS (1 TO 5)? ";ND$:ND(ND$)lND1ND5ĺ"INVALID RESPONSE"::610v"WHAT IS INTERVAL (UP TO 24 HR)? ";ININ0IN24ĺ"INVALID RESPONSE"::640D$:DA(D$)6 DA0DA31ĺ"INVALID RESPONSE"::490O LY1M2DA30ī550h LY0M2DA29ī550w M2ī550 "INVALID RESPONSE"::490 &:"TIME ZONE ";TZ$:TZ(TZ$) 0TZ12TZ12ĺ"INVALID RESPONSE"::550 ::"LOCAL TIME (DEC.HR LY0:"ENTER THE DATE"! :9 "YEAR ";Y$:Y(Y$)] Y0ĺ"INVALID RESPONSE"::410 Y4(Y4)0Y100(Y100)0LY1 Y400(Y400)0LY1  "MONTH ";M$ M(M$) M0M12ĺ"INVALID RESPONSE"::450  "DAY ";P TO FIVE DISPLAYS OF THEIR"H ,"CONFIGURATIONS AT UP TO 24 HRS APART"R 6::} @"DO YOU WANT SOUTH AT TOP (Y/N)? ";A$ JA$"Y"FL1:360 TA$"N"ĺ"INVALID RESPONSE"::320 ^FL0 hRAD(X)(X)3.14159180 r::: | ENTER DATES POSITIONED RELATIVE"@ 5)"TO JUPITER AT THEIR APPROXIMATE"^ 11)"RELATIVE POSITIONS"f : "YOU CAN CHOOSE TO HAVE THEM SHOWN WITH" "NORTH AT THE TOP, OR WITH SOUTH AT THE" "TOP AS SEEN IN A TELESCOPE, AND YOU" ""CAN SELECT U------" n:2 x7)"BY ERIC BURGESS F.R.A.S."8 R 12)"VERSION APR.82"X y 8)"ALL RIGHTS RESERVED BY" 8)"S & T SOFTWARE SERVICE" : K300011: :::: 5)"THIS PROGRAM SHOWS THE GALILEAN" 5)"SATELLITEo # SATELLITES OF JUPITER1::::\(Z$(4),B$(4),Y$(4),M$(2),DA$(2),LT$(5)v2TZ$(2),ND$(1),IN$(2)<8)"AN ASTRONOMY PROGRAM"FP6)"-------------------------"Z6)"I GALILEAN SATELLITES I" d6)"-------------------    1)MM1:DD30:1530,D31MM1:DD31;M2ī1470OM13M1:YY1]FL5:590c"DO YOU WANT ANOTHER DATE Y/N ";A$"A$"N"ė:1610,A$"Y"ĺ"INVALID RESPONSE"::15606FL0@:::390J"RUN ASTRO"""------------------------------"SNC3(NC3)0Ą"PRESS RETURN TO CONTINUE";Z$cNCIN1450m1550NCNC1:DDPTIYYP:MMP(LY1M2D29)M3:DD29:1530(LY0M2D28)M3:DD28:1530D311530(M4M6M9M1lLNDī2020,v INCREMENT FOR INTERVALH AND ADJUST MONTH ENDSUUTUTINqUT24UTUT24:DADA1(LY1M2DA30)M3:DA1:2000(LY0M2DA29)M3:DA1:2000DA312000(M4M6M9M11)MM1:DA1:2000 DA31HRS ";EM;" ";DA.M120(.7(B$(0)))DM1);(B$(0),1);]M220(.7(B$(1)))s&M2);(B$(1),1);0M320(.7(B$(2))):M3);(B$(2),1);DM420(.7(B$(3)))NM4);(B$(3),1);XM520(.7(B$(4)))bM5);(B$(4),1)173020);"N">"JUPITER..J";20)"^";30);"IO ..... I"j"EUROPA...E";20)"!";30);"GANYMEDE G""CALLISTO C";20)"!""--------------------------------------"YP;" ";MP;" ";DP;" AT ";LT;" HR ZONE ";TZ" . . . . . . UT ";UT;" LMT@LTUTTZ JLT0ī1690@TDPDA1:LTLT24:DP01690R^DP1MPEM1oh(LY1MP2)DP29:1690r(LY0MP2)DP28:1690|(MP4MP6MP9MP11)DP30:1690DP31MP0MP12:YPY1L1ī1760FL1ĺ20);"S": ";S3"5)"CALLISTO (C) ";S4*:M"MINUS IS TO LEFT OF JUPITER"n" PLUS IS TO THE RIGHT":FL1ĺ4)"WITH S AT TOP ":15504)"WITH N AT TOP":"FOR GRAPHIC DISPLAY PRESS RETURN";A$",21006 REGENERATE &x"WHICH IS 71,100 KM OR 44,180 MI",m"FOR DATE ";YP;" ";MP;" ";DP;" AT ";LT;" HRS TIME ZONE ";TZ"FOR DATE ";Y;" ";M;" ";DA;" AT ";UT;" HRS UT"EMM:5)"IO (I)...... ";S15)"EUROPA (E).. ";S25)"GANYMEDE (G)S10S10(S1):1310*S10S10(S1)ES20S20(S2):1330Z(S20S20(S2)u2S30S30(S3):1350<S30S30(S3)FS40S40(S4):1370PS40S40(S4)ZL1ī1580d:::n"DISTANCE IN TERMS OF JUPITER RADII"! " DAY ";R7HR$((FD24),5)PHL$((FD24TZ),5)t" U.T. ";HR$" LOCAL TIME ";HL$FD24TZ0ĺ::800"MINUS INDICATES PREVIOUS DAY":: " DO YOU WANT THE NEXT ECLIPQ121:660SQ1TS)T2TR9(5)S700COO1NUOT2^R3R10000yT2R28TT1:RR28T3R31TT1:RR31"DATE OF ECLIPSE IS ..."" YEAR ";O" MONTH ";TFDFDL L2299161ī580E L2((22991611867216.25)36525.25)P LL2L^ &M(L24)h 0LLMr :LL1 DNL1720995 NO((N122.1)365.25) XP(O365.25) bQ((NP)30.6001) lR((NP)(Q30.6001))10000 vQ13.7774ī650 S----------------------"; "MAGNITUDE OF ECLIPSE IS.. ";N K(((K),4))U K[ } L2415036.025(A29.53058868) LL(.406(RAD(D)))(.174(RAD(C))) LL((RAD(2D)))62 FD(L((RAD(2E)))97) L(L((RAD(2E)))97) RAD(C)))2.2265* JIH((RAD(2E))).13; TI(RAD(I))X ^J0.7128((RAD(D)))36e hWI10J rW0W1.84769W1.8216:390 |W0W1.84769W1.8216 KW((RAD(D)))30 K0ī250 K.01K.01 FL1430 ::::: :"ASE WAIT" ZY1900- ZD(Z12.368267)29 A(ZD)U RAD(X)X3.141592180a :AA1t B29.1053561A CB13.7774 D(25.81691806A)138.94 "E(30.670565A)216.6378 ,FE((RAD(D))).412 6GF((RAD(2D)))8.8 @HG(()"AND DATE OF LUNAR UMBRAL ECLIPSES"M x5)"STARTING AT ANY YEAR REQUESTED"c J5200011:J5k : :"FOR LOCAL TIME TYPE YOUR TIME ZONE ";TZ: "PLEASE STATE THE" "YEAR TO START ";Y FL0 :::: "RUNNING....PLE ::::010)"LUNAR UMBRAL ECLIPSES"T10)"BY ERIC BURGESS F.R.A.S."x(:10)"ALL RIGHTS RESERVED BY"210)"S & T SOFTWARE SERVICES"<KZ200011:KZFP:::Z ECLIPSEd5)"THIS PROGRAM GIVES MAGNITUDE"$ n5     !1 I1I6 SUB FOR REDUCING ANGLESTZZ(ZZ360(ZZ360))360h ZZ0ZZZZ360n D(1)(S2)"E"1HZ$(2)(S3)"G":Z$(3)(S4)"C"DRZ$(4)(0)"J"O\I04`fB$(I)"****"gpIozK0zI04Z$(I)"****"2270JI4Z$(J)"****"2230(Z$(J))(Z$(I))IJ:2230JB$(K)Z$(I):Z$(I)"****"KKMM1:DA1M13M1:YY1-LL1:6905:^"DO YOU WANT ANOTHER DATE Y/N? ";A$pA$"N"ī2080A$"Y"ĺ"INVALID RESPONSE"::2030 FL0:320 *(4);"RUN ASTRO"4 SUB TO DISPLAY SATELLITES >Z$(0)(S1)"I":Z$("NEW MOON O ";Y;" ";PM$;" ";PZ8NSNī1270JPMPM1:1050v"FIRST QUARTER ) ";Y;" ";PM$;" ";PZ21"FULL MOON (O)";Y;" ";PM$;" ";PZ14"LAST QUARTER ( ";Y;" ";PM$;" ";PZ7NF1NF0:NSNS1:1270NS1NF1:PZ$PM2PM$"FEB":*.PM3PM$"MAR":@8PM4PM$"APR":VBPM5PM$"MAY":lLPM6PM$"JUN":VPM7PM$"JUL":`PM8PM$"AUG":jPM9PM$"SEP":tPM10PM$"OCT":~PM11PM$"NOV":PM12PM$"DEC"::PZ31 ( ";Y;" ";PM$;" ";PD3PH#NSHPD3PH730PD3PH731ī1170QYYP[MM1|NSNNSNS1:IN0:P90:330:"DO YOU WANT MORE ";A$A$"Y"ī140A$"N"ĺ"ANSWER Y OR N ":1000"RUN ASTRO"PM1PM$"JAN":MPM1 \PM12PMPM12:YY1*f10509kF91ī890gp"FULL MOON (O) ";Y;" ";PM$;" ";PD2PHzPM2PD3PH28PDPD3PD3PH31PDPD31:PMPM1PM12PMPM12:YY11050XP1MM1F91F90:970"LAST QUARTERDPD1!PM2PDPH28PDPD3@ PDPH31PDPD31:PMPM1ZPM12PMPM12:YY1v PH(PH).5PH(PH)1*PH(PH)410509F91ī840>"FIRST QUARTER ) ";Y;" ";PM$;" ";PDPHHPM2PD2PH28PDPD3RPD2PH31PDPD31:P(P9100))PD((P9100(P9100))100)@NS4NS8PDPD1XPD0PMPM1:PD31qPD31PDPD31:690PM12PMPM12:YY1XP1PMPM11050F91ī750"NEW MOON O ";Y;" ";PM$;" ";PDQ1PMPM1:Q0P499245P5)271.50 &P7P7(.4089((RAD(P8))))R 0P7(((RAD(2P8))).0161)P7l :P8((P7.5)10000)P4| DIN0P9P8 NIN0MM1:610 XININ1:MM1:P10:P20:P30:P40:360 bZP9P8 lZZ10000 vZ(30.6001Z) PHZ400PM2125 P5(365.25P1)((P21)30.6001)P31720995C FL2480T PO(P1100)k P5P5PO2(PO4)~ P6.0338631922 Q(P6P5).67094 Q11(Q(Q)) P7Q1P6 P5(P5P7).985600267 P7P7(.1743((RAD(P573.63)))) P8(13.06) N3N32 "N0ĺ"INVALID RESPONSE"::260? ,:NS1:] 6"MOON'S PHASES ARE ... "f @MSMo JIN0 TXP1MM1 ^YPY hTYYM100 r1582.10TYFL2 |P2M P1Y P3D P4M100D10000 (5)P2ī440 P1P11:P2PNTHS"# 8)" (WITHIN ONE DAY)"- ::H "START DATE REQUIRED"b :"YEAR ";Y$:Y(Y$) Y0ĺ"INVALID RESPONSE"::220 :"MONTH ";M$:M(M$) M0ĺ"INVALID RESPONSE"::240 :"NUMBER OF MONTHS REQUIRED (1 TO 3) ";N$ N(N$! x10)"S & T SOFTWARE SERVICE"4 J300011:@ :::F a RAD(X).01745328(X) 5)"THIS PROGRAM PROVIDES DATES FOR" 5)"PHASES OF THE MOON STARTING AT" 5)"ANY MONTH OR ANY DATE AND FOR" 5)"A PERIOD OF UP TO THREE MO@  LUNAR PHASES* VERSION 5/10/838::::B(::d210)"----------------------"<10)"I PHASES OF MOON I"F10)"----------------------"P::Z9)"BY ERIC BURGESS F.R.A.S."d:n10)"ALL RIGHTS RESERVED BY"     M EARTH QZA(3)A(I); (Z)3.14159Z0ZZ6.28318](Z)3.14159Z0ZZ6.28318w DISTANCE FROM EARTH(Q(D(I)2D(3)22D(I)D(3)(Z))2 CALC ANG DISTANCE FROM SUN<P(D(I)D(3)Q)2FX2ACO((((P(PD(I)))(D(3)Q))))ACA6.28318AA6.28318:A0AA6.28318:1200_ CALC DIST OF PLANET FROM SUN DDPD(J,4)PD(J,5)(APD(J,6)) CALC DIST. OF PLANET FROM ECLIPTIC LLPD(J,7)(APD(J,8)) CALC RA AND DEC R, V  AND DISTANCE FRO80+BA$"N"ĺ"INVALID RESPONSE"::10701LCV"RUN ASTRO"X` CALC A,D,AND Lwj CALC HELIOCENTRIC LONG AtANIPD(J,0)PD(J,1)~A6.28318A((A6.28318)(A6.28318))6.28318A0AA6.28318:1160CPD(J,2)(APD(J,3))AI3Ă1260*Q(I)Q:R(I)R:V(I)V0KI19:A(I)DEG(A(I))VI3ĂbP$(I);z10);((A(I)),5);18);((Q(I)),5);27);((R(I)),5);34);((V(I)),5)$."DO YOU WANT ANOTHER DATE? ";A$8A$"Y"2:-:-:-:-:-:-:-:-:-:-:"DR" HELIO DIST R.A. DEC"r\" LONG TO PLANET HRS DEG"f"-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:"p:I1zJ08:1120A(I)A:D(I)D:L(I)LII1:I19 SKIP EARTH97,1.91812"I919:P$(I9):I9e  MERCURY,VENUS,EARTH,MARS,JUPITER,SATURN,URANUS,NEPTUNE,PLUTOmF1  CALC DATA FOR PLANETS*:4"PLANETARY DATA FOR.. ";Y;" ";M;" ";D>"WHICH IS ";NI;" DAYS FROM EPOCH 1960"H"-:-:-:-:-:-:-:-:-977458 URANUS^.000205,2.46615,.088593,2.96706,19.182,.901554,4.49084,.01396,1.28805l NEPTUNE.000104,3.78556,.016965,.773181,30.06,.27054,2.33498,.031416,2.29162 PLUTO .000069,3.16948,.471239,3.91303,39.44,9.86,5.23114,.3001  MARSU.009146,4.51234,.175301,5.85209,1.5237,.141704,1.04656,.03142,.858702c JUPITER .00145,4.53364,.090478,.23911,5.2028,.249374,1.76188,.01972,1.74533 SATURN.000584,4.89884,.105558,1.61094,9.5385,.534156,3.1257,.043633,1.XX)DXX,YYN MERCURYeX.071422,3.8484,.388301,1.34041,.3871,.07974,2.73514,.122173,.836013qb VENUSl.027962,3.02812,.013195,2.28638,.7233,.00506,3.85017,.059341,1.33168v EARTH.017202,1.74022,.032044,1.78547,1,.017,3.33929,0,0D FEB2 DGDG((Y1)4)((.75)((Y1)1001)); 510W  CALC FOR MAR THRU DEC DGDG(M.42.3)(Y4)((.75)((Y100)1)) NIDG715875  PLANETARY DATA FOR EPOCH 1960 F1790  &PD(9,10) 0YY08:XX08:PD(YY,"INVALID RESPONSE"::3708 :"THE DAY ";DD$:D(DD$)a D0D31ĺ"INVALID RESPONSE"::390 M2D29ĺ"INVALID RESPONSE"::390  CALC GREG. DAYS TO DATE  FROM EPOCH 1960,1,1 DG365YD((M1)31) M3490  CALC FOR JAN AN""ENTER THE DATE": ,FL2< 6"THE YEAR ";YD$:Y(YD$)` @Y0ĺ"INVALID RESPONSE"::310p JY1800370 T"IS ";Y;" THE CORRECT YEAR? ":Y$ ^Y$"Y"370 hY$"N"ĺ"INVALID RESPONSE"::340 r:"THE MONTH ";MD$:M(MD$) |M0M12ĺS RIGHT ASCENSION". 11)"AND DECLINATIONS"X 3)"HELIOCENTRIC LONGITUDES AND THE" 3)"DISTANCES FROM EARTH OF ALL THE" 12)"PLANETS":: 4)"FOR THE DATE WHICH YOU INPUT" ::: "TO CONTINUE PRESS RETURN";A$ :::: I"# n11)"-----------------"+ x:N 8)"BY ERIC BURGESS F.R.A.S."V :w 9)"ALL RIGHTS RESERVED BY" 9)"S & T SOFTWARE SERVICE" :12);"VERSION JUNE 1983": J300011: ::: ::: 2)"THIS PROGRAM GIVE! RA AND DEC OF ALL PLANETS=ASN(X)(X(XX1))dACO(X)(X(XX1))1.5707963(RAD(X).01745328(X)2DEG(X)57.29578(X)<::::F11)"ASTRONOMY PROGRAM"P:Z11)"-----------------" d11)"I RADEC          !Y1);Y2Z13106d:"HRS.MIN.SEC. TO DECIMAL HRS "Sn"TO STOP ENTER 999,0,0"qx:"HRS,MIN,SEC ";X,X1,X2X999110YXX160X23600"DECIMAL HRS - ";Y1400:"DECIMAL HRS TO HRS.MIN.SEC. ""TO STOP ENTER 999" :99110YXX160X23600<"DECIMAL DEG.= ";((Y),5)F1240q ::"DECIMAL DEGREES TO DEG.MIN.SEC.""TO STOP GO TO 999":"DECIMAL DEGREES";X(X9991102Y(X)<Y160(X(X))FY260(Y1(Y1))P"DEG.MIN.SEC.="Y;(X(1149.598)'~"A.U. = ";((Y),5)11120N:"MILES (MILLIONS) ";X]X999110rYX(192.15721)"A.U = ";((Y),5)1170::"DEG.MIN.SEC. TO DECIMAL DEG.""TO STOP ENTER 999,0,0":"DEG,MIN,SEC ";X,X1,X2X9RS (MILLIONS) = ";((Z),5)$990L$::"MILES/KMS TO A.U. CONVERSION"d."TO STOP TYPE 999"8:"TYPE KMS OR MI ";Q$BQ$"KMS"1120LQ$"MI"1170V"PLEASE TYPE KMS OR MI ":1080`:"KILOMETERS (MILLIONS) ";XjX999110tY5); " = ";((Y273),5);"K")910X::"A.U. TO MILES/KILOMETERS CONVERSION"q"TO STOP ENTER 999":"A.U.";XX999110YX92.95721: MILESZX149.598: KILOMETERS"MILES (MILLIONS) = ";((Y),5)"KILOMETE"'C TO ' F CONVERSION"0>"TO STOP ENTER 999"?H:"'C ";XNRX999110]\YX1.832tf"'F = ";((Y),5)}p840z::"'F TO 'C CONVERSION""TO STOP ENTER 999":"'F ";XX999110Y(X32).555555556"'C = ";((Y), STOP ENTER 999"$:"PARSECS ";X4X999ī110AYX3.26X"LY = ";((Y),5)c:690k:"LY TO PARSECS CONVERSION""TO STOP ENTER 999":"LY ";X X999ī110YX13.26 "PARSECS = ";((Y),5)*7704::YX5.88(0"TRILLION MI = ";((Y),5)1:5309D:]N"TRILLION MI TO LY CONVERSION"vX"TO STOP ENTER 999"b:"TRILLION MI ";XlX999ī110vYX15.88"LY = ";((Y),5):610:"PARSECS TO LY CONVERSION""TO :350 130$ X999ī110, :G "MI TO KM CONVERSION"` "TO STOP ENTER 999"o :"MI ";X X999ī110 YX1.609344 "KM = ";Y 450 10 : "LY TO TRILLION MI CONVERSION" :"LY ";X X999ī110&CT CONVERSION REQUIRED 1-16 ";D0 "D999ī1680~ ,D310,420,510,580,660,740,820,890,970,1060,1220,1290,1380,1450,1540,1610 6 @ J"KM TO MI CONVERSION" T"TO STOP ENTER 999" ^:"KM ";X hX999ī110 rYX(11.60934) |"MI = ";Y);"HRS.MIN.SEC. TO DECIMAL HRS.. (13)"T 5);"DECIMAL HRS. TO HRS.MIN.SEC...(14)" 5);"RES. PWR. TO INS. OF APERTURE (15)" 5);"INS. OF APERTURE TO RES. PWR. (16)" :"TYPE 999 TO END OR TO CHANGE" "TO ANOTHER CONVERSION" :"SELEOR LY TO PARS..(6)"A 5);"'C TO 'F....(7) OR 'F TO 'C....(8)"o 5);"A.U. TO MI..(9) OR MI TO A.U. (10)" 5);"A.U. TO KM..(9) OR KM TO A.U. (10)" 5);"DEG.MIN.SEC. TO DECIMAL DEG.. (11)" 5)"DECIMAL DEG. TO DEG.MIN.SEC.. (12)"& 5% Z11)"S & T SOFTWARE SERVICE"::9 dK200011:KA n:k x:10)"ASTRONOMY CONVERSION PROGRAM" ::"YOU CAN HAVE....": 5);"KM TO MI....(1) OR MI TO KM....(2)" 5);"LY TO MI....(3) OR MI TO LY....(4)" 5);"PARS. TO LY.(5)  :::::97)"-----------------------------"a7)"I C O N V E R S I O N S I"(7)"-----------------------------"2:<11)"AN ASTRONOMY PROGRAM"::F10)"BY ERIC BURGESS F.R.A.S."::P11)"ALL RIGHTS RESERVED BY"SE ";A$*:'4A$"Y"ĺ:FL1:250L>A$"N"ĺ"INVALID REPLY"::800vH" DO YOU WANT ANOTHER YEAR ";A$RA$"Y"ė:::170\A$"N"ĺ"INVALID REPLY"::840fp"RUN ASTRO"K P CALC RA0ZZ0RDEG(A(3)3.14159X)15SdZ0RDEG(A(3)3.14159X)15jnR24RR24:1390xR24RR24:1400R0RR24:1410 CALC DEC.Z0V(A(3)3.14159X)23.44194DEG(L(I)) Z0V(A(3)3.14159X)23.441940 FL1MM1(M12M1:YY121070<1390S COMPUTE FOR DAYSkDS160DD5:1580DS170DD2:1580"DD1,16306D2DS@DS178ī1710JD2DSDD1:1630T1700^ CORRECT FOR MONTH AND YEAR ENDS hA5.85209)<MAMAMC+FMAP2MAMAP2DPMA0MAMAP2:1360hZMD1.5237.141704(MA1.04656)nd}n930:1180x710::::23YI;" ";MI;" ";DI1980: TO PLOT PLANETSFL1DSW57.29578DS120ī154)) 1260( CALC FOR MAR THRU DEC[DGDG(M.42.3)(Y4)((.75)((Y100)1))lNIDG715875r{320  CALC MARS'S POSITIONMANI.0091464.51234MAP2MA((MAP2)(MAP2))P2(MA0MAMAP2:1320 2MC.175301(Mĺ"INVALID RESPONSE"::1120FtM2D29ĺ"INVALID RESPONSE"::1120_~ STORE INITIAL DATErYIY:MIM:DIDx CALC DAYS FROM EPOCHDG365YD((M1)31)M31240 CALC IF JAN OR FEBDGDG((Y1)4)((.75)((Y1)1001RESPONSE"::1000!A$"N"970; CHECK FOR LEAP YEARE1070O$1100c.Y4Y4:Y5Y1008Y4(Y4)0Y5(Y5)0LY1BL:" THE MONTH ";M$:M(M$)VM0M12ĺ"INVALID RESPONSE"::1070`:" THE DAY ";D$:D(D$)jD0D31))W2ACO(V)) ENTER DATE@B$"2"FL1ī1160H:`"ENTER THE DATE":}" THE YEAR ";Y$:Y(Y$)Y0ĺ"INVALID RESPONSE"::970Y18001040"IS ";Y;" THE CORRECT YEAR":A$A$"Y"1040A$"N"ĺ"INVALID 4(Z)P1Z0ZZP2.>(Z)P1Z0ZZP2IHZ0QMDDE:WP1:920dRZP1QMDDE:W0:920\ CALC DISTANCE (Q) FROM EARTH (AU)fQ(MD2DE22MDDE(Z))pP(MDDEQ)2z CALC ANGULAR DISTANCE (W) FROM SUNV((P(PMD))(DEQ AND ANGULAR DISTANCE FROM SUN:AENI.0172021.74022^AEP2AE((AEP2)(AEP2))P2vAE0AEAEP2:740CE.032044(AE1.78547)AEAECEAEP2AEAEP2 AE0AEAEP2:780DE1.017(AE3.33926) 1290*ZAEMA:!X"WANT ANOTHER DATE ";A$4bA$"N"ė:660\lA$"Y"ĺ"INVALID RESPONSE"::600mv:FL0:::~B$"1"ī3201390"RUN ASTRO" ROUTINE FOR ANGULAR DIAMETER930: ENTER DATE1180 CALC DISTANCE FROM EARTH TION IS 25 SEC" 2 "COMPARISONS ARE......"8 e "MAXIMUM DIAM (-----------------------){ " AT OPPOSITION" 9.36Q25OP24:550 OP(9.36Q) &"DIAM AT DATE ("; 014OP)")" :"MINIMUM DIAM (-) D" AT CONJUNCTION"N;" A.U."< " OR ";((Q92.96),4);" MILLION MILES"B ] MW$((W57.29578),4) "ANG. DISTANCE FROM SUN IS ";MW$; " DEGREES": (MD$)25MD$"25" "ANG DIAM OF MARS IS ";MD$; " SEC OF ARC" " MAX AT CLOSEST OPPOSIB$"1"3203 ,B$"2"ĺ"INVALID RESPONSE"::250= 61390` @670: GET DISTANCE FROM EARTHj J:: TMD$((9.31Q),5) ^"FOR YEAR ";Y;" MONTH ";M;" DAY ";D: h"--------------------------": rQ$((Q),4) |"DISTANCE OF MARS IS ";Q$ CALCULATES APPROXIMATE ANGULAR"J " DIAMETER OF MARS FOR ANY DATE"s " 2) PROVIDES APPROXIMATE DATE OF" " NEXT OPPOSITION AFTER ANY DATE": :: "SELECT 1) ANGULAR DIAMETER" " 2) NEXT OPPOSITION"  B$ "."::' x8)"ALL RIGHTS RESERVED BY"L 8)"S & T SOFTWARE SERVICE"::R z "DO YOU WANT INSTRUCTION (Y/N)";A$ A$"N"ė::::250 A$"Y"ĺ"INVALID RESPONSE"::150 ::: "THIS PROGRAM OFFERS TWO ALTERNATIVES": " 1)H( ACO(X)(X(XX1))1.57079631LY0:FL0T(P13.14159:P26.28318`2:::|<10)"----------------"F10)"I M A R S I"P10)"----------------"Z:d8)"AN ASTRONOMY PROGRAM":: n7)"BY ERIC BURGESS F.R.A.S"" " " " " """""""""