Make(delphi)
ver(4.01 build 175)
Add(MainForm,12503742,266,329)
{
 Height=80
 BorderStyle=3
 link(onCreate,4886875:doOpen,[])
}
Add(COM,4886875,399,343)
{
}
Add(Edit,15242376,238,196)
{
 Left=15
 Top=10
 Width=240
 Text="C0 03 01 04 61 C1"
}
Add(Button,1461956,154,252)
{
 Left=265
 Top=10
 Caption="sha"
 link(onClick,13572839:doData,[])
}
Add(DoData,13572839,238,252)
{
 link(onEventData,3172224:doWork2,[])
 link(Data,10306436:Var2,[])
}
Add(Button,5155624,154,308)
{
 Left=330
 Top=10
 Caption="vbs"
 link(onClick,13461249:doWork,[])
}
Add(GetDataEx,10306436,231,231)
{
 link(Data,15242376:Text,[])
}
Add(HubEx,14560964,357,301)
{
 Angle=1
 link(onEvent,4886875:doWrite,[(361,370)])
}
Add(MultiElementEx,3172224,301,252)
{
 Mode=2
 link(onEventData,14560964:doWork1,[(361,258)])
}
BEGIN_SDK
  Add(EditMultiEx,4573147,21,21)
  {
   WorkCount=#7:doWork2|
   EventCount=#11:onEventData|
   link(doWork2,1986250:doWork2,[(28,27)(28,55)])
  }
  Add(StrPart,6577659,56,49)
  {
   Char=" "
   Point(onNotFound)
   link(onSplit,1986250:doWork1,[(100,55)(100,38)(39,38)])
   link(onPart,133233:doWork2,[])
   link(onNotFound,6678121:doEvent1,[(96,69)(96,90)])
  }
  Add(Convertor,12602983,147,56)
  {
   Mode=5
   link(onResult,15727370:doConvert,[])
  }
  Add(Convertor,15727370,196,56)
  {
   Mode=4
   link(onResult,10829502:doStrCat,[])
  }
  Add(HubEx,1986250,35,42)
  {
   link(onEvent,6577659:doSplit,[])
  }
  Add(HubEx,133233,126,49)
  {
   link(onEvent,12602983:doConvert,[])
  }
  Add(StrCat,10829502,252,56)
  {
   link(Str1,6920278:Var1,[(258,39)(297,39)(297,107)])
  }
  Add(Hub,6678121,105,84)
  {
   link(onEvent1,133233:doWork3,[(130,90)])
   link(onEvent2,8042498:doData,[(132,97)(132,125)])
  }
  Add(DoData,8042498,252,119)
  {
   link(onEventData,4573147:onEventData,[(302,125)(302,27)])
   link(Data,6920278:Var2,[])
  }
  Add(GetDataEx,6920278,245,98)
  {
   link(Data,10829502:Result,[])
  }
END_SDK
Add(VBJScript,13461249,203,308)
{
 WorkPoints=#6:doWork|
 EventPoints=#5:onRes|
 DataPoints=#5:inHex|
 Script=#18:Sub doWork(Dt,Idx)|25: arrIn = Split(sys.inHex)|27: for i = 0 to UBound(arrIn)|34:  tmp = tmp & Chr("&h" & arrIn(i))|5: next|14: sys.onRes tmp|7:End Sub|
 UseName=0
 link(onRes,14560964:doWork2,[])
 link(inHex,10306436:Var1,[(209,240)])
}