Add(Timer,16590596,287,189)
{
 link(onTimer,12083555:doEvent1,[])
}
Add(MainForm,10633582,287,140)
{
 Width=308
 Height=202
 Caption="Ski"
 BorderStyle=1
 Point(onKeyDown)
 Point(onKeyUp)
}
Add(FormatStr,11118043,385,315)
{
 DataCount=3
 Mask="%1:%2:%3"
 link(onFString,15392847:doText,[])
 link(Str1,11979362:GetData,[])
 link(Str2,7383173:GetData,[(398,289)(503,289)])
 link(Str3,7356887:GetData,[(405,296)(615,296)])
}
Add(Label,15392847,434,315)
{
 Left=95
 Top=70
 Width=90
 Height=25
}
Add(Hub,12083555,336,189)
{
 link(onEvent1,457234:doNext,[])
 link(onEvent2,11118043:doString,[(368,202)(368,321)])
}
Add(Counter,457234,434,189)
{
 Max=60
 link(onNext,11541024:doCase,[])
}
Add(Counter,3965416,546,189)
{
 Max=60
 link(onNext,13006160:doCase,[])
}
Add(Counter,1427130,658,189)
{
 Max=99
}
Add(Case,11541024,497,189)
{
 Value=String(60)
 link(onTrue,3965416:doNext,[(537,202)(537,195)])
}
Add(Case,13006160,609,189)
{
 Value=String(60)
 link(onTrue,1427130:doNext,[(649,202)(649,195)])
}
Add(Convertor,15271966,434,245)
{
 SymbolFill="0"
 link(onResult,11979362:doData,[(478,251)(478,239)(373,239)(373,251)])
 link(Data,457234:Count,[])
}
Add(EventFromData,11979362,385,245)
{
 link(onEvent,15271966:doConvert,[])
}
Add(Convertor,6137949,546,245)
{
 SymbolFill="0"
 link(onResult,7383173:doData,[(590,251)(590,239)(485,239)(485,251)])
 link(Data,3965416:Count,[])
}
Add(EventFromData,7383173,497,245)
{
 link(onEvent,6137949:doConvert,[])
}
Add(Convertor,13503650,658,245)
{
 SymbolFill="0"
 link(onResult,7356887:doData,[(702,251)(702,239)(597,239)(597,251)])
 link(Data,1427130:Count,[])
}
Add(EventFromData,7356887,609,245)
{
 link(onEvent,13503650:doConvert,[])
}

Add(Button,12782508,84,105)
{
 Left=70
 Top=40
 link(onClick,8050897:doOperation,[])
}
Add(Edit,7912256,147,56)
{
 Left=135
 Top=40
 Width=55
 Text="123"
}
Add(Edit,5821754,259,105)
{
 Left=210
 Top=40
 Width=90
 Text=""
}
Add(Copy,11928448,203,105)
{
 Position=2
 Count=8
 link(onCopy,5821754:doText,[])
}
Add(Math,8050897,147,105)
{
 Op2=100000000
 link(onResult,11928448:doCopy,[])
 link(Op1,7912256:Text,[])
}

Add(Timer,9567517,105,105)
{
 link(onTimer,843655:doNext,[])
}
Add(InlineCode,5395143,221,105)
{
 @Hint=#66:Перевод целочисленного значения в количество часов, минут и секунд|
 WorkPoints=#7:doCount|
 EventPoints=#8:onString|
 VarPoints=#3:Str|
 DataPoints=#5:Count|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses Kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|17:   FStr : string;|9:   public|20:    Count:THi_Event;|0:|23:    onString:THI_Event;|0:|51:    procedure doCount(var _Data:TData; Index:word);|47:    procedure Str(var _Data:TData; Index:word);|5: end;|0:|14:implementation|0:|77:function SecTime(var x:integer):string;  // Перевод целочисленного значения в|76:var hour,min,sec:string;                 // количество часов, минут и секунд|5:begin|31:   hour := int2str(x div 3600);|19:   x := x mod 3600;|26:   if (x div 60) < 10 then|40:     min := '0' + int2str(x div 60) else|30:     min := int2str(x div 60);|26:   if (x mod 60) < 10 then|40:     Sec := '0' + int2str(x mod 60) else|52:                           Sec := int2str(x mod 60);|46:   Result := hour + ' : ' + min + ' : ' + sec;|4:end;|0:|30:procedure THiAsmClass.doCount;|14:var C:integer;|15:var str:string;|5:begin|39:     C := ReadInteger(_Data, Count, 0);|23:     str := SecTime(C);|17:     FStr := str;|31:     _hi_onEvent(onString,str);|4:end;|0:|26:procedure THiAsmClass.Str;|5:begin|31:   _Data.Data_type := data_str;|23:   _Data.sdata := FStr;|4:end;|0:|4:end.|
 link(onString,13306646:doText,[])
}
Add(Label,13306646,287,105)
{
 Left=285
 Top=105
}
Add(Counter,843655,161,105)
{
 link(onNext,5395143:doCount,[])
}