23C+CTIMEWNTYPENAMEZTFLAWHICDMYMMTHETLONLLALPHDELTSTSSTSTRSTTTGSLSJCONTGMTEOMEGEANMLVRPHLRRRSSLAEAMMAALLPNLALBALPHADELTADLDLALPHADELTAPPPDELTADHALPHA1DELTA1ALPHA2DELTA2ST1ST1ST2ST2DHMDDMMYYDDMMYYBB  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopq%%OBSERVATIONAL ASTRONOMY PROGRAMBY JOHN GODBEYBASED ON FORMULAS INPRACTICAL ASTRONOMYBY PETER DUFFETT-SMITH `<;@,;@,;@,;@,;@,H6-T6-`6- L+@%@ @1-@@L @ OBSERVATIONAL ,-@@, @ ASTRONOMY w-@@*(@PROGRAM<-@ @L(@BY^-@@w(@ JOHN GODBEY/-@A% %+/ @[0@@@70@@Q0@@@[ @7(}ҠҠҠ3-@A 7  @'!(} WHAT DO YOU WANT TO DO?$('(A;(31. GET INFORMATION ON OBJECTS IN THE SOLAR SYSTEM?>(A(<6(.2. GET INFORMATION ON DEEP SKY OBJECTS?9(<(E?(73. GET INFORMATION ON ONE OBJECT OVER A PERIOD OF TIME?B(E(7( Ҡ7 @)!@@ApAA @(9 @@(}6(ENTER THE DAY, MONTH, AND YEAR9 )<+ "FOR WHICH YOU WANT DATA (DD,MM,YY)36(<-*y7!@1) @) @)!@) W(}ԠԮ٠k-@Ao y @@+ , --0 @E- WHAT WILL BE THE OBSERVER'S0 .% GEOGRAPHICAL LATITUDE"% /n 6@)!@L(-}ŠԠŠΠĠ`-@Ad n @E0 @H1) & WHAT WILL BE THE OBSERVER'S) 2-- %LONGITUDE? (IF THE LONGITUDE IS EAST,3. * ENTER IT AS A NEGATIVE NUMBER).4l 6A)!AJ(+}ŠԠŠΠĠ ^-@Ab l @I5/ @S , IN WHAT TIME SHOULD THE/ 6,, $DATA BE EXPRESSED (GMT,EST,CDT,etc.)78$ZDISABLE BRK KEY[G6-F:@,!A',6-&A(8@DB7tG$bdGGSUBROUTINE DETERMINES NUMBER OF DAYS IN YEAR TO THE SELECTED DATEn4+'@,"P:'@,*6-@b4 A p6-@cx!@ AP$$6-P:++&@,$,'@,% A`""6-P:+%@,$@0`,&%$77SUBROUTINE DETERMINES ECLIPTIC COORDINATES OF SUNK @A6-6Ae$+@&,&P:+@&,'@,%K A0<<6-Ae$+&@,%P:+&@,'@,%%@6-+A`'Ae$",$  AA` A!A` Ar A6-&A`A` A Ar6-%A`" A, A66-%Ax5@&AYd@ 6-%A`AJ&&6-+A`'@p,$?g$G:,T6-%%Ax5@6-Y!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$%@,,#*# Au#* # A# *# A'!* @'6-%A) 6Ap*!6A`)6-&A A) 6@*!6A)6-%A'!A* Ap'6-&A A'!@* A'6-&A) 6A*!6Ap)6-%A A( *!6@(6-%A'!Ap* A`'6-&A 6-%A`6-'@$22CONVERTS DECIMALS TO HOURS, MINUTES, SECONDS 6-P:,6-P:+&P:,,$@`,666-@`$++&P:,,$@`&P:+&P:,,$@`,, 6-P:,$X::SUBROUTINE CALCULATES RISING AND SETTING TIME OF SUNY6-@b Al 6-6-v6-%?VG A A+!@$6-&@$+6-&@$+!@$6-&@$+6-&@$!!6-+@$$,'+@$%&,!!6-+@$$,'+@$%&,!@$6-&@$!@$6-&@$6-$33SUBROUTINE CALCULATES RISING AND SETTING TIME Ae 6-+6G:,'E:,,$+G:,'E:,,2@(+!@) 6@,2 Ae2!@%  DOESN'T RISE.('2 A4 6@'( IS CIRCUMPOLAR*'4 A//6-+6D:'M:6$%@,,%@,'@6-@$%& 6-%"@$!@$6-&@$!@$6-&@$$I'(ŠҠԠ͠I(ӠȠŠL)(!ԠӠΠή٠ΠL(ŠҠŠҮ(-@A '( @ GGSUBROUTINE CONVERTS LST TO GST, GST TO GMT, AND GMT TO LOCAL TIME*6-'@%4 6-%@$>!@$6-&@$H6-@&P:+A%,'A,%P:+P:+A%,'A,'@,,%P:Ae%$+A%,,%P:@0`$+@%@,,%Cr PR6-+&CAP ,'Be%\))6-@d`e`%+A$`$,%+=%$$,f6-@$&%+@$$,p6-?W $&z 6-@$% 6-& 6-@$%6-?rp$ 4EST6-6@ 4CST6-6@ 4MST6-6@ 4PST6-6@ 4EDT6-6@ 4CDT6-6@ 4MDT6-6@ 4PDT6-6@ 4GMT6-% -% %6-%@$ A$LQQSUBROUTINE CALCULATES RISING AND SETTING TIMES OF PLANETS, AND THEIR PHASESMV"4END' Ar`" """"""j6-+A`'Ae$",$'t'!A`6-&A`' A@~ 6-%&$$6-%+A`'@p,$$G:,%'!A`6-&A`' Ap' 6-%A`' A 6-&**6-+,$+@&$,'+@%$E:,,%%6-+A`'Ae$",$+'@@,6-%@5@&AYd006-%+A`'@p,$?g$G:,%@5@!A`6-&A` 6-%A`6-&AYd886-+@&?g$?g,'+@%?g$E:,,6-G:&,$G:,6-D:'M:6$%@,, 6-+G:&,,$E:,6-E:&,6-D:',F#*# AuG#* # AH# *# AK'!* @'6-%AL) 6Ap*!6A`)6-&AN A_) 6@*!6A)6-%A`'!A* Ap'6-&Ab Ai'!@* A'6-&Aj) 6A*!6Ap)6-%Al Aq( *!6@(6-%Ar'!Ap* A`'6-&At 6-%A`u 6-%6-$E:,v%4MERCURY)4VENUS% Aw,"6-D:$G:&,'+&$E:&,,,%, A x6-$G:&,'+&$E:&,,} 6-D:,6-A%%' 6-%A`' A '!A`6-&A`' A%++6-P:A$+@%E:&,,'@,,,6-D:++$G:,'E:,,$G:&,,'+$G:&,,, A A%"@6-% Ar - A -- - A --$!! HMHM APPMERCURY,0.24085,231.2973,77.1442128,.2056306,.3870986,7.0043579,48.0941733NNVENUS,.61521,355.73352,131.2895792,.0067826,.7233316,3.394435,76.4997524PPMARS,1.88089,126.30783,335.6908166,.0933865,1.5236883,1.8498011,49.4032001TTJUPITER,11.86224,146.966365,14.0095493,.0484658,5.202561,1.3041819,100.2520175SSSATURN,29.45771,165.322242,92.6653974,.0556155,9.554747,2.4893741,113.4888341RRURANUS,84.01247,228.0708551,1727363288,.0463232,19.21814,.7729895,73.8768642XXNEPTUNE, 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 MOON6-@ Ae -6-@c`$%@dTd'!A`6-&A`' A ' 6-%A`' A 6-&?$&AI80c'!A`6-&A`' A %' 6-%A`' A 06-AQ)&?)S$((6-@'9$G:@$&@$&, 6-?X$G:,6-%&& 6-@($G:,*6-?!@$G:@$,46-%%&%> 6-?e$G:@$+&,,H 6-%I++6-P:A$+@&E:&,,'@,R6-&?$G:,\6-G:&,$E:@S,a6-E:&,f6-D:',g#*# A!uh#* # A!i# *# A!k'!* @'6-%Al) 6Ap*!6A`)6-&An A!) 6@*!6A)6-%A'!A* Ap'6-&A A!'!@* A'6-&A) 6A*!6Ap)6-%A A!( *!6@(6-%A'!Ap* A`'6-&A 6-%6-G:&,$G:@S,6-D:'M:6$%@,, -- A --6-?$E:&,6-?U%?$E:,6-%$@6-%$@ 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-'@8 6-&: 6-$G:,&; 6-'+$E:,$E:,&,< 6-$E:,= 6-D:,L 6-&M 6-$G:,&N 6-'+$E:,$E:,&,O 6-$E:,P 6-D:,V  -- A[  --`  -- Ae  --f +!@$6-&@$+6-&@$g +!@$6-&@$+6-&@$j !!6-+@$,'+@%&,o !!6-+@$,'+@%&,p !@$6-&@$q !@$6-&@$r 6-t  - Ay  --~  - A  -- $EECALCULATES RISING AND SETTING TIME OF SELECTED DEEP SKY OBJECTS 6-"4END AY" ""''6-P:,%+A,$+&P:,,'@`''6-P:,%+A,$+&P:,,'@` A - A -- - A --$RM31,SP. GAL.,0.40,41.00T!!NGC253,SP. GAL.,0.45,-25.34VM33,SP. GAL.,1.31,30.24XM76,PLAN NEB,1.39,51.19YNGC752,OP CLUS,1.35,37.25ZM34,OP CLUS,2.39,42.34\M45,OP CLUS,3.44,23.58^HYADES,OP CLUS,4.17,15.31_M38,OP CLUS,5.26,35.48`IC434,DIF NEB,5.39,-2.26bM1,NOVA,5.32,21.59dM42/43,DIF NEB,5.33,-5.22fM37,OP CLUS,5.49,32.33hM35,OP CLUS,6.06,24.20jNGC2237,DIF NEB,6.30,4.54kM50,OP CLUS,7.01,-8.16l!!NGC 2392,PLN NEB,7.26,21.01mM46,OP CLUS,7.40,-14.42nM47,OP CLUS,7.34,-14.21p!!NGC2438,PLN NEB,7.40,-14.36r!!NGC2440,PLN NEB,7.40,-18.05tM44,OP CLUS,8.38,19.52vM81,SP GAL,9.52,69.18xM82,GAL,9.52,69.56z NGC3227,SP GAL,10.21,20.07|""NGC3242,PLN NEB,10.22,-18.23~M97,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.1M8,DIF NEB,18.02,-24.20M9,GL CLUS,17.16,-18.28 NGC6543,PL NEB,17.59,66.38M20,NEB,17.59,-23.02NGC6572,PL NEB,18.10,6.50M17,DIF NEB,18.18,-16.12M25,OP CLUS,18.29,-19.17M22,GL CLUS,18.34,-23.57M11,OP CLUS,18.48,-6.20M57,PL NEB,18.51,32.58 COL399,OP CLUS,19.23,20.05M55,GL CLUS,19.37,-31.03!!NGC6818,PL NEB,19.41,-14.17 !!NGC6822,IR GAL,19.42,-14.53"M27,PL NEB,19.57,22.35$NGC6960,NOVA,20.49,31.00&!!NGC7009,PL NEB,21.01,-11.34(M15,GL CLUS,21.28,11.57*M2,GL CLUS,21.31,-1.03  END,("(HIT WHEN THROUGH&,(}p4 A`(4(DO YOU WANT THE LOCATION OF ANYqA(((OF THE DEEP SKY OBJECTS(Y/N),44N7'A Az& A`("( WHICH OBJECT& #AR": 4END0(THAT OBJECT IS NOT IN THE LIST: A`" "" 0 A`0 P:,  6-%@KK(P:,HA$+&P:,,MP:,DEGA$+O:,&P:O:,,,' A`XPRINTS SOLAR SYSTEM INFOb THE SUNl5 @@ A! A+ A5 Av - A --- A -- (}##( //(   RISESET% ILLUM,, $____________________________________F:B2y,"@$)) SUNHMHM---THE MOON A F:B2y,"@$&& MOONHMHM 6-THE PLANETS #A AF:B2y,"@$ !! HMHM Aqp 4 Ar(4(DO YOU WANT THE LOCATION OF ANY*.((OF THE PLANETS(Y/N)#+4N.$4& Ar ("( WHICH PLANET&> #AH>"4END4(THAT OBJECT IS NOT ON THE LIST> ArR"\ 0 Ar@f6-@ A0p 6- A6-6-z 6- A((//"("(HMDEG' Ar$@PRINT DEEP SKY INFOE6-J #ART @@ A^) (})( //h  r NAMETYPERISESET| APF:B2y,"@$!! HMHMc6-%@"@ I $THERE'S MORE. HIT TO CONTINUEMY6-c A` A` @&(#11PRINTS DATA ON ONE OBJECT OVER SEVERAL DAYS-#2#: A6(#} FOR WHICH OBJECT DO YOU WANT DATA:<#U A (M(7ENTER THE FIRST DATE FOR WHICH YOU WANT DATA (DD,MM,YY)U=#o7!@1) @) @)!@) M(}ԠԮa-@Ae o A F#U A0(M(7ENTER THE LAST DATE FOR WHICH YOU WANTH DATA (DD,MM,YY)UG#o7!@1) @) @)!@) M(}ԠԮa-@Ae o A0H# " A@I#lJ(B}ȠӠԠŠΠŠŠҠҮŠҠ^-@Ab l A P#( @EZ# 6-6-6- Ad# 6-n# 6-6-6- Ax# 6-y#b !@(2}ŠԠŠԠŠҠΠŠԠT-@AX b A #6-@#K @A6-6Ae$+@&,&P:+@&,'@,%K A#<<6-Ae$+&@,%P:+&@,'@,%%@# 4SUN A#4MOON A# A#. (}.(//TO//#(DAY #RISESET# -#! A A! A# - A# --- A# --#F:B2y,"@$# HMHM#6-%@# #' (HIT WHEN THROUGH$'$#. (}.(//TO//#$$(DAY #RISESET% ILLUM# -# A# A #F:B2y,"@$$!! HMHM$6-%@$ $ 6-"$' (HIT WHEN THROUGH$'$T$^$. (}.(//TO//h$'('(DAY #RISESET% ILLUMn$ #Ar$P"4END(.( IS NOT IN THE LISTB-@APF P A|$"$ 0 A0$ - A$ A0$F:B2y,"@$$!!(HMHM$6-%@$ $*(#(HIT WHEN THROUGH'*$ D2:ASTRON.BAS