L {0xfe, 0xfd, 0xfb, 0xf7, 0xef, 0xdf, 0xbf, 0x7f}
R {0x7f, 0xbf, 0xdf, 0xef, 0xf7, 0xfb, 0xfd, 0xfe}
{0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,0x7f,0x6f,0x77,0x7c,0x39,0x5e,0x79,0x71}

unsigned char KeyScan(void)
{
 unsigned char cord_h,cord_l;
 KeyPort=0x0f;
 cord_h=KeyPort&0x0f;
 if(cord_h!=0x0f)
 {
  DelayMs(10);
  if((KeyPort&0x0f)!=0x0f)
  {
    cord_h=KeyPort&0x0f;
    KeyPort=cord_h|0xf0;
    cord_l=KeyPort&0xf0;

    while((KeyPort&0xf0)!=0xf0);

    return(cord_h+cord_l);
   }
  }return(0xff);
}

unsigned char KeyPro(void)
{
 switch(KeyScan())
 {
  case 0x7e:return 0;break;//0
  case 0x7d:return 1;break;//1
  case 0x7b:return 2;break;//2
  case 0x77:return 3;break;//3
  case 0xbe:return 4;break;//4
  case 0xbd:return 5;break;//5
  case 0xbb:return 6;break;//6
  case 0xb7:return 7;break;//7
  case 0xde:return 8;break;//8
  case 0xdd:return 9;break;//9
  case 0xdb:return 10;break;//a
  case 0xd7:return 11;break;//b
  case 0xee:return 12;break;//c
  case 0xed:return 13;break;//d
  case 0xeb:return 14;break;//e
  case 0xe7:return 15;break;//f
  default:return 0xff;break;
 }
}