EXENAME()
 Returns name and directory of the current CA-Clipper program
------------------------------------------------------------------------------
 Syntax

     EXENAME() --> cProgram

 Returns

     EXENAME() returns the name and path of the current .EXE program.

 Description

     This function determines the name and path of the CA-Clipper application
     in use.

 Note

     .  Use the TOKEN() function to determine the name portion of a
        program within a path.

 Example

     Determine if the name or path of an EXE file has changed:

     cOrigPath  :=  "C:\DATA\ADDRESS.EXE"
     IF EXECNAME() <> cOrigPath
        ? "Program name or directory have been changed!"
        QUIT
     ENDIF