Pass two arrays into a sub-program?

 DECLARE SUB subroutine (a1() AS INTEGER, a2() AS INTEGER)

 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