FillPattern              Fills an Area with a Pattern

 FillPattern(X1,Y1,X2,Y2,Color : Integer);                            [XG/TP]

    Fills a rectangular area with a pattern previously defined using the
    Pattern procedure.

           X1,Y1    Screen coordinates (column, row); upper-left corner of
                    area in pixels.

           X2,Y2    Screen coordinates (column, row); lower-right corner
                    of area in pixels.

           Color    Color of pattern; 0..3 selects appropriate color from
                    palette (See Palette); -1 selects color from color
                    translation table (See ColorTable).

  -------------------------------- Example ---------------------------------

           Pattern(Checks);                 { user-defined pattern }
           FillPattern(80,48,111,79,1);     { fill rectangle }