STICKとBUTTON()を使えばできると思います。
ヘルプをみたら大体わかるかもしれませんが
SPSET 0,500
WHILE 1
SPOFS 0,X,Y
B=BUTTON(1)
IF (B AND 1)>0THEN Y=Y-1
IF (B AND 2)>0THEN Y=Y+1
IF (B AND 4)>0THEN X=X-1
IF (B ANF 8)>0THEN X=X+1
WEND
でボタンは動きます。
BUTTON(1)
のあとに
STICK OUT SX,SY
をいれて..........