[Dashboard\Suzuki\Swift\Swift 93C66 Var2]

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

Form
{
	Group("Описание",5,105,270,100) 
	{
		Label(lb2,"Введите нужное значение в окне ПРОБЕГ",0,55);
		Label(lb4,"Калькулятор пробега для Suzuki Swift.",0,20);
		Label(lb5,"Denso. EEPROM 93C66",0,35);
		Label(lb3,"и нажмите кнопку <Применить>.",0,70);
	}
	Group("Информация",5,58,270,45)
	{
		Label(message," ",0,18);
	}
	Group("Пробег",5,5,140,50)
	{
		Label(lb1,"KM",110,20);
		Digit(Distance," ",5,18,90);
	}
	Picture(Picture1,"Suzuki.bmp",180,5,0,0);
}

OnShow
{
	Var1 = 0x1F0; // Начальный адрес
	Var0 = @Var1 | (@(Var1 + 1) << 8); // Пробег в нулевой ячейке
	Var3 = 0;
	Var4 = 1;
	Var5 = 0;

	Var1 = Var1 + 2; // Начальный адрес второй (всего 8) копии пробега
	while(Var3 < 7) {
		Var10 = @Var1 | (@(Var1 + 1) << 8);
		Var11 = Var10 - Var0;
		if(Var11 = 1) {Var5 = Var5 + 1;}
		if(Var11 = 0) {Var4 = Var4 + 1;}
		Var1 = Var1 + 2;
		Var3 = Var3 + 1;
	}
	Var5 = Var5 + Var4;
	if(Var4 = 8) { Var4 = 0;}
	if (Var5 != 8)
	{
		message.Color = 0x0000FF;
		message.Bold = 1;
		message = "Неверный дамп!";
		Distance = 0;
	}
	else
	{
		Var3 = (Var10 ^ 0xFFFF) * 16;
		message.Color = 0xFF0000;
		message.Bold = 1;
		message = "Дамп OK!";
		Distance = Var3 + (Var4 * 2);
	}
}

OnApply 
{
	Var10 = Distance;
	Var0 = 0;
//	if(Var10 < 100)     {Var0 = 1;}
	if(Var10 > 999900)  {Var0 = 1;}

	if(Var0 = 1)
	{
		message.Color = 0x0000FF;
		message.Bold = 1;
		message = "Пробег должен быть от 0 до 999900 км";        
	}
	else
    {
		Var3 = 0;
		Var5 = 0x1F0;// Начальный адрес
		Var6 = 8;	// Константа
		Var0 = (Var10 / 0x10) + 1;    
		Var11 = Var10 % 0x10;    
		Var12 = Var6 - (Var6 - (Var11 / 2));
	
		Var1 = (Var0 & 0xFF) ^ 0xFF; 
		Var2 = ((Var0 >> 8) & 0xFF) ^ 0xFF; 

		while (Var3 < Var12) { // заполняем дамп
			@Var5 = Var1; Var5 = Var5 + 1;
			@Var5 = Var2; Var5 = Var5 + 1;
			Var3 = Var3 + 1;
		} 

		Var0 = Var0 - 1;    
		Var12 = Var6 - Var12;
		
		Var1 = (Var0 & 0xFF) ^ 0xFF; 
		Var2 = ((Var0 >> 8) & 0xFF) ^ 0xFF; 

		Var3 = 0;
		while (Var3 < Var12)
		{ // заполняем дамп
			@Var5 = Var1; Var5 = Var5 + 1;
			@Var5 = Var2; Var5 = Var5 + 1;
			Var3 = Var3 + 1;
		} 

		message.Color = 0xFF0000;
		message.Bold = 1;
		message = "Дамп OK!";
	}
}