procedure TClassFTCG_Tools_33EB1B0.event_doCompare(var Data:TData; index:word);
var
  i1:integer;
  i2:integer;
begin
  
  for i1 := 1 to 100000 do
  begin
    for i2 := 1 to 18 do
    begin
      if((i2 >= 11) and (i2 <= 16) )then
      begin
        val6 := int2str(0);
      end
      else
      begin
        if i2 = 17 then
        begin
          val6 := int2str(1);
        end;
      end;
    end;
  end;
  _hi_onEvent(THIFTCG_Tools(FParent).Events[0]);
end;

 procedure THiAsmClass.doStart;
 var i, n:integer;
 Begin
  for i:=1 to 100000 do
   begin
    for n:=1 to 18 do
     begin
      If n=17 then k:=1;
      If(n>=11)and(n<=16) then k:=0;
     end;
  end;   
   _hi_onEvent(onStop);  
 End;