RosettaCodeData/Task/Loops-Foreach/BASIC256/loops-foreach.basic

DIM collection$(1)
collection$ = { "The", "quick", "brown", "fox", "jumps", "over", "the", "lazy", "dog." }

FOR i = 0 TO collection$[?]-1
   PRINT collection$[i]+ " ";
NEXT i
PRINT