Add(MainForm,2953706,70,140)
{
 Width=650
 Height=474
 link(onCreate,14481332:doEvent1,[(142,160)(142,118)])
}
Add(Volume,5593165,238,112)
{
}
Add(DoData,3257486,182,112)
{
 Data=Integer(0)
 link(onEventData,5593165:doVolume,[])
}
Add(InlineCode,3935702,238,154)
{
 @Color=16777130
 WorkPoints=#5:doGet|
 EventPoints=#5:onBit|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|38:uses Windows,kol,Share,Debug,mmsystem;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|23:     onName: THI_Event;|21:     onPC: THI_Event;|22:     onBit: THI_Event;|50:     procedure doGet(var _Data:TData; Index:word);|5: end;|0:|0:|14:implementation|0:|48:function SetVolume(const volL, volR: Word):bool;|4: var|17:   hWO: HWAVEOUT;|24:   waveF: TWAVEFORMATEX;|14:   vol: DWORD;|6: begin|24:   // init TWAVEFORMATEX|36:  FillChar(waveF, SizeOf(waveF), 0);|47:   // open WaveMapper = std output of playsound|50:  waveOutOpen(@hWO, WAVE_MAPPER, @waveF, 0, 0, 0);|29:   vol := volL + volR shl 16;|16:   // set volume|29:  waveOutSetVolume(hWO, vol);|21:   waveOutClose(hWO);|5: end;|0:|28:procedure THiAsmClass.doGet;|5:begin|15:SetVolume(0,0);|20:  _hi_onEvent(onBit)|0:|4:end;|4:end.|
}
Add(WebBrowser,9925252,476,91)
{
 Left=10
 Top=10
 Width=610
 Height=415
 URL="https://www.youtube.com/watch?v=RhMYBfF7-hE"
 Silent=0
}
Add(Hub,14481332,147,112)
{
 link(onEvent1,3257486:doData,[])
 link(onEvent2,3935702:doGet,[(199,125)(199,160)])
}