GETFONT()
 Queries the current font
------------------------------------------------------------------------------
 Syntax

     GETFONT([<nFontArea>]) --> cFontString

 Argument

     <nFontArea>  Designates out of which font area within the screen
     adapter, the font is loaded into a string.  Values from 1 to MAXFONT()
     are permitted.

 Returns

     GETFONT() returns a font from the selected area in string form.

 Description

     GETFONT() transfers a font table from an available font area on the
     screen card into a string.  This allows you to store loaded fonts.

 Note

     .  If an invalid value is specified for <nFontArea>, the function
        returns a null string.

 Examples

     .  Save font 1 ...

        cVar  := GETFONT(1)

     .  ...and reset again:

        ? SETFONT(cVar, 1)      // 0, if OK