[Immo\Car\Honda\Civic\Valeo v1]
Size(280,320); // ширина и высота
!Калькулятор транспондера Philips 33 
!для Honda Civic, 
!IMMO - Valeo
!MCU: MC68HC705B16 (0D28J) PLCC52
!в буфер программы должен быть загружен файл еепром 
!области этого процессора $0100-$01FF, размером 256 байт
!
!
!Autor:  telik@ukrwest.net   2008 
!
!
Form
{	Group("Информация",5,5,170,50) { Label(message," ",0,20); }
	Group("Описание",5,55,270,100) {
        	Label(lb4,"Калькулятор иммобилайзера для HONDA",0,17);
        	Label(lb5,"выдаёт данные Philips 33",0,32);
        	Label(lb6,"по содержимому MC68HC705B16",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,"honda.bmp",190,5,0,0);	
	Label(msg," ",0,260);				        }

OnShow
{	msg.Color=0x000000; msg.Bold=1;	msg="http://www.eeprom.lg.ua";
	var0=0;
	if(@0x10=0xFF){var0=var0+1;} if(@0x11=0xFF){var0=var0+1;}
	if(@0x12=0xFF){var0=var0+1;} if(@0x13=0xFF){var0=var0+1;}
	if(@0x14=0xFF){var0=var0+1;} if(@0x15=0xFF){var0=var0+1;}
	if(@0x16=0xFF){var0=var0+1;} if(@0x17=0xFF){var0=var0+1;}
	if(@0x18=0xFF){var0=var0+1;} if(@0x19=0xFF){var0=var0+1;}
	if(var0=10){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(@0x10=0x00){var0=var0+1;} if(@0x11=0x00){var0=var0+1;} 
	if(@0x12=0x00){var0=var0+1;} if(@0x13=0x00){var0=var0+1;}
	if(@0x14=0x00){var0=var0+1;}
	if(var0=5){tdata1.bold=1; tdata1.Color=0x000FFF; tdata1="Не опознан";}
	else{
	tdata1.Color=0xFF00FF; tdata1.Bold=1; 
	tdata2.Color=0xFF00FF; tdata2.Bold=1; 
	tdata1=" FF FF F5 "+#b.@0x10+" "+#b.@0x11+" "+#b.@0x12+" "+#b.@0x13+" "+#b.@0x14;
	tdata2=" FF FF F5 "+#b.@0x10+" "+#b.@0x11+" "+#b.@0x12+" "+#b.@0x13+" "+#b.@0x14;}
	// Key2
	var0=0;
	if(@0x15=0x00){var0=var0+1;} if(@0x16=0x00){var0=var0+1;} 
	if(@0x17=0x00){var0=var0+1;} if(@0x18=0x00){var0=var0+1;}
	if(@0x19=0x00){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=" FF FF F5 "+#b.@0x15+" "+#b.@0x16+" "+#b.@0x17+" "+#b.@0x18+" "+#b.@0x19;
	tdata4=" FF FF F5 "+#b.@0x15+" "+#b.@0x16+" "+#b.@0x17+" "+#b.@0x18+" "+#b.@0x19;}
	message.Bold=1; message.Color=0xFF0000; message="Готово.";
   }
}                                             

OnApply{}


