R_CPName() 
 Determines the original name of a compressed file
------------------------------------------------------------------------------

 Syntax
        cFileName := R_CPName ( cCmpFile )

 Arguments
        cCmpFile        File specification of a compressed file
                        Format  : [drive:][\path\]filename[.ext]
                        Example : C:\INVOICE\INVOICE.#BF

 Returns
        cFileName       Original name of the compressed file.
                        If an error is detected (p.e. the specified input
                        file doesn't exist) a NIL pointer will be returned.
                        The error can be examined using the R_LastErr ()
                        function.

 Description
        Determines what the file name of a file was before it was
        compressed by R_Compress ().

 Example
        *-- Compresses the file INVOICE.DBF => INVOICE.#BF and determines
        *--     the original file name

        *-- header file of RCmpLib
        #include "RCmpLib.CH"

        LOCAL   nRetCode                        && Return code R_Compress

        nRetCode := R_Compress ( 'INVOICE.DBF', 'INVOICE.#BF' )

        IF nRetCode = CP_OKAY
                *-- Compression okay : delete the original file
                FErase ( 'INVOICE.DBF' )

                ?'The original name of INVOICE.#BF was : ', ;
                        R_CPName ( 'INVOICE.#BF' )
                *-- Results to : 'INVOICE.DBF'
        ENDIF