( -------- COMET EPHEMERIS -------7PI3.14159NCO$"COMET HALLEY"](PH1986.11l2PL170.011{<AN58.1453FPY76.0081PSM17.9435ZEO.967267dIO162.239n -------------------------------s"" x" ";CO$/ "- - - - - - - - - - - - - - - - - - - -"U " EPHEMERIS FOR DATES"| " BETWEEN 1946 AND 2026" " BY ROGER BROWNE" ------------------------------- INPUT THE DATE ------------------------------- "INPUT YEAR"! Y? Y1946 Y2026 200S "INPUT MONTH"[ Mt M1 M12 230  "INPUT DAY"  D  " ------------------------------- , CALCULATIONS FOR THE COMET 6 ------------------------------- @ XPH& J Y1986 Z1984< T Y1986 Z1988O ^Y1986 S0b h Y1986 S1m r 1780v |DSN B(360PY)(N365.25) KB  1930 B(KPI)180 EB Y1EO QE(Y1(E))B  (Q).000017 500 UQ(1(Y1(E))) EEU  450@ V(((1Y1)(1Y1))(E2))M V2(V)_ V1(V180)PIk LV1PL RSM(1(Y1Y1))(1Y1(V)) &FLAN 0F2IO :F1(FPI)180 DF2(F2PI)180 NI((F1)(F2)) XI(I(II1)) bP((F1)(F2)) lP1(P180)PIAN9 vF90 F270 P1P1180P  P10 P1P1360b P(P1PI)180p R2R(I)  -------------------------------  CALCULATIONS FOR THE EARTH  ------------------------------- X1975  YX Z1972 YX Z1976!YX S01 YX S1< 1780[T(360365.25)(N1.00004)cKTn  1930vTK T1(TPI)180*C0.016724JT(360PI)C(T1.051943)>JJ99.5343H J360 JJ360R J0 JJ360\H((J102.51044)PI)180(fR1(1CC)(1C(H))Np -------------------------------qz COMPUTE ECLIPTIC COORDINATES -------------------------------U1((P1J)PI)180U2((JP1)PI)180 R2R1 990Q1(R1(U1))Q1Q1(R2(R1(U1)))Q1(Q1)(Q2(Q1180)PIP13 1030EQ3(R2(U2))_Q3Q3(R1(R2(U2)))lQ3(Q3)Q2(Q3180)PIJ180 Q2360 Q2Q2360 Q20 Q2Q2360Q4(Q2PI)180$Q5(R2(I)(Q4P)).Q5Q5(R1(U1))8Q5(Q5)(B ------------------------------KL CONVERT TO EQUATORIAL COORDSpV ------------------------------`E1.40893064jL1((Q5)(E1))tL1L1((Q5)(E1)(Q4))~M1(L1(L1L11))Y2(M1180)PIB1((Q4)(E1))B1B1(((Q5)(E1))(Q4))!G(B1)3H1(G180)PICI1(Q290)SJ1(H190)w I1J14 I1J11 H1H1360 I1J12 I1J13 H1H1180 I1J14 H1H1360 I1J12 H1H1180N1H115W((N1(N1))60.5)  W60 N1N11W60 W0)K1(Y2)E(W1((K1(KK1))60.5)[2 W160 G1G11n< W160 W10{FG1(K1)P Y20 G11 W1W1ZD1R1R1R2R2dD1D1(2R1R2(U1))nD2(D1)xR3D2(I)K9R 2040RK9 K9R3102040 R3K9101M04.1:N3.1J DS0 M05:N4.44bMAM05.4343(R3)}MAMAN2.5.4343(R)MA((10MA))10 Y20 G1G1 ------------------------------ PRINT EPHEMERIS FOR DATE ------------------------------6 "--------------------------"L" "DATA FOR "CO$o, "DATE: M/D/Y=";M;"/";D;"/";Y6 "DAYS TO PERIHELION ";(DS)@J "COORDINATES:"T " RA:"; (N1);"HRS";W;"MIN"^ "DEC:"; G1;"DEG";W1;"MIN"hr "DISTANCES:"$| "COMET TO SUN"; R;"AU"C "COMET TO EARTH";R3;"AU"Ib "PREDICTED MAG";MA "--------------------------" "PRESS Y/N FOR ANOTHER DATE"K$: K$"Y" 1740 K$"N"  1720 200 ------------------------------8 SUBROUTINE: DAYS TP PERIHELIONFA(YZ)4TA1(AS)iN365(YXS)A1 (A)A 1830 (M2 D29) M1 NN1& M2 18700M2M1:M231M2D 1890NM2M1XM2(30.6M2)63 bNNM2D365Sl5v ------------------------------W PLACE BETWEEN 0 AND 360 DEGj K0 1950 K360 1980KK360 K0 2010 1950KK360 K360 2010 1980 ------------------------------: ROUND OFF SUBROUTINE-K9K91000=K9(K9.5)L K9K91000RX_`15,8,15,"S0:COMET HALLEY":15:"0:COMET HALLEY",81