d ********************* SIDEREAL TIME ****************************d AZPd (): "SIDEREAL ----------------------------------":d "ENTER YOUR LONGITUDE, (+) IF EAST AND (-) IF WEST OF GREENWICH"d "(USE A DECIMAL POINT TO SEPARATE DEGREES AND MINUTES)";LG e(ZZ(LG):XXLGZZ:XXXX I,{d:LGZZXX5e2 "ENTER YEAR (RANGE 1950 TO 2000)";KUe< "ENTER MONTH (1 TO 12)";MreF "ENTER DAY OF MONTH";IeP "ENTER UNIVERSAL OR GREENWICH MEAN TIME IN HOURS AND MINUTES"eZ "(USE A DECIMAL POINT TO SEPARATE HOURS AND MINUTES)";UTHMfd ()"fn "UNIVERSAL TIME =";UTHMNfxUD(ڕ VUUU(UTHM(UTHM))(UTHM))fUDoK((K((M) )))(M)IRUD(dKM9)gJ0oK((K((M) )))(M)IR(dKM9)2gT0(J0d)QgT(JDd)gGMSTetPVET0XqT0x>YUDg GMST gGMSTGMSTg GMST gLNODE- PSzx=\qTxThLNODELNODE.ehE% u(LNODE),hGASTGMSTE@hLASTGASTLG\h LAST LASTLASTsh "JULIAN DATE";J0hHOUR(LAST):DELASTHOUR:MM(DEd):MMMMd:MMMM<:MM(MM)h" "***** LOCAL APPARENT SIDEREAL TIME =";HOUR;":";MMFi,HUR(GAST):DEGASTHUR:MM(DEd):MMMMd:MMMM<:MM(MM){i6 "GREENWICH APPARENT SIDEREAL TIME =";HUR;":"MMi@:"----------------------------------------------------"iJ "NEW TIME";UTHM: niTT SIDEREAL TIME =";HUR;":"MMi@:"----------------------------------------------------"iJ