R_FntName()
 Retrieve the name of the current font
------------------------------------------------------------------------------

 Syntax
        cFontName := R_FntName ()

 Arguments
        None

 Returns
        cFontName       Name of the current screen font.
                        1) For the Default ROM Font :
                                cFontName = 'Default ROM font'
                        2) For an INTERNAL font :
                                cFontName = Name of the internal font
                        3) For an EXTERNAL font, loaded from FILE :
                                cFontName = Filespec of the font file
                        4) For an EXTERNAL font, loaded from STRING :
                                cFontName = 'Font loaded from string' OR
                                the font name as passed to the R_FntStr ()
                                function

 Description
        Retrieves the name of (or description for) the current screen font.

 Example
        See the demo program RFntDemo.PRG for examples.