:: _________________________________: | PROGRAM BY |0: | R. Thwing Sr. K4EDE |h: | P.O. Box 40 |: | Columbus, NC 28722 |: | (704) 894-3292 |: | |H: | PROGRAM IN PUBLIC DOMAIN | : |_______________________________| ::<<<<<<<<<<<<<<<<<<<<<< PROGRAM BEGINS >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>># ,,:: ,:"THE LOCAL TIME ZONE IN AN AREA DIFFERS FROM UTC OR"g( , :"GREENWICH TIME BY ABOUT 1 HOUR FOR EACH 15 DEGREES OF"2 ,:"LONGITUDE CHANGE FROM THE GREENWICH MERIDIEN"<  ,:"SOME TIME ZONE CHANGES DO NOT FALL EXACTLY ON THE 15 DEGREE":F  ,:"LONGITUDE LINE BUT THE CALCULATED LOCAL TIME IS USUALLY CORRECT"G : , :"SOME TIME ZONES (E.G. NEWFOUNDLAND) HAVE A HALF HOUR TIME"H , :" INCREMENT-- THIS PROGRAM ONLY CALCULATES TO THE HOUR"K : ,:"UTC TIME MAY BE OBTAINED FROM WWV BROADCASTING ON"@L ,:"FREQUENCIES OF 5 - 10 - 15 Mhz"\P ,#: :"[ENTER]"uZZZ$: ZZ$"" Z_ ZZ$ ( ) d : Zd  : ,:"TIME VERSUS LONGITUDE" ,: (,"_"): $  ,:"IS THE LONGITUDE YOU ARE INTERESTED IN (E)ast OR (W)est"C  ,:"OF GREENWICH? ";]EW$: EW$ ""  EW$ "E" EW$ "e" EW$ "W" EW$ "w"  :   ,: EW$ EW$ "E" EW$ "e"  :   ,:"THEN ENTER LONGITUDE AS A NEGATIVE NUMBER"= ,:"ENTER LONGITUDE (MAXIMUM 180)";LT\ LT  LT  j,DT LTyDT (DT) ,:"ENTER UTC TIME (USE HOUR ONLY!)";UT UT  UT  & XYT UTDT YT YTYT   YT  YT YT*54 ,:"AT LONGITUDE ";LT;EW$ZR  ,:"UTC LOCAL"r\  ,: (,"*") ,: UT;:" ";: YT EW$ "E" EW$ "e" X$ "AHEAD OF" : X$ "BEHIND" DT DT DT : DT DT  ,:"OR ";DT;" HOURS ";X$;" GMT"L ,:"BASED ON LOCAL STANDARD TIME"T:pL ,#: :"[ENTER]"ZZ$: ZZ$""  :x  ,:"WHAT NOW?  ,:"DO ANOTHER LOCAL TIME?......................A"&@ ,:"RETURN TO BASIC?............................B";?rZZ$: ZZ$"" ra ZZ$ "A" ZZ$ "a" d ZZ$ "B" ZZ$ "b" ,,: ::