' +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- ( O Р@跻~!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`5ĺ:RM$!-XX$""MT5ĺ:RM$+2:I0^<(7):X$"** RISE--TRANSIT--SET **":PR$X$:425F(8):X$":::: OF SUN, MOON, AND PLANETS ::::":425PJ150011:JU1:13::"RISE--TRANSIT--SET":::34,2Z:6 d"THIS PROGRAM GIVES APPROXI,0:MTPE176*:MT2940,2330,1330,3430CAA$""XX$"E"ĺRM$AA$"N"XX$"E"ė:8:"DO YOU NEED TOP OF FORM? Y/N ";:975 XX$"E"PE217ĺ:P1$:(12):P0$:RM$XX$"E"PE206ĺ:P0$:RM$AA$"Y"XX$"E"ĺ:P0$:RM$ (AA$""MTRE: ":42018:5:"(1). PLANET RA & DEC ":5:"(2). MOON RA & DEC":5:"(3). RISE-TRANSIT-SET":5:"(4). PLANET/MOON PHOTO EXPOSURES":5:"(5). RETURN TO MAIN MENU"24:13::"CHOOSE ONE (1-5) ";::" ";:PE(PK):PE177PE1811200 PQ705j:3::40):I412:I:1:" ":I:40:" ":IHt13:1:80):~5:20:"BY":7:12:"RICHARD L WIESEN MD":9:16:"8 JULY 1984"2:X$" ** COORDINATES: MOON AND PLANETS **":PR$X$:4253:X$"ANY DATE":425 16:X$"YOUR CHOICES A(X(XX1))1.57079633.RAD(X).01745328(X)N8DEG(X)57.299578(X)B INSERT YOUR LOCAL LONGITUDE AND LATITUDE IN NEXT LINELLO88.14:LA43.095V1130: 1ST PASS`:10:"ENTER 'E' TO EXIT 'RETURN' TO CONTINUE ";XX$:XX$"E"12zXP1:MM1NS:187014PMPM1:1950]>"FIRST QUARTER ) ";Y;" ";PM$;" ";PZ23H"FULL MOON (O)";Y;" ";PM$;" ";PZ15R"LAST QUARTER ( ";Y;" ";PM$;" ";PZ8\NF1NF0:NSNS1:2170fNF1:PZ301::NSNS1:2080pPZ0:PD0"DEC";::" "PD$::P0$:14:"NEXT? AME OR EW EPOCH OR UIT ";::" ":PE(PK):(PE211PE206PE209)2270:PQ,0:PE2111530:PE2061230::1010PY$(PE):(YY$)4110:FL1IN(YY$)FL2FI(YY$) 16:15::"YEAR OK? Y/4DM10DM$"0"DM$/>(DM$)2DM$" "DM$FHDS10DS$"0"DS$`R(DS$)2DS$" "DS$\PD$SG$DD$DM$DS$::400::AA$"Y"İ425Pz:::"EPOCH "IN" ";::"RA";::" "RA$" ";::"DEC";::" "DC$::"EPOCH "FI" ";::"RA";::" "PA$" ";::M$RS10RS$"0"RS$3(RS$)2RS$" "RS$\PA$RH$RM$RS$"."RF$:DL0SG$"-nDL0SG$"+DL(DL):DD(DL):DM(60(DLDD)):DS(3600(DLDD(DM60))):DD$(DD):DM$(DM):DS$(DS):DD10DD$"0"DD$*(DD$)3DD$(DD$,2,2)LAL24DL(C(1CC))R:RH(AL):RM(60(ALRH)):RS(3600(ALRH(RM60))):RF(36000(ALRH(RM60)(RS3600))):RH$(RH):RM$(RM):RS$(RS):RF$(RF):RH10RH$"0"RH$(RH$)3RH$(RH$,2,2)RM10RM$"0"RM$(RM$)2RM$" "R60:IDID((DC$,8,2))3600:(DC$,1,1)"-"IDIDA0R(IRMR):D0R(IDMD):A(D0)(A0Z1):B((TH)(D0)(A0Z1))((TH)(D0)):C((TH)(D0)(A0Z1))((TH)(D0)):AP(AB)R:AL(APZ)15:B0A0ALAL12B0A0ALAL12B0A0A:10:"ANY PROPER MOTION? Y/N ";:975:PE206MR0:MD0:1590l,:10:"PROPER MOTION: ";MR,MD36:MRT115MR3600:MDT1MD3600:IR((RA$,1,2)):IRIR((RA$,4,2))60:IRIR((RA$,7,4))3600:IR15IR:ID((DC$,2,2)):IDID((DC$,5,2))ECzINININ.00273043&HM(IN);MI60(IN(IN))HM2(MI)NTv20)"OR ";HM;" HR ";M2;" MI"|IN24ININ24IN0ININ24(12):(4);"PR#0"\fPE206ĺ::(4);"RUN MENU"p CONVERT TO HR,MIN,SE (Y/N) ";:975T4(PE217AA$"Y"QQ6)ĺ:(4);"PR#1":(12):(4);"PR#0":1150n>PE217AA$"Y"ī1150HPE217AA$"N"ī1150RPE206AA$"Y"ĺ:(4);"PR#1":(12):(4);"PR#0"\fPE206ĺ::(4);"RUN MENU"p CONVERT TO HR,MIN,SNUT(((NUT),5))T400:470:"NEXT UPPER TRANSIT WILL BE ";NUT;" HRS":2220iD$;"PR#0":::"WANT ANOTHER ELONG. OR TRANSIT (Y/N) ";:975QQ6ĺ:(4);"PR#1":(12):(4);"PR#0" PE217ė:::1650*:"WANT ANOTHER DAT((EP),5))C400:470:"PREVIOUS EAST ELONGATION WAS ";EP;" HRS"S2220:2040{NLTMTQL:INNLT:2250:2160:NLTINNLT(((NLT),5))400:470:"NEXT LOWER TRANSIT WILL BE ";NLT;" HRS"2220:2040NUTHA:INNUT:2250:2160:NUTIN+ FL5:2430+" +' FR(0)O+, P0$:"DO YOU WANT ANOTHER DATE Y/N ";:975+6 (PE206AA$"Y")ĺ:P1$:(12)::P0$:1120+@ (PE206AA$"N")ĉ:1120+T FL0+^ :FR(0):AA$"X":P0$:100:2400+h P0$+r 400,| I0:1:13::"PLANETARY RA ;" MNTH ";M2;" DY ";(D2)* P* "RA OF MOON IS ";RA$;" DECLINATION IS ";DE$v* "------------------------------"* NC3(NC3)0ĺP0$:"PRESS RETURN TO CONTINUE ";A$:AA$"Y"ĺP1$* NCIN2820* 2850* NCNC1:DDPTI* YYP:MMP:355 "THE MOON'S RA AND DEC FOR TIME ZONE ";TZ`) "AT ";T1;" HOURS. WITH INTERVALS OF ";TI$;" DAYS") "FOR ";IN$;" INCREMENTS IS AS FOLLOWS:"::(27)(53)) 12000) "LOCL TIME ";T1;" HR:YR ";YP;" MNTH ";MP;" DY ";DP* "UNIV TIME ";TU;" HR:YR ";Y2ANY INTERVALS ";IN$:#(2 IN(IN$)7(< IN0ĺI$:2600W(F SETS INTERVAL COUNT AT 1`(P NC1i(Z 200(n FL5ĺ::P0$:400(s FL52730(x "INTERVALS OF ";TI;" DAYS FOR TIME ZONE ";TZ( :(27)"4":"BEGINNING WITH ";MM$;"-";DD$;"-";YY$)) "SELECT INTERVALS AND HOW MANY"J' "ENTER 1'S IF YOU NEED ONE PLOT ONLY"u' "UP TO THREE INTERVALS ARE DISPLAYED"' "ON SCREEN BEFORE SCROLLING"' :' "WHAT IS THE TIME INTERVAL (DAYS) ";TI$' ' TI(TI$)' TI0ĺI$:2560(( "HOW M11000::100(&` :15:"TIME ZONE ";TZB&j :15:"TIME HRS ";T1e&t STORE INITIAL DATE AND TIMEx&~ YPY:MPM:DPD& TUTZT1:TU24TUTU24:DD1& DDTU24& FL5İ355:2480& 355& T2TU:D2D:Y2Y:M2M& FL5ī2650& ::' (I)"MOON"% 1890;% RA AND DEC OF MOON FOR ANY DATEi% :I0:1:14::"MOON RA & DEC":::34,2%$ (10):X$"** MOON POSITION--ANY DATE **":PR$X$:425%. FL0%8 (12):8::"DO YOU WANT INSTRUCTIONS? ";:975%B PE206ė:::100:2400 &V 12010 $:/$"MOON DATA REQUESTED FOR..."]$5)"YEAR ";YY$;" MONTH ";MM$;" DAY ";DD$c$r$"AT NOON"$"R.A. OF MOON IS ";RA$;" HRS"$"DECLINATION IS..";DE$;" DEG"$Z$$ CALC RISE, TRANSIT, SET TIMES$R(I)RM:V(I)DM %P$:CI3FLAP## CI10İ2180:2100-#*1670S#4:"WANT ANOTHER DATE Y/N ";:975u#>PE217FL0:F0::100:1550#R:P0$:1000#\T2DEG(A(3)PI)15:800#fR(3)T2#pV(3)(A(3)PI)23.44194#z# CALC RISE, TRANSIT, SET FOR MOON$.... ";TS;" HR ";#"(TP);" MIN"+":b"P0$:"WANT ANOTHER PLANET, SAME DATE Y/N? ";:975"(PE206AA$"Y")ĺ:P1$:(12):P0$"PE206ė:2100"(QQ2)((QQ2))AA$"Y"ĺ:P1$:(12):P0$" CI10DDX:MMX:YYX:1550 #13000:400T !l:'!vTM60(TR(TR)):TR(TR)E!TN60(TT(TT)):TT(TT)c!TP60(TS(TS)):TS(TS)i!!P$(I)" RISES AT .......";TR;" HR ";(TM);" MIN"!(P$(I)))" TRANSITS AT.... ";TT;" HR ";!(TN);" MIN""(P$(I)))" SETS AT....0 ICI:A(I)DEG(A(I))1 Q$(I)((Q(I)),5)H X$(I)((X(I)),5)_ &R$(I)((R(I)),5)v 0V$(I)((V(I)),5) :I3ĺP$(I)27)R$(3);33)V$(3):1880 DP$(I)9)Q$(I)19)X$(I)28)R$(I); N36)V$(I) XZ$!b14000: GET RISE, TRANSIT, SETITUDE ";LA;" DEG--LONGITUDE ";LO;" DEG".6Z$QCI3ĺ28)"R.A. DEC"tCI3ĺ27)"(HRS) (DEG)":1770" DIST ANG.DIST R.A. DEC"" TO PLANET FROM SUN (HRS) (DEG)"11)"A.U."Z$FLAPī1800 50Y,DD(LO15)24"6300:200G@20: TO GET SIDEREAL TIME (T2)XJCI10ī2180}T INPUT OF PLANETARY ORBIT DATA^F1ī1650h900rF1| CALCULATE DATA FOR PLANETS:::"DATA REQUESTED FOR ";YX;" ";MX;" ";DX("LASIN"/5)"LONGITUDE 88.14; LATITUDE 43.095"j(20):(5)::"DO YOU WISH TO CHANGE THEM Y/N? ";:975{PE2061540:5"GIVE LATITUDE ";LA"GIVE LONGITUDE ";LO10013000: TO SELECT PLANET400"DXD:MXM:YXMATE TIMES"6n"OF THE RISING, TRANSIT, AND SETTING"^x"OF A SELECTED PLANET, OR THE SUN"u13)"OR THE MOON"::"INITIAL CONDITIONS ARE SET FOR" CHANGE NEXT TWO LINES TO YOUR LOCAL LAT AND LONG.5)"BROOKFIELD, WISCONG(((G),4));|:F;X$"FOR BEST RESULTS WITH THIS SET UP":420r;X$"YOU NEED A FILM WITH AT LEAST":420;G(((G3),4));8:(G);" LINES/MM RESOLUTION";M11M1$"THIN CRESENT";M12M1$"FAT CRESENT";M13M1$"QUARTER"J +12)"AND TIME":_J*+"FOR A SERIES OF INTERVALS"gJ4+:J>+"ENTER YEAR, MONTH, DAY, TIME ZONE,"JH+" AND LOCAL TIME"JR+"ALSO THE TIME INTERVALS IN DAYS AND THE"K\+"NUMBERS OF INTERVALS REQUIRED PLUTORI' .000069,3.16948,.471239,3.91303,39.44,9.86,5.23114,.300197,1.91812xI' MERCURY,VENUS,SUN,MARS,JUPITERI' SATURN,URANUS,NEPTUNE,PLUTO,MOONI*:::I+"THIS PROGRAM DISPLAYS THE APPROXIMATE"J +"RIGHT ASCENTION AND DECLINATION"000584,4.89884,.105558,1.61094,9.5385,.534156,3.1257,.043633,1.997458SH' URANUSH' .000205,2.46615,.088593,2.96706,19.182,.901554,4.49084,.01396,1.28805H' NEPTUNEH' .000104,3.78556,.016965,.773181,30.06,.27054,2.33498,.031416,2.29162I'B' .017202,1.74022,.032044,1.78547,1,.017,3.33929,0,0BGL' MARSGV' .009146,4.51234,.175301,5.85209,1.5237,.141704,1.04656,.03142,.858702G`' JUPITERGj' .00145,4.53364,.090478,.23911,5.2028,.249374,1.76188,.01972,1.74533Gt' SATURNEH~' .M12N20:FM13N40:-FM14N80:?FM15N220:NF' MERCURYF' .071422,3.8484,.388301,1.34041,.3871,.07974,2.73514,.122173,.836013F$' VENUSF.' .027962,3.02812,.013195,2.28638,.7233,.00506,3.85017,.059341,1.33168F8' EARTH6GB:10:"ENTER '2' FOR FAT CRESENT"GEL:10:"ENTER '3' FOR QUARTER"jEV:10:"ENTER '4' FOR GIBBOUS"E`:10:"ENTER '5' FOR FULL"Ej20:15::"WHICH? (1-5) ";::" ";:EtPE(PK):PE177PE1814980E~PQ,0:M1PE176EM11N10: FDE2Ė8:"AND A CAMERA LENS F.L. OF ";FC;" MM"_DE3Ė8:"& EYEPIECE--> FILM = ";ED;" IN"pDE3$(E3$,5)D8:"WITH ";PL$;" AT ";E3$;" ARCSECS D."D$D.:5:9::"ENTER MOON PHASE OF INTEREST"::D8:10:"ENTER '1' FOR THIN CRESENT"$E82:3500CE84:3500ICMO1AA$"Y"VT20:400:AA$"Y"MO14400[CAA$"Y"ĺP0$eC4700{CE80:AA$"":3500C:E80::1120C::X$"SET UP CONDITIONS:":420:C:8:OA;" INCH TELESCOPE WITH A"C8:"FOCAL LENGTH OF ";OF;" IN"1:14:7:"5). EXIT TO OTHER PROGRAMS"OBp17:16::"WHICH? (1-5) ";::" ";:pBrPE(PK):PE177PE1814722BtPQ,0:POPE176BzMO1PO2ĺ:13:I$:4720BMO1PO3ĺ:13:I$:4720BPO4750,4760,4770,4810,4820BAA$"X":E81:3530 CEH(12):P0$8AR24:8:"PRESS RETURN TO CONTINUE";XX$A\::3:17:"PHOTO CHOICE"::6:7:"1). CHANGE SETUP, SAME OBJECT":8:7:"2). CHANGE PLANETS, SAME DATE"%Bf10:7:"3). ANOTHER DATE, PLANETS ONLY":12:7:"4). INTERCHANGE MOON <==> PLANETS""WARNING! EXCEEDS 1 SEC":!@2@:MO14780J@X$"IMAGE WILL BE "]@ O(((O),3))@X$X$(O)" MM IN DIAMETER":420@ @*AA$"Y"O3ĺ(27)4"WARNING! IMAGE TOO SMALL":(27)5:4670@4O3Ė10::"WARNING! IMAGE TOO SMALL":@> A?AA$"Y"MO1ĺP1$:4550%?X1EXL?EX1EX(EX.5):EX$(EX):4550o?EX((1EX).5):EX$"1/"(EX)?X$"THE EXPOSURE IS ABOUT "EX$" SEC":420??AA$"Y"X11.5Ė10:(27)4"WARNING! EXCEEDS 1 SEC":(27)5:4590@X11.5ĺ::10:#>vE3X$"OF "(FE)" MM":420+>:>MO1EX.001ĺP0$:"ASA TOO FAST FOR ";M1$::"PRESS RETURN TO ENTER NEW ASA # ";:A$::E83:3920>MO2EX.01ĺP0$:"ASA TOO FAST FOR ";PL$::"PRESS RETURN TO ENTER NEW ASA # ";:A$::E83:39201;" FILM":4420l=:X$"TO PHOTOGRAPH "PL$" ON "(M)"-"(D)"-"(Y):420:11:" USING ASA ";E1;" FILM"r=D=NE1EQ$"FILM AT PRIME FOCUS"=XE2EQ$"CAMERA/EYEPIECE COMBINATION"=bE3EQ$"PROJECTION FROM EYEPIECE">lX$"WITH "EQ$:420M14M1$"GIBBOUS")<M15M1$"FULL"3<::E<AA$"Y"ĺP0$g<5:"ASA RATING OF FILM? ";E1<E10ĺ:15:I$:4340<AA$"Y"ĺP1$<<EXEFL2(NE1)<&::=0MO1X$"TO PHOTOGRAPH THE MOON AT "M1$:420::11:"USING ASA ";E::<MD$((6.68MQ),5)5FVD$((16.82VQ),5)GPAA$"Y"ĺP1$rZ"FOR YEAR ";Y;" MONTH ";M;" DAY ";D:d"---------------------------":nMQ$((MQ),4)xVQ$((VQ),4)E$"2"ī1450"DISTANCE OF MERCURY ";MQ$;" A.U")15)L0:LF10:::#F90:NT1K10:"SELECT INTERVAL (DAYS) ";ND:10:"SCROLLED DISPLAY? Y/N ";:975:PE206F91:10:"HOW MANY INTERVALS? ";NS :400:P0$:25601880: GET DISTANCE FROM EARTH::(1330:18202:MT3020,3030,1230~3AA$""XX$"E"ĺRM$tAA$"N"XX$"E"ė:8:"DO YOU NEED TOP OF FORM? Y/N ";:975XX$"E"PE217ĺP1$:(12):P0$:RM$XX$"E"AA$"N"ĺ:P0$:RM$AA$"Y"XX$"E"ĺP0$:RM$AA$""MT4ĺRM$ FION M*V*S - ANY DATE":"(2).NEXT ELONG. M/V -- AFTER ANY DATE":"(3).PLOT INTERVAL POSITIONS M*V*S":"(4).RETURN TO MAIN MENU"L23:15::"CHOOSE ONE ";::" ";VPE(PK):PE177PE1801110`PQ,0:::MTPE176j::1:10::PR$::34,2t7033::40):I412:I:1:" ":I:40:" ":IF13:1:80):$5:19:"BY":7:12:"RICHARD L WIESEN MD":9:14:"12 AUGUST 1984".X$" ** MERCURY & VENUS **":PR$X$:2:435816:X$"YOUR CHOICES ARE: ":430~B18:"(1).ANGULAR SEPARAT YES OR NO ANSWER SUBROUTINE):" ";MPE(PK):(PE206PE217)977]PQ,0:::t1030: 1ST PASS:10:"ENTER 'E' TO EXIT 'RETURN' TO CONTINUE ";::" ";:PE(PK):PE197PE1411020:PQ,0::PE197XX$"E":1190::9*(M4M6M9M11)MM1:DD30:502FD31MM1:DD31:502]M12MM12:YY1cPK49152:PQ49168:P0176:P9185:P0$(4)"PR#0":P1$(4)"PR#1":P0$:RM$(4)"RUN MENU":ACO(X)(X(XX1))1.5707963:P13.14159:P26.28318:S24TP7TS24TSTS24,TZ7TTR(I)T2160?Td7TT0TTTT24STn7TT24TTTT24YTx75fS6TZ0S7TR(BR(I)TZT2).99727S 7TRTR160S7TR0TRTR24S7TR24TRTR24S(7CTA15S27TS(CR(I)TZT2).99727S<7TSTS360TF7TS0TST(I)))S6TA0TA(TA):140400S6TA0TATA@S6TAACO(TA)PS6TADEG(TA)]S6BTA15fS6TZ0S7TR(BR(I)TZT2).99727S 7TRTR160S7TR0TRTR24S7TR24TRTR24S(7CTA15S27TS(CR(I)TZT2).99727S<7TSTS360TF7TS0TSTURN"R6315)"G) URANUS"/R@315)"H) NEPTUNE"CRJ315)"I) PLUTO"VRT315)"J) MOON"\R^3Rh314::"WHICH? (A-J) ";::" ":Rr3PE(PK):PE193PE20213170R|3PQ,0:CIPE192::R6 CALC RISE, TRANSIT, AND SET TIMESS6TA(RAD(LA))(RAD(V&QH0(DE$)10(DE$)10DE$(DE$,4),QR0MQ2 PICK PLANET, SUN, OR MOONVQ2P0$_Q2:5Q210::"SELECT DESIRED OBJECT":Q2Q215)"A) MERCURY"Q315)"B) VENUS"Q315)"C) SUN"Q315)"D) MARS"Q"315)"E) JUPITER"R,315)"F) SAT0P/ALTALALT:12250(P/ALLMDAL:P/AL0ALALTLP/ALTALALTgP0HE5.1454(ALPI180)P 0DMHE23.1444(LMDPI180)P0:P 0RA$(RM):DE$(DM)P*0RA$(RA$,5):DE$(DE$,5)P40(RA$)10RA$(RA$,4)P>0(DE$)9DE$(DE$,5):0LMDLMDT:12140.Ov/LMDHLMDLMDH:12150JO/LMDTLMDLMDT:12160XO/RMLMD15sO/RM24RMRM24:12180O/RM0RMRM24O/ALLENI.052954O/ALHALALH:12210O/ALTALALT:12220O/AL0ALALT:12230P/ALHALALH:1224N.LP255.7433%N/PG.111404NILP?N/PGTPGPGT:12050SN/PG0PGPG360lN&/PGTPGPGT:12070N0/LMDLZTNI27.32158N:/PGLMDPGND/DR6.2886(RAD(PG))NN/LMDLMDDRNX/LMDHLMDLMDH:12120Nb/LMDTLMDLMDT:12130Ol/LMDT ASK FOR A"M2-15:3:"PRINTOUT UNTIL YOU HAVE FOUND":16:3:"A SATISFACTORY COMBINATION.":19:3:"MOON PGM DOESN'T INCLUDE IMAGE SIZE."M<-22:8::"PRESS RETURN TO CONTINUE ";A$:MF-E95:M. RA AND DEC OF MOONM.LZ311.1687N.LE178.699YOUR ASTROPHOTO SET UP; THEN"PL-6:3:"COMPUTES THE FILM IMAGE SIZE FOR THE"}L -7:3:"SELECTED PLANET & DATE ENTERED."L-10:3:"EXPOSURE VALUES ARE BASED ON THE"L-11:3:"TYPE OF SET UP & FILM SPEED ENTERED" M(-14:3:"TO SAVE PAPER, DO NOTAILS FOR DISPLAY"B- "MERCURY (1); VENUS (2); OR BOTH (3) ";SD$R- (SD$)3ı_- E$SD$:- "INVALID RESPONSE"::2970- 400:3040- 3690- 200: GET DISTANCE FROM EARTH- ::- 3070:3460- MD$((6.68MQ),5). VD$((16.82G MERCURY,J MX(MW$)",T AP$""L,^ MX13M7M12AP$"FAVORABLY":2960{,h MX18M7M12AP$"VERY FAVORABLY":2960,r MX13M1M7AP$"FAVORABLY":2960,| MX18M1M7AP$"VERY FAVORABLY":2960, AP$"UNFAVORABLY", - "SELECT DE;:975:P1$:(12):4980A+ PE217E$"3":OP1:1330:E$"":OP0r+ P0$:"DO YOU WANT ANOTHER DATE Y/N? ";:975+ PE217AA$"Y"ĺP1$:(12):P0$:AA$"":1230+" PE2171230+, ::1010+6 500: SUB FOR MONTH END ADJUSTS ,@ SUB FOR VIEWIN 2600* 13303* SD$"3"E$"":SD$""::2830H* OP1OP0:2830* P0$:"WANT THE OTHER PLANET? Y/N ";:975:AA$"Y"ĺP1$* PE217E$"1"E$"2":PE0:1330:2810* PE217E$"2"E$"1":PE0:1330:2810+ P0$::"WANT BOTH PLANETS? Y/N " )2 :$)< 1910:VW$(VW57.29578)A)F MW$(MW57.29578):2280S)P F91ė:::)Z "DISPLAY ";NT;" IS DATE ";YI;" ";MI;" ";DI::2470)d NTNSĺ:)n NTNSİ2970)x NTNSė:2750) ) DDND) 2870) YIY:DID:MIM) FL1:NTNT1*(0),1);$( M220.8((U$(1),5))2:( M2);(U$(1),1);W( M320.8((U$(2),5))2l( M3);(U$(2),1)z( :FR(0)( ( : ROUTINE FOR ELONGATIONS( 2580: LOOKS ILLEGAL( :100: GET DATE( FL0)( 50: CALC DAYS FROM EPOCH '8 Z$(I)"999"2440 'B JI26'L Z$(J)"999"2400W'V (Z$(J))(Z$(I))IJ:2400^'` Jz'j U$(K)Z$(I):Z$(I)"999"'t KK1'~ I1' I' ' AA$"Y"ĺP1$:"VISUAL CONFIG. RELATIVE TO SUN"' ' M120.8((U$(0),5))2( M1);(U$(DEVQ))&VW2ACO(VV)7&(VZ)P1VZ0VZVZP2S&(VZ)P1VZ0VZVZP2d&VZ0VWVWj&& SHOW SUN AND PLANETS&Z$(0)MW$"M":Z$(1)VW$"V"&Z$(2)(0)"0": COULD BE + "O"& I02& U$(I)"999"& I&$ K0&. I02%R(ZM)P1ZM0ZMZMP2,%\ZM0MWMWW%f300:2180: CALC VENUS' POSITION ]%pg%z1300% CALC DISTANCE FROM EARTH IN AU%VQ(VD2DE22VDDE(ZV))%VP(VDDEVQ)2% CALC ANG. DISTANCE FROM THE SUN &VV((VP(VPVD))(MZ)P1MZ0MZMZP25$(MZ)P1MZ0MZMZP2]$  CALC DISTANCE FROM EARTH IN A.U.$MQ(MD2DE22MDDE(MZ))$ MP(MDDEMQ)2$* CALC ANG. DIST FROM SUN$4MV((MP(MPMD))(DEMQ))$>MW2ACO(MV)$H(ZM)P1ZM0ZMZMP2.0172021.740224#AEP2AE((AEP2)(AEP2))P2M#AE0AEAEP2:1950j#CE.032044(AE1.78547)w#AEAECE#AEP2AEAEP2#AE0AEAEP2:1990#DE1.017(AE3.33926)#260: CALC MERCURY'S POSITION #MZAEMA#ZMMZ$ATE Y/N ? ";:975::400:FR(0):"&AA$"N"PE217ī1230N"0PE206ė:1870Z"::::d"D1230n"N1010"X FIND ANGULAR DIAMETER"b:::"l50: CALC DAYS FROM EPOCH "v CALC DIST. FROM EARTH" AND ANG. DIST. FROM SUN#AENIī1750%!"MERCURY'S PHASE IS ";PH$F!5)PH;" DEG. ILLUMUMINATED"L!^!E$"1"ī1780v!PH(VW)(ZV):450!"PHASE OF VENUS IS ";PH$!5);PH;" DEG. ILLUMUMINATED"!:P0$!2280!2460! "P1$:(12):P0$:"WANT ANOTHER D"ANG. DIAM. OF MERCURY IS ";MD$;2 J" ARCSEC"^ T"(AT INFER. CONJ. DIAM. IS 12 ARCSEC)"p ^E$"1"ī1680v h r"ANG. DIAM. OF VENUS IS ";VD$; |" ARCSEC" "(AT INFER. CONJ. DIAM. IS 61 ARCSEC)"  PH(MW)(MZ):450!E$"2"T FROM SUN ";MW$;" DEG."(2880P2)"(LOCATED ";AP$;" FOR VIEWING)"dE$"1"ĺ:1590"ANG. DIST. OF VENUS FROM SUN IS ";VW$;"" DEG.",E$"3"(SD$)3ĺP0$:"PRESS RETURN TO CONTINUE ";A$:::AA$"Y"ĺP1$6E$"2"ī1650# @"OR ";(((MQ92.9),5));" MILLION MILES";E$"1"ī1470d"DISTANCE OF VENUS IS ";VQ$;" A.U."15)"OR ";(((VQ92.9),5));" MILLION MILES"MW$((MW57.29578),4)VW$((VW57.29578),4)E$"2"ī1560"MERCURY'S ANG. DIS0.5)1.002737909)"S0SS243S24SS249:(4)"OPEN MDATA":(4)"READ MDATA":I1110:W$(I):I:(4)"CLOSE MDATA"::(4)"OPEN NDATA":(4)"READ NDATA":I1111:W$(I):I:(4)"CLOSE NDATA": (MO$,2,1)"."MO$"0"MO$IME OK? Y/N ";:975:PE206ė::PQ,0:6002b:r454:DJ2451545:FFTZ24:TD36525:T1(T):J0T1365252451545:T2(JJ00.5)36525:S24110.54841184.812866T1:SS8640184.812866T2:SS0.093104TT:SS0.0000062TTT:SS86400:SS(S):S24(S(F(O)1O(O)H60:OO1!>X::"LOCAL TIME OF INTEREST?"::"ENTER IN THE FORM ";::"HOURS:MINUTES"::" USING A 24 HOUR CLOCK."::"FOR EXAMPLE, 11:15 PM IS ENTERED AS":14::"23:15":*`12:17::" ";::":";::" ";:900:16:15::"T40DD10:4360-:CK.1CK.1DD1:4360D:D30MM1:DD30X:M12M1:YY1g:V2VS:FL1p:&364z:04200::::::D400:"NEXT ELONGATION OF VENUS IS ";Y;" ";M;" ";D:NMWVW::4010+MAR THRU DEC @DGDG(M.42.3)(Y4)((MW$(MW57.29578))9:YIY:MIM:DID?9YI;" ";MI;" ";DIM9::::|9VW$(VW57.29578):350:(4);"PR#0":36009:::9P0$:209VSVW57.295789FL0(VS)45DD20:43609CK(VS)(V2)9CK.05CK.054410:(VS)):P0$8E$"2"PE217ī418088"E$"1"PE217ī3750@8,:s86P0$:"DO YOU WANT ANOTHER PLANET Y/N? ";:9758@PE217ī36908J:10108T:100: GET DATE8^FL08h50: CALC DAYS FROM EPOCH8r208: CALC FOR EARTH AND PLANETS8|9 (A MORNING STAR)"/7"AND THE PLANET IS...."57A75);P$K73550|7P0$:"DO YOU WANT MORE DETAILS Y/N? ";:9757PE206ė::41107PE217ė:400:::30707:35508P0$:"DO YOU WANT ANOTHER DATE Y/N? ";:975:AA$"Y"ĺP1$:(12PCK.1CK.1DD1:393026ZD30MM1:DD30F6dM12M1:YY1U6nD2DS:FL1^6x364h637706:P0$:400::::6"NEXT ELONGATION OF MERCURY ";Y;" ";M;" ";D6:6MW0P$"EAST OF SUN (AN EVENING STAR)":40307P$"WEST OF SUN55:YIY:MIM:DID/5YI;" ";MI;" ";DI=5::::l5MW$(MW57.29578):350:(4);"PR#0":3600x5 :::5P0$:205DSMW57.295785(FL0(DS)20DD5:393052CK(DS)(D2)5<CK.05CK.0539805F(DS)15DD5:39306: ROUTINE FOR ELONGATIONS$4t::?4~"SELECT MERCURY (1)"^4" OR VENUS (2)";E$v4E$"1"İ3750:4010441804:100: GET DATE4FL0450: CALC DAYS FROM EPOCH4208: CALC FOR EARTH AND PLANETS4VW$(VW57.29578) ";YI;" ";MI;" ";DI3 !3 20'3D3M120.8((E$(0),5))2Z3M1);(E$(0),1);w3$M220.8((E$(1),5))23.M2);(E$(1),1);38M320.8((E$(2),5))23BM3);(E$(2),1)3L::FR(0)3VMT1ĺ:I12500:::P0$:10103`4jC2 P1$:(12):P0$:"WANT ANOTHER DATE Y/N ? ";:975:400:FR(0)]2 AA$"N"PE217ī3040q2 PE206ė:35202 ::::30402 10102 30402 "FOR VISUAL CONFIGURATION PRESS RETURN";A$2 ::MT1AA$"Y"ĺP1$3 "VISUAL CONFIGURATION ON 1 PH(MW)(MZ):450-1* E$"2"ī3400]14 "MERCURY'S PHASE ";PH$;" ";PH;" DEG ILLUM"o1> E$"1"ī34601H PH(VW)(ZV):4501R "PHASE OF VENUS ";PH$;" ";PH;" DEG ILLUM"1\ :(4);"PR#0"1f E$"2"34601p 3501z 35401 :1 MT2ıUS' ANGULAR DIST. FROM SUN ";VW$;" DEG."/0 A0 E$"2"ī3330o0 "MERCURY'S ANG. DIAMETER ";MD$;" ARCSEC"0 "MAX AT INFER. CONJ. IS 12 SEC"0 E$"1"ī33500 0 "VENUS' ANG. DIAMETER ";VD$;" ARCSEC"0 "MAX AT INFER. CONJ. IS 61 SEC"1"1"ī32000/l "DISTANCE OF VENUS ";VQ$;" A.U."a/v 10)"OR ";(((VQ92.9),5));" MILLION MI."g/ / MW$((MW57.29578),4)/ VW$((VW57.29578),4)/ E$"2"ī3260/ "MERCURY'S ANG. DIST FROM SUN ";MW$;" DEG."/ E$"1"ĺ:3280)0 "VENVQ),5). AA$"Y"ĺP1$C. "FOR YEAR ";Y;" MONTH ";M;" DAY ";D:h.& "---------------------------":{.0 MQ$((MQ),4).: VQ$((VQ),4).D E$"2"ī3180.N "DISTANCE OF MERCURY ";MQ$;" A.U".X 10)"OR ";(((MQ92.9),5));" MILLION MI." /b E$D$((HD),2):(HD$,2)"."HD$"0"(HD$,1))HD$(HD$,2)::16:8:"R.A. = "(R2)" HRS "HD$" MIN":DH((O)((O)))60:DH(DH).5DH(DH)1)DH$((DH),2):(DH$,2)"."DH$"0"(DH$,1))DH$(DH$,2):(O)1OB$"-"(((O)))**(O)0ST%(AZ270ĺ:12:8:"OR DUE WESTi(AZ270AZ316AZAZ270:12:8:"OR "AZ" DEGREES NORTH OF WEST(AZ315AZ360AZ360AZ:12:8:"OR "AZ" DEGREES WEST OF NORTH(:14:5:"DETAILS ABOUT "NS$:HD(R2(R2))100:HD(HD).5HD(HD)1,)HREES SOUTH OF EASTV'XAZ135AZ180AZ180AZ:12:8:"OR "AZ" DEGREES EAST OF SOUTHz'bAZ180ĺ:12:8:"OR DUE SOUTH'lAZ180AZ226AZAZ180:12:8:"OR "AZ" DEGREES WEST OF SOUTH(vAZ225AZ270AZ270AZ:12:8:"OR "AZ" DEGREES SOUTH OF WEZ(AZ$):AZ(AZ):AZ0AZ360ĺ:12:8:"OR DUE NORTHm&0AZ0AZ46Ģ12:8:"OR "AZ" DEGREES EAST OF NORTH&:AZ45AZ90AZ90AZ:12:8:"OR "AZ" DEGREES NORTH OF EAST&DAZ90ĺ:12:8:"OR DUE EAST'NAZ90AZ136AZAZ90:12:8:"OR "AZ" DEGĺ:8:5:"THE COORDINATES OF "NS$" ARE:e%10:8:(AL$,1)"-"ĺ(AL$,1,4)" DEGREES ABOVE HORIZON%10:8:(AL$,1)"-"ĺ(AL$,2,4)" DEGREES ";::"BELOW";::" HORIZON%F2AZ360AZ6&AZ$((AZ),5):11:8:"AT COMPASS POINT "AZ$" DEGREES":AL),2):(CL$,2)"."CL$"0"(CL$,1)v$CL$(CL$,2):6:5:"ON "Z$" AT "(F1)" HRS "CL$" MIN":DS$"Y"T1$"DAYLIGHT$DS$"N"T1$"STANDARD$7:5:T1$" TIME":AA$"Y"ĺ:8:5:(27)(52):"THE COORDINATES OF "NS$" ARE:"::(27)(53)(%AA$"N"0AAP#A0AA2P_#"ALHR1:AZAR1:AL$((AL),5):AZ$((AZ),5):AA$"Y"ĺ:P1$::#T:4:5:"FOR LOCATION "L$" DEGREES W LONG.":5:5:"AND "B$" DEGREES N LAT. ":CL(C$)24:F1(CL):CLCLF1:CLCL60:CL(CL).5CL(CL)1$$CL$((C500:i"n300:DAR1:BBR1:LLR1:T5TRL:S1(B)(D):S1S1(B)(D)(T5):C11S1S1:C10C1(C1)"C101480:H(S1C1):1490"H(S1)P2"C2(B)(D):C2C2(B)(D)(T5):S2(D)(T5):C20A(S2)P2#C201560:A(S2C2):C20:626:TS15R1:T3$(T)4!MT2FL3İ2230:1350O!(MT3FL4İ2320:1350d!2MT2İ700:2230y!<MT3İ750:2320!FMT1FL2ĺ:A$R9$:A2((R8$,2)):A30:1370!PLF1:330:!Z300:RA15R1:MT1FL2A$O9$:A2((O8$))60:A30:1390"dAIN MENU":24:15::"CHOOSE ONE ";::" ";:{ PE(PK):PE177PE1811180:PQ,0:MTPE176:MT4MT51290:MT42470 RW0XX$"E"ĺ::RM$ RW0RW5ĺ:P1$:(12):P0$ RW5ĺ:P1$:(12):P0$ :P0$::RM$! P3.14159265:R1P185Wt14:X$"USING JULIAN OR GREGORIAN CALENDAR":435:16:X$"YOUR CHOICES ARE: ":430- 18:5:"(1). HORIZONS FOR ANY OBJECT":5:"(2). HORIZONS FOR 'M' OBJECTS":5:"(3). HORIZONS FOR 'NGC' OBJECTS":5:"(4). INTERPOLATION HELP":5:"(5). RETURN TO M)(13):W$(111):B43.1:L88.14:G1:TZ6:B$(B):L$(L)::3::40):I412:I:1:" ":I:40:" ":IB13:1:80)::5:20:"BY":7:12:"RICHARD L WIESEN MD":9:15:"8 JULY 1984":2:PR$" ** ALTAZIMUTH CALCULATOR **":3:X$"FOR ANY DATE"C43:RW0:1050O:10:"ENTER 'E' TO EXIT 'RETURN' TO CONTINUE ";::" ";:PE(PK):PE197PE1411030:PQ,0:PE1971220h::PK49152:PQ49168:P0176:P9185:P0$(4)"PR#0":P1$(4)"PR#1":P0$:RM$(4)"RUN MENU":I$"INVALID RESPONSE"(8:HT:PE;:HTHT1:HT19HT20PQ,0:TT$TT$(PE):(TT$)4905:C((TT$,2)):C4((TT$,2)):LF1A$(TT$,2):A2C4:A30:R2CC4100:LF2F(I)CC460:CCC460:CC24:C$(C)::" ";PE(PK):(PE206PE217)977:PQ,0::R$) fHT17:TT$"+:HT:" ";:PE(PK):(PEP0PEP9)PE141910:PE141(TT$)1910:PE141Ė17:" "TT$;:PQ,0:TT$"0"TT$:HT20:905HT17PE178TT$"0":HT:" ";:HTHT1HT18TT$"2"PE179905:HT20PE181905:PEPEP0*(MO$,1)"."MO$"00"MO$4R$(MO$,5):R2(R$):R9$(R$,2):R8$(R$,3,3):R$(MO$,6,7):O(R$):(R$,1)"-"O9$(R$,3):O8$"."(R$,4,4):840BO9$(R$,2):O8$(R$,3,5)HCO$(MO$,13,3):T$(MO$,16,2):R$(MO$,2):G(R$):G0R$(MO$,1):G(AY";::" "X$" ";::"IS";::" "(F)" HR/S "(F9)" MIN "(F8$,2)" SEC96 17::"OR";::" "F" DECIMAL"::P0$:23:5:"PRESS RETURN TO CONTINUE ";XX$:27709@ P0$:J Q$"R"ė:10:8:"NEED DEC. DATA FOR "NS$"? Y/N ";:975:PE217ĺ:Q$"D":X$""::28$"0"F8$:2860u8 (F)1F7(F):F9F7(F7):F9F960:F8F9(F9):F8F860:F8$(F8):(F8$,2,1)"."F8$"0"F8$8" (F)1Ğ:"DEC. FOR DAY";::" "X$" ";::"IS";::" -";(F7);" HR/S ";(F9);" MIN ";(F8$,2);" SE":2870F9, Q$"D"Ğ:"DEC. FOR D(F9):F8F860:F8$(F8):(F8$,2,1)"."F8$"0"F8$7 Q$"R"Ğ:"R.A. FOR DAY";::" "X$" ";::"IS";::" "(F)" HR/S "(F9)" MIN "(F8$,2)" SEC7 Q$"D"(F)128408 Q$"D"ĺ:F9F(F):F9F960:F8F9(F9):F8F860:F8$(F8):(F8$,2,1)"."FX$:::"INTERPOLATION FOR "NS$" "M"-"Y:X$"X"2890:X(X$):F10:I1N:XX(I)2780:FF(I):F116 I:F112870:T1:F0:I1N:TT(XX(I)):I:I1N:FFL(I)T(XX(I)):I:AA$"Y"ĺ:P1$6 (X$)2X$"0"X$47 Q$"R"ĺ:F9F(F):F9F960:F8F9ER DAY OF MONTH NUMBER";::" ";X(I):Q$"R"LF2:330:Y5n Q$"D"LF2:DE$""::502:5x I:I1N:L(I)1:J1N:JI2730:L(I)L(I)(X(I)X(J))5 J:L(I)F(I)L(I):I:b6 ::P0$::4:8:Z$:10:5:"TO QUIT ENTER 'X'";::" ";:"DESIRED DAY? "; FOR "(M)"-"(Y):425:P0$j4 X(N),F(N),L(N)::10:13::"R.A. OR DEC.? R/D";::" ";::" ";:42 PE(PK):(PE210PE196)2610:PQ,0:PE210Q$"R4F PE196Q$"D85P I1N:::4:5:"ENTERING DATA POINTS FOR:";::" "NS$::6:5:"ENT(PK):PE178PE1852540:PQ,0:NPE176::10:5::"ENTER NAME OF OBJECT";::" ";NS$:PR$"INTERPOLATION FOR "NS$"4 ::10:5:"ENTER YEAR AND STARTING MONTH":I11000:I:LF7:100:Z$"VALUES FOR DAYS OF "(M)"-"(Y)::400:AA$"Y"İ425::PR$" OF DAYS":5:5:"THAT YOU HAVE DATA FOR":6:5:"EITHER R.A. OR DEC.":8:5:"DAYS MUST BE CONSECUTIVE":9:5:"FOR EXAMPLE, IF DAY # STARTS":10:5:"IN MAY, THEN JUNE 1 = DAY # 322 :14:5:"HOW MANY DATA POINTS? (2 TO 9)";::" ";::" ";:s3 PENTER DESIRED N.G.C. OBJECT ";::"NUMBER ";E$::E(E$):E1E7800ĺ:5)I$:23801` I1111:MO$W$(I):((MO$,4))EMO$(MO$,5,(MO$)):NS$"NGC "(E):800:1t I:I112ė:12:10:"NGC "E" NOT ON LIST":I1700:I:23202 :4:5:"ENTER NUMBER ,4559,4565,4725,4361,4216,4388,4438,4473,4517,4526,4535,4697,4699,4762,5746,5907,6503, AND 65430B ::"SUMMER OBJECTS ARE :";::" 6207,6210,6369,6572,6633,6712,6819,6826,6960,6992,7000,7027,6445,6818,6802,6940,6939,6946,7129,40,7209, AND 7243R1L :"E,2261,2359,2438,2440,2539,2403, AND 2655/. ::"SPRING OBJECTS ARE :";::"2683,2841,2985,3077,3079,3184,3675,3877,3941,4026,4088,4111,4157,4605,3115,3242,3344,3432,2903,3384,3521,3607,";_08 "3628,4214,4244,4449,4490,4631,4656,5005,5033,4274,4494,4414 FL4:2:10::"N.G.C FINE OBJECTS"::3::"AUTUMN OBJECTS ARE :";::" 7009,7293,7331,7789,185,281,457,663,7662,891,253,772,936,869,884,1023,1491,1501,1232,1300,AND 1535(/$ ::"WINTER OBJECTS ARE :";::" 1907,1931,1788,1973,2022,2194,2158,2392,2244,75,11,26,56,57,71,27,29, AND 39y-::"AUTUMN OBJECTS ARE:";::" 2,72,73,15,30,52,103,31,32,110,33,74,77,34, AND 76.-22:"ENTER DESIRED MESSIER OBJECT ";::"NUMBER ";S$::S(S$):S1S110ĺ:5)I$::2280-MO$W$(S):NS$"M-"(S):800:." 44,67,40,81,82,97,101,108,109,65,66,95,96,105,53,64,85,88,91,98,99,100,49,58,59,60,61,84,86,87,89,90,104,3,51,63,94,106,68,83,102, AND 5. -::"SUMMER OBJECTS ARE:";::" 13,92,9,10,12,14,19,62,107,4,6,7,80,16,8,17,18,20,21,22,23,24,25,28,54,55,69,70(B$):L(L$)0+pPE217MT1ė:400:P0$:1360^+PE217MT21310:PE217MT31320:1020+FL3:2:13::"MESSIER CATALOG"::4::"WINTER OBJECTS ARE:";::" 1,45,36,37,38,42,43,78,79,35,41,50,46,47,93, AND 48.,::"SPRING OBJECTS ARE:";::(O)1OB$((O))r*48)"DEC. = "OB$" DEG "DH$" MIN":MT22110:8)"CON. = "CO$:8)"TYPE = "T$:8)"MAG. = "G*>D$(4):20*HAA$"Y"ĺ:P1$::"DATE PRINTED: ";X1$*\P0$:24:5:"ANOTHER OBJECT SAME TIME ? Y/N ";:975 +fDE$""::T(T3$):B21.48798021))) zFL1ī2260; S10S10(S1):2200P S10S10(S1)k S20S20(S2):2220 S20S20(S2) S30S30(S3):2240 S30S30(S3) S40S40(S4):2260 S40S40(S4) L1ī2480 :400!(J)))2)))4I3I357.2958*>P1P1173RH CALC RADIAL DISTANCE FROM JUPITERRS15.906(RAD(AI3P3(P1203.405863)))\S29.397(RAD(BI3P3(P1101.2916323)))fS314.989(RAD(CI3P3(P150.23451687))) pS426.364(RAD(DI3P3(P1.9025179221.647 ZZP2:557*P2ZZZP2P2((RAD(2P1))50)((RAD(P1)).521)P3((RAD(2I2)).1673)((RAD(I2))5.5372) P2P2P3P1(28.07((RAD(P2))10.406)) J((RAD(P2))P1) *I357.2958((((RAD(J)))(1((RAD23451687109.97702 bZZC:557)lCZZGvDI21.48798021176.35864UZZD:557^DZZ} ORBITAL MOTION IN PERIOD EARTH AND JUPITERP1I.9856003358.476ZZP1:557P1ZZI2I.0830853225.328ZZI2:557:I2ZZP2I)30.6001)DC$YZ(YC100)E CALC DAYS SINCE 1900 EPOCHdITDYZ2(YZ4)694025.5 DEG/DAY*NUMBR DAYS + POSTN AT EPOCHAI203.4058684.55061&ZZA:5570AZZ:BI101.291632341.50155DZZB:557NBZZXCI50.DA29)M3:DA1:1680&rDA311680O|(M4M6M9M11)MM1:DA1:1680eDA31MM1:DA1yM13M1:YY1FL11710YPY:MPM:DPDATUT24YCY:MCM:DCDATMC21760YCY1MCM12 TD(365.25YC)((MC1N24ĺ"INVALID RESPONSE"::1530,:::Q"PROGRAM RUNNING...PLEASE WAIT"Y"L1m,YPY:MPM:DPDA{6L11610@UTLTTZJ CORRECT FOR DAY MONTH AND YR ENDSTUT24UTUT24:DADA1^(LY1M2DA30)M3:DA1:1680h(LY0M2"DAYLIGHT SAVINGS TIME? Y/N ";:975:PE217TZTZ1:DS$"Y"F:800L:10:7:"HOW MANY DISPLAYS (1 TO 5)? ";::" ";PE(PK):PE177PE1811500PQ,0:::NDPE176:8:5:"WHAT IS INTERVAL (UP TO 24 HR)? ";IN IN0I Z::<d"DO YOU WANT SOUTH AT THE TOP (Y/N)? ";:975SnPE217FL1:1410\xFL0yRAD(X)(X)3.14159180:::100: ENTER DATE:15)"TIME ZONE?";:TZ$:TZ(TZ$)TZ12TZ12ĺ"INVALID RESPONSE"::1440;:::8)1)"RELATIVE POSITIONS":L("YOU CAN CHOOSE TO HAVE THEM SHOWN WITH"z2"NORTH AT THE TOP, OR WITH SOUTH AT THE"<"TOP AS SEEN IN A TELESCOPE, AND YOU"F"CAN SELECT UP TO FIVE DISPLAYS OF THEIR"P"CONFIGURATIONS AT UP TO 24 HRS APART":J15025010:J,78J5,78:J(138EX),(78EY):(138MX),(78MY):269,76:270,79:270,78:270,77:269,76:268,76:267,77:271,76:272,76:273,77:37,77:136,76:140,80:139,81:138,81:137,81:136,80:138,75:137,75:139,75:140,76:139,75:140,76S PRESS RETURN KEY ";Q$:AA$"Y"ĺP1$>YYI:MMI:DDI:1060AD50:DM75:EYAD(AE):EX1.5AD(AE):MYDM(MA):MX1.5DM(MA)::138,78:139,79:137,77:136,76:140,80:139,81:138,81:137,81:136,80:138,75:137,75:139,75:140,76:139,75:140,76:1690,|R18R20C$"SAGITTARIUS":1690RR20R22C$"CAPRICORNUS":1690nR22R24C$"AQUARIUS::AA$"Y"ĺP1$AA$""ė:400%"NEXT OPPOSITION OF MARS IS "YI" "MI" "DI:"IN THE CONSTELLATION OF "C$::P0$:"FOR FURTHER DETAILCES":1690(,R2R4C$"ARIES":1690G6R4R6C$"TAURUS":1690f@R6R8C$"GEMINI":1690JR8R10C$"CANCER":1690TR10R12C$"LEO":1690^R12R14C$"VIRGO":1690hR14R16C$"LIBRA":1690rR16R18C$"SCORPIO"3:DD28:1460ED311490:(M4M6M9M11)MM1:DD30:1490\D31MM1:DD31bl1380Z0RAEP1WZ0RAEP1WR57.29578R15R24RR24:1540R24RR24:1550R0RR24:1560 "R0R2C$"PIS640_:T Q$"D"ė:10:8:"NEED R.A. DATA FOR "NS$"? Y/N ";:975:PE217ĺ:Q$"D":X$""::2640k:^ :1020D$;"IN#0"(D$;"PR#0"-X1$(A$,3,2)"-"(A$,6,2)"-19"(A$,9,2): dDD$"":HT23::19:7:"DATE ?":YY$"":9:16:"YEAR: ";::" L POINT":I11000:I::1570w@12:5::"ENTER JULIAN DAY";::" ";J:J$(J):14:5::"JC (0) OR GC (1) ";::" ";TPE(PK):(PE176PE177)1620:PQ,0:::PE176G0rPE177G1|FF0.5:F11690:FF1:JJ1G11710:AJ:1730+A0$:"X$"ENTER JULIAN DAY & DECIMAL FRACTION":430:X$"TO GET":430:X$"CALENDAR DATE & DECIMAL FRACTION":430:10:5::"ENTER FRACTION OF DAY";::" ";F$:F(F$)6(F$,1)"."ĺ::10:17::"ERROR":I11000:I::10:5:"START ENTRY WITH DECIMA:10)" IN DEGREES: ";S610)" IN SECONDS: ";S60V10)" IN ARC SEC: ";S3600_ P0$23:10:"ANOTHER PAIR? Y/N ";:975::PE2061010::FL3:11409NTION?" @12:17::" ";:"H";:" ";:"M";:" ";::".";::" ";:"SEC";:92(S1C1)C:400:.AA$"Y"ĺ:P1$GAA$"Y"RW1İ425:f:4:5)"DATA 1ST STAR: "~:10)"RA = ";A1$10)"DEC = ";A2$:9:5)"DATA 2ND STAR: ":10)"RA = ";A3$10)"DEC = ";A4$:5)"SEPARATION --"5C500:(200:D1AC$2?<"SECOND STAR --":FL2HF310[P200:R2A15C|Z::"SECOND STAR --":500:d200:D2ACnxD((D1D2)2):H1DDA((R1R2)2):H2AAH3H1(D1)(D2)H2S1(H3):C1(1S1S1) S"N"ĺ:(4);"PR#0":(4);"RUN MENU"VAA$"Y"XX$"E"ĺ(4);"PR#0":(4);"RUN MENU"xAA$""MT2ĺ(4);"RUN MENU"~ ANGULAR SEPARATIONP3.14159265:CP180"FIRST STAR --":FL1310 :"FIRST STAR --"200:R1A1(t::1:3::PR$::34,2:FL31270<~:MT1240,1160BgAA$""XX$"E"ĺ(4);"RUN MENU"AA$"N"XX$"E"ė:8:"DO YOU NEED TOP OF FORM? Y/N ";:975XX$"E"PE217ĺ(4);"PR#1":(12):(4);"PR#0":(4);"RUN MENU"#XX$"E"AA$:4357=X$" ** UPDATED: 1 DECEMBER 1984 **":14:435\B16:X$"YOUR CHOICES ARE: ":430L18:7:"(1). ANGULAR SEPARATION":7:"(2). RETURN TO MAIN MENU"V23:15::"CHOOSE ONE ";::" ";`PE(PK):PE177PE1781120jPQ,0:::MTPE176:$( AA$"Y"ĺ(12):(4);"PR#0"H( 12:"ANOTHER DATE Y/N? ";:975Z( PE206ī3000`( v( FL0::970:1380( ::10100'J DA312920'T (M4M6M9M11)MM1:DA1:2920'^ DA31MM1:DA1'h M13M1:YY1'r LL1:1580(| AND ADJUST MONTH ENDS"'" UTUTIN>', UT24UTUT24:DADA1c'6 (LY1M2DA30)M3:DA1:2920'@ (LY0M2DA29)M3:DA1:2920'J DA312920'T (M4M6M9M11)MM1:DA1:2920'^ DA31MM1:DA1'h M13M1:YY1'r LL1:1580(| M1);(B$(0),1);*& M220(.7(B$(1)))@& M2);(B$(1),1);Y& M320(.7(B$(2)))o& M3);(B$(2),1);& M420(.7(B$(3)))& M4);(B$(3),1);& M520(.7(B$(4)))& M5);(B$(4),1)& LNDī2940& INCREMENT FOR INTERVAL' );"GANYMEDE G"(%d "CALLISTO C";20)"!"V%n "--------------------------------------"%x YP;" ";MP;" ";DP;" AT ";LT;" HR ZONE ";:DS$"Y"ĺDS;" ";::"DST"::2700% TZ% " . . . . . . UT ";UT;" HRS ";EM;" ";DA% % M120(.7(B$(0)))& LY0MP2)DP28:2590>$ (MP4MP6MP9MP11)DP30:2590H$ DP31N$ e$ MP0MP12:YPY1t$( L1ī2670$2 AA$"Y"ĺ(4);"PR#1"$< FL1ĺ20);"S":2640$F 20);"N"$P "JUPITER..J";20)"^";30);"IO ..... I"%Z "EUROPA...E";20)"!";30WITH S AT TOP ":2450.# 13)"WITH N AT TOP"6# :i# P0$:4:"FOR GRAPHIC DISPLAY PRESS RETURN";A$o# x# 500# REGENERATE LMT# LTUTTZ# LT0ī2590# DPDA1:LTLT24:DP02590# DP1MPEM1# (LY1MP2)DP29:2590$ (RS ";::"ZONE";::" ";TZ#"$ EMM+". :G"8 8)"IO (I)...... ";S1c"B 8)"EUROPA (E).. ";S2"L 8)"GANYMEDE (G) ";S3"V 8)"CALLISTO (C) ";S4"` :"j 5)"MINUS IS TO THE LEFT OF JUPITER""t 10)"PLUS IS TO THE RIGHT":#~ FL1ĺ13)":::3!4)"DISTANCE IN TERMS OF JUPITER RADII"]!5)"WHICH IS 71,000 KM OR 44,180 MI"c! ! DS$"Y"DSTZ1:"ON ";YP;" ";MP;" ";DP;" AT ";LT;" HRS ";::"DST";::" ";::"ZONE";::" ";DS:2340" "FOR DATE ";YP;" ";MP;" ";DP;" AT ";LT;" H* * * * * * * * * * * * * * * * * * * ": :2:13::"ACKNOWLEDGMENTS"::::" SOME OF THE PROGRAMS ON THIS DISK":"WERE ADAPTED FROM THOSE PUBLISHED BY":"ERIC BURGESS F.R.A.S. IN HIS BOOK":"'CELESTIAL BASIC', PUB. 1982, BY "SYBEX, INC. 23 (4)"BLOAD DD.MAC"::I16::150:I:J715::J:1:" * *":J:36:"* * "::J:I1622::150:I::8:10:"RICHARD L. WIESEN MD":10:15:"PRESENTS":12:9:"COMPUTER ASTRONOMY "(93)(91)x14:12:"FOR THE AMATEUR":I15000::170) " ":2160I p::::13:"CHANGE DATE? Y/N ";:975:PE206ZNZ:::1520_ :ZNZ:100:1620 :AA$"Y"ĺ:P1$:(12):P0$ :RM$ONTINUE TO CALCULATE "T$"?"::18:"Y/N ";:975\PE206T$"LST"T$"LMT":2160 fPE206T$"LMT"T$"LSTP0$:"WANT MORE CALCULATIONS? Y/N ";:975:::::PE2062200:H1$"":M1$"":S1$"":HA$"":H2$"":M2$"":S2$"":HB$"":T10:T20:::::8:"CONTINUE TO CALCULATE "T$"?"::18:"Y/N ";:975\PE206T$"LST"T$"LMT":2160 fPE206T$"LMT"T$"LSTSE(SE):MI(MI):900:H1$(H1):M1$(M1):S1$(S1):P$".":(M1$)1M1$"0"M1$HA$H1$P$M1$S1$:H2$(H2):M2$(M2):S2$(S2):HB$H2$P$M2$S2$:K5)HA$14)RR"/"IM"/"ES23)HB$32)HR"/"MI"/"SE:T1T1INT124T1T124:NDND1:2020K:Z$: "T$:" DEC HRS HR/MI/SE DEC HRS HR/MI/SE":Z$:K1NO:H1(T1):M1((T1H1)100):S1((((T1H1)100)M1)100):700:(T2)24T2T224:1890QbH2(T2):M2((T2H2)100):S2((((T2H2)100)M2)100):HR(T2):MI(T2(T2))60:SE(MI(MI))60:EDG:NDDEEP:11::T$" TIME(S) REQUESTED":::TC.065753:Z$:910::"DATE ";::" "D" "MO$" "YY$::"LOCATION ";::" "L$" ";::"TIME ZONE";::" "ZNLG15::"LONGITUDE";::" "LO:"INTERVAL ";::" "IN" HR(S)":Z$:" "U$" E....... "LOJ6::"WANT TO CHANGE THEM? Y/N ";:975:PE217FL1:1190qTFL0:500:T$"LST"U$"LMT":1660}rU$"LST|300:8:5:"SPECIFY NUMBER OF CALCULATIONS ";NO::10:"AND TIME INTERVALS ";IN::400::AA$"N"ĺ:P0$EP722895:800:DPE176::LT1T$"LMT":15107LT2T$"LST":1510D100::"WANT TO SEE LOCATION CONDITIONS? ";:975:PE217ė:1550PE2061590 8:"LOCATION CONDITIONS ARE..."::" LOCATION NAME... "L$:" TIME ZONE....... "ZN:" LONGITUDIMAL HOURSx:"::::::::::::::::::::::":"TO CONTINUE PRESS RETURN KEY ";A$:::::17::"CONVERT"::::10:"1) TO LOCAL MEAN TIME."::10:"2) TO LOCAL SIDERIAL TIME.":12:13::"WHICH? 1 OR 2 ";::" ";:PE(PK):PE177PE1781470:PQ,0:LT GIVEN":430:(9):X$"LOCAL MEAN TIME":430: <"AND YOU CAN REQUEST CALCULATIONS":"FOR A NUMBER OF TIME INTERVALS"::"TIME MAY BE ENTERED AND DISPLAYED IN":"DECIMAL HOURS OR HRS.MIN.SEC":" USING 24 HOUR CLOCK"::"TIME INTERVALS MUST BE IN DEC::"LOCATION NAME ";L$:"TIME ZONE ";ZN$:ZN(ZN$):"LONGITUDE ";LO$:LO(LO$)-::::ZZN:FL11620:A$"":(4):X$"PROGRAM COMPUTES LOCAL MEAN TIME (LMT)":430:(6):X$"WHEN GIVEN LOCAL SIDEREAL TIME (LST)":430:(8):X$"OR LOCAL SIDEREAL TIME WHENl(F$).5ĺ"UTFvMI1MI.51930:(MI1MI.5)ĺ:MIMI1:1890ZAA$"Y"ĺ:P0$AA$"N"AA$"Y"ĺ:23:8:"PRESS RETURN TO CONTINUE";:"";A$10209:"OR":b:18:5:M"/"(D)"/"Y" AT "HR" HR(S) "(MI)" MIN ";:(F$).5ĺ"AM-UT"F$:12:12::"YIELDS ";::G0ĺ"JULIAN CALENDARP:G1ĺ"GREGORIAN CALENDARD14:13::"DATE: ";::Y", "M", "D:FR(D(D))24:HR(FR):MI(FR(FR))60::16:19:"OR":b:18:5:M"/"(D)"/"Y" AT "HR" HR(S) "(MI)" MIN ";:(F$).5ĺ"AM-UT1((J36524.25)51.12264):AJ1A1(A14)BA1524:C((B365.25)0.3343):D(365.25C):E((BD)30.61):DBD(30.61E)F:ME1:YC4716:E13.5MM12M2.5YY1::4:8:PR$::::AA$"Y"ĺ:P1$2&:10:8:"JULIAN DAY ";::J$" + (9):(16)::"CONVERSION"::J150011:J:::::ZN6:L$"BROOKFIELD, WI":LO88.14::5:"CONDITIONS SET FOR";::" "L$::14::"TIME ZONE";::" "ZN:14::"LONGITUDE";::" "LO::11::"CHANGE THEM?";::" Y/N";:975:PE2061250O:(PE206PE217)977:PQ,0::FL0:PK49152:PQ49168:P0176:P9185:I$"INVALID RESPONSE"(13):P1$(4)"PR#1":P0$(4)"PR#0":RM$(4)"RUN MENU":Z$"-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-"::(8):X$"LOCAL MEAN TIME <==> SIDEREAL TIME":PR$X$:4405,930,935,940,945,950,955,960,965,9705MO$"JAN":EMO$"FEB":UMO$"MAR":eMO$"APR":uMO$"MAY":MO$"JUN":MO$"JUL":MO$"AUG":MO$"SEP":MO$"OCT":MO$"NOV":MO$"DEC"::" ";PE(PK):20T2T224` M2830:DG365YD:DGDG((M1)31)((Y1)4)((.75)((Y1)1001)):>DG365YD((M1)31)(M.42.3):DGDG(Y4)((.75)((Y100)1)):RR(T1):IM(T1(T1))60:ES(IM(IM))60:ES(ES):IM(IM):%M915,920,92T$)4605:C((TT$,2)):C4((TT$,2)):CCC460:PT2T1C:gDH$(TT$,2)"."(TT$,2):T1(DH$):GC11.927485:TC.065711:T$"LMT"200:T2TCNDGC(((ZNT1)24)TC)T1:T2T2(.0656667LG)T224T2T224:740T224T2T224:745 T610:PE141(TT$)1610:PE141Ė17:" "TT$;:PQ,0:TT$"0"TT$:HT20:605xqHT17PE178TT$"0":HT:" ";:HTHT1vHT18TT$"2"PE179605:PT1HT20645:HT20PE181605PEPEP0:HT:PE;:HTHT1:HT19HT20=PQ,0:TT$TT$(PE):(T600:16:15::"TIME OK? Y/N ";:975:PE206ė::PQ,0:550FI::N12:17::" ";::".";::" ";:600:16:15::"TIME OK? Y/N ";:975:PE206ė::PQ,0:550S::XHT17:TT$"":DH$"]:HT:" ";:LbPE(PK):(PEP0PEP9)PE141CLOCK.":5755"ENTER IN THE FORM";::" HOURS:MINUTES"::" USING A 24 HOUR CLOCK."::"FOR EXAMPLE, 11:15 PM IS ENTERED AS":14::"23:15"::580?:"FOR EXAMPLE, 11:15 PM IS ENTERED AS":14::"23.25"::590<D12:17::" ";::":";::" ";:NUTES."::::14::"WHICH? 1 OR 2";::" ";:mPE(PK):PE177PE178530:PQ,0:PTPE176::PT550,555&:"DECIMAL TIME TO CONVERT?":560+:"CLOCK TIME TO CONVERT?":565 0:"ENTER IN THE FORM";::" HOURS.FRACTION"::" USING A 24 HOUR (X$)2)X$41);:::x :(10):(8)::"TURN ON PRINTER":::(8):"PRESS RETURN TO CONTINUE ";R$:P1$:(27)(69):: (27)(87)(1)PR$(27)(87)(0):::/::::13::"TIME INPUT FORMAT";:::::13:"1) DECIMAL HOURS."::13:"2) HOURS:MI T224T2T224:220/ T2T2(T224TC):_ ,LG(ZN15)LO:LG0315:ZNZN(LG15):320o ;ZNZNLG15u @ 10::10:"WANT A PRINTOUT? (Y/N) ";:975:PE217AA$"Y":450:480: PE206AA$"N": 20(X$)2)X$41);:: :2031132:LY0:Y4(Y4)0Y100(Y100)0LY1[ M2154:(LY0D28)(LY1D29)132s ((D))1Ė23:D" 16:15::"DATE OK? Y/N ";:A$:A$"Y"ė::100 :: T2T1(TCNDGC)(ZN24TC):T2T2(.0656667LG) T20T2T224:21523:11:16:"DAY: ";::" ";2 :HT:" ";:q PE(PK):((PEP0PEP9)PE141)136:PE141D(D$):144 D$((PE)176):DD$DD$D$:HT:D$;:(DD$)1(DD$)4HTHT1:49168,0:134 D(DD$)0 49168,0:D0D31132:(M4M6M9M11)D23:10:16:"MONTH: ";::" ";:49168,0: vHT::" ";: xPE(PK):((PEP0PEP9)PE141)120:PE141126:M$((PE)176):MM$MM$M$:HT:M$;:MM$"0"MM$"1"HTHT1:49168,0:118 ~49168,0:M(MM$):M0M12116:((M))1Ė23:M" DD$"":HT$1:16::"LMT<==>LST"::34,1. 1000ydDD$"":HT23::19:7:"DATE ?":YY$"":9:16:"YEAR: ";::" ";:h:HT:" ";::49168,0lPE(PK):PEP0PEP9108:PEPEP0:HT:PE;:HTHT1:YY$YY$(PE):(YY$)4104:Y(YY$)( tMM$"":HT          GRIFFITH":"OBSERVATORY - LOS ANGELES, CA"::20)"RICHARD L WIESEN MD":20)"BROOKFIELD, WI":20)"JUNE 4, 1984":23:13::"PRESS RETURN ";A$: T(4)"RUN MENU":PUTER ASTRONOMY "(93)(91)x14:12:"FOR THE AMATEUR":I15000::170) " 44 6TH ST, BERKELEY, CA"::" BASIC FORMULAS FOR JULIAN DATE":"ALTAZIMUTH, AND INTERPOLATOR PROGRAMS":"WERE PUBLISHED IN SKY & TELESCOPE -- ":"APRIL, MAY, AND JUNE 1984 ISSUES. "THE TWILIGHT PROGRAM WAS ADAPTED FROM":"'SUNRISE/SET' AUTHORED ATAR.SP"O:D$;"RUN AR.SP"2T:D$;"RUN MV.16"I:D$;"RUN RED.PL"_:D$;"RUN GAL.S"x:D$;"RUN TWILIGHT"::D$;"RUN AR.SP"#:80)(I320-I:1:" ":I:39:" "2I721:1:80): <2:X$"COMPUTER ASTRONOMYION"%:"(9).RETURN TO MAIN MENU"S":23:10:"ENTER CHOICE 1-9 ";::" ";:s'PE(PK):PE177PE185295,PQ,0:DPE1761D9ė:356;D320,325,330,335,340,385,390,395@:D$;"RUN LUNA.PH"E:D$;"RUN ECL.M"J:D$;"RUN .:"(3).RA & DEC MOON & PLANETS-ANY DATE"Z:"(4).SOLAR SYSTEM: RISE TRANSIT SET" :"(5).MERCURY & VENUS: ELONG. & DATA":"(6).MARS: NEXT OPPOSITION & DATA":"(7).GALILEAN SATELLITE POSITIONS":"(8).TWILIGHT TIMES: ANY LOCAT"RUN PRECES.ADJ") :D$;"RUN HORIZONS"B :D$;"RUN HORIZONS"\ :D$;"RUN GR.CIR.45" PAGE 2 MENU FOR ASTRONOMY PROGRAMS (2):X$"SOLAR SYSTEM MENU":30 :"(1).MOON: PHASES FOR ANY DATE:"(2).MOON: ECLIPSES FOR ANY YEAR"23:10:"ENTER CHOICE 1-9 ";::" ";:F PE(PK):PE177PE185170Y PQ,0:DPE176f D9235l D195,200,205,210,215,220,225,227 :D$;"RUN ALIGN" :D$;"RUN LMT.LST" :D$;"RUN J.C.DATE" :D$;"RUN ANG.SEP.20" :D$;NGE"1 :"(4).ANGULAR SEPARATION -- TWO STARS"_ :"(5).ADJUST RA AND DEC FOR PRECESSION" :"(6).MESSIER & NGC CATALOGS" :"(7).ALTAZIMUTH CALCULATOR-INTERPOLATOR" :"(8).GREAT CIRCLE DISTANCE" :"(9).TO SOLAR SYSTEM MENU"& :77PE18095 dPQ,0:DPE1762 iD115,235,400? nD4ė:E sx x2:X$"TIMES, CATALOGS & COORDINATES MENU":30 }:"(1).ELONGATIONS AND TRANSITS OF POLARIS" :"(2).TIME: LOCAL MEAN <==> SIDEREAL" :"(3).JULIAN DAY & CALENDAR INTERCHA":30! A5:15::"MAIN MENU":P F7:5:"1.) TIMES, CATALOGS & COORDINATES"r K9:5:"2.) THE SOLAR SYSTEM" P11:5:"3.) ASTROPHOTOGRAPHY: PLANETARY" U13:5:"4.) EXIT TO BASIC" Z18:12::"CHOOSE ONE? 1-4 ";::" ";: _PE(PK):PE1 ASTRO/MENU 9-3-84QPK49152:PQ49168:P0176:P9185:I0::D$(4)::35p20(X$)2);X$;41);:::20(X$)2);X$;41);:::#:80)(I320-I:1:" ":I:39:" "2I721:1:80): <2:X$"COMPUTER ASTRONOMY     z#?    !ǮЮ"ʮîŠՠ ԮԠӠԠ  ҮРN֮4Ӡ4Į̠̮Ӡ" ҮҮРĮàΠӮʠȠ̮͠  975:(PE206AA$"Y")ĺ:P1$:(12)::P0$:1710O(PE206AA$"N")ĺ:1710eFL0:::3:1060nRM$(60(UTUH)):Z$(J);:J1ĺR$((I6)12);:1630TR$((I6)122);1^30)UH"H"34)UM"M":J::I:FR(0):P0$::12:"ANOTHER DATE? Y/N ";:80"H((I6)(360H)(I18)H)15:THRA.06571T06.622:UTTLO15TZ:UTUT(UT24)24(UT0)24:UH(UT):UM(60(UTUH)):Z$(J);:J1ĺR$((I6)12);:1630TR$((I6)122);1^30)UH"H"34)UM"M":J::I:FR(0):P0$::12:"ANOTHER DATE? Y/N ";:82.634)PI180M:LL2PI(L180PI360):RA(.91746(L))180PI:RA0RARA180RARA180(LPI):RARA15:SD.39782(L):CD(1SDSD):Z(1)9056:Z(2)96:Z(3)102:Z(4)108:J14:X((PIZ(J)180)SD(LA))CD(LA):H((1XX)X)180PI:H0HH1Z5:15:"TIME ZONE (+ = WEST): 6 ";::"DST"::142015:"TIME ZONE (+ = WEST): ";TZ:DS$"Y"TZTZ1:15:25::"DST":Q:"DATE:- "M"/"D"/"Y;:28)"LOCAL TIME":I61812::T0N(ILO15)24:M(.9856T03.289)PI180:L(1.916(M).02(2M)2LD:12:3:" MINUTES: ";LM:13:3:" SECONDS: ";LS:LA(LD(LMLS60)60)PI180P14:3:"N(ORTH) OR S(OUTH): ";A$:A$"N"A$"S"1360:A$"S"LALAnFL1DS$"N"TZ6:15:"TIME ZONE (+ = WEST): "TZ:14206xFL1DS$"Y"T390AA$"N"ė7:2:"LONGITUDE:- DEGREES: ";LD:8:2:" MINUTES: ";LM:9:2:" SECONDS: ";LS:LOLD(LMLS60)60 10:2:" E(AST) OR W(EST): ";A$:A$"E"A$"W"1290:A$"E"LOLOc(11:3:"LATITUDE:- DEGREES: ";ATION:- BROOKFIELD WI":FL1:7:2:"LONGITUDE:- DEGREES: 88":8:2:" MINUTES: 8":9:2:" SECONDS: 24":LO88.14:11:3:"LATITUDE:- DEGREES: 43":LA43.1PI18012:3:" MINUTES: 6":13:3:" SECONDS: 0":1):ND31(M1)(Y0Y1Y2Y3)(M2):8:3:"DAYLIGHT SAVINGS TIME? Y/N ";:975:PE206DS$"NpVPE217DS$"Y`8:3:"INITIAL VALUES SET FOR BROOKFIELD WI":10:12:"CHANGE THEM? Y/N ";:975:PE217ė:400:1240~:400:AA$"N"ė5:3:"LOCHT ZONES":R$(1)"RISE":R$(2)"SET":R$(3)"START":R$(4)"ENDZ$(1)"SUN":Z$(2)"CIVIL TWILIGHT ":Z$(3)"NAUTICAL TWILIGHT ":Z$(4)"ASTRONOMICAL TWILIGHT ":PI3.141592654:::255::3]$"SUN RISE/SET AND TWILIGHT CALCULATOR"::100:200:Y0(.4M2.3E ";R$:P1$:(27)(69)::F (27)(87)(1)PR$(27)(87)(0):::R :" "; PE(PK):(PE206PE217)977:PQ,0::;PK49152:PQ49168:P0176:P9185:I$"INVALID RESPONSE"(13):P1$(4)"PR#1":P0$(4)"PR#0":RM$(4)"RUN MENU":PR$"TWILIG0(Y400))0Y31 c 10::10:"WANT A PRINTOUT? (Y/N) ";:975:PE217AA$"Y":450:480:y PE206AA$"N": 20(X$)2)X$41);:: :20(X$)2)X$41);::: :(10):(8)::"TURN ON PRINTER":::(8):"PRESS RETURN TO CONTINU151:LY0:Y4(Y4)0Y100(Y100)0LY1X M2184:(LY0D28)(LY1D29)151p ((D))1Ė23:D" 16:15::"DATE OK? Y/N ";:A$:A$"Y"ė::100 :: Y10:Y20:Y30:(Y4(Y4))0Y11 (Y100(Y100))0Y21 (Y40:11:16:"DAY: ";::" ";/ :HT:" ";:n PE(PK):((PEP0PEP9)PE141)157:PE141D(D$):169 D$((PE)176):DD$DD$D$:HT:D$;:(DD$)1(DD$)4HTHT1:49168,0:154 D(DD$)- 49168,0:D0D31151:(M4M6M9M11)D3110:16:"MONTH: ";::" ";:49168,07 HT::" ";: PE(PK):((PEP0PEP9)PE141)133:PE141142:M$((PE)176):MM$MM$M$:HT:M$;:MM$"0"MM$"1"HTHT1:49168,0:130 49168,0:M(MM$):M0M12127:((M))1Ė23:M"  DD$"":HT23p 1000vdP0176:P9185:PK49152:HT17:QQ0:DD$"":HT23:19:7:"DATE ?":YY$"":9:16:"YEAR: ";::" ";:m:HT:" ";::49168,0sPE(PK):PEP0PEP9115:PEPEP0:HT:PE;:HTHT1:YY$YY$(PE):(YY$)4109:Y(YY$)% MM$"":HT23:     ԠҤԍԬ ǬӶIJ ǬӴıǬӶı ):N400:470:"PREVIOUS WEST ELONGATION WAS ";WP;" HRS"JX2220:2040rbENMTQLQW:INEN:2250:2160:ENINlEN(((EN),5))v400:470:"NEXT EAST ELONGATION WILL BE ";EN;" HRS"2220:2040EPMTQW:INEP:2250:2160:EPIN EP(PQ,0:SPE176::::AS1810,1850,1890,1930,1970,2010fWNMTQW:INWN:2250:2160:WNIN{WN(((WN),5))&400:470:"NEXT WEST ELONGATION WILL BE ";WN;" HRS"02220:2040:WPMTQLQE:INWP:2250:2160:WPINDWP(((WP),5)"4)" PREVIOUS (2)"E4)"EAST ELONGATION NEXT (3)"h4)" PREVIOUS (4)"4)"LOWER TRANSIT NEXT (5)"4)"UPPER TRANSIT NEXT (6)":"SELECT BY NUMBER ";::" ";:PE(PK):PE177PE1821750"GTGTGTCF",HA2.183333GT56HA0HAHA24]@ADJUST FOR DAILY LOSS OF MEAN TIMEgJMTHATQD5.98362:QE5.933333^QW5.933333:QL11.967222h::r:"WHICH ELONGATION OR TRANSIT"wPQ,0::4)"WEST ELONGATION NEXT (1)"::4)"LONGITUDE IS SET FOR"F4)"BROOKFIELD, WI ";LO;" DEG."w:4)"DO YOU WANT TO CHANGE IT? Y/N ";:975PE206ė:1540PE217ė:1530:"LONGITUDE ";LO ADJUST ST FOR LONGITUDECF.065556LO360 GET HOUR ANGLE2334FDD1D2%PLY1M2DD1EZ GST AT 0 HR OF EPOCH 1980[d ADJUST FOR YEARhnGY1980|xYC.01638889GGST6.65422YC ADJUST FOR DAILY GAIN OF SID TIMEDGD.0657096GTGSTDGGT24GTGT24GT0GTGT24! D$(4)100>Y4(Y4)0Y100(Y100)0LY1GD20UM0D20dM2D231sM3D259M4D290M5D2120M6D2151M7D2181 M8D2212M9D2243M10D2273(M11D23042M12D'L(12):X$"(WITHIN 10 MINUTES)":435WV(14):X$"FOR THE SETTING OR CHECKING":435`(16):X$"THE ALIGNMENT OF THE":435j(18):X$"EQUATORIAL MOUNT OF A TELESCOPE":435t(22):(8)::"PRESS RETURN WHEN READY ";A$:~:QQ0:LO88.14:::OLARIS *****":440%K150011:+E1:15::PR$::34,2{$(4):X$"THIS PROGRAM PROVIDES THE TIMES OF":440.(5):X$"ELONGATIONS AND TRANSITS":4408(6):X$"OF POLARIS FOR ANY DATE":440B(10):X$"WITH SUFFICIENT ACCURACY":43587)(0)::8 "ON ";Y;" ";M;" ";D1;" LONGITUDE ";LO:D :" ";h PE(PK):(PE206PE217)977v PQ,0:: PR$"POLAR ALIGNMENT": :PSTAR POSITIONS PK49152:PQ49168:P0176:P9185 :: RAD(X)X57.29878(10):X$"***** PAA$"Y" PE206AA$"N"" 5 PE217ĺ:445K PE217QQ2İ465` AA$"N"QQQQ1o QQ6QQ0u  20(X$)2);X$;41);:: :20(X$)2);X$;41);:: D$;"PR#1" (27)(69)   (27)(87)(1);PR$;(27)(Y4(Y4)0Y100(Y100)0LY1N M2170:(LY0D28)(LY1D29)135f ((D))1Ė23:D" 16:15::"DATE OK? Y/N ";:A$:A$"Y"ė::100 ::D1D:PQ,0: D$(4)::10:5::"DO YOU WANT A PRINTOUT? (Y/N) ";:975:QQQQ1:PE217"DAY: ";::" ";% :HT:" ";:d PE(PK):((PEP0PEP9)PE141)145:PE141D(D$):160 D$((PE)176):DD$DD$D$:HT:D$;:(DD$)1(DD$)4HTHT1:49168,0:140 D(DD$)# 49168,0:D0D31135:(M4M6M9M11)D31135:LY0:MONTH: ";::" ";:49168,0- xHT::" ";: }PE(PK):((PEP0PEP9)PE141)125:PE141130:M$((PE)176):MM$MM$M$:HT:M$;:MM$"0"MM$"1"HTHT1:49168,0:120 49168,0:M(MM$):M0M12115:((M))1Ė23:M"  DD$"":HT23:11:16:! 1000: BYPASS SUBROUTINESldDD$"":HT23::19:7:"DATE ?":YY$"":9:16:"YEAR: ";::" ";:i:HT:" ";::49168,0nPE(PK):PEP0PEP9110:PEPEP0:HT:PE;:HTHT1:YY$YY$(PE):(YY$)4105:Y(YY$) sMM$"":HT23:10:16:"       4)"RUN MENU:R.01745329:FL1:FL$"START EPOCH?":100:FL2:FL$"FINAL EPOCH?":100:T1FIIN:TT1100:Z0((2305.65T)(.302TT)(.18TTT)):Z1R(Z03600):Z(Z0(.791TT))3600:THR((2003.829T)(.426TT)(.042TTT))3600=:310::500::10N MENUGAA$"N"XX$"E"ė:8:"DO YOU NEED TOP OF FORM? Y/N ";:975XX$"E"PE217ĺ(4)"PR#1":(12):(4)"PR#0":(4)"RUN MENUXX$"E"AA$"N"ĺ:(4)"PR#0":(4)"RUN MENUAA$"Y"XX$"E"ĺ(4)"PR#0":(4)"RUN MENU AA$""MT2ĺ(ICES ARE: ":430:18:7:"(1). PRECESSION CALCULATIONS":7:"(2). RETURN TO MAIN MENU":23:15::"CHOOSE ONE ";::" ";`PE(PK):PE177PE1781120:PQ,0:::MTPE176:::1:4::PR$::34,2:FL31430::MT1230,1160:AA$""XX$"E"ĺ(4)"RU970:3::40):I412:I:1:" ":I:40:" ":I:13:1:80)::5:16:"ADAPTED BY":7:12:"RICHARD L WIESEN MD":9:14:"27 AUGUST 1984":11:6:"FORMULAS FROM ASTRONOMY AUG 84x8X$" ** RIGOROUS PRECESSION IN BASIC **":PR$X$:2:435:16:X$"YOUR CHOPR#0":P1$(4)"PR#1":P0$:M$(4)"RUN MENU":;:" ";kPE(PK):(PE206PE217)977:PQ,0:::u1030:10:"ENTER 'E' TO EXIT 'RETURN' TO CONTINUE ";::" ";:PE(PK):PE197PE1411020:PQ,0::PE197XX$"E":1200::18TT$"2"PE179905:HT20PE181905:PEPEP0:HT:PE;:HTHT1:HT19HT20`HT22HT23qHT25HT26PQ,0:TT$TT$(PE):(TT$)7905:RA$(TT$,2)" "(TT$,3,2)" "(TT$,5,2)"."(TT$,1):/PK49152:PQ49168:P0176:P9185:P0$(4)"15::"DEC. OK? Y/N ";:975:PE206ė::DE$"":502:JHT17:TT$"\:HT:" ";:PE(PK):(PEP0PEP9)PE141910:PE141(TT$)1910:PE141Ė17:" "TT$;:PQ,0:TT$"0"TT$:HT20:905HT17PE178TT$"0":HT:" ";:HTHT1OHT185)PE141)604:HT25PE141604:HT25PE181MSPE176:HT:"0"MS;:HTHT1:626:620bHT25DE$(PE176):HT:DE$;:HTHT1:602dPE141HT25Ė25:"0"DE$:H(DE$):6204fDE$DE$(PE176):HT:PE176;:HTHT1:HT27602:DC$DC$" "DE$:16:11&HT25DE$(PE176):HT:DE$;:HTHT1:542](PE141HT25Ė25:"0"DE$:H(DE$):558*DE$DE$(PE176):HT:PE176;:HTHT1:HT27542.DC$DC$" "DE$:HT25:12:15:"SECONDS: ";::" ";ZPQ,0:HT::" ";:Y\PE(PK):((PE176PEDE$" "DE$:534O 24:DE$;:(DE$,1)"+"(DE$,1)"-"DE$"+"(DE$,2,2) DC$DE$:HT25:10:15:"MINUTES: ";::" "; PQ,0:HT::" ";: PE(PK):((PE176PE185)PE141)544:HT25PE141544:HT25PE181HPE176:HT:"0"H;:HTHT1PE173)508:HT24526:HT25(PE171PE173)508:PE171DE$"+":HTHT1:(HT1):DE$;:508 PE173DE$"-":HTHT1:(HT1):DE$;:508 PE141534:DE$DE$(PE176):24:DE$;:HTHT1:HT26(DE$,1)"-"508:HT27(DE$,1)"-"508 (DE$)3:: P1$:(27)"E":# DE$"o 6:8:"ENTER INITIAL DECLINATION":HT24:8:15:"DEGREES: ";::" "; PQ,0:HT::" ";: PE(PK):((PE176PE185)PE171PE173PE141)510:PE185DE$DE$"9":534^ HT24PE141510:HT24(PE17217AA$"Y PE206AA$"N ::AA$"Y"ĺ:"READY THE PRINTER"::"PRESS RETURN TO CONTINUE ";XX$:P1$:(27)"E":RWRW1: AA$"N"ĺ:P0$: :5)(27)(87)(1)PR$(27)(87)(0): 20(X$)2)X$41);:: :20((X$)2))X$41);:N ";:975:PE206ė::100$ :: 6:"INITIAL RIGHT ASCENTION?":12:17::" ";:"H";:" ";:"M";:" ";::".";::" ";:"SEC";:900:16:15::"R.A. OK? Y/N ";:975:PE206ė::310 T 12:5::"DO YOU WANT A PRINTOUT? (Y/N) ";:975:PEЧ  1000QdDD$"":HT23::16:7:FL$:YY$"":9:16:"YEAR: ";::" ";:ln:HT:" ";::49168,0xPE(PK):PEP0PEP9120:PEPEP0:HT:PE;:HTHT1:YY$YY$(PE):(YY$)4110:FL1IN(YY$)FL2FI(YY$) 16:15::"YEAR OK? Y/        ;" ";PM$;" ";PZ*NSNī217014PMPM1:1950]>"FIRST QUARTER ) ";Y;" ";PM$;" ";PZ23H"FULL MOON (O)";Y;" ";PM$;" ";PZ15R"LAST QUARTER ( ";Y;" ";PM$;" ";PZ8\NF1NF0:NSNS1:2170fNF1:PZ301::NSNS1:2080pPZ0:PD0PM3PM$"MAR":'PM4PM$"APR":=PM5PM$"MAY":SPM6PM$"JUN":iPM7PM$"JUL":PM8PM$"AUG":PM9PM$"SEP":PM10PM$"OCT":PM11PM$"NOV": PM12PM$"DEC"::PZ30 "NEW MOON O ";Y$;" ";PD3PH:NS:DPD3PH730PD3PH731ī2070CNYYPMXMM1obNSNNSNS1:IN0:P90:1230zl(12)vP0$::"DO YOU WANT MORE ";:975PE217ī1030::D$;"RUN MENU"PM1PM$"JAN":PM2PM$"FEB":PD2PH31PDPD31:PMPM15PM12PMPM12:YY1?1950m"FULL MOON (O) ";Y;" ";PM$;" ";PD2PHPM2PD3PH28PDPD3PD3PH31PDPD31:PMPM1PM12PMPM12:YY11950&XP1MM1 0"LAST QUARTER ( ";Y;" ";PMM$;" ";PDrQ1PMPM1:Q0*|PDPD1EPM2PDPH28PDPD3dPDPH31PDPD31:PMPM1~PM12PMPM12:YY1PH(PH).5PH(PH)1PH(PH)1950"FIRST QUARTER ) ";Y;" ";PM$;" ";PDPHPM2PD2PH28PDPD3Z(30.6001Z)PHZ400,PM(P9100)MPD((P9100(P9100))100)d"NS4NS8PDPD1|,PD0PMPM1:PD316PD31PDPD31:PDPD6:PMPM1:Q1@PM12PMPM12:YY1JXP1PMPM1T1950^ h"NEW MOON O ";Y;" ";P((RAD(P573.63))))2P8(13.06499245P5)271.5RP7P7(.4089((RAD(P8))))tP7(((RAD(2P8))).0161)P7P8((P7.5)10000)P4IN0P9P8IN0MM1:1510ININ1:MM1:P10:P20:P30:P40:1260ZP9P8ZZ10000((5)P21340%2P1P11:P2P212V<P5(365.25P1)((P21)30.6001)P31720995eFFL21380vPPO(P1100)ZP5P5PO2(PO4)dP6.0338631922nQ(P6P5).67094xQ11(Q(Q))P7Q1P6P5(P5P7).985600267P7P7(.1743NPE176.:NS1::AA$"Y"ĺ:P1$:825::\"FOR THE MONTH(S) BEGINNING ";M$;" ";Y:~"THE MOON'S PHASES ARE ... "MSMIN0XP1MM1YPYTYYM1001582.10TYFL2P2M P1YP3DP4M100D10000Y MONTH AND DATE FOR"> `5)"A PERIOD OF UP TO THREE MONTHS"\ j8)" (WITHIN ONE DAY)" t:12:11:"START DATE REQUIRED": ~400::P0$:100 10:5:"NUMBER OF MONTHS NEEDED? (1 TO 3) ";::" ";: PE(PK):PE177PE1791170PQ,0:R$"***** LUNAR PHASES *****"6 1:9::PR$::34,1Z $PK49152:PQ49168:P0176:P9185~ .P0$(4)"PR#0":P1$(4)"PR#1" 8RAD(X).01745328(X) =: B5)"THIS PROGRAM PROVIDES DATES FOR" L5)"PHASES OF THE MOON STARTING AT" V5)"AN *D$(4):D$;"PR#1"$ /(27)"E"* 4U 9:(27)(87)(1);PR$;(27)(87)(0):a :" "; PE(PK):(PE206PE217)977 PQ,0::  (10):X$"***** LUNAR PHASES *****":PR$X$:805 J150011: :::  D$(4):PM;" "; 16:15::"DATE OK? Y/N ";:A$:A$"Y"ė::100E :: 20:5::"DO YOU WANT A PRINTOUT? (Y/N) ";:975:PE217AA$"Y" PE206AA$"N"  PE217ĺ:810  20(X$)2);X$;41);:: %:20(X$)2);X$;41);:::23:10:16:"MONTH: ";::" ";:49168,0; HT::" ";:e PE(PK):((PEP0PEP9)PE141)150u PE141165 M$((PE)176):MM$MM$M$:HT:M$;:MM$"0"MM$"1"HTHT1:49168,0:145 49168,0:M(MM$) M0M12140 ((M))1Ė23: 1000: LUNAR PHASES ?dDD$"":HT23::19:7:"DATE ?"jiYY$"":9:16:"YEAR: ";::" ";:|n:HT:" ";:s49168,0xPE(PK):PEP0PEP9120}PEPEP0:HT:PE;:HTHT1YY$YY$(PE):(YY$)4110Y(YY$)) MM$"":HT     T":11805" DO YOU WANT ANOTHER YEAR ";:975\PE217AA$"Y"ĺ:P1$:(12):P0$PE217ė:::FR(0):AA$"X":11000::P0$::D$;"RUN MENU": END OF PROGRAMPSE? Y/N ";:975:PE217ĺ:FL1::"RUNNING...PLEASE WAIRR31#"DATE OF ECLIPSE IS...")K" YEAR ";On" MONTH ";T" DAY ";R:P0$:"DO YOU WANT THE NEXT ECLIPSE? Y/N ";:975:PE217ĺ:FL1::"RUNNING...PLEASE WAI.1)365.25)P(O365.25)4"Q((NP)30.6001)U,R((NP)(Q30.6001))10000j6Q13.7774ī1610}@SQ121:1620JSQ1TTS^T2TRh(5)S1660rOO1|UOT2R3R10000T2R28TT1:RR28T3R31TT1:.025(A29.53058868)@LL(.406(RAD(D)))(.174(RAD(C)))ZLL((RAD(2D)))62wL(L((RAD(2E)))97)L2299161ī1540L2((22991611867216.25)36525.25)LL2LM(L24)LLMLL1NL1720995 O((N122)302K0ī11804<FL1AA$"Y"ĺ:P1$::1390QFFL1AA$"N"İ400:1370oP400:FL0AA$"Y"ĺ:430ZAA$"Y"ĺ:P1$d:n:"-------------------------"x"MAGNITUDE OF ECLIPSE IS.. ";K(((K),4))KL241503616.6378! FE((RAD(D))).412< GF((RAD(2D)))8.8X HG((RAD(C)))2.2265s IH((RAD(2E))).13 I(RAD(I)) J0.7128((RAD(D)))36 WI10J W0W1.84769W1.8216:1320 W0W1.84769W1.8216(KW((RAD(D)) " QJ5200011:J5! S100* VFL08 `::::V j"RUNNING....PLEASE WAIT"c tZY1900z ~ZD(Z12.368267)2 A(ZD) RAD(X)X3.141592180 AA1 B29.1053561 CB13.7774 D(25.81691806A)138.94 E(30.670565A)20011:KZ:= 1:12::"LUNAR UMBRAL ECLIPSES":::34,2i (5):5)"THIS PROGRAM GIVES MAGNITUDE" 5)"AND DATE OF LUNAR UMBRAL ECLIPSES" 5)"STARTING AT ANY YEAR REQUESTED" .: 812)"PLEASE STATE THE" B L13)"YEAR TO START(69)0 (27)(87)(1);PR$;(27)(87)(0)::< :" ";` PE(PK):(PE206PE217)977n PQ,0:: :P0$(4)"PR#0":P1$(4)"PR#1":PK49152:PQ49168:P0176:P9185 (10):X$" ** LUNAR UMBRAL ECLIPSES **":PR$X$:425 D$(4):KZ20YY$):49168,0C 16:15::"DATE OK? Y/N ";:A$:A$"Y"ė::100M :: 20:5::"DO YOU WANT A PRINTOUT? (Y/N) ";:975:PE217AA$"Y" PE206AA$"N" : 20(X$)2);X$;41);:: :20(X$)2);X$;41);::: P1$:(27) - 1000: UMBRAL LUNAR ECLIPSES ANY YEARQdDD$"":HT23::19:7:"START?"|iYY$"":9:16:"YEAR: ";::" ";:n:HT:" ";:s49168,0xPE(PK):PEP0PEP9120}PEPEP0:HT:PE;:HTHT1YY$YY$(PE):(YY$)4110 Y(     ø÷αααñøññιαιιαααñøññιαιñιαιõùñιιDZӱŴñŷñŴ±±®±±±űññ±¹α±±¹ŷñű±ұӱҹñññŸñӰ±ñŶιññαøùӱ±¹±Ų±ñ±±ιҹҹαùñθöҹιαзα±ôõŷιαñ±αñιη±ñŰιø÷ι±ù     ñ±Ŷ±ñññŶ÷¸ű±ñ±¹α±ñññŶ÷¸ű±ñҹøűϱųű±Ű±±öö¸ӱøø÷ùññøα¹θ÷÷·öøι±ųűñ÷¹¹±¹÷øγιôò÷õöŴ÷ø÷øøǸ÷øø´Ųöööööööòøöηη÷÷ι÷õöööùεұöööööõεøö÷÷ö     :V(10):VT101PK49152:PQ49168:P0176:P9185Z$"-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-":I$"INVALID RESPONSE"(13):PI3.14159:TW6.28318:P1$(4)"PR#1":P0$(4)"PR#0":T360:H3600:RM$(4)"RUN MENU"ASN(X)(X(XX1))$ACO(X)/&::12:18::"COMPUTING"::PY08:PX08IPD(PY,PX)TPX,PYmIP110:P$(IP):IPu::" ";PE(PK):(PE206PE217)977PQ,0::::5:PD(9,10):IP(10):A(9):DS(9):L(9) Q(9):X(9):R(10).44194DEG(L(I))(XDEG(X):MT3ıBR(3)DEG(A(3)PI)15aR(3)24R(3)R(3)24:792R(3)24R(3)R(3)24:793R(3)0R(3)R(3)24V(3)(A(3)PI)23.44194: T224T2T224:800%T224T2T224:805*T20T2T224)))AC1AC.999999)X2ACO(AC); R.A., DECYZ0RDEG(A(3)PIX)15wZ0RDEG(A(3)PIX)15R24RR24:765R24RR24:770R0RR24:775 Z0V(A(3)PIX)23.44194DEG(L(I))Z0V(A(3)PIX)23)(APD(J,8))H CALC RA AND DEC - ANG. DIST FROM SUN (Z)XZA(3)A(I)p(Z)PIZ0ZZTW(Z)PIZ0ZZTWCI3X0:755Q(DS(I)2DS(3)22DS(I)DS(3)(Z))P(DS(I)DS(3)Q)2AC(((P(PDS(I)))(DS(3)Q(J,1)%bATWA((ATW)(ATW))TW:gA0AATW:615UlCPD(J,2)(APD(J,3))_qAACpvATWAATW{A0AATW:635 DISTANCE OF PLANET FROM SUN (DS)DSPD(J,4)PD(J,5)(APD(J,6)) DISTANCE FROM ECLIPTIC (L)LPD(J,7(27)(87)(0):::I1,J08:600GA(I)A:DS(I)DS:L(I)LTII1:J_I19q  SKIP EARTH}I3ĂI700Q(I)Q:X(I)X:R(I)R:V(I)V!I&X CALC A,DS, AND L - HELIOCENTRIC LONGITUDE (A) ]ANIPD(J,0)PDVT:5::"DO YOU WANT A PRINTOUT? (Y/N) ";:975CPE217AA$"Y"WPE206AA$"N"xAA$"Y"ĺ:430:450:QQQQ1:20(X$)2);X$;41);:::20(X$)2);X$;41);:::P1$(27)(69)(27)(87)(1);PR$;DD31JM13M1:YY1 O+^ MOONPc(LY1M2D29)M3:DD29:385uh(LY0M2D28)M3:DD28:385mD31ī385r(M4M6M9M11)MM1:DD30:385w(D)31MM1:DD31|MT2FL5M2355M13M1:YY1/ FOR MAR THRU DECF DGDG(M.42.3)(Y4)((.75)((Y100)1))f NIDG715875:MT2NINI.5l r , 1(LY1M2(D)29)M3:DD29: 6(LY0M2D28)M3:DD28: ;D31ı @(M4M6M9M11)MM1:DD30:E(D)31MM1:)1Ė23:D;" "D 16:15::"DATE OK? Y/N ";:A$:A$"Y"ė::100N :: CALC DAYS TO DATE REQUESTED FROM EPOCH 1960,1,1 DG365YD((M1)31) M2ī230 FOR JAN AND FEB DGDG((Y1)4)((.75)((Y1)1001)) 240 D$((PE)176):DD$DD$D$:HT:D$;:(DD$)1(DD$)4HTHT1:49168,0:154[ D(DD$)v 49168,0:D0D31151 (M4M6M9M11)D31151 LY0:Y4(Y4)0Y100(Y100)0LY1 M2184 (LY0D28)(LY1D29)151 ((D)M$MM$M$:HT:M$;:MM$"0"MM$"1"HTHT1:49168,0:130O 49168,0:M(MM$)a M0M12127{ ((M))1Ė23:M;" " DD$"":HT23:11:16:"DAY: ";::" "; :HT:" ";: PE(PK):((PEP0PEP9)PE141)157 PE141D(D$):169N sPE(PK):PEP0PEP9115; vPEPEP0:HT:PE;:HTHT1[ yYY$YY$(PE):(YY$)4109h |Y(YY$) MM$"":HT23:10:16:"MONTH: ";::" ";:49168,0 HT::" ";: PE(PK):((PEP0PEP9)PE141)133 PE1411429 M$((PE)176):MZL  1000* CALC SIDEREAL TIME (T2);GC11.927485J(TC.065711f2T2TC(NI7020)GC:800r<MT3ı}F500:dHT17:QQ0:FL2gDD$"":HT23::19:7:"DATE ?"jYY$"":9:16:"YEAR: ";::" ";:m:HT:" ";:p49168,0                         H70PH121PH$"NEAR HALF":PH29PH71PH$"GIBBOUS"UPH21PH$"NEAR FULL"fPH(180PH)lY4(Y4)0Y100(Y100)0LY1M12MM12:YY1LY1M2D29M3:DD29:508LY0M2D28M3:DD28:508D31516.:5)(27)(87)(1);PR$;(27)(87)(0):M20(X$)2);X$;41);::s:20((X$)2));X$;41);:::P1$:(27)"E": SUB FOR PHASESPH180PH57.2958PH150PH$"THIN CRESCENT"PH120PH151PH$"FAT CRESCENT"P1 ~I) PRINTOUT SUBROUTINEn12:5::"DO YOU WANT A PRINTOUT? (Y/N) ";:975:PE217AA$"Y"PE206AA$"N":AA$"Y"ĺ:"READY THE PRINTER"::"PRESS RETURN TO CONTINUE ";XX$:P1$:(27)"E":RWRW1:AA$"N"ĺ:P0$: SUN AND PLANETS0`Z$(0)MW$"M":Z$(1)VW$"V"BbZ$(2)(0)""MdI02]fE$(I)"XXX"dhIljK0wlI02nZ$(I)"XXX"382pJI2rZ$(J)"XXX"374t(Z$(J))(Z$(I))IJ:374vJxE$(K)Z$(I):Z$(I)"XXX"zKK1|I ELF10ı1F CALC DISTANCE FROM EARTH IN AUSHVQ(VD2DE22VDDE(ZV))pJVP(VDDEVQ)2:LF10ıL CALC ANG. DISTANCE FROM THE SUNNVV((VP(VPVD))(DEVQ))PVW2ACO(VV)R(VZ)P1VZVZP2TVZ0VWVWV^ SHOWVAP2VA((VAP2)(VAP2))P282VA0VAVAP2:306U4VC.013195(VA2.28638)b6VAVAVCv8VAP2VAVAP2:VA0VAVAP2:314<VD.7233.00506(VA3.85017)>ZVAEVA@VZZVB(ZV)P1ZV0ZVZVP2D(ZV)P1ZV0ZVZVP20714253.84941MAP2MA((MAP2)(MAP2))P2I MA0MAMAP2:266f MC.388301(MA1.34041)sMAMAMCMAP2MAMAP2MA0MAMAP2:274MD.3871.079744(MA2.73514), CALC VENUS POSITION.VANI.0279623.02812 0ROM EARTH IN A.U.3MQ(MD2DE22MDDE(MZ))PMP(MDDEMQ)2:LF10ın CALC ANG. DIST FROM SUNMV((MP(MPMD))(DEMQ))MW2ACO(MV)(ZM)P1ZMZMP2ZM0MWMW300 CALC MERCURY'S POSITION MANI.CE.032044(AE1.78547)(AEAECEJ INNER PLANETS' ELONGATIONS^AEP2AEAEP2vAE0AEAEP2:226DE1.017(AE3.33926)260MZAEMAZMMZ(MZ)P1MZ0MZMZP2(MZ)P1MZ0MZMZP2 CALC DISTANCE F::100 YIY:MIM:DID:::@ ROUTINE FOR ANG. DIAMETERL :::f 100: ENTER DATE n 50 CALC DIST. FROM EARTH AND ANG. DIST. FROM SUN AENI.0172021.74022 AEP2AE((AEP2)(AEP2))P2 AE0AEAEP2:216T1:49168,0:154 D(DD$)9 49168,0:D0D31151Z (M4M6M9M11)D31151 LY0:Y4(Y4)0Y100(Y100)0LY1 M2184 (LY0D28)(LY1D29)151 ((D))1Ė23:D;" " 16:15::"DATE OK? Y/N ";:A$:A$"Y"ė49168,0:M(MM$)$ M0M12127> ((M))1Ė23:M;" "l DD$"":HT23:11:16:"DAY: ";::" ";~ :HT:" ";: PE(PK):((PEP0PEP9)PE141)157 PE141D(D$):169 D$((PE)176):DD$DD$D$:HT:D$;:(DD$)1(DD$)4HTH yYY$YY$(PE):(YY$)4109+ |Y(YY$)b MM$"":HT23:10:16:"MONTH: ";::" ";:49168,0t HT::" ";: PE(PK):((PEP0PEP9)PE141)133 PE141142 M$((PE)176):MM$MM$M$:HT:M$;:MM$"0"MM$"1"HTHT1:49168,0:130 .75)((Y100)1))# BNIDG715875) DO dP0176:P9185:PK49152:HT17:QQ0x gP0$:DD$"":HT23::19:7:"DATE ?" jYY$"":9:16:"YEAR: ";::" ";: m:HT:" ";: p49168,0 sPE(PK):PEP0PEP9115 vPEPEP0:HT:PE;:HTHT12  10003"V = VENUS; M= MERCURY; 0 = SUN":N2 CALC DAYS FROM EPOCHh4DG365YD((M1)31)u6M3628 CALC IF JAN OR FEB:DGDG((Y1)4)((.75)((Y1)1001))<66> CALC FOR MAR THRU DEC @DGDG(M.42.3)(Y4)((                   - LOS ANGELES, CA"::20)"RICHARD L WIESEN MD":20)"BROOKFIELD, WI":20)"JUNE 4, 1984":23:13::"PRESS RETURN ";A$: T(4)"RUN MENU":984 ISSUES.z "THE TWILIGHT PROGRAM WAS ADAPTED FROM":"'SUNRISE/SET' AUTHORED AT GRIFFITH":"OBSERVATORY::" BASIC FORMULAS FOR JULIAN DATE":"ALTAZIMUTH, AND INTERPOLATOR PROGRAMS":"WERE PUBLISHED IN SKY & TELESCOPE -- ":"APRIL, MAY, AND JUNE 1984 ISSUES.z "THE TWILIGHT PROGRAM WAS ADAPTED FROM":"'SUNRISE/SET' AUTHORED AT GRIFFITH":"OBSERVATORY* * * * * * * ": :2:13::"ACKNOWLEDGMENTS"::::" SOME OF THE PROGRAMS ON THIS DISK":"WERE ADAPTED FROM THOSE PUBLISHED BY":"ERIC BURGESS F.R.A.S. IN HIS BOOK":"'CELESTIAL BASIC', PUB. 1982, BY "SYBEX, INC. 2344 6TH ST, BERKELEY, CA":I16::150:I:J715::J:1:" * *":J:36:"* * "::J:I1622::150:I::8:10:"RICHARD L. WIESEN MD":10:15:"PRESENTS":12:9:"COMPUTER ASTRONOMY "(93)(91):14:12:"FOR THE AMATEUR":I15000::170 " * * * * * * * * * * * *    141HT25Ė25:"0"DE$:H(DE$):570:560l*DE$DE$(PE176):HT:PE176;:HTHT1:HT27542:H(DE$):5700LF2A2A260:F(I)(A$(A2))116:15::"DEC. OK? Y/N ";:975:PE206ė::DE$"":5025:A2H:A30:(O)0(O)1OOH60:<4:DE$;:O(DE$):A$DE$:HT25:10:15:"MINUTES: ";::" ";UPQ,0:HT::" ";: PE(PK):((PE176PE185)PE141)544:HT25PE141544:HT25PE181HPE176:HT:"0"H;:HTHT1:570:560&HT25DE$(PE176):HT:DE$;:HTHT1:542((PE:HT25(PE171PE173)508:PE171DE$"+":HTHT1:(HT1):DE$;:508u PE173DE$"-":HTHT1:(HT1):DE$;:508PE141534:DE$DE$(PE176):24:DE$;:HTHT1:HT26(DE$,1)"-"508:HT27(DE$,1)"-"508(DE$)3DE$" "DE$:534=2CT: ";NS$W6:8:"ENTER DECLINATION OF OBJECT":HT24:8:15:"DEGREES: ";::" ";oPQ,0:HT::" ";:PE(PK):((PE176PE185)PE171PE173PE141)510:PE185DE$DE$"9":534FHT24PE141510:HT24(PE171PE173)508:HT24526$:D(DA$):Y$(Y):M$(M):DD$(D):D1(D):FDD10.5:J(7(((M9)12)Y)4):G0482:S(M9):A(M9):J1(YS(A7))J1(((J1100)1)34)JJ(275M9)D1GJ1:JJ17210272G367Y:F0ıFF1:JJ1: 4:"ENTER NAME OF OBJE)(87)(0):)20(X$)2)X$41);::J:20(X$)2)X$41);:::_P1$:(27)"E"::PR$"ALTAZIMUTH CALCULATOR":400:AA$"Y"ĺ:425:::P0$:|X$"ENTER CALENDAR DATE & TIME OF DAY":430:I12000:I:100:200:600:DY$(D):DA$DY$Cė::330TS12:5::"DO YOU WANT A PRINTOUT? (Y/N) ";:975:PE217AA$"YfPE206AA$"N::AA$"Y"ĺ:"READY THE PRINTER"::"PRESS RETURN TO CONTINUE ";XX$:P1$:(27)"E":RWRW1:AA$"N"ĺ:P0$: :5)(27)(87)(1)PR$(27;:975:PE217G0'&DS$"Y"TZTZ1-'a,S1:A1((A$)):(A$,1)"-"(A$,2,1)"-"S1~6AS(A1A260A33600): J:"WHAT IS THE RIGHT ASCENTION?":12:17::" ";::"H";::" ";::"M";:900:RC:16:15::"R.A. OK? Y/N ";:975:PE206NGE IT? Y/N ";:975:PE206270:PE217ĺ::10:"ENTER CHANGE ";B:B$(B):8:8:"TIME ZONE SET FOR "TZ:10:8:"CHANGE IT? Y/N ";:975:PE217ĺ:12:8:"ENTER NEW TIME ZONE ";TZ#:8:8:"CALENDAR IS GREGORIAN":10:8:"CHANGE TO JULIAN? Y/N ":12:"CHANGE THEM? Y/N ";:975:PE217230:294 P0$::8:8:"LONGITUDE SET AT "L:10:8:"CHANGE IT? Y/N ";:975:PE206250:PE217ĺ:12:5:"ENTER NEW LONGITUDE (DEC.DEG) ";L:L$(L)J:8:5:"LATITUDE SET AT "B" DEGREES N LAT.":11:13:"CHA(D))1Ė23:D" F 16:15::"DATE OK? Y/N ";:A$:A$"Y"ė::100y Y1Y:M1M:D1D:Z$(M)"-"(D)"-"(Y)::: :8:6:"DAYLIGHT SAVINGS TIME? Y/N ";:975:PE206DS$"N PE217DS$"Y0 8:6:"INITIAL SETTINGS FOR BROOKFIELD WI":10(D1$):146^ D1$((PE)176):DD$DD$D1$:HT:D1$;:(DD$)1(DD$)4HTHT1:49168,0:136k D(DD$) 49168,0:D0D31134:(M4M6M9M11)D31134:LY0:Y4(Y4)0Y100(Y100)0LY1 M2156:(LY0D28)(LY1D29)134 (((PE)176):MM$MM$M$:HT:M$;:MM$"0"MM$"1"HTHT1:49168,0:118} ~49168,0:M(MM$):M0M12116:((M))1Ė23:M" LF7158 DD$"":HT23:11:16:"DAY: ";::" "; :HT:" ";: PE(PK):((PEP0PEP9)PE141)138:PE141D";: h:HT:" ";::49168,0| lPE(PK):PEP0PEP9108:PEPEP0:HT:PE;:HTHT1:YY$YY$(PE):(YY$)4104:Y(YY$) tMM$"":HT23:10:16:"MONTH: ";::" ";:49168,0 vHT::" ";:E xPE(PK):((PEP0PEP9)PE141)120:PE141126:M$l251:11::"ALTAZIMUTH CALCULATOR"::34,1? 1000ND$;"IN#4"]D$;"PR#4"i":";A$x#D$;"IN#0"(D$;"PR#0"-X1$(A$,3,2)"-"(A$,6,2)"-19"(A$,9,2): dDD$"":HT23::19:7:"DATE ?":YY$"":9:16:"YEAR: ";::"                             1730:FL1:DSW57.29578:DS1201400:FL1:MM1:M12M1:YY1On500:1380gxDS160DD5:1430DS170DD2:1430DD11450:D2DS:DS1781510:D2DSDD1:14501500(LY1M2D29)M3:DD29:1450(LY0M2D28)M0;2MANI.0091464.51234:MAP2MA((MAP2)(MAP2))P2T<MA0MAMAP2:1340FMC.175301(MA5.85209):MAMAMC:MAP2MAMAP2PMA0MAMAP2:1360ZMD1.5237.141704(MA1.04656):@d1270:1290:1170:::::::(23):YI" "MI" "DI:Q)2:V((P(PMD))(DEQ)):W2AC(V)-HB$"2"FL11280:100]YIY:MIM:DID: DG365YD((M1)31):M31300:DGDG((Y1)4)((.75)((Y1)1001)):1310DGDG(M.42.3)(Y4)((.75)((Y100)1))NIDG715875:(106E.032044(AE1.78547):AEAECE:AEP2AEAEP2IAE0AEAEP2:1200DE1.017(AE3.33926):1330:ZAEMA:(Z)P1Z0ZZP2(Z)P1Z0ZZP2Z0QMDDE:WP1:1260ZP1QMDDE:W0:1260'Q(MD2DE22MDDE(Z)):P(MDDE:::P0$:10:"WANT ANOTHER DATE? Y/N ";:975:PE206ė:1140bj:FL0::::B$"1"1060:1380}tAA$"Y"ĺ:P1$:(12)~:P0$:(4)"RUN MENU1270:1290AENI.0172021.74022:AEP2AE((AEP2)(AEP2))P2AE0AEAEP2:11800C"MD$" ARCSEC"::" MAX AT CLOSEST OPPOSITION IS 25 SEC"::"COMPARISONS ARE......"::"MAXIMUM DIAM (-----------------------)":"AT OPPOSITION":9.36Q25OP24:1120VOP(9.36Q)>`"DIAM AT DATE ("14OP)")":"MINIMUM DIAM (-)":" AT CONJUNCTION":"--------------------------"::Q$((Q),4):"DISTANCE FROM MARS IS "Q$" A.U.":" OR "((Q92.96),4)" MILLION MILES"::MW$((W57.29578),4)B"ANG. DISTANCE FROM THE SUN IS "MW$" DEGR."::(MD$)25MD$"25L"ANGULAR DIAMETER OF MARS IS POSITION ":410::13::"CHOOSE 1 OR 2 ";::" ";:xPE(PK):PE177PE1781040:PQ,0:B$(PE176):B$"1"ė:1060:1380$1160:AA$"Y"ĺP1$::::1080.:400::::AA$"N"ĺP0$8MD$((9.31Q),5):"FOR YEAR "Y" MONTH "M" DAY "D:RAM OFFERS TWO CHOICES":410:" 1) CALCULATES APPROXIMATE ANGULAR":" DIAMETER OF MARS FOR ANY DATE":" 2) PROVIDES APPROXIMATE DATE OF ":" NEXT OPPOSITION AFTER ANY DATE":::4X$"SELECT":410::X$"1) ANGULAR DIAMETER":410:X$"2) NEXT OP7963:LY0:FL0:P13.14159:P26.28318:P1$(4)"PR#1":P0$(4)"PR#0":PK49152:PQ49168:P0176:P9185::(10):X$"MARS: SIZE & OPPOSITIONS":PR$X$:415 D$(4):(14):8::"WANT INSTRUCTIONS? (Y/N) ";:975:PE206ė::::1030::::X$"THIS PROG$41);::+ :20(X$)2)X$41);:::D P1$:(27)(69)::m (27)(87)(1)PR$(27)(87)(0):: Y4Y4:Y5Y100:Y4(Y4)0Y5(Y5)0LY1  :" "; PE(PK):(PE206PE217)980:PQ,0:: AC(X)(X(XX1))1.570100)0LY18 M2170:(LY0D28)(LY1D29)135P ((D))1Ė23:D" 16:15::"DATE OK? Y/N ";:A$:A$"Y"ė::100 :: :10:5::"DO YOU WANT A PRINTOUT? (Y/N) ";:975:AA$(PE)::PE217ĺ:420:425  20(X$)2)X:HT:" ";:N PE(PK):((PEP0PEP9)PE141)145:PE141D(D$):160 D$((PE)176):DD$DD$D$:HT:D$;:(DD$)1(DD$)4HTHT1:49168,0:140 D(DD$) 49168,0:D0D31135:(M4M6M9M11)D31135:LY0:Y4(Y4)0Y100(Y168,0 xHT::" ";: }PE(PK):((PEP0PEP9)PE141)125:PE141130:M$((PE)176):MM$MM$M$:HT:M$;:MM$"0"MM$"1"HTHT1:49168,0:120 49168,0:M(MM$):M0M12115:((M))1Ė23:M" DD$"":HT23:11:16:"DAY: ";::" ";  1000VdDD$"":HT23::19:7:"DATE ?":YY$"":9:16:"YEAR: ";::" ";:qi:HT:" ";::49168,0nPE(PK):PEP0PEP9110:PEPEP0:HT:PE;:HTHT1:YY$YY$(PE):(YY$)4105:Y(YY$) sMM$"":HT23:10:16:"MONTH: ";::" ";:49       "AA$""MT2ĺ(4);"RUN MENU"(SZ$(4),B$(4),Y$(4),M$(2),DA$(2),LT$(5)mTZ$(2),ND$(1),IN$(2){::::5)"THIS PROGRAM SHOWS THE GALILEAN"5)"SATELLITES POSITIONED RELATIVE" 5)"TO JUPITER AT THEIR APPROXIMATE"1ĺ(4);"RUN MENU"RAA$"N"XX$"E"ė:8:"DO YOU NEED TOP OF FORM? Y/N ";:975XX$"E"PE217ĺ(4);"PR#1":(12):(4);"PR#0":(4);"RUN MENU"XX$"E"AA$"N"ĺ:(4);"PR#0":(4);"RUN MENU"AA$"Y"XX$"E"ĺ(4);"PR#0":(4);"RUN MENU"). SATELLITE POSITIONS":7:"(2). RETURN TO MAIN MENU"\`23:15::"CHOOSE ONE ";::" ";}jPE(PK):PE177PE1781130tPQ,0:::MTPE176~::1:5::"SATELLITES OF JUPITER -- ANY DATE"::34,2:MT1230,1170AA$""XX$"E"M$5:16:"ADAPTED BY":7:12:"RICHARD L WIESEN MD":9:15:"27 JULY 1984"s.11:11:"FROM 'CELESTIAL BASIC'"82:X$" ** ALIGNMENT: JOVIAN SATELLITES **":PR$X$:415B3:X$" ANY DATE":415L16:X$"YOUR CHOICES ARE: ":4106V18:7:"(17)977PQ,0:::-1030: 1ST PASSm:10:"ENTER 'E' TO EXIT 'RETURN' TO CONTINUE ";::" ";:PE(PK):PE197PE1411020:PQ,0::PE197XX$"E":1200::9703::40):I412:I:1:" ":I:40:" ":I13:1:80):1:HT19HT20PQ,0+TT$TT$(PE)=(TT$)4905^C((TT$,2)):C4((TT$,2))qCCC460:LTCwPK49152:PQ49168:P0176:P9185:P0$(4)"PR#0":P1$(4)"PR#1":P0$:RM$(4)"RUN MENU"::" ";PE(PK):(PE206PE21HT:" ";:3PE(PK):(PEP0PEP9)PE141910MPE141(TT$)1910PE141Ė17:" ";TT$;:PQ,0:TT$"0"TT$:HT20:905HT17PE178TT$"0":HT:" ";:HTHT1HT18TT$"2"PE179905HT20PE181905PEPEP0:HT:PE;:HTHTER IN THE FORM ";::"HOURS:MINUTES"::" USING A 24 HOUR CLOCK.">:"FOR EXAMPLE, 11:15 PM IS ENTERED AS":14::"23:15":H12:17::" ";::":";::" ";:900:16:15::"TIME OK? Y/N ";:975:PE206ė::PQ,0:800RHT17:TT$"" :)"****"539,(Z$(J))(Z$(I))IJ:5393JPB$(K)Z$(I):Z$(I)"****"Z!KK1c$I1j'Ip*- SUB FOR REDUCING ANGLES0ZZ(ZZ360(ZZ360))3603ZZ0ZZZZ3606 :9::"STARTING TIME OF INTEREST":*A4"ENT(27)(87)(1);PR$;(27)(87)(0)::D  SUB TO DISPLAY SATELLITESh Z$(0)(S1)"I":Z$(1)(S2)"E" Z$(2)(S3)"G":Z$(3)(S4)"C" Z$(4)(0)"J" I04 B$(I)"****" I K0 I04 Z$(I)"****"551 JI4 Z$(J"DATE OK? Y/N ";:A$:A$"Y"ė::1005 ::DAD:~ :10:5:"DO YOU WANT A PRINTOUT? (Y/N) ";:975:PE206AA$"N":: PE217AA$"Y":420:440: 20(X$)2);X$;41);:: :20(X$)2);X$;41);::: P1$:(27)(69)::$ HT:D$;:(DD$)1(DD$)4HTHT1:49168,0:154= D(DD$)X 49168,0:D0D31151y (M4M6M9M11)D31151 LY0:Y4(Y4)0Y100(Y100)0LY1 M2184 (LY0D28)(LY1D29)151 ((D))1Ė23:D;" "& 16:15::$"1"HTHT1:49168,0:1301 49168,0:M(MM$)C M0M12127] ((M))1Ė23:M;" " DD$"":HT23:11:16:"DAY: ";::" "; :HT:" ";: PE(PK):((PEP0PEP9)PE141)157 PE141D(D$):1690 D$((PE)176):DD$DD$D$: vPEPEP0:HT:PE;:HTHT1= yYY$YY$(PE):(YY$)4109J |Y(YY$) MM$"":HT23:10:16:"MONTH: ";::" ";:49168,0 HT::" ";: PE(PK):((PEP0PEP9)PE141)133 PE141142 M$((PE)176):MM$MM$M$:HT:M$;:MM$"0"MM  ALIGNMENT OF8 JOVIAN SATELLITES -- ANY DATEM1000: 7-26-84sdP0176:P9185:PK49152:HT17:QQ0gDD$"":HT23::19:7:"DATE ?"jYY$"":9:16:"YEAR: ";::" ";:m:HT:" ";:p49168,0sPE(PK):PEP0PEP9115                " STATUTE MILES"910:12:(D1.852);:" KILOMETERS"pP0$:20:11::"MORE CALCULATIONS? Y/N";::975:PE217ĺ::1030:RM$5:"FROM ";::FL$;::" TO ";::SL$;::" IT IS"6:12:D;" NAUTICAL MILES"8:12:(D1.1508);:2DR:L3L3DR:L4L4DRA~A((L1)(L3)((L1)(L3)(L2L4)))\A(A(AA1))PI2wD(PI3A)RD2:D(D)AA$"Y"ĺ:P1$4:5:"FROM ";::FL$;::" TO ";::SL$;::" IT IS"6:12:D;" NAUTICAL MILES"8:12:(D1.1508);:BL1$((L1),6):L2$((L2),6):L3$((L3),6):L4$((L4),6)qL6:1::FL$;::" LAT = ";L1$;" LONG = ";L2$V8:1::SL$;::" LAT = ";L3$;" LONG = ";L4$`12:14::"IS IT OK? Y/N";::" ";:975:PE206ĺ:QQ0::1030jtL1L1DR:L2LNU"[$PK49152:PQ49168:P0176:P9185:DE$"":QQ0:PI3.141592654:DRPI180:RD180PI:400)AA$"Y"ĺ:PR$"GREAT CIRCLE DISTANCE":P1$:825:::.P0$:500:L1DG::500:L2DG::500:L3DG::500:L4DG8:4:8:"DATA IN DECIMAL DEGREES IS:":>CH PLACE.":450e:X$"ENTER SOUTH LATITUDE AND WEST":450:X$"LONGITUDE AS NEGATIVE NUMBERS":450:1::"NAME OF FIRST LOCATION?";::" ";FL$:1::"NAME OF SECOND LOCATION?";::" ";SL$P0$(4)"PR#0":P1$(4)"PR#1":RM$(4)"RUN ME::1:5::"GREAT CIRCLE DISTANCE CALCULATOR"::34,2:50:18:7)"PRESS ANY KEY TO CONTINUE ";:A$:4:X$"THIS PROGRAM CALCULATES THE":450:X$"DISTANCE BETWEEN ANY TWO PLACES":450:X$"ON EARTH WHEN GIVEN THE LONGITUDE":450:X$"AND LATITUDE OF EA0)1:574!<H(DE$):DGOH60_>16:14::"INPUT OK? Y/N ";:975:PE206ė::DE$"":508t@QQQQ1:DE$"":*:P1$/(27)"E":9:(27)(87)(1);PR$;(27)(87)(0)::" ";PE(PK):(PE206PE217)977PQ,0:::dHT26PE181HPE176:HT:"0";H;:HTHT1:DE$(H):PQ,0:570o 0HT26DE$(PE176):HT:DE$;:HTHT1:552 2PE141HT26Ė25:"0";DE$:PQ,0:570 4DE$DE$(PE176):HT:PE176;:HTHT1 6HT28552 8PQ,0 :(O)1H(DE$):DG((O)H6"ERROR":I11500:I:::508V "(O)180ė:10:18::"ERROR":I11500:I:::508p $(O)180DE$"":570 &DE$"":HT26:10:15:"MINUTES: ";::" "; (PQ,0:HT::" ";: *PE(PK):((PE176PE185)PE141)554 ,HT26PE141554? .5142 PE173DE$"-":HTHT1:(HT1):DE$;:514B PE141540j DE$DE$(PE176):24:DE$;:HTHT1 HT27(DE$,1)"-"514 HT28(DE$,1)"-"514 (DE$)4DE$" "DE$:540 24:DE$; O(DE$):(QQ0QQ2)(O)90ė:10:18::::" ";:F PE(PK):((PE176PE185)PE171PE173PE141)516q ((QQ0QQ2)PE185)DE$DE$"9":540 HT24PE141516 HT24(PE171PE173)514 HT24532 HT25(PE171PE173)514 PE171DE$"+":HTHT1:(HT1):DE$;:17ĺ:810 , 20(X$)2)X$41);::J QQ0PP$FL$" LATITUDE"i QQ1PP$FL$" LONGITUDE" QQ2PP$SL$" LATITUDE" QQ3PP$SL$" LONGITUDE" DE$"":6:5:"ENTER ";PP$ HT24 8:15:"DEGREES: ";::" "; PQ,0:HT  1000<23::40):I412:I:1:" ":I:40:" ":IO<13:1:80):F5:20:"BY":7:12:"RICHARD L WIESEN MD":9:15:"15 JULY 1984":23:5::"DO YOU WANT A PRINTOUT? (Y/N) ";:975:PE217AA$"Y"PE206AA$"N" PE2        00::970@3::40):I412:I:1:" ":I:40:" ":IS13:1:80):$5:16:"ADAPTED BY":7:12:"RICHARD L WIESEN MD":9:15:"31 JULY 1984".11:11:"FROM SKY & TEL AUG 84"8X$" ** ANGULAR SEPARATION OF TWO STARS **":PR$X$:2 MENU":* YES OR NO ANSWER SUBROUTINE6:" ";ZPE(PK):(PE206PE217)977jPQ,0:::1030: 1ST PASS:10:"ENTER 'E' TO EXIT 'RETURN' TO CONTINUE ";::" ";:PE(PK):PE197PE1411020:PQ,0::PE197XX$"E":12,2)):C4((TT$,3)):C4C41000=A$(TT$,2):A2C2:A3C3C4sFL1A1$A$" HRS "(A2)" MIN "(A3)" SEC":FL2A3$A$" HRS "(A2)" MIN "(A3)" SEC":PK49152:PQ49168:P0176:P9185:P0$(4)"PR#0":P1$(4)"PR#1":P0$:RM$(4)"RUN";:HTHT1(HT18TT$"2"PE179905>HT20PE181905THT23PE181905PEPEP0:HT:PE;:HTHT1:HT19HT20HT22HT23HT25HT26PQ,0TT$TT$(PE)(TT$)9905C1((TT$,2)):C2((TT$,3,2)):C3((TT$,5 "(A2)" MIN "(A3)" SEC":B ENTER TIME OF DAY SUBROUTINESHT17:TT$""e:HT:" ";:PE(PK):(PEP0PEP9)PE141910PE141(TT$)1910PE141Ė17:" ";TT$;:PQ,0:TT$"0"TT$:HT20:905 HT17PE178TT$"0":HT:" (DE$)1000:680:DE$DE$(PE176):HT:PE176;:HTHT1IHT28635\MS(DE$)1000vA$(O):A2H:A3SEMS16:15::"DEC. OK? Y/N ";:975:PE206ė::DE$"":502FL1A2$A$" DEG "(A2)" MIN "(A3)" SEC":FL2A4$A$" DEG ";::" ";&{PQ,0:HT::" ";:RPE(PK):((PE176PE185)PE141)640hHT25PE141640HT25DE$(PE176):HT:DE$;:HTHT1:635PE141HT26DE$DE$"00":25:DE$:MS(DE$)1000:680PE141HT27DE$DE$"0":25:DE$:MS6041`HT25PE181SEPE176:HT:"0";SE;:630abHT25DE$(PE176):HT:DE$;:HTHT1:602dPE141HT25Ė25:"0";DE$:SE(DE$):630fDE$DE$(PE176):HT:PE176;:HTHT1hHT27602jSE(DE$)vDE$"":HT25:14:10:"MILLISECONDS:5421(PE141HT25Ė25:"0";DE$:H(DE$):558\*DE$DE$(PE176):HT:PE176;:HTHT1k,HT27542x.H(DE$)XDE$"":HT25:12:15:"SECONDS: ";::" ";ZPQ,0:HT::" ";:\PE(PK):((PE176PE185)PE141)604^HT25PE141Ė24:DE$; O(DE$):A$DE$N DE$"":HT25:10:15:"MINUTES: ";::" ";f PQ,0:HT::" ";: PE(PK):((PE176PE185)PE141)544 "HT25PE141544 $HT25PE181HPE176:HT:"0";H;:600&HT25DE$(PE176):HT:DE$;:HTHT1:1PE173)508< PE171DE$"+":HTHT1:(HT1):DE$;:508k PE173DE$"-":HTHT1:(HT1):DE$;:508{ PE141534 DE$DE$(PE176):24:DE$;:HTHT1 HT26(DE$,1)"-"508 HT27(DE$,1)"-"508 (DE$)3DE$" "DE$:534 N OF OBJECT" HT249 8:15:"DEGREES: ";::" ";Q PQ,0:HT::" ";: PE(PK):((PE176PE185)PE171PE173PE141)510 PE185DE$DE$"9":534 HT24PE141510 HT24(PE171PE173)508 HT24526 HT25(PE17;XX$:P1$:(27)"E":RWRW1:3 AA$"N"ĺ:P0$:a :5)(27)(87)(1);PR$;(27)(87)(0): 20(X$)2);X$;41);:: :20((X$)2));X$;41);::: P1$:(27)"E":  DECLINATION SUBROUTINE DE$"" 6:8:"ENTER DECLINATIO00' H16:15::"R.A. OK? Y/N ";:975< JPE206ė::310B T\  PRINTOUT SUBROUTINE 12:5::"DO YOU WANT A PRINTOUT? (Y/N) ";:975:PE217AA$"Y" PE206AA$"N"  :AA$"Y"ĺ:"READY THE PRINTER"::"PRESS RETURN TO CONTINUE "  1000' SEXAGESMAL TO DECIMAL-AF1:A1((A$))W(A$,1)"-"F1rAF(A1A260A33600)x, R.A. SUBROUTINE6:"WHAT IS THE RIGHT ASCENTION?" @12:17::" ";:"H";:" ";:"M";:" ";::".";::" ";:"SEC";:9!! ! ! ! ! !!!!!!!!!      JULIAN": G1Ğ:"GREGORIANp12:3::"YIELDS ";::14:5::"JULIAN DAY ";::" "J"+"F:AA$"Y"ĺ:P0$AA$"N"AA$"Y"ĺ:23:8:"PRESS RETURN TO CONTINUE";:"";A$1020:PR$"JULIAN DAY TO CALENDAR DATE":400:AA$"Y"ĺ:425:::P((M9)12)Y)4):G01410:S(M9):A(M9):J1(YS(A7)):J1(((J1100)1)34)JJ(275M9)D1GJ1:JJ17210272G367Y:F01450:FF1:JJ1:::4:8:PR$::AA$"Y"ĺ:P1$ :10:"THE DATE ";::" "Y$","M$","DD$" ";:G0Ğ:"MAL FRACTION? Y/N ";:975:PE217İ800:6PE206ė DY$(D):DA$DY$C$:D(DA$):Y$(Y):M$(M):DD$(D):12:4::"JC (0) OR GC (1) ";::" ";PE(PK):(PE176PE177)1310:PQ,0:::PE176G0<PE177G1WFD1(D):FDD10.5:J(7((12):P0$:P0$:RM$:e:PR$"CALENDAR DATE TO JULIAN DAY":400:AA$"Y"ĺ:425:::P0$:(X$"ENTER CALENDAR DATE & DECIMAL FRACTION":430:X$"TO GET":430:X$"JULIAN DAY & DECIMAL FRACTION":430:I12000:I:100:10:5::"IS THERE A DECI DAY":5:"(2). JULIAN DAY TO CALENDAR DATE":5:"(3). RETURN TO MAIN MENU":23:15::"CHOOSE ONE ";::" ";:tPE(PK):PE177PE1791140:PQ,0:MTPE176:MT1240,1560,1170RW0XX$"E"ĺ:RM$RW0RW5ĺ:P1$:(12):P0$ RW5ĺ:P1$: ** JULIAN DAY <==> CALENDAR DATE **":PR$X$:435:3:X$"INCLUDING DAY FRACTIONS":435:13:X$"FROM JULIAN DAY 0.0 TO WHATEVER":435:14:X$"USING JULIAN OR GREGORIAN CALENDAR":435:16:X$"YOUR CHOICES ARE: ":430o`18:5:"(1). CALENDAR DATE TO JULIANNUE ";XX$:XX$"E"1170::PK49152:PQ49168:P0176:P9185:P0$(4)"PR#0":P1$(4)"PR#1":P0$:RM$(4)"RUN MENU":3::40):I412:I:1:" ":I:40:" ":I:13:1:80)::5:20:"BY":7:12:"RICHARD L WIESEN MD":9:16:"1 MAY 1984.2:X$" HT:PE;:HTHT1:HT19HT20{PQ,0:TT$TT$(PE):(TT$)4905:C((TT$,2)):C4((TT$,2)):CCC460:CC24:C$(C)::" ";PE(PK):(PE206PE217)977:PQ,0::(4)"PR#0":RW0:1030:10:"ENTER 'E' TO EXIT 'RETURN' TO CONTI00RHT17:TT$"*:HT:" ";:PE(PK):(PEP0PEP9)PE141910:PE141(TT$)1910:PE141Ė17:" "TT$;:PQ,0:TT$"0"TT$:HT20:905HT17PE178TT$"0":HT:" ";:HTHT1HT18TT$"2"PE179905:HT20PE181905:PEPEP0:L DAY FRACTION OF INTEREST?"::"ENTER IN THE FORM ";::"HOURS:MINUTES"::" USING A 24 HOUR CLOCK."::"FOR EXAMPLE, 11:15 PM IS ENTERED AS":14::"23:15":H12:17::" ";::":";::" ";:900:16:15::"TIME OK? Y/N ";:975:PE206ė::PQ,0:8AA$"Y"ĺ:"READY THE PRINTER"::"PRESS RETURN TO CONTINUE ";XX$:P1$:(27)"E":RWRW1:p AA$"N"ĺ:P0$: :5)(27)(87)(1)PR$(27)(87)(0): 20(X$)2)X$41);:: :20(X$)2)X$41);::: P1$:(27)"E": ::"DECIMA100)0LY18 M2154:(LY0D28)(LY1D29)132P ((D))1Ė23:D" 16:15::"DATE OK? Y/N ";:A$:A$"Y"ė::100 Y1Y:M1M:D1D::: 12:5::"DO YOU WANT A PRINTOUT? (Y/N) ";:975:PE217AA$"Y PE206AA$"NZ :::HT:" ";:N PE(PK):((PEP0PEP9)PE141)136:PE141D(D$):144 D$((PE)176):DD$DD$D$:HT:D$;:(DD$)1(DD$)4HTHT1:49168,0:134 D(DD$) 49168,0:D0D31132:(M4M6M9M11)D31132:LY0:Y4(Y4)0Y100(Y168,0 vHT::" ";: xPE(PK):((PEP0PEP9)PE141)120:PE141126:M$((PE)176):MM$MM$M$:HT:M$;:MM$"0"MM$"1"HTHT1:49168,0:118 ~49168,0:M(MM$):M0M12116:((M))1Ė23:M" DD$"":HT23:11:16:"DAY: ";::" ";   1000VdDD$"":HT23::19:7:"DATE ?":YY$"":9:16:"YEAR: ";::" ";:qh:HT:" ";::49168,0lPE(PK):PEP0PEP9108:PEPEP0:HT:PE;:HTHT1:YY$YY$(PE):(YY$)4104:Y(YY$) tMM$"":HT23:10:16:"MONTH: ";::" ";:49"" " " " " """""""""