プログラム中でＸ、Ｙは、グラフィックの座標系を使っているように見えます。LOCATEは、キャラクタの座標系を使う必要があります。 あと、LOCATE SY,SYになっていますが、LOCATE SX,SYではないでしょうか。