Add(MainForm,2953706,21,105)
{
 Width=253
 Height=425
}
Add(MouseEvent,8285009,287,84)
{
 Point(Handle)
}
Add(Timer,10733182,238,161)
{
 Interval=32
 link(onTimer,1113730:doValue,[])
}
Add(MemFifo,1113730,287,161)
{
 Point(Data)
 link(onData,10606413:doValue,[])
 link(Data,8285009:MouseX,[])
}
Add(MemFifo,10606413,343,161)
{
 Point(Data)
 link(onData,15142908:doCalc,[(388,167)(388,217)(275,217)(275,244)])
 link(Data,8285009:MouseY,[(349,148)(300,148)])
}
Add(KeyEvent,6874037,511,238)
{
 link(Handle,8285009:Handle,[(517,135)(307,135)])
}
Add(ListBox,6274616,462,238)
{
 Left=20
 Top=15
 Width=205
 Height=365
 AddType=1
}
Add(MathParse,15142908,287,238)
{
 @Hint=#38:При желании меняем коэффициент 10 на любое другое.|
 DataCount=4
 MathStr="(((%1-%2)<-10)*37) + (((%1-%2)>10)*39) + (((%3-%4)<-10)*38) + (((%3-%4)>10)*40)"
 link(onResult,9577530:doData,[])
 link(X1,1113730:Value1,[])
 link(X2,1113730:Value2,[])
 link(X3,10606413:Value1,[(307,201)(349,201)])
 link(X4,10606413:Value2,[(314,201)(356,201)])
 AddHint(-198,49,196,26,@Hint)
}
Add(ChangeMon,9577530,329,238)
{
 link(onData,3028584:doCalc,[])
}
Add(MathParse,3028584,371,238)
{
 @Hint=#25:Отсеиваем другие значения|
 DataCount=1
 MathStr="((%1=37)*37)+((%1=38)*38)+((%1=39)*39)+((%1=40)*40)"
 link(onResult,16386348:doCompare,[])
 AddHint(-56,52,159,13,@Hint)
}
Add(If_else,16386348,413,238)
{
 Type=5
 Op2=Integer(0)
 link(onTrue,6274616:doAdd,[])
}