NAME: GetFillSettings

     USE: The current fill pattern and fill color is returned through
          this procedure.  It returns a variable of type FillSettingsType.

                        FillSettingsType = Record
                           Pattern : Word;
                           Color   : Word;
                        end;

     DEPENDENCY:  Must first be in graphics mode.  The unit Graph
                  must also be placed in the uses section.

     SYNTAX:  GetFILLSettings(Var FillInfoValue : FillSettingsType)