何故かout of dataエラーになるんですがわかる方、教えて下さい……

DAT$に「*-END-*」を読み込んだ後、SHIFT()でDAT$の内容を崩しちゃってるので、次にWHILEに戻ったときには既にDAT$は「*-END-*」ではなくなっていてループから抜けられない、とみました(・u・) WHILEに入る前に一度READしておいて、次のループに入る直前で次のREADをすると良いと思いますー( ' u ' )

90行目のSHIFTがいけません。 これのために、WHILEの判定式内ではDAT$は常にカラッポになってしまっています。 83行目は、WHILE TRUEとして、86行目に IF DAT$=="*-END-*" THEN BREAK などとやってみてはいかがでしょうか？

あー！本当だ！全然気がつかなかった(笑) お二人ともありがとうございます^^