[Carradio\PORSCHE\CDR23 BE6627 no immo]

Size(310,450);  

Form {
    	Label(lb0,"Code: NO CODE",40,15);
    	CheckBox(Immooff,"Отключить привязку к авто",20,45);
	CheckBox(Euus,"Шаг настройки FM 0,1MHz",20,60);
	
    	
    	Group("Описание",5,85,300,220) 		
    {
        Label(lb1,"Code calculator for PORSCHE :",0,15);
    	Label(lb2,"Model:  CDR23 BE 6627",32,30);
    	Label(lb3,"Sec. Type:  IMMO",32,45);
	Label(lb4,"Manufacturen: BECKER.",32,60);
	Label(lb5,"MCU:  ST10F280-B3",32,75);
	Label(lb6,"EEPROM:  24C16",32,90);
	Label(lb7,"Sec.loc.: EEPROM",32,105);
    	Label(lb8,"Autor: iek",0,120);
        Label(lb9,"Данная модель некодирована.",10,140);
        Label(lb10,"Имеет привязку к иммобилайзеру автомобиля.",10,155);
        Label(lb11,"Шаг настройки диапазона FM = 0.2 MHz.",10,170);
        Label(lb12,"Для отключения привязки к иммо и изменения шага",10,185);
        Label(lb13,"настройки, выполните соответствующие установки",10,200);
    	
    }
	Picture(Logo,"porsche.bmp",210,10,0,0);
        Picture(pic,"cdr23.bmp",5,315,0,0);
}

OnShow 
{
        Var0 = 0;
	if(@0x404 = 00) {Var0 = Var0 + 1;}
        if(@0x405 = 00) {Var0 = Var0 + 1;}
        if(@0x406 = 00) {Var0 = Var0 + 1;}
        if(Var0 = 3) {Immooff = 1;}
        Var1 = 0;
        if(@0x320 = 00) {Var1 = 1;}
        if(Var1 = 1) {Euus = 1;}
	
}
OnApply
{
        if(Euus = 1) {@0x320 = 00;}
        if(Immooff = 1) {@0x404 = 0x00; @0x405 = 0x00; @0x406 = 0x00;
                         var2 = 0x270;
                         while(var2 != 0x280) {@Var2 = 0x00; Var2 = Var2 + 1;}
                        }
}
