GraphBar()

         Bar graphics with Clipper!!

    Syntax:

         GraphBar( cTitle, aArray1, aArray2, aArray3, aArray4, ;
                   nTypeBar ) -> Nil

         cTitle   : Title or legend of graphic
         aArray1  : contain a legend and an array of values for the graphic.
         aArray2  :  "
         aArray3  :  "
         aArray4  :  "
         nTypeBar : Bar Type
                      0 : Default, normal bar
                      1 : top pyramidal bar
                      2 : bottom pyramidal bar
                      3 : cylindric bar

    Description:

         It generates bar graphics in Clipper. It only works in EGA
         and VGA.

         The number of bars will be the highest size of the 4 subarrays.
         This function is made from other functions of Fast Library, so
         if you do not like it, you can make your own directly. The only
         objective is to save you some work.

         Fast offers the resources to rebuild this function if there is
         something in it that you would like to modify more to you liking.
         The only thing needed is some simple knowledge of Plain Geometry.

    Return:

         Nothing.

    Example:

         SetVGA ()
         GraphBar ( "GraphBar Demo", ;
                    { "HP",       { 481, 212, 212, 266, 699, 312 } }, ;
                    , ;
                    { "DEC",      { 481, 212, 212, 266, 699, 312 } }, ;
                    { "IBM",      { 281, 332, 212, 557, 499, 612 } }, ;
                    1 )
         Inkey (0)
         TxtMode ()