Add(MainForm,2953706,21,105)
{
 Width=570
 Height=217
}
Add(InlineCode,9268460,308,84)
{
 WorkPoints=#6:doWork|
 EventPoints=#6:onTrue|0:|
 DataPoints=#6:Param1|6:Param2|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses kol,Share,Windows,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|8:        |10:    public|21:   Param1: THI_Event;|22:   Param2: THI_Event; |19: onTrue: THI_Event;|3:   |49:  Procedure doWork(var _Data:TData; Index:Word); |0:|5: end;|0:|2:  |15: implementation|0:|3:   |29:Procedure THiAsmClass.doWork;|0:|0:|0:|3:var|12:  s: string;|5:begin|15:  AllocConsole;|5:  try|23:    SetConsoleCP(1251);|29:    SetConsoleOutputCP(1251);|51:    Write('Введите любое слово и нажмите ENTER: ');|14:    Readln(s);|28:    writeln('Вы ввели ',s );|40:    Write('Нажмите ENTER для выхода: ');|11:    readln;|9:  finally|16:    FreeConsole;|6:  end;|1: |4:end;|0:|0:|4:end.|
}
Add(Button,575765,224,84)
{
 Left=20
 Top=30
 link(onClick,9268460:doWork,[])
}