c c::c RAD(X)X1ec(::.d2  )"--------------------------------------------------"md<  )"I EPOCH I"dF  )"--------------------------------------------------"dP:dZ )"AN ASTRONOMY PROGRAM"dden )"BY ERIC BURGESS F.R.A.S."ex:,e )"ALL RIGHT S RESERVED BY"Oe )"S & T SOFTWARE SERVICE"Ueie J : Jxe: L(,)e )"THIS PROGRAM COMPUTES"e )"RIGHT ASCENTION AND DECLINATION"e )"FOR AN EPOCH WHEN GIVEN RA AND DEC"!f )"FOR ANOTHER EPOCH, REDUCING FOR"8f )"PRECESSION"Lf J  : J[f: L(,)~f "WHAT IS THE FIRST EPOCH";Y1ff" "WHAT IS THE SECOND EPOCH";Y2f,T2((Y2Y1)l)df6X8D(>swT2)f@Y_ (C zT2)fJZYgT::(g^ CALC DAYS BETWEEN EPOCHS4ghTY2Y1Pgr "PICK MODE OF INPUT:"Xg|:~g " R.A. IN DECIMAL HOURS (1)"g " OR IN HR,MIN,SEC (2)";RA$gRA(RA$)g RA RA "INVALID RESPONSE":: g:h " DEC. IN DECIMAL DEG. (3)"@h " OR IN HR,MIN,SEC (4)";DE$OhDE(DE$)h DE DE "INVALID RESPONSE":: h: L(,)h RA h "INPUT R.A. AT EPOCH ";Y1;" IN DECIMAL ";: " .. ";R1: 'i "INPUT R.A. AT EPOCH ";Y1;" IN HR,MIN,SEC ";: " .. ";RI,MI,SI8i DE |i: "INPUT DEC. AT EPOCH ";Y1;" IN DECIMAL ";: " .. ";D1: &i "INPUT DEC. AT EPOCH ";Y1;" IN DEG,MIN,SEC ";: " .. ";DC,MC,SCi& RA R1RIMIDD(((D2),))lH " DECLINATION IS ....... ";DD;" DEG"lR D2 D4(D2): fl\D4(D2)lf D2 ME<(D2(D2)): zmpME<(D2(D2)): "mzME