同じ働きをするプログラムを私も作って、もっとコンパクトにまとめています。公開キーは「 2A3XS3D4 」なので、これをダウンロードしてみて、どう短くまとめたかを比較解析してみるといいと思います。ちなみにFOR-NEXT,READ-DATA,配列を使います。