NAME: Bar

     USE: Procedure to draw a filled in rectangle.  It uses the procedures
          SetFillStyle and SetFillPattern as the filling attributes.
          Errors area returned through GraphResult.

     DEPENDENCY: Must be in graphics mode and the Graph unit must be
                 placed in the uses section.

     SYNTAX: Bar(X1, Y1, X2, Y2);  All values are integers.


     EXAMPLE:  Bar(10,10,80,80);