sources/int/inkeyos2.c

   1 #define         INCL_BASE\r
   2 #include        <os2.h>\r
   3 \r
   4 int pascal inkey(dummy)\r
   5 int *dummy;\r
   6 {\r
   7     KBDKEYINFO kdata;\r
   8     int i;\r
   9     unsigned u;\r
  10         \r
  11     KbdPeek(&kdata, 0);\r
  12     if (kdata.fbStatus)\r
  13     {\r
  14         KbdCharIn(&kdata, 0, 0);\r
  15         if (kdata.chChar != '\0')\r
  16         {\r
  17             u = kdata.chChar;    \r
  18             return(u);\r
  19         }\r
  20         else\r
  21         {\r
  22             i = kdata.chScan;\r
  23             if (i < 0x80) return(-i);  else return(i);\r
  24         }\r
  25     }\r
  26     else\r
  27         return(0);\r
  28 }\r