980 Hp_speed: REM _____________ HORSE POWER VS SPEED ______________
990           GOSUB Titles 
1000          PRINT 
1010          PRINT "_______________ Horse Power vs Speed ___________________ "
1020          PRINT 
1030          PRINT "Speed";TAB(8);"Engine";TAB(17);"HP";TAB(25),"HP";TAB(33); 
1040          PRINT "HP";TAB(41);"HP";TAB(50);"Best" 
1050          PRINT "Eff";TAB(8);"RPM";TAB(17);"Rolling";TAB(25);"Air";TAB(33); 
1060          PRINT "Eff";TAB(41);"Total";TAB(50);"MPG" 
1070          REM_____________Horse Power vs Speed info ________________
1080          FOR Vel=Mph_start TO Mph_end STEP 10 
1090            Hp_roll=INT(10*(Froll*Wt*Vel)/375)/10 
1100            Hp_air=INT(10*(Cd*Farea*Vel*Vel*Vel/150000))/10 
1110            Hp_eff=(1-Eff)*(Hp_roll+Hp_air) 
1120            M=INT(447*Vel/(Hp_roll+Hp_air+Hp_eff))/10 
1130            Hp_eff=INT(10*Hp_eff)/10 
1140            GOSUB Growth 
1150            Rpml=INT(336.135*Vel*Rratio/Dgrow) 
1160            Hp_total=Hp_roll+Hp_air+Hp_eff 
1170            PRINT Vel;TAB(8);Rpml;TAB(17);Hp_roll;TAB(25);Hp_air;TAB(33); 
1180            PRINT H_eff;TAB(41);Hp_total;TAB(50);M 
1190          NEXT Vel 
1200          Ff$=CHR$(12) 
1210          PRINT Ff$ 
1220          RETURN ! 

1230 Growth:  REM_________ account for tire growth at speed __________
1240          Dgrow=Droll+((.6366*Tire_w-.3633*(Droll-Dsize))*6.9E-3*(Vel^1.735)) /100 
1250          RETURN !