[Dashboard\Peugeot\807\BSI 807 912DG128A V2]

Size(280,300); 

Form
{
    Group("Пробег",5,5,140,50)
    {
        Digit(Distance," ",5,18,90);
        Label(lb1,"KM",110,20);
    }
    Group("VIN. LOGIN",5,70,270,40)
    {
        Label(message," ",0,15);
		
    }
     Group("Информация",5,113,270,40)
    {
        Label(message1," ",0,18);
    }
    Group("Описание",5,155,270,95) 
    {
        Label(lb4,"Калькулятор пробега для BSI Peugeot 807.",0,20);
        Label(lb5,"MCU 68HC912DG128A",0,35);
        Label(lb2,"Для установления пробега 0",0,55);
        Label(lb3,"нажмите кнопку <Применить>.",0,70);
    }
    Picture(Picture1,"Peugeot.bmp",180,7,0,0);
}
OnShow 
{
   message1.bold = 1;
   var1 = @0x694^0xff; var2 = @0x695^0xff; var3 = @0x696^0xff; var4 = @0x697^0xff; var5 = @0x698^0xff;
   var6 = @0x699^0xff; var7 = @0x69a^0xff; var8 = @0x69b^0xff; var9 = @0x69c^0xff; var10 = @0x69d^0xff;
   var11 = @0x69e^0xff; var12 = @0x69f^0xff; var13 = @0x6a0^0xff; var14 = @0x6a1^0xff; var15 = @0x6a2^0xff;
   var16 = @0x6a3^0xff; var17 = @0x6a4^0xff;
   Var20 = @0x638^0xff; Var21 = @0x639^0xff; Var22 = @0x63a^0xff; Var23 = @0x63b^0xff;
   if(@0x694=0xa9)
   {
    Var30 = ((@0x6b3 << 16) | (@0x6b4 <<8) | @0x6b5) ^ 0xFFFFFF;
    Var30 = var30 / 10;
    message = "VIN: "+#c.var1+#c.var2+#c.var3+#c.var4+#c.var5+#c.var6+#c.var7+#c.var8+#c.var9+#c.var10+#c.var11+#c.var12+#c.var13+#c.var14+#c.var15+#c.var16+#c.var17+"   LOGIN: "+#c.var20+#c.var21+#c.var22+#c.var23;
    message1.Color = 0xFF0000;                    
    message1 = "Дамп ОК.";  
    Distance =  Var30;                            
   }
 else
   {
     message1.Color = 0x0000FF; 	
     Message1 = "Неверный дамп!";     
     Distance = 0;              
   }
}
OnApply
{
  Var1 = 0x6b3;
  while(var1 != 0x6e2)
   {
    @Var1 = 0xFF; Var1 = Var1 + 1;
   }
}
