SetMaxFonts Sub

 Action
 Sets the maximum number of fonts that are allowed to be registered and
 loaded.

 Syntax
  SetMaxFonts ( maxregistered%,  maxloaded%)


 Remarks
 The  SetMaxFonts procedure uses the following arguments.

-----------------------------------------------------------------------------
 Argument                                Description
 ----------------------------------------------------------------------------
  maxregistered%                         An integer that specifies the
 Argument                                Description
 ----------------------------------------------------------------------------
  maxregistered%                         An integer that specifies the
                                         maximum number of fonts that can
                                         be registered.

  maxloaded%                             An integer that specifies the
                                         maximum number of fonts that can
                                         be loaded.





 The  SetMaxFonts procedure allocates a maximum number of font-header
 elements to hold font information. The font information is registered when
 the  RegisterFonts% function is called. Therefore,  SetMaxFont is called
 prior to  RegisterFonts% or  LoadFont%. If  SetMaxFonts is not called, the
 default number is 10.

  SetMaxFonts acts as a complete reinitialization by removing any previously
 registered or loaded fonts from memory and then setting the new maximum
 limits of fonts that can be loaded or registered.