home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / engprog / utc.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1988-01-08  |  2.3 KB  |  54 lines
  1. 0   'THIS PROGRAM (CALLED "UTC") IS WRITTEN IN COLOR GW BASIC FOR IBM COMPATIBLES
  2. 1  '               --------------------------
  3. 2  '               |    R. THWING SR K4EDE   |
  4. 3  '               |       P.O. BOX 40       |
  5. 4  '               |   COLUMBUS, NC 28722    |
  6. 5  '               |    (704) 894-3202       |
  7. 6  '               --------------------------
  8. 7  '                   A SHAREWARE PROGRAM
  9. 8  '   DELETE ALL COLOR STATEMENTS FOR MONOCHROME OPERATION
  10. 9  '
  11. 100  KEY OFF:' REMOVES FUNCTION KEYS FROM SCREEN
  12. 200  CLS:RESTORE
  13. 300  COLOR 13:LOCATE 10,30:PRINT"A PROGRAM TO CONVERT"
  14. 400  LOCATE 12,25:PRINT"UTC (GREENWICH) TO LOCAL TIME"
  15. 500  LOCATE 14,18:PRINT"WWV BROADCASTS UTC TIME ON 5 - 10 - 15 - 20 Mhz"
  16. 600  LOCATE 17,28:PRINT"USE [HOLD] TO STOP SCROLL"
  17. 700  COLOR 20:LOCATE 23,37:PRINT"[ENTER]";:LINE INPUT ZZ$:COLOR 15:CLS
  18. 800  LOCATE 12,15:PRINT"ENTER LOCAL TIME ZONE"
  19. 805   LOCATE 13,20:PRINT"MARITIME PROV./PUERTO RICO...................AST OR ADT"
  20. 810   LOCATE 14,20:PRINT"EASTERN......................................EST OR EDT"
  21. 820   LOCATE 15,20:PRINT"CENTRAL......................................CST OR CDT"
  22. 830   LOCATE 16,20:PRINT"MOUNTAIN.....................................MST OR MDT"
  23. 840   LOCATE 17,20:PRINT"PACIFIC......................................PST OR PDT"
  24. 850   LOCATE 18,20:PRINT"HAWAII/ALASKA................................WST OR WDT"
  25. 860   LOCATE 20,15:INPUT"SELECT ZONE AS STANDARD OR DAYLIGHT E.G. EST OR EDT ";TZ$
  26. 880   IF TZ$= "AST" OR TZ$= "ast" THEN T=4:GOTO 1600
  27. 890   IF TZ$= "ADT" OR TZ$= "adt" THEN T=3:GOTO 1600
  28. 900   IF TZ$= "est" OR TZ$= "EST" THEN T= 5:GOTO 1600
  29. 1000  IF TZ$= "edt" OR TZ$= "EDT" THEN T= 4:GOTO 1600
  30. 1100  IF TZ$= "cst" OR TZ$= "CST" THEN T= 6:GOTO 1600
  31. 1200  IF TZ$= "cdt" OR TZ$= "CDT" THEN T= 5:GOTO 1600
  32. 1210  IF TZ$= "MST" OR TZ$= "mst" THEN T=7:GOTO 1600
  33. 1220  IF TZ$= "MDT" OR TZ$= "mdt" THEN T=6:GOTO 1600
  34. 1300  IF TZ$= "pst" OR TZ$= "PST" THEN T= 8:GOTO 1600
  35. 1400  IF TZ$= "pdt" OR TZ$= "PDT" THEN T= 7:GOTO 1600
  36. 1410  IF TZ$= "WST" OR TZ$= "wst" THEN T=10:GOTO 1600
  37. 1420  IF TZ$= "WDT" OR TZ$= "wdt" THEN T=9:GOTO 1600
  38. 1500  CLS:GOTO 800
  39. 1600  CLS
  40. 1700  LOCATE 1,25:COLOR 2:PRINT "UTC                  ";:PRINT TZ$
  41. 1800  LOCATE ,25:PRINT STRING$(25,"*"):PRINT
  42. 1900  VIEW PRINT 4 TO 24:' CREATES WINDOW TO SCROLL DATA IN
  43. 2000  FOR X= 0 TO 23: READ UTC
  44. 2100  DATA 24,01,02,03,04,05,06,07,08,09,10,11,12
  45. 2200  DATA 13,14,15,16,17,18,19,20,21,22,23
  46. 2300  IF UTC-T =<0 THEN UTC=UTC+24
  47. 2400  LOCATE ,25:COLOR 14:PRINT X;:PRINT"................";UTC-T
  48. 2500  FOR Y= 1 TO 1000:NEXT
  49. 2600  NEXT
  50. 2700  LOCATE 23,55:COLOR 20:PRINT"[ENTER]";:COLOR 15
  51. 2800  ZZ$=INKEY$:IF ZZ$= "" THEN 2800
  52. 2900  VIEW PRINT:' RESTORES FULL SCREEN
  53. 3000  COLOR 15:CLS:RUN"MAINMENU"
  54.