>>52
for　next　などの繰り返し処理や
サブルーチンの使い方などが良くわからないのでやたら長くなりました

ちなみに賞味300行なので空行を入れて印刷すると１５ページになりました。
連動する別のファイルのスクリプトをあわせると３０ページ以上になりました。
やっぱりサブルーチンは覚えるべきだとおもいました。