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"

Result:


 111
 222
 333
 444
 555
 666
 777
 888
 999