Function:    SetFonts()

               Using this function, one can define which font
               block should be used. Using this function makes
               it possible to load a 512 character set by
               allocating two fonts. When allocating 512
               characters (ie. 2 sets), one could use the
               Palette functions to make a consistent set of 8
               colors.

  Syntax:      SetFonts(Nr1,Nr2)

  Arguments:   <Nr1> and <Nr2> are the font block numbers to
               allocate, they must be between 0 and
               MaxFonts()-1. <Nr1> indicates which font to use
               when the character attribute is normal (No
               brightness, ie. No + after the color definition
               in Clipper), <Nr2> indicates which font block
               to use when the color is bright (ie. defined
               with + in Clipper). Note that <Nr1> and <Nr2>
               can be equal, note also that the fonts must
               have been loaded into the EGA/VGA by the
               LoadFont() function.

  Returns:     Nothing.

  Usage:       * - For example, Load two Fonts (in an EGA):
               Use EGAFONTS index EGAFONTS
               Seek 'HELVETIC'
               LoadFont(0,FONTDATA,14)
               Seek 'HELVBOLD'
               LoadFont(1,FONTDATA,14)
               * - Now, Helvetic for normal, Bold for Bright.
               SetFonts(0,1)
               use