Add(MainForm,4882624,28,91)
{
 Width=401
}
Add(Button,14104962,126,70)
{
 Left=10
 Top=30
 Caption="HiAsm"
 link(onClick,3475327:doStart,[])
}
Add(For,15779022,266,70)
{
 End=5000000
 link(onEvent,13777634:doCalc,[])
 link(onStop,3475327:doStop,[(310,83)(310,55)(176,55)(176,83)])
}
Add(MathParse,13777634,350,70)
{
 MathStr="sqrt(%1 + %2)"
 link(X1,8571906:Var1,[(356,58)(339,58)(339,128)])
 link(X2,15779022:Position,[(363,38)(318,38)(318,114)(272,114)])
}
Add(Message,8555818,420,154)
{
 link(Caption,8571906:Var3,[(433,128)])
}
Add(GetDataEx,8571906,343,119)
{
 link(Data,13777634:Result,[])
}
Add(TimeCounter,3475327,189,70)
{
 link(onStart,15779022:doFor,[])
 link(onStop,8555818:doMessage,[(244,83)(244,160)])
}
Add(Button,6585019,84,245)
{
 Left=10
 Top=75
 Caption="VBScript"
 link(onClick,8287669:doEvent1,[])
}
Add(Hub,8287669,147,245)
{
 link(onEvent1,12815455:doStart,[])
 link(onEvent2,12815455:doStop,[])
}
Add(VBJScript,13649343,266,245)
{
 WorkPoints=#9:Raschitat|
 Script=#27:function doWork(Data,Index)|29:  If Index = "Raschitat" Then|24:    For a = 1 to 5000000|22:      b = sqr (a + b) |8:    Next|13:    'MsgBox b|8:  End if|12:End function|
 UseName=0
}
Add(TimeCounter,12815455,203,245)
{
 link(onStart,13649343:Raschitat,[])
 link(onStop,15942785:doMessage,[])
}
Add(Message,15942785,371,252)
{
}

Add(MainForm,4882624,266,287)
{
 Width=401
}
Add(Button,14104962,266,329)
{
 Left=10
 Top=30
 Caption="HiAsm"
 link(onClick,11706367:doEvent1,[])
}
Add(Message,8555818,469,336)
{
 link(Caption,9688063:Value,[])
}
Add(TimeCounter,3475327,350,329)
{
 link(onStart,3691378:Start,[(398,335)(398,293)])
 link(onStop,8555818:doMessage,[])
}
Add(Button,6585019,266,392)
{
 Left=10
 Top=75
 Caption="VBScript"
 link(onClick,8287669:doEvent1,[])
}
Add(Hub,8287669,315,392)
{
 link(onEvent1,12815455:doStart,[])
 link(onEvent2,12815455:doStop,[])
}
Add(VBJScript,13649343,413,392)
{
 WorkPoints=#9:Raschitat|
 Script=#27:function doWork(Data,Index)|29:  If Index = "Raschitat" Then|24:    For a = 1 to 5000000|22:      b = sqr (a + b) |8:    Next|13:    'MsgBox b|8:  End if|12:End function|
 UseName=0
}
Add(TimeCounter,12815455,350,392)
{
 link(onStart,13649343:Raschitat,[])
 link(onStop,15942785:doMessage,[])
}
Add(Message,15942785,469,399)
{
}
Add(InlineCode,3691378,413,287)
{
 WorkPoints=#5:Start|
 EventPoints=#8:onResult|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|25:     onResult: THI_Event;|50:     procedure Start(var _Data:TData; Index:word);|5: end;|0:|14:implementation|0:|28:procedure THiAsmClass.Start;|3:var|16:  a, b: integer;|5:begin|26:  for a := 1 to 5000000 do|28:    b := Round(sqrt(a + b));|28:  _hi_OnEvent(onResult, b); |4:end;|0:|4:end.|
 link(onResult,9688063:doValue,[])
}
Add(Hub,11706367,315,329)
{
 link(onEvent1,3475327:doStart,[])
 link(onEvent2,3475327:doStop,[])
}
Add(Memory,9688063,476,287)
{
}