sources/new-s5r4/inkeyos2.c

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