対象のDATA文を別スロットに置いておかないと使えない手ですけど DATA文を一行毎にPRGGET$()命令で文字列変数に取り込んで データの区切りの「,」の数をINSTR()命令でカウントしていけば個数を数えれるんじゃないです？ 自分も前に色々試したことあるんですけど ループを回して数えなくても、LEN()命令みたく一発で幾つって出る良い方法ってないですかね。 記述するデータ値の文字数を何文字っていう風にルールを作って統一しておけば、文字数から自動的にデータの数も導き出せそうな気もするんですけど 同じスロット内にあるDATA文だとPRG系命令の対象に出来ないから、読み込み終わりの識別用の値を設定しておいてからのループ回ししか無いのかな・・・