私の勝手な予想で申し訳ないのですが、60行目の　BY=BY2　は、BY=BY-2　で、 21行目の　SPSET 0,1,0　は、SPSET 1,1,0　の間違いではないでしょうか？