Centered()
 Return an array containing centered co-ordinates.
-------------------------------------------------------------------------------

 Syntax:

     Centered( <nRows>, <nCols> ) --> <aDim>

 Description:

     <aDim> is an array containing the 4 co-ordinates of a centered rectangle
     with a height of <nRows> and a width of <nCols>.  The centering is
     determined using current MAXROW() and MAXCOL() settings.

 Example:

     The following draws a centered, shadowed box 10 rows high and 40 columns
     wide.

     LOCAL aDim       := Centered( 10, 40 )
     LOCAL cOldScreen := ShadowBox( aDim[ 1 ], aDim[ 2 ], ;
                                    aDim[ 3 ], aDim[ 4 ], 2 )


 Files:  Library is CUACLIP.LIB.