unsigned short kp[]={0,0,10,9,8,0,7,6,5,0,4,3,2,0,0,1,0},kp1, clavier,pin[]={1,9,8,7},chiffr,nmb,error,a,puk[]={1,2,3,4,5,6,7,8}  ;

void ok () {          
lcd_out(1,1,"code ok");        
portd.f0=1;                             
delay_ms(1000);                         
}
void delay() {                   
delay_ms(300);
}
void lcdclv ()  {                  
for(nmb=0;nmb<4;nmb++) {            
lcd_cmd(lcd_second_row);            
error=0;                          
for(chiffr=0;chiffr<a;chiffr++) {    
do {                                
clavier = Keypad_Released();
kp1=kp[clavier] ;
clavier = kp1;
} while(!clavier);
clavier--;                        
if(clavier!=pin[chiffr] ) {if (a==4) {error=1;} }        
if(clavier!=puk[chiffr] ) {  if (a==8) { error=1;  }  }
lcd_chr_cp(clavier+48);                                
}
if(error==0) { ok ();  break;}                         
if(error==1) { 
 lcd_out(1,1,"wrong code"); 
 delay();
 lcd_cmd(lcd_clear);
 if (nmb<3) 
 lcd_out(1,1,"try again"); }  
delay_ms(300);
}
}

void main ()  {
int alarm=0;
start:
a=4;
trisd=0;
portd.f0=0;
lcd_init(&portb);
keypad_init(&portc);
lcd_cmd(lcd_cursor_off);
lcd_out(1,1," welcome ");
delay();
lcd_cmd(lcd_clear);
lcd_out(1,1,"enter PIN");
lcdclv();
if (error==0) goto start;
lcd_cmd(lcd_clear);
lcd_out(1,1,"pin blocked");
delay();
a=8;
lcd_out(1,1,"enter PUK");
lcdclv();
if(error==0) goto start;
lcd_out(1,1,"systeme blocked");
while(1) {
portd.f1=0;
delay_us(500);
portd.f1=1;
delay_us(500);
alarm++;
if(alarm==5000) break;
}
}

int i=0;
void main()
{
 int j;
 trisa=trisc=trisd=1;
 trisb=trise=0;

 while(1)
 {
 check:
  if(porta.f0) goto go_in;
  if(porta.f1) goto go_out;
  if(porta.f4) goto main_gate;
  go_in:
        if(i<3)
        {portb.f0=1;
        delay_ms(300);
         if(porta.f2)
         { portb.f0=0;
           portb.f1=1;
           delay_ms(300);
           i++;
           for(j=0;j<10;j++)
           delay_ms(6000);
           portb.f1=0;}
           }
           else goto nopass;
  nopass: portb.f0=0;  goto check;
  go_out:
        do{
        portb.f2=1; //delay_ms(300);
        } while(portb.f3=0);
        portb.f2=0;
        i--;
        goto check;
  main_gate:
          portb.f6=portb.f7=1;
          delay_ms(30000);
          if(!porta.f4)
          portb.f6=0;
          for(j=0;j<10;j++)
          delay_ms(6000);
          portb.f6=0;
          for(j=0;j<50;j++)
            delay_ms(6000);
          portb.f7=0;
          goto check;
          }}