[Immo\MAZDA\Temic 1710700063]
!Калькулятор транспондера Temic 12 
!для для Mazda 323, 
!IMMO - TEMIC 1710700063
!MCU: MOTOROLA MC68HC705P3 корпус SO28
!в буфер программы должен быть загружен 
!еепром области этого процессора, размером 128 байт
!
!
!Autor:  telik@ukrwest.net   2008 
!
!
Size(280,375); 

Form{	Group("Информация",5,5,170,50) { Label(message," ",0,20); }
	Group("Описание",5,55,270,90) {
        	Label(lb4,"Калькулятор иммобилайзера для MAZDA",0,17);
        	Label(lb5,"выдаёт данные Temic 12 по MC68HC705P3",0,32);
        	Label(lb6,"IMMO :   TEMIC 1710700063 ",0,47);
		//Label(msg1," ",0,65);
					}
	Group("Ключ №1",5,145,270,40) 	{Label(lab1," ",0,16);}
	Group("Ключ №2",5,185,270,40)	{Label(lab2," ",0,16);}
	Group("Ключ №3",5,225,270,40)	{Label(lab3," ",0,16);}
	Group("Ключ №4",5,265,270,40)	{Label(lab4," ",0,16);}
    	Picture(Picture1,"mazda.bmp",190,5,0,0);	
	Label(msg," ",0,310); }

OnShow
{	msg.Color=0x000000; msg.Bold=1;	msg="http://www.eeprom.lg.ua";
	//msg1.Color=0xFF0000; msg1.Bold=1; msg1="в формате Kmrw нажмите <Применить>";
	Var0=0;	
	if(@0x30=0xff){Var0=Var0+1;} if(@0x31=0xff){Var0=Var0+1;} 
	if(@0x32=0xff){Var0=Var0+1;} if(@0x33=0xff){Var0=Var0+1;} 
	if(@0x34=0xff){Var0=Var0+1;} if(@0x35=0xff){Var0=Var0+1;}
	if(@0x36=0xff){Var0=Var0+1;} if(@0x37=0xff){Var0=Var0+1;}
	if(@0x38=0xff){Var0=Var0+1;} if(@0x39=0xff){Var0=Var0+1;}
	if(@0x3a=0xff){Var0=Var0+1;} if(@0x3b=0xff){Var0=Var0+1;} 
	if(@0x3c=0xff){Var0=Var0+1;} if(@0x3d=0xff){Var0=Var0+1;} 
	if(@0x3e=0xff){Var0=Var0+1;} if(@0x3f=0xff){Var0=Var0+1;}
	if(@0x4a=0xff){Var0=Var0+1;} if(@0x4b=0xff){Var0=Var0+1;}
	if(@0x4c=0xff){Var0=Var0+1;} if(@0x4d=0xff){Var0=Var0+1;}
	if(Var0=20){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=1;	
	var1=@0x30; var2=@0x31; var3=@0x32; var4=@0x33; var5=@0x34;
	if(var1!=0xff){Var0=0;} if(var2!=0xff){Var0=0;} 
	if(var3!=0xff){Var0=0;} if(var4!=0xff){Var0=0;} if(var5!=0xff){Var0=0;}
	if(Var0!=0){lab1.bold=1; lab1.Color=0x0000FF; lab1="Не прописан !";}
	else { Var30=(var1+var2+var3+var4+var5+0x56)&0xFF;
	lab1.bold=1; lab1.Color=0xFF00FF;
	lab1=" "+#b.0x66+" "+#b.0xF0+" "+#b.var1+" "+#b.var2+" "+#b.var3+" "+#b.var4+" "+#b.var5+" "+#b.var30;}
// key2
        Var0=1;	
	var1=@0x35; var2=@0x36; var3=@0x37; var4=@0x38; var5=@0x39;
	if(var1!=0xff){Var0=0;} if(var2!=0xff){Var0=0;} 
	if(var3!=0xff){Var0=0;} if(var4!=0xff){Var0=0;} if(var5!=0xff){Var0=0;}
	if(Var0!=0){lab2.bold=1; lab2.Color=0x0000FF; lab2="Не прописан !";}
	else { Var30=(var1+var2+var3+var4+var5+0x56)&0xFF; lab2.bold=1; lab2.Color=0xFF00FF;
	lab2=" "+#b.0x66+" "+#b.0xF0+" "+#b.var1+" "+#b.var2+" "+#b.var3+" "+#b.var4+" "+#b.var5+" "+#b.var30;}
// key3
        Var0=1;	
	var1=@0x3a; var2=@0x3b; var3=@0x3c; var4=@0x3d; var5=@0x3e;
	if(var1!=0xff){Var0=0;} if(var2!=0xff){Var0=0;} 
	if(var3!=0xff){Var0=0;} if(var4!=0xff){Var0=0;} if(var5!=0xff){Var0=0;}
	if(Var0!=0){lab3.bold=1; lab3.Color=0x0000FF; lab3="Не прописан !";}
	else { Var30=(var1+var2+var3+var4+var5+0x56)&0xFF; lab3.bold=1; lab3.Color=0xFF00FF;
	lab3=" "+#b.0x66+" "+#b.0xF0+" "+#b.var1+" "+#b.var2+" "+#b.var3+" "+#b.var4+" "+#b.var5+" "+#b.var30;}
// key4
        Var0=1;	
	var1=@0x3f; var2=@0x40; var3=@0x41; var4=@0x42; var5=@0x43;
	if(var1!=0xff){Var0=0;} if(var2!=0xff){Var0=0;} 
	if(var3!=0xff){Var0=0;} if(var4!=0xff){Var0=0;} if(var5!=0xff){Var0=0;}
	if(Var0!=0){lab4.bold=1; lab4.Color=0x0000FF; lab4="Не прописан !";}
	else { Var30=(var1+var2+var3+var4+var5+0x56)&0xFF; lab4.bold=1; lab4.Color=0xFF00FF;
	lab4=" "+#b.0x66+" "+#b.0xF0+" "+#b.var1+" "+#b.var2+" "+#b.var3+" "+#b.var4+" "+#b.var5+" "+#b.var30;}

	message.Bold=1; message.Color=0xFF0000; message="Готово.";}
}

OnApply{}




