Как сделать оператор LETT универсальным, пригодным для любых матриц?

DECLARE SUB LETT (A%(), B%())
DECLARE SUB PRI (c%())
CLS
 
DIM i AS INTEGER
DIM j AS INTEGER
DIM SHARED n AS INTEGER
n = 5
DIM A(1 TO n, 1 TO n) AS INTEGER
DIM B(1 TO n, 1 TO n) AS INTEGER
 
FOR i = 1 TO n
FOR j = 1 TO n
   B(i, j) = 9 * RND
NEXT j, i
 
CALL PRI(B())
LETT A(), B()
PRINT
CALL PRI(A())
 
END
 
SUB LETT (A() AS INTEGER, B() AS INTEGER)
   FOR i = 1 TO n
   FOR j = 1 TO n
      A(i, j) = B(i, j)
   NEXT j, i
END SUB
 
SUB PRI (c() AS INTEGER)
   FOR i = 1 TO n
   FOR j = 1 TO n
      PRINT c(i, j);
   NEXT j: PRINT : NEXT i
END SUB

REM   Оператор присвоения LETT
REM   LETT A(), B()     { A() = B() }
 
DECLARE SUB LETT (A%(), B%())
DECLARE SUB PRI (c%(), n%, m%)
DEFINT A-Z
OPTION BASE 1
RANDOMIZE TIMER
CLS
 
DIM SHARED n1
DIM SHARED n2
DIM SHARED m1
DIM SHARED m2
 
n1 = 2 + 5 * RND
n2 = 2 + 5 * RND
m1 = 2 + 5 * RND
m2 = 2 + 5 * RND
 
DIM A(n1, m1) AS INTEGER
DIM B(n2, m2) AS INTEGER
 
FOR i = 1 TO n2
FOR j = 1 TO m2
   B(i, j) = 9 * RND
NEXT j
NEXT i
 
CALL PRI(B(), n2, m2)
LETT A(), B()
PRINT
CALL PRI(A(), n1, m1)
 
END
 
SUB LETT (A() AS INTEGER, B() AS INTEGER)
  
DIM n AS INTEGER
DIM m AS INTEGER
 
   IF n1 >= n2 AND m1 >= m2 THEN
      n = n2
      m = m2
   ELSEIF n1 >= n2 AND m1 < m2 THEN
      n = n2
      m = m1
   ELSEIF n1 < n2 AND m1 >= m2 THEN
      n = n1
      m = m2
   ELSE
      n = n1
      m = m1
   END IF
 
   FOR i = 1 TO n
   FOR j = 1 TO m
      A(i, j) = B(i, j)
   NEXT j
   NEXT i
 
END SUB
 
SUB PRI (c() AS INTEGER, n AS INTEGER, m AS INTEGER)
   FOR i = 1 TO n
   FOR j = 1 TO m
      PRINT c(i, j);
   NEXT j: PRINT : NEXT i
END SUB