Drag Racer55W7Drag Racer @ R.Erskine 1983  4000 9000(#  9150#  g=1 dI= nI=109ma=a+1 x%I>480I<535g=I-480 }!t<3rpm=a(x):140 rpm=b(x) *>(rpm-6000p)/1000160 3000 os=ns op=np tq=c(x) tq1=17 ns=d(x) np=e(x) t=t+1  a=f(x) x=480*a y=480*a /t>1152,568:1;xx,yy ""152,568:1;x,y , xx=x:yy=y 6 a=g(x) @n=480*a Jo=480*a T.t>1491,568:1;nn,oo ^!491,568:1;n,o h nn=n:oo=o m"5;0;lin1,col1;"_" col1=col1+((np-op)/cl) Mcol1>31lin1<8col1=0+(col1-31):lin1=lin1+1 0lin1<85;0;lin1,col1;"" np<1320(100d  t=h(x) bt=0bt=t  t4.1333gr=4.11 / 9000(# 0 9310^$ 4 20 W1;2;6;lin1,col1;"";0,3;"Engine blown":2055 0:5:0:  0,10 ;"Drag Racer"  "In this drag racing simulation ","you must try to cover the ","quarter mile in the shortest ","possible time. The only controlsyou need are the gears which ","must be changed at the optimum ","moment.": "At the start you are in first ","gear and you must watch the rpm counter and decide when to ","change into second. At over ","6000 rpm there is a high ","probability of the engine ","blowing.": ҄"With each succeeding attempt ","the rear end ratio is increased slightly which makes the game ","progressively more difficult.": \"Try not to change gear too late or too early. The gear keys are1,2,3 and 4. Good Luck." :x=11000:x "Press any key to start" =""4085  @x=07 J85;x,0;" " Tx ^x=112p1688 h'0,x:0;255,0 rx | #( g(4) #-5:0:7: #2g(1)=4 #<g(2)=2.5 #Fg(3)=1.5@ #Pg(4)=1 #Zt=0:np=0:ns=np #n mph=0 #x rpm=0 #152,568,480 #491,568,480 #g14,5;"RPM";14,17;"MPH";10 ,26;"Drag";19,26;"Racer" #`14,13 ;"135";14,23;"45";9 ,19;"0";20,18;"90" #\9 ,6;"0";14,10 ;"17";14,0;"52";20,5;"35" # 8000@ # #)a(x S)=4200h*(g(g)/g(1)) # b(xi)=ns*gr*g(g)*con/circ #7c(xi)=(c1*rpm^3)+(c2*rpm^2)+(c3*rpm) #d(xi)=os+(tq/tq1) #0e(xi)=op+ns*(5280/60<^2) #%f(xi)=(ns*2)/180+ #)g(x-)=(rpm/19.5)/180* $.h(x-)=t+(1320(-op)/(np-op)-1 $"con=63360 $,circ=4253.893421% $6c1=-1.8953E-9d>x_ $@c2=1.02157E-5p+d $Jc3=.015752{ V $T(bt=0:gr=3:cl=5.176% $^lin1=0:col1=0 $h:x="a""a"+7 $rn:x,n $|x $I0,0,0,0,224,255,227,255 '