c ----COMET----c COPIED FROM CREATIVE COMPUTING 11/856d (): "DAYLIGHT OR STANDARD TIME (D/S)";: T$:id T$"D" T$"d" T5 :T$" DAYLIGHT": d T$"S" T$"s" T5 :T$" STANDARD": d  d "MONTH ----------(1-12)";: M: M M e( "DAY ------------(1-31)";: D: D D Je2 "YEAR --( IN ENTIERTY )";: Y: YO 2ne< A,E,P,I,N,L,F1,F2,M1,M2,M3,P$eF 17.9435,.967267,27762.4,2.8316,1.014827,2.96725,725412,.144eP 4.6,14,5,"COMET HALLEY",1,.01672,365.256,0,0,721356!,.5385fZM0M:Y0Y:D0D f_Dfd ---FINDS NUMBER FOR DATE ENTERED AND DAY OF WEEK---JfiZfn M fxFmY(D)(M)((Y))(((Y)d)): fFmY(D)(M)(LM33)(Y)((Yd))0gD$"SATERDAY SUNDAY MONDAY TUESDAY WEDNESDAYTHURSDAY FRIDAY "[gW$(D$,(F(F)),): ()agvg PRINTS HEADING|gg P$: "------------------------------------"g W$;" ";M0;"/";(D0);"/";Y0; " ";(D0(D0));"HRS (U.T.)": hF0F:D0D0(D0)#h F001 M20-h 7h `JhX2X:Y2Y:Z2ZTh <|h "DISTANCE FROM SUN: ";R;" AU"hM9M1M2(R)( )h h READ ORBITAL ELEMENTS FOR EARTHhh A,E,P,I,N,F1,F2i"L4e@t(YO(MO) )i, i6 `.i@X1X:Y1Y:Z1Z8iJ <WiTX3X2X1:Y3Y2Y1:Z3Z2Z1wi^R(X3X3Y3Y3Z3Z3)ih <ir "DISTANCE FROM EARTH: ";R;" AU":i|R (M9M3(R)( )): <i "MAGNITUDE: ";R :i*j FIND RIGHT ASCENSION (R) AND DECLINATION (D1)0jGjQ: X3 Q_jUIQ(Y3X3)~jSZ3(X3X3Y3Y3Z3Z3)j (S)7m II: j (S)7m II: jI(S(SS)) kTII:Cj(T)K(T)(U)k n$kD1IILkC((T)j(I))(K(I))Vk nqkRQII:R1R{k k "RIGHT ASCENSION: ";H;" HRS.";M;" MINS."k!k& --- CONVERTS DECLINATION FOR DISPLAY ---k+k0HD1.el:R((H)((H)))<lD <7lNMR:H(H): H HHUlX M< H HH:Mrlb M< H HH:Mll H MM(D1)lv "DECLINATION: ";H;" DEG.";M;" MIN.":lE0(F0|0fd~DO)(0~I|}m (E0) E0E0(E0)m (E0) 4m E0 E0E0Lm R1 R1R1\mT0T5R1E0sm T T0T0m T0 T0T0mH(S#z(ID1)L+)((ID1)>>)m H "HALLEY IS ABOVE THE HORIZON ALL DAY.": :n H "HALLEY IS BELLOW THE HORIZON ALL DAY.": HnCH: nYnHIIjnRT0Hr{n ST0Hrn R RRn  n* n4 "RISES: ";H$;":";M$;" EASTERN ";T$;" TIME"n>RS: R RRnH R RR oR o\ Cof "SETS: ";H$;":";M$;" EASTERN ";T$;" TIME"IopOozUoo --- FINDS ORBITAL MOTION SINCE PERIHELION ---ooA5IA(AA(EE))oA0A5(F0F1F2D0)Po (A0)A5 A0A0(A0)A5o (A0)A5 p A0 A0A0A51pRAA(EE)(EE)MpT((EE)(EE))bpK1I:KInpK1K1pSE(K)((EE)(E(K)))pU(EE)(K)(E)pV(U)p U KI VVIpA1R(STV)q KI A1A1(IA(AA(EE)))3q$ K17m BNq. A1A0 KKK1: iq8 A1A0 KKK1: }qB KI KOqLR0A(EE)(E(K))qVq[q` --- COMPUTES (X,Y,Z) COORDINATES ---qeqjA1LNKrt A1I A1A1Ir~ A1I A1A1I4rQ: A1 Q^rC(A1)(II): II QQhr nqrA2IrC(A1)(A2)r nrZR0(IA2)rYR0(IA2)(NQI)rXR0(IA2)(NQI)rR(XXYYZZ)s s4s --- CONVERTS R. A. FOR DISPLAY ---:sCsR1R[sHR:R(H(H))Xes  <psMR s M< HH: M< Ms(K1:H(H):HHK1: H HHs2s7s< --- ROUNDS TO THE NEAREST INTERGER ---sAtFR9R(R)tP R9 RR*tZR(R)0td6ti^tn --- INVERSE COSINE SUBROUTINE ---dtstx (C)7m II:t (C)7m I:t (C)7m II:tI((CC)C)t I II:u C III uuFu --- CONVERTS HOURS AND MINUTES TO STRING$ ---LuZuRM: <~uMR: M< HH: M< MuH$(H)uM$((M),((M)))u (M$) M$"0"M$uu: <~uMR: M< HH: M< MuH$(H)uM$((M),((M)))u (M$) M$"