R_EGAName()
 Retrieve the name of an INTERNAL (built-in) EGA font
------------------------------------------------------------------------------

 Syntax
        cFontName := R_EGAName ( nFontNr )

 Arguments
        nFontNr         Number of an INTERNAL EGA font.
                        nFontNr may range from 1 to R_MaxFnt ().

 Returns
        cFontName       Name of the INTERNAL EGA font.
                        If an error is detected cFontName will be NIL.

 Description
        Retrieves the name of an INTERNAL (built-in) EGA font.
        This function can, for example, be used to create a pick list
        with INTERNAL fonts.

 Example
        *-- Number of available internal fonts
        LOCAL   nMaxFnt := R_MaxFnt ()
        LOCAL   nCnt
        *-- Array with font names
        LOCAL   aIntFnt := {}
        LOCAL   nChoice

        *-- Fill the array with the names of the INTERNAL EGA fonts
        FOR nCnt := 1 TO nMaxFnt
                AAdd ( aIntFnts, R_EGAName ( nCnt ) )
        NEXT
        *-- Let the user choose a INTERNAL EGA font
        nChoice := AChoice ( 8, 23, 8 + nMaxFnt - 1, 56, aIntFnts )

        [ ... ]