DIM i WHILE DATA$[i] <> "EndOfData" PRINT DATA$[i] INCR i WEND DATA "111", "222", "333", "444" DATA "555", "666", "777", "888" DATA "999", "EndOfData"
DIM
WHILE
DATA$
[
]
"EndOfData"
PRINT
INCR
WEND
DATA
"111"
"222"
"333"
"444"
"555"
"666"
"777"
"888"
"999"