SPSET 0,1251 WHILE 1 B=BUTTON() X=X+(1AND B>>3)-(1AND B>>2) Y=Y+(1AND B>>1)-(1AND B) SPOFS 0,X,Y VSYNC WEND