:Main Menu for PitStop America:Version 1.1 developed by FutureWave Shareware:Programmed by M. Broughton Boone: d:Opening MenunKp ,:"***** ****** ****** **** ****** *** *****"r ); "* * ** ** * * ** * * * *"t ); "* * ** ** * ** * * * *"v ); "***** ** ** **** ** * * *****"ax ); "* ** ** * ** * * *"z ); "* ** ** * * ** * * *"| ); "* ****** ** **** ** *** *".~  , :" * * * ****** ***** ****** **** *"w  ); " * * * * * * * * * ** * * * *"  ); " * * * * * * * * * ** * * *"   ); " ***** * * * ***** ***** ** * *****"V  ); "* * * * * * * ** * * *"  ); "* * * * * * * ** * * * *"  ); "* * * * ****** * * ****** **** * *" ,: "VERSION 1.1 Release June 1991"_ ,: "Developed by FutureWave Shareware - Copyright 1991" ,: "Hit any key to continue" ""  :Main Menu );"PITSTOP AMERICA MAIN MENU" ,: "1) New Route - Erase all old data": );"2) View Route Information"^ );"3) Change Driving Data" );"4) Change Fuel Data" );"5) Begin Route" );"6) Print Route Information" );"7) Exit" ,: "Enter number of choice: "%A$ : A$ ""  : : A$ "1" O  A$ "2" d A$ "3" y A$ "4"  A$ "5"   A$ "6"  " A$ "7" ' :New Route - erase all old data:Erase Driving data-AS : HD : AT$ "": AT : MD P "Driving.dat" OUTPUT AS #i #,AS,HD,AT$,MD,ATr  #:Erase refueling dataTC MPG !B$ "":MT & "Refuel.dat" OUTPUT AS #+ #,TC,MPG,B$,MT0 #-5:Erase Starting Point, Destination, and Route7 dM:Load Old RouteS ,: "Please wait while information is compiled..." "ShowInfo:Change Driving DataAS A: HD  );"Change Driving Data" , : "Current Data:"< ,: "1) Average Speed: ";ASf );"2) Hours Driven per Day: ";HD ,: "Enter number to change, 4 to return to main menu"A$ : A$ ""  :    A$ "1" ' A$ "2" @  A$ "4" &':Change Average SpeedU, , : "What is your average speed";AS1 , : " "6 @:Change Hours Driven per DayE , : "How many hours do you drive per day";HD*J , : " "4O @YAT$ NJr b:Read in old data} "i",#,"Driving.dat" #,AS,HD,AT$,MD,AT #:Save driving data  l  "Driving.dat" OUTPUT AS # #,AS,HD,AT$,MD,AT  # 6l:Calculate new variablesKx:Miles per dayZ{MD ASHDw}:Adjust for time zonesAT$ (AT$,) AT$ "Y" AT$ "y" AT  : AT :Change Refueling DataTC  : MPG : B$ "N" &  );"Change Refueling Data"D  , : "Current Data:"j  ,: "1) Tank Capacity: ";TC  );"2) Average MPG: ";MPG  );"3) Include 10% Buffer: ";B$  ,: "Enter number to change, 4 to return to main menu"!A$ : A$ ""  : .! A$ "1" C! A$ "2" 4X! A$ "3" Mm!  A$ "4" !:Change Tank Capacity!  , : "What is your tank capacity";TC!% , : " "!* "4:Change MPG<"9 , : "What is your car's average MPG";MPGx"> , : " ""C "M:Change Add 10% Buffer"R , : "Note: This will subtract 10% from your distance on a tank of gas"'#W , : "Add a 10% Buffer to Tank Capacity";B$~#\ , : " "#a , : " "#f #:Read in old data# "i",#,"Refuel.dat" $ #,TC,MPG,B$,MT$ #$5$:Save refueling data?$ ` a$ "Refuel.dat" OUTPUT AS #w$ #,TC,MPG,B$,MT$ #$ $` :Calculate new variables$b :Miles per tank$d B$ (B$,)%e B$ "Y" B$ "y" B L} : B %j MT TCMPG((TCMPG)B)#%o 6% :Begin Route<% % AS  TC  ,: "You must first file driving and refueling information from main menu": A$ : A$ ""  : % % ,: "Please wait..."% "discity& :Print Route Information & ^&  ,: "Please wait while information is compiled..."n& "prtinfot&& ,: "This is a ShareWare Program..."&' "If you like this program, please register it with the author. SUPPORT SHAREWARE"V' "There are two options for registration. One, if you find this program to be"' "sufficient for your needs, send 10$ US for registration of your copy, which"( "entitles you to the latest version of PitStop America, and the heartfelt thanks"Z( "and respect of the author. The second option is to send 25$ to the author, for"( "which you will receive the full PitStop America program, which offers over 2000" ) "cities to start/stop in, and supports all US Highways as well as interstates, &"`) "you will receive the heartfelt thanks and respect of the author. With either") "option, you will get a price break on future versions/upgrades and any documen-"* "tation which the program might require. (Registered versions also get rid of"-* "this annoying screen.)"Q* ,: "M. Broughton Boone"j* ); "PO Box 253"* ); "Bayview, ID 83803"* ,: "Hit any key to continue..."* "" *