手段2 RESTORE @MAP READ A$ L=LEN(A$) FOR I = 0 TO L-1 B=VAL(MID$(A$,I,3)) IF B==999 THEN A=A+1:C=0 BGPUT (ヘルプ参照) NEXT @MAP DATA"000001002003004005999001002003" (試してないけど)