1830 G_Paper:REM _____________ Draw Graph Paper ______________ 1840 GINIT 1850 GRAPHICS ON 1860 REM_______ label MPH scale _________ 1870 VIEWPORT 0,100*RATIO,15,100 1880 WINDOW 0,10,0,150 1890 LORG 1 1900 CSIZE 3 1910 FOR Mph=0 TO 140 STEP 10 1920 MOVE 0,Mph 1930 LABEL Mph 1940 NEXT Mph 1950 REM ________label TIME scale ________ 1960 VIEWPORT 10,100*RATIO,0,100 1970 WINDOW 0,50,0,150 1980 LORG 2 1990 CSIZE 3 2000 FOR Secs=0 TO 40 STEP 10 2010 MOVE Secs,20 2020 LABEL Secs 2030 NEXT Secs 2040 REM__________ready for plot ________ 2050 VIEWPORT 10,100*RATIO,15,100 2060 WINDOW 0,50,0,150 2070 LINE TYPE 3 2080 GRID 10,10,0,0 2090 LINE TYPE 1 2100 RETURN ! 2110 Up_shift: REM ___________ shift up _____________ 2120 GOSUB Out_line 2130 RPLOT 0,2 2140 RPLOT 0,-4 2150 RPLOT 0,2 2160 IF G_shift=Max_gears THEN RETURN 2170 PRINT "RPM Limit" 2180 GOTO End_run 2190 END IF 2200 G_shift=G_shift+l 2210 IF G_shift>Max_gears THEN G_shift=Max_gears 2220 Rpm1=229.18*V1*Rratio*Gear((G_shift)/Dgrow 2230 PRINT " ----------- Shifting Gears ------------" 2240 GOSUB Out_line 2250 RETURN 2260 Dump_plt: REM ______________ dump plot to printer __________ 2270 Ff$=CHR$(12) 2280 PRINT Ff$ 2290 GOSUB Title1 2300 PRINT 2310 PRINT "_______________ MPH vs Seconds _______________" 2320 PRINT 2330 DUMP GRAPHICS 2340 PRINT Ff$ 2350 RETURN 2360 END !