BCX Console Demonstration Program S86.bas

 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"