1260  Dsvt:    REM____________Dist vs Speed & Time __________________
1270           GOSUB Titlel 
1280           PRINT 
1290           PRINT "____________Distance & Speed vs Time ____________________ " 
1300           PRINT 
1310           GOSUB G_paper 
1320           X=0 
1330           Vel=0 
1340           Rpt_cntr=0 
1350           PRINT "Seconds","Feet","MPH","RPM","Gear" 
1360           G_shift=1 
1370           FOR I=0 TO 60 STEP .1 
1380             F_req=Froll*Wt/Eff+Cd*Farea*Vel*Vel/(586.699*Eff)  ! Force reqd 
1390             GOSUB Growth 
1400             F_car=Torq*Gear(G_shift)*Rratio/(Dgrow/24)         !F driving 
1410             IF F_car-F_req<=O THEN           ! no more power to go   faster 
1420               PRINT "HP Limit" 
1430               PRINT "*=Tires Smoking" 
1440               GOTO End_run 
1450             END IF 
1460             Accel_g=(F_car-F_req)/(Wt*Pct_drv/100) 
1470             B$=" " 
1480             IF Accel_g>Tire-frict THEN 
1490               Accel_g=Tire_frict 
1500               B$="*" 
1510             END IF 
1520             A2=.32*Accel_g*Pct_drv 
1530             V1=Vel+.1*A2           ! new Vel = old Vel + delta time * accel 
1540             X1=X+.05*(Vel+V1) 
1550             IF X<1320 THEN 
1560               IF X1>1320 THEN      ! Just crossed 1/4 Mile 
1570                 PRINT "1/4 Mile, ET= ";I;" MPH= ";INT(Vel/1.467) 
1580                 PLOT I,O 
1590                 MOVE I,Vel/1.467 
1600               END IF 
1610             END IF 
1620             Rpm1=229.18*V1*Rratio*Gear(G_shift)/Dgrow 
1630             IF DROUND(I,3)=INT(I+.001) THEN GOSUB Out_line 
1640             PLOT I,Vel/1.46667 
1650             IF Rpm1>=Max_rpm AND Rpm_old<=Max_rpm THEN GOSUB Up_shift 
1660             IF Rpm1>=Max_rpm THEN 
1670               PRINT "RPM Limit" 
1680               GOTO End-run 
1690             END IF 
1700             X=X1 
1710             IF DROUND(Vel,3)=DROUND(V1,3) THEN   ! same speed as last time 
1720               Rpt_cntr=Rpt_cntr+1 
1730               IF Rpt_cntr>50 THEN End-run  ! 50* .1 sec/step=5 sec 
1740             ELSE 
1750               Rpt_cntr=0 
1760             END IF 
1770             Vel=V1 
1780             Rpm_old=Rpm1 
1790           NEXT I 

1800   End_run:REM ___________ end of time run ______________
1810           IF Hard$="Y" THEN GOSUB Dump_plt 
1820           RETURN !