>>699
第一のループは１０万行のデータを読み込もうとしている。ところがデータは一万五千行しか無い。
故に途中でEOFに出会う。するとEND=99によってラベル99に飛ぶ。よって第二のループは実行されない。
ところが出力はされる。結果は腐っている。

ではどうすれば良いのか？ラベル９９の行を第一のループと第二のループの間に置けば良かろうかと思う。