[Dashboard\Ford\GT 24c08]

Size(280,240); // ширина и высота

Form 
{
    Group("Пробег",10,13,120,45)
    {
        Digit(Distance," ",5,18,50);
        Label(lbkm,"МILES",70,20);
        
    }
    Group("Информация",5,60,270,45) 
    {
        Label(msg," ",0,18);
    }    
    Group("Описание",5,110,270,70) 
    {
        Label(lb1,"Калькулятор пробега для Ford GT.",0,20);
		Label(lb2,"Eeprom 24c08.",0,40);
            
    }
    Picture(Logo,"Ford.bmp",160,20,0,0);
    
}

OnShow 
{
       
        msg.Color = 0xFF0000;
        msg.Bold = 1;
        msg = "Дамп ОК. Введите новый пробег.";
        
        Distance = ((@0x00 << 24)|(@0x01 << 16)|(@0x02 << 8)|@0x03)/ 100;
    
}

OnApply 
{
	Var0 = Distance;
	Var1 = 0;			// инидкатор ошибки
	if(Var0 > 999900) {Var1 = 1;}
	if(Var1 != 0)
	{
        msg.Color = 0x0000FF;
        msg.Bold = 1;
        msg = "Пробег должен быть до 999900 км";
    }
    else
    {
		Var0 = Var0 * 100;
		Var2 = Var0 & 0xff;
		Var3 = (Var0 >> 8) & 0xff;
		Var4 = (Var0 >> 16) & 0xff;
		Var5 = (Var0 >> 24) & 0xff;
                Var6 = 0x100 -(Var2 + Var3 + Var4 + Var5);
                Var7 = 0x00;
                while(Var7 != 0x12)
                {
		@Var7 = Var5; Var7 = Var7 + 1;
		@Var7 = Var4; Var7 = Var7 + 1;
		@Var7 = Var3; Var7 = Var7 + 1;
		@Var7 = Var2; Var7 = Var7 + 1;
		@Var7 = Var6; Var7 = Var7 + 2;
                }

		msg.Color = 0xff0000;
                msg.Bold = 1;
		msg = "Новый пробег записан. Дамп ОК.";	
	}
}
