TYP:=(CLOSE+HIGH+LOW)/3;
CCI:(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14));
CROSS(CCI,100)&&(BARSBK>BARSSK||NOT(BARSBK>0)),BK;
CROSS(100,CCI)||C<BKPRICE-30,SP;
CROSS(100,CCI)&&(BARSBK<BARSSK||NOT(BARSSK>0)),SK;
CROSS(CCI,100)||C>SKPRICE+30,BP;  
AUTOFILTER;