Add(MainForm,16206858,217,161)
{
 link(onCreate,3121164:doEvent1,[])
}
Add(DateConvertor,16735417,315,175)
{
 Mode=19
 Point(Data)
 link(onResult,16206858:doCaption,[(352,181)(352,174)(205,174)(205,167)])
 link(Data,12465396:DateTime,[])
}
Add(Time,12465396,308,119)
{
 Point(DateTime)
}
Add(InlineCode,2906007,315,238)
{
 WorkPoints=#9:doConvert|
 EventPoints=#5:Event|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses kol,windows,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|22:     Event: THI_Event;|53:     procedure doConvert(var Data:TData; index:word);|5: end;|0:|14:implementation|0:|5:const|24:  UnixDateDelta = 25569;|0:|0:|56:function DateTimeToUnix(const AValue: TDateTime): Int64;|5:begin|57:  Result := Round((AValue - UnixDateDelta) * SecsPerDay);|4:end;|0:|32:procedure THiAsmClass.doConvert;|4:var |12:  s: string;|5:begin|34:  s:=Int2Str(DateTimeToUnix(now));|24:  _hi_OnEvent(Event,s); |4:end;|0:|4:end.|
 link(Event,16067906:doText,[])
}
Add(Label,16067906,371,238)
{
 Left=185
 Top=40
}
Add(Hub,3121164,273,175)
{
 link(onEvent1,16735417:doConvert,[])
 link(onEvent2,2906007:doConvert,[(301,188)(301,244)])
}

Add(MainForm,16206858,217,161)
{
 link(onCreate,3121164:doEvent1,[])
}
Add(DateConvertor,16735417,315,175)
{
 Mode=19
 Point(Data)
 link(onResult,16206858:doCaption,[(352,181)(352,174)(205,174)(205,167)])
 link(Data,12465396:DateTime,[])
}
Add(Time,12465396,308,119)
{
 Point(DateTime)
}
Add(InlineCode,2906007,315,238)
{
 WorkPoints=#9:doConvert|
 EventPoints=#5:Event|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses kol,windows,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|22:     Event: THI_Event;|53:     procedure doConvert(var Data:TData; index:word);|5: end;|0:|14:implementation|0:|5:const|24:  UnixDateDelta = 25569;|0:|0:|56:function DateTimeToUnix(const AValue: TDateTime): Int64;|5:begin|57:  Result := Round((AValue - UnixDateDelta) * SecsPerDay);|4:end;|0:|32:procedure THiAsmClass.doConvert;|4:var |12:  s: string;|5:begin|34:  s:=Int2Str(DateTimeToUnix(now));|24:  _hi_OnEvent(Event,s); |4:end;|0:|4:end.|
 link(Event,16067906:doText,[])
}
Add(Label,16067906,371,238)
{
 Left=185
 Top=40
}
Add(Hub,3121164,273,175)
{
 OutCount=3
 link(onEvent1,16735417:doConvert,[])
 link(onEvent2,2906007:doConvert,[(301,188)(301,244)])
 link(onEvent3,15442685:doWork,[(295,195)(295,300)])
}
Add(VBJScript,15442685,315,294)
{
 WorkPoints=#6:doWork|
 EventPoints=#5:onRes|
 Script=#27:const UnixDateDelta = 25569|24:const SecsPerDay = 86400|0:|31:Function DateTimeToUnix(AValue)|59:  DateTimeToUnix = Round((AValue-UnixDateDelta)*SecsPerDay)|13:End  Function|0:|19:Sub doWork(dt, idx)|31:  sys.onRes DateTimeToUnix(Now)|7:End Sub|0:|
 link(onRes,14282112:doText,[])
}
Add(Label,14282112,371,294)
{
 Left=185
 Top=80
}