[Carradio\HONDA\39100-SZT-A21 (93C86)]

Size(310,380);  

Form {

    	HexDigit(Code,"Code",70,15,100,4);
    	//CheckBox(ResetCounter,"Обнулить счётчик попыток",65,45);
    	
	Group("Информация",5,80,300,40)	 
    {
        Label(message," ",0,18);		 
    }
    	Group("Описание",5,130,300,200) 	 
    {
        Label(lb1,"Code calculator for HONDA :",0,15);
    	Label(lb2,"Model:39100-SZT-A21",32,30);
    	Label(lb3,"Sec. Type:  CODE 11111-66666",32,45);
	Label(lb4,"Manufacturen:  CLARION",32,60);
	Label(lb5,"Partnumer:    ",32,75);
    	Label(lb6,"MCU:   ",32,90);
	Label(lb7,"EEPROM:  93С86  ",32,105);
    	Label(lb8,"Sec.loc.: EEPROM",32,120);
    	Label(lb10,"Enter code:  вводить цифрами 123456 ",10,135);
    }
	Picture(Logo,"honda.bmp",220,10,0,0);
    {
        Label(msg," ",0,395);			
    } 
}

OnShow {
	msg.Color=0x0000FF;								
        
	var0 = 1;
	if ( @0x100 != 0x33 ) { var0 = 0;}
	if ( @0x101 != 0x39 ) { var0 = 0;}
	if ( @0x102 != 0x31 ) { var0 = 0;}
	if ( @0x103 != 0x30 ) { var0 = 0;}
	if ( @0x104 != 0x30 ) { var0 = 0;}
	if ( @0x105 != 0x53 ) { var0 = 0;}
	if ( @0x106 != 0x5A ) { var0 = 0;}

	if ( var0 = 0 ) { message.Color=0x0000FF; message.Bold=1; message="Неверный дамп !"; Code=0; }
    else
	{
	var1 = @0x06;
	var2 = @0x07;
	var3 = @0x08;
	var1 = var1 << 12;
	var2 = var2 << 4;
	var3 = (var3 & 0xF0) >> 4;
	Code = var1 | var2 | var3;
	message.Color=0xFF0000; message.Bold=1;	message="Дамп ОК.";
	}
   
}

OnApply {

}
