Ask the user a question
──────────────────────────────────────────────────────────────────────────────

 Syntax

        GT_AskUser(<cMessage>,<aKeys>,[<cTitle>], ;
                   [<cColour>],[<cBox>],[<nTop>],[<nLeft>], ;
                   [<nBottom>],[<nRight>],[<nSeconds>]) ;
        -> nResponce

 Arguments:

      <cMessage> is the message to display.

      <aKeys> is an array of legal INKEY() values

      <cTitle> is an optional title.

      <cColour> is an optional colour string.

      <cBox> are optional box lines.

      <nTop>,<nLeft>,<nBottom> and <nRight> fix the position
      of the window.

      <nSeconds> is the time to wait for a responce.

 Returns:

      nResponce

 Description:

      To display a message, ask the user a question, wait
      for a responce and restore the screen.

 Examples:

 Source: GT_ASKUS.PRG

 Author:  Martin Bryant