[Airbag\Daewoo\Lanos\Lanos (68HC11E20)]

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

Form
{
   
    Group("Информация",5,5,140,45)
    {
        Label(msg," ",0,18);
    }
    Group("Идентификация",5,58,270,45)
    {
        Label(part," ",0,18);
    }
    Group("Описание",5,105,270,100) 
    {
        Label(lb4,"Калькулятор для Airbag Daewoo Lanos.",0,20);
        Label(lb5,"Внутреннее ЕЕПРОМ 68HC11E20",0,35);
        Label(lb2,"Чтобы стереть CRASH и ошибки",0,55);
        Label(lb3,"нажмите кнопку <Применить>.",0,70);
    }
  Picture(Logo,"Daewoo.bmp",170,10,0,0); 
}
OnShow
    {
     part = "Part No. "+#b.@0x4a+" "+#b.@0x4b+#b.@0x4c+#b.@0x4d;
     var0 = 0; Var1 =0; Var2 =0xff; Var3 =0; Var4 = 0; Var5 = 0; Var6 =0;
     if(@0x5a != 0x31) {Var0 = Var0 + 1;}
     if(@0x5b != 0x30) {Var0 = Var0 + 1;}
     if(Var0 != 0) 
       {
        msg.Color = 0x0000FF;
	msg.Bold = 1;
	msg = "Неверный дамп!";
       }
     else
       {
        Var1 =0x00; 
        while(Var1 !=0x09)
        {
         Var2 =Var2 & @Var1; Var1 = var1 + 1;
        }
        Var3 =0x0a;
        while(Var3 !=0x18)
        {
         Var2 =Var2 & @Var3; Var3 = Var3 + 1;
        }
        Var4 =0x19; 
        while(Var4 !=0x2d)
        {
         Var2 =Var2 & @Var4; Var4 = var4 + 1;
        }
        Var5 =0x2e;
        while(Var5 !=0x31)
        {
         Var2 =Var2 & @Var5; Var5 = var5 + 1;
        }
        Var6 =0x32;
        while(Var6 !=0x49)
        {
         Var2 =Var2 & @Var6; Var6 = var6 + 1;
        }

        if(var2 != 0xff) 
         {
          msg.Color = 0x0000FF;
	  msg.Bold = 1;
	  msg = "!!!ОШИБКИ!!!";
         }
         else
         {
          msg.Color = 0xff0000;
	  msg.Bold = 1;
	  msg = "дамп чистый!";
         }
       }  
    }
OnApply
    {
      Var10 = 0x00;
      while(Var10 != 0x09)
      {
       @Var10 = 0xFF; Var10 = Var10 + 1;
      }
      Var10 = 0x0a;
      while(Var10 != 0x18)
      {
       @Var10 = 0xFF; Var10 = Var10 + 1;
      }
      Var10 = 0x19;
      while(Var10 != 0x2d)
      {
       @Var10 = 0xFF; Var10 = Var10 + 1;
      }
      Var10 = 0x2e;
      while(Var10 != 0x31)
      {
       @Var10 = 0xFF; Var10 = Var10 + 1;
      }
      Var10 = 0x32;
      while(Var10 != 0x49)
      {
       @Var10 = 0xFF; Var10 = Var10 + 1;
      }
      msg.Color = 0xff00ff;
      msg.Bold = 1;
      msg = "Ошибки стерты!";
    }