W1:=INTPART(LWINNER(M1,C1)100-LWINNER(M1,C2)100)/P;
W2:=INTPART(LWINNER(M1,C2)100-LWINNER(M1,C3)100)/P;
W3:=INTPART(LWINNER(M1,C3)100-LWINNER(M1,C4)100)/P;
W4:=INTPART(LWINNER(M1,C4)100-LWINNER(M1,C5)100)/P;
W5:=INTPART(LWINNER(M1,C5)100-LWINNER(M1,C6)100)/P;
W6:=INTPART(LWINNER(M1,C6)100-LWINNER(M1,C7)100)/P;
W7:=INTPART(LWINNER(M1,C7)100-LWINNER(M1,C8)100)/P;
W8:=INTPART(LWINNER(M1,C8)100-LWINNER(M1,C9)100)/P;
W9:=INTPART(LWINNER(M1,C9)100-LWINNER(M1,C10)100)/P;
W10:=INTPART(LWINNER(M1,C10)100-LWINNER(M1,C11)100)/P;
T1:=IF(BacKSET(BARSTATUS=2,W1)=1,1,DRAWNULL);
NOTEXT1:C1T1,COLOR008000,LINETHICK1;
T2:=IF(BACKSET(BARSTATUS=2,W2)=1,1,DRAWNULL);
NOTEXT2:C2T2,COLOR008000,LINETHICK1;
T3:=IF(BACKSET(BARSTATUS=2,W3)=1,1,DRAWNULL);
NOTEXT3:C3T3,COLOR008000,LINETHICK1;
T4:=IF(BACKSET(BARSTATUS=2,W4)=1,1,DRAWNULL);
NOTEXT4:C4T4,COLOR008000,LINETHICK1;
T5:=IF(BACKSET(BARSTATUS=2,W5)=1,1,DRAWNULL);
NOTEXT5:C5T5,COLOR008000,LINETHICK1;
T6:=IF(BACKSET(BARSTATUS=2,W6)=1,1,DRAWNULL);
NOTEXT6:C6T6,COLOR008000,LINETHICK1;
T7:=IF(BACKSET(BARSTATUS=2,W7)=1,1,DRAWNULL);
NOTEXT7:C7T7,COLOR008000,LINETHICK1;
T8:=IF(BACKSET(BARSTATUS=2,W8)=1,1,DRAWNULL);
NOTEXT8:C8T8,COLOR008000,LINETHICK1;
T9:=IF(BACKSET(BARSTATUS=2,W9)=1,1,DRAWNULL);
NOTEXT9:C9T9,COLOR008000,LINETHICK1;
T10:=IF(BACKSET(BARSTATUS=2,W10)=1,1,DRAWNULL);
NOTEXT10:C10T10,COLOR008000,LINETHICK1;
STR1:=STRCAT(CON2STR(M1,0),'D');
DRAWTEXT(ISLASTBAR,HH,STR1),COLOR008000,DRAWAbovE;
DRAWKLINE(HIGH,OPEN,LOW,CLOSE);