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