RosettaCodeData/Task/Loop-over-multiple-arrays-simultaneously/BBC-BASIC/loop-over-multiple-arrays-simultaneously.bbc

      DIM array1$(2), array2$(2), array3%(2)
      array1$() = "a", "b", "c"
      array2$() = "A", "B", "C"
      array3%() = 1, 2, 3

      FOR index% = 0 TO 2
        PRINT array1$(index%) ; array2$(index%) ; array3%(index%)
      NEXT