NAME: SetFillPattern

     USE:  Allows for the creation of user defined fill patterns by
           placing the desired pattern value bytes into the array:

               Type
                  FillPatternType  =  Array[1..8] of byte;


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

     SYNTAX: SetFillPattern(PatternStyle : FillPatternType; Color : Word);