sbit LCD_RS at RA0_bit;
sbit LCD_EN at RA1_bit;
sbit LCD_D4 at RB4_bit;
sbit LCD_D5 at RB5_bit;
sbit LCD_D6 at RB6_bit;
sbit LCD_D7 at RB7_bit;
sbit LCD_RS_Direction at TRISA0_bit;
sbit LCD_EN_Direction at TRISA1_bit;
sbit LCD_D4_Direction at TRISB4_bit;
sbit LCD_D5_Direction at TRISB5_bit;
sbit LCD_D6_Direction at TRISB6_bit;
sbit LCD_D7_Direction at TRISB7_bit;

;extern sfr sbit LCD_RS
;extern sfr sbit LCD_EN
;extern sfr sbit LCD_D7
;extern sfr sbit LCD_D6
;extern sfr sbit LCD_D5
extern sfr sbit LCD_D4;  
extern sfr sbit LCD_RS_Direction;
extern sfr sbit LCD_EN_Direction;
extern sfr sbit LCD_D7_Direction; 
extern sfr sbit LCD_D6_Direction;  
extern sfr sbit LCD_D5_Direction;  
extern sfr sbit LCD_D4_Direction;

sbit LCD_RS at RB4_bit;

void keypad(char state)
{
    if( state is 1){ cont=cont1=0;}
    kp=0;number=0;
    kp=Keypad_Key_Click();
    if( kp is 1 )       number=7;
    else if( kp is 2  ) number=4;
    else if( kp is 3  ) number=1;
    else if( kp is 5  ) number=8;
    else if( kp is 6  ) number=5;
    else if( kp is 7  ) number=2;
    else if( kp is 8  ) number=0;
    else if( kp is 9  ) number=9;
    else if( kp is 10 ) number=6;
    else if( kp is 11 ) number=3;
    else if( kp is 12 ) kp=12;// inter  (#)
    else if( kp is 4  ) kp=4;// (*): delete number if writing worng number
    else if( kp is 13 ) kp=13;
    else if( kp is 14 ) kp=14;
    else if( kp is 15 ) kp=15;
    else if( kp is 16 ) kp=16;
    else kp=255;
    if(cont3>150 && cont3<300) //20 sec
        {
          PWM1_Set_Duty(127);//
        }
    else if(cont3>=300)
        {
         PWM1_Stop();
        }
    if(kp !=255)
        {
          cont3=0;
          Sound_Play(2500,20);
          PWM1_Start();
          PWM1_Set_Duty(255);  // ; 
        }

}