M:=IF(DATAPERIOD=5,6,if(DATAPERIOD=18 or (DATAPERIOD=13 and DATATYPEMORE(2)=10),5,0));
IF M<>0 THEN HH0:CALLSTOCK(STRCAT(MARKETLABEL,STKLABEL),VTHIGH,M,0),COLORGRAY;
IF M<>0 THEN LL0:CALLSTOCK(STRCAT(MARKETLABEL,STKLABEL),VTLOW,M,0),COLORGRAY;
IF M<>0 THEN HH2:CALLSTOCK(STRCAT(MARKETLABEL,STKLABEL),VTHIGH,M+1,0),COLORYELLOW;
IF M<>0 THEN LL2:CALLSTOCK(STRCAT(MARKETLABEL,STKLABEL),VTLOW,M+1,0),COLORYELLOW;