最後の画面のGOSUB文を 消してみてください。 それと @BGPUTのすぐ下に Y=0 を追加しておいてください。 よくみると、変数名X,Yが、 他のところで使われているみたいなので 別の名前に変えたほうがいいです。