AA:=SCALE*VOL;

BB:=(1-SCALE)*VOL;

NM:=BARSLAST(DATE<>REF(DATE,1))+1;

WW:=SUM(SCALE*VOL,6);

NN:=SUM((1-SCALE)*VOL,6);

SS:=WW-NN;

STICKLINE(SS>0,0,SS,COLORRED,0);

STICKLINE(SS<0,0,SS,COLORCYAN,0);