[Carradio\CHEVROLET\ACK-1636H]
Size(230,380);
Form {	Digit(Code,"Code ",20,15,40);
	Label(message," ",20,38);
    	CheckBox(Diod1," ",20,50);
    	CheckBox(Diod2," ",35,50);
    	CheckBox(Diod3," ",50,50);
    	CheckBox(Diod4," ",65,50);
    	CheckBox(Diod5," ",80,50);
	Group("Информация",5,70,220,65)	{Label(message1," ",0,15);Label(message2," ",0,30);Label(message3," ",0,45);}
    	Group("Описание",5,135,220,180) {
        Label(lb1,"Code calculator for CHEVROLET :",0,15);
    	Label(lb2,"Model:  ACK-1636H",32,30);
    	Label(lb3,"Sec. Type:  CODE 1111-6666",32,45);
	Label(lb4,"Manufacturen:  DAEWOO.",32,60);
	Label(lb5,"Partnumer:  ",32,75);
    	Label(lb6,"MCU:  LC723748-9B98",32,90);
	Label(lb7,"EEPROM:  no",32,105);
	Label(lb8,"Sec.loc.: DIODES",32,120);
    	Label(lb9,"Autor:  telik@ukrwest.net   2008",0,160);
    	Label(lb10,"Enter code:   прямой",32,135);   }
	Picture(Logo,"chevrolet.bmp",110,15,0,0);{Label(msg," ",0,320);}}
OnShow {msg.Color=0x000000; msg.Bold=1; msg="http://www.eeprom.lg.ua";
	message.Color=0x000000; message.Bold=0; message=" 1   2   3   4   5  ";
        message1.Color=0xFF0000; message1.Bold=1; message1="Код задаётся диодами S1-S5.";
	message2.Color=0xFF0000; message2.Bold=1; message2="Выберите диоды от 1 до 5";
        message3.Color=0xFF0000; message3.Bold=1; message3="и нажмите кнопку <Применить>.";
	Diod1=0; Diod2=0; Diod3=0; Diod4=0; Diod5=0; Code=0;}

OnApply{var21=0; while(var21!=10000){var21=var21+1;}
	message1.Color=0xFF0000; message1.Bold=1; message1=" ";
	message3.Color=0xFF0000; message3.Bold=1; message3=" ";
	message2.Color=0xFF00FF; message2.Bold=1; var20=0; 
	while(var20!=101){message2="Обработка данных : "+#i.Var20+"%"; var21=0; while(var21!=1000){var21=var21+1;} var20=var20+1;}
	message2.Color=0xFF0000; message2.Bold=1; message2="Почти готово."; var21=0; while(var21!=10000){var21=var21+1;}
	message2.Bold=1; message2.Color=0xFF0000; message2="Готово.";
	var21=0; while(var21!=10000){var21=var21+1;}
	//
	var0=0;
	if(Diod1=0){if(Diod2=0){if(Diod3=0){if(Diod4=0){if(Diod5=0){Code=0000;var0=1;}}}}} 
	if(Diod1=0){if(Diod2=0){if(Diod3=0){if(Diod4=0){if(Diod5=1){Code=5813;var0=1;}}}}} 
	if(Diod1=0){if(Diod2=0){if(Diod3=0){if(Diod4=1){if(Diod5=0){Code=6361;var0=0;}}}}} 
	if(Diod1=0){if(Diod2=0){if(Diod3=0){if(Diod4=1){if(Diod5=1){Code=1638;var0=1;}}}}}	
	if(Diod1=0){if(Diod2=0){if(Diod3=1){if(Diod4=0){if(Diod5=0){Code=4362;var0=0;}}}}}
 	if(Diod1=0){if(Diod2=0){if(Diod3=1){if(Diod4=0){if(Diod5=1){Code=7745;var0=1;}}}}}
	if(Diod1=0){if(Diod2=0){if(Diod3=1){if(Diod4=1){if(Diod5=0){Code=1165;var0=0;}}}}} 
	if(Diod1=0){if(Diod2=0){if(Diod3=1){if(Diod4=1){if(Diod5=1){Code=4286;var0=1;}}}}}
	if(Diod1=0){if(Diod2=1){if(Diod3=0){if(Diod4=0){if(Diod5=0){Code=2152;var0=0;}}}}} 
	if(Diod1=0){if(Diod2=1){if(Diod3=0){if(Diod4=0){if(Diod5=1){Code=2453;var0=0;}}}}} 
	if(Diod1=0){if(Diod2=1){if(Diod3=0){if(Diod4=1){if(Diod5=0){Code=5241;var0=0;}}}}}
	if(Diod1=0){if(Diod2=1){if(Diod3=0){if(Diod4=1){if(Diod5=1){Code=1325;var0=0;}}}}} 
	if(Diod1=0){if(Diod2=1){if(Diod3=1){if(Diod4=0){if(Diod5=0){Code=2145;var0=0;}}}}}
	if(Diod1=0){if(Diod2=1){if(Diod3=1){if(Diod4=0){if(Diod5=1){Code=3718;var0=1;}}}}} 
	if(Diod1=0){if(Diod2=1){if(Diod3=1){if(Diod4=1){if(Diod5=0){Code=4524;var0=0;}}}}} 
	if(Diod1=0){if(Diod2=1){if(Diod3=1){if(Diod4=1){if(Diod5=1){Code=2681;var0=1;}}}}} 
	if(Diod1=1){if(Diod2=0){if(Diod3=0){if(Diod4=0){if(Diod5=0){Code=4316;var0=0;}}}}}	
	if(Diod1=1){if(Diod2=0){if(Diod3=0){if(Diod4=0){if(Diod5=1){Code=7348;var0=1;}}}}} 
	if(Diod1=1){if(Diod2=0){if(Diod3=0){if(Diod4=1){if(Diod5=0){Code=5624;var0=0;}}}}}
	if(Diod1=1){if(Diod2=0){if(Diod3=0){if(Diod4=1){if(Diod5=1){Code=5374;var0=1;}}}}} 
	if(Diod1=1){if(Diod2=0){if(Diod3=1){if(Diod4=0){if(Diod5=0){Code=1156;var0=0;}}}}} 
	if(Diod1=1){if(Diod2=0){if(Diod3=1){if(Diod4=0){if(Diod5=1){Code=8253;var0=1;}}}}} 
	if(Diod1=1){if(Diod2=0){if(Diod3=1){if(Diod4=1){if(Diod5=0){Code=3241;var0=0;}}}}}	
	if(Diod1=1){if(Diod2=0){if(Diod3=1){if(Diod4=1){if(Diod5=1){Code=3644;var0=0;}}}}} 
	if(Diod1=1){if(Diod2=1){if(Diod3=0){if(Diod4=0){if(Diod5=0){Code=4513;var0=0;}}}}}
	if(Diod1=1){if(Diod2=1){if(Diod3=0){if(Diod4=0){if(Diod5=1){Code=1857;var0=1;}}}}}
	if(Diod1=1){if(Diod2=1){if(Diod3=0){if(Diod4=1){if(Diod5=0){Code=3346;var0=0;}}}}} 
	if(Diod1=1){if(Diod2=1){if(Diod3=0){if(Diod4=1){if(Diod5=1){Code=8156;var0=1;}}}}}	
	if(Diod1=1){if(Diod2=1){if(Diod3=1){if(Diod4=0){if(Diod5=0){Code=3451;var0=0;}}}}} 
	if(Diod1=1){if(Diod2=1){if(Diod3=1){if(Diod4=0){if(Diod5=1){Code=4853;var0=1;}}}}}
	if(Diod1=1){if(Diod2=1){if(Diod3=1){if(Diod4=1){if(Diod5=0){Code=5436;var0=0;}}}}}
	if(Diod1=1){if(Diod2=1){if(Diod3=1){if(Diod4=1){if(Diod5=1){Code=5632;var0=0;}}}}} 
	message1.Color=0xFF0000; message1.Bold=1; message1="Код задаётся диодами S1-S5.";
	message2.Color=0xFF0000; message2.Bold=1; message2="Выберите диоды от 1 до 5";
        message3.Color=0xFF0000; message3.Bold=1; message3="и нажмите кнопку <Применить>.";
	if(var0=1){message1.Color=0xFF0000; message1.Bold=1; message1=" ";
	message2.Color=0x0000FF; message2.Bold=1; message2="Не верная комбинация диодов !!!";
        message3.Color=0xFF0000; message3.Bold=1; message3=" "; Code=0;}}