Add(MainForm,2953706,21,105)
{
 Width=213
 Height=260
}
Add(TCP_Client,14802611,175,266)
{
 Port=81
 IP="127.0.0.1"
 link(onConnect,14555864:doData,[])
}
Add(TCP_Server,11806896,231,147)
{
 Port=81
}
Add(Button,6795238,154,126)
{
 Left=5
 Top=5
 Width=65
 Caption="Listen"
 link(onClick,11806896:doOpen,[(208,132)(208,153)])
}
Add(Button,16305736,154,168)
{
 Left=5
 Top=30
 Width=65
 Caption="Close port"
 link(onClick,11806896:doClose,[(208,174)(208,160)])
}
Add(Button,13572565,91,266)
{
 Left=130
 Top=5
 Width=65
 Caption="Connect"
 link(onClick,14284192:doEvent1,[])
}
Add(ListBox,5999764,308,308)
{
 Left=5
 Top=55
 Width=195
 Height=165
}
Add(Hub,14284192,133,266)
{
 link(onEvent1,14802611:doOpen,[])
 link(onEvent2,10606143:doCompare,[(157,279)(157,342)])
}
Add(If_else,10606143,175,336)
{
 Type=5
 Op2=Integer(1)
 link(onTrue,8964804:doData,[])
 link(Op1,14802611:Active,[])
}
Add(DoData,8964804,238,336)
{
 Data=String(Порт закрыт)
 link(onEventData,10446803:doWork3,[(291,342)])
}
Add(DoData,14555864,238,273)
{
 Data=String(Соединено)
 link(onEventData,10446803:doWork1,[(291,279)])
}
Add(HubEx,10446803,287,301)
{
 link(onEvent,5999764:doAdd,[])
}
Add(Button,11790236,91,308)
{
 Left=130
 Top=30
 Width=65
 Caption="Disconnect"
 link(onClick,14802611:doClose,[(162,314)(162,279)])
}