[US-Euro converter\Lexus\RX 350\Conversion BCU RX 350 2010 93C86]

Size(320,310); // ширина и высота

Form 
{
	Group ("Конверсия",5,55,150,50) {Label(message1," ",0,20);}	
	Group("Информация",5,110,310,45)	{Label(message," ",0,20);}
	Group("Описание",5,155,310,80) 
    	{
	Label(lb1,"Калькулятор для конверсии Lexus RX350 BCU.",0,15);
        Label(lb2,"2010 г.",0,30);
	Label(lb3,"EEPROM  93C86, BCU .",0,45);
        Label(lb4,"Выберите Вариант и Нажмите Кнопку <Применить>.",0,60);
    	}
    	Picture(Picture1,"Lexus.bmp",190,15,0,0);
        Label(msg," ",0,243);
}

OnShow
{
 msg.Color=0xFF00FF; msg.Bold=1; 
 msg="Made in Sanek2xls"; 
 message1.Color=0x000000; 
 message1.Bold=1;
 message1= "Lexus RX 350";
	
    	Message.Bold=1;Message.Alignment=1;   // --------------- проверяем правильность дампа
     
    Var0=0;
    Var4 =@0x7C;
    Var5 =@0x83;
    Var6 =@0x84;
    Var7 =@0x8B;
    

    if(Var4 = 0x41)   	        { Var0 = Var0 + 1;}	
    if(Var5 = 0x4C) 		{ Var0 = Var0 + 1;}
    if(Var6 = 0xBE) 		{ Var0 = Var0 + 1;}
    if(Var7 = 0xB3)   	        { Var0 = Var0 + 1;}	
  

   
    if(Var0 != 4)
    {
        message.Color = 0x0000FF;
        Message = "Неверный дамп!";
    //    Distance = 0;
    }
    else
    {
        message.Color = 0xFF0000;
        message = "Дамп ОК, нажмите кнопку <Применить>";
      }
}


OnApply
{
 //   Var1 = Distance;
Var0=0;
     Var4 =@0x7C;
    Var5 =@0x83;
    Var6 =@0x84;
    Var7 =@0x8B;
    

    if(Var4 = 0x41)   	            { Var0 = Var0 + 1;}	
    if(Var5 = 0x4C) 		{ Var0 = Var0 + 1;}
    if(Var6 = 0xBE) 		{ Var0 = Var0 + 1;}
    if(Var7 = 0xB3)   	            { Var0 = Var0 + 1;}
     if(Var0 != 4)

    {message.Color = 0x0000FF;
        Message = "Дамп неверен запись прекращена";	
	
}

else
{	
       Var4 = 0x7C;
         while(Var4 != 0x7D)                                                                                                                                 {                                                                                                                                                                                                                                                                                                                                                 @Var4 =0x56;  Var4 = Var4 + 1;      
        }Var4 = 0x83;
         while(Var4 != 0x84)                                                                                                                                 {                                                                                                                                                                                                                                                                                                                                                 @Var4 =0x5B;  Var4 = Var4 + 1;      
        }Var4 = 0x84;
         while(Var4 != 0x85)                                                                                                                                 {                                                                                                                                                                                                                                                                                                                                                 @Var4 =0xA9;  Var4 = Var4 + 1;      
        }Var4 = 0x8B;
         while(Var4 != 0x8C)                                                                                                                                 {                                                                                                                                                                                                                                                                                                                                                 @Var4 =0xA4;  Var4 = Var4 + 1;      
        
        } 	
	}	
	message.Color=0xFF00CC;
        message="Дамп ОК. Конверсия выполнена.";

}
