23FFTIMEWNTYPENAMEZTFLAWHICDMYMMTHETLONLLALPHDELTSTSSTSTRSTTTGSLSJCONTGMTEOMEGEANMLVRPHLRRRSSLAEAMMAALLPNLALBALPHADELTADLDLALPHADELTAPPPDELTADHALPHA1DELTA1ALPHA2DELTA2ST1ST1ST2ST2DHMDDMMYYDDMMYYBB  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqOBSERVATIONAL ASTRONOMYBY JOHN GODBEYBASED ON FORMULAS INPRACTICAL ASTRONOMYBY PETER DUFFETT-SMITH`<;@,;@,;@,;@,;@,H6-T6-`6-$L+@%@ Ap1-@@L @ OBSERVATIONAL.,-@@, @ ASTRONOMY8w-@@*(@PROGRAM<-@@L(@BY^-@@w(@ JOHN GODBEYB/-@A% %+/ ApL[0@@@70@@Q0@@@[ A V7(}ҠҠҠ3-@A 7 ` Aj# (}WHAT DO YOU WANT TO DO?#(tA>(6 GET INFORMATION ON OBJECTS IN THE SOLAR SYSTEM?A(~HE(= GET INFORMATION ON APPROXIMATELY 60 DEEP SKY OBJECTS?H(JG(? GET INFORMATION ON ONE SOLAR OBJECT OVER A PERIOD OF TIME?J(HE(= PRINT LOCATIONS OF APPROXIMATELY 60 DEEP SKY OBJECTS?H(8( Ҡ 8 @)!@A''AI@AS ATPB A 6 A(}6(ENTER THE DAY, MONTH, AND YEAR>* "FOR WHICH YOU WANT DATA (Ĭͬ)-(58(>-r7!@1) @) @)!@) P(}ĠŮ٠d-@Ah r A  -- AP- WHAT WILL BE THE OBSERVER'SJ GEOGRAPHICAL LATITUDE?@((eg. PETERBOROUGH=44.34 DEG.)C(GJ e 6@)!@C($}ŠźĠW-@A[ e AP A & & WHAT WILL BE THE OBSERVER'S:  LONGITUDE?:(#(IF THE LONGITUDE IS EAST, ENTER ITM AS A NEGATIVE NUMBER)F($(eg. PETERBOROUGH= +78.22 DEG. WEST)I(M(l 6A)!AJ(+}ŠԠŠΠĠ ^-@Ab l A2E A0 E 0IN WHAT TIME SHOULD THE DATA BE EXPRESSED?<<< 4(eg. , , , , , , , , )F ( P$ZDISABLE BRK KEYdG6-F:@,!A',6-&A(8@DB7tG$nxGGSUBROUTINE DETERMINES NUMBER OF DAYS IN YEAR TO THE SELECTED DATE4+'@,"P:'@,*6-@b4 A06-@c!@ A`$$6-P:++&@,$,'@,% Ap""6-P:+%@,$@0`,&%$77SUBROUTINE DETERMINES ECLIPTIC COORDINATES OF SUNK @A6-6Ae$+@&,&P:+@&,'@,%K A<<6-Ae$+&@,%P:+&@,'@,%%@6-+A`'Ae$",$  AA` A !A` A` A 6-&A`"A` A , A`66-%A`@ A J AT6-%Ax5@&AYd^ 6-%A`hr&&6-+A`'@p,$?g$G:,|6-%%Ax5@6-!A`6-&A`$RRSUBROUTINE CHANGES ECLIPTICAL COORDINATES TO RIGHT ASCENSION AND DECLINATION6-@#D 6-E:,""6-G:,$E:,&+G:,'E:,$G:,,6-D:', 6-G:,$E:,%E:,$G:,$G:,6-D:'M:6$%@,,#*# A0#* # A`# *# A'!* @'6-%A) 6Ap*!6A`)6-&A A&) 6@*!6A)6-%A0'!A* Ap'6-&A: AD'!@* A'6-&AN) 6A*!6Ap)6-%AX Ab( *!6@(6-%Al'!Ap* A`'6-&Av 6-%A`6-'@$22CONVERTS DECIMALS TO HOURS, MINUTES, SECONDS 6-P:,6-P:+&P:,,$@`,666-@`$++&P:,,$@`&P:+&P:,,$@`,, 6-P:,$::SUBROUTINE CALCULATES RISING AND SETTING TIME OF SUN6-@ A!@ 6-6-6-%?VG A A!@ +!@$6-&@$+6-&@$+!@$6-&@$+6-&@$ !!6-+@$$,'+@$%&,*!!6-+@$$,'+@$%&,4!@$6-&@$>!@$6-&@$H6-R$\33SUBROUTINE CALCULATES RISING AND SETTING TIMEfp A"z 6-+6G:,'E:,,$+G:,'E:,,2@(+!@) 6@,2 A"2!@%  DOESN'T RISE.('2 AT 4 6@'( IS CIRCUMPOLAR*'4 AT //6-+6D:'M:6$%@,,%@,'@6-@$%& 6-%"@$!@$6-&@$!@$6-&@$$I'(ŠҠԠ͠I(ӠȠŠL)(!ԠӠΠή٠ΠL(ŠҠŠҮ(-@A '( A  GGSUBROUTINE CONVERTS LST TO GST, GST TO GMT, AND GMT TO LOCAL TIME 6-'@%  6-%@$$ !@$6-&@$. 6-@&P:+A%,'A,%P:+P:+A%,'A,'@,,%P:Ae%$+A%,,%P:@0`$+@%@,,%Cr P8 6-+&CAP ,'Be%B ))6-@d`e`%+A$`$,%+=%$$,L 6-@$&%+@$$,V 6-?W $&`  6-@$%j 6-&t  6-@$%~ 6-?rp$  4EST6-6@  4CST6-6@  4MST6-6@  4PST6-6@  4EDT6-6@  4CDT6-6@  4MDT6-6@  4PDT6-6@  4GMT6- % -% %6-%@$ A@ $ QQSUBROUTINE CALCULATES RISING AND SETTING TIMES OF PLANETS, AND THEIR PHASES  "4END' AQ " """"""( 6-+A`'Ae$",$'2 '!A`6-&A`' A&< 6-%&F $$6-%+A`'@p,$$G:,%P '!A`6-&A`' A&@Z ' 6-%A`' A&Pd 6-&n **6-+,$+@&$,'+@%$E:,,x %%6-+A`'Ae$",$+'@@, 6-%@5@&AYd 006-%+A`'@p,$?g$G:,%@5@ !A`6-&A`  6-%A` 6-&AYd 886-+@&?g$?g,'+@%?g$E:,, 6-G:&,$G:, 6-D:'M:6$%@,, 6-+G:&,,$E:, 6-E:&, 6-D:', #*# A(` #* # A( # *# A)  '!* @'6-%A ) 6Ap*!6A`)6-&A" A)@, ) 6@*!6A)6-%A6 '!A* Ap'6-&A@ A)@J '!@* A'6-&AT ) 6A*!6Ap)6-%A^ A)@h ( *!6@(6-%Ar '!Ap* A`'6-&A|  6-%A`  6-%6-$E:, %4MERCURY)4VENUS% A) ,"6-D:$G:&,'+&$E:&,,,%, A0 6-$G:&,'+&$E:&,, 6-D:, 6-A%% ' 6-%A`' A0 '!A`6-&A`' A0  ++6-P:A$+@%E:&,,'@, ,,6-D:++$G:,'E:,,$G:&,,'+$G:&,,, A A!@ %"@6-% AR`  - A#  --  - A#&  --0 $: !! HMHMD A%N PPMERCURY,0.24085,231.2973,77.1442128,.2056306,.3870986,7.0043579,48.0941733X NNVENUS,.61521,355.73352,131.2895792,.0067826,.7233316,3.394435,76.4997524b PPMARS,1.88089,126.30783,335.6908166,.0933865,1.5236883,1.8498011,49.4032001l TTJUPITER,11.86224,146.966365,14.0095493,.0484658,5.202561,1.3041819,100.2520175v SSSATURN,29.45771,165.322242,92.6653974,.0556155,9.554747,2.4893741,113.4888341 RRURANUS,84.01247,228.0708551,1727363288,.0463232,19.21814,.7729895,73.8768642 XXNEPTUNE, 164.79558,260.3578998,47.8672148,0.0090021,30.10957,1.7716017,131.5606494 @@PLUTO,250.9,209.439,222.972,.25387,39.78459,17.137,109.941 END MOON 6-@ A" - 6-@c`$%@dTd '!A`6-&A`' A2 ' 6-%A`' A2 6-&?$&AI80c '!A`6-&A`' A3 ' 6-%A`' A3  6-AQ)&?)S$ ((6-@'9$G:@$&@$&, 6-?X$G:, 6-%&&* 6-@($G:,4 6-?!@$G:@$,> 6-%%&%H 6-?e$G:@$+&,,R 6-%\ ++6-P:A$+@&E:&,,'@,f 6-&?$G:,p 6-G:&,$E:@S,z 6-E:&, 6-D:', #*# A50 #* # A5` # *# A5 '!* @'6-%A ) 6Ap*!6A`)6-&A A6 ) 6@*!6A)6-%A '!A* Ap'6-&A A6 '!@* A'6-&A ) 6A*!6Ap)6-%A A6( *!6@(6-%A'!Ap* A`'6-&A 6-%$6-G:&,$G:@S,.6-D:'M:6$%@,,8 -- AB --L6-?$E:&,V6-?U%?$E:,`6-%$@j6-%$@t A~ --6-D:?fG$G:,'E:,,6-?fG$G:, 6-E:,::6-+@&?I$?I,'+@%?I$E:%,,6-@`&"$6-+%,'@ 6-6+G:,'E:,,$+G:,'E:,,%%6-6D:'M:6$%@,,%@##6-D:+$G:,,'+$E:,&$E:,,, 6-%6-'@ 6-&6-$G:,& 6-'+$E:,$E:,&,6-$E:, 6-D:,( 6-&26-$G:,&<6-'+$E:,$E:,&,F6-$E:,P 6-D:,Z -- A!@d --n -- A!@x --+!@$6-&@$+6-&@$+!@$6-&@$+6-&@$!!6-+@$,'+@%&,!!6-+@$,'+@%&,!@$6-&@$!@$6-&@$6- - A# -- - A# --$EECALCULATES RISING AND SETTING TIME OF SELECTED DEEP SKY OBJECTS 6-"4END AH " """''6-P:,%+A,$+&P:,,'@`,''6-P:,%+A,$+&P:,,'@`6 A!@@ - A#J --T - A#^ --h$rM31,SP. GAL.,0.40,41.00|!!NGC253,SP. GAL.,0.45,-25.34M33,SP. GAL.,1.31,30.24M76,PLAN NEB,1.39,51.19NGC752,OP CLUS,1.35,37.25M34,OP CLUS,2.39,42.34M45,OP CLUS,3.44,23.58HYADES,OP CLUS,4.17,15.31M38,OP CLUS,5.26,35.48IC434,DIF NEB,5.39,-2.26M1,NOVA,5.32,21.59M42/43,DIF NEB,5.33,-5.22M37,OP CLUS,5.49,32.33M35,OP CLUS,6.06,24.20NGC2237,DIF NEB,6.30,4.54M50,OP CLUS,7.01,-8.16!!NGC 2392,PLN NEB,7.26,21.01M46,OP CLUS,7.40,-14.42&M47,OP CLUS,7.34,-14.210!!NGC2438,PLN NEB,7.40,-14.36:!!NGC2440,PLN NEB,7.40,-18.05DM44,OP CLUS,8.38,19.52NM81,SP GAL,9.52,69.18XM82,GAL,9.52,69.56b NGC3227,SP GAL,10.21,20.07l""NGC3242,PLN NEB,10.22,-18.23vM97,PLN NEB,11.12,55.18M106,SP GAL,12.17,47.35 NGC4565,SP GAL,12.34,26.16M104,SP GAL,12.37,-11.21M64,SP GAL,12.54,21.57""NGC5139,GL CLUS,13.24,-47.13M51,SP GAL,13.28,47.27M3,GL CLUS,13.40,28.38M5,GL CLUS, 15.16,2.16 NGC5907,SP GAL,15.15,56.31M4,GL CLUS,16.21,-26.24M13,GL CLUS,16.40,36.33M12,GL CLUS,16.45,-1.52M10,GL CLUS,16.55,-4.02M92,GL CLUS,43.12,6.1 M8,DIF NEB,18.02,-24.20M9,GL CLUS,17.16,-18.28  NGC6543,PL NEB,17.59,66.38*M20,NEB,17.59,-23.024NGC6572,PL NEB,18.10,6.50>M17,DIF NEB,18.18,-16.12HM25,OP CLUS,18.29,-19.17RM22,GL CLUS,18.34,-23.57\M11,OP CLUS,18.48,-6.20fM57,PL NEB,18.51,32.58p COL399,OP CLUS,19.23,20.05zM55,GL CLUS,19.37,-31.03!!NGC6818,PL NEB,19.41,-14.17!!NGC6822,IR GAL,19.42,-14.53M27,PL NEB,19.57,22.35NGC6960,NOVA,20.49,31.00!!NGC7009,PL NEB,21.01,-11.34M15,GL CLUS,21.28,11.57M2,GL CLUS,21.31,-1.03 END,("(HIT WHEN THROUGH&,(}4 AH0(4(DO YOU WANT THE LOCATION OF ANY@'(OF THE DEEP SKY OBJECTS (/) +34N6'@ AT@' AHP(#( WHICH OBJECT ' #AB": 4END0(THAT OBJECT IS NOT IN THE LIST: AH0" ""$ 0 AHp. P:,  6-%@3,, $____________________________________8KK(P:,HA$+&P:,,MP:,DEGA$+O:,&P:O:,,,'=,, $____________________________________B AH0LPRINTS SOLAR SYSTEM INFOV THE SUN`5 A A! A+ A5 A j - A#t --- A#~ -- (}##( //( %% OBJECTRISESET% ILLUM,, $____________________________________F:B2y,"@$(( SUNHMHM--THE MOON A2@F:B2y,"@$&& MOONHMHM 6-THE PLANETS  #A1P A%`F:B2y,"@$(!! HMHM2 AQ@<4 AQ(4(DO YOU WANT THE LOCATION OF ANYF,(OF THE PLANETS (/)!)4N,$P' AR(#( WHICH PLANET 'Z #A1Pd>"4END4(THAT OBJECT IS NOT ON THE LIST> AQn"x 0 AR 6-@ A& 6- A@6-6- 6- A@,, $____________________________________((//F($( RT.ASCENSION=HM'(F( DECLINATION=DEG',, $____________________________________ AQ$PRINT DEEP SKY INFO6- #AB A A) (})( //   NAMETYPERISESET ,, $____________________________________ A@F:B2y,"@$"!! HMHM,j6-%@"@ 4 THERE'S MORE...P(HIT TO CONTINUET`6-j AS6 AS@ AJ11PRINTS DATA ON ONE OBJECT OVER SEVERAL DAYST^_ ATp5(#}FOR WHICH OBJECT DO YOU WANT DATA?8(X((TO RETURN TO MENUE TYPE )[(_c 4Y$hZ AT(O(:ENTER THE FIRST DATE FOR WHICH YOU WANT DATA (Ĭͬ)R(Zro7!@1) @) @)!@) M(}ԠԮa-@Ae o AT|Z AU(O(:ENTER THE LAST DATE FOR WHICH YOU WANT DATA (Ĭͬ)R(Zo7!@1) @) @)!@) M(}ԠԮa-@Ae o AU " AU@uS(K}ȠӠԠŠΠŠŠ ҠҡŠҠg-@Ak u AT( AP 6-6-6- A 6- 6-6-6- A 6-d !B(4}ŠԠŠԠŠҠ ŠԠV-@AZ d AT6-@K @A6-6Ae$+@&,&P:+@&,'@,%K AV0<<6-Ae$+&@,%P:+&@,'@,%%@ 4SUN AV`4MOON AW AX. (}.(//TO//&(DAY #RISESET0 -:! A A! A D - A#N --- A#X --bF:B2y,"@$l HMHMv6-%@ *(#(HIT WHEN THROUGH'*$. (}.(//TO//$$(DAY #RISESET% ILLUM,, $____________________________________ - A A2@F:B2y,"@$!! HMHM6-%@  6-*(#(HIT WHEN THROUGH'*$ . (}.(//TO//'('(DAY #RISESET% ILLUM  #A1P*P"4END(.( IS NOT IN THE LISTB-@APF P ATp4"> 0 AY0H - AR A&\F:B2y,"@$f!!(HMHMp6-%@z *(#(HIT WHEN THROUGH'*$'Ԡ'-3DEEP SKY OBJECTS-3----------------L'F3&3OBJECTTYPER.A.DEC.F3------------------Q' #AB`'"4END$j'" ""t' P:,  6-%@~'YO3P:,H A$+&P:,,MP:,DEG A$+O:,&P:O:,,,'Y BD:ASTRNOMY.BAS