Add(MainForm,8158019,392,231)
{
}
Add(TCP_Client,7424447,532,231)
{
 Port=3128
 IP="212.154.154.99"
}
Add(Timer,16293983,483,231)
{
 Enable=1
 AutoStop=1
 Point(onStop)
 link(onTimer,7424447:doOpen,[])
 link(onStop,15879774:doCompare,[(523,244)(523,279)])
}
Add(Message,5023873,574,280)
{
 Message="закрыто!"
}
Add(Button,6001728,434,231)
{
 Left=110
 Top=175
 link(onClick,16293983:doTimer,[])
}
Add(If_else,15879774,532,273)
{
 Op2=String(0)
 link(onFalse,5023873:doMessage,[])
 link(Op1,7424447:Active,[])
}

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)])
}