spset 0,0 x=0 y=0 while 1 vsync if button() and #left then x=x-1 if button() and #right then x=x+1 if button() and #up then y=y-1 if button() and #down then y=y+1 spofs 0, x,y wend