RESTORE @MAP
WHILE 1
WHILE 1
READ A
IF A==9999 THEN BREAK
BGPUT (ヘルプ参照)
WEND
IF A==10000 THEN BREAK
WEND
@MAP
DATA 数字,数字,数字,数字…,9999
DATA 数字,数字,数字,数字…,9999
DATA 数字,数字,数字,数字…,9999
>省略<
DATA 10000
手段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"
(試してないけど)