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