580 Inputs: REM ________________GET INPUT DATA ____________________ 590 IF LEN(Hard$)>O THEN OUTPUT KBD USING "#,K";Hard$ 600 INPUT "Hard Copy es o",Hard$ 610 Hard$=UPC$(TRIM$(Hard$[1,1])) 620 IF LEN(Des$)>O THEN OUTPUT KBD USING "#,K";Des$ 630 INPUT "Description ",Des$ 640 IF Tire_w>O THEN OUTPUT KBD USING "#,K";Tire_w;",";Dsize;",";Droll, 650 INPUT "Tire Size (Width, Diameter, Rolling Dia) (Inches)",Tire_w,Dsize,Droll 660 IF Tire_psi>O THEN OUTPUT KBD USING "#,K";Tire_psi 670 INPUT "Tire Pressure (PSI)",Tire_psi 680 IF Farea>O THEN OUTPUT KBD USING "#,K";Farea 690 INPUT "Frontal Area (Sq.Ft.) ",Farea 700 IF Cd>O THEN OUTPUT KBD USING "#,K";Cd 710 INPUT "Coef. of Air Friction (Cd) ",Cd 720 Froll=.01234+51.36/(Tire_psi*Droll*Tire_w) ! coef of rolling friction 730 IF Eff_pct>O THEN OUTPUT KBD USING "#,K";Eff_pct 740 INPUT "Driveline efficiency (%) ",Eff_pct 750 IF Rratio>O THEN OUTPUT KBD USING "#,K";Rratio 760 INPUT "Read end ratio",Rratio 770 Eff=Eff_pct/100 780 IF Wt>O THEN OUTPUT KBD USING "#,K";Wt 790 INPUT "Total Vehicle Wt. (Pounds) ",Wt 800 Mph_start=10 810 Mph_end=200 820 IF Max_gears>O THEN OUTPUT KBD USING "#,K";Max_gears 830 INPUT "How many forward gears ",Max_gears 840 FOR G_shift=l TO Max_gears 850 DISP " ";G_shift;" Gear Ratio "; 860 IF Gear(G_shift)>O THEN OUTPUT KBD USING "#,K";Gear(G_shift) 870 INPUT Gear(G_shift) 880 NEXT G_shift 890 IF Pct_drv>O THEN OUTPUT KBD USING "#,K";Pct_drv 900 INPUT "% of Weight on Driving Wheels ",Pct_drv 910 IF Tire_frict>O THEN OUTPUT KBD USING "#,K";Tire_frict 920 INPUT "Tire Type: 1:Street 2:Racing",Tire_frict 930 IF Torq>O THEN OUTPUT KBD USING "#,K";Torq 940 INPUT "Maximum Engine Torque (Ft-Lbs)",Torq 950 IF Max_rpm>O THEN OUTPUT KBD USING "#,K";Max_rpm 960 INPUT "Maximum Engine RPM ",Max_rpm 970 RETURN