' +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- (  Ϡ@跻~!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`33>3@ 60 3<3603333@333>363Ȅ3ᰳ 33 0f37>70c?0`?6 7~8360700$`3?77806?7Ȅ0"ᰳ烀6 ?07<0 0f37?>8?0c036 ?~8`3760?0$337376??|76?00"Ĉᰳ6 37?<0 <p?>0;>􋀷ԍ2*@%*6B+,M0+8+ + ! +#+ $1+6$6+-+:+:+ '+%+.!+&+(+ ;+((+ 1/+++ +4+,+$+ 59+8+(-+6()+3+ 7 ++ +&"+  +,+3#+.+ $+,,+(+$+;++ +/++%++:+* * /***,4*)4*# *4*+5*K)*+ *;-9*,8*2* *!* 5 *, * 5**- * '$*4*4*!&* 6*& * * !)*2*5*.***&+* * -** 8"*0*-=*$*%*$&* %Q* 46**:*1*4*6*+* *))1 ) ) )/)().) ).9)9)-R)-!*. **/2*85** $**7 *-+* 1*"**9* #*>;*;9*G*4 *0*(9**2&*.**/-**'*: 4* -**+*V*$)*$0 *.1*5***" **5*( "(%( ;(8 (((($ (1($)(,R( 7). ) 33)(3)$) )0)')1),1 )-) 9)38)&) ') ,))74)-)%;).)'&)0)0)%-) 9)%*).) $),')5,)95) #$) )(,)/)$) )")!>8)'+:/'!3( ( ( 7(+()0(56(2 7( 0((:"(2*(1#((;4(!-$(;(-(#(-( +(..( -(/+( (! ( 6 (:#/(<( (+ (6(%( 10( 2(33( 1%(,'(; ((0( )(7(6(#6((+2)( ('(/ &;#&86& 4&7&.&.''8'#/'7+9''7' '$'9) ')'3'')!', ')$'$' ;'2%''1'H' 68'  '."';1''64.'8'+9' )/'''6'%' '9'(''(' ''3' '/*' '&;& $1& -&#"& 5" & 3&*&.& :&, &0F& E&.& &/&8'&&)&,0&.&#&8%&&7'& % & ;&('&9&&/& &8&& &&&&6 & ,& :0& -& !E/& (&+'&!5&%.& & '&-& & & &8 &$3$$ )$7$$$9$+ $ .//%-%,%2%8 %7%;6%4#%3%+8% ,%6% "%&% %.6%&$%/+% % % %%584% %2%1%% %,%%4#%/%3,%-*#%5%276%'7% 53%)%34%0% .,% 2;% ,4%/ &'.#1#0###H,#,# # .#4## # #%0%## / # #%$#%#3# # #-;#)#4!:$,$ $ 2.$ $ !$1$$$-,$*$(7$ -+$%$6$1$6$$56$@$&/$(($ ?$ $# 8$$.$$) 2!!" " -"""4"5#".," " 1)", "-=2":" "2!"5"191" " :" *7"+" !"8"8;" 1"0" ) 6"!":"2$"(",8#4#1B #9#:##&2#  # #;#*&8#+.# # .#.2#%# !3#2# 8##)*: 3)-A+F!19 9  1  ' 'M% *   1 5 '4 : ) 08 ) " 61 /  +!::! 9!(! ! )!! !! ! !!;/!- 6!<+!14! : !! "$!!*!.! 7!6?)! !) 9(:1%55+ :  -.+2  %  4 %+ "; ,5*/// )2G2 & ./ C(:%792. 1 . :; #;2 "3;0 /$0% +  4600',;%  ":< 6 .19!  %. %=) +2#7 *+"# 4)$ -/  :  # 7- 65"5:",-/## 8&+;Y(9 #%/(7" "2J  **5 1"(9 ): ((8 83"+   68 ; 2% ')#  8, 5,* + 55*>#.!:   7 %"8<+ 2 a-+) $&/. '2'%247#   9% - )- /*  : :: !$  +$ '2: =- 67913 % /1;,9 3,0%,+ (9"5;7;          PJ)((LAD)PJ))(RR((ADLL)PJ)):B(B):BBPJR4 2510:PL(QP)AD:PK(QP)GX:X4 }4 DO THE WHOLE KIT'N'KABOODLE 4 4 2660:21854 QP184 3260:RHAD:DHGX:26324HXLR:2440:TRHX:HXLS:2440:TSHX4YXYZ:MXMZ(5WWND:H34823 LDPN(L)U3 B(RD(UIPJ)((LAD)PJ))(RR((ADLL)PJ)):B(B):BBPJu3 2510:PL(QP)AD:PK(QP)GX:{3 3 #50.3 OUTER PLANET3 3 L(RR((ADLL)PJ))(RDRR((ADLL)PJ))3 L(L):LLPJ:LLAD3 LDPN(L)24 B(RD(UIPJ):UIS(X)'2f Y((SLQ)PJ)(IPJ):2p X((SLQ)PJ)M2z 2545:ADAD15h2 ADADQ:RDSR(UIPJ)w2 QP23500}2 2 #50.2 INNER PLANET2 2 AA(RD((LLAD)PJ))(RRRD((LLAD)PJ)):AA(AA):AAAAPJ2 L180LLAA3 L0LL360:E(VPPJ))!1 NE0.985607908N811" NEDPN(NE)F1* MENE3.76286306l14 LLNE1.9157416(MEPJ)98.8335416 LL0LLLL360:338218 LL360LLLL360:33841> VELL102.5964031H RR.999720508(1.016718(VEPJ))1I R3RR 2\ X((SLQ)PJ)(I0 '0 #50.1 COORDINATES OF PLANETST0 IN=PLANET DATA,YY,MM,DD OUT=PL(),PK()Z0 v0 TP,EE,UU,E,A,I,Q,T0,CA0 NP0.9856473N8TP0 NPDPN(NP)0 MPNPEEUU0 SLNP(2PJ)E(MPPJ)EE0 SLDPN(SL)0 VPSLUU 1 SR(A(1EE))(1,1.74E-4_/N 84.01247,228.0708551,172.736328,.046323,19.21814,.772989,73.876864,65.8,7.597E-5/X 164.79558,260.3579,47.8672148,.009002,30.10957,1.771602,131.560649,62.2,7.597E-5/b 250.9,209.439,222.972,.25387,39.78459,17.137,109.941,8.2,4.073E-61E-5Z.0 1.88089,126.30783,333.6908166,.0933865,1.5236883,1.849801,49.4032,9.36,4.539E-6.: 11.86224,146.96636,14.009549,.048466,5.20256,1.304182,100.252017,196.74,1.994E-4/D 29.45771,165.322242,92.665397,.055616,9.554747,2.489374,113.488834,165.6X:WSSX:HXSW:1723:HU(HX):MUFX:SUSX.- 4- Q- PLANET ORBIT DATA W- - .24085,231.2973,77.1442128,.2056306,.3870986,7.0043579,48.0941733,6.74,1.918E-6.& .61621,355.73352,131.289579,.0067826,.7233316,3.394435,76.4997524,16.92,1.72I(0)VM:, !, #46 TWILIGTE, IN=#45 OUT=WH,WM,WS,HU,MU,SUK, m, X(OIPJ)(GDPJ):LHC(X), X(0.3090169(OIPJ)(GDPJ))((OIPJ)(GDPJ)), HDC(X), T(HDLH)15:TT.9973, WRTRT:SWTST(- HXWR:1723:WH(HX):WMFHPN(TS)/+ HXTR:2432:TRHX:HXTS:2432:TSHX?+ MXMZ:2185g+ HXTR:2220:TRHX:HXTS:2220:TSHX+ TRTRZC:TRHPN(TR)+ TSTSZC:TSHPN(TS)+ HXTR:1723:UH(HX):UMFX:USSX:HXTS:1723:VH(HX):VMFX:VSSX , IH(0)UH:IM(0)UM:HI(0)VH:M 1080#& NOW DISPLAY THE PLANETB& QPR:PR0: TURN PRINT OFFM& J08c& RAPR(J)0.261799t&!DECPD(J)RD& !MAGJ6&!2000& !&*!PRQ: RESET PRINT&4!1150>!8510!8510N851001:" ";$%l A21QQ1:Q17Q17<%v A8QQ1:Q9Q9J% A27290Z% A138270k% Q:1:"->";|% 20:1:958% 20:"Hit any key to view the planet":% "Hit ESC to exit ";:A$::A$(27)8150% QQ9% R0PR(Q):D0PD(Q):WI60&----------------------"$($ I08O$ " ";PN$(I);16);PR(I);28);PD(I)U$ $& 20:"Pick a Arrows to move"$0 :"planet Return to choose"$: :" ESC to exit";$D Q9$N Q:1:"->";$X A$:A(A$) %b 2:DHG2:2632:R2LRDT:S2LSDT[*h TR(24.07R1)(24.07R1R2):TS(24.07S1)(24.07S1S2)l*m GD(G1G2)2*r X(OIPJ)(GDPJ)*s UIC(X)*w X.0145835939(UIPJ):YS(X)*| DT240Y(GDPJ):DTDT3600* TRTRDT:TSTSDT+ TRHPN(TR):TS)" AHHX:AMFX:SASX-), D(0)RX:T(0)TH60:3)T N)U #45 SUNRISE & SUNSET})V IN=YY,MM,DD,OI,LN OUT=UH,UM,US,VH,VM,VS)W )^ 2700)_ L1L:A1AD:G1GX:LL.985647:B0:2510:L2L:G2GX:A2AD)` XMMX*c RHA1:DHG1:2632:R1LRDT:S1LSDT:RHA B0( 2510( RZAD:DZGX7( PL(0)RZ:PK(0)DZ:=( _( #44 SUN'S DISTANCE AND SIZE( IN=#42.1 OUT=AH,AM,SA,RX( ( 2660( VXMXEC( FX(1.016718(VXPJ)).999720508( RX1FX( THFX.533128( HXTH:1723( HX(HX)(P$)0P$"PLANETS.DATA"&#7:958<#9:"Loading ";P$Q#(4);"OPEN ";P$f#(4);"READ ";P$p#DTE$#I08:PR(I):PD(I):#(4);"CLOSE ";P$#PP1#5:958#DTE$#" Planet";20);"R.A";30);"Dec"$"-----------------1913,2:1785,2:1145,761"(17):(4);"PR#0":N"@ DISPLAY PLANETS V"J:r"T12);"Planets Display""^12);"---------------""cPP8150"h5:"Display the planets using which file?""r:"> PLANETS.DATA";"|1:"> ";P$#P$""CNJQ20:: !4);CN$(J):=! 7:25:"Arrows to move"\!9:25:"RETURN to choose"z!11:25:"ESCAPE to exit"!(!X PRINT THE SCREEN!b(4);"PR#1"!lFLAG3ĺDTE$;30);"R.A ";(R0100)100;40);"Dec ";(D0100)100:7030!q"vW(Q);" Degrees."@ 20:"Hit any key to view constellation ":{ "Hit ESC to exit ";:A$::A$(27)QQS:6350:6120 R0CR(Q):D0CD(Q):WICW(Q):1080  SHOW 15 CONSTELLATIONS  Q IS 'FIRST' CONSTELLATION 7:958 JQQ14!J:SS1:S16120*VS14:QQ15:Q1Q1:`6350:6120DjQQSgtQCNQCN14:S14:6350:6120w~7:1:9588:CN$(Q);" IS CENTERED ON":" R.A ";CR(Q);" Hours"" Dec ";CD(Q);" Degrees" 13:"with a field width of ";C8:"Choose a constellation.."+Q1:63508S0:CF1L7S:1:"-->";\A$:T(A$)kT216190yT86220T136250T27290$"";:6130.1:" ":SS1:S1561208S0:QQ15:QCNQCN14B6350:6120L1:" ",40p CONSTELLATION SECTION'z:1CN88L13);"Constellations"g13);"--------------"tCF6090CN$(88),CR(88),CD(88),CW(88)4:"Please wait, retrieving constellations.";I1CN:CN$(I),CR(I),CD(I),CW(I):4:1:9520,50! TELESCOPIUM,19,-50,40: TRIANGULUM,2,30,30^ TRIANGULUM AUSTRALE,16,-65,40t TUCANA,0,-65,40 URSA MAJOR,11.5,50,40 URSA MINOR,16,80,45 VELA,9.5,-50,45 VIRGO,13.5,0,50 VOLANS,8,-70,40 VULPECA,20,25ETICULUM,3.75,-60,30.D SAGITTA,19.75,20,30LN SAGITTARIUS,18.5,-30,40eX SCORPIUS,17,-35,50b SCULPTOR,0.5,-30,45l SCUTUM,18.75,-10,30v SERPENS CAPUT,15.8,10,40 SERPENS CAUDA,18,-5,50 SEXTANS,10.25,0,35 TAURUS,4.5,17,0,45 ORION,5.5,0,401 PAVO,20,-65,40J PEGASUS,23.5,25,60c PERSEUS,3.5,-50,40z PHOENIX,1,-45,35 PICTOR,6,-55,30 PISCES,0.5,15,60 PISCES AUSTRINUS,22.5,-30,40& PUPPIS,7.75,-30,500 PYXIS,9,-30,40: R,30h LIBRA,15.25,-15,302r LUPUS,15,-40,40E| LYNX,8,50,50\ LYRA,18.75,35,30s MENSA,5.5,-75,40 MICROSCOPIUM,21,-35,40 MONOCEROS,7.25,0,45 MUSCA,12.5,-65,35 NORMA,16,-50,40 OCTANS,20,-90,50 OPHIUCHUS, GEMINI,7,20,45, GRUS,21.25,-50,30D HERCULES,17,30,60` HOROLOGIUM,3.25,50,40v" HYDRA,11,-20,90, HYDRUS,2,-70,506 INDUS,21.5,-55,30@ LACERTA,22.5,50,30J LEO,11,15,50T LEO MINOR,10.25,35,35^ LEPUS,5.5,-20A BOREALIS,15.75,30,30/ CORVUS,12.5,-20,30H CRATER,11.5,-15,40i CRUX AUSTRALIS,12.5,-60,30 CYGNUS,20.5,40,40 DELPHINIUS,20.6,15,30 DORADO,7,-60,30 EQUUELUS,21.25,5,30 ERIDANUS,3.75,-30,100 FORNAX,3,-30,30'i 1020:2670$'n N8JD2444238.5*'x 0' K' #42.1 SUN'S POSITIONh' IN=YY,MM,DD OUT=RZ,DZn' x' 2660' NX.985647332N8' NXDPN(NX)' MXNX3.76286' MXDPN(MX)' EC1.9157416(MXPJ)' LNXEC278.83354' LDPN(L)(ORTION&&O IN=OI,DH,LR,LS OUT=LR,LSI&P UI(OIPJ)(DHPJ):UIC(UI)u&R X.566667:Y0.00989004(UIPJ):YS(Y)&T DT240Y(DHPJ):DTDT3600&V LSLSDT:LRLRDT&Z &d &e #42.2 No. DAYS SINCE JAN 0.0 1980&f IN=YY,MM,DD OUT=ND'g _PHkDLkkDLkLIkDLkkDLkNF NNF 7BACFF 7BACFF 7BACFF 7BACFFF 7BACFF 7BACFBACFNF 7BANF 7BANF 7BAF 7BAN40< CASSIOPEIA,1,60,307F CENTAURUS,13.5,-50,50MP CEPHUS,22,70,40dZ CETUS,1.5,-10,60d CHAMAELEON,10.5,-80,30n CIRCINUS,15,-60,40x COLUMBA,6,-35,30  COMA BERENICES,13,20,30 CORONA AUSTRALIS,18.75,-40,30 CORON AURIGA,5.5,35,40) BOOTES,14.8,30,40B CAELUM,4.75,-40,30` CAMELOPARDIS,4.25,70,40w CANCER,8.5,20,40  CANES VENACETI,12.5,40,30 CANIS MAJOR,6.8,-25,35  CANIS MINOR,7.7,5,30( CAPRICORNUS,21,-20,402 CARINA,8,-60,CDECRDMAG(HERE4)108MAG12.7MAG12.8MAG>[ LIST OF CONSTELLATIONSs ANDROMEDA,1,35,40 ANTILA,10,-30,30 APUS,16,-80,30 AQUARIUS,22,-10,60 AQUILA,20,10,40 ARA,17.5,-55,30 ARIES,2.5,20,30  D$;"BLOAD NEWSHAPES,A$6000"3 232,0:233,96Q D$;"BLOAD ";F$;",A25000"W t CALCULATE RA,DEC & MAG FROM DATABASEHEREBASE5JRA((HERE)(HERE1)60)0.261799DEC(HERE2)(HERE3)60DEC127DEC128DECDE:YRK0(BCADF)(XCXX:YCYYYH= XSX1X02150R*YSY1Y02150b4 PLOT STARp>BPĺ"";HMAG0MAG0RPR12140,2160\MAG1X,YfpMAG218X,Yz DATABASE LOADING :"LOADING DATABASE" D$(4)N:4000:2000:MAGLMJN1"j3tFLAG38410E~"":A$:UPR1İ7000nFLAG1000,6000,8000 DO SETUP CALCULATIONSPHDEC:DLRAL0A(P0):B(P0)C(PH):D(PH)E(DL):F(DL)K02(1ACBDF) XRK0DE0*"Enter the field width in degrees-"<"Width: ";WIg$20:"Hit any key to view the field":."Hit ESC to exit ";:A$::A$(27)2908RSX53WI:L00.261799R0:P0D0RDB:3LBD1120V0,0SX1,0SX1,SY10,SY10,0`J1868:FLAG$(FLAG); 25:A$JA(A$):A8FLAGFLAG1:FLAG1FLAG1o A21FLAGFLAG1:FLAG3FLAG3}*A272904A13770>460 PLOT AN ARBITRARY VIEW:34,9"Enter the RA,Dec of the field centre-""RA,Dec: ";R0,DA$A(A$):A272905A8LMLM1:LM1LM1RA21LMLM1:LM5LM5iA54A48LMA48xA1365016:25:TRUE$(PR)16:25:A$A(A$):A8A21PRPR:YH0.50.1PR:720A27290A13ĺ"";:72018:1: to exit" &10:25:TRUE$(BD)0 010:25:A$R :A(A$):A8A21BDBD:550` DA27290v NA13ĺ"";:550 X12:25:TRUE$(BP) b12:25:A$ lA(A$):A8A21BPBP:600 vA27290 A13ĺ"";:600 14:25:LM14:25:en";25);TRUE$(PR) ) FLAG$(FLAG): 20:1:958B 23v "Do you wish to change the parameters N";(8); A$:A$"Y"520 (A$)27Ģ10:1:958: FLAG1000,6000,8000 A$:20:"Arrows to select" "Return to move" "ESCplots a stereographic map of"I ^"the sky from a star database, of the"q h"region and field you select.":10 r"Draw a border";25);TRUE$(BD) | "Beep a star";25);TRUE$(BP)  "Limiting Magnitude";25);LM  "Print the screPN$(0)"Sun":PN$(1)"Mercury":PN$(2)"Venus"_ PN$(3)"Mars":PN$(4)"Jupiter":PN$(5)"Saturn" PN$(6)"Uranus":PN$(7)"Neptune":PN$(8)"Pluto" " INFORMATION SCREEN 'PP0 ,: 616:"STARPLOT" @16:"--------" J5 T"Starplot EFAULT PARAMETERS BD0# BP0, LM55 PR0@ FLAG2X PARAMETER STRINGSz TRUE$(0)"No ":TRUE$(1)"Yes" FLAG$(1)"View a part of the sky" FLAG$(2)"View constellations" FLAG$(3)"View planets position" PLANET NAMES,   16383% DATABASE CONSTANTS0N1106F(F$"STARCAT1.OBJ"U2BASE24995[<vFPI3.1415926:RDPI180P LOAD DATABASEZ(232)0(233)96110d3000nSX280:SY192:YH1.0xCXSX2:CYSY2PI3.1415926:RDPI180 D            X0ADAD180"% AD0ADAD360;% ADAD15:RZAD:DZGXA% G%! `%( #32.1 RISE AND SET}%) IN=OI,RZ,DZ OUT=LR,LS%H LH(OIPJ)(DHPJ):LHC(LH):LHLH15%J LR24RHLH%L LSRHLH%M LSHPN(LS):LRHPN(LR)&N #32.2 ATMOSPHERIC DIST$ ENTRT@2510 IN=L,B$ R$ GX(BPJ).91746406(BPJ).397818676(LPJ)`$ GXS(GX)$ Y(LPJ).91746406(BPJ).397818676$ X(LPJ)$ 2550:$ $ #27.2 TAN CORRECTION$ IN=AD,X,Y OUT=AD$ $ AD(YX):ADADPJ% AAA24#HXHXAA$#HXHPN(HX)5#HXHX.99727;#A#G#` \#a #15 LST TO GSTv#b IN=HH,YP,SS OUT=HX}#c # # LXLN15# HXHXLX# HXHPN(HX)# # # #27 ECLIPTIC TO EQUATORIAL$ ENTRY@2505 IN=OL,OS OUT=GX,ADm IN=YY,MM,DD OUT=ND"nC"XXDX:XMMX:XYYX:MX1:DX0:1070e"XJJD:DXXX:MXXM:YXXY:1070t"NDJDXJ:z"" #13.1 GST TO GMT" IN=YY,MM,DD,HX OUT=HX""AAND.0657098"B10İ2033"AAAAB1:AA0AAAA24#AA24A!XZYX:XXDX:XYMX:DX0:MX1:1070:YXXZV!XZYX:XXDX:XYMX:DX0:MX1:1070:YXXZt!SXJD2415020:TXSX36525! RR6.6460656(2400.051262TX)(.00002581TXTX)!UXRR(24(YX1900))! B124UX!%!j!k #13.2 No. DAYS SINCE JAN 0.0" S3(HX) HX(HX)* HH(HX)S3? FX(HX(HX))60W SX((FX(FX))60)d FX(FX)q HXHXS3 YPFX:SSSX     #12 GMT TO GST  IN=YY,MM,DD,HH,YP,SS OUT=HX    #12.2 CONSTANT B *(DX7):DX(DX).5DXDX1)DX(DX)DX$(0)"Sunday ":DX$(1)"Monday ":DX$(2)"Tuesday ":DX$(3)"Wednesday":DX$(4)"Thursday "DX$(5)"Friday ":DX$(6)"Saturday "DD$DX$(DX): #8 DECIMAL TO HMS  IN=HX OUT=HH,YP,SSYZYXMZMX,.MX2YXYX1:MXMX12=BAX(YX100)QLBX2AX(AX4)eVCX(365.25YX)~`XD(30.6001(MX1))jJDBXCXXDDX1720994.5tx} #6 DAY OF THE WEEK~ IN=JD OUT=DX$AX((JD1.5)7)DXAX(AX)DX(YY4(YY4))(MM2)ML28@(YY4(YY4))(MM2)ML29`DDDD1:DDMLMMMM1:DD1xMM12MM1:YYYY1(Y4YY)(M4MM)(D4DD)10160:10201003 #4 JULIAN DATE IN=YY,MM,DD OUT=JDYXYY:MXMM:DXDD$:(4);"WRITE ";FF$ &,2R INCREMENT DAY BY ONE CODEo1020:1400:10040:9990(MM8)(MM2(MM2))ML31(MM7)(MM2(MM2))ML31(MM7)(MM2)(MM2(MM2))ML30(MM7)(MM2(MM2))ML30er: N";(8);:"";PR$:PR(PR$"Y"):FF0::"Dump to a file: N";(8);:"";PR$:PR$"Y"105hFF1:"File >PLANETS.DATA";:7:"";FF$:FF$""(FF$)0FF$"PLANETS.DATA"iPRĺ(4);"PR#1"nFFĺ(4);"OPEN ";FF$:(4);"DELETE ";FF$x(4);"OPEN ";FFars ":PN$(4)"Jupiter ":PN$(5)"Saturn "fdPN$(6)"Uranus ":PN$(7)"Neptune ":PN$(8)"Pluto "e"Input the YEAR,MONTH,DAY ";:YY,MM,DDf"Input LATITUDE,LONGITUDE ";:OI,LN:ZC((LN15))Yg"Stop at YY,MM,DD ";:Y4,M4,D4::"Dump to print)24):" ASTRO-CALC MK IV"u:" APPLE VERSION MARCH 1986"(:" BY BRYAN BURGESS"2:::<PN$(0)"Sun ",cPN$(1)"Mercury ":PN$(2)"Venus ":PN$(3)"M( 80:1'PI3.1415927:PJ180PI- K INVERSE SINE AND COSINEm AND DEGREE/HOUR CORRECTIONs S(X)(X(XX1))PJC(X)((X(XX1))PI2)PJDPN(X)(360X)(((360X)360)360)HPN(X)(24X)(((24X)24            0PD(Q):WI606 108046 NOW DISPLAY THE PLANETS6 QPR:PR0: TURN PRINT OFF^6 J08t6 RAPR(J)0.2617996!DECPD(J)RD6 !MAGJ66!20006 !6*!PRQ: RESET PRINT64!1150>!8510!8510NNF F(F(F(NFAYH"X="X" Y="Y. XSX1X02150C*YSY1Y02150M42150[>BPĺ"";lHMAG0MAG0RPR12140,2160\MAG1X,YfpMAG218X,Yz DATABASE LOADING :"LOADING DATABASE" D$(4)  D$;"BLOAD NEWSHA,DEC,MAG:PHDEC:DLRAL03"PH="PH" DL="DLGA(P0):B(P0)[C(PH):D(PH)r"A="A" B="B" C="C"D="D" E="E" F="FE(DL):F(DL)K02(1ACBDF) XRK0DE:YRK0(BCADF)"K-"K" X="X" Y="YXCXX:YCYYD="R="R" L0="L0" P0="P0*LBD1120OV0,0SX1,0SX1,SY10,SY10,0t`J1N:4000:2000:MAGLMJN1zjtFLAG38410yFLAG49000~"":A$:PR1İ7000FLAG1000,6000,8000,8600 DO SETUP CALCULATIONS RA"Enter the RA,Dec of the field centre-"?"RA,Dec: ";R0,D0h"Enter the field width in degrees-"z"Width: ";WI$20:"Hit any key to view the field":."Hit ESC to exit ";:A$::A$(27)2903:8RSX53WI:L00.261799R0:P0D0R50.1PR:720A272901A13ĺ"";:720P18:1:868:FLAG$(FLAG);\ 25:A$A(A$):A8FLAGFLAG1:FLAG1FLAG1 A21FLAGFLAG1:FLAG4FLAG4*A272904A13770>460 PLOT AN ARBITRARY VIEW:34,9)vA27290!A13ĺ"";:600114:25:LMA14:25:A$WA(A$):A27290sA8LMLM1:LM1LM1A21LMLM1:LM5LM5A54A48LMA48A1365016:25:TRUE$(PR)16:25:A$ A(A$):A8A21PRPR:YH0. A$:20:"Arrows to select"4 "Return to move"G "ESC to exit"^ &10:25:TRUE$(BD)n 010:25:A$ :A(A$):A8A21BDBD:550 DA27290 NA13ĺ"";:550 X12:25:TRUE$(BP) b12:25:A$ lA(A$):A8A21BPBP:600 "Limiting Magnitude";25);LM$ K "Print the screen";25);TRUE$(PR)Q b FLAG$(FLAG)s 20:1:958{ 23 "Do you wish to change the parameters N";(8); A$:A$"Y"520 (A$)27Ģ10:1:958: FLAG1000,6000,8000,860016:"STARPLOT"" @16:"--------") J5V T"Starplot plots a stereographic map of" ^"the sky from a star database, of the" h"region and field you select.":10 r"Draw a border";25);TRUE$(BD) | "Beep a star";25);TRUE$(BP)  FLAG$(4)"View satellite path"4 PLANET NAMESe PN$(0)"Sun":PN$(1)"Mercury":PN$(2)"Venus" PN$(3)"Mars":PN$(4)"Jupiter":PN$(5)"Saturn" PN$(6)"Uranus":PN$(7)"Neptune":PN$(8)"Pluto" " INFORMATION SCREEN 'PP0 ,: 65926:RDPI180' DEFAULT PARAMETERS0 BD09 BP0B LM5K PR0V FLAG2n PARAMETER STRINGS TRUE$(0)"No ":TRUE$(1)"Yes" FLAG$(1)"View a part of the sky" FLAG$(2)"View constellations" FLAG$(3)"View planets position"!s#  24570% DATABASE CONSTANTS0N1106F(F$"STARCAT1.OBJ"U2BASE24995[<FPR(20),PD(20): PLANETS/SATELLITE POSITIONSP LOAD DATABASEZ(232)0(233)96110d3000nSX560:SY192:YH0.5xCXSX2:CYSY2 PI3.141           ͭ A$:A(A$)5b 1:" ";55l A21QQ1:Q17Q17M5v A8QQ1:Q9Q9[5 A27290k5 A138270|5 Q:1:"->";5 20:1:9585 20:"Hit any key to view the planet":5 "Hit ESC to exit ";:A$::A$(27)81505 QQ9 6 R0PR(Q):D  SPLAY SATELLITE PATH;:-#1: DRAWS SHAPE TABLE DIFFERENTLY\:/#QPR:PR0: TURN OFF PR FLAGi:2#J1NUM:<#RAPR(J)0.261799:F#DECPD(J)RD:P#MAG0:Z#2000:d#:i#3:k#PRQ: RESTORE PR:n#1150>!8510!8510N$9=":"Date: ";DTE$19B":"Data Points: ";NUMY9L":"Centre: ";R0;" R.A ";D0;" Dec"n9V":"Width?: ";WI9`"::23:"Centre on point: ";18);NH9j"23:18:"";Q9t"Q(Q):Q0QNUMNHQ9~"R0PR(NH):D0PD(NH)9"1080: DRAW DATA:(# NOW DIusing which file?""8!7:"> ";P$D8!P$""(P$)0Ģ7:958:8660Z8!9:"Loading ";P$o8!(4);"OPEN ";P$8"(4);"READ ";P$8"ST$8"DTE$8"NUM8"I1NUM:PR(I):PD(I)8"8$"(4);"CLOSE ";P$8."NH(NUM2)198":"Satellite: ";ST TURN PRINT OFF7 J0817 RAPR(J)0.261799B7!DECPD(J)RDN7 !MAGJ6X7!2000^7 !u7*!PRQ: RESET PRINT74!11507! DISPLAY SATELLITE PATH7!:40:7!10);"Satellite Display"7!10);"-----------------"8!5:"Display satellite 1:Q9Q96 A27290(6 A13827096 Q:1:"->";J6 20:1:958v6 20:"Hit any key to view the planet":6 "Hit ESC to exit ";:A$::A$(27)81506 QQ96 R0PR(Q):D0PD(Q):WI606 10806 NOW DISPLAY THE PLANET7 QPR:PR0:;PN$(I);16);PR(I);28);PD(I)#5 N5& 20:"Pick a Arrows to move"y50 :"planet Return to choose"5: :" ESC to exit";5D Q95N Q:1:"->";5X A$:A(A$)5b 1:" ";5l A21QQ1:Q17Q17 6v A8QQading ";P$4(4);"OPEN ";P$44(4);"READ ";P$>4DTE$Y4I08:PR(I):PD(I):o4(4);"CLOSE ";P$x4PP145:9584DTE$4" Planet";20);"R.A";30);"Dec"4"---------------------------------------"44 I085 " " DISPLAY PLANETS $3J:40:@3T12);"Planets Display"\3^12);"---------------"i3cPP81503h5:"Display the planets using which file?"3r:"> PLANETS.DATA";3|1:"> ";P$3P$""(P$)0P$"PLANETS.DATA"37:958 49:"Lo4);"PR#1"U2lFLAG3ĺDTE$;30);"R.A ";(R0100)100;40);"Dec ";(D0100)100:70302oFLAG4ĺDTE$;12);"R.A ";(R0100)100;22);"Dec ";(D0100)100;30);ST$;40);"Width: ";WI:70302q2v1913,2:1785,2:1145,762(17)::(4);"PR#0":3@01 SHOW 15 CONSTELLATIONS?1 Q IS 'FIRST' CONSTELLATIONL17:958Z1JQQ14o1JCNJQ20::14);CN$(J):1 7:25:"Arrows to move"19:25:"RETURN to choose"111:25:"ESCAPE to exit"1(1X PRINT THE SCREEN 2b(---------------------------------------".494 I08`4 " ";PN$(I);16);PR(I);28);PD(I)f4 4& 20:"Pick a Arrows to move"40 :"planet Return to choose"4: :" ESC to exit";4D Q94N Q:1:"->"; 5X ";P$*3P$""(P$)0P$"PLANETS.DATA"737:958M39:"Loading ";P$b3(4);"OPEN ";P$w3(4);"READ ";P$3DTE$3I08:PR(I):PD(I):3(4);"CLOSE ";P$3PP135:9583DTE$3" Planet";20);"R.A";30);"Dec"(4"02q$2v1913,2:1785,2:1145,76>2(17):(4);"PR#0":[2@ DISPLAY PLANETS g2J:40:2T12);"Planets Display"2^12);"---------------"2cPP81502h5:"Display the planets using which file?"2r:"> PLANETS.DATA";3|1:">" R.A ";CR(Q);" Hours"=0" Dec ";CD(Q);" Degrees"q013:"with a field width of ";CW(Q);" Degrees."020:"Hit any key to view constellation ":0"Hit ESC to exit ";:A$::A$(27)QQS:6350:61201R0CR(Q):D0CD(Q):WICW(Q):108;:6130&/.1:" ":SS1:S156120C/8S0:QQ15:QCNQCN14S/B6350:6120r/L1:" ":SS1:S16120/VS14:QQ15:Q1Q1/`6350:6120/jQQS/tQCNQCN14:S14:6350:6120/~7:1:958/8:CN$(Q);" IS CENTERED ON"0:"Please wait, retrieving constellations.";R.I1CN:CN$(I),CR(I),CD(I),CW(I):~.4:1:958:"Choose a constellation..".Q1:6350.S0:CF1.7S:1:"-->";.A$:T(A$).T216190.T86220.T136250.T27290/$""6,80,45- VELA,9.5,-50,453- VIRGO,13.5,0,50I- VOLANS,8,-70,40`- VULPECA,20,25,40|-p CONSTELLATION SECTION-z:40:-CN88-13);"Constellations"-13);"--------------"-CF6090-CN$(88),CR(88),CD(88),CW(88)*.4:PENS CAPUT,15.8,10,402, SERPENS CAUDA,18,-5,50K, SEXTANS,10.25,0,35b, TAURUS,4.5,20,50~, TELESCOPIUM,19,-50,40, TRIANGULUM,2,30,30, TRIANGULUM AUSTRALE,16,-65,40, TUCANA,0,-65,40, URSA MAJOR,11.5,50,40- URSA MINOR,15,60'+ PISCES AUSTRINUS,22.5,-30,40@+& PUPPIS,7.75,-30,50U+0 PYXIS,9,-30,40q+: RETICULUM,3.75,-60,30+D SAGITTA,19.75,20,30+N SAGITTARIUS,18.5,-30,40+X SCORPIUS,17,-35,50+b SCULPTOR,0.5,-30,45+l SCUTUM,18.75,-10,30,v SER25,0,45* MUSCA,12.5,-65,355* NORMA,16,-50,40L* OCTANS,20,-90,50d* OPHIUCHUS,17,0,45y* ORION,5.5,0,40* PAVO,20,-65,40* PEGASUS,23.5,25,60* PERSEUS,3.5,-50,40* PHOENIX,1,-45,35* PICTOR,6,-55,30+ PISCES,0.5,10)@ LACERTA,22.5,50,30-)J LEO,11,15,50I)T LEO MINOR,10.25,35,35`)^ LEPUS,5.5,-20,30y)h LIBRA,15.25,-15,30)r LUPUS,15,-40,40)| LYNX,8,50,50) LYRA,18.75,35,30) MENSA,5.5,-75,40) MICROSCOPIUM,21,-35,40* MONOCEROS,7. DORADO,7,-60,30*( EQUUELUS,21.25,5,30F( ERIDANUS,3.75,-30,100\( FORNAX,3,-30,30q( GEMINI,7,20,45( GRUS,21.25,-50,30( HERCULES,17,30,60( HOROLOGIUM,3.25,50,40(" HYDRA,11,-20,90(, HYDRUS,2,-70,50)6 INDUS,21.5,-55,3LUMBA,6,-35,30 -' COMA BERENICES,13,20,30Q' CORONA AUSTRALIS,18.75,-40,30s' CORONA BOREALIS,15.75,30,30' CORVUS,12.5,-20,30' CRATER,11.5,-15,40' CRUX AUSTRALIS,12.5,-60,30' CYGNUS,20.5,40,40' DELPHINIUS,20.6,15,30( MAJOR,6.8,-25,35 -& CANIS MINOR,7.7,5,30I&( CAPRICORNUS,21,-20,40_&2 CARINA,8,-60,40x&< CASSIOPEIA,1,60,30&F CENTAURUS,13.5,-50,50&P CEPHUS,22,70,40&Z CETUS,1.5,-10,60&d CHAMAELEON,10.5,-80,30&n CIRCINUS,15,-60,40'x CO AQUARIUS,22,-10,60+% AQUILA,20,10,40A% ARA,17.5,-55,30W% ARIES,2.5,20,30n% AURIGA,5.5,35,40% BOOTES,14.8,30,40% CAELUM,4.75,-40,30% CAMELOPARDIS,4.25,70,40% CANCER,8.5,20,40%  CANES VENACETI,12.5,40,30& CANIS(HERE)(HERE1)60)0.261799=$DEC(HERE2)(HERE3)60V$DEC127DEC128DECe$DECDECRDz$MAG(HERE4)10$MAG12.7MAG12.8MAG$$ LIST OF CONSTELLATIONS$ ANDROMEDA,1,35,40$ ANTILA,10,-30,30$ APUS,16,-80,30%QQ141JCNJQ20::-14);CN$(J):J1 7:25:"Arrows to move"i19:25:"RETURN to choose"111:25:"ESCAPE to exit"1(1X PRINT THE SCREEN1b(4);"PR#1"2lFLAG3ĺDTE$;30);"R.A ";(R0100)100;40);"Dec ";(D0100)100:703 width of ";CW(Q);" Degrees."M020:"Hit any key to view constellation ":0"Hit ESC to exit ";:A$::A$(27)QQS:6350:61200R0CR(Q):D0CD(Q):WICW(Q):10800 SHOW 15 CONSTELLATIONS0 Q IS 'FIRST' CONSTELLATION07:9581J/L1:" ":SS1:S161207/VS14:QQ15:Q1Q1G/`6350:6120Q/jQQSt/tQCNQCN14:S14:6350:6120/~7:1:958/8:CN$(Q);" IS CENTERED ON"/:" R.A ";CR(Q);" Hours"/" Dec ";CD(Q);" Degrees"013:"with a fielding ";P$4(4);"OPEN ";P$24(4);"READ ";P$<4DTE$W4I08:PR(I):PD(I):m4(4);"CLOSE ";P$v4PP145:9584DTE$4" Planet";20);"R.A";30);"Dec"4"---------------------------------------"44 I085 " ";P DISPLAY PLANETS "3J:40:>3T12);"Planets Display"Z3^12);"---------------"g3cPP81503h5:"Display the planets using which file?"3r:"> PLANETS.DATA";3|1:"> ";P$3P$""(P$)0P$"PLANETS.DATA"37:95849:"Load4);"PR#1"U2lFLAG3ĺDTE$;30);"R.A ";(R0100)100;40);"Dec ";(D0100)100:70302oFLAG4ĺDTE$;12);"R.A ";(R0100)100;22);"Dec ";(D0100)100;30);ST$;40);"Width: ";WI:70302q2v1913,2:1785,2:1145,762(17):(4);"PR#0":3@ 01 SHOW 15 CONSTELLATIONS?1 Q IS 'FIRST' CONSTELLATIONL17:958Z1JQQ14o1JCNJQ20::14);CN$(J):1 7:25:"Arrows to move"19:25:"RETURN to choose"111:25:"ESCAPE to exit"1(1X PRINT THE SCREEN 2b(" R.A ";CR(Q);" Hours"=0" Dec ";CD(Q);" Degrees"q013:"with a field width of ";CW(Q);" Degrees."020:"Hit any key to view constellation ":0"Hit ESC to exit ";:A$::A$(27)QQS:6350:61201R0CR(Q):D0CD(Q):WICW(Q):108;:6130&/.1:" ":SS1:S156120C/8S0:QQ15:QCNQCN14S/B6350:6120r/L1:" ":SS1:S16120/VS14:QQ15:Q1Q1/`6350:6120/jQQS/tQCNQCN14:S14:6350:6120/~7:1:958/8:CN$(Q);" IS CENTERED ON"0:"Please wait, retrieving constellations.";R.I1CN:CN$(I),CR(I),CD(I),CW(I):~.4:1:958:"Choose a constellation..".Q1:6350.S0:CF1.7S:1:"-->";.A$:T(A$).T216190.T86220.T136250.T27290/$""6,80,45- VELA,9.5,-50,453- VIRGO,13.5,0,50I- VOLANS,8,-70,40`- VULPECA,20,25,40|-p CONSTELLATION SECTION-z:40:-CN88-13);"Constellations"-13);"--------------"-CF6090-CN$(88),CR(88),CD(88),CW(88)*.4:PENS CAPUT,15.8,10,402, SERPENS CAUDA,18,-5,50K, SEXTANS,10.25,0,35b, TAURUS,4.5,20,50~, TELESCOPIUM,19,-50,40, TRIANGULUM,2,30,30, TRIANGULUM AUSTRALE,16,-65,40, TUCANA,0,-65,40, URSA MAJOR,11.5,50,40- URSA MINOR,15,60'+ PISCES AUSTRINUS,22.5,-30,40@+& PUPPIS,7.75,-30,50U+0 PYXIS,9,-30,40q+: RETICULUM,3.75,-60,30+D SAGITTA,19.75,20,30+N SAGITTARIUS,18.5,-30,40+X SCORPIUS,17,-35,50+b SCULPTOR,0.5,-30,45+l SCUTUM,18.75,-10,30,v SER25,0,45* MUSCA,12.5,-65,355* NORMA,16,-50,40L* OCTANS,20,-90,50d* OPHIUCHUS,17,0,45y* ORION,5.5,0,40* PAVO,20,-65,40* PEGASUS,23.5,25,60* PERSEUS,3.5,-50,40* PHOENIX,1,-45,35* PICTOR,6,-55,30+ PISCES,0.5,10)@ LACERTA,22.5,50,30-)J LEO,11,15,50I)T LEO MINOR,10.25,35,35`)^ LEPUS,5.5,-20,30y)h LIBRA,15.25,-15,30)r LUPUS,15,-40,40)| LYNX,8,50,50) LYRA,18.75,35,30) MENSA,5.5,-75,40) MICROSCOPIUM,21,-35,40* MONOCEROS,7. DORADO,7,-60,30*( EQUUELUS,21.25,5,30F( ERIDANUS,3.75,-30,100\( FORNAX,3,-30,30q( GEMINI,7,20,45( GRUS,21.25,-50,30( HERCULES,17,30,60( HOROLOGIUM,3.25,50,40(" HYDRA,11,-20,90(, HYDRUS,2,-70,50)6 INDUS,21.5,-55,3 .4:1:958:"Choose a constellation.."8.Q1:6350E.S0:CF1Y.7S:1:"-->";i.A$:T(A$)x.T216190.T86220.T136250.T27290.$"";:6130..1:" ":SS1:S156120.8S0:QQ15:QCNQCN14.B6350:6120LUMBA,6,-35,30 -' COMA BERENICES,13,20,30Q' CORONA AUSTRALIS,18.75,-40,30s' CORONA BOREALIS,15.75,30,30' CORVUS,12.5,-20,30' CRATER,11.5,-15,40' CRUX AUSTRALIS,12.5,-60,30' CYGNUS,20.5,40,40' DELPHINIUS,20.6,15,30( MAJOR,6.8,-25,35 -& CANIS MINOR,7.7,5,30I&( CAPRICORNUS,21,-20,40_&2 CARINA,8,-60,40x&< CASSIOPEIA,1,60,30&F CENTAURUS,13.5,-50,50&P CEPHUS,22,70,40&Z CETUS,1.5,-10,60&d CHAMAELEON,10.5,-80,30&n CIRCINUS,15,-60,40'x CO AQUARIUS,22,-10,60+% AQUILA,20,10,40A% ARA,17.5,-55,30W% ARIES,2.5,20,30n% AURIGA,5.5,35,40% BOOTES,14.8,30,40% CAELUM,4.75,-40,30% CAMELOPARDIS,4.25,70,40% CANCER,8.5,20,40%  CANES VENACETI,12.5,40,30& CANIS(HERE)(HERE1)60)0.261799=$DEC(HERE2)(HERE3)60V$DEC127DEC128DECe$DECDECRDz$MAG(HERE4)10$MAG12.7MAG12.8MAG$$ LIST OF CONSTELLATIONS$ ANDROMEDA,1,35,40$ ANTILA,10,-30,30$ APUS,16,-80,30%Y#f#pMAG218X,Y#z6# DATABASE LOADINGP# :"LOADING DATABASE"\# D$(4)}# D$;"BLOAD NEWSHAPES,A$6000"# 232,0:233,96# D$;"BLOAD ";F$;",A25000"# # CALCULATE RA,DEC & MAG# FROM DATABASE#HEREBASE5J$RA(A(P0):B(P0)#"C(PH):D(PH)7"E(DL):F(DL)N"K02(1ACBDF)p" XRK0DE:YRK0(BCADF)"XCXX:YCYYYH" XSX1X02150"*YSY1Y02150"4 PLOT STAR">BPĺ"";"HMAG0MAG0"RPR12140,2160#\MAG1X,D !B4:3!LBD1120>!V0,0SX1,0SX1,SY10,SY10,0c!`J1N:4000:2000:MAGLMJN1i!jz!tFLAG38410!yFLAG49000!~"":A$:!PR1İ7000!FLAG1000,6000,8000,8600! DO SETUP CALCULATIONS!PHDEC:DLRAL0":401 "Enter the RA,Dec of the field centre-"G "RA,Dec: ";R0,D0p "Enter the field width in degrees-" "Width: ";WI $20:"Hit any key to view the field": ."Hit ESC to exit ";:A$::A$(27)290!8RSX53WI:L00.261799R0:P0D0RH0.50.1PR:720A272905A13ĺ"";:720T18:1:868:FLAG$(FLAG);` 25:A$A(A$):A8FLAGFLAG1:FLAG1FLAG1 A21FLAGFLAG1:FLAG4FLAG4*A272904A13770>460 PLOT AN ARBITRARY VIEW :34,90vA27290%A13ĺ"";:600514:25:LME14:25:A$[A(A$):A27290wA8LMLM1:LM1LM1A21LMLM1:LM5LM5A54A48LMA48A1365016:25:TRUE$(PR)16:25:A$A(A$):A8A21PRPR:Y00"A$:20:"Arrows to select"8"Return to move"K"ESC to exit"b&10:25:TRUE$(BD)r010:25:A$:A(A$):A8A21BDBD:550DA27290NA13ĺ"";:550X12:25:TRUE$(BP)b12:25:A$lA(A$):A8A21BPBP:60""Limiting Magnitude";25);LM(O"Print the screen";25);TRUE$(PR)UfFLAG$(FLAG)w20:1:95823"Do you wish to change the parameters N";(8);A$:A$"Y"520(A$)27Ģ10:1:958:FLAG1000,6000,8000,86616:"STARPLOT"&@16:"--------"-J5ZT"Starplot plots a stereographic map of"^"the sky from a star database, of the"h"region and field you select.":10r"Draw a border";25);TRUE$(BD)|"Beep a star";25);TRUE$(BP)FLAG$(4)"View satellite path"4 PLANET NAMESePN$(0)"Sun":PN$(1)"Mercury":PN$(2)"Venus"PN$(3)"Mars":PN$(4)"Jupiter":PN$(5)"Saturn"PN$(6)"Uranus":PN$(7)"Neptune":PN$(8)"Pluto"" INFORMATION SCREEN 'PP0,:40:5926:RDPI180' DEFAULT PARAMETERS0BD09BP0BLM5KPR0VFLAG2n PARAMETER STRINGSTRUE$(0)"No ":TRUE$(1)"Yes"FLAG$(1)"View a part of the sky"FLAG$(2)"View constellations"FLAG$(3)"View planets position"!"  24570% DATABASE CONSTANTS0N1106F(F$"STARCAT1.OBJ"U2BASE24995[<FPR(20),PD(20): PLANETS/SATELLITE POSITIONSP LOAD DATABASEZ(232)0(233)96110d3000nSX560:SY192:YH0.5xCXSX2:CYSY2PI3.141                    PIIPJe.bGX~'PIIPJP-$$R;9-- ???,--%??? --?9-- 'm %g--?e?--%??g-=<e?m)>-,6?$ 5'-* $ 6,* $?6- 6?$d-e -616-?'d$M16 ?$:66NI$6?$ % .$$?. me-66?N -?'$,-6?'$Mvu e$vv$ e-->-ki1 iIXPIIiJX~iJX~iJX~PIIPJPIIPJz#`yx?ι Ġ Į  Į  ĮԠ  Զ!Ӯ߱ήӠԷ+ή߱ή ήή ή Ԡ %Դ ήԵ ̓Ը$ Ա ڮڮ ڮ ή  ٠Ա ҮҮ ҠҮҮ ĮıĴԠҮ ԱԷ$ϠԱʠԸ+ Ա Ԡ ԲӮR2ZY$(((Z1)))1;2(ZY$)2ZY$"0"ZY$:13020Q;2ZZ$((((Z1(Z1))100)))r;2(ZZ$)2ZZ$"0"ZZ$:13040;2Z10ĺ"-";ZY$;".";ZZ$;" ";:;3" ";ZY$;".";ZZ$;" ";:;6 SAVE AS A FILE;6DD;"/";MM;6QP08;6(100PL(QP))100;7< :'Z1(0):'FFİ14000%:'10049:'(4);"CLOSE":O:. PRINT Z1 AS +XXc:.ZY$(((Z1)))}:.(ZY$)1ZY$"0"ZY$:.Z10ZY$"-"ZY$:12050:/ZY$" "ZY$:/ZY$;:Z1(0)::2Z132.52:2 PRINT Z1 AS +XX.XX:2Z10ĺ" 00.00 ";:;200039j'" ! ";:HXPL(QP):1723:Z1HH:12000:" ";D9o'Z1FX:12000s9t'" ! ";:HXPK(QP):1723:Z1HH:12000:" ";9y'Z1FX:120009~'" ! ";:Z1F(QP):130009'Z1D(QP):130009'Z1T(QP):130009'Z1M(QP):130009'9'::'PRĺ(4);"PR#3"M:DXDD:2670:NRN8:8=',8>'FFĺ:10134}8B'"----------RISE----SET-------RA--------DEC-------PHASE---AU----SIZE---MAG-"8G'F(0)1:M(0)26.88L'QP088V'PN$(QP);:Z1IH(QP):120008['Z1IM(QP):120008`'" !";:Z1HI(QP):120009e'Z1MI(QP):17 #56 APPARENT BRIGHTNESS27 IN=#50 OUT=M()i7M((SRP)(CA(F(QP)))):MM(10):MM5:MM26.7w7M(QP)M:7&2700:2800:2900:2900:3000:7'7'7'9980:RCRZ:DCDZ7$':35507.'100488'YXYY:MXMM:DXDD:2185:NJND:YXYY:MXMSIZE"6v IN=#50 OUT=D(),L(),T()K6PSR3R3SRSR2R3SR((SLLL)PJ)W6P(PS)e6RP.1386p6TT0P6D(QP)P:L(QP)R:T(QP)T:66 #54 PHASE OF PLANET6 IN=#50 OUT=F()66F(QP)LSL:F(QP).5(1(F(QP)PJ))66XTR:2220:TRHX:NDWW:HXTS:2220:TSHXA5TRTRZC:TRHPN(TR)Z5$TSTSZC:TSHPN(TS)5(HXTR:1723:IH(QP)(HX):IM(QP)FX:IS(QP)SX:HXTS:1723:HI(QP)(HX)5*MI(QP)FX:CI(QP)SX5.3720:3780:3810::100455t6u #53 DISTANCE/LIGHT TIME/ . . #.3;. '. & ..++.( 5.#).7 ...'. *1.-. (6)..+.9.6 . ?. . &;./. &'.+2.. 5+ ..1.*3 .4*.3.5 .".*. '%.:.%.;.%.8 .X.)(. 4.1.+.8; . ".5%..&0....%3!. .!. .#..5$. 6 . %.$.)..:. ..,.6.2.5.9.2-. ';.;. ..2G. "1.!3./.1/.'1 -5$-;/- -0-1-  -:5-- &- - +"- 46-6'-4-%- 3!-5-. - 8-A+---)--*-9A8- 3@+-+-#-2-)H - .- 8-(@- 3--$5- 7- -#2--69-,.&). .!#.-:. .5..).- -&0-))--9#- -1' -/-C4- - '-'-$/-- 1-  --9-0-8 - -%;-1-/$- ;-1)-%-:- 3/-- 9- -/'- 0-4- / - - .--!-L:-3#-#:-,0-#9-- "E2- 6#- "$-)G-&-:-, 4,  , 3 ,:+,44,","6, ', 2, 3$,-#,-,!,,9,08,  ,#, , #,9, ., , $,(,,*!,44, "4,,C,%,$2 ,,+ , '+, ,;#,+,.., 7---*/-,8- /-1-!.- -1 - 9--* , , / ,  ,,K, ,%,2:,,/,.," ,, ,  ,+,4, ,(, .,1A ,,,:,(4,.,(,,&,0#,95.,) +,,$,(,,",), #!, -!,;,", ,1,I, %, 4, , ',"-,// +,%$++9:+ ,+ +&+0+02+:+;+ +26+(+ 3++++++$+ 9+$!++1+9+&+)+  + +M++6 + 1+ ++4++";+8+ '+9;+: +1%+9+ +&+9+,6,,,5,8, 4"MASTER DISKETTE CREATED ON 48K SYSTEM"a"BY W.TOOMEY 23/11/83"y(4:"Starplot Disk"234,7:8<(4);"CATALOG"A34,0FI0 CORVUS,12.5,-20,303 CRATER,11.5,-15,40T CRUX AUSTRALIS,12.5,-60,30l CYGNUS,20.5,40,40 DELPHINIUS,20.6,15,30 DORADO,7,-60,30 EQUUELUS,21.25,5,30 ERIDANUS,3.75,-30,100 FORNAX,3,-30,30 GEMINI,7,20,45,60,30"F CENTAURUS,13.5,-50,508P CEPHUS,22,70,40OZ CETUS,1.5,-10,60ld CHAMAELEON,10.5,-80,30n CIRCINUS,15,-60,40x COLUMBA,6,-35,30  COMA BERENICES,13,20,30 CORONA AUSTRALIS,18.75,-40,30 CORONA BOREALIS,15.75,30,3 BOOTES,14.8,30,40- CAELUM,4.75,-40,30K CAMELOPARDIS,4.25,70,40b CANCER,8.5,20,40  CANES VENACETI,12.5,40,30 CANIS MAJOR,6.8,-25,35  CANIS MINOR,7.7,5,30( CAPRICORNUS,21,-20,402 CARINA,8,-60,40< CASSIOPEIA,1RE4)10#MAG12.7MAG12.8MAG)F LIST OF CONSTELLATIONS^ ANDROMEDA,1,35,40u ANTILA,10,-30,30 APUS,16,-80,30 AQUARIUS,22,-10,60 AQUILA,20,10,40 ARA,17.5,-55,30 ARIES,2.5,20,30 AURIGA,5.5,35,40PES,A$6000" 232,0:233,96< D$;"BLOAD ";F$;",A25000"B _ CALCULATE RA,DEC & MAGs FROM DATABASEHEREBASE5JRA((HERE)(HERE1)60)0.261799DEC(HERE2)(HERE3)60DEC127DEC128DECDECDECRDMAG(HE󍶯AXIPJe.RAXIPJe.RAXPPJbGX~'PIIPJPIIPJe.RAXRAXPPIIPJPIIPJPIIPJe.bGX~'PIIPJbGX~'PIIPJPIIPJe.RAXIPJe.RAXIPJe.RAXIPJe.RAXIPJe.RAXPJe.RAXIPJe.RiIXiIXPIIiJX~XiIXPIIiJX~iJX~iJX~PIIPIIPIIPIIPIIPIIPIIPIIPIIPIIPIIPIIPIIPIIPIIIIPIIPIIPIIPIIPIIiIX~PIIiIXIIiIXPIIPIIPIIPIIPIIPIIPIIPIIPIIIIPIIPIIPIIPIIPIIPII7";(R0100)100;22);"Dec ";(D0100)100;30);ST$;40);"Width: ";WI:7030P#qm#v1913,2:1785,2:1145,76#(17)::(4);"PR#0":#@ DISPLAY PLANETS #J:40:#T12);"Planets Display"#^12);"---------------"#cPP8150'$h5:4);CN$(J):," 7:25:"Arrows to move"K"9:25:"RETURN to choose"i"11:25:"ESCAPE to exit"o"("X PRINT THE SCREEN"b(4);"PR#1""lFLAG3ĺDTE$;30);"R.A ";(R0100)100;40);"Dec ";(D0100)100:7030J#oFLAG4ĺDTE$;12);"R.A /!20:"Hit any key to view constellation ":j!"Hit ESC to exit ";:A$::A$(27)QQS:6350:6120!R0CR(Q):D0CD(Q):WICW(Q):1080! SHOW 15 CONSTELLATIONS! Q IS 'FIRST' CONSTELLATION!7:958!JQQ14!JCNJQ20::" VS14:QQ15:Q1Q1) `6350:61203 jQQSV tQCNQCN14:S14:6350:6120f ~7:1:958 8:CN$(Q);" IS CENTERED ON" :" R.A ";CR(Q);" Hours" " Dec ";CD(Q);" Degrees" 13:"with a field width of ";CW(Q);" Degrees."tellation.."Q1:6350'S0:CF1;7S:1:"-->";KA$:T(A$)ZT216190hT86220wT136250T27290$"";:6130.1:" ":SS1:S1561208S0:QQ15:QCNQCN14B6350:6120 L1:" ":SS1:S16120ON SECTIONz:40: CN88;13);"Constellations"V13);"--------------"cCF6090CN$(88),CR(88),CD(88),CW(88)4:"Please wait, retrieving constellations.";I1CN:CN$(I),CR(I),CD(I),CW(I): 4:1:958:"Choose a consUM,19,-50,40% TRIANGULUM,2,30,30I TRIANGULUM AUSTRALE,16,-65,40_ TUCANA,0,-65,40{ URSA MAJOR,11.5,50,40 URSA MINOR,16,80,45 VELA,9.5,-50,45 VIRGO,13.5,0,50 VOLANS,8,-70,40 VULPECA,20,25,40 p CONSTELLATID SAGITTA,19.75,20,307N SAGITTARIUS,18.5,-30,40PX SCORPIUS,17,-35,50jb SCULPTOR,0.5,-30,45l SCUTUM,18.75,-10,30v SERPENS CAPUT,15.8,10,40 SERPENS CAUDA,18,-5,50 SEXTANS,10.25,0,35 TAURUS,4.5,20,50  TELESCOPI.5,0,40 PAVO,20,-65,405 PEGASUS,23.5,25,60N PERSEUS,3.5,-50,40e PHOENIX,1,-45,35{ PICTOR,6,-55,30 PISCES,0.5,15,60 PISCES AUSTRINUS,22.5,-30,40& PUPPIS,7.75,-30,500 PYXIS,9,-30,40: RETICULUM,3.75,-60,30,-15,30r LUPUS,15,-40,400| LYNX,8,50,50G LYRA,18.75,35,30^ MENSA,5.5,-75,40{ MICROSCOPIUM,21,-35,40 MONOCEROS,7.25,0,45 MUSCA,12.5,-65,35 NORMA,16,-50,40 OCTANS,20,-90,50 OPHIUCHUS,17,0,45 ORION,5 GRUS,21.25,-50,30/ HERCULES,17,30,60K HOROLOGIUM,3.25,50,40a" HYDRA,11,-20,90w, HYDRUS,2,-70,506 INDUS,21.5,-55,30@ LACERTA,22.5,50,30J LEO,11,15,50T LEO MINOR,10.25,35,35^ LEPUS,5.5,-20,30h LIBRA,15.25󍵯  ͭ"::23:"Centre on point: ";18);NH7*j"23:18:"";QS*t"Q(Q):Q0QNUMNHQk*~"R0PR(NH):D0PD(NH)*"1080: DRAW DATA*(# NOW DISPLAY SATELLITE PATH*-#1: DRAWS SHAPE TABLE DIFFERENTLY*/#QPR:PR0: TURN OFF PR FLAG*2#J1NUM +<#RAP"(4);"READ ";P$)"ST$%)"DTE$.)"NUMI)"I1NUM:PR(I):PD(I)O)"e)$"(4);"CLOSE ";P$v)."NH(NUM2)1)8":"Satellite: ";ST$)=":"Date: ";DTE$)B":"Data Points: ";NUM)L":"Centre: ";R0;" R.A ";D0;" Dec")V":"Width?: ";WI%*`INT (4!1150*(! DISPLAY SATELLITE PATH6(!:40:T(!10);"Satellite Display"r(!10);"-----------------"(!5:"Display satellite using which file?"(!7:"> ";P$(!P$""(P$)0Ģ7:958:8660(!9:"Loading ";P$(!(4);"OPEN ";P$)t":2' "Hit ESC to exit ";:A$::A$(27)8150<' QQ9X' R0PR(Q):D0PD(Q):WI60b' 1080' NOW DISPLAY THE PLANET' QPR:PR0: TURN PRINT OFF' J08' RAPR(J)0.261799'!DECPD(J)RD' !MAGJ6'!2000' !(*!PRQ: RESET PRchoose".&: :" ESC to exit";6&D Q9G&N Q:1:"->";W&X A$:A(A$)e&b 1:" ";&l A21QQ1:Q17Q17&v A8QQ1:Q9Q9& A27290& A138270& Q:1:"->";& 20:1:958' 20:"Hit any key to view the planePP1%5:958%DTE$D%" Planet";20);"R.A";30);"Dec"s%"---------------------------------------"y%% I08% " ";PN$(I);16);PR(I);28);PD(I)% %& 20:"Pick a Arrows to move"&0 :"planet Return to "Display the planets using which file?"@$r:"> PLANETS.DATA";P$|1:"> ";P$u$P$""(P$)0P$"PLANETS.DATA"$7:958$9:"Loading ";P$$(4);"OPEN ";P$$(4);"READ ";P$$DTE$$I08:PR(I):PD(I):$(4);"CLOSE ";P$%󍷯ͭ  򍴯TURN OFF PR FLAG:2#J1NUM3:<#RAPR(J)0.261799D:F#DECPD(J)RDN:P#MAG0X:Z#2000^:d#e:i#3{:k#PRQ: RESTORE PR:n#1150>!8510!8510N򍲯TURN PRINT OFF7 J08/7 RAPR(J)0.261799@7!DECPD(J)RDL7 !MAGJ6V7!2000\7 !s7*!PRQ: RESET PRINT}74!11507! DISPLAY SATELLITE PATH7!:40:7!10);"Satellite Display"7!10);"-----------------"8!5:"Display satellite usQ9Q96 A27290&6 A13827076 Q:1:"->";H6 20:1:958t6 20:"Hit any key to view the planet":6 "Hit ESC to exit ";:A$::A$(27)81506 QQ96 R0PR(Q):D0PD(Q):WI606 10806 NOW DISPLAY THE PLANET7 QPR:PR0: N$(I);16);PR(I);28);PD(I)!5 L5& 20:"Pick a Arrows to move"w50 :"planet Return to choose"5: :" ESC to exit";5D Q95N Q:1:"->";5X A$:A(A$)5b 1:" ";5l A21QQ1:Q17Q176v A8QQ1:R* Y"HIT RETURN TO SAVE ";Z$- ^F$F$".OBJ"A h:"SAVING ";F$j rD$;"BSAVE ";F$;",A";ST;",L";ADST1p |FSTSTSTSTSTST@STFD1,RM DS$"-"DD128DD3 AD2,DD:AD3,DMJ MS$"-"MG128MGW AD4,MG` 140r " END OF FILEx ,~ 6 @15:958:D$;"CLOSE ";F$ J15:"OBJECT CODE STARTS AT ";ST;" AND IS":ADAD5 TADST1;" LONG, WITH ";N;" STARS.": A$ 18:A$ X(0)- A$""140? A$"END"300S RH((A$,1,2))g RM((A$,3,2))y DS$(A$,7,1) DD((A$,8,2)) DM((A$,10,2)) MS$(A$,12,1) MG((A$,13,3))10 NN1:ADAD5 20:N;20);AD AD,RH:A  :$13);"STAR CONVERTER"?13);"--------------"F(4o2"WHAT FILE DO YOU WISH TO CONVERT?"|<"->";F$F:P"STARTING ADDRESS ";STZ:"HIT RETURN TO START ";Z$nD$(4):N0:ADST5xD$;"OPEN ";F$D$;"READ ";F$   Y#f#pMAG218X,Y#z6# DATABASE LOADINGP# :"LOADING DATABASE"\# D$(4)}# D$;"BLOAD NEWSHAPES,A$6000"# 232,0:233,96# D$;"BLOAD ";F$;",A25000"# # CALCULATE RA,DEC & MAG# FROM DATABASE#HEREBASE5J$RA(A(P0):B(P0)#"C(PH):D(PH)7"E(DL):F(DL)N"K02(1ACBDF)p" XRK0DE:YRK0(BCADF)"XCXX:YCYYYH" XSX1X02150"*YSY1Y02150"4 PLOT STAR">BPĺ"";"HMAG0MAG0"RPR12140,2160#\MAG1X,D !B4:3!LBD1120>!V0,0SX1,0SX1,SY10,SY10,0c!`J1N:4000:2000:MAGLMJN1i!jz!tFLAG38410!yFLAG49000!~"":A$:!PR1İ7000!FLAG1000,6000,8000,8600! DO SETUP CALCULATIONS!PHDEC:DLRAL0":401 "Enter the RA,Dec of the field centre-"G "RA,Dec: ";R0,D0p "Enter the field width in degrees-" "Width: ";WI $20:"Hit any key to view the field": ."Hit ESC to exit ";:A$::A$(27)290!8RSX53WI:L00.261799R0:P0D0RH0.50.1PR:720A272905A13ĺ"";:720T18:1:868:FLAG$(FLAG);` 25:A$A(A$):A8FLAGFLAG1:FLAG1FLAG1 A21FLAGFLAG1:FLAG4FLAG4*A272904A13770>460 PLOT AN ARBITRARY VIEW :34,90vA27290%A13ĺ"";:600514:25:LME14:25:A$[A(A$):A27290wA8LMLM1:LM1LM1A21LMLM1:LM5LM5A54A48LMA48A1365016:25:TRUE$(PR)16:25:A$A(A$):A8A21PRPR:Y00"A$:20:"Arrows to select"8"Return to move"K"ESC to exit"b&10:25:TRUE$(BD)r010:25:A$:A(A$):A8A21BDBD:550DA27290NA13ĺ"";:550X12:25:TRUE$(BP)b12:25:A$lA(A$):A8A21BPBP:60""Limiting Magnitude";25);LM(O"Print the screen";25);TRUE$(PR)UfFLAG$(FLAG)w20:1:95823"Do you wish to change the parameters N";(8);A$:A$"Y"520(A$)27Ģ10:1:958:FLAG1000,6000,8000,86616:"STARPLOT"&@16:"--------"-J5ZT"Starplot plots a stereographic map of"^"the sky from a star database, of the"h"region and field you select.":10r"Draw a border";25);TRUE$(BD)|"Beep a star";25);TRUE$(BP)󍴯 TREDISPLAY#98":"Satellite: ";ST$89=":"Date: ";DTE$S9B":"Data Points: ";NUM{9L":"Centre: ";R0;" R.A ";D0;" Dec"9V":"Width?: ";WI9`"1080: DRAW STARS9(# NOW DISPLAY SATELLITE PATH9-#1: DRAWS SHAPE TABLE DIFFERENTLY:/#QPR:PR0: ing which file?" 8!7:"> ";P$B8!P$""(P$)0Ģ7:958:8660X8!9:"Loading ";P$m8!(4);"OPEN ";P$8"(4);"READ ";P$8"ST$8"DTE$8"NUM8"I1NUM:PR(I):PD(I)8"8$"(4);"CLOSE ";P$ 9."NH(NUM2)1:R0PR(NH):D0PD(NH): CENFLAG$(4)"View satellite path"4 PLANET NAMESePN$(0)"Sun":PN$(1)"Mercury":PN$(2)"Venus"PN$(3)"Mars":PN$(4)"Jupiter":PN$(5)"Saturn"PN$(6)"Uranus":PN$(7)"Neptune":PN$(8)"Pluto"" INFORMATION SCREEN 'PP0,:40:5926:RDPI180' DEFAULT PARAMETERS0BD09BP0BLM5KPR0VFLAG2n PARAMETER STRINGSTRUE$(0)"No ":TRUE$(1)"Yes"FLAG$(1)"View a part of the sky"FLAG$(2)"View constellations"FLAG$(3)"View planets position"!"  24570% DATABASE CONSTANTS0N1106F(F$"STARCAT1.OBJ"U2BASE24995[<FPR(20),PD(20): PLANETS/SATELLITE POSITIONSP LOAD DATABASEZ(232)0(233)96110d3000nSX560:SY192:YH0.5xCXSX2:CYSY2PI3.141              򍵯򍳯ITE ";F$ST$DTE$$NUM1I1NUMCPR(I):PD(I)I]D$;"CLOSE ";F$F"DEC is decimal degrees":*PI1NUMAZ"Point ";I;" ?:";Sd"";RA,MM,DECinRA(RA):HH(HH)xPR(I)RA(MM60):PD(I)DEC:::"File ?: ";F$D$(4)D$;"OPEN ";F$D$;"DELETE ";F$D$;"OPEN ";F$D$;"WR:RA(8,366) D$(4)3RR(X)47218XC DRAW AXESVD$;"PR#1"::m#(18):"A":(18)v("I"2"C0"<"M472,0":"D40,0,40,-732"FI112:M,M$P"M40,-";M2:"J-5,0"Z"R-20,5":"Q1":"P";M$d n 334,"D",304,    ^  :PR(20),PD(20)A"Satellite Path Data Entry"::Y"Satellite?: ";ST$n#"Date ?: ";DTE$(:"No. Data Points?: ";NUM-NUM20ĺ"":402:"Enter each point as RA,MM,DEC where"<"RA is RA Hours, MM is RA minutes, aND"       "N",273,"O")x 243,"S",212,"A",181,"J"F 151,"J",120,"M",90,"A"` 59,"M",31,"F",0,"J"vI024:RARR(I)"M";RA;",0":"J0,5""R-7,25":"Q1":"P";(I)300D$;"OPEN PLANETS.DATA"D$;"READ PLANETS.DATA"DAY1                       p@@`@3??ӍR(J)0.261799+F#DECPD(J)RD(+P#MAG02+Z#20008+d#?+i#3U+k#PRQ: RESTORE PR_+n#1150>!8510!8510FDssRsDsBPCPCPCBPBPPIIiRD{4C4C4C4C4C4CNG  FROM DATABASE' HEREBASE5JN RA((HERE)(HERE1)60)0.261799m DEC(HERE2)(HERE3)60 DEC127DEC128DEC DECDECRD MAG(HERE4)10 MAG12.7MAG12.8MAG *T"tBPCNfAsRsG(MAG)1:MAG1MAG1( MAG5MAG55 MAGX,Y; P "":A$:90g  DATABASE LOADING :"LOADING DATABASE" D$(4) D$;"BLOAD STARSHAPES (768)" 232,0:233,3 .D$;"BLOAD ";F$;",A$6000" 8  CALCULATE RA,DEC & MADO SETUP CALCULATIONS) PHDEC:DLRAL0= "A(P0):B(P0)Q ,C(PH):D(PH)e 6E(DL):F(DL)| @K02(1ACBDF) JXRK0DE:YRK0(BCADF) TXCXX:YCYYYH ^XSX1X0400 hYSY1Y0400 m PLOT STAR rBPĺ""; |MAidth in degrees-"# "Width: ";WID "Border the map (Y/N): ";L$g "Beep a star plot (Y/N): ";B$p BP0 B$"Y"BP1 RSX53WI:L00.261799R0:P0D0RD 4:3 L$"Y"260 0,0SX1,0SX1,SY10,SY10,0 J1N:2000  STARPLOT" 16:"--------"$ 5Q "Starplot plots a stereographic map of"} "the sky from a star database, of the" "region and field you select.":10 "Enter the RA,Dec of the field centre-" "RA,Dec: ";R0,D0 "Enter the field w DATABASE CONSTANTS$N433: F$"STARCAT1.OBJ"IBASE24576Oj#PI3.1415926:RDPI180~( LOAD DATABASE21000<SX560:SY192:YH0.5PCXSX2:CYSY2Z:40:dPI3.1415926:RDPI180n INFORMATION SCREEN x16:"f SAGITTARIUS,18.5,-30,407p SCORPIUS,17,-35,50Qz SCULPTOR,0.5,-30,45k SCUTUM,18.75,-10,30 SERPENS CAPUT,15.8,10,40 SERPENS CAUDA,18,-5,50 SEXTANS,10.25,0,35 TAURUS,4.5,20,50 TELESCOPIUM,19,-50,40  TRIANG,40 PEGASUS,23.5,25,605  PERSEUS,3.5,-50,40L PHOENIX,1,-45,35b  PICTOR,6,-55,30y* PISCES,0.5,15,604 PISCES AUSTRINUS,22.5,-30,40> PUPPIS,7.75,-30,50H PYXIS,9,-30,40R RETICULUM,3.75,-60,30\ SAGITTA,19.75,20,300,40 LYNX,8,50,50. LYRA,18.75,35,30E MENSA,5.5,-75,40b MICROSCOPIUM,21,-35,40| MONOCEROS,7.25,0,45 MUSCA,12.5,-65,35 NORMA,16,-50,40 OCTANS,20,-90,50 OPHIUCHUS,17,0,45 ORION,5.5,0,40 PAVO,20,-65& HERCULES,17,30,6020 HOROLOGIUM,3.25,50,40H: HYDRA,11,-20,90^D HYDRUS,2,-70,50vN INDUS,21.5,-55,30X LACERTA,22.5,50,30b LEO,11,15,50l LEO MINOR,10.25,35,35v LEPUS,5.5,-20,30 LIBRA,15.25,-15,30 LUPUS,15,-40 CRATER,11.5,-15,40; CRUX AUSTRALIS,12.5,-60,30S CYGNUS,20.5,40,40o DELPHINIUS,20.6,15,30 DORADO,7,-60,30 EQUUELUS,21.25,5,30 ERIDANUS,3.75,-30,100 FORNAX,3,-30,30 GEMINI,7,20,45 GRUS,21.25,-50,30.5,-50,50h CEPHUS,22,70,406r CETUS,1.5,-10,60S| CHAMAELEON,10.5,-80,30l CIRCINUS,15,-60,40 COLUMBA,6,-35,30  COMA BERENICES,13,20,30 CORONA AUSTRALIS,18.75,-40,30 CORONA BOREALIS,15.75,30,30 CORVUS,12.5,-20,3 CAELUM,4.75,-40,302 CAMELOPARDIS,4.25,70,40I CANCER,8.5,20,40i" CANES VENACETI,12.5,40,30, CANIS MAJOR,6.8,-25,35 6 CANIS MINOR,7.7,5,30@ CAPRICORNUS,21,-20,40J CARINA,8,-60,40T CASSIOPEIA,1,60,30 ^ CENTAURUS,13G12.8MAG - LIST OF CONSTELLATIONSE ANDROMEDA,1,35,40\ ANTILA,10,-30,30q APUS,16,-80,30 AQUARIUS,22,-10,60 AQUILA,20,10,40 ARA,17.5,-55,30 ARIES,2.5,20,30 AURIGA,5.5,35,40 BOOTES,14.8,30,40233,3# D$;"BLOAD ";F$;",A$6000") F CALCULATE RA,DEC & MAGZ FROM DATABASEl HEREBASE5J RA((HERE)(HERE1)60)0.261799 DEC(HERE2)(HERE3)60 DEC127DEC128DEC DECDECRD MAG(HERE4)10  MAG12.7MAX:YCYYYH 8XSX1X011505 BYSY1Y01150E L PLOT STARS VBPĺ"";q `MAG(MAG)1:MAG1MAG1 jMAG5MAG5 tMAGX,Y ~  DATABASE LOADING :"LOADING DATABASE" D$(4) D$;"BLOAD STARSHAPES (768)" 232,0:,0SX1,SY10,SY10,00 @J1N:3000:1000:H J"":A$:CF5000Q T110m  DO SETUP CALCULATIONS PHDEC:DLRAL0 A(P0):B(P0) C(PH):D(PH) E(DL):F(DL) K02(1ACBDF) $XRK0DE:YRK0(BCADF) .XCX" "RA,Dec: ";R0,D0@ "Enter the field width in degrees-"R "Width: ";WIs "Border the map (Y/N): ";L$ "Beep a star plot (Y/N): ";B$ BP0 B$"Y"BP1 RSX53WI:L00.261799R0:P0D0RD "4:3 ,L$"Y"320 60,0SX16:RDPI180$ INFORMATION SCREEN8 16:"STARPLOT"L 16:"--------"S 5 "Starplot plots a stereographic map of" "the sky from a star database, of the" "region and field you select.":10 "Enter the RA,Dec of the field centre- 24570% DATABASE CONSTANTS/N602EF$"STARCAT1.OBJ"T(BASE24571Z2u<PI3.1415926:RDPI180F LOAD DATABASEK(232)0(233)390P2000ZSX560:SY192:YH0.5dCXSX2:CYSY2i5000n:40: xPI3.141592         􍹯􍹯􍸯 th a field width of ";CW(Q);" Degrees."W20:"Hit any key to view constellation ":"Hit ESC to exit ";:A$::A$(27)QQS:5900:5090R0CR(Q):D0CD(Q):WICW(Q):280  SHOW 15 CONSTELLATIONS Q IS 'FIRST' CONSTELLATION 7:95 "5<23:"Do you wish to Restart, or Exit (R/E)";GFA$:A$"E"ĀQP5060[ZQQS~_QCNQCN14:S14:5900:5090d7:1:958n8:CN$(Q);" IS CENTERED ON"x:" R.A ";CR(Q);" Hours"" Dec ";CD(Q);" Degrees"'13:"wi"-->";A$:T(A$)%T2151203T85140BT135210QT275170a"";:51001:" ":SS1:S155090S0:QQ15:QCNQCN14 5900:50901:" ":SS1:S15090S14:QQ14:Q1Q1(5900:509021:" tions"!13);"--------------".CF5060PCN$(88),CR(88),CD(88),CW(88)4:"Please wait, retrieving constellations.";I1CN:CN$(I),CR(I),CD(I),CW(I):4:1:958:"Choose a constellation.."Q1:5900S0:CF17S:1:ULUM,2,30,300 TRIANGULUM AUSTRALE,16,-65,40F TUCANA,0,-65,40b URSA MAJOR,11.5,50,40| URSA MINOR,16,80,45 VELA,9.5,-50,45 VIRGO,13.5,0,50 VOLANS,8,-70,40 VULPECA,20,25,40:40:CN8813);"Constella"C";QZRR(RA(I,1))("M";Z;",0"5J0DAYHZRR(RA(I,J))\"D";Z;",-";2Jd:s'D$;"PR#0";"PR#0""PR#0"DA$I08:RA(I,DAY)'A$::DAYDAY1:220W,D$;"CLOSE PLANETS.DATA"a6"L0"s@I03:"C";IAZRR(RA(I,1))B"M";Z;",0"JJ0DAYTZRR(RA(I,J))^"D";Z;",-";2Jh:r"L1"|I48}Q0:I8QI4~8*JQQ14$4JCNJQ20::6>4);CN$(J):SH7:25:"Arrows to move"rR9:25:"RETURN to choose"\11:25:"ESCAPE to exit"f::(>4);CN$(J):(H(H::(>4);CN$(J):(H(H(HNXF Z0Z h:r"L1"!|I484}Q0:I8QI4?~"C";QRZRR(RA(I,1))g"M";Z;",0":ZZ0vJ1DAY1ZRR(RA(I,J))(ZZ0)10ĺ"M";Z;",-";2J"D";Z;",-";2JZ0Z:'D$;"PR#0";"PR#0"DRDRD DAY1A$:A$+I08:RA(I,DAY)1DDAYDAY1:220a,D$;"CLOSE PLANETS.DATA"k6"L0"}@I03:"C";IAZRR(RA(I,1))B"M";Z;",0":Z0ZJJ1DAY1TZRR(RA(I,J))Y(ZZ0)10ĺ"M";Z;",-";2J^"D";Z;",-";2Jc4,"D",304,"N",273,"O"3x 243,"S",212,"A",181,"J"P 151,"J",120,"M",90,"A"j 59,"M",31,"F",0,"J"I024:RARR(I)"M";RA;",0":"J0,5""R-7,25":"Q1":"P";(I)300D$;"OPEN PLANETS.DATA"D$;"READ PLANETS.DATA":RA(8,366) D$(4)3RR(X)47218XC DRAW AXESVD$;"PR#1"::m#(18):"A":(18)v("I"2"C0"7"L0"<"M472,0":"D40,0,40,-732"FI112:M,M$P"M40,-";M2:"J-5,0"Z"R-20,5":"Q1":"P";M$dn 33  NXF NX #32.2 ATMOSPHERIC DISTORTION?&O IN=OI,DH,LR,LS OUT=LR,LSb&P UI(OIPJ)(DHPJ):UIC(UI)&R X.566667:Y0.00989004(UIPJ):YS(Y)&T DT240Y(DHPJ):DTDT3600&V LSLSDT:LRLRDT&Z &d &e #42.2 No. DAYS SINCE JAN 0.0 1980'f AD(YX):ADADPJ'% X0ADAD180;% AD0ADAD360T% ADAD15:RZAD:DZGXZ% `%! y%( #32.1 RISE AND SET%) IN=OI,RZ,DZ OUT=LR,LS%H LH(OIPJ)(DHPJ):LHC(LH):LHLH15%J LR24RHLH%L LSRHLH%M LSHPN(LS):LRHPN(LR)&N2505 IN=OL,OS OUT=GX,AD1$ ENTRT@2510 IN=L,B7$ k$ GX(BPJ).91746406(BPJ).397818676(LPJ)y$ GXS(GX)$ Y(LPJ).91746406(BPJ).397818676$ X(LPJ)$ 2550:$ $ #27.2 TAN CORRECTION$ IN=AD,X,Y OUT=AD$ %A0AAAA24 #AA24AAAA24-#HXHXAA=#HXHPN(HX)N#HXHX.99727T#Z#`#` u#a #15 LST TO GST#b IN=HH,YP,SS OUT=HX#c # # LXLN15# HXHXLX# HXHPN(HX)# # # #27 ECLIPTIC TO EQUATORIAL$ ENTRY@No. DAYS SINCE JAN 0.00"m IN=YY,MM,DD OUT=ND6"n\"XXDX:XMMX:XYYX:MX1:DX0:1070~"XJJD:DXXX:MXXM:YXXY:1070"NDJDXJ:"" #13.1 GST TO GMT" IN=YY,MM,DD,HX OUT=HX""AAND.0657098"B10İ2033 #AAAAB1:A #12.2 CONSTANT B!C!XZYX:XXDX:XYMX:DX0:MX1:1070:YXXZo!XZYX:XXDX:XYMX:DX0:MX1:1070:YXXZ!SXJD2415020:TXSX36525! RR6.6460656(2400.051262TX)(.00002581TXTX)!UXRR(24(YX1900))! B124UX!%!j"k #13.2   IN=HX OUT=HH,YP,SS& S3(HX)3 HX(HX)C HH(HX)S3X FX(HX(HX))60p SX((FX(FX))60)} FX(FX) HXHXS3 YPFX:SSSX     #12 GMT TO GST  IN=YY,MM,DD,HH,YP,SS OUT=HX  !7)DXAX(AX)5DX(DX7):DX(DX).5DXDX1BDX(DX)DX$(0)"Sunday ":DX$(1)"Monday ":DX$(2)"Tuesday ":DX$(3)"Wednesday":DX$(4)"Thursday "DX$(5)"Friday ":DX$(6)"Saturday "DD$DX$(DX): #8 DECIMAL TO HMSYXYY:MXMM:DXDDYZYX)MZMXE.MX2YXYX1:MXMX12VBAX(YX100)jLBX2AX(AX4)~VCX(365.25YX)`XD(30.6001(MX1))jJDBXCXXDDX1720994.5tx} #6 DAY OF THE WEEK~ IN=JD OUT=DX$AX((JD1.5)(MM2(MM2))ML308(YY4(YY4))(MM2)ML28Y(YY4(YY4))(MM2)ML29yDDDD1:DDMLMMMM1:DD1MM12MM1:YYYY1(Y4YY)(M4MM)(D4DD)10160:10201003 #4 JULIAN DATE IN=YY,MM,DD OUT=JD"Zone ";ZC:"Latitude ";:(OI);:OI0ĺ" S":190E" N"Kk INCREMENT DAY BY ONE CODE1020:1400:10040:9990(MM8)(MM2(MM2))ML31(MM7)(MM2(MM2))ML31(MM7)(MM2)(MM2(MM2))ML30(MM7) to printer: N";(8);:"";PR$:PR(PR$"Y"):FF0::"Dump to a file: N";(8);:"";PR$:PR$"Y"105hFF1:"File >PLANETS.DATA";:7:"";FF$:FF$""(FF$)0FF$"PLANETS.DATA"iPRĺ(4);"PR#1":"Longitude ";:(LN);:LN0ĺ" E":170" W";PN$(3)"Mars ":PN$(4)"Jupiter ":PN$(5)"Saturn "odPN$(6)"Uranus ":PN$(7)"Neptune ":PN$(8)"Pluto "e"Input the YEAR,MONTH,DAY ";:YY,MM,DDf"Input LATITUDE,LONGITUDE ";:OI,LN:ZC((LN15))bg"Stop at YY,MM,DD ";:Y4,M4,D4::"Dump(24X)24)24)C" ASTRO-CALC MK IV"~:" APPLE VERSION MARCH 1986"(:" BY BRYAN BURGESS"2:::<PN$(0)"Sun "5cPN$(1)"Mercury ":PN$(2)"Venus ":#)(4);"PR#3":10PI3.1415927:PJ180PI6 T INVERSE SINE AND COSINEv AND DEGREE/HOUR CORRECTION| S(X)(X(XX1))PJC(X)((X(XX1))PI2)PJDPN(X)(360X)(((360X)360)360)HPN(X)(24X)((     ! ! !!!!!!!!!" " " " " """"""""" NA,8,-60,40$&< CASSIOPEIA,1,60,30@&F CENTAURUS,13.5,-50,50V&P CEPHUS,22,70,40m&Z CETUS,1.5,-10,60&d CHAMAELEON,10.5,-80,30&n CIRCINUS,15,-60,40&x COLUMBA,6,-35,30 & COMA BERENICES,13,20,30& CORONA AUSTRALIS,18.75,-40,30',30% AURIGA,5.5,35,402% BOOTES,14.8,30,40K% CAELUM,4.75,-40,30i% CAMELOPARDIS,4.25,70,40% CANCER,8.5,20,40%  CANES VENACETI,12.5,40,30% CANIS MAJOR,6.8,-25,35 % CANIS MINOR,7.7,5,30%( CAPRICORNUS,21,-20,40 &2 CARIEC$DECDECRD&$MAG(HERE4)10A$MAG12.7MAG12.8MAGG$d$ LIST OF CONSTELLATIONS|$ ANDROMEDA,1,35,40$ ANTILA,10,-30,30$ APUS,16,-80,30$ AQUARIUS,22,-10,60$ AQUILA,20,10,40$ ARA,17.5,-55,30% ARIES,2.5,20 D$(4))# D$;"BLOAD NEWSHAPES,A$6000"<# 232,0:233,96Z# D$;"BLOAD ";F$;",A25000"`# }# CALCULATE RA,DEC & MAG# FROM DATABASE#HEREBASE5J#RA((HERE)(HERE1)60)0.261799#DEC(HERE2)(HERE3)60$DEC127DEC128DRK0DE:YRK0(BCADF)1"XCXX:YCYYYHF" XSX1X02150["*YSY1Y02150k"4 PLOT STARy">BPĺ"";"HMAG0MAG0"RPR12140,2160"\MAG1X,Y"f"pMAG218X,Y"z" DATABASE LOADING" :"LOADING DATABASE"#%!`J1N:4000:2000:MAGLMJN1+!j460 PLOT AN ARBITRARY VIEW:34,9:40"Enter the RA,Dec of the field centre-" "RA,Dec25:A$A(A$):A272909A8LMLM1:LM1LM1VA21LMLM1:LM5LM5mA54A48LMA48|A1365016:25:TRUE$(PR)16:25:A$A(A$):A8A21PRPR:YH0.50.1PR:720A27290A13ĺ"";:72018:"ESC to exit"$&10:25:TRUE$(BD)4010:25:A$V:A(A$):A8A21BDBD:550dDA27290zNA13ĺ"";:550X12:25:TRUE$(BP)b12:25:A$lA(A$):A8A21BPBP:600vA27290A13ĺ"";:60014:25:LM14:screen";25);TRUE$(PR)-FLAG$(FLAG)>20:1:958F23z"Do you wish to change the parameters N";(8);A$:A$"Y"520(A$)27Ģ10:1:958:FLAG1000,6000,8000A$:20:"Arrows to select""Return to move" lot plots a stereographic map of"M^"the sky from a star database, of the"uh"region and field you select.":10r"Draw a border";25);TRUE$(BD)|"Beep a star";25);TRUE$(BP)"Limiting Magnitude";25);LM"Print the PN$(0)"Sun":PN$(1)"Mercury":PN$(2)"Venus"_PN$(3)"Mars":PN$(4)"Jupiter":PN$(5)"Saturn"PN$(6)"Uranus":PN$(7)"Neptune":PN$(8)"Pluto"" INFORMATION SCREEN 'PP0,:40:616:"STARPLOT"@16:"--------"J5!T"StarpEFAULT PARAMETERSBD0#BP0,LM55PR0@FLAG2X PARAMETER STRINGSzTRUE$(0)"No ":TRUE$(1)"Yes"FLAG$(1)"View a part of the sky"FLAG$(2)"View constellations"FLAG$(3)"View planets position" PLANET NAMES,  24570% DATABASE CONSTANTS0N1106F(F$"STARCAT1.OBJ"U2BASE24995[<vFPI3.1415926:RDPI180P LOAD DATABASEZ(232)0(233)96110d3000nSX560:SY192:YH0.5xCXSX2:CYSY2PI3.1415926:RDPI180 D          !!! ! ! ""      UU$1 SR(A(1EE))(1E(VPPJ)):1 NE0.985607908N8J1" NEDPN(NE)_1* MENE3.7628630614 LLNE1.9157416(MEPJ)98.8335416 LL0LLLL360:338218 LL360LLLL360:33841> VELL102.5964031H RR.999720508(1.016718(VEPJ))2I R3R37,109.941,8.2,4.073E-60 @0 #50.1 COORDINATES OF PLANETSm0 IN=PLANET DATA,YY,MM,DD OUT=PL(),PK()s0 0 TP,EE,UU,E,A,I,Q,T0,CA0 NP0.9856473N8TP0 NPDPN(NP)0 MPNPEEUU0 SLNP(2PJ)E(MPPJ)EE0 SLDPN(SL)1 VPSL2.489374,113.488834,165.6,1.74E-4x/N 84.01247,228.0708551,172.736328,.046323,19.21814,.772989,73.876864,65.8,7.597E-5/X 164.79558,260.3579,47.8672148,.009002,30.10957,1.771602,131.560649,62.2,7.597E-50b 250.9,209.439,222.972,.25387,39.78459,17.1435,76.4997524,16.92,1.721E-5s.0 1.88089,126.30783,333.6908166,.0933865,1.5236883,1.849801,49.4032,9.36,4.539E-6.: 11.86224,146.96636,14.009549,.048466,5.20256,1.304182,100.252017,196.74,1.994E-4!/D 29.45771,165.322242,92.665397,.055616,9.554747,HXWR:1723:WH(HX):WMFX:WSSX:HXSW:1723:HU(HX):MUFX:SUSXG- M- j- PLANET ORBIT DATA p- - .24085,231.2973,77.1442128,.2056306,.3870986,7.0043579,48.0941733,6.74,1.918E-6.& .61621,355.73352,131.289579,.0067826,.7233316,3.3940)UH:IM(0)UM:HI(0)VH:MI(0)VM:(, :, #46 TWILIGT^, IN=#45 OUT=WH,WM,WS,HU,MU,SUd, , X(OIPJ)(GDPJ):LHC(X), X(0.3090169(OIPJ)(GDPJ))((OIPJ)(GDPJ)), HDC(X), T(HDLH)15:TT.9973, WRTRT:SWTSTA- SDT + TRHPN(TR):TSHPN(TS)H+ HXTR:2432:TRHX:HXTS:2432:TSHXX+ MXMZ:2185+ HXTR:2220:TRHX:HXTS:2220:TSHX+ TRTRZC:TRHPN(TR)+ TSTSZC:TSHPN(TS)+ HXTR:1723:UH(HX):UMFX:USSX:HXTS:1723:VH(HX):VMFX:VSSX", IH(32:R1LRDT:S1LSDT:RHA2:DHG2:2632:R2LRDT:S2LSDTt*h TR(24.07R1)(24.07R1R2):TS(24.07S1)(24.07S1S2)*m GD(G1G2)2*r X(OIPJ)(GDPJ)*s UIC(X)*w X.0145835939(UIPJ):YS(X)*| DT240Y(GDPJ):DTDT3600+ TRTRDT:TSTXTH:1723) HX(HX)-)" AHHX:AMFX:SASXF), D(0)RX:T(0)TH60:L)T g)U #45 SUNRISE & SUNSET)V IN=YY,MM,DD,OI,LN OUT=UH,UM,US,VH,VM,VS)W )^ 2700)_ L1L:A1AD:G1GX:LL.985647:B0:2510:L2L:G2GX:A2AD)` XMMX8*c RHA1:DHG1:2678.83354( LDPN(L)( B0(( 25108( RZAD:DZGXP( PL(0)RZ:PK(0)DZ:V( x( #44 SUN'S DISTANCE AND SIZE( IN=#42.1 OUT=AH,AM,SA,RX( ( 2660( VXMXEC( FX(1.016718(VXPJ)).999720508( RX1FX( THFX.533128 ) HIN=YY,MM,DD OUT=ND'g )'i 1020:2670='n N8JD2444238.5C'x I' d' #42.1 SUN'S POSITION' IN=YY,MM,DD OUT=RZ,DZ' ' 2660' NX.985647332N8' NXDPN(NX)' MXNX3.76286' MXDPN(MX)' EC1.9157416(MXPJ)( LNXEC20+: RETICULUM,3.75,-60,307+D SAGITTA,19.75,20,30U+N SAGITTARIUS,18.5,-30,40n+X SCORPIUS,17,-35,50+b SCULPTOR,0.5,-30,45+l SCUTUM,18.75,-10,30+v SERPENS CAPUT,15.8,10,40+ SERPENS CAUDA,18,-5,50+ SEXTANS,10.25,0,35, TAPHIUCHUS,17,0,45%* ORION,5.5,0,40:* PAVO,20,-65,40S* PEGASUS,23.5,25,60l* PERSEUS,3.5,-50,40* PHOENIX,1,-45,35* PICTOR,6,-55,30* PISCES,0.5,15,60* PISCES AUSTRINUS,22.5,-30,40*& PUPPIS,7.75,-30,50+0 PYXIS,9,-30,4S,5.5,-20,30%)h LIBRA,15.25,-15,30;)r LUPUS,15,-40,40N)| LYNX,8,50,50e) LYRA,18.75,35,30|) MENSA,5.5,-75,40) MICROSCOPIUM,21,-35,40) MONOCEROS,7.25,0,45) MUSCA,12.5,-65,35) NORMA,16,-50,40) OCTANS,20,-90,50* O3,-30,30( GEMINI,7,20,455( GRUS,21.25,-50,30M( HERCULES,17,30,60i( HOROLOGIUM,3.25,50,40(" HYDRA,11,-20,90(, HYDRUS,2,-70,50(6 INDUS,21.5,-55,30(@ LACERTA,22.5,50,30(J LEO,11,15,50(T LEO MINOR,10.25,35,35 )^ LEPU CORONA BOREALIS,15.75,30,308' CORVUS,12.5,-20,30Q' CRATER,11.5,-15,40r' CRUX AUSTRALIS,12.5,-60,30' CYGNUS,20.5,40,40' DELPHINIUS,20.6,15,30' DORADO,7,-60,30' EQUUELUS,21.25,5,30' ERIDANUS,3.75,-30,100( FORNAX,IIPIIPIIPIIPIIPIIPIIPIIPIIPIIPIIPIIPIIIIPIIPIIPIIPIIPIIiIX~PIIiIXIIiIXiIXiIXPIIiJX~XPIIPIIPIIPIIPIIPIIPIIPIIIIPIIPIIPIIPIIPIIPIIPIIPIIPPII;" ";:<6 SAVE AS A FILE2<6(4);"OPEN ";FF$J<6(4);"DELETE ";FF$`<6(4);"OPEN ";FF$w<6(4);"WRITE ";FF$<6DD$;" ";DD;"/";MM;"/";YY<6QP08<6PL(QP):PK(QP)<7< 7(4);"CLOSE ";FF$<7$;/ZY$;:Z1(0):";2Z132.52;;2 PRINT Z1 AS +XX.XXS;2Z10ĺ" 00.00 ";:g;2ZY$(((Z1)));2(ZY$)2ZY$"0"ZY$:13020;2ZZ$((((Z1(Z1))100)));2(ZZ$)2ZZ$"0"ZZ$:13040;2Z10ĺ"-";ZY$;".";ZZ$;" ";:<3" ";ZY$;".";ZZ$13000:'Z1D(QP):13000.:'Z1T(QP):13000B:'Z1M(QP):13000H:'P:':e:'PRĺ(4);"PR#3"q:'Z1(0):'FFİ14000:'1004:':. PRINT Z1 AS +XX:.ZY$(((Z1))):.(ZY$)1ZY$"0"ZY$:.Z10ZY$"-"ZY$:12050;/ZY$" "ZY08#9V'PN$(QP);:Z1IH(QP):1200089['Z1IM(QP):12000T9`'" !";:Z1HI(QP):12000i9e'Z1MI(QP):120009j'" ! ";:HXPL(QP):1723:Z1HH:12000:" ";9o'Z1FX:120009t'" ! ";:HXPK(QP):1723:Z1HH:12000:" ";9y'Z1FX:12000:~'" ! ";:Z1F(QP):1004G88'YXYY:MXMM:DXDD:2185:NJND:YXYY:MXMM:DXDD:2670:NRN8:8='" Twilight begins ";WH;"H ";WM;" Twilight ends ";HU;"H ";MU8B'"----------RISE----SET-------RA--------DEC-------PHASE---AU----SIZE---MAG-"8G'F(0)1:M(0)26.89L'QP(F(QP)PJ))7757 #56 APPARENT BRIGHTNESSK7 IN=#50 OUT=M()7M((SRP)(CA(F(QP)))):MM(10):MM5:MM26.77M(QP)M:7&2700:2800:2900:2900:3000:7'7'DD$;" ";DD;"/";MM;"/";YY;7'9980:RCRZ:DCDZ7$':35508.' #53 DISTANCE/LIGHT TIME/SIZE;6v IN=#50 OUT=D(),L(),T()d6PSR3R3SRSR2R3SR((SLLL)PJ)p6P(PS)~6RP.13866TT0P6D(QP)P:L(QP)R:T(QP)T:66 #54 PHASE OF PLANET6 IN=#50 OUT=F()6 7F(QP)LSL:F(QP).5(1YXYZ:MXMZA5WWND:HXTR:2220:TRHX:NDWW:HXTS:2220:TSHXZ5TRTRZC:TRHPN(TR)s5$TSTSZC:TSHPN(TS)5(HXTR:1723:IH(QP)(HX):IM(QP)FX:IS(QP)SX:HXTS:1723:HI(QP)(HX)5*MI(QP)FX:CI(QP)SX5.3720:3780:3810::100455t6uLDPN(L)K4 B(RD(UIPJ)((LAD)PJ))(RR((ADLL)PJ)):B(B):BBPJk4 2510:PL(QP)AD:PK(QP)GX:q4 4 DO THE WHOLE KIT'N'KABOODLE 4 4 2660:21854 QP184 3260:RHAD:DHGX:26324HXLR:2440:TRHX:HXLS:2440:TSHX 50LLAA3 L0LL360:3482,3 LDPN(L)n3 B(RD(UIPJ)((LAD)PJ))(RR((ADLL)PJ)):B(B):BBPJ3 2510:PL(QP)AD:PK(QP)GX:3 3 #50.3 OUTER PLANET3 3 L(RR((ADLL)PJ))(RDRR((ADLL)PJ))3 L(L):LLPJ:LLAD 4 R%2\ X((SLQ)PJ)(IPJ):UIS(X)@2f Y((SLQ)PJ)(IPJ)S2p X((SLQ)PJ)f2z 2545:ADAD152 ADADQ:RDSR(UIPJ)2 QP235002 2 #50.2 INNER PLANET2 2 AA(RD((LLAD)PJ))(RRRD((LLAD)PJ)):AA(AA):AAAAPJ3 L18ECA,20,25,40(-p CONSTELLATION SECTION4-z:40:>-CN88Y-13);"Constellations"t-13);"--------------"-CF6090-CN$(88),CR(88),CD(88),CW(88)-4:"Please wait, retrieving constellations.";-I1CN:CN$(I),CR(I),CD(I),CW(I):*URUS,4.5,20,50*, TELESCOPIUM,19,-50,40C, TRIANGULUM,2,30,30g, TRIANGULUM AUSTRALE,16,-65,40}, TUCANA,0,-65,40, URSA MAJOR,11.5,50,40, URSA MINOR,16,80,45, VELA,9.5,-50,45, VIRGO,13.5,0,50, VOLANS,8,-70,40 - VULP