Add(MainForm,2953706,21,105) { Width=381 Height=266 } Add(CounterEx,9148006,434,196) { Max=250 Default=-1 Point(doMax) Point(onThroughMax) PColor(onNext,43520) } Add(InlineCode,9715593,161,189) { WorkPoints=#6:do_in1| EventPoints=#4:out1|4:out2| Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|18: out1:THI_Event;|18: out2:THI_Event;|18: out3:THI_Event;|18: out4:THI_Event;|48: procedure do_in1(var Data:TData; index:word);|3: |5: end;|0:|14:implementation|0:|0:|0:|0:|29:procedure THiAsmClass.do_in1;|15:var s1:integer;|5:begin|24:s1 := ToInteger(Data); |0:|24: _hi_OnEvent(out1, s1);|24: _hi_OnEvent(out2, s1);|2: |4:end;|0:|0:|0:|0:|4:end.| link(out1,12575577:doTimer,[(206,195)(206,160)]) link(out2,9868924:doSleepMks,[]) } Add(Sleep,9868924,217,196) { Delay=500 link(onSleep,3085192:doTimer,[]) } Add(MMTimer,12575577,266,154) { Resolution=0 Interval=1 Enable=1 link(onTimer,3028706:doSafeMode,[]) } Add(MMTimer,3085192,266,196) { Resolution=0 Interval=1 Enable=1 link(onTimer,16659721:doSafeMode,[]) } Add(SafeMode,3028706,315,154) { Wait_Abandoned=0 WaitMode=1 link(onSafeMode,11771419:doWork1,[(368,160)]) } Add(SafeMode,16659721,315,196) { Wait_Abandoned=0 WaitMode=1 link(onSafeMode,11771419:doWork2,[]) } Add(HubEx,11771419,364,196) { link(onEvent,9148006:doNext,[]) } Add(SafeMode,5044365,315,280) { Wait_Abandoned=0 link(onSafeMode,15137005:doData,[]) } Add(FT_DoData,15137005,434,280) { link(onEventData,8928261:doMessage,[]) link(Data,9148006:Count,[]) } Add(Message,8928261,497,280) { } Add(Button,631166,238,280) { Left=65 Top=60 link(onClick,5044365:doSafeMode,[]) }