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"