[Carradio\KENWOOD\XXV-01D]
Size(310,460);  

Form { 	HexDigit(Code,"Code ",70,15,80,4);
    	//CheckBox(ResetCounter,"Обнулить счётчик попыток",82,45);
	ComboBox(CodeRequest,"Запрос кода",70,65,60,"Off","On");
	Group("Информация",5,110,300,50)   {
        Label(message," ",0,22);	   }
    	Group("Описание",5,165,300,220)    {
        Label(lb1,"Code calculator for KENWOOD :",0,15);
    	Label(lb2,"Model:  XXV-01D",32,30);
    	Label(lb3,"Sec. Type:  CODE 0000-9999",32,45);
	Label(lb4,"Manufacturen:  KENWOOD.",32,60);
	Label(lb5,"Partnumer:  KE1159   Y21-5432-73 ",32,75);
    	Label(lb6,"MCU:  M30625MGP-A46GP ",32,90);
	Label(lb7,"EEPROM:  24C04 smd + 24C02 smd",32,105);
	Label(lb8,"Sec.loc.: EEPROM 24C02smd",32,120);
    	Label(lb9,"Autor:  telik@ukrwest.net   2008",0,200);
    	Label(lb10,"Enter code: ",32,135);    }
	Picture(Logo,"kenwood.bmp",210,10,0,0);    {
        Label(msg," ",0,395);		   } 
}

OnShow{	msg.Color=0x0000FF; msg.Bold=1;	msg="http://www.eeprom.lg.ua";		  
        var1=(@0x52&0xF0)>>4; var2=@0x4D&0x0F; var3=(@0x3A&0xF0)>>4; var4=@0x47&0x0F;
	var1=var1-0x02; var2=var2-0x01; var3=var3-0x04; var4=var4-0x03;
	var1=var1<<12; var2=var2<<8; var3=var3<<4;
        Code=var1|var2|var3|var4;
	Var5=0;	CodeRequest=1; if(@0x49=0x01){var5=0;} if(@0x49=0x02){var5=1;} CodeRequest = var5;  
}

OnApply{if(CodeRequest=1){@0x49=0x02;} if(CodeRequest=0){@0x49=0x01;}
	message.Color=0xFF0000; message.Bold=1; message="Запрос кода изменён.";
}

