home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / engprog / jetlag.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1988-01-09  |  2.9 KB  |  102 lines
  1. 0   COLOR 14,6:CLS:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  2. 1  PRINT"                                 ALASKA"
  3. 2  PRINT"                                  . * ."
  4. 3  PRINT"                               .         . "
  5. 4  PRINT"                            .               ."
  6. 5  PRINT"                        .                       ."
  7. 6  PRINT"                   .                                  ."
  8. 7  PRINT"             TOKYO-----------14 HOURS-----------------NEW YORK"
  9. 8  PRINT"              "CHR$(17);"----------12 TIME ZONES-------------------";CHR$(16)
  10. 9  PRINT
  11. 10  PRINT"            ********************* J E T L A G **************"
  12. 20  GOSUB 700
  13. 30  REM THIS PROGRAM IS OFFERED UNDER THE SHAREWARE CONCEPT
  14. 40  REM SEE README.TXT FILE ON THIS DISK FOR DETAILS
  15. 50  REM OPERATING PROGRAM STARTS HERE
  16. 100  COLOR 15,1:CLS:' PROGRAM IS CALLED JETLAG.BAS
  17. 110  GOSUB 730
  18. 120  FOR I= 1 TO 1000:NEXT I
  19. 130  REM COPYRIGHT OCTOBER 1985
  20. 140  LOCATE 10,9:PRINT"THIS PROGRAM CALCULATES THE EFFECT OF JET LAG"
  21. 150  LOCATE 12,16:PRINT"AND THE SUGGESTED RECOVERY TIME"
  22. 160  LOCATE 14,8:PRINT"BEFORE SERIOUS MENTAL AND/OR PHYSICAL ACTIVITY"
  23. 170  LOCATE 16,1:PRINT"ORIGINAL FORMULA BY BULER AND DATA IN TRAVEL AND LEISURE MAG.
  24. 180  LOCATE 18,5:PRINT"ADAPTED FOR GW-BASIC BY R. THWING Sr"
  25. 190  PRINT
  26. 200  GOSUB 700
  27. 210  REM ADAPTED FOR GW-BASIC AND IBM COMPATIBLES BY:
  28. 220  REM       RICHARD THWING Sr.
  29. 230  REM       P.O. BOX 40
  30. 240  REM       COLUMBUS, NC
  31. 250  REM       28722-0040
  32. 260  CLS
  33. 270  PRINT"ENTER THE TOTAL TRAVEL TIME IN HOURS AND DECIMAL HOURS"
  34. 280  INPUT"                           TO THE NEAREST QUARTER HOUR ";TT
  35. 290  T=TT/2
  36. 300  PRINT
  37. 310  INPUT"ENTER THE NUMBER OF TIME ZONES CROSSED ";TZ
  38. 320  Z= TZ-4
  39. 330  PRINT"SELECT DEPARTURE TIME"
  40. 340  GOSUB 640
  41. 350  INPUT"ENTER SELECTION ";DP
  42. 360  PRINT
  43. 365  INPUT"ENTER DEPARTURE CITY ";DC$
  44. 370  CLS
  45. 380  ON DP GOTO 390,400,410,420,430
  46. 390  DC= 0:GOTO 440
  47. 400  DC= 1:GOTO 440
  48. 410  DC= 2:GOTO 440
  49. 420  DC= 3:GOTO 440
  50. 430  DC= 4:GOTO 440
  51. 440  PRINT:INPUT"ENTER ARRIVAL CITY ";AC$:CLS
  52. 445  LOCATE 20,5:PRINT"SELECT ARRIVAL TIME"
  53. 450  GOSUB 640
  54. 460  LOCATE 22,5:INPUT"SELECT ";AR
  55. 470  PRINT
  56. 480  ON AR GOTO 500,510,520,530
  57. 490  AC= 4:GOTO 540
  58. 500  AC= 2:GOTO 540
  59. 510  AC= 0:GOTO 540
  60. 520  AC= 1:GOTO 540
  61. 530  AC= 3
  62. 540  JL=(T+Z+DC+AC)/4:' REASONABLENESS FACTOR OF 4 ADDED TO FORMULA
  63. 550  CLS:GOSUB 1000:
  64. 560  PRINT"                 BEFORE SERIOUS ACTIVITY!"
  65. 570  PRINT:PRINT:PRINT:PRINT
  66. 580  LOCATE 20,10:PRINT"DO ANOTHER? Y/N"
  67. 590  A$= INKEY$:IF A$= "" THEN 590
  68. 600  IF A$= "Y" OR A$= "y" THEN 260
  69. 610  IF A$= "N" OR A$= "n" THEN 630
  70. 620  PRINT"YOU MADE A WRONG SELECTION":GOTO 590
  71. 630  CLS:RUN"MAINMENU"
  72. 640  LOCATE 8,10:COLOR 14:PRINT"8 AM - NOON..............1"
  73. 650  LOCATE 9,10:PRINT"NOON - 6 PM..............2"
  74. 660  LOCATE 10,10:PRINT"6 PM - 10 PM.............3"
  75. 670  LOCATE 11,10:PRINT"10 PM - 1 AM.............4"
  76. 680  LOCATE 12,10:PRINT"1 AM - 8 AM..............5"
  77. 690  COLOR 15:PRINT:PRINT:PRINT:PRINT:RETURN
  78. 700  LOCATE 22,35:COLOR 31:PRINT CHR$(17)CHR$(196)CHR$(217):COLOR 15
  79. 710  A$= INKEY$:IF A$= "" THEN 710
  80. 720  RETURN
  81. 730  FOR X= 1226 TO 1236
  82. 740  READ A
  83. 750  NEXT X
  84. 760  FOR Y= 1294 TO 1295
  85. 770  READ B
  86. 780  POKE Y,B
  87. 790  NEXT Y
  88. 800  READ B
  89. 810  FOR Z= 1357 TO 1361
  90. 820  READ C
  91. 830  POKE Z,C
  92. 840  NEXT Z
  93. 850  DATA 106,106,74,69,84,143,76,65,71,106,106
  94. 860  DATA 66,89
  95. 870  DATA 143,75,116,69,68,69
  96. 880  RESTORE
  97. 890  RETURN
  98. 1000  PRINT:PRINT:PRINT:PRINT:PRINT DC$ CHR$(16);"-----------------------------------------------";CHR$(16) AC$
  99. 1010  PRINT"                      ";:PRINT USING "##.#";JL;:PRINT" REST DAYS"
  100. 1020  RETURN
  101. 4455  LOCATE 20,5:PRINT"SELECT ARRIVAL TIME"
  102.