あくまで「1」ずつ足したり引いたりしたいのであれば、10行目を X=X+ROUND(SX):Y=Y-ROUND(SY) と書き換えるテもあります。