[Carradio\VW\NEW BEETLE MONSOON  VWZ4Z7]

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 VW :",0,15);
    	Label(lb2,"Model: NEW BEETLE MONSOON  VWZ4Z7",32,30);
    	Label(lb3,"Sec. Type:  CODE 0000-1999",32,45);
	Label(lb4,"Manufacturen: DELCO.",32,60);
	Label(lb5,"Partnumer:  1C0 035 157D    12206529 ",32,75);
    	Label(lb6,"MCU:   N60 FLASH (09370082)",32,90);
	Label(lb7,"EEPROM:  9355092smd = 24c02",32,105);
	Label(lb8,"Sec.loc.: EEPROM",32,120);
    	Label(lb9,"Autor:  telik@ukrwest.net   2008",0,200);
    	Label(lb10,"Enter code: Вкл. магн. на дисплее SAFE, а потом 1000",10,135);
	Label(lb11,"                    Кн. 1-4 вводим соответствующий код.",10,150);
	Label(lb12,"                    Подтверждение кода - кн. SEEK >",10,165);
    }
	Picture(Logo,"vw.bmp",225,10,0,0);
    {
        Label(msg," ",0,345);			 
    } 
}

OnShow {
	msg.Color=0x0000FF;			 
        msg.Bold=1;				 
	msg="http://www.eeprom.lg.ua";
        
	var0 = @0x10;
	if(var0 != 0x1D) 
	{ 
	message.Bold = 1;  
    	message.Color = 0x0000FF;
        message = "Неверный дамп !!!";
	Code = 0;
    	}
    else
    	{
	var1 = @0x14;
	var2 = @0x15;
	var1 = var1 << 8;
	Code = var1 | var2;
	
	ResetCounter = 1 ;
	if(@0x68 != 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 {
	if(ResetCounter = 1) { @0x68 = 0x00; @0x69 = 0xEC;}
	message.Color = 0xFF0000;
        message.Bold = 1;
       	message = "Счётчик попыток обнулён.";
}

