Locate - Переместить двумерный массив в центр - QBasic

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

Необходимо переместить двумерный массив в центр. Но когда изменяю второе значение, переносится только первая строка массива. С первым значением проблем не возникло. Как тогда изменить положение текста?

Решение задачи: «Locate - Переместить двумерный массив в центр»

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

CLS
DIM A(4, 4)
FOR I = 1 TO 4: FOR J = 1 TO 4: A(I, J) = I * J: NEXT J: NEXT I
FOR I = 1 TO 4: FOR J = 1 TO 4
LOCATE I, J * 8: PRINT A(I, J);
NEXT J: NEXT I

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

Задается размер массива A(4, 4).
Заполняется массив A значениями I * J.
Устанавливается начальная позиция для вывода массива (1,1).
Выполняется вывод элементов массива с заданной позиции в цикле от 1 до 4.