[Immo\Nissan\BCM еепром L66]

!  CPI  2008 
Size(230,240); // ширина и высота

Form {
    
      Group("PIN",10,5,100,40){Label(login," ",0,15);}    
      Group("",5,50,220,38) 
  
      {Label(message,"",25,13);}

      Group("Описание",5,90,220,85) 
    
      {Label(lb1,"Калькулятор для immo Nissan.",0,20);
       Label(lb2,"Pathfinder 2005",0,35);
       Label(lb3,"еепром BCM  L66",0,50);}

Picture(Picture1,"Nissan.bmp",150,3,0,0);
Label(msg," ",0,180);	

OnShow 

        {

msg.Color=0x00FF00; msg.Bold=1;	msg="CPI";

        var0=0;
        
        if(@0x02=0xFF){var0=var0+1;} if(@0x03=0xFF){var0=var0+1;}
	if(var0=2){message.bold=1; message.Color=0xFF; message="         Неверный дамп !";}	
        else
{
        var0=0;
	if(@0x00=0xDC){var0=var0+1;} if(@0x01=0xAA){var0=var0+1;}
	if(var0=0){message.bold=1; message.Color=0x0000FF; message="    Сделайте swap bytes !!!";}
                  
        else
{
        message.bold=1; message.Color=0xFF0000; message="              Дамп ОК.";}var21=0; while(var21!=10000){var21=var21+1;}




        //
        var21=0; while(var21!=10000){var21=var21+1;}
	message.Color=0x000FFF; message.Bold=1; var20=0; 
	while(var20!=101){message="   Обработка данных : "+#i.Var20+"%"; var21=0; while(var21!=1000){var21=var21+1;} var20=var20+1;}
	message.Color=0xFF0000; message.Bold=1; message="            Please wait ..."; var21=0; while(var21!=10000){var21=var21+1;}
	//     	

       message.Bold=1; message.Color=0xFF0000; message="                Готово.";}


      login.Bold=1; login.Color=0xFF; login=""  +#b.@0x03  +#b.@0x02  ;


}
}

