Add(MainForm,2953706,126,196)
{
 link(onCreate,14967820:doData,[])
}
Add(RichEdit,172051,308,196)
{
 Left=10
 Top=90
 Width=610
 Height=110
 ScrollBars=2
}
Add(Charset,6699327,238,210)
{
 Type=8
 CodePage1=1251
 CodePage2=1252
 link(onCharset,172051:doText,[])
}
Add(DoData,14967820,196,210)
{
 Data=String(Æóðíàë)
 link(onEventData,6699327:doCharset,[])
}

Add(Button,8654683,91,98)
{
 Left=75
 Top=95
 Caption="Decode"
 Data=String(Æóðíàë)
 link(onClick,9696268:doEvent1,[])
}
Add(Convertor,8958894,224,105)
{
 Mode=4
 link(onResult,10877811:doStrCatDlm,[(272,111)(272,97)])
}
Add(BlockFind,6130472,175,105)
{
 IncludeBlock=1
 StartBlock="&#"
 EndBlock=";"
 link(onSearch,8958894:doConvert,[])
 link(onEndSearch,15720127:doData,[(218,118)(218,153)])
}
Add(StrCatDelim,10877811,287,91)
{
 Point(doClear)
 link(Str1,3364694:Var1,[(293,79)(281,79)(281,135)])
}
Add(Hub,9696268,140,98)
{
 link(onEvent1,10877811:doClear,[])
 link(onEvent2,6130472:doSearch,[])
}
Add(DoData,15720127,287,147)
{
 link(onEventData,3088683:doMessage,[])
 link(Data,3364694:Var2,[])
}
Add(GetDataEx,3364694,287,130)
{
 link(Data,10877811:Result,[])
}
Add(Message,3088683,336,147)
{
}

Add(MainForm,2953706,133,168)
{
 Height=377
}
Add(Edit,1598683,231,168)
{
 Left=10
 Top=20
 Width=310
 Text="u0431u0440u0430u0442u044cu0435u0432"
}
Add(Label,9098661,399,217)
{
 Left=10
 Top=80
}
Add(Button,2492298,133,217)
{
 Left=10
 Top=50
 link(onClick,12299683:doEvent1,[])
}
Add(Replace,10143433,231,217)
{
 SubStr="u"
 link(onReplace,8885652:doConvert,[])
 link(Str,1598683:Text,[])
}
Add(StreamConvertor,8885652,287,217)
{
 Mode=3
 link(onResult,5945248:doCharset,[])
}
Add(Charset,5945248,343,217)
{
 Type=9
 InTypeUnicode=1
 link(onCharset,9098661:doText,[])
}
Add(Edit,13398204,574,364)
{
 Left=10
 Top=100
 Width=310
 Text=""
 link(Str,12008767:Var2,[])
}
Add(Charset,3927052,231,308)
{
 Type=10
 OutTypeUnicode=1
 InTypeUnicode=1
 link(onCharset,9031330:doConvert,[])
 link(Text,9098661:Caption,[(237,257)(405,257)])
}
Add(StreamConvertor,9031330,287,308)
{
 Mode=2
 link(onResult,348700:doValue,[])
}
Add(Hub,12299683,189,217)
{
 OutCount=3
 link(onEvent1,10143433:doReplace,[])
 link(onEvent2,16512878:doClear,[(221,230)(221,265)(550,265)(550,321)])
 link(onEvent3,3927052:doCharset,[(214,237)(214,314)])
}
Add(Copy,8753935,511,308)
{
 Count=4
 link(onCopy,16512878:doStrCatDlm,[])
 link(Str,348700:Value,[(517,299)(503,299)(503,348)(349,348)])
}
Add(Memory,348700,343,308)
{
 link(onData,16068896:doLength,[])
}
Add(Length,16068896,399,308)
{
 link(onLength,11600566:doFor,[])
}
Add(For,11600566,455,308)
{
 Start=1
 Step=4
 IncludeEnd=1
 InData=0
 link(onEvent,8753935:doCopy,[])
 link(onStop,13398204:doText,[(494,321)(494,370)])
}
Add(StrCatDelim,16512878,574,308)
{
 Delimiter="u"
 Point(doClear)
 link(Str1,12008767:Var1,[(580,299)(566,299)(566,348)])
}
Add(GetDataEx,12008767,574,343)
{
 link(Data,16512878:Result,[])
}

Add(VBJScript,9454034,574,161)
{
 WorkPoints=#6:doWork|
 EventPoints=#5:onRes|
 Script=#18:Sub doWork(dt,idx)|21: sys.onRes escape(dt)|7:End Sub|
 UseName=0
 link(onRes,13600899:doText,[])
}
Add(DoData,9329648,504,161)
{
 link(onEventData,1215894:doWork2,[])
 link(Data,7462311:Text,[])
}
Add(Memo,7462311,504,91)
{
 Left=35
 Top=10
 Width=420
 Strings=#6:Привет|
 link(onChange,1215894:doWork1,[(550,97)])
}
Add(Memo,13600899,644,140)
{
 Left=35
 Top=90
 Width=420
}
Add(HubEx,1215894,546,161)
{
 link(onEvent,9454034:doWork,[])
}
Add(MainForm,8231083,434,147)
{
 Width=518
 Height=231
 Caption="EventFromData - close form"
 link(onCreate,9329648:doData,[])
}