[Dashboard\Peugeot\607\Dash 607 93C66 Var1]

Size(280,260); 
Form
{
    Group("Пробег",5,5,140,50)
    {
        Digit(Distance," ",5,18,90);
        Label(lb1,"KM",110,20);        
    }
    Group("Информация",5,70,270,40)
    {
        Label(msg," ",0,18);
    }
    Group("Описание",5,120,270,90) 
    {
        Label(lb4,"Калькулятор пробега для Dash 607.",0,20);
        Label(lb5,"VDO. EEPROM 93C66",0,35);
        Label(lb2,"Введите нужное значение в окне <Пробег>.",0,55);
        Label(lb3,"и нажмите кнопку <Применить>.",0,70);
    }
    Picture(Logo,"peugeot.bmp",190,5,0,0);
}
OnShow
{
    Var0 = 0;
    Var1 = (@0x01 << 8) + @0x00;
    Var2 = (@0x03 << 8) + @0x02;
    Var3 = (@0x05 << 8) + @0x04;
    Var4 = (@0x07 << 8) + @0x06;
    Var5 = (@0x09 << 8) + @0x08;
    Var6 = (@0x0b << 8) + @0x0a;
    Var7 = (@0x0d << 8) + @0x0c;
    Var8 = (@0x0f << 8) + @0x0e;
    if(Var2 < Var1) {Var9 = Var2;} if(Var2 = Var1) {Var9 = Var2;}
    if(Var3 < Var9) {Var9 = Var3;} if(Var3 = Var9) {Var9 = Var3;}
    if(Var4 < Var9) {Var9 = Var4;} if(Var4 = Var9) {Var9 = Var4;}
    if(Var5 < Var9) {Var9 = Var5;} if(Var5 = Var9) {Var9 = Var5;}
    if(Var6 < Var9) {Var9 = Var6;} if(Var6 = Var9) {Var9 = Var6;}
    if(Var7 < Var9) {Var9 = Var7;} if(Var7 = Var9) {Var9 = Var7;}
    if(Var8 < Var9) {Var9 = Var8;} if(Var8 = Var9) {Var9 = Var8;}
    if(Var1 < Var9) {Var9 = Var1;} if(Var1 = Var9) {Var9 = Var1;}
    Var9 = Var9 << 4;
    if(Var9 > 999000) {Var0 = 1;}
    if(Var0 = 0)
       {
        Distance = Var9;
        msg.Color = 0xFF0000;
        msg.Bold = 1;
        msg = "Дамп ОК. Введите пробег.";
        
       }
       else
       {
        msg.Color = 0x0000FF;
        msg.Bold = 1;
        msg = "Неверный дамп!";
        Distance = 0;
       }
}

OnApply 
{
    Var5 = 0;
    Var2 = Distance;
    Var7 = Var2 >> 4 & 65535;
    if(Var2 > 999900) {Var5 = 1;}
    if(Var2 < 100)   {Var5 = 1;}
    if(Var5 != 0)
    {
        msg.Color = 0x0000FF;
        msg.Bold = 1;
        msg = "Пробег должен быть от 100 до 999900 км";
    }
    else
    {
        Var3 = 0x000;
        while(Var3 != 0x0e)
        {
            
            @Var3 = Var7 & 255;
              
            Var3 = Var3 + 1;
            @Var3 = Var7 >> 8 & 255;
              
            Var3 = Var3 + 1;
        }
        Var8 = Var7^0xffff;
        @0x0e = Var8 & 255;
        @0x0f = Var8 >> 8 & 255;
        msg.Color = 0xFF0000;
        msg.Bold = 1;
        msg = "Новый пробег записан.";
    }
}
