Add(Button,6531240,126,161)
{
 Left=125
 Top=60
 link(onClick,10379623:doEvent1,[])
}
Add(Hub,10379623,203,161)
{
 OutCount=3
 link(onEvent1,67066:doStart,[(259,167)(259,90)])
 link(onEvent2,12313223:doStart,[(263,174)(263,223)])
 link(onEvent3,4082358:doStart,[(253,181)(253,335)])
}
Add(TimeCounter,67066,301,84)
{
 Precision=1
 link(onStart,2569247:doCompare,[])
 link(onStop,2348341:doText,[(341,97)(341,139)])
}
Add(Label,2348341,371,133)
{
 Left=200
 Top=50
 Width=100
}
Add(InlineCode,8947214,371,329)
{
 WorkPoints=#7:doStart|
 EventPoints=#6:onStop|5:onRes|
 Code=#15:unit HiAsmUnit;|12:// Autor Tad|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|10:   k:byte;|9:   public|27:   onRes, onStop:THI_Event;|50:   procedure doStart(var _Data:TData; Index:Word);|47:   procedure vRes(var _Data:TData; Index:Word);|5: end;|0:|14:implementation|31: procedure THiAsmClass.doStart;|18: var i, n:integer;|6: Begin|23:  for i:=1 to 100000 do|21:    for n:=1 to 18 do|10:     begin|24:      If n=17 then k:=1;|35:      If(n>=11)and(n<=16) then k:=0|9:     end;|25:   _hi_onEvent(onStop);  |5: End;|0:|27:procedure THiAsmClass.vRes;|5:begin|22:    dtInteger(_Data,k)|5:end; |4:end.|
 link(onStop,4082358:doStop,[(414,335)(414,317)(296,317)(296,342)])
}
Add(Label,5463166,371,371)
{
 Left=200
 Top=90
 Width=100
}
Add(TimeCounter,4082358,308,329)
{
 Precision=1
 link(onStart,8947214:doStart,[])
 link(onStop,5463166:doText,[(356,342)(356,377)])
}
Add(FTCG_Tools,2569247,371,84)
{
 link(onStop,67066:doStop,[(415,90)(415,66)(289,66)(289,97)])
}
BEGIN_SDK
  Add(EditMultiEx,9963575,21,21)
  {
   WorkCount=#9:doCompare|
   EventCount=#6:onStop|
   VarCount=#5:Value|
   Width=545
   Height=347
   link(doCompare,6564903:doFor,[(42,27)(42,97)])
   link(Value,11718991:Value,[(27,280)(482,280)])
  }
  Add(FT_If_else,12601791,224,133)
  {
   Type=4
   Op1=Integer(0)
   Op2=Integer(11)
   link(onTrue,14208137:doCompare,[])
   link(onFalse,15127802:doWork2,[(268,146)(268,188)])
  }
  Add(FT_If_else,14208137,280,133)
  {
   Type=3
   Op1=Integer(0)
   Op2=Integer(16)
   link(onTrue,14070654:doData,[])
   link(onFalse,15127802:doWork1,[(326,146)])
  }
  Add(FT_If_else,8262193,343,182)
  {
   Op1=Integer(0)
   Op2=Integer(17)
   link(onTrue,2535156:doData,[])
  }
  Add(HubEx,15127802,322,182)
  {
   link(onEvent,8262193:doCompare,[])
  }
  Add(FT_DoData,14070654,413,133)
  {
   Data=Integer(0)
   link(onEventData,15232975:doWork1,[(461,139)])
  }
  Add(FT_DoData,2535156,413,182)
  {
   Data=Integer(1)
   link(onEventData,15232975:doWork3,[(461,188)])
  }
  Add(FT_For,6564903,63,91)
  {
   End=100000
   Start=1
   link(onEvent,2541856:doFor,[(117,97)(117,139)])
   link(onStop,9963575:onStop,[(331,104)(331,27)])
  }
  Add(FT_For,2541856,168,133)
  {
   End=18
   Start=1
   link(onEvent,12601791:doCompare,[])
  }
  Add(FT_Memory,11718991,476,161)
  {
   Default=Integer(0)
  }
  Add(HubEx,15232975,457,161)
  {
   link(onEvent,11718991:doValue,[])
  }
END_SDK
Add(TimeCounter,12313223,308,217)
{
 Precision=1
 link(onStart,13337665:doCompare,[])
 link(onStop,1440663:doText,[(356,230)(356,272)])
}
Add(Label,1440663,371,266)
{
 Left=200
 Top=70
 Width=100
}
Add(FTCG_Tools,13337665,371,217)
{
 link(onEventData,12313223:doStop,[(410,223)(410,199)(296,199)(296,230)])
}
BEGIN_SDK
  Add(EditMultiEx,11208684,21,21)
  {
   WorkCount=#9:doCompare|
   EventCount=#11:onEventData|
   VarCount=#5:Value|
   Width=503
   Height=249
   link(doCompare,1251345:doFor,[(49,27)(49,139)])
   link(Value,2318795:Value,[(27,217)(454,217)])
  }
  Add(FT_If_else,5717795,245,140)
  {
   Type=4
   Op2=Integer(11)
   link(onTrue,842186:doCompare,[])
  }
  Add(FT_If_else,842186,301,140)
  {
   Type=3
   Op2=Integer(16)
   link(onTrue,14607147:doData,[])
  }
  Add(FT_If_else,5754866,175,133)
  {
   Op2=Integer(17)
   link(onTrue,12544399:doData,[(233,139)(233,97)])
   link(onFalse,5717795:doCompare,[])
  }
  Add(FT_DoData,14607147,364,140)
  {
   Data=Integer(0)
   link(onEventData,3070163:doWork2,[])
  }
  Add(FT_DoData,12544399,364,91)
  {
   Data=Integer(1)
   link(onEventData,3070163:doWork1,[(418,97)])
  }
  Add(HubEx,3070163,414,140)
  {
   link(onEvent,2318795:doValue,[])
  }
  Add(FT_Memory,2318795,448,140)
  {
   Default=Integer(0)
  }
  Add(FT_For,1251345,56,133)
  {
   End=100000
   Start=1
   link(onEvent,3272968:doFor,[])
   link(onStop,11208684:onEventData,[(100,146)(100,27)])
  }
  Add(FT_For,3272968,119,133)
  {
   End=18
   Start=1
   link(onEvent,5754866:doCompare,[])
  }
END_SDK