c FLGc: L(,): "TIME CONVERSION"d2:  )"A COMPUTER PROGRAM FOR ASTRONOMERS"Cd<:  )"BY ERIC BURGESS F.R.A.S"UdF J  :ddP: L(,)d *********** SET INITIAL CONDITIONS **********d * ZN TIME ZONE - IF E OF GREENWICH *e * L$ NAME OF LOCATION *4e * LO LONGITUDE - IF EAST *he *********************************************eZN:L$"EAST FALMOUTH":LO(e "INITIAL CONDITIONS SET FOR ";L$e:: )"TIME ZONE ";ZNe )"LONGITUDE ";LOe"f "DO YOU WANT TO CHANGE CONDITIONS Y/N:";A$@f A$"N" A$"n" Jvf A$"Y" A$"y" "INVALID REPLY":: f::f "LOCATION NAME ";L$f" "TIME ZONE ";ZNf6 "LONGITUDE ";LOfJ:::fTZZNf^ FLG 4ghA$"":A1$"":A2$"":A3$""?gr "PROGRAM COMPUTES LOCAL MEAN TIME (LMT)":ng "WHEN GIVEN LOCAL SIDEREAL TIME (LST)":g "OR LOCAL SIDEREAL TIME WHEN GIVEN LOCAL":g "MEAN TIME "gg "AND YOU CAN REQUEST CALCULATIONS" h "FOR A NUMBER OF TIME INTERVALS":Fh "TIME MAY BE ENTERED AND DISPLAYED IN DECIMAL HOURS"wh "OR IN HRS. MINS. SECS. USING 24 HR CLOCK"h "TIME INTERVALS MUST BE IN DECIMAL HOURS"h: ":::::::::::::::::::::::::::::::::::::::::::::::::::" i "TO CONTINUE PRESS RETURN";A$i:::Ei "DO YOU WANT TO CALCULATE LMT OR LST ";T$\i: T$"LMT" :si& T$"LST" :i0 "INVALID REPLY":: i: "ENTER THE DATE ":iD "YEAR ";Yi: "MONTH ";Mi M M "INVALID REPLY ":  j: "DAY ";D;j D D "INVALID REPLY ": ij M D "INVALID REPLY ": qj:j "DO YOU WANT TO SEE THE LOCATION CONDITIONS ";A$j A$"Y" A$"y" j A$"N" A$"n" 4k "INVALID REPLY ":: *k: "LOCATION CONDITIONS ARE ... "Ik " LOCATION NAME ... ";L$hk " TIME ZONE ....... ";ZNk  " LONGITUDE ....... ";LOkk  "DO YOU WANT TO CHANGE THEM ";A5$k* A5$"Y" A5$"y" FLG: k4FLGk> rlH T$"LST" U$"LMT": \ lRU$"LST"*l\ lYlf "SPECIFY THE NUMBER OF CALCULATIONS ";NOzlp: "AND TIME INTERVALS ";INlzl **************** CALCS FOR DAYS OF EPOCH *****************lEP|0: :DEDG:NDDEEP$m **************** CALC AND PRINT TIME TABLE ***************Im )T$;" TIME(S) REQUESTED ":VmTC}rm "DATE ";Y;" ";M;" ";Dm "LOCATION ";L$;" ZONE ";ZNLGCm "FOR LONGITUDE ";LOm "INTERVAL FOR TIME CALCS ";IN;" HRS"#n "-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-;-:-:-:-:-:-:-:-:-:-:-:-"]n " ";U$;" ";T$n " DEC HRS HR/MI/SE DEC HRS HR/MI/SE"n "-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-"n K NOoH1(T1):M1((T1H1)d).oS1((((T1H1)d)M1)d)8o$ Yo. (T2) T2T2: 8yo8H2(T2):M2((T2H2)d)oBS2((((T2H2)d)M2)d)oLHR2(T2):MI2(T2(T2))<oVSE2(MI2(MI2))<:SE2(SE2)o`MI2(MI2): "pjH1$(H1):M1$(M1):S1$(S1):P$"."9ptHA$H1$P$M1$S1$^p~H2$(H2):M2$(M2):S2$(S2)upHB$H2$P$M2$S2$p K;);HA$;)RR;"/";IM;"/";ES;p ");HB$;.)HR2;"/";MI2;"/";SE2pT1T1INp T1 T1T1:NDND: p Kq Dq ************* PARAMETERS FOR TIME CALCS *************q ************* GMST AT EPOCH 1979 MAR 22 *************qGC3}>q *********** DAILY RATE OF CHANGE OF GMST ************qTC}}q T$"LMT" Z-r  ************* CONVERSION TO LST *********************RrT2TCNDGC(((ZNT1))TC)T1r ************* CONVERSION FOR NON MID TIME ZONE ******r(T2T2(D|}LGC)r2 T2 T2T2: 2r< T2 T2T2: <rF T2 T2T2rP;sZ ************* CONVERSION TO LMT *********************[sdT2T1(TCNDGC)(ZNTC)sn ************* CONVERSION TO NON MID TIME ZONE ******* sxT2T2(D|}LGC)s T2 T2T2: s T2 T2T2: tT2T2(T2TC)tJt "-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-"tt "DO YOU WANT MORE CALCULATIONS ";A$t:::t A$"N" A$"n" ^t A$"Y" A$"y" "INVALID REPLY "::  uH1$"":M1$"":S1$"":HA$"":H2$"":M2$"":S2$"":HB$""uT1O:T2'u:::Ru "DO YOU STILL WANT TO CALCULATE ";T$[u A$u A$"N" T$"LST" T$"LMT": ,u A$"N" T$"LMT" T$"LST": ,u" A$"Y" "INVALID REPLY ":: u,:::v6 "DO YOU WANT TO CHANGE THE DATE ";A$/v@ A$"N" ZNZ: ZvJ A$"Y" "INVALID REPLY ":: 6kvT:ZNZ: :qv^wvhvr:::v| "DO YOU WANT TO INPUT IN DECIMAL HRS (1)"v " OR IN HRS MIN SEC (2)"v:w )" ";: PT w:w PT 3w PT Rw "INVALID ENTRY ":: rnw T$"LMT" T$"LST"w " WHAT IS THE INPUT TIME "w " HR.XXXX (24 HR CLOCK)"w:w" ";: T1:w T1? : "INVALID REPLY ": x:: x b/x " WHAT IS THE INPUT TIME "Rx& " HR,MIN,SEC (24 HR CLOCK)"Zx0:px:" ";: HR,MI,SEzxD::xN HR MI; SEo "INVALID ENTRY ":: :xXT1HRMI