Дана квадратная матрица порядка M. Найти сумму элементов ее диагоналей - QBasic

CLS
RANDOMIZE TIMER
INPUT "M = "; m
DIM x(1 TO m, 1 TO m) AS LONG
 
FOR i = 1 TO m
FOR j = 1 TO m
   x(i, j) = 20 * RND - 10
   PRINT USING " ###"; x(i, j);
NEXT: PRINT
NEXT: PRINT
 
FOR i = 1 TO m
   S = S + x(i, i) + x(i, m + 1 - i)
NEXT
 
PRINT "SUMMA ="; S
END