16 lines
401 B
Plaintext
16 lines
401 B
Plaintext
' 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
|