make object plain 1, 20, 20: xrotate object 1, 90: make object box 2, .2, .2, .4: speed as float: angle=0: position camera object position x(2), 10, object position z(2): xrotate camera 90: color object 1, rgb(0, 255, 128): sync rate 30: sync on
do
   if leftkey()>0 and speed>0 then dec angle, 5: dec speed, 0.0075
   if rightkey()>0 and speed>0 then inc angle, 5: dec speed, 0.0075
   if upkey()>0 and speed<1 then inc speed, .01
   yrotate object 2, angle: move object 2, speed: position camera object position x(2), 10, object position z(2) :sync: dec speed, 0.005
   if speed<0 then speed=0
loop