Dim x as int                       'x coordinate
Dim y as int                       'y coordinate
x=0
y=0
Sprite 1, "sprite.pic"             'load the sprite
While(true)                           'do forever
        If key(#KEY_LEFT)  then x=x-1       'move left
        If key(#KEY_RIGHT) then x=x+1       'move right
        If key(#KEY_UP)    then y=y+1       'move up
        If key(#KEY_DOWN)  then y=y-1       'move down
        Move 1, x, y
        Redraw
Wend