Pass two arrays into a sub-program?
Pass two arrays into a sub-program?
(OP)
I can pass one array into a sub-program, but not two arrays. Can anybody here tell me what is wrong with the following code?
DECLARE SUB subroutine (a1(), a2() AS INTEGER)
DIM array1(0 TO 12) AS INTEGER
DIM array2(0 TO 3, 0 TO 4) AS INTEGER
subroutine array1(), array2()
SUB subroutine (a1(), a2() AS INTEGER) STATIC
´ does something with two arrays
END SUB
DECLARE SUB subroutine (a1(), a2() AS INTEGER)
DIM array1(0 TO 12) AS INTEGER
DIM array2(0 TO 3, 0 TO 4) AS INTEGER
subroutine array1(), array2()
SUB subroutine (a1(), a2() AS INTEGER) STATIC
´ does something with two arrays
END SUB
RE: Pass two arrays into a sub-program?
CODE
DIM array1(0 TO 12) AS INTEGER
DIM array2(0 TO 3, 0 TO 4) AS INTEGER
DECLARE SUB subroutine (array1() AS INTEGER, array2() AS INTEGER)
DIM x AS INTEGER, y AS INTEGER
FOR x = 0 TO 12
array1(x) = x
NEXT
FOR x = 0 TO 3
FOR y = 0 TO 4
array2(x, y) = x * 100 + y
NEXT y
NEXT
CALL subroutine(array1(), array2())
SUB subroutine (a1() AS INTEGER, a2() AS INTEGER) STATIC
' does something with two arrays
DIM x AS INTEGER, y AS INTEGER
CLS
FOR x = 0 TO 12
PRINT a1(x);
NEXT
PRINT
FOR x = 0 TO 3:
FOR y = 0 TO 4
PRINT a2(x, y);
NEXT y
PRINT
NEXT x
END SUB
RE: Pass two arrays into a sub-program?
DECLARE SUB subroutine (array1() AS INTEGER, array2() AS INTEGER)
RE: Pass two arrays into a sub-program?