読み込み時には (上コメの例には付いてないけど) DATAの先頭にはREADの回数を付けておいて DATA 3,"ABC",0,"DEF" Z$=CHR$(10) : L=0 : READ V REPERT IF L MOD 2THEN READ N IF N THEN{中略}ELSE INC T$,Z$ ELSE READ N$ : INC T$,N$ ENDIF L=L+1 UNTIL L==V と、する感じ。