GETSHARE()
 Determines the file open (share) mode
------------------------------------------------------------------------------
 Syntax

     GETSHARE() --> nShareMode

 Returns

     GETSHARE() returns the current share mode setting as a value between 0
     and 4.

 Description

     GETSHARE() determines the current share mode set with SETSHARE().  The
     coding that is used is described in this function.

 Example

     The current share mode:

     IF GETSHARE() == 4
        ? "Reading and writing permitted for other programs !"
     ENDIF