c -------------------- RA AND DEC FOR ALL PLANETSd ASN(X)(X(XX)>d ACO(X)(X(XX))U–hIWd( RAD(X).{(X)pd2 DEG(X).e(X)d<: L(,): "---------------------------"dF )"I PLANETS I"dP )"---------------------------"eZ: )"WRITTEN BY ERIC BURGESS F.R.A.S."Red:: )"THIS PROGRAM GIVES RIGHT ASCENSION"en )"AND DECLINATION, HELIOCENTRIC LONGITUDES"ex )"AND THE DISTANCES FROM THE EARTH OF ALL"e )"PLANETS FOR THE DATE YOU ENTER."f::: " TO CONTINUE ... ";A$4f: L(,): "ENTER THE DATE":=fFLRf6 " THE YEAR ";YfJ Y "ONLY YEARS AFTER 1800 PLEASE": 6fr: " THE MONTH ";Mf| M M "1 - 12 ONLY PLEASE": rf: " THE DAY ";Dg D D "1 - 31 ONLY PLEASE": Cg M D "FEBUARY REMEMBER": ug -------------------- CALC GREG DAYS TO DATEg -------------------- EPOCH 1960 1, 1gDGmYD((M))g M g -------------------- CALC FOR JAN AND FEB.hDGDG ((Y))((@)((Y)d))8h ih -------------------- CALC FOR MAR THRU DEChDGDG(ML33)(Y)((@)((Yd)))hNIDG0.h -------------------- PLANETARY DATA FOR EPOCH 1960h F ii& PD(, ).i0 YY : XX >i: PD(YY,XX)JiD XX,YYmiN -------------------- MERCURYiX .071422,3.8484,.388301,1.34041,.3871,.07974,2.73514,.122173,.836013ib -------------------- VENUS#jl .027962,3.02812,.013195,2.28638,.7233,.00506,3.85017,.059341,1.33168Djv -------------------- EARTH}j .017202,1.74022,.032044,1.78547,1,.017,3.33929,0,0j -------------------- MARSj .009146,4.51234,.175301,5.85209,1.5237,.141704,1.04656,.03142,.858702 k -------------------- JUPITERVk .00145,4.53364,.090478,.23911,5.2028,.249374,1.76188,.01972,1.74533xk -------------------- SATURNk .000584,4.89884,.105558,1.61094,9.5385,.534156,3.1257,.043633,1.977458k -------------------- URANUS3l .000205,2.46615,.088593,2.96706,19.182,.901554,4.49084,.01396,1.28805Vl -------------------- NEPTUNEl .000104,3.78556,.016965,.773181,30.06,.27054,2.33498,.031416,2.29162l -------------------- PLUTO m .000069,3.16948,.471239,3.91303,39.44,9.86,5.23114,.300197,1.91812(m I9 : P$(I9): I9km  MERCURY,VENUS,EARTH,MARS,JUPITER,SATURN,URANUS,NEPTUNE,PLUTOsmFm  -------------------- CALC DATA FOR PANETSm*:m4 "PLANETARY DATA FOR.. ";Y;" ";M;" ";Dn> "WHICH IS ";NI;" DAYS FROM EPOCH 1960"LnH "-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-"nR " HELIO DIST R.A. DEC "n\ " LONG TO PLANET HRS DEG "$of "-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-".op:IBoz J : `[oA(I)A:D(I)D:L(I)LgoII:uo I o -------------------- SKIP EARTHo I o oQ(I)Q:R(I)R:V(I)Vo Io I :A(I) DEG(A(I))p I $p P$(I);1p  );(((A(I)),));Pp  );(((Q(I)),));op 1);(((R(I)),));p =);(((V(I)),))pp$p. "DO YOU WANT ANOTHER DATE ";A$p8 A$"Y" pB A$"N" "INVALID RESPONSE ": .qL qV2q` ------------------- CALC A, D, Leqj ------------------- CALC HELIOCENTRIC LONG A~qtANIPD(J,)PD(J,)q~ AI A((AI)(AI))Iq A AAI: qCPD(J,)(APD(J,))qAAC r AI AAI&r A AAI: cr ------------------- CALC DIST OF PLANET FROM THE SUN DrDPD(J,)PD(J,)(APD(J,))r ------------------- CALC DIST OF PLANET FROM ECLIPTIC LrLPD(J,)(APD(J,))rs ------------------- CALC RA AND DEC R, VFs ------------------- AND DIST FROM EARTH DVsZA()A(I)zs  (Z)I Z ZZIs (Z)I Z ZZIs ------------------- DIST FROM EARTHs(Q(D(I)D()D(I)D()(Z))#t2 ------------------- CALC ANG DIST FROM SUN9t<P(D(I)D()Q)dtFX ACO((((P(PD(I)))(D()Q))))tP ------------------- CALC RAtZ Z R DEG(A()IX)td Z R DEG(A()IX)tn R RR: nux R RR: xu R RR: Au ------------------- CALC DECru Z V(A()IX); DEG(L(I))u Z V(A()IX); DEG(L(I))uX DEG(X)u