一番最後の行にだけデータがあるという前提にするなら、黒さんの方法でもPRGSIZE()でプログラムの行数が取得出来るんで、そこを書き換えるみたなやり方には出来そうな気もしますね〜。<行数が変わる件