[Immo\Car\Citroen\Saxo\Valeo v1]
Size(280,320); // ширина и высота
!Калькулятор транспондера Philips 33 
!для Citroen Saxo, 
!IMMO - Valeo
!MCU: 
!EEPROM: 93C46
!в буфер программы должен быть загружен файл еепром 93C46
!
!
!Autor:  telik@ukrwest.net   2008 
!
!
Form
{	Group("Информация",5,5,170,50) { Label(message," ",0,20); }
	Group("Описание",5,55,270,100) {
        	Label(lb4,"Калькулятор иммобилайзера для CITROEN",0,17);
        	Label(lb5,"выдаёт данные Philips 33",0,32);
        	Label(lb6,"по содержимому 93C46",0,47);
        	Label(lb7,"IMMO : ",0,67);     }
	Group("Ключ №1",5,155,270,50) { Label(tdata1," ",0,13); Label(tdata2," ",0,30); }
 	Group("Ключ №2",5,205,270,50) {	Label(tdata3," ",0,13); Label(tdata4," ",0,30); }
    	Picture(Picture1,"Citroen.bmp",190,5,0,0);	
	Label(msg," ",0,260);				        }

OnShow
{	msg.Color=0x000000; msg.Bold=1;	msg="http://www.eeprom.lg.ua";
	var0=1;
	if(@0x28!=0x96){var0=0;} if(@0x2B!=0x24){var0=0;}
	if(@0x2A!=0x79){var0=0;} if(@0x2D!=0x90){var0=0;}
	if(@0x2C!=0x80){var0=0;} 
	if(var0=0){message.bold=1; message.Color=0x0000FF; message="Неверный дамп !";}
	else
     {
	message.bold=1; message.Color=0xFF0000; message="Дамп ОК.";
	//
	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="Почти готово."; var21=0; while(var21!=10000){var21=var21+1;}
	// 
	// Key1 
	var0=0;
	if(@0x14=0xFF){var0=var0+1;} if(@0x15=0xFF){var0=var0+1;} 
	if(@0x17=0xFF){var0=var0+1;} 
	if(var0=3){tdata1.bold=1; tdata1.Color=0x000FFF; tdata1="Не опознан";}
	else{
	tdata1.Color=0xFF00FF; tdata1.Bold=1; 
	tdata2.Color=0xFF00FF; tdata2.Bold=1; 
	tdata1=" 00 00 F0 "+#b.@0x15+" "+#b.@0x14+" "+#b.@0x17+" 00 F0 ";
	tdata2=" "+#b.@0x15+" "+#b.@0x14+" "+#b.@0x17+" 00 F0 "+#b.@0x15+" "+#b.@0x14+" "+#b.@0x17;}
	// Key2
 	var0=0;
 	if(@0x16=0xFF){var0=var0+1;} if(@0x19=0xFF){var0=var0+1;} 
 	if(@0x18=0xFF){var0=var0+1;} 
 	if(var0=5){tdata2.bold=1; tdata2.Color=0x000FFF; tdata2="Не опознан";}
 	else{
 	tdata3.Color=0xFF00FF; tdata3.Bold=1; 
 	tdata4.Color=0xFF00FF; tdata4.Bold=1;
 	tdata3=" 00 00 F0 "+#b.@0x16+" "+#b.@0x19+" "+#b.@0x18+" 00 F0 ";
 	tdata4=" "+#b.@0x16+" "+#b.@0x19+" "+#b.@0x18+" 00 F0 "+#b.@0x16+" "+#b.@0x19+" "+#b.@0x18;}
	message.Bold=1; message.Color=0xFF0000; message="Готово.";
   }
}                                             

OnApply{}