home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / basic3 / pro5 / tmzworld.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1990-04-12  |  2.8 KB  |  71 lines
  1. 100  REM CONVERTING LOCAL TIME TO TIME ZONES WORLDWIDE
  2. 105  WIDTH 80
  3. 110  GOTO 160:REM IBM BASIC
  4. 120  PRINT STRING$(80,45):RETURN
  5. 130  CLS:FOR X=1 TO 10:PRINT:NEXT X:RETURN
  6. 140  PRINT:INPUT "Press >RETURN< (Q to quit) ",R$:IF R$="Q" THEN 150 ELSE RETURN
  7. 150  GOSUB 130:GOSUB 120:PRINT TAB(38)"End.":GOSUB 120:RUN"FILES."
  8. 160  TT$="The time in the country you asked for is ":GOSUB 130:GOSUB 120
  9. 170  GMT$="Greenwich Mean Time is ":ST$=" Standard Time"
  10. 180  PRINT TAB(5)"This program converts local time to time anywhere in the world"
  11. 190  GOSUB 120:GOSUB 140:GOSUB 130
  12. 200  PRINT"Do you want to convert from local":PRINT
  13. 210  PRINT 1,"Standard Time?":PRINT 2,"Daylight Time?":GOSUB 120
  14. 220  INPUT "Which?  ",WHICH:GOSUB 130:PRINT"Do you want to convert from":PRINT
  15. 230  PRINT 1,"Eastern Time":PRINT 2,"Central Time":PRINT 3,"Mountain Time"
  16. 240  PRINT 4,"Pacific Time":PRINT 5,"Yukon Time":PRINT 6,"Alaska/Hawaii Time"
  17. 250  PRINT 7,"Bering Time":GOSUB 120:INPUT "Which?  ",TIME:GOSUB 130:GOTO 370
  18. 260  GOSUB 120:IF CTRY=9 THEN 280 ELSE 270
  19. 270  PRINT T$;TIME1;":";MINUTE$;" ";M$;ST$:GOTO 290
  20. 280  MIN=MINUTE+30:IF MIN>59 THEN MIN=MIN-60
  21. 285  MIN$=STR$(MIN):PRINT T$;TIME1;":";MIN$;" ";M$;ST$
  22. 290  GOSUB 120:GOSUB 310
  23. 300  PRINT GMT$;TIME2;":";MINUTE$;" ";M$:GOSUB 120:GOSUB 140:GOTO 560
  24. 310  TIME2=HOUR+(TIME+4):IF TIME2>12 THEN M$="PM" ELSE M$="AM"
  25. 320  IF TIME2>24 THEN M$="AM"
  26. 330  IF TIME2>24 THEN TIME2=TIME2-24
  27. 340  IF TIME2>12 THEN TIME2=TIME2-12
  28. 350  IF TIME2<1 THEN TIME2=TIME2+12
  29. 360  RETURN
  30. 370  PRINT"Countries (alphabetically):":GOSUB 120
  31. 380  PRINT 1,"Argentina":PRINT 2,"Brazil":PRINT 3,"China":PRINT 4,"England":PRINT 5,"Egypt"
  32. 390  PRINT 6,"France":PRINT 7,"Germany":PRINT 8,"Greece":PRINT 9,"India":PRINT 10,"Ireland"
  33. 400  PRINT 11,"Israel":PRINT 12,"Italy":PRINT 13,"Japan":PRINT 14,"Kenya"
  34. 410  PRINT 15,"Philippines":PRINT 16,"Portugal":PRINT 17,"Russia (Moscow area)"
  35. 420  PRINT 18,"South Africa":PRINT 19,"Spain":PRINT 20,"Turkey":GOSUB 120
  36. 430  INPUT "Which?  ",CTRY:GOSUB 130:GOSUB 580:T$=TT$:GOTO 260
  37. 440  TIME1=TIME2+GMT-TT:TIME2=TIME1-GMT+TT
  38. 450  IF TIME1>12 THEN M$="PM"
  39. 460  IF TIME1<12 THEN M$="AM"
  40. 470  IF TIME1=12 THEN 480 ELSE 490
  41. 480  IF MINUTE=0 THEN M$="noon" ELSE M$="PM"
  42. 490  IF TIME1=24 THEN 500 ELSE 510
  43. 500  IF MINUTE=0 THEN M$="midnight" ELSE M$="AM"
  44. 510  IF TIME1>24 THEN M$="AM" 
  45. 520  IF TIME1>24 THEN TIME1=TIME1-24
  46. 530  IF TIME1>12 THEN TIME1=TIME1-12
  47. 540  IF TIME1<1 THEN TIME1=TIME1+12
  48. 550  RETURN
  49. 560  GOSUB 130:INPUT "Another time conversion? (Y/N)  ",TC$
  50. 570  IF TC$<>"N" THEN GOSUB 130:GOTO 200 ELSE 150
  51. 580  TT=TIME+4:IF WHICH=2 THEN TT=TT+1
  52. 590  INPUT "Local time? (hour only, no minutes)       ",HOUR
  53. 600  INPUT "Local time? (minutes)                     ",MINUTE
  54. 602  IF MINUTE=0 THEN MINUTE$="00":GOTO 610
  55. 604  MINUTE$=STR$(MINUTE)
  56. 606  IF LEFT$(MINUTE$,1)=" " AND LEN(MINUTE$)=2 THEN MINUTE$="0"+MID$(MINUTE$,2,1)
  57. 610  INPUT "AM (A) or PM (P)?                         ",AM$
  58. 620  IF AM$="P" THEN HOUR=HOUR+12
  59. 630  TIME2=HOUR+TT
  60. 640  IF CTRY=4 OR CTRY=10 OR CTRY=16 THEN GMT=TT
  61. 650  IF CTRY=6 OR CTRY=7 OR CTRY=12 OR CTRY=19 OR CTRY=8 THEN GMT=TT+1
  62. 660  IF CTRY=20 OR CTRY=11 OR CTRY=18 OR CTRY=5 THEN GMT=TT+2
  63. 670  IF CTRY=14 OR CTRY=17 THEN GMT=TT+3
  64. 680  IF CTRY=1 OR CTRY=2 THEN GMT=TT-3
  65. 690  IF CTRY=9 THEN GMT=TT+5 
  66. 700  IF MIN>59 THEN MIN=MIN-60 AND GMT=GMT+1
  67. 710  IF CTRY=15 THEN GMT=TT+10
  68. 720  IF CTRY=3 THEN GMT=TT+8
  69. 730  IF CTRY=13 THEN GMT=TT+9
  70. 740  GOTO 440
  71.