screenres 640, 480, 32, 2

x = 10
y = 20
xsp = 10
ysp = 8
scrx = 640
scry = 480

Dim As Any Ptr my_bmp = imagecreate( 32, 32 )
Bload "fighter.bmp", my_bmp


a$ = ""
screenset 1, 0
while a$ = ""
    a$ = inkey$
    x = x + xsp
    y = y + ysp
    IF x > 640 - 32 THEN xsp = -xsp
    IF x < 32 THEN xsp = -xsp
    IF y > 480 - 32 THEN ysp = -ysp
    IF y < 32 THEN ysp = -ysp
    CLS
    Put(x, y), my_bmp    
    sleep 20
    screencopy
wend

Sleep