Source Code
10 CLS
20 PRINT "%M%P%G% %C%A%L%C%U%L%A%T%O%R"
30 FOR T=1 TO 200
40 NEXT T
50 CLS
60 PRINT "%T%H%I%S% %P%R%O%G%R%A%M% %D%E%T%E%R%M%I%N%E%S"
70 PRINT "%T%H%E% %M%P%G% %Y%O%U%R% %C%A%R% %G%E%T%S."
71 PRINT
72 PRINT "ENTER THE MONTH OF REPORT"
73 INPUT Y$
74 PRINT Y$
75 PRINT
76 PRINT "THIS REPORT IS FOR THE MONTH OF ";Y$
77 PRINT
80 PRINT "HOW MANY MILES DID YOU DRIVE"
90 PRINT "DURING THE PAST 5 FILL-UPS?"
100 INPUT M
101 PRINT M
102 PRINT
110 PRINT "HOW MANY GALLONS OF GAS DID YOU"
120 PRINT "USE IN THE PAST 5 FILL-UPS?"
130 INPUT G
131 PRINT G
132 PRINT
140 LET MPG=M/G
150 PRINT "YOU HAVE BEEN GETTING ";MPG
151 PRINT
160 PRINT "ENTER COST PER GALLON"
161 INPUT C
162 PRINT C
163 LET TCG=C*G
164 PRINT "YOUR MONTHLY COST IS $ ";TCG
170 PRINT
171 PRINT "ENTER BUS MILES DRIVEN"
172 INPUT A
173 PRINT A
174 PRINT "ENTER IRS MILEAGE ALLOWANCE"
175 INPUT R
176 PRINT R
180 LET DED=A*R
181 PRINT "YOUR MONTHLY CAR DEDUCTION IS $ ";DED
185 PRINT "DO YOU USE ADDITIVES?ENTER Y OR N"
186 INPUT A$
188 IF A$="Y" THEN GOSUB 400
189 IF A$="N" THEN GOTO 190
190 LPRINT "%M%P%G% %C%A%L%C%U%L%A%T%O%R"
191 LPRINT
200 LPRINT Y$
201 LPRINT
210 LPRINT "YOU DROVE ";M;" MILES"
211 LPRINT
220 LPRINT "YOU USED ";G;" GALLONS"
225 LPRINT
230 LPRINT "YOU HAVE BEEN GETTING ";MPG;" MILES PER GALLON"
235 LPRINT
240 LPRINT "YOUR COST PER GALLON IS ";C
245 LPRINT
250 LPRINT "YOUR TOTAL FUEL COST FOR ";Y$;" WAS ";TCG
255 LPRINT
260 LPRINT "YOUR BUS MILES DRIVEN WERE ";A;" MILES"
265 LPRINT
270 LPRINT "YOUR MONTHLY CAR DEDUCTION IS ";DED
275 CLS
280 PRINT "DID YOU USE OIL ADDITIVE? ENTER Y OR N"
284 INPUT T$
290 IF T$="Y" THEN GOTO 300
295 IF T$="N" THEN GOTO 350
300 LET TCA=CM+MT
310 LPRINT "TOTAL COST OF ADDITIVES IS ";TCA
320 LPRINT
325 LET TOC=TCA+TCG
330 LPRINT "TOTAL OPERATING COST FOR THE MONTH OF ";Y$;" IS ";TOC
340 GOTO 1000
350 LPRINT "TOTAL COST OF ADDITIVES IS ";CM
355 LPRINT
358 LET TB=CM+TCG
360 LPRINT "TOTAL OPERATING COST FOR THE MONTH OF ";Y$;" IS ";TB
395 GOTO 1000
400 CLS
410 PRINT "DO YOU USE GAS ADDITIVE? ENTER Y OR N"
420 INPUT B$
430 IF B$="Y" THEN GOTO 500
435 IF B$="N" THEN GOTO 440
440 PRINT "DO YOU USE AN OIL ADDITIVE? ENTER Y OR N"
450 INPUT O$
460 IF O$="Y" THEN GOTO 600
465 IF O$="N" THEN GOTO 470
470 GOTO 190
500 CLS
510 PRINT "ENTER COST PER BOTTLE?"
520 INPUT AA
530 PRINT AA
550 LET BB=12
565 LET CO=AA/BB
576 LET DD=G/12.5
577 LET CM=DD*CO
580 PRINT "YOUR GAS ADDITIVE COST WAS ";CM
585 GOTO 440
600 CLS
610 PRINT "OIL ADDITIVE COST PER BOTTLE?"
620 INPUT CC
630 PRINT CC
640 PRINT "HOW OFTEN DO YOU CHANGE OIL (IN MILES)?"
650 INPUT EE
660 PRINT EE
670 LET MO=CC/EE
675 LET MT=MO*M
680 PRINT "YOUR OIL ADDITIVE COST FOR THE MONTH OF ";Y$;" WAS ";MT
690 GOTO 190
\n1000 PRINT "WOULD YOU LIKE ANOTHER COPY? ENTER Y OR N"
\n1010 INPUT L$
\n1020 IF L$="Y" THEN GOTO 190
\n1030 IF L$="N" THEN STOP
\n1040 CLEAR
\n1050 SAVE "1003%1"
\n1060 RUN
