18行目のPRGEDITを削除、17行目のFOR文の前に「PRGEDIT 1」を入れれば動きます。 PRGEDITに範囲外の行番号を渡すと、最終行がカレントになるようです。 また、PRGGET()は、呼び出すたびにカレントを次の行に変更してくれるようです。