Get/Set the value of a pseudo-public variable
──────────────────────────────────────────────────────────────────────────────

 Syntax

        H_Publics( nSubscript , xNewValue )

 Arguments:

      nSubscript - Subscript of pseudo-public array to consider
      xNewValue  - New value to store in array (optional)

 Returns:

      Old value of array element

 Description:

      This function replaces all system PUBLIC variables by placing them
      in a STATIC array within the function.  Users can then call H_PUBLIC
      to Get or Set the value of a pseudo-public variable.

      The PUBLICS supported are as follows :
          Constant            Old PUBLIC
          P_CPASSWORD         cPassword
          P_CDEFAULTPATH      cDefaultPath
          P_CSYSTEMNAME       cSystemName
          P_CSUPPORT          cSupport
          P_CUSERNAME         cUserName
          P_LDEVELOPER        lDeveloper
          P_LERRORHANDLER     lErrorHandler
          P_NUSERLEVEL        nUserLevel
          P_NPASSWORDDAYS   9
          P_CDEFPRINTER     10
          P_CDEFPRINTFILE   11
          P_NUSERIDLEN      12
          P_CUSERFULLNAME   13
          P_LMODEUSER       14
          P_LBOTTOMLINE     15
          P_LMONO           16
          P_LEVALUATION     17
          P_CEVALTIME       18
          P_NEVALEXPIRE     19
          P_CPRINTER        20
          P_CTEMPDIR        21
          P_LUSE_SOS        22

 Examples:

      Get the user access level : nLevel := H_Publics( P_NUSERLEVEL )
      Change the default path   : H_Publics( P_CDEFAULTPATH , "C:\TEMP" )

 Header File: H_LIB52.CH

 Source: ESPUBLIC.PRG

 Author:  Martin Colloby - adapted from an idea by Craig Yellick