696です。
先ほどのプログラムを訂正したら、
一行ほどしか出力されませんでした。
どこが間違っているのでしょうか。

ttp://www.borujoa.org/upload/source/upload17009.txt