動かない原因は17,18行目でせっかく変更した座標を初期化してしまっているからですね。 あと16行目のSPSETは何度も実行する必要はないので上のメインループの外に出した方がいいと思いますね。