DIM文は、実行されるたびにメモリを消費します。 GOTO @Aによって、DIM文が何度も呼ばれるからと思われます。 14行目の前に@Aをつければ解決するのでは？