[Immo\Aprilia\Aprilia Temic]
!Калькулятор транспондера Temic 11 
!для скутера Aprilia, 
!IMMO -  
!MCU: 
!EEPROM: 24C16
!в буфер программы должен быть загружен файл еепром 24C16
!
!
!Autor:  telik@ukrwest.net   2008 
!
!
Size(280,270); // ширина и высота

Form{	Group("Информация",5,5,170,50) { Label(message," ",0,20); }
	Group("Описание",5,55,270,70) {
        	Label(lb4,"Калькулятор иммобилайзера для APRILIA",0,17);
        	Label(lb5,"выдаёт данные Temic 11 по 24C16",0,32);
        	Label(lb6,"IMMO :  ",0,47);}
	Group("Ключ №1",5,125,270,40) 	{Label(lab1," ",0,16);}
	Group("Ключ №2",5,165,270,40)	{Label(lab2," ",0,16);}
    	Picture(Picture1,"aprilia.bmp",190,5,0,0);	
	Label(msg," ",0,210);				        }

OnShow
{	msg.Color=0x000000; msg.Bold=1;	msg="http://www.eeprom.lg.ua";
	Var1=0;
	if(@0x60=0xff){Var1=Var1+1;} if(@0x61=0xff){Var1=Var1+1;} 
	if(@0x62=0xff){Var1=Var1+1;} if(@0x63=0xff){Var1=Var1+1;} 
	if(@0x64=0xff){Var1=Var1+1;} if(@0x65=0xff){Var1=Var1+1;}
	if(@0x66=0xff){Var1=Var1+1;} if(@0x67=0xff){Var1=Var1+1;}
	if(@0x70=0xff){Var1=Var1+1;} if(@0x71=0xff){Var1=Var1+1;} 
	if(@0x72=0xff){Var1=Var1+1;} if(@0x73=0xff){Var1=Var1+1;} 
	if(@0x74=0xff){Var1=Var1+1;} if(@0x75=0xff){Var1=Var1+1;}
	if(@0x76=0xff){Var1=Var1+1;} if(@0x77=0xff){Var1=Var1+1;}
	if(Var1=16){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;}
// key 1
	Var0=0;	
	if(@0x60=0xff){Var0=Var0+1;} if(@0x61=0xff){Var0=Var0+1;} 
	if(@0x62=0xff){Var0=Var0+1;} if(@0x63=0xff){Var0=Var0+1;} 
	if(@0x64=0xff){Var0=Var0+1;} if(@0x65=0xff){Var0=Var0+1;}
	if(@0x66=0xff){Var0=Var0+1;} if(@0x67=0xff){Var0=Var0+1;}
	if(Var1=8){lab1.bold=1; lab1.Color=0x0000FF; lab1="Не прописан !";}
	else 	{
	lab1.bold=1; lab1.Color=0xFF00FF;
	lab1=" "+#b.@0x60+" "+#b.@0x61+" "+#b.@0x62+" "+#b.@0x63+" "+#b.@0x64+" "+#b.@0x65+" "+#b.@0x66+" "+#b.@0x67;}
// key 2
        Var0=0; 
	if(@0x70=0xff){Var0=Var0+1;} if(@0x71=0xff){Var0=Var0+1;} 
	if(@0x72=0xff){Var0=Var0+1;} if(@0x73=0xff){Var0=Var0+1;} 
	if(@0x74=0xff){Var0=Var0+1;} if(@0x75=0xff){Var0=Var0+1;}
	if(@0x76=0xff){Var0=Var0+1;} if(@0x77=0xff){Var0=Var0+1;}
	if(Var0=8){lab2.bold=1; lab2.Color=0x0000FF; lab2="Не прописан !";}
	else {
  	lab2.bold=1; lab2.Color=0xFF00FF;
	lab2=" "+#b.@0x70+" "+#b.@0x71+" "+#b.@0x72+" "+#b.@0x73+" "+#b.@0x74+" "+#b.@0x75+" "+#b.@0x76+" "+#b.@0x77;}
	message.Bold=1; message.Color=0xFF0000; message="Готово.";}
}

OnApply{
}





