Make(delphi)
ver(4.04 build 184)
Add(MainForm,2953706,147,70)
{
 Position=1
}
Add(Hub,8694286,203,287)
{
 link(onEvent1,6454395:doClear,[(231,293)(231,251)])
 link(onEvent2,8333859:doFor,[])
}
Add(For,8333859,238,294)
{
 Start=1
 End=1
 link(onEvent,13775115:doTimer,[])
 link(End,6454395:Value,[])
}
Add(Memory,6454395,245,238)
{
 Default=Integer(5)
 link(onData,13775115:doAutoStop,[(293,244)(293,314)])
}
Add(Hub,2402691,392,294)
{
 link(onEvent1,6780623:doClear,[])
 link(onEvent2,5905370:doTimer,[(424,307)(424,461)])
}
Add(Timer,5905370,434,455)
{
 Enable=1
 AutoStop=1
 Point(doAutoStop)
 link(onTimer,9269171:doClear,[])
}
Add(Button,1520554,119,287)
{
 Left=20
 Top=15
 link(onClick,8694286:doEvent1,[])
}
Add(Memo,9175896,616,287)
{
 Left=5
 Top=40
 Width=385
 Height=225
 link(onChange,13674895:doCompare,[])
}
Add(Hub,14152139,560,287)
{
 InCount=2
 OutCount=1
 link(onEvent1,9175896:doAdd,[])
}
Add(Memory,6780623,462,287)
{
 Default=Integer(1)
 link(onData,14152139:doEvent1,[])
}
Add(Memory,9269171,497,448)
{
 Default=Integer(2)
 link(onData,14152139:doEvent2,[(545,454)(545,300)])
}
Add(Timer,13775115,336,294)
{
 Enable=1
 AutoStop=1
 Point(doAutoStop)
 link(onTimer,2402691:doEvent1,[])
}
Add(InfoTip,15591790,441,252)
{
 Info=#22:выполняем 1-е действие|
 Width=85
 Height=81
}
Add(InfoTip,3328328,483,406)
{
 Info=#22:выполняем 2-е действие|
 Height=81
}
Add(If_else,13674895,700,287)
{
 Op2=Integer(3)
 link(onTrue,8333859:doStop,[(743,293)(743,375)(226,375)(226,307)])
}
Add(InfoTip,15179780,672,252)
{
 Info=#23:если ДА, то конец цикла|
 Width=85
 Height=95
}
Add(InfoTip,14723506,315,189)
{
 Info=#68:этот интервал может и не нужен, но строки должны выводится с паузами|
 Width=71
 Height=151
}
Add(InfoTip,1345805,406,350)
{
 Info=#68:этот интервал может и не нужен, но строки должны выводится с паузами|
 Width=71
 Height=151
}
Add(InfoTip,10428566,196,161)
{
 Info=#76:Вообще это даже не цикл, а бесконечное выполнение пока не выполнится условие|
 Width=568
 Height=347
}