Replacement Get reader
──────────────────────────────────────────────────────────────────────────────

 Syntax

        H_ReadModal( GetList , aGetExitKeys , nPos )

 Arguments:

      GetList      - Array of GET objects
      aGetExitKeys - Array of key codes that will cause exit
      nPos         - Start position in GET array

 Returns:

      Last key pressed

 Description:

      Works in the same way as ReadModal(), but exit is possible via
      any key passed in aGetExitKeys instead of just by the standard
      Clipper GET handler keys.

 Examples:



 Header File: H_LIB52.CH

 Source: GETSYS.PRG

 Author:  Nantucket - Modified by Martin Colloby