SPSET 0,1251 REPEAT VSYNC B=BUTTON()IF!B THEN CONTINUE X=X+(1AND B>>3)-(1AND B>>2) Y=Y+(1AND B>>1)-(1AND B) SPOFS 0,X,Y UNTIL B==#X こんなのでもいいし