Mileage

Date: December 1982
Type: Program
Platform(s): TS 1000

Appears on

Cassette to accompany the December 1982 issue of Synchro-Sette.

Source Code

   5 PRINT AT 1,3;"% %V%E%H%I%C%L%E% %M%I%L%E%A%G%E% %P%R%O%G%R%A%M% "
  10 PRINT ,,"WHAT IS THE ODOMETER READING    NOW?";
  20 INPUT OD
  25 PRINT " - ";OD
  30 PRINT ,,"WHAT WAS THE READING THE LAST   TIME THE TANK WAS FILLED?"
  40 INPUT OR
  50 LET A=OD-OR
  55 PRINT "- ";OR;"  MILES DRIVEN - ";A
  60 PRINT ,,"HOW MANY GALLONS DOES YOUR TANK HOLD?"
  70 INPUT GAL
  80 PRINT ,,"HOW MUCH DID IT COST FOR THE    FILL-UP?"
  90 INPUT CF
 100 PRINT ,,"WHAT IS THE PRICE PER GALLON?"
 110 INPUT CG
 120 LET TG=CF/CG
 125 CLS 
 130 PRINT ,,"YOUR VEHICLE USED ";CF/CG
 140 PRINT "GALLONS OF FUEL AT $";CG,"PER GALLON AND TRAVELLED"
 150 PRINT A;" MILES."
 160 PRINT ,,"YOUR VEHICLE GETS ";A/(CF/CG)
 170 PRINT "MILES TO THE GALLON."
 180 PRINT ,,"YOU ARE PAYING $";CF/A
 190 PRINT "FOR FUEL FOR EACH MILE YOUR     VEHICLE TRAVELS."
 200 PRINT ,,"ON A FULL TANK, YOUR VEHICLE    SHOULD TRAVEL ";GAL*(A/(CF/CG));" MILES."
 210 PRINT ,,"IF YOU PUT NO MORE FUEL IN THE  TANK, THE VEHICLE WILL RUN OUT  WHEN THE ODOMETER REACHES"
 220 PRINT OD+INT (GAL*(A/(CF/CG)));" MILES."
 230 INPUT A$
 240 CLS 
 250 RUN 
9998 SAVE "MILEAG%E"
9999 RUN 

People

No people associated with this content.

Scroll to Top