#sha

Make(delphi)
ver(4.0 build 173)
Add(MainForm,10977632,21,105)
{
 Left=20
 Top=105
 Width=645
 Height=498
 Font=[Arial,8,0,0,1]
}
Add(VBScript,3863772,399,168)
{
 WorkPoints=#6:doRead|
 EventPoints=#7:onRead1|7:onRead2|
 DataPoints=#1:w|1:h|1:t|1:y|
 Script=#27:function doWork(Data,Index)|14: w=getdata "w"|14: h=getdata "h"|14: t=getdata "t"|14: y=getdata "y"|0:|24:  onEvent "onRead1", t+y|24:  onEvent "onRead2", w+h|0:|3:end|
 link(onRead1,15588589:doText,[])
 link(onRead2,14622935:doText,[(506,181)(506,216)])
 link(w,7682005:Var,[(405,131)(328,131)])
 link(h,8161830:Var,[(412,121)(391,121)])
 link(t,9975093:Var,[(419,130)(468,130)])
 link(y,2319456:Var,[(426,139)(531,139)])
}
Add(Edit,2581439,91,119)
{
 Left=185
 Top=140
 Text="0"
 link(onChange,15362462:doConvert,[])
}
Add(GlobalVar,8161830,385,77)
{
 Name="temp1"
 Data=Real(0)
}
Add(GlobalVar,12226432,203,119)
{
 Name="temp1"
 Data=Real(0)
 Point(doName)
}
Add(Edit,647541,91,70)
{
 Left=115
 Top=140
 Text="0"
 link(onChange,8154443:doConvert,[])
}
Add(GlobalVar,2929557,203,70)
{
 Name="temp2"
 Data=Real(0)
 Point(doName)
}
Add(GlobalVar,7682005,322,77)
{
 Name="temp2"
 Data=Real(0)
}
Add(Convertor,8154443,147,70)
{
 Mode=10
 link(onResult,2929557:doValue,[])
}
Add(Convertor,15362462,147,119)
{
 Mode=10
 link(onResult,12226432:doValue,[])
}
Add(GlobalVar,2319456,525,77)
{
 Name="temp4"
 Data=Real(0)
}
Add(GlobalVar,9975093,462,77)
{
 Name="temp3"
 Data=Real(0)
}
Add(Edit,16232529,91,168)
{
 Left=115
 Top=180
 Text="0"
 link(onChange,9456971:doConvert,[])
}
Add(GlobalVar,15978413,203,168)
{
 Name="temp3"
 Data=Real(0)
 Point(doName)
}
Add(Convertor,9456971,147,168)
{
 Mode=10
 link(onResult,15978413:doValue,[])
}
Add(Edit,10188164,91,217)
{
 Left=185
 Top=180
 Text="0"
 link(onChange,10346495:doConvert,[])
}
Add(GlobalVar,12931928,203,217)
{
 Name="temp4"
 Data=Real(0)
 Point(doName)
}
Add(Convertor,10346495,147,217)
{
 Mode=10
 link(onResult,12931928:doValue,[])
}
Add(Edit,15588589,567,168)
{
 Left=275
 Top=180
}
Add(Edit,14622935,567,210)
{
 Left=275
 Top=140
}
Add(Timer,9412027,329,168)
{
 Interval=100
 link(onTimer,3863772:doRead,[])
}
Add(Label,13905110,105,273)
{
 Left=165
 Top=140
 Width=10
 Height=17
 Caption="+"
}
Add(Label,3285391,154,273)
{
 Left=170
 Top=180
 Width=10
 Height=17
 Caption="+"
}
Add(Label,689970,105,315)
{
 Left=240
 Top=145
 Width=10
 Height=17
 Caption="="
}
Add(Label,15444341,154,315)
{
 Left=240
 Top=180
 Width=10
 Height=17
 Caption="="
}