元のソースはそのままで、B=BUTTON(0)の代わりに、 STICK OUT SX,SY IF SX!=0 || SY!=0 THEN IF ABS(SX)>ABS(SY) THEN IF SX<0 THEN B=4 ELSE B=8 ELSE IF SY<0 THEN B=1 ELSE B=2 ENDIF ENDIF を入れたらどうです？