sf_cua_progress_h   Functions display a horizontal progress bar
------------------------------------------------------------------------------

    procedure sf_cua_progress_h prototype
      parameters value long the_total,;
                 value long the_current,;
                 value int the_row,;
                 value int the_col,;
                 value int the_length,;
                 value byte progress_color,;
                 value int window_color

     The progress functions display a horizontal progress bar in the
     given colors etc.

     Example:

     for cnt = 0 to 5000
       sf_cua_progress_h( 5000, cnt, 10, 10, 50, &WHITE_BLUE, &CUA_WHITE )
     next