MY PROGRAMS
Texas Travel Aid
PROGRAM
Texas Travel Aid
BIN_PROG_1
PFILE:B2UB9PUD.BAS
=
E
=
E
=
P
`"TEXAS TRAVEL AID"
`"Please select one:"
(`"1 Directons"
2`"2 City Information"
<`"3 Areas Of Intrest"
A `"4 Exit"
FaMAIN
PVMAIN=1T200
UVMAIN=2T-}1500
ZVMAIN=3T-2000
dVMAIN=4T 150
n+ 10
P
&`"Thank you for using this program."
4`"If you are interested in a more detaled version"
3`"please contact me at: Preacherman@kltymain.com"
9`"Visit my web sight: WWW.angelfire.com/pq/preacherman"
WX=1R3000
[X
Z
Y
Y
P
-`"Directions enter numbers or type back."
`
6`"1 Austin 2 Dallas 3 San Antonio 4 Houston"
7`"5 El Paso 6 Ft. Worth 7 Corpus Christi 8 Amarillo"
a"From?";FROM
VFROM=1Tk300
VFROM=2T T400
VFROM=3T.500
VFROM=4TM600
VFROM=5T;700
VFROM=6T!%800
VFROM=7T'1900
VFROM=8T-x1000
"+ 10
+Y
,P
--`"Directions enter numbers or type back."
.`
06`"1 Austin 2 Dallas 3 San Antonio 4 Houston"
27`"5 El Paso 6 Ft. Worth 7 Corpus Christi 8 Amarillo"
4a"To?";AUSTO
6VAUSTO=1T320
8VAUSTO=2T)330
9VAUSTO=3T340
:VAUSTO=4TW350
;VAUSTO=5T360
<VAUSTO=6T370
=VAUSTO=7T4380
>VAUSTO=8T390
?+ 10
@P
A!`"You entered Austin for both."
B WX=1R1500
C[X
D+ 10
JP
K`"Austin To Dallas"
L4`:`"From Austin take I-35 N for about 195 miles."
M)`"Your trip should take about 3 hours."
NaA
O+ 10
TP
U`"Austin To San Antonio"
V3`:`"From Austin take I-35 S for about 83 miles."
W-`"Your trip should take under 1 1/2 hours."
XaA
Y+ 10
^P
_`"Austin To Houston"
`7`:`"From Austin take HWY 290 E for about 162 miles."
a1`"Your trip should take a little over 2 hours."
baA
c+ 10
hP
i`"Austin To El Paso"
j9`:`"From Austin take Hwy 290 W till you hit I-10 take"
k7`"I-10 to El Paso your trip will be about 480 miles."
laA
m+ 10
rP
s`"Austin To Fort Worth"
t4`:`"From Austin take I-35 N for about 190 miles."
u)`"Your trip should take about 3 hours."
vaA
w+ 10
|P
} `"Austin To Corpus Christi"
~4`:`"From Austin take I-35 S to San Antonio, then"
#`"take I-37 S to Corpus Christi."
aA
+ 10
P
`"Austin To Amarillo"
3`:`"From Austin take I-35 N to Fort Worth, then"
`"take HWY 287 N to Amarillo."
aA
+ 10
P
-`"Directions enter numbers or type back."
`
6`"1 Austin 2 Dallas 3 San Antonio 4 Houston"
7`"5 El Paso 6 Ft. Worth 7 Corpus Christi 8 Amarillo"
a"To?";DALTO
VDALTO=1T
420
VDALTO=2T Z430
VDALTO=3T 440
VDALTO=4T =450
VDALTO=5T 460
VDALTO=6T
y470
VDALTO=7T480
VDALTO=8T490
+ 10
P
`"Dallas To Austin"
4`:`"From Dallas take I-35 S for about 195 miles."
)`"Your trip should take about 3 hours."
aA
+ 10
P
!`"You entered Dallas for both."
WX=1R1500
[X
+ 10
P
`"Dallas To San Antonio"
4`:`"From Dallas take I-35 S for about 280 miles."
)`"Your trip should take about 4 hours."
aA
+ 10
P
`"Dallas To Houston"
4`:`"From Dallas take I-45 S for about 245 miles."
-`"Your trip should take about 3 1/2 hours."
aA
+ 10
P
`"Dallas To El Paso"
6`:`"From Dallas take I-20 W till you hit I-10 take"
7`"I-10 to El Paso your trip will be about 500 miles."
aA
+ 10
P
`"Dallas To Fort Worth"
3`:`"From Dallas take I-20 W for about 30 miles."
(`"Your trip should take about 30 min."
aA
+ 10
P
`"Dallas To Corpus Christi"
4`:`"From Dallas take I-35 S to San Antonio, then"
#`"take I-37 S to Corpus Christi."
aA
+ 10
P
`"Dallas To Amarillo"
3`:`"From Dallas take I-20 W to Fort Worth, then"
`"take HWY 287 N to Amarillo."
aA
+ 10
P
-`"Directions enter numbers or type back."
`
6`"1 Austin 2 Dallas 3 San Antonio 4 Houston"
7`"5 El Paso 6 Ft. Worth 7 Corpus Christi 8 Amarillo"
a"To?";SANTO
VSANTO=1T520
VSANTO=2TA530
VSANTO=3T540
VSANTO=4T.550
VSANTO=5T560
VSANTO=6T|570
VSANTO=7T 580
VSANTO=8T590
+ 10
P
`"San Antonio To Austin"
8`:`"From San Antonio take I-35 N for about 83 miles."
-`"Your trip should take about 1 1/2 hours."
aA
+ 10
P
`"San Antonio To Dallas"
9`:`"From San Antonio take I-35 N for about 280 miles."
)`"Your trip should take about 4 hours."
aA
+ 10
P
&`"You entered San Antonio for both."
WX=1R1500
[X
+ 10
&P
'`"San Antonio To Houston"
(9`:`"From San Antonio take I-10 E for about 197 miles."
)5`"Your trip should take a little over 2 1/2 hours."
*aA
++ 10
0P
1`"San Antonio To El Paso"
28`:`"From San Antonio take I-10 W for about 460 miles"
30`"Your trip should take about 7 hours, Yikes!"
4aA
5+ 10
:P
; `"San Antonio To Fort Worth"
<9`:`"From San Antonio take I-35 N for about 270 miles."
=)`"Your trip should take about 4 hours."
>aA
?+ 10
DP
E"`"San Antonio To Corpus Christi"
F7`:`"From San Antonio take I-37 S to Corpus Christi."
G!`"The trip is about 145 miles."
HaA
I+ 10
NP
O `"San Antonio To Amarillo"
P8`:`"From San Antonio take I-35 N to Fort Worth, then"
Q `"take HWY 287 N to Amarillo."
RaA
S+ 10
XP
Y-`"Directions enter numbers or type back."
Z`
\6`"1 Austin 2 Dallas 3 San Antonio 4 Houston"
^7`"5 El Paso 6 Ft. Worth 7 Corpus Christi 8 Amarillo"
`a"To?";HOUTO
bVHOUTO=1T620
dVHOUTO=2TX630
eVHOUTO=3T640
fVHOUTO=4T650
gVHOUTO=5T660
hVHOUTO=6Tt670
iVHOUTO=7T680
jVHOUTO=8T690
k+ 10
lP
m`"Houston To Austin"
n8`:`"From Houston take HWY 290 W for about 162 miles."
o)`"Your trip should take about 2 hours."
paA
q+ 10
vP
w`"Houston To Dallas"
x5`:`"From Houston take I-45 N for about 245 miles."
y-`"Your trip should take about 3 1/2 hours."
zaA
{+ 10
P
`"Houston To San Antonio"
5`:`"From Houston take I-10 W for about 200 miles."
)`"Your trip should take about 3 hours."
aA
+ 10
P
"`"You entered Houston for both!"
WX=1R1500
[X
+ 10
P
`"Houston To El Paso"
4`:`"From Houston take I-10 W for about 660 miles"
1`"Your trip should take about 10 hours, Yikes!"
aA
+ 10
P
`"Houston To Fort Worth"
4`:`"From Houston take I-45 N for, then at Dallas"
0`"take I-20 W for a total of about 266 miles."
aA
+ 10
P
`"Houston To Corpus Christi"
>`:`"From Houston take HWY 59, to HWY 77 to Corpus Christi."
!`"The trip is about 215 miles."
aA
+ 10
P
`"Houston To Amarillo"
1`:`"From Houston take I-45 N, to I-20 W, then"
`"take HWY 287 N to Amarillo."
aA
+ 10
P
-`"Directions enter numbers or type back."
`
6`"1 Austin 2 Dallas 3 San Antonio 4 Houston"
7`"5 El Paso 6 Ft. Worth 7 Corpus Christi 8 Amarillo"
a"To?";ELPTO
VELPTO=1T 720
VELPTO=2T 7730
VELPTO=3T 740
VELPTO=4T Z750
VELPTO=5T 760
VELPTO=6T L770
VELPTO=7T 780
VELPTO=8T 790
+ 10
P
`"El Paso To Austin"
2`:`"From El Paso take I-10 E, to HWY 290 E for"
`"a total of about 480 miles."
aA
+ 10
P
`"El Paso To Dallas"
0`:`"From El Paso take I-10 E to I-20 E for a"
`"total of about 500 miles."
aA
+ 10
P
`"El Paso To San Antonio"
5`:`"From El Paso take I-10 E for about 460 miles."
-`"Your trip should take about 7 1/2 hours."
aA
+ 10
P
`"El Paso To Houston"
5`:`"From El Paso take I-10 E for about 660 miles."
9`"Your trip should take a little over 10 hours. Yikes!"
aA
+ 10
P
"`"You entered El Paso for both!"
WX=1R1500
[X
+ 10
P
`"El Paso To Fort Worth"
@`:`"From El Paso take I-10 E, to I-20 E for about 470 miles."
)`"Your trip should take about 7 hours."
aA
+ 10
P
`"El Paso To Corpus Christi"
8`:`"From El Paso take I-10 E, to San Antonio to I-37"
3`"to Corpus Christi.The trip is about 600 miles."
aA
+ 10
P
`"El Paso To Amarillo"
-`:`"Take I-10 E, to I-20 E, to HWY 385 N,"
`"to I-37 N to Amarillo."
aA
+ 10
P
!-`"Directions enter numbers or type back."
"`
$6`"1 Austin 2 Dallas 3 San Antonio 4 Houston"
&7`"5 El Paso 6 Ft. Worth 7 Corpus Christi 8 Amarillo"
(a"To?";FTWTO
*VFTWTO=1T"820
,VFTWTO=2T#2830
-VFTWTO=3T#840
.VFTWTO=4T$j850
/VFTWTO=5T%860
0VFTWTO=6T%870
1VFTWTO=7T%880
2VFTWTO=8T&890
3+ 10
4P
5`"Fort Worth To Austin"
67`:`"From Fort Worth take I-35 S for about 190 miles"
7)`"Your trip should take about 3 hours."
8aA
9+ 10
>P
?`"Fort Worth To Dallas"
@6`:`"From Fort Worth take I-20 E for about 30 miles"
A(`"Your trip should take about 30 min."
BaA
C+ 10
HP
I `"Fort Worth To San Antonio"
J8`:`"From Fort Worth take I-35 S for about 273 miles."
K)`"Your trip should take about 4 hours."
LaA
M+ 10
RP
S`"Fort Worth To Houston"
T=`:`"From Fort Worth take I-20 E, to I-45 S for 266 miles."
U1`"Your trip should take a little over 4 hours."
VaA
W+ 10
\P
]`"Fort Worth To El Paso"
^/`:`"From Fort Worth take I-20 W to I-10 for"
_ `"a total of about 470 miles."
`+ 10
fP
g$`"You entered Fort Worth for both"
h WX=1R1500
i[X
j+ 10
pP
q!`"Fort Worth To Corpus Christi"
r;`:`"From Fort Worth take I-35 S, to San Antonio to I-37"
s3`"to Corpus Christi.The trip is about 408 miles."
taA
u+ 10
zP
{`"Fort Worth To Amarillo"
|8`:`"From Fort Worth take HWY 287 for about 300 miles"
})`"Your trip should take about 5 hours."
~aA
+ 10
P
-`"Directions enter numbers or type back."
`
6`"1 Austin 2 Dallas 3 San Antonio 4 Houston"
7`"5 El Paso 6 Ft. Worth 7 Corpus Christi 8 Amarillo"
a"To?";FTWTO
VCOCTO=1T(920
VCOCTO=2T)P930
VCOCTO=3T)940
VCOCTO=4T*950
VCOCTO=5T+I960
VCOCTO=6T+970
VCOCTO=7T,+980
VCOCTO=8T,990
+ 10
P
`"Corpus Christi To Austin"
;`:`"From Corpus Christi take I-37 N for about 140 miles"
3`"Then take I-35 N for about 80 miles to Austin."
aA
+ 10
P
`"Corpus Christi To Dallas"
;`:`"From Corpus Christi take I-37 N for about 140 miles"
4`"Then take I-35 N for about 330 miles to Dallas."
aA
+ 10
P
"`"Corpus Christi To San Antonio"
<`:`"From Corpus Christi take I-37 N for about 140 miles."
-`"Your trip should take about 2 1/2 hours."
aA
+ 10
P
`"Corpus Christi To Houston"
8`:`"From Corpus Christi take HWY 35 N for 230 miles."
)`"Your trip should take about 4 hours."
aA
+ 10
P
`"Corpus Christi To El Paso"
2`:`"From Corpus Christi take I-37 N to I-10 to"
,`"El Paso for a total of about 600 miles."
+ 10
P
"`"Corpus Christi to Fort Worth."
WX=1R1500
[X
+ 10
P
!`"Fort Worth To Corpus Christi"
;`:`"From Fort Worth take I-35 S, to San Antonio to I-37"
3`"to Corpus Christi.The trip is about 408 miles."
aA
+ 10
P
`"Fort Worth To Amarillo"
8`:`"From Fort Worth take HWY 287 for about 300 miles"
)`"Your trip should take about 5 hours."
aA
+ 10
'
2`"Sorry this will be on the delux edition only!"
+ 10
2`"Sorry this will be on the delux edition only!"
+ 10
u1Z