[Airbag\Chevrolet\DPI with  (95080)]

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

Form
{
    Group("Идентификация",5,5,120,45)
    {
        Label(pn," ",0,18);
    }
    Group("Информация",5,58,270,45)
    {
        Label(message," ",0,18);
    }
    Group("Описание",5,105,270,90) 
    {
        Label(lb4,"Калькулятор для Airbag Chevrolet.",0,20);
        Label(lb5,"DPI.EEPROM 95080",0,35);
        Label(lb2,"Чтобы стереть CRASH",0,50);
        Label(lb3,"нажмите кнопку <Применить>.",0,65);
    }
  Picture(Logo,"Chevrolet.bmp",150,10,0,0); 
    }
OnShow
    {
    pn  = "PART No: "+#b.@0x276+#b.@0x277+#b.@0x278+#b.@0x279;
    var0 = 0; var1 = 0;var2 = 0xFF;
    if(@0x276 != 0x96) {Var0 = 1;}
    if(Var0 != 0)
     {
      Message.Bold = 1;
      Message.Color = 0x0000FF;
      Message = "Неверный дамп!";
     }
     else
     {
      if(@0x10 != 0xff) {Var1 = 1;} if(@0x11 != 0xff) {Var1 = 1;}
      var3 =0x1e; While(var3 != 0xA0)
      {
       Var2 =Var2 & @Var3; Var3 = var3 + 1;
      }
       var3 =0x2b0; While(var3 != 0x3c2)
      {
       Var2 =Var2 & @Var3; Var3 = var3 + 1;
      }
       var3 =0x3c4; While(var3 != 0x400)
      {
       Var2 =Var2 & @Var3; Var3 = var3 + 1;
      }
      if(var2 != 0xff) 
         {
          Message.Color = 0x0000FF;
	  Message.Bold = 1;
	  Message = "ОШИБКИ!";
         }
       else
         {
          Message.Color = 0xff0000;
	  Message.Bold = 1;
	  Message = "Дамп чистый!";
         }
    }
}

OnApply
{  
      Var1 = 0x220;
      while(Var1 != 0x2E0)
      {
       @Var1 = 0xFF; Var1 = Var1 + 1;
      }
     
      Message.Color = 0xFF00FF;
      Message.Bold = 1;
      Message = "Ошибки стерты!";
}
