ダウンロードして中身を見てみたんですが、変数X,Yって何の数値を 入れていますか？ サブルーチン@BGPUTの中身を良く確認してみて下さい。