N9:=CURRBARSCOUNT;
S:=C>REF(C,4);
TJ9:=N9>=1 AND COUNT(S,9)=9 AND REF(S,9)=0;
TJ6:=N9>=1 AND COUNT(S,6)=6 AND REF(S,6)=0;
TJ3:=N9>=1 AND COUNT(S,3)=3 AND REF(S,3)=0;
TJ1:=N9>=1 AND COUNT(S,1)=1 AND REF(S,1)=0;
DRAWTEXT(TJ9,H,'9'),COLORMAGENTA;
DRAWTEXT(TJ6,H,'6'),COLORMAGENTA;
DRAWTEXT(TJ3,H,'3'),COLORMAGENTA;
DRAWTEXT(TJ1,H,'1'),COLORMAGENTA;
TJ9DAY:=BARSLAST(TJ9);
BK9:=BARSLAST(CURRBARSCOUNT=CONST(TJ9DAY+1));
J91:=REF(H,TJ9DAY),DOTLINE;
J9:REF(H,BK9),DOTLINE,COLORGREEN;
STJ9DAY:=REF(TJ9DAY,TJ9DAY+1)+TJ9DAY+1;
BK91:=BARSLAST(CURRBARSCOUNT=CONST(STJ9DAY+1));
J912:=REF(H,STJ9DAY),DOTLINE;
J92:REF(H,BK91),DOTLINE,COLORGREEN,;
SSTJ9DAY:=REF(TJ9DAY,STJ9DAY+1)+STJ9DAY+1;
BK92:=BARSLAST(CURRBARSCOUNT=CONST(SSTJ9DAY+1));
J922:=REF(H,SSTJ9DAY),DOTLINE;
J93:REF(H,BK92),DOTLINE,COLORGREEN;
