function  __keyword(k: _keys): word;

   PowerTools Keyboarde Functions made easy.
   Returns key, using __getkey;
   Change keypoller := NIL; to keypoller := @keyprocedure
   if you want a procedure to be called between keypollings.

   Where:
     keyprocedure(var reg: registers); far;