R_EGAFnt()
 Install one of the INTERNAL (built-in) EGA fonts
------------------------------------------------------------------------------

 Syntax
        nRetCode := R_EGAFnt ( nFontNr )

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

 Returns
        nRetCode        0 - FL_OKAY          : No errors detected
                        1 - FL_INVALID_PARMS : Invalid parameter passed

                        N.B. the return codes are pre-defined in the header
                                file RFntLib.CH

 Description
        Installs one of the INTERNAL (built-in) EGA fonts.
        Use the R_MaxFnt() function to obtain the number of INTERNAL
        fonts in the library.
        Use the R_EGAName() function to obtain the names of the INTERNAL
        fonts.

        +----------------------------------------------------------------+
        |                         -+- CAUTION -+-                        |
        |                                                                |
        |     IN THE UN-REGISTERED  VERSION OF RFNTLIB THE FOLLOWING     |
        |     REGISTRATION MESSAGE WILL BE DISPLAYED AT RANDOM TIMES     |
        |     (WHILE EXECUTING THE R_EGAFNT FUNCTION) :                  |
        |                                                                |
        |     Unregistered version of RFntLib - Wait for 8 seconds.      |
        |                                                                |
        |       AFTER A 8 SECONDS DELAY THE PROGRAM WILL CONTINUE.       |
        +----------------------------------------------------------------+

 Example
        See the demo program RFntDemo.PRG for good a example.