PCOPPAPSEIDYTANVFFPRTRUUQQQQQLEMYBHIJNKWGDDRKMMINKEYAMDATPRINTPRNTPR@ AAp@XS@v@5?rgAb# @ !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJK##@@K: ((-------- COMET EPHEMERIS ---------;@,-@. COMET HALLEY(-A2-Ap<-@XSF-@vP-@5Z-?rgd-Ab#i +n''---------------------------------x } .. &- - - - - - - - - - - - - - - - - - - %%  EPHEMERIS FOR DATES&&  BETWEEN 1946 AND 2026&#  by Roger Browne& ''---------------------------------Input the Date&&--------------------------------6-  INPUT YEAR# AF)!A &# A  INPUT MONTH # @)!@# A0  INPUT DAY + }-@@+  "&&--------------------------------, Calculations for the Comet6&&--------------------------------@ -JA-AT A-A^A-h A-@r A| --+A`',$+'Ae%, - A0-+$,'A - --&+$G:,,&O:,= A-'+@&+$E:,,, -& AP@@-+M:+@%,'+@&,,$+G:'@,'E:'@,,,-@$D:,-+$A,' -%**-$+@&+$,,'+@%$E:,,& -&0 -:-+$,'AD-+$,'AN-+G:,$G:,,X-D:'M:6$%@,,b-D:+G:,'E:,,$E:,,l-+$A,'%v'@*Ap'6-%A -%A`-+$,'A-$E:,&&-------------------------------- Calculations for the Earth&&---------------------------------Au -Ar  -Av -  -@ A%%-+A`'Ae%,$+'@@, -  A0 - -+$,'A*-?g 4$$-%+A`',$$G:&?C,>-%@SCH!A`-&A`R -%A`\-++&AQ@,$,'Af&&-+@&$,'+@%$E:,,p''---------------------------------z""Compute Ecliptic Coordinates''----------------------------------++&,$,'A-++&,$,'A   A -+$G:,,-'+&+$E:,,, -D:,-+$A,'% A0-+$G:,,-'+&+$E:,,, -D:,-+$A,'%%A!A`-&A` -%A`-+$,'A$-+$+G:,'E:,,$G:&,,.-'+$G:,,8 -D:,B&&--------------------------------L""Convert To Equatorial CoordsV&&--------------------------------`-?@0dj-+G:,$E:,,t-%+E:,$G:,$G:,,~-D:'M:6$%@,,-+$A,'-++G:,'E:,,$E:,,##-&+++G:,'E:,,$G:,,'E:,, -D:,-+$A,'-P:'@,-P:'@,+&"@)&"@+6-%A`+&"@)&"@+6-%A &"6@ -%A` &"6@ -&A-'@##-P:+&P:,,$@`%?P, "@`-%@"@`- -O:,(##-P:+&P:,,$@`%?P,2"@`-%@<"@`-F -P:,P  * @ -6Z-$%$d-&+@$$$E:,,n -M:,x-'E:, - A @ --'@ A @-$@-@-@' 6-@'6-@D-%@$?CC$K:, -%$@P$?CC$K:,-+P:@$,,'@ -6%%-------------------------------Print Ephemeris For Date%%-------------------------------// '}--------------------------------------:"@:3&--------------------------------------"   DATA FOR  ',"@)3 DATA FOR ,3,""  DATE: M/D/Y=//1."@.3 DATE: M/D/Y=//6$$ DAYS TO PERIHELION.....P:,;3"@03DAYS TO PERIHELION.....P:,33@ J COORDINATES: epoch 1950O+"@+3COORDINATES: epoch 1950T44 RA :...................P:,HRS MINY@"@@3RA :...................P:,HRS MIN^00 DEC:...................DEG MINc?"@<3DEC:...................DEG MIN?3h r  DISTANCES:w"@3 DISTANCES:|)) COMET TO SUN........... AU5"@53COMET TO SUN........... AU** COMET TO EARTH......... AU9"@63COMET TO EARTH......... AU93 !! PREDICTED MAG..........-"@-3PREDICTED MAG..........-- %-------------------------------------9"@93%-------------------------------------''  PRESS 0 FOR ANOTHER DATE$$  PRESS FOR PRINT OUT)@"@:0, } A@$"@:P,6-@$ A`  A  A%%-------------------------------$$Subroutine: DAYS TO PERIHELION-+&,'@-P:%,-Ae$+&%,% P:, A03%+"@* @),)"@36-&@&!@ Ap0-&@:-@1$D AN-%@X-P:@0`$,&@cb-%%&Ae$l$v%%-------------------------------##: PLACE BETWEEN 0 AND 360 DEG  AP!A` A-%A` A  AP-&A`A` A  A$%%-------------------------------: ROUND OFF SUBROUTINE-$A-P:%?P, -'A$D:HALLEYCOMET HALLEY