home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
bus
/
trvldr.ba
< prev
next >
Wrap
Text File
|
2006-10-19
|
406b
|
6 lines
0 'TRAVLDR.BA BY N.F. IRELAND
1 'CLUB 100 LIBRARY - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE
2 ' *TRVLDR* Initial loader for TRAVXP
3 CLS:PRINT:PRINT"ENTER STARTING CASH FOR TRIP";:INPUTCS:PRINT:PRINT"ENTER STARTING ODOMETER READING";:INPUTMS:CT=0:MT=0:PT=0:GT=0:' ?:?"ENTER CREDIT CARD BALANCE";:INPUTPT
4 OPEN"RAM:VACEXP.DO"FOROUTPUTAS1:PRINT#1,CS","CT","MS","MT","PT","GT:CLOSE:END