何がしたいのか最初から書いておけば、望むような回答が得られたのではないでしょうか。 プログラムを見ただけだと、どういう意図で500とか1000とか通常使わない値を使っているのか分かりません。 とりあえず、FOR文にSTEP 10を加え、VSYNC 1を10にすれば、それっぽく動きます。 VSYNC 1だと0.5ドットしか動かないので、動きが反映されないのではないでしょうか。 (逆に元のプログラムで一部動くのが謎です)