[Dashboard\Ford\F350\F350h 9S12H128]

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

Form 
{
    Group("Пробег",5,10,160,45)
    {
        Digit(Distance," ",2,18,45);
        Label(lbkm,"MILES",60,20);
        Digit(h," ",95,18,40);
        Label(lbh,"H",145,20);
    }
    Group("Идентифткация",5,80,270,45)
    {
        Label(vin," ",0,18);
    }
    Group("Информация",5,130,270,45) 
    {
        Label(msg," ",0,18);
    }    
    Group("Описание",5,180,270,85) 
    {
        Label(lb1,"Калькулятор пробега для Ford F350h.",0,20);
		Label(lb2,"Процессор 9S12H128.",0,35);
               
    }
    Picture(Logo,"Ford.bmp",180,20,0,0);
    
}

OnShow 
{
         vin.Bold =1;
         vin="Production 200"+#c.@0xfa4; 
       
        msg.Color = 0xFF0000;
        msg.Bold = 1;
        msg = "Дамп ОК. Введите новый пробег.";
        
        Distance = ((@0xf4c << 8)|@0xF4d) *13;
        Var0 = 0xCA1; Var1 = 0; Var2 = 0;
        while(Var0 != 0xCB5)
        {
         Var1 = @Var0 << 8; Var0 = Var0 + 1;
         Var1 = Var1 | (@Var0 & 0xff);
         if(Var1 > Var2) {Var2 = Var1;}
         Var0 = Var0 + 3;
        }
        h = Var2/10;
    
}

OnApply 
{
	Var0 = Distance;
	Var1 = 0;			
	if(Var0 > 999900) {Var1 = 1;}
	if(Var1 != 0)
	{
        msg.Color = 0x0000FF;
        msg.Bold = 1;
        msg = "Пробег должен быть до 999900 км";
        }
    else
        {
	Var0 = Var0 / 8;
        Var10 = 0xF4C;
        while(Var10 != 0xf9C)
         {
          @Var10 = (Var0 >> 8) & 0xFF ; Var10 = Var10 + 1;
          @Var10 = Var0 & 0xFF; Var10 = Var10 + 3;
         }
        Var11 = h - 6;
        Var12 = 0xCA1;
        while(Var12 != 0xCB5)
         {
          @Var12 = (Var11 >> 8)*11 & 0xFF; Var12 = Var12 + 1;
          @Var12 = Var11 & 0xFF; Var12 = Var12 + 3;
          Var11 = Var11 + 1;
         }	

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