[Dashboard\Ssang Yong\Korando\Korando Sports 24c16  2012 year]

Size(280,350);

Form
{
    Group("Пробег",5,13,165,50)
    {
        Digit(Distance," ",5,18,60);
        Label(lbkm,"КМ",80,20);
    }
    Group("Идентификация",5,80,270,45)
    {
        Label(partN," ",0,18);
    }
    Group("Информация",5,125,270,45)
    {
        Label(Message," ",0,18);
    }
    Group("Описание",5,175,270,90)
    {
        Label(lb1,"Калькулятор пробега для Korando Sports 24c16 2012.",0,20);
        Label(lb2," VDO. EEPROM 24C16.",0,35);
        Label(lb3,"Введите нужное значение в окне <Пробег>.",0,50);
        Label(lb4,"Нажмите кнопку <Применить>.",0,65);
    }
    Picture(Logo,"Hyndai.bmp",185,8,0,0);{
        Label(msg," ",0,280);
    }
    OnShow
    {msg.Color=0xFF33FF; msg.Bold=1;	             msg="Made in Юрий Борисович";
        Message.Bold = 1;
        Var0 = 1;
        if (Var0 = 0)
        {
            message.Color = 0x0000FF;
            Message = "Неверный дамп!";
            Distance = 0;
        }
        else
        {
            Var5 = (((@0x07 << 8)+@0x06) ^ 0xFFFF) << 5;
            message.Color = 0xFF0000;
            message.Bold = 1;
            message = "Дамп ОК. Введите новый пробег.";
            Distance = Var5;
        }
    }
    OnApply
    {
        Var0 = 1;
        if (Var0 = 0)
        {
            message.Color = 0x0000FF;
            Message = "Неверный дамп! Запись прекращена!";
            Distance = 0;
        }
        else
        {
            Var5 = 0;
            Var2 = Distance;
            Var7 = Var2 >> 5 & 65535 ^ 0xFFFF;
            if(Var2 > 999900) {Var5 = 1;}
            if(Var2 < 0)   {Var5 = 1;}
            if(Var5 != 0)
            {
                message.Color = 0x0000FF;
                message.Bold = 1;
                message = "Пробег должен быть от 0 до 999900 км";
            }
            else
            {
                Var3 = 0x06;
                while(Var3 != 0x26)
                {
                @Var3 = Var7 & 255;
                @Var3.mismatch = 1;
                    Var3 = Var3 + 1;
                @Var3 = Var7 >> 8 & 255;
                @Var3.mismatch = 1;
                    Var3 = Var3 + 1;
                    Var6 = Var7 * 2;
                    Var7 = (Var6 >> 16 + Var6) & 65535;
                    message.Color = 0xFF0000;
                    message.Bold = 1;
                    message = "Новый пробег записан.";
                }
                Var3 = 0x26;
                while(Var3 != 0x46)
                {

                @Var3 = Var7 & 255;
                @Var3.mismatch = 1;
                    Var3 = Var3 + 1;
                @Var3 = Var7 >> 8 & 255;
                @Var3.mismatch = 1;
                    Var3 = Var3 + 1;
                    Var6 = Var7 * 2;
                    Var7 = (Var6 >> 16 + Var6) & 65535;
                    message.Color = 0xFF0000;
                    message.Bold = 1;
                    message = "Новый пробег записан.";
                }
            }
        }
    }
}