use controls to add/subtract to/from current x/y values to get new x/y values. ie,:
cls rgb(255,0,0)
get image 1,0,0,32,32,1
draw sprites first
color backdrop 0
playerx = screen width()/2
playery = screen height()/2
sprite 1,playerx,playery,1
offset sprite 1, image width(1)/2, image height(1)/2
do
UPDOWN = downkey() - upkey()
LEFTRIGHT = rightkey() - leftkey()
playerx = playerx + LEFTRIGHT
if playerx < 0 then playerx = 0
if playerx > screen width() then playerx = screen width()
playery = playery + UPDOWN
if playery < 0 then playery = 0
if playery > screen height() then playery = screen height()
sprite 1,playerx,playery,1
text 0,0, str$(sprite x(1)) + "/" + str$(sprite y(1))
loop
good luck