[Carradio\BMW\BUSINESS CD CD53 R50]
Size(310,460); // ширина и высота

Form {
    	HexDigit(Code,"Code ",70,15,100,4);
    	CheckBox(ResetCounter,"Обнулить счётчик попыток",82,85);
	//ComboBox(CodeRequest,"IMMO ",65,50,50,"On","Off");
	
	
    	Group("Информация",5,120,300,40)	// создаём группу "Информация"
    {
        Label(message," ",30,17);		// выводим message - это проверка дампа на правильность
    }
    	Group("Описание",5,165,300,220) 		// создаём группу "Описание"
    {
        Label(lb1,"Code calculator for BMW :",0,15);
    	Label(lb2,"Model:  BUSINESS CD CD53 R50",32,30);
    	Label(lb3,"Sec. Type:  IMMO",32,45);
	Label(lb4,"Manufacturen: ALPINE.",32,60);
	Label(lb5,"Partnumer:  AL5001 ",32,75);
    	Label(lb6,"MCU: SAFC161CI32F-16F  ",32,90);
	Label(lb7,"EEPROM:  24C32 smd",32,105);
	Label(lb8,"Sec.loc.:  EEPROM",32,120);
    	Label(lb9,"Autor:  telik@ukrwest.net   2008",0,200);
    	Label(lb10,"Enter code:    ",5,135);
	//Label(lb11,"               ",5,150);
    }
	Picture(Logo,"bmw.bmp",210,10,0,0);
    {
        Label(msg," ",0,395);				 
    } 
}

OnShow {
        msg.Color = 0x0000FF;				// задаём красный цвет сообщению msg
        msg.Bold = 1;					// толщина шрифта 0 - тонкий, 1 - жирный
	msg = "http://www.eeprom.lg.ua";		// предаём привет 
        
	message.Bold = 1;  
    	Var10 = 1;
    	if(@0xD0B != 0x41) { Var10 = 0;}	
    	if (Var10 = 0)
    {
        message.Color = 0x0000FF;
        Message = "                Неверный дамп ! ";
        Code = 0;
    }
    else
    {  
	var1 = (@0xFE0 << 8);
	var2 = @0xFE1 ;
	var3 = @0xFE2 ;
	Code = var1 |var2 ; 
	
	ResetCounter = 1;
	if (@0xFE9 != 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 {
	Var0 = 1;
    	if (@0xD0B != 0x41) { Var0 = 0;}	
    	if (Var0 = 0) { message.Color = 0x0000FF; message = "Неверный дамп! Запись прекращена!"; Code = 0; }
        else
    	{
	if(ResetCounter = 1) { @0xFE9 = 0x00;}
	message.Color = 0xFF0000;
        message.Bold = 1;
       	message = " Счётчик попыток успешно изменёны.";
    }
}