:THIS PROGRAM (CALLED "UTC") IS WRITTEN IN COLOR GW BASIC FOR IBM COMPATIBLES: --------------------------5: | R. THWING SR K4EDE |g: | P.O. BOX 40 |: | COLUMBUS, NC 28722 |: | (704) 894-3202 |: --------------------------*: A SHAREWARE PROGRAMi: DELETE ALL COLOR STATEMENTS FOR MONOCHROME OPERATIONq :d :: REMOVES FUNCTION KEYS FROM SCREEN:,  :  ,:"A PROGRAM TO CONVERT"  ,:"UTC (GREENWICH) TO LOCAL TIME"< ,:"WWV BROADCASTS UTC TIME ON 5 - 10 - 15 - 20 Mhz"eX ,:"USE [HOLD] TO STOP SCROLL" : ,%:"[ENTER]";: ZZ$: :   ,:"ENTER LOCAL TIME ZONE"%  ,:"MARITIME PROV./PUERTO RICO...................AST OR ADT"F* ,:"EASTERN......................................EST OR EDT"4 ,:"CENTRAL......................................CST OR CDT"> ,:"MOUNTAIN.....................................MST OR MDT"H ,:"PACIFIC......................................PST OR PDT"fR ,:"HAWAII/ALASKA................................WST OR WDT"\ ,:"SELECT ZONE AS STANDARD OR DAYLIGHT E.G. EST OR EDT ";TZ$p TZ$ "AST" TZ$ "ast" T: @z TZ$ "ADT" TZ$ "adt" T: @1 TZ$ "est" TZ$ "EST" T : @\ TZ$ "edt" TZ$ "EDT" T : @L TZ$ "cst" TZ$ "CST" T : @ TZ$ "cdt" TZ$ "CDT" T : @ TZ$ "MST" TZ$ "mst" T: @ TZ$ "MDT" TZ$ "mdt" T: @1 TZ$ "pst" TZ$ "PST" T : @\x TZ$ "pdt" TZ$ "PDT" T : @ TZ$ "WST" TZ$ "wst" T : @ TZ$ "WDT" TZ$ "wdt" T: @:  @ ,: : "UTC ";: TZ$  ,: (,"*"):@l  :: CREATES WINDOW TO SCROLL DATA INW X  : UTC4 24,01,02,03,04,05,06,07,08,09,10,11,12 13,14,15,16,17,18,19,20,21,22,23 UTCT  UTCUTC` ,: : X;:"................";UTCT  Y  :( 1 ,7: :"[ENTER]";: K ZZ$: ZZ$ ""  mT :: RESTORES FULL SCREEN ::"MAINMENU"