NAME: Bar3D

     USE: Draws a filled in 3-Dimensional bar using SetFillStyle,
          SetFillPattern, and the current line style and color as the
          filling attributes.  A 3-D top can also be added.

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

     SYNTAX: Bar3D(X1, Y1, X2, Y2, Depth, Top);
             Bar3D(Integer, Integer, Integer, Integer, Word, Boolean);

     EXAMPLE: Bar3D(10,10,100,100,61,TopOn);