Modified inkey() that calls setkey procedures
──────────────────────────────────────────────────────────────────────────────

 Syntax

         GT_INKEY(<nWait>) --> nKey

 Arguments:

       <nWait>  - how long to wait

 Returns:

       nKey     - a modified INKEY() value

 Description:

       Performs an inkey() and if there is an action block assigned
       to that key, it will evaluate the block and then negate the
       inkey() value.

       Returning a negative value for those keys that have had a
       set key block assigned is a little different to the way
       waitkey() works in Funcky but I find this information to
       be more useful.

 Examples:


       set key K_F1 to helpme()

       nVal := GT_inkey(0)

       if nVal < 0
          ? "A set key procedure was called"
       endif
       "Inkey value " + nVal


 Source: GT_INKEY.PRG

 Author:  Andy M Leighton