100 ! dyno2.pgm
280 DISPLAY ERASE ALL,"Vehicle weight (lbs):";MASS;:ACCEPT AT(23)SIZE(-5),MASS
290 DISPLAY ERASE ALL," Speed (mph):";MPH;:ACCEPT AT(15)SIZE(-4),MPH
300 DISPLAY ERASE ALL," RPM:";RPM;:ACCEPT AT(7)SIZE(-5),RPM
310 DISPLAY ERASE ALL," Acceleration (g):";ACCEL;:ACCEPT AT(20)SIZE(-4),ACCEL
320 DISPLAY ERASE ALL,"Neutral Deceleration (g):";DECEL;
330 ACCEPT AT(27)SIZE(-4),DECEL
340 !
350 VELOCITY=MPH*5280/3600
360 FORCE=MASS*(ACCEL+DECEL)
370 HP=FORCE*VELOCITY/550
380 TORQUE=5250*HP/RPM
390 !
400 HP=INT(HP*10+.5)/10
410 TORQUE=INT(TORQUE*10+.5)/10
420 !
430 IMAGE ###.# hp ###.# lbs.ft #### rpm
440 DISPLAY ERASE ALL,USING 430,HP,TORQUE,RPM:PAUSE:GOTO 280