Road Racer  )print instructions & obtain skill level 7000X:set up UDGs 80:0:7::initial screen attributes 7100:draw title screen 9 ,2;" Your engine stalls in the middle of the Road Race while you're in tenth position, with only 300 miles to the finish! Regain the lead using:" (g16,0;" 'y' for speed 'g' to brake";18,0;" 'z' for left & 'x' for right" 2721,0;i;"Skill Level: 1=(AM) 2=(PRO) ?" 76#1;1,5;i;"Written by D.Sheehan." <="1"sk=1:100d F="2"sk=2:100d P 60< c.set up screen and variables forstart of game dc6:4:0::c=5:d=2:s=0:a=11 :b=6:pos=10 xn=021:n,0;" ":n:n=219:n,19;5;"":n 0:3,19;7;" ROAD RACER ":255,0:0,175:-255,0:0,-175 `151,15:98b,0:0,145:-98b,0:0,-145 32000:set up computer's char variables: REM ,7:0:6,20;"MILES: ";9 ,20;"POS: ";12 ,20;"SPEED: ";15,20;"APP/S: " 6W7080:n=09 :q:w=08:.008zn,q:w:n:engine noise main program loop m=300,0-1 &a,b;7;" ";a+1,b;" " &*b=b+(="x"b<11 )-(="z"b>5) D&a,b;7;"";a+1,b;"" N+3000 :move and print computer's car Wcheck for a crash X(a,b)74000 b$(a,b+1)74000 l$(a+1,b)74000 v,(a+1,b+1)74000 g6,26;m;" ";9 ,26;pos;" ";12 ,26;s;" ";15,26;app;" " *s=s+(="y"s98b)-(="g"s1) !1100L:print and move tree m  end of game z6,26;1;"000":n=0502:.005y# =,30:.01z# =,0:n:pos=11050 1,0;"The leading car has won the race":.5,-10 :.73333,-20:pos=29 ,5;1;3;"";10 ,5;""  10808 Ya+2,5;1;3;"";a+3,5;"":502 $=a,b;"";a+1,b;"";x,y;cc;"";x+1,y;"" .1,0;1;2;" 1ST PLACE ! ":n=03:.5,15:.2~L,5:n 8C21,3;"Press any key to play again":=""10808 B 15 Kprint and move tree L6c,d;4;" ";c+1,d;" ":c=c+(s/30) jYc18c=1:r=:d=(*3)+1:r>.5d=(*3)+14 t/c,d;1;4;"";c+1,d;"": set up computer's car Yapp=s+(*sk)-5:app=app+(*20)-(*20):app20app=20 Dac=0+(1ƥ<(sk/10 )+.1}L)-(1ƥ>.73333) cc=(*5)+2 46y=(*6)+6:x=2:app>sx=18 >pos=1x=18 HIpos1=pos:pos2=0+(pos-1x=2)+(pos+1x=18) Rx1=x: print and move computer's car Nx,y;" ";x+1,y;" ":s>appx=x+1:s-15>appx=x+1 1s(pos/10 )y6y=y-1 T>(pos/10 )y10 y=y+1:>.5app=app+(*2)-1 Ix,y;cc;"";x+1,y;"":app=app+ac:app20app=20 0?x<3x>18x,y;" ";x+1,y;" ":2000 N/x1=2pos=0+(pos2xa)+(pos1xa)+(pos2xa)  $print crashed car and restart game Sn=06:a,b;1;n;"";a+1,b;"":.1}L,-30:n "n=0400:n:15 W&set up UDGs Cars ABCD Tree IJ Road K X>b=17:a$:n=07:a:a$+n,a:n:b: bP"a",3,15,3,247,255,255,255,247 lU"b",192,240,192,239,255,255,255,239 vS"c",30,252,255,255,251,247,247,15 T"d",120x,63?,255,255,223,239,239,240 I"k",0,60<,0,60<,0,60<,0,60< P"i",16,16,24,568,84T,124|,186,214 P"j",84T,186,214,124|,568,16,16,568 v0,.2~L,.5,.8L,1.2,2,3,2,1,0,-1:data for engine sound print title screen a$="" b$="" c$="" d$="" e$="" !0,8;" R O A D" i=(*7)+1:2,4;i;a$;3,4;b$;4,4;c$;5,4;d$;6,4;e$ Mn=156119w-4:0,n:1;i;255,0:n   saves and auto-runs program "ROAD RACER"10 ' do not type in lines 9997-9999 '"m";1;"ROAD RACER" '$*"m";1;"ROAD RACER"10 Xtwa8ABCDEi