Miles Per Gallon

Gallery

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
1000 PRINT "WOULD YOU LIKE ANOTHER COPY? ENTER Y OR N"
1010 INPUT L$
1020 IF L$="Y" THEN GOTO 190
1030 IF L$="N" THEN STOP 
1040 CLEAR 
1050 SAVE "1003%1"
1060 RUN