:Multiple route subroutine for PitStop America:Version 1.1 developed by FutureWave Shareware:Programmed by M. Broughton Boone: A Shareware Programn C$(d): S$(d): MA(d): M(d): MN(d): RC$(d): RS$(d): RHI(d): RMA(d)d:Multiroute Programn "I",#,"carry.dat"x #,CD$,SD$,DC$,DS$,DAY,SM,ED,ML,T,HT,TM,DM,CM #IH HTCS$ CD$: SS$ SD$:Read in highway info; "I",#,"Interste.dat"J ()d #,H,C$,S$,MA,M,MN H IH C$(I) C$: S$(I) S$: MA(I) MA: M(I) M: MN(I) MN: I I # X  I C$(X)CS$ S$(X) SS$ ! C$(X)DC$ S$(X) DS$ $) X3J O "I",#,"Intrstrc.dat"^" ()z, #,H,RC$,RS$,RHI,RMA6 H IH RC$(J) RC$: RS$(J) RS$: RHI(J) RHI: RMA(J) RMA: J J@J #T K  L  . :load oneroute#^ K  L  r8h K  Wr:Route Change Data Input| , : "Your destination is not on I-";IH;". Please wait...":Display Route Change Info Subroutine );"Routes Connecting to I-";IHHF IHX : Y & P  JE X  Y Y(: X  X,Y: P;: X,Y: "I-";: X,Y: RHI(P);: X,Y : RC$(P);",";RS$(P)X X P , : "Number (1-";P;") of new route";: A A P : HT RHI(A). HT RHI(A): CD$ RC$(A) : CS$ RS$(A)8 8]:Determine inital segment datax& "I",#,"Driving.dat"0 #,AS,HD,AT$,MD,AT: #D "I",#,"Refuel.dat"N #,TC,MPG,B$,MTX #b:Mileage infol:Varv:var$SM DS: SM  F : F @SM (SM): TM TMSMO:Refuel?ZJ SIgJ SIFCM CM M(J): ML ML M(J) ML MN(J)  J DI  J JF :Refuel "A",#,"Fuel.dat"  #,C$(J),S$(J),CM #0 T T: CM : ML MT6N :Sleep Subroutine]*J SI F4DM DM M(J): ED ED M(J)> MN(J) DM \HJ JF: J DI R 4\:SleepfTR EDAS: :todays hours (TR)!pTR$ (TR): TR$ (TR$,): TR (TR$):z "A",#,"Sleep.dat"Y #,DAY,TR,C$(J),S$(J),EDb #DM MD: ED : DAY DAY:Route information "A",#,"Route.dat" #,CS$,SS$,CD$,SD$,HF,HT,SM #:Carryover Information$ "Carry.dat" OUTPUT AS #X #,CD$,SD$,DC$,DS$,DAY,SM,ED,ML,T,HT,TM,DM,CMa #}:Go back to beginning d:HousekeepingSI X: S MA(X): K : $DI X: D MA(X): L : . "oneroute8 "I",#,"interste.dat"BI !L ();V #,H,C$,S$,MA,M,MN` H IH C$(I) C$: S$(I) S$: MA(I) MA: M(I) M: MN(I) MN: I Ijt #~ X  I CD$ C$(X) SD$ S$(X) DI X: D MA(X)  CD$ C$(X) SD$ S$(X) D MA(X) X