home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / engprog / gmt.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-08-23  |  2.5 KB  |  64 lines
  1. 0   KEY OFF:CLS
  2. 1  '               _________________________________
  3. 2  '               |         PROGRAM BY            |
  4. 3  '               |     R. Thwing Sr. K4EDE       |
  5. 4  '               |         P.O. Box 40           |
  6. 5  '               |     Columbus, NC 28722        |
  7. 6  '               |       (704) 894-3292          |
  8. 7  '               |                               |
  9. 8  '               |   PROGRAM IN PUBLIC DOMAIN    |
  10. 9  '               |_______________________________|
  11. 10  '
  12. 20  '<<<<<<<<<<<<<<<<<<<<<< PROGRAM BEGINS >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  13. 30  COLOR 1,15,4:CLS:LOCATE 2,15:PRINT"THE LOCAL TIME ZONE IN AN AREA DIFFERS FROM UTC OR"
  14. 40  LOCATE 4,13:PRINT"GREENWICH TIME BY ABOUT 1 HOUR FOR EACH 15 DEGREES OF"
  15. 50  LOCATE 6,17:PRINT"LONGITUDE CHANGE FROM THE GREENWICH MERIDIEN"
  16. 60  LOCATE 10,9:PRINT"SOME TIME ZONE CHANGES DO NOT FALL EXACTLY ON THE 15 DEGREE"
  17. 70  LOCATE 12,8:PRINT"LONGITUDE LINE BUT THE CALCULATED LOCAL TIME IS USUALLY CORRECT"
  18. 71  COLOR 5:LOCATE 14,11:PRINT"SOME TIME ZONES (E.G. NEWFOUNDLAND) HAVE A HALF HOUR TIME"
  19. 72  LOCATE 16,11:PRINT"  INCREMENT-- THIS PROGRAM ONLY CALCULATES TO THE HOUR"
  20. 75  COLOR 1:LOCATE 18,15:PRINT"UTC TIME MAY BE OBTAINED FROM WWV BROADCASTING ON"
  21. 76  LOCATE 20,23:PRINT"FREQUENCIES OF 5 - 10 - 15 Mhz"
  22. 80  LOCATE 23,35:COLOR 20:PRINT"[ENTER]"
  23. 90  ZZ$=INKEY$:IF ZZ$="" THEN 90
  24. 95  IF ZZ$ =CHR$(13) THEN 100 ELSE 90
  25. 100  COLOR 13:CLS
  26. 150  LOCATE 6,27:PRINT"TIME VERSUS LONGITUDE"
  27. 151  LOCATE 7,27:PRINT STRING$(21,"_"):COLOR 0
  28. 200  LOCATE 10,8:PRINT"IS THE LONGITUDE YOU ARE INTERESTED IN (E)ast OR (W)est"
  29. 210  LOCATE 12,14:PRINT"OF GREENWICH? ";
  30. 211  EW$=INKEY$:IF EW$= "" THEN 211
  31. 212  IF EW$ ="E" OR EW$= "e" OR EW$= "W" OR EW$= "w" THEN 213 ELSE 211
  32. 213  LOCATE 12,30:PRINT EW$
  33. 214  IF EW$= "E" OR EW$= "e" THEN 220 ELSE 230
  34. 220  LOCATE 14,14:PRINT"THEN ENTER LONGITUDE AS A NEGATIVE NUMBER"
  35. 230  LOCATE 16,14:INPUT"ENTER LONGITUDE (MAXIMUM  180)";LT
  36. 240  IF LT <-180 OR LT >180 THEN GOTO 230
  37. 300  DT= LT/15
  38. 400  DT= FIX(DT)
  39. 500  LOCATE 18,27:INPUT"ENTER UTC TIME (USE HOUR ONLY!)";UT
  40. 501  IF UT >24 OR UT <0 THEN 500
  41. 550  COLOR 1
  42. 600  YT= UT-DT
  43. 700  IF YT=<0 THEN YT=YT+24
  44. 800  IF YT >24 THEN YT= YT-24
  45. 810  CLS
  46. 820  LOCATE 8,27:PRINT"AT LONGITUDE ";LT;EW$
  47. 850  LOCATE 10,27:PRINT"UTC             LOCAL"
  48. 860  LOCATE 12,27:PRINT STRING$(25,"*")
  49. 900  LOCATE 14,27:PRINT UT;:PRINT"            ";:PRINT YT
  50. 905  IF EW$= "E" OR EW$= "e" THEN X$= "AHEAD OF" ELSE X$= "BEHIND"
  51. 906  IF DT<0 THEN DT =DT*-1 ELSE DT= DT
  52. 910  LOCATE 16,27:PRINT"OR ";DT;" HOURS ";X$;" GMT"
  53. 915  LOCATE 17,25:PRINT"BASED ON LOCAL STANDARD TIME"
  54. 1000  PRINT:PRINT
  55. 1100  LOCATE 23,35:COLOR 20:PRINT"[ENTER]"
  56. 1200  ZZ$=INKEY$:IF ZZ$="" THEN 1200
  57. 1300  COLOR 0:CLS
  58. 1400  LOCATE 11,20:PRINT"WHAT NOW?
  59. 1500  LOCATE 13,20:PRINT"DO ANOTHER LOCAL TIME?......................A"
  60. 1600  LOCATE 14,20:PRINT"RETURN TO BASIC?............................B";
  61. 1650  ZZ$=INKEY$:IF ZZ$="" THEN 1650
  62. 1700  IF ZZ$= "A" OR ZZ$= "a" THEN RUN 100
  63. 1800  IF ZZ$= "B" OR ZZ$= "b" THEN COLOR 15,0,0:KEY ON:CLS:END
  64.