Передача двумерного массива в процедуру или функцию - QBasic

Формулировка задачи:

Примерчик киньте пожалуйста передачи двумерного массива в процедуру или функцию. Я видимо разучилась пользоваться гуглом, не нашла.

Решение задачи: «Передача двумерного массива в процедуру или функцию»

Листинг программы

DECLARE SUB bbod (a!(), n!, m!)
 
CLS
n = 5
m = 5
DIM a(1 TO n, 1 TO m)
CALL bbod(a(), n, m)
 
FOR i = 1 TO n
FOR j = 1 TO m
PRINT a(i, j);
NEXT j
PRINT
NEXT i
 
SUB bbod (a(), n, m)
FOR i = 1 TO n
FOR j = 1 TO m
a(i, j) = INT(RND * 100 - 50)
NEXT j
NEXT i
END SUB

Объяснение кода листинга программы

В этом коде:

Объявляется подпрограмма с именем bbod, которая принимает три аргумента типа Variant (a(), n!, m!).
Задаются значения переменных n и m (5 и 5 соответственно).
Создается двумерный массив a размером 5x5.
Вызывается подпрограмма bbod с передачей в нее аргументов a(), n и m.
В основной программе выводятся значения всех элементов массива a.
В подпрограмме bbod заполняются все элементы массива a случайными числами в диапазоне от 0 до 100. Список элементов кода:
DECLARE SUB bbod (a!(), n!, m!)
CLS
n = 5
m = 5
DIM a(1 TO n, 1 TO m)
CALL bbod(a(), n, m)
FOR i = 1 TO n
FOR j = 1 TO m
PRINT a(i, j);
NEXT j
NEXT i
SUB bbod (a(), n, m)
FOR i = 1 TO n
FOR j = 1 TO m
a(i, j) = INT(RND * 100 - 50)
NEXT j
NEXT i
END SUB