Помогите с кодом QBasic

у меня есть задача на QBasic: Матрица А состоит из 6 строк и 6 столбцов. Найти номера столбцов,
все элементы которых равны нулю.
и программа: (но она работает как то коряво, можете посмотреть в чем там ошибка :))

10 CLS

20 DIM A(6, 6)

40 FOR i = 1 TO 6

50 FOR j = 1 TO 6

60 INPUT A(i, j)

70 NEXT j

80 NEXT i

90 FOR j = 1 TO 6

100 S = 0

110 FOR i = 1 TO 6

120 IF A(i, j) MOD 2 = 0 THEN S = S + 1

130 NEXT i

140 B(k) = S : k = k + 1

150 NEXT j

160 FOR k = 1 TO 6

170 PRINT B(k);

180 NEXT k

190 END