Add(Console,2953706,21,105) { link(onStart,9675491:doEvent1,[]) } Add(DoData,11573101,161,105) { Data=String(Hello and bye-bye!) link(onEventData,2953706:doWrite,[(216,111)(216,97)(11,97)(11,111)]) } Add(InlineCode,1734916,210,161) { WorkPoints=#70:doExitProcess=Завершение работы программы с указанным кодом завершения|48:doSetExitCode=Установить код завершения процесса| DataPoints=#8:ExitCode| Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses windows,kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|24: ExitCode:THI_Event;|58: procedure doExitProcess(var _Data:TData; index:word);|58: procedure doSetExitCode(var _Data:TData; index:word);|5: end;|0:|4: |14:implementation|0:|0:|65:procedure THiAsmClass.doExitProcess(var _Data:TData; index:word);|5:begin|47: ExitProcess(ReadInteger(_Data, ExitCode, 0));|4:end;|0:|65:procedure THiAsmClass.doSetExitCode(var _Data:TData; index:word);|5:begin|53: System.ExitCode := ReadInteger(_Data, ExitCode, 0);|4:end;|0:|4:end.| } Add(Hub,9675491,84,105) { link(onEvent1,11573101:doData,[]) link(onEvent2,13303579:doData,[(130,118)(130,174)]) } Add(DoData,13303579,161,168) { Data=Integer(100) link(onEventData,1734916:doSetExitCode,[]) }