home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
bus
/
auto.ba
< prev
next >
Wrap
Text File
|
2006-10-19
|
819b
|
19 lines
1 'Club 100 Library - 415/939-1246 BBS 937-5039 NEWSLETTER, 932-8856 VOICE
5 MAXFILES=2
10 OPEN"miles.do"FORINPUTAS1
20 OPEN"temp.do"FOROUTPUTAS2
30 FORX=1TO19:LINEINPUT#1,A$:PRINT#2,A$:NEXT
40 FORX=1TO9:LINEINPUT#1,A$(X):NEXT
50 IF A$(6)<>" " THENTG=VAL(A$(6)):TC=VAL(A$(7)):MPG=VAL(A$(8)):CM=VAL(A$(9))
60 FORX=1TO9:PRINT#2,A$(X):NEXT
70 FORX=1TO9:LINEINPUT#1,A$(X):IFEOF(1)THENE=1
75 NEXT
150 REM update totals
155 TG=TG+VAL(A$(3)):TC=TC+VAL(A$(4)):MPG=(VAL(A$(2))-5200)/TG:CM=(VAL(A$(2))-5200):CM=TC/CM
160 MPG=INT(MPG*100)/100:CM=INT(CM*1000)/1000
165 REM 5200 REFLECTS THE NUMBER OF MILES ON THE CAR WHEN I BOUGHT IT; CHANGE ACCORDINGLY
170 FORX=1TO5:PRINT#2,A$(X):NEXT
175 PRINT#2,TG:PRINT#2,TC:PRINT#2,MPG:PRINT#2,CM
176 IF E<>1 THEN 70
180 KILL"miles.do":NAME"temp.do"AS"miles.do":MENU