Определить количество единичных диагоналей в матрице - QBasic

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

Задан квадратный массив А из N строк и N столбцов, элементы которого нули и единицы.Установить в нем количество единичных диагоналей.

Помогите пожалуйста!

Решение задачи: «Определить количество единичных диагоналей в матрице»

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

CLS
RANDOMIZE TIMER
n = 7
 
DIM A(1 TO n, 1 TO n) AS INTEGER
 
FOR i = 1 TO n
FOR j = 1 TO n
   A(i, j) = RND + .1
   PRINT USING "###"; A(i, j);
NEXT j: PRINT
NEXT i: PRINT
 
FOR k = 1 - n TO n - 1
   FOR i = 1 TO n
   FOR j = 1 TO n
      IF i - j <> k THEN 100
      IF A(i, j) = 0 THEN 200
100 :
   NEXT j
   NEXT i
   kol = kol + 1
200 :
NEXT k
 
FOR k = 2 TO 2 * n
   FOR i = 1 TO n
   FOR j = 1 TO n
      IF i + j <> k THEN 300
      IF A(i, j) = 0 THEN 400
300 :
   NEXT j
   NEXT i
   kol = kol + 1
400 :
NEXT k
 
PRINT "kol = "; kol
END

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

Создается матрица A размером n на n, заполняется случайными числами от 0 до 1
Выполняется два вложенных цикла, которые проходят по всем элементам матрицы A. Если элемент равен 0, то увеличивается счетчик kol
Выполняется еще два вложенных цикла, которые также проходят по всем элементам матрицы A. Если элемент равен 0, то увеличивается счетчик kol
В конце программы выводится значение переменной kol, которое и является ответом на задачу