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!,.5385fZMOM:YOY:DOD 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$;" ";MO;"/";(DO);"/";YO; " ";(DO(DO));"HRS (U.T.)": hFOF:DODO(DO)#h FO01 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.":lEO(FO|0fd~DO)(0~I|}m (EO) EOEO(EO)m (EO) 5m EO EOEOMm R1 R1R1]mT0T5R1EOtm 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.": InCH: nZnHIIknRT0H|n ST0Hrn R RRn  n* n4 "RISES: ";H$;":";M$;" EASTERN ";T$;" TIME"n>RS: R RRoH R RR oR o\ Dof "SETS: ";H$;":";M$;" EASTERN ";T$;" TIME"JopPozVoo --- FINDS ORBITAL MOTION SINCE PERIHELION ---ooA5IA(AA(EE))oAOA5(FOF1F2DO)Po (AO)A5 AOAO(AO)A5p (AO)A5 p AO AOAOA53pRAA(EE)(EE)OpT((EE)(EE))dpK1I:KIppK1K1pSE(K)((EE)(E(K)))pU(EE)(K)(E)pV(U)p U KI VVIpA1R(STV) q KI A1A1(IA(AA(EE)))5q$ K17m BPq. A1AO KKK1: kq8 A1AO KKK1: qB KI KOqLROA(EE)(E(K))qVq[q` --- COMPUTES (X,Y,Z) COORDINATES ---qeqjA1LNKrt A1I A1A1I r~ A1I A1A1I6rQ: A1 Q`rC(A1)(II): II QQjr nsrA2IrC(A1)(A2)r nrZRO(IA2)rYRO(IA2)(NQI)rXRO(IA2)(NQI)sR(XXYYZZ)s s6s --- CONVERTS R. A. FOR DISPLAY ---