読込は、 LOAD "TXT:A",B$ N0=0 FOR I=0 TO 9 N1=INSTR(N0,B$,CHR$(10)) IF N1<0 THEN A$[I]=MID$(B$,N0,LEN(B$)-N0) BREAK ENDIF A$[I]=MID$(B$,N0,N1-N0) N0=N1+1 NEXT 動作確認していないので、まちがっているところがあるかもしれません。雰囲気が伝わればいいのですが･･･