読み出す場合は LOAD ”TXT:TEST" OUT BUF$ P=0:IX=0 WHILE P1<LEN(BUF$)-1 P1=INSTR(P0,BUF$,CHR$(10)) A$[IX]=MID$(BUF$,P0,P1-P0):P0=P1+1:INC IX WEND