TBS:=POW(10,ABS(LOG(MINDIFF)));
TJ:=day<ref(day,1)and (MONTH=1 or MONTH=4 or MONTH=7 or MONTH=10);
JW:barslast(TJ),LINETHICK;
Jdg:=Jw=0 or ISLASTBAR;
Jwx:=0*C;
for JQ=datacount-1 downto lbound(Jdg) do
if Jdg[JQ] then