そこでREAD〜DATAの出番です。 引数は全てDATAにまとめて、READで順次読み出してBGPUTのループを組めばスッキリ。