Make(delphi)
ver(4.02 build 179)
Add(MainForm,2953706,21,105)
{
}
Add(Button,12254076,231,287)
{
 Left=115
 Top=390
 link(onClick,10077667:doBeep,[])
}
Add(InlineCode,10077667,280,287)
{
 WorkPoints=#6:doBeep|
 EventPoints=#6:onBeep|
 DataPoints=#4:Freq|8:Duration|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses Kol,Share,Windows,Debug;|0:|4:type|29:  THiAsmClass = class(TDebug)|10:   private|9:   public|23:    _prop_Freq:integer;|27:    _prop_Duration:integer;|29:    _data_Duration:THI_Event;|25:    _data_Freq:THI_Event;|28:    _event_onBeep:THI_Event;|0:|56:    procedure _work_doBeep(var _Data:TData; Index:word);|6:  end;|0:|14:implementation|0:|35:procedure THiAsmClass._work_doBeep;|18:var fr,dr:integer;|5:begin|50:   fr := ReadInteger(_Data,_data_Freq,_prop_Freq);|58:   dr := ReadInteger(_Data,_data_Duration,_prop_Duration);|45:   if fr = 0 then sleep(dr) else Beep(fr,dr);|42:   _hi_CreateEvent(_Data, @_event_onBeep);|4:end;|0:|4:end.|
 link(Freq,2012659:Text,[(286,279)(272,279)])
 link(Duration,15822328:Text,[(293,279)(314,279)])
}
Add(Edit,2012659,266,238)
{
 Left=265
 Top=235
 Text="100"
}
Add(Edit,15822328,308,238)
{
 Left=305
 Top=230
 Text="100"
}