15～25行目を IF BUTTON(2)==16 THEN XX=(X+95)/16 :YY=(Y+55)/16 BGPUT 1,XX,YY,101-BGGET(XX,YY) ENDIF としてみてはいかがでしょう。