10 CLS
20 A$=STRING$(80,205)
30 PRINT A$
40 PRINT TAB(25)"MPG CALCULATOR      6009-A.BAS"
50 COLOR 23,0,0
60 PRINT :PRINT :PRINT TAB(38)"IPCO"
70 COLOR 7,0,0
80 PRINT :PRINT :PRINT TAB(29)"INTERNATIONAL PC OWNERS"
90 PRINT :PRINT :PRINT TAB(17)"p.o. box 10426, pittsburgh, pennsylvania 15234"
100 PRINT A$
110 PRINT :PRINT :PRINT :PRINT :PRINT
120 PRINT TAB(28)"PRESS ANY KEY TO CONTINUE"
130 A$=INKEY$:IF A$="" THEN 130
140 CLS
1000 REM***** GAS******
1010 REM ***************DATA INITIALIZATION***************
1020 M= 1000
1030 PRINT " ENTER THE INITIAL MILEAGE, DATE OF RECORDING "
1040 INPUT MO,DO$
1050 PRINT "ENTER THE GASOLINE USED (O WHEN FINISHED)
1060 FOR I = 1 TO M
1070    G=O
1080   INPUT G
1090 IF G=O THEN 1120
1100   G1=G1+G
1110 NEXT I
1120 PRINT "ENTER ENDING MILEAGE,DATE"
1130 INPUT M9,D9$
1140 REM*****************PROCESSING AREA******************
1150 M=M9-MO
1160 C=M/G1
1170 PRINT
1180 PRINT
1190 PRINT "**********************************************"
1200 PRINT "FOR THE PERIOD ";DO$;"-";D9$
1210 PRINT "     MILES DRIVEN:";M
1220 PRINT "     GASOLINE USED:";G1
1230 PRINT "     AVG MILES/GALLON:";C
1240 PRINT"***********************************************"
1250 REM *******************PROGRAM TERMINATION POINT******************
1260 PRINT
1270 PRINT
1280 STOP
****************"
1250 REM *******************PROGRAM TERMINATION POINT***