rem parabola tunnel
rem by latch
rem 10/26/07
 
sync on
sync rate 60
 
a#=10
h=100 : k#=200
for shiftx=0 to screen width() step 4
      dec k#,.5
 
      for x=0 to 200
         y#=((1.0/(4.0*a#))*((x-h)^2))+k#
         ink rgb(x+55,x+55,x+55),0
         dot x+shiftx,y#
      next x
 
next shiftx
sync
 
wait key