[Dashboard\Citroen\Xsara\BSI Xsara D780949]

Size(280,300); 

Form
{
    Group("Пробег",5,5,140,50)
    {
        Digit(Distance," ",5,18,90);
        Label(lb1,"KM",110,20);
    }
     Group("Идентификация",5,65,270,40)
    {
        Label(vin," ",0,17);
    }   
     
     Group("Информация",5,110,270,45)
    {
        Label(message," ",0,18);
    }
    Group("Описание",5,155,270,100) 
    {
        Label(lb4,"Калькулятор для BSI Citroen Xsara.",0,20);
        Label(lb5,"D780949 internal EEPROM",0,35);
        Label(lb2,"Для установки пробега 0 км",0,55);
        Label(lb3,"нажмите кнопку <Применить>.",0,70);
    }
    Picture(Picture1,"Citroen.bmp",200,5,0,0);
}

OnShow 
{
    Message.Bold = 1;
    Var0 = 0;
    if(@0x00 != 0x56) {Var0 = Var0 + 1;}
    if(Var0 != 0)
    {
        message.Color = 0x0000FF; 	
        Message = "Неверный дамп!";     
        Distance = 0;                   
    }
    else
    {
        vin = "VIN: "+#c.@0x00+#c.@0x01+#c.@0x02+#c.@0x03+#c.@0x04+#c.@0x05+#c.@0x06+#c.@0x07+#c.@0x08+#c.@0x09+#c.@0x0a+#c.@0x0b+#c.@0x0c+#c.@0x0d+#c.@0x0e+#c.@0x0f+#c.@0x10;
        message.Color = 0xFF0000;                    
        message = "Дамп ОК.";  
        Distance =  0;  
    }                          

}

OnApply
{
    Var1 = 0xdd;
    while(Var1 != 0xcf)
     {
      @Var1 = 0x00; Var1 = Var1 - 1;
     }

        message.Color = 0xFF0000;  
        message = "Записан пробег 0 км. Дамп ОК.";
}





















