Initialise a system
──────────────────────────────────────────────────────────────────────────────

 Syntax

        H_SystemInit( cProfVar , lLogOn , aTables , lCheckEnv )

 Arguments:

      cProfVar    - Profile variable to find for default path
      lLogOn      - If .T. , call H_LogOn()
      aTables     - Array of tables to check for
      lCheckEnv   - If .T. check the CLIPPER environment variable

 Returns:

      NIL

 Description:

      Performs a system intitialisation as follows :

          Sets the video mode to 80*25
          Links in the error handler if required
          Outputs a blank box with an "initialising" message
          Set the following : SETCANCEL( H_Publics( P_LDEVELOPER ) )
                              SET CENTURY OFF
                              SET CONFIRM OFF
                              SET CURSOR OFF
                              SET DATE TO BRITISH
                              SET DELETED ON
                              SET EXACT ON
                              SET EPOCH 1939
                              SET SCOREBOARD OFF
                              SET SOFTSEEK OFF
          Checks that enough file handles are available
          Checks that the required environment variable exists
          Checks that the system tables are present
          Logs the user in if required


 Examples:



 Header File: H_LIB52.CH

 Source: SYSINIT.PRG

 Author:  Martin Colloby