Fill a two dimensional array

/*
AFIL2.prg : Fill a two dimensional array with a fixed value
 
*/
PROCEDURE Main()
 
   SetMode( 25, 80 ) 
   CLS
 
   aArray := ARRAY( 5, 2 )
 
   AEVAL( aArray, { | a1 | QOUT( a1[ 1 ], a1[ 2 ] ) } )
 
   AEVAL( aArray, { | a1 | AFILL( a1, 0 ) } )
 
   AEVAL( aArray, { | a1 | QOUT( a1[ 1 ], a1[ 2 ] ) } )
 
   SETPOS( 23, 0 ) 
   WAIT "EOF AFIL2.prg"
RETURN // Main()