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