g,l=color,line
poke(24366,1)pal(2,139,1)x,f,k,n,v,z,c=0,0,1,32,0,1,64::_::camera(-c,-c)memcpy(0,88,c*c)n-=1if(n<0)n=8+rnd(30)v=rnd(14)-7
for i=490,512 do
poke4(4*i,peek4(4*i-4)+v/k)end
cls(12)for d=512,c,-1 do
q=(d+f)\40%2y=c*c/d
r=y/c*(x+peek4(4*d))l(-c,y,c,y,3-q)l(r-y,y,r+y,y,5)l(r,y,r+1,y,9-4*q)end
a=btn()&3
if(a%3>0)a=6-4*a
x+=a*3b=-a/2o="w"
?o,a-9,58,0
?o,a+6,58
?o,-a-7,57
?o,4-a,57
?z.."m",1-c,1-c
u=8h=8g(12)for y=56,60 do
s=-y/c
rectfill((a+u)*s,y+s*h+1,(a-u)*s,y)a+=b
g(8)u=10h=6
end
z+=k\11
flip()
?"oops",0,0
f+=k
if(k<22)k+=1
if(abs(r)<c)goto _

--otrn
--by axnjaxn
--note: lines ending in -- show where i cut a newline
g,l=color,line
poke(24366,1)--
pal(2,139,1)--
--x: car's horizontal position
--f: odometer/used in determining lines and terrain colors
--k: speed
--n: downcounter to change direction
--v: current road direction
--z: odometer for display
--c: constant 64
x,f,k,n,v,z,c=0,0,1,32,0,1,64--
::_::--
camera(-c,-c)--
--advance the road data generated in sprite memory by 22 units (max speed)
memcpy(0,88,c*c)--
n-=1--
--each new road segment is determined here
if(n<0)n=8+rnd(30)v=rnd(14)-7
for i=490,512 do
   poke4(4*i,peek4(4*i-4)+v/k)--
end
--draw terrain
cls(12)--
for d=512,c,-1 do
   q=(d+f)\40%2--
   y=c*c/d
   r=y/c*(x+peek4(4*d))--
   --for each distance along the ground, i compute the y and x scale, then draw lines
   --this ends up using like 1.5k lines to draw a 61-row tall background
   l(-c,y,c,y,3-q)--
   l(r-y,y,r+y,y,5)--
   l(r,y,r+1,y,9-4*q)--
end
--a and b are the position and slope of the car's tilt
a=btn()&3
if(a%3>0)a=6-4*a
x+=a*3--
b=-a/2--
--wheels
o="w"
?o,a-9,58,0
?o,a+6,58
?o,-a-7,57
?o,4-a,57
--score
?z.."m",1-c,1-c
--car's body
u=8--
h=8--
g(12)--
for y=56,60 do
   s=-y/c
   --might have been able to save characters by dropping the +1 and altering h accordingly. oh well!
   rectfill((a+u)*s,y+s*h+1,(a-u)*s,y)--
   a+=b
   --since the first rect (the windshield) is different, always set the color/dims here
   g(8)--
   u=10--
   h=6
end
z+=k\11
flip()
--yes, putting it inside the game loop saves a single character. it gets erased unless the loop exits.
?"oops",0,0
f+=k
if(k<22)k+=1
if(abs(r)<c)goto _