VARIABLE:I=0,S=0;
VAR1:=low;
VAR2:=high;
boolean SoundON1 := false;
boolean SoundON2 := false;
fl:low;
fh:high;
fc:close;
li_76:=0;
for (li_76=0 to datacount) do
begin
li_0 := li_76;
ld_52 := 0;
ld_60 := 0;
IF NOT(ISLASTBAR) THEN EXIT;
for (li_0 = li_76 to li_76 + 9) do
ld_60 = ld_60 + Abs(fh[li_0] - fl[li_0]);
ld_52 = ld_60 / 10.0;
l_ima_4: = ema(fc[li_76+1],4);
l_ima_20 :=ema(fc[li_76+2],4) ;
l_ima_36 := ema(fc[li_76],4);
l_ima_12 := ema(fc[li_76+1],8);
l_ima_28 := ema(fc[li_76+2],8);
l_ima_44 := ema(fc[li_76],8);
if (l_ima_4 > l_ima_12 && l_ima_20 < l_ima_28 && l_ima_36 > l_ima_44) then g_ibuf_92[li_76] :(fl[li_76] - ld_52 / 2.0);
if (l_ima_4 < l_ima_12 && l_ima_20 > l_ima_28 && l_ima_36 < l_ima_44) then g_ibuf_96[li_76] : (fh[li_76] + ld_52 / 2.0);
drawicon(g_ibuf_92[li_76] > g_ibuf_96[li_76] ,g_ibuf_92[li_76],VTSOLID,2) ;
drawicon(g_ibuf_92[li_76] < g_ibuf_96[li_76] ,g_ibuf_96[li_76],VTSOLID,2) ;
END