------------ Дoбавленo:
Хотя без KeyMask можно обойтись
Add(hcKeyHandler,5907180,140,478)
{
link(onKeyDown,9418930:doCompare,[])
link(onKeyUp,13296475:doData,[(184,491)(184,533)])
}
Add(hcIf_else,9418930,189,478)
{
Op2=Integer(65)
link(onTrue,10463603:doWork2,[])
}
Add(hcKeyHandler,6704735,140,422)
{
link(onKeyDown,4864898:doCompare,[])
}
Add(hcIf_else,4864898,189,422)
{
Op2=Integer(17)
link(onTrue,11263450:doText,[])
}
Add(hcVisualText,14414976,280,478)
{
Width=25
ShowPoints=0
link(onText,2371621:doOperation,[])
}
Add(hcMath,2371621,322,478)
{
ResultType=0
link(onResult,12242714:doCompare,[])
link(Op1,11263450:Text,[(328,462)(237,462)])
link(Op2,14414976:Text,[(335,466)(311,466)(311,508)(286,508)])
}
Add(HubEx,10463603,259,471)
{
link(onEvent,14414976:doText,[])
}
Add(hcDoData,13296475,196,527)
{
link(onEventData,10463603:doWork3,[(263,533)])
}
Add(hcVisualText,11263450,231,422)
{
Lines=#2:17|
Height=25
ShowPoints=0
}
Add(hcIf_else,12242714,378,478)
{
Op2=Integer(82)
link(onTrue,15310815:doBeep,[(426,484)(426,482)])
}
Add(hcBeep,15310815,441,476)
{
}