エラーになる原因は前のコメントのとおりです。 で、今度は、DATA文を使って同じことをやる場合の処理をちょっと手直ししてみました。 こんな方法もあります、と言うことで。