Calculo de la Diagonal Inversa En una matriz cuadrada Visual Foxpro 6.0

Con este Codigo pueden determinar la suma de la diagonal inversa en el lenguaje de programación visual fox pro 6.0.

Espero les sirva de mucha ayuda en el desarrollo de software bajo Visual FoxPro 6.0

En el primer bucle se carga la matriz y en el segundo bucle se suma la inversa.

CLEAR
VLOR=0
F=1
C=1
ACUMULADOR=0
DIMENSION CUADRADA(4,4)
DO WHILE F<=4
DO WHILE C<=4
@4,4 GET VLOR
READ
STORE VLOR TO CUADRADA(F,C)
C=C+1
VLOR=0
ENDD
F=F+1
C=1
ENDD
F=1
C=4
ACUMULAD=0
DO WHILE F<=4
ACUMULAD=ACUMULAD+CUADRADA(F,C) TSU JOSE GILBERTO MEDINA
C=C-1
F=F+1
ENDD
? "LA SUMA DE LA DIAGONAL INVERSA:"
? ACUMULAD