１つ大事なことを忘れていました。 PRGGET$関数で読み出すと最後に改行を示す文字が付くので、LEFT$関数かMID$関数で最後の１文字を取り除く必要があります。 すみません。