RosettaCodeData/Task/Loops-Foreach/BASIC/loops-foreach-2.basic

      DIM collection$(8)
      collection$() = "The", "quick", "brown", "fox", "jumps", \
      \               "over", "the", "lazy", "dog."

      FOR index% = 0 TO DIM(collection$(), 1)
        PRINT collection$(index%) " ";
      NEXT
      PRINT