@LOOP内に GOSUB @APP を入れるのが問題点 (リンゴが落下中にもう一度リンゴの落下プログラムを呼び出している) 7:GOSUB @APP の下に@LOOPを移動させれば一応解決