' Loop over multiple arrays simultaneously
PROGRAM "loopoverarrays"

DECLARE FUNCTION Entry()

FUNCTION Entry()
  DIM arr1$[2], arr2$[2], arr3%[2]
  arr1$[0] = "a": arr1$[1] = "b": arr1$[2] = "c"
  arr2$[0] = "A": arr2$[1] = "B": arr2$[2] = "C"
  arr3%[0] = 1:   arr3%[1] = 2:   arr3%[2] = 3
  FOR i% = 0 TO 2
    PRINT arr1$[i%]; arr2$[i%]; FORMAT$("#", arr3%[i%])
  NEXT i%
END FUNCTION
END PROGRAM