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