[Carradio\NISSAN\CH906 PN-9938U]
Size(310,400);
Form {	Digit(Code,"Code ",50,15,60);
	Label(message," ",10,44);
    	CheckBox(Jamper1," ",10,55);
    	CheckBox(Jamper2," ",25,55);
    	CheckBox(Jamper3," ",40,55);
    	CheckBox(Jamper4," ",55,55);
    	CheckBox(Jamper5," ",70,55);
    	CheckBox(Jamper6," ",85,55);
    	CheckBox(Jamper7," ",100,55);
    	CheckBox(Jamper8," ",115,55);
    	CheckBox(Jamper9," ",130,55);
    	CheckBox(Jamper10," ",145,55);
    	CheckBox(Jamper11," ",160,55);
    	CheckBox(Jamper12," ",175,55);
    	CheckBox(Jamper13," ",190,55);
    	CheckBox(Jamper14," ",205,55);
	Group("Информация",5,80,300,70)	{Label(message1," ",0,15);Label(message2," ",0,30);Label(message3," ",0,45);}
    	Group("Описание",5,155,300,180) {
        Label(lb1,"Code calculator for NISSAN :",0,15);
    	Label(lb2,"Model:  CH906  PN-9938U",32,30);
    	Label(lb3,"Sec. Type:  CODE 4 dig",32,45);
	Label(lb4,"Manufacturen:  CLARION.",32,60);
	Label(lb5,"Partnumer:  CL0259  286-8495-00 ",32,75);
    	Label(lb6,"MCU:  TC9319F-018 ",32,90);
	Label(lb7,"EEPROM:  no",32,105);
	Label(lb8,"Sec.loc.: JUMPERS",32,120);
    	Label(lb9,"Autor:  telik@ukrwest.net   2008",0,160);
    	Label(lb10,"Enter code: ",32,135);   }
	Picture(Logo,"nissan.bmp",230,10,0,0);{Label(msg," ",0,340);}}
OnShow {msg.Color=0x0000FF; msg.Bold=1; msg="http://www.eeprom.lg.ua";
	message.Color=0x000000; message.Bold=0; message=" 1   2   3   4   5   6   7   8   9  10 11 12 13 14";
        message1.Color=0xFF0000; message1.Bold=1; message1="В магнитоле код задаётся перемычками.";
	message2.Color=0xFF0000; message2.Bold=1; message2="Выберите перемычки от 1 до 14";
        message3.Color=0xFF0000; message3.Bold=1; message3="и нажмите кнопку <Применить>.";
	Jamper1=0; Jamper2=0; Jamper3=0; Jamper4=0; Jamper5=0; Jamper6=0; Jamper7=0;
	Jamper8=0; Jamper9=0; Jamper10=0; Jamper11=0; Jamper12=0; Jamper13=0; Jamper14=0;
	Code=0;}
OnApply{var1=0;var2=0;var3=0;var4=0;var5=0;var6=0;var7=0;
	var8=0;var9=0;var10=0;var11=0;var12=0;var13=0;var14=0;
	if(Jamper1=1){var1=1;} if(Jamper2=1){var2=2;} if(Jamper3=1){var3=4;} if(Jamper4=1){var4=8;}
	if(Jamper5=1){var5=16;} if(Jamper6=1){var6=32;} if(Jamper7=1){var7=64;}	if(Jamper8=1){var8=128;}
	if(Jamper9=1){var9=256;} if(Jamper10=1){var10=512;} if(Jamper11=1){var11=1024;} 
	if(Jamper12=1){var12=2048;} if(Jamper13=1){var13=4096;} if(Jamper14=1){var14=8192;}
	Code = var1+var2+var3+var4+var5+var6+var7+var8+var9+var10+var11+var12+var13+var14;
	message1.Color=0xFF0000; message1.Bold=1; message1="В магнитоле код задаётся перемычками.";
	message2.Color=0xFF0000; message2.Bold=1; message2="Выберите перемычки от 1 до 14";
        message3.Color=0xFF0000; message3.Bold=1; message3="и нажмите кнопку <Применить>.";
	if(Code>9999){message1.Color=0xFF0000; message1.Bold=1; message1=" ";
	message2.Color=0x0000FF; message2.Bold=1; message2="Не верная комбинация перемычек !!!";
        message3.Color=0xFF0000; message3.Bold=1; message3=" "; Code = 0;}}