CREATE CURSOR Diagonal (stroka C( 20 ), polie1 I, polie2 I, polie3 I, polie4 I, polie5 I)

FOR i =  1  TO  5  
  INSERT INTO Diagonal (stroka, polie1, polie2, polie3, polie4, polie5) ;
     VALUES ('Line '+ TRANSFORM(i), RAND()* 10 , RAND()* 10 , RAND()* 10 , RAND()* 10 , RAND()* 10 )
ENDFOR 

brow nowait 

suma =  0  
GO TOP IN Diagonal

FOR i =  1  TO  5  
   suma = suma + EVALUATE('diagonal.polie' + TRANSFORM(i)) ;
             + IIF(i #  3 , EVALUATE('diagonal.polie' + TRANSFORM( 6 -i)),  0 )  
   SKIP  1  IN Diagonal    
ENDFOR 

INSERT INTO Diagonal (stroka, polie1) VALUES('Suma diagonalei', suma)