TYP := (HIGH + LOW + CLOSE)/3;
 cci:(TYP-MA(TYP,N))/(0.015*AVEDEV(TYP,N));
 PARTLINE(cci,cci>REF(cci,1),rgb(255,0,0),cci<=REF(cci,1),rgb(0,255,0) );
 A1:=cci>REF(cci,1) and REF(cci,1)  C1:=BACKSET(A1>0,2);
 D1:=(C1>0 AND REF(C1,1)<1);
 A2:=cciREF(cci,2);
 C2:=BACKSET(A2>0,2);
 D2:=(C2>0 AND REF(C2,1)<1);
 R1:=BACKSET(DISPSTATUS=2,BARSLAST(D1)+1);
 S1:=R1>REF(R1,1);
 T1:=BACKSET(DISPSTATUS=2,BARSLAST(D2)+1);
 U1:=T1>REF(T1,1);
 R2