rem Sprites: a sprite - OpenDBC tutorial (DarkBASIC Classic)
rem Media: sea.bmp and scooter.bmp from examples/dbc/tutorials/sprite
sync on : sync rate 60
w = screen width() : h = screen height()
load bitmap "sea.bmp", 1
set current bitmap 0

load image "scooter.bmp", 1
x# = w / 2

do
   copy bitmap 1, 0
   if leftkey() = 1 then x# = x# - 5
   if rightkey() = 1 then x# = x# + 5
   sprite 1, x#, h - 90, 1     : rem sprite number, x, y, image
   text 10, 10, "Left and right arrows: steer"
   sync
loop