Make(delphi)
ver(4.04 build 185)
Add(MainForm,2953706,252,224)
{
 Position=1
 link(onCreate,2741100:doBite,[])
}
Add(DataToFile,9049754,399,238)
{
 link(Stream,2051714:Var2,[])
}
Add(InlineCode,2741100,301,238)
{
 WorkPoints=#6:doBite|
 EventPoints=#6:onBite|10:onBiteStop|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|5:const|489: arr:array[0..144] of Byte = (27,0,0,0,120,218,43,46,45,72,45,138,47,78,77,46,1,82,217,169,149,241,153,197,241,37,69,249,57,64,8,0,159,72,11,98,27,0,0,0,120,218,43,46,45,72,45,138,47,78,77,46,1,82,217,169,149,241,153,197,241,37,69,249,57,64,8,0,159,72,11,98,27,0,0,0,120,218,43,46,45,72,45,138,47,78,77,46,1,82,217,169,149,241,153,197,241,37,69,249,57,64,8,0,159,72,11,98,27,0,0,0,120,218,43,46,45,72,45,138,47,78,77,46,1,82,217,169,149,241,153,197,241,37,69,249,57,64,8,0,159,72,11,98,0);|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|9:   public|20:   onBite:THI_Event;|24:   onBiteStop:THI_Event;|49:   procedure doBite(var _Data:TData; Index:word);|5: end;|1: |14:implementation|0:|0:|58:procedure THiAsmClass.doBite(var _Data:TData; Index:word);|14:var i:integer;|5:begin|29: for i := 0 to Length(arr) do|7:  begin|28:   dtInteger(_Data, arr[i]);|30:   _hi_onEvent_(onBite,_Data);|5: end;|25: _hi_OnEvent(onBiteStop);|4:end;|0:|4:end.|
 link(onBite,9049754:doPut,[])
 link(onBiteStop,54394:doDeCompress,[(372,251)(372,300)])
}
Add(MemoryStream,563023,399,168)
{
}
Add(ZLIB,54394,455,287)
{
 link(onStream,15526318:doConvert,[])
 link(Stream,2051714:Var3,[(461,215)])
}
Add(GetDataEx,2051714,399,210)
{
 link(Data,563023:Stream,[])
}
Add(StreamConvertor,15526318,532,287)
{
 Mode=6
 link(onResult,2953706:doCaption,[(605,293)(605,154)(232,154)(232,230)])
}