spset 0,500 X=40:y=60 @loop Bt = button (0) If BT==#up then y=y-1 If BT==#down then y=y+1 If BT==#left then x=x-1 If BT==#right then x=x+1 Spofs 0,x,y Vsinc 1 Goto @loop