28 NEXTN:PRINTUSINGG$;CZ;:PRINT" TOTAL, End Of File.";:LINEINPUTZ$:L=0:CZ=0:GOTO11
29 '
30 CLS:PRINT@5,"MILEAGE CALCULATION":PRINT:IFGA=0THENPRINTTAB(3)"NO GAS ENTRY TODAY":PRINT:GOTO32
31 PRINTTAB(3)"MILES TODAY:"MI:PRINTTAB(3)"MILES PER GALLON TODAY:"USINGH$;MI/GA
32 PRINT:PRINTTAB(3)"MILES OF TRIP TO DATE:"MT:PRINTTAB(3)"MILES PER GALLON FOR TRIP:"USINGH$;MT/GT:PRINT@280,;:INPUT"PRESS ENTER";Z:GOTO11
33 '
34 CLS:PRINT@8,"REVIEW BALANCES":PRINT:PRINTTAB(3)"CASH ON HAND:"USINGG$;CS-CT:PRINT:PRINTTAB(3)"TOTAL CHARGED:"USINGG$;PT:PRINT@280,;:INPUT"PRESS ENTER";Z:GOTO11
35 '
36 CLS:PRINT@5,"RECORDING ARRAY TO RAM":OPEN"VACEXP.DO"FOROUTPUTAS1:PRINT#1,CS","CT","MS","MT","PT","GT:FORN=0TOJ-1:PRINT#1,CD(N)","D$(N)","AM(N)","IT$(N)","P$(N)","LO$(N):NEXTN:CLOSE:END:'