Add(VBJScript,15883492,243,120)
{
 WorkPoints=#6:doRead|
 EventPoints=#6:onRead|
 DataPoints=#7:String1|
 Script=#15:Option Explicit|11: Dim Datas1|27:' Global var for this scrip|0:|0:|0:|27:Function doWork(Data,Index)|21: Datas1 = Sys.String1|19: Select Case Datas1|29:  Case "ааа" : Sys.onRead "1"|29:  Case "ббб" : Sys.onRead "2"|18:  '***************|30:  Case Else : Sys.onRead "999"|14:  End Select  |12:End Function|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|
 link(onRead,1763181:doText,[(288,126)(288,125)])
 link(String1,10221475:Value,[(249,108)(235,108)(235,164)(202,164)])
}
Add(Label,1763181,301,119)
{
 Left=220
 Top=20
 Width=45
 Color=12639424
}
Add(Edit,9923549,147,112)
{
 Left=105
 Top=15
 link(onEnter,10221475:doValue,[])
}
Add(Memory,10221475,196,119)
{
 link(onData,15883492:doRead,[(236,125)(236,126)])
}