rem Moving the camera: read the keyboard - OpenDBC tutorial (DarkBASIC Classic)
sync on : sync rate 60
autocam off
color backdrop rgb(150, 190, 230)

make object plain 1, 400, 400
xrotate object 1, 90
color object 1, rgb(70, 120, 70)
for n = 2 to 21
   make object cylinder n, 8
   scale object n, 100, 400, 100
   position object n, rnd(300) - 150, 16, rnd(300) - 150
   color object n, rgb(200, 180, 150)
next n

position camera 0, 10, -120
angle# = 0.0

do
   if upkey() = 1 then move camera 2
   if downkey() = 1 then move camera -2
   if leftkey() = 1 then angle# = wrapvalue(angle# - 3)
   if rightkey() = 1 then angle# = wrapvalue(angle# + 3)
   yrotate camera angle#
   text 10, 10, "Arrow keys: walk and turn"
   sync
loop