[Airbag\Subaru\152300-0670 (RA57-93C56)]

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

Form
{
    Group("Информация",10,15,170,40)
    {
        Label(msg," ",0,17);
    }

    Group("Описание",5,60,270,85) 
    {
        Label(lb4,"Калькулятор для Subaru\152300-0670.",0,15);
        Label(lb5,"eeprom RA57 - 93C56 ",0,30);
        Label(lb2,"Чтобы стереть CRASH и ошибки",0,45);
       
        Label(lb3,"нажмите кнопку <Применить>.",0,60);
    }
  Picture(Logo,"Subaru.bmp",195,15,0,0); 
}
OnShow
    {
     
     var0 = 0;Var1 =0; Var2 =0x00;
     if(@0x78 = 0xff) {Var0 = Var0 + 1;}
     if(@0x78 = 0xff) {Var0 = Var0 + 1;}
     if(Var0 != 0) 
       {
        msg.Color = 0x0000FF;
	msg.Bold = 1;
	msg = "Неверный дамп!";
       }
     else
       {
        Var1 =0x70; 
        while(Var1 !=0x76)
        {
         Var2 =Var2 | @Var1; Var1 = var1 + 1;
        }
        
        if(var2 != 0x00) 
         {
          msg.Color = 0x0000FF;
	  msg.Bold = 1;
	  msg = "Обнаружен CRASH!";
         }
         else
         {
          msg.Color = 0xff0000;
	  msg.Bold = 1;
	  msg = "Дамп чистый!";
         }
       }  
    }
OnApply
      {
      Var10 = 0x00;
      while(Var10 != 0x60)
      {
       @Var10 = 0x00; Var10 = Var10 + 1;
      }
          Var10 = 0x70;
      while(Var10 != 0x7C)
      {
       @Var10 = 0x00; Var10 = Var10 + 1;
      }
          Var10 = 0x80;
      while(Var10 != 0xE6)
      {
       @Var10 = 0x00; Var10 = Var10 + 1;
      }
         
          
     
      msg.Color = 0xff00ff;
      msg.Bold = 1;
      msg = "CRASH и ошибки стерты!";
    }