[Immo\Nissan\Terrano 05e6  7931]
Size(280,380); // ширина и высота
!Калькулятор транспондера philips 33 
!для Nisan  , 
!IMMO - MCU HC05E6 
!в буфер программы должен быть загружен файл MCU 05E6
!
!
!  CPI 2008 
!
!
Form
{	Group("Информация",5,5,170,70) { Label(message," ",0,30); }
	Group("Описание",5,75,270,70) {
        	Label(lb4,"Калькулятор Nissan Terrano",0,17);
        	Label(lb5,"выдаёт данные для транспондера philips 33",0,32);
        	Label(lb6," MCU  HC05E6 ",0,47);}
        Group("Ключ №1",5,155,270,40) {Label(message1," ",0,17);}
	Group("Ключ №2",5,195,270,40) {Label(message2," ",0,17);}
	Group("Ключ №3",5,235,270,40) {Label(message3," ",0,17);}
	Group("Ключ №4",5,275,270,40) {Label(message4," ",0,17);}


    	Picture(Picture1,"nissan.bmp",190,5,0,0);	
	Label(msg," ",0,320);				        }

OnShow
{	msg.Color=0x00FF00; msg.Bold=1;	msg=" CPI ";
	
       var0=0;

	if(@0x10=0xFF){var0=var0+1;} if(@0x11=0xFF){var0=var0+1;}
	
	if(var0=2){message.bold=1; message.Color=0x0000FF; message="Неверный дамп !";}
	
else
{
	var0=0;	
        if(@0x00=0x21){Var0=var0+1;} if(@0x20=0xFF){Var0=var0+1;} 
  	if(var0=2){message.Bold=1; message.Color=0x0000FF; message="Cделайте swap bytes!!! !";
	message1.Bold=1; message1.Color=0x000FFF; message1="Не опознан !";
	message2.Bold=1; message2.Color=0x000FFF; message2="Не опознан !";
	message3.Bold=1; message3.Color=0x000FFF; message3="Не опознан !";
	message4.Bold=1; message4.Color=0x000FFF; message4="Не опознан !";}

   else{
	
        message.Bold=1; message.Color=0xFF0000; message="Дамп  Ok"; var21=0; while(var21!=10000){var21=var21+1;}
      	
     

	var21=0; while(var21!=10000){var21=var21+1;}
	message.Color=0x000FFF; message.Bold=1; var20=0; 
	while(var20!=101){message="Обработка данных : "+#i.Var20+"%"; var21=0; while(var21!=1000){var21=var21+1;} var20=var20+1;}
	message.Color=0xFF0000; message.Bold=1; message="Please wait...."; var21=0; while(var21!=10000){var21=var21+1;}
	

else { 
      var0=0;
        
        message1.Bold=1; message1.Color=0xFF00FF; 
	message1="30" +#b.@0x16 +#b.@0x17 +#b.@0x18 +#b.@0x19 +#b.@0x1A +#b.@0x1B 
                      +#b.@0x16 +#b.@0x17 +#b.@0x18 +#b.@0x19 +#b.@0x1A +#b.@0x1B   +"F8"  +"0F"  +"1C";}                           

	if(@0x16=0xFF){message1.Bold=1; message1.Color=0x0000FF; message1="Не прописан !";}
else { 
      var0=0; 
       
        message2.Bold=1; message2.Color=0xFF00FF; 
	message2="30" +#b.@0x24 +#b.@0x25 +#b.@0x26 +#b.@0x27 +#b.@0x28 +#b.@0x29 
                      +#b.@0x24 +#b.@0x25 +#b.@0x26 +#b.@0x27 +#b.@0x28 +#b.@0x29   +"F8"  +"0F"  +"1C";}                           

	if(@0x24=0xFF){message2.Bold=1; message2.Color=0x0000FF; message2="Не прописан !";}
else { 
      var0=0;
        
        message3.Bold=1; message3.Color=0xFF00FF; 
	message3="30" +#b.@0x32 +#b.@0x33 +#b.@0x34 +#b.@0x35 +#b.@0x36 +#b.@0x37 
                      +#b.@0x32 +#b.@0x33 +#b.@0x34 +#b.@0x35 +#b.@0x36 +#b.@0x37   +"F8"  +"0F"  +"1C";}                           

	if(@0x32=0xFF){message3.Bold=1; message3.Color=0x0000FF; message3="Не прописан !";}
else { 
      var0=0;
        
        message4.Bold=1; message4.Color=0xFF00FF; 
	message4="30" +#b.@0x40 +#b.@0x41 +#b.@0x42 +#b.@0x43 +#b.@0x44 +#b.@0x45 
                      +#b.@0x40 +#b.@0x41 +#b.@0x42 +#b.@0x43 +#b.@0x44 +#b.@0x45   +"F8"  +"0F"  +"1C";}                           

	if(@0x40=0xFF){message4.Bold=1; message4.Color=0x0000FF; message4="Не прописан !";}




   
        message.Bold=1; message.Color=0xFF0000; message="Готово"; var21=0; while(var21!=10000){var21=var21+1;}


}}}}

OnApply{}



