[Dashboard\Renault\Espace\Espace BSI 908 J35D]
#ESPACE_BSI.doc
Size(280,300); 
Form
{
       Group("Пробег",5,5,140,50)
    {
        Digit(Distance," ",5,18,90);
        Label(lb1,"KM",110,20);   
    }
      Group("Идентификация",5,70,270,40)
    {
        Label(pn," ",0,18);
    }
      Group("Информация",5,115,270,40)
    {
        Label(message," ",0,18);
    }
    Group("Описание",5,155,270,95) 
    {
        Label(lb4,"Калькулятор пробега для BSI Renault Espace.",0,20);
        Label(lb5,"процессор 908AZ60 J35D ",0,35);
        Label(lb2,"Введите нужное значение в окне <Пробег>.",0,55);
        Label(lb3,"и нажмите кнопку <Применить>.",0,70);
    }
    Picture(Logo,"Renault.bmp",190,17,0,0);
}

OnShow 
{
   Var3 = 0;
   if (@0x24a = 0xFF) {Var3 = Var3 + 1;}
   if (Var3 != 0)
        {
        Message.Color = 0x0000FF;
        Message.Bold = 1;
        Message = "Неверный дамп!";
        Distance = 0;
        }
      else
        {
         pn = "P/N: "+#b.@0x200+#b.@0x201+#b.@0x202+#b.@0x203+#b.@0x204;
         Var1 = ((@0x24a << 24 ) | (@0x249 << 16) | (@0x24c << 8) | @0x24b);
         Distance = Var1 / 1000;

         message.Color = 0xFF0000;
         Message.Bold = 1;
         message = "Дамп ОК. Введите новый пробег."; 
        }
}
OnApply
{
        Var1 =  Distance;
        Var3 = 0;
        if(Var1 < 100)      { Var3 = Var3 + 1; }
        if(Var1 > 999900)   { Var3 = Var3 + 1; }
        if(Var3 != 0)
         {
          message.Color = 0x0000FF;
          message.Bold = 1;
          message = "Пробег должен быть от 100 до 999900 км.";
         }
        else
         {
          Var1 = Var1 * 1000;
          Var5 = 0x249;
          while( Var5 != 0x285)
          { 
           @Var5 = (Var1 >> 16) & 255;
       
           Var5 = Var5 + 1;
           @Var5 = (Var1 >> 24) & 255;
         
           Var5 = Var5 + 1;
           @Var5 = Var1 & 255;
      
           Var5 = Var5 + 1;
           @Var5 = (Var1 >> 8) & 255;
    
           Var5 = Var5 + 1;
          }
         }
} 

  