R_Pack() 
 Packs the current DBF file, displaying a progress bar
------------------------------------------------------------------------------


 Syntax
        R_Pack ( [ cHeader ] )

 Arguments
        cHeader         Header text for bar
                        Default text is : "PACKING: <Alias>"

 Returns
        NIL

 Description
        Packs the DBF file that is opened in the work area, displaying
        a progress bar.
        The function also OPTIMIZES related MEMO FILES.

        +----------------------------------------------------------------+
        |                         -+- CAUTION -+-                        |
        |                                                                |
        |     IN THE UN-REGISTERED  VERSION OF RBARLIB THE FOLLOWING     |
        |     REGISTRATION MESSAGE WILL BE DISPLAYED AT RANDOM TIMES     |
        |     (WHILE EXECUTING THE R_PACK() FUNCTION) :                  |
        |                                                                |
        |     Unregistered version of RBarLib - Wait for 8 seconds.      |
        |                                                                |
        |       AFTER A 8 SECONDS DELAY THE PROGRAM WILL CONTINUE.       |
        +----------------------------------------------------------------+

 Example
        *-- Pack the DBF-file PERSONS (and optimize the MEMO file)

        USE persons INDEX name,ident NEW

        R_Pack ( 'Just a moment, packing <PERSONS>' )

        More examples can be found in the demo program RBarDemo.PRG.