[Carradio\BLAUPUNKT\BARCELONA RCM104A BP4490]
Size(310,460); 
Form { 	HexDigit(Code,"Code ",70,15,60,4);
	ComboBox(CardRequest,"Запрос карты",72,45,50,"Off","On");
    	CheckBox(ResetCounter,"Обнулить счётчик попыток",82,80);
	Group("Информация",5,110,300,50)   { Label(message," ",0,22);}
    	Group("Описание",5,165,300,220)    {
        Label(lb1,"Code calculator for  BLAUPUNKT :",0,15);
    	Label(lb2,"Model:  BARCELONA RCM104A BP4490",32,30);
    	Label(lb3,"Sec. Type:  KEYCARD",32,45);
	Label(lb4,"Manufacturen:  BLAUPUNKT.",32,60);
	Label(lb5,"Partnumer:  7 644 490 010 ( 510 )",32,75);
    	Label(lb6,"MCU: MC68HC05B16 ( 8925901071)",32,90);
	Label(lb7,"EEPROM:  no ",32,105);
	Label(lb8,"Sec.loc.:  MCU",32,120);
    	Label(lb9,"Autor:  telik@ukrwest.net   2008",0,200);
    	Label(lb10,"Enter code: FM + 4,  code,  подтв. кн. ^",32,135); }
	Picture(Logo,"blaupunkt.bmp",210,18,0,0); { Label(msg," ",0,395);}}
OnShow {msg.Color=0x0000FF; msg.Bold=1; msg="http://www.eeprom.lg.ua";
        var10=0; if(@0x01!=@0x04){var10=1;} if(@0x01=0xFF){var10=1;}	
    	if(var10=1){ message.Bold=1; message.Color = 0x0000FF; message = "Неверный дамп ! "; Code = 0; }
   	else { var1=@0x01; var1=var1<<8; var2=@0x02; code=var1|var2; var20=@0x0A; var21=@0x13; var22=@0x1C; 
	var5=1; CardRequest=1; if(@0x0A=0x00){var5=0;}
    	CardRequest=var5; ResetCounter=0; if(@0x03!=0x40){ResetCounter = 1;}
	if(ResetCounter=1){ message.Color = 0x0000FF; message.Bold = 1; message = "Обнулите счётчик попыток !!!";	ResetCounter = 1; }
    	else{ message.Color=0xFF0000; message.Bold=1; message="Счётчик попыток OK."; ResetCounter=0;} } }
OnApply{var10=0; if(@0x01!=@0x04){var10=1;} if(@0x01=0xFF){var10=1;}	
    	if(var10=1){ message.Color=0x0000FF; message="Неверный дамп !  Запись прекращена !"; Code=0;}
	else{ @0x01=Code>>8&255; @0x02=Code&255; @0x04=Code>>8&255; @0x05=Code&255; @0x07=Code>>8&255; @0x08=Code&255;
	if(ResetCounter=1){@0x03=0x40; @0x06=0x40; @0x09=0x40;}
	if(CardRequest=1){@0x0A=var20; @0x13=var21; @0x1C=var22;}
	if(CardRequest=0){@0x0A=0x00; @0x13=0x00; @0x1C=0x00;}
	message.Color = 0xFF0000; message.Bold = 1; message = "Попытки и запрос карточки успешно изменёны.";}}
