WOnder

This works!!

But the thing is that you have to let the key go to make it work again!

Graphics 800,600,16,2

SetBuffer BackBuffer()

x#=0
y#=0

Repeat
Cls
Text x#,y#,"A"

If KeyHit(200)
y#=y#-5
EndIf

If KeyHit(208)
y#=y#+5
EndIf

If KeyHit(203)
x#=x#-5
EndIf

If KeyHit(205)
x#=x#+5
EndIf


Flip
Until KeyHit(1)