//Key is a simple function which return a code depending on 
//pressed key. It's a sort of ngetchx() but with _rowread
short key(void)
{
short value=0, pseudo_s=0;
while (value==0)
 {
   BEGIN_KEYTEST
   // [ESC] is pressed
   if   (_keytest_optimized(RR_ESC) && pseudo_s>500) value=ESC;
   // [ENTER] is pressed
   if   ((_keytest_optimized(RR_ENTER1) || _keytest_optimized(RR_ENTER2)) && pseudo_s>500) value=ENTER;
   // [CLEAR] is pressed
   if (_keytest_optimized(RR_CLEAR) && pseudo_s>500) off();
   // [+] is pressed
   if (_keytest_optimized(RR_PLUS) && pseudo_s>500) OSContrastUp();
   // [-] is pressed
   if (_keytest_optimized(RR_MINUS) && pseudo_s>500) OSContrastDn();
   // [LEFT] is pressed
   if (_keytest_optimized(RR_LEFT) && pseudo_s>500) value=LEFT;
   // [DOWN] is pressed
   if (_keytest_optimized(RR_DOWN) && pseudo_s>500) value=DOWN;
   // [RIGHT] is pressed
   if (_keytest_optimized(RR_RIGHT) && pseudo_s>500) value=RIGHT;
   // [UP] is pressed
   if (_keytest_optimized(RR_UP) && pseudo_s>500) value=UP;
   if (pseudo_s<502) pseudo_s++;
   END_KEYTEST
 }
return value;
}

//Key is a simple function which return a code depending on 
//pressed key. It's a sort of ngetchx() but with _rowread
short key(void)
{
short value=0, pseudo_s=0, key;
while (!value)
 {
   OSSetSR (0x0700);
   if (kbhit ())
      key = ngetchx ();
   OSSetSR (0x0000);

  if (pseudo_s>500)
   {
      switch (key)
      {
         case KEY_CLEAR:
           off (); break;
         case KEY_PLUS:
           OSContrastUp(); break;
         case KEY_MINUS:
           OSConstrastDn(); break;
         case KEY_ESC:
         case KEY_ENTER:
         case KEY_LEFT:
         case KEY_RIGHT:
         case KEY_UP:
         case KEY_DOWN:
           value = key;
      }
  }
  else if (pseudo_s>502) pseudo_s++;
}
return value;
}