[Carradio\AUDI\CONCERT AUZ5Z3  CQ-LA1923L]

Size(310,410);  

Form {
	HexDigit(Code,"Code ",70,15,100,4);
	CheckBox(ResetCounter,"Обнулить счётчик попыток",65,45);
		
	Group("Информация",5,65,300,50)		 
    {
        Label(message," ",0,22);		 
    }
    	Group("Описание",5,120,300,220) 	 
    {
        Label(lb1,"Code calculator for AUDI :",0,15);
    	Label(lb2,"Model:  CONCERT AUZ5Z3",32,30);
    	Label(lb3,"Sec. Type:  CODE 0000-1999",32,45);
	Label(lb4,"Manufacturen: MATSUSHITA.",32,60);
	Label(lb5,"Partnumer:  CQ-LA1923L    8L0 035 186A ",32,75);
    	Label(lb6,"MCU:   YEMH3318A03  or (64333118F16)",32,90);
	Label(lb7,"EEPROM:  S220 = 93C56  ",32,105);
	Label(lb8,"Sec.loc.: EEPROM",32,120);
    	Label(lb9,"Autor:  telik@ukrwest.net   2008",0,200);
    	Label(lb10,"Enter code:   TP+RDS, код, TP+RDS",10,135);
	//Label(lb11,"                    ввод кода кн. SCAN",10,150);
	//Label(lb12,"кнопками 1 2 3 4 ввод кнопки MODE и SCAN (10сек)",10,165);
    }
	Picture(Logo,"audi.bmp",210,10,0,0);
    {
        Label(msg," ",0,345);			 
    } 
}

OnShow {
	msg.Color=0x0000FF;			 
        msg.Bold=1;				 
	msg="http://www.eeprom.lg.ua";

	var0=@0x03;
	var1=@0x02;	
	var0 = var0 << 8;
	Code = var0|var1;
	
	ResetCounter = 1;
	if (@0x05 != 0x00)   { ResetCounter = 0;}
	if (ResetCounter = 0) 
	{	
	message.Color = 0x0000FF; 
	message.Bold = 1; 
	message = "Обнулите счётчик попыток !!!"; 
	ResetCounter = 1;
	}
    else
	{
	message.Color = 0xFF0000;
	message.Bold = 1;
	message = "Счётчик попыток OK.";
	ResetCounter = 0;
	}
}

OnApply {

      	@0x03 = (Code >> 8);
      	@0x02 = (Code & 0xff);

	if(ResetCounter = 1) { @0x05 = 0x00;}
	message.Color = 0xFF0000;
        message.Bold = 1;
       	message = "Код и счётчик попыток успешно изменён.";
    
}

