sbit LCD_RS at RA4_bit; // porta za komunikacija za LCD e A
sbit LCD_EN at RA5_bit;
sbit LCD_D4 at RA0_bit;
sbit LCD_D5 at RA1_bit;
sbit LCD_D6 at RA2_bit;
sbit LCD_D7 at RA3_bit;
sbit LCD_RS_Direction at TRISA4_bit;
sbit LCD_EN_Direction at TRISA5_bit;
sbit LCD_D4_Direction at TRISA0_bit;
sbit LCD_D5_Direction at TRISA1_bit;
sbit LCD_D6_Direction at TRISA2_bit;
sbit LCD_D7_Direction at TRISA3_bit;

char KeypadPort at PORTD; // porta za komunikacija za Keypad e D
int kp;
int length;
char bukva;
char celosen[3];
int prva_cifra = 0;
int vtora_cifra = 0;
ANSEL = 0x00;
ANSELH = 0x00;
TRISB.B0 = 0xFF; // senzor za detekcija na moneta vo avtomatot (rb0)
TRISB.B1 = 0xFF; // b1,b2,b3 se za detekcija na vidot na monetata (vlezni)
TRISB.B2 = 0xFF;
TRISB.B3 = 0xFF;

Lcd_Init();
while(1){
Lcd_Cmd(_LCD_CLEAR);
Lcd_Cmd(_LCD_CURSOR_OFF);
Lcd_Out(1,1,"Vnesi parking ID");
do{
   kp = 0;
   do
   kp = Keypad_Key_Click();
   while(!kp);

   switch (kp)
   {
          case 1: kp = 49; break; // 1
          case 5: kp = 50; break; // 2
          case 9: kp = 51; break; // 3
          case 13: kp = 52; break; //4
          case 2: kp = 53; break;//5
          case 6: kp = 54; break;//6
          case 10: kp = 55; break;//7
          case 14: kp = 56; break;//8
          case 3: kp = 57; break;//9
          case 7: kp = 48; break; // 3
          case 11: kp = 33; break;// +
          case 15: kp = 34; break;// -
          case 4: kp = 65;  break;//A
          case 8: kp = 66;  break;//B
          case 12: kp = 67; break;//C
          case 16: kp = 1; break;//ENTER
      }

      if(kp != 16 && (kp == 65 || kp == 66 || kp == 67) && (kp !=33 && kp !=34) && length == 0){
       bukva = kp - '0';
       length++;
      }                 //prviot vnes da ne e cifra, da ne e enter i da ne e plus ili minus
      else if(kp != 16 && (kp !=33 && kp !=34) && length == 1){
      prva_cifra = kp - '0';
      length++;
      }
      else if(kp != 16 && (kp !=33 && kp !=34) && length == 2){
      vtora_cifra = kp - '0';
      length++;
      }
      else if(length == 3){
           celosen[0] = bukva;
           IntToStr(prva_cifra,celosen[1]);
           IntToStr(vtora_cifra,celosen[2]);
           //vo celosen ja cuvam cela sifra, pr. B32, C23 (to so trebit da go proveram vo EEPROM)

      }

      else {
      Lcd_Cmd(_LCD_CLEAR);
      Lcd_Cmd(_LCD_CURSOR_OFF);
      Lcd_Out(1,1,"Greska");
      } //pogresen vnes
}while(1);

}