,::::::::" ALASKA"" . * ."*" . . "_" . ."" . ."" . ."" TOKYO-----------14 HOURS-----------------NEW YORK"m" "();"----------12 TIME ZONES-------------------";()s  " ********************* J E T L A G **************"  THIS PROGRAM IS OFFERED UNDER THE SHAREWARE CONCEPT.( SEE README.TXT FILE ON THIS DISK FOR DETAILSR2 OPERATING PROGRAM STARTS HEREd ,::: PROGRAM IS CALLED JETLAG.BASn x I  : I COPYRIGHT OCTOBER 1985  ,:"THIS PROGRAM CALCULATES THE EFFECT OF JET LAG"'  ,:"AND THE SUGGESTED RECOVERY TIME"d ,:"BEFORE SERIOUS MENTAL AND/OR PHYSICAL ACTIVITY" ,:"ORIGINAL FORMULA BY BULER AND DATA IN TRAVEL AND LEISURE MAG. ,:"ADAPTED FOR GW-BASIC BY R. THWING Sr" % ADAPTED FOR GW-BASIC AND IBM COMPATIBLES BY:D RICHARD THWING Sr.\ P.O. BOX 40u COLUMBUS, NC 28722-0040"ENTER THE TOTAL TRAVEL TIME IN HOURS AND DECIMAL HOURS"" TO THE NEAREST QUARTER HOUR ";TT"TTT#,U6"ENTER THE NUMBER OF TIME ZONES CROSSED ";TZa@Z TZ~J"SELECT DEPARTURE TIME"T ^"ENTER SELECTION ";DPhm"ENTER DEPARTURE CITY ";DC$r| DP ,,,,DC : DC : DC : /DC : ?DC : b:"ENTER ARRIVAL CITY ";AC$: ,:"SELECT ARRIVAL TIME"  ,:"SELECT ";AR AR ,,,AC : AC : AC : AC : AC WJL(TZDCAC):: REASONABLENESS FACTOR OF 4 ADDED TO FORMULAd&: :0" BEFORE SERIOUS ACTIVITY!"::::D , :"DO ANOTHER? Y/N"NA$ : A$ "" NX A$ "Y" A$ "y" b A$ "N" A$ "n" v=l"YOU MADE A WRONG SELECTION": NOv:"MAINMENU"} , : :"8 AM - NOON..............1" , :"NOON - 6 PM..............2"  , :"6 PM - 10 PM.............3"  , :"10 PM - 1 AM.............4"$  , :"1 AM - 8 AM..............5"7 :::::b ,#: : ()()(): {A$ : A$ ""  X   A X Y   B  Y,B Y  B* Z M Q4 C> Z,CH Z2R 106,106,74,69,84,143,76,65,71,106,106>\ 66,89Xf 143,75,116,69,68,69^pdz:::: DC$ ();"-----------------------------------------------";() AC$" ";: "##.#";JL;:" REST DAYS"g ,:"SELECT ARRIVAL TIME"