M1:=10;
P:=1;
HH:=CONST(HHV(H,M1));
LL:=CONST(LLV(L,M1));
BC:=(HH-LL)/10;
C1:=HH;
C2:=HH-BC*1;
C3:=HH-BC*2;
C4:=HH-BC*3;
C5:=HH-BC*4;
C6:=HH-BC*5;
C7:=HH-BC*6;
C8:=HH-BC*7;
C9:=HH-BC*8;
C10:=HH-BC*9;
C11:=LL;
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:C1*T1,COLOR008000,LINETHICK1;
T2:=IF(BACKSET(BARSTATUS=2,W2)=1,1,DRAWNULL);
NOTEXT2:C2*T2,COLOR008000,LINETHICK1;
T3:=IF(BACKSET(BARSTATUS=2,W3)=1,1,DRAWNULL);
NOTEXT3:C3*T3,COLOR008000,LINETHICK1;
T4:=IF(BACKSET(BARSTATUS=2,W4)=1,1,DRAWNULL);
NOTEXT4:C4*T4,COLOR008000,LINETHICK1;
T5:=IF(BACKSET(BARSTATUS=2,W5)=1,1,DRAWNULL);
NOTEXT5:C5*T5,COLOR008000,LINETHICK1;
T6:=IF(BACKSET(BARSTATUS=2,W6)=1,1,DRAWNULL);
NOTEXT6:C6*T6,COLOR008000,LINETHICK1;
T7:=IF(BACKSET(BARSTATUS=2,W7)=1,1,DRAWNULL);
NOTEXT7:C7*T7,COLOR008000,LINETHICK1;
T8:=IF(BACKSET(BARSTATUS=2,W8)=1,1,DRAWNULL);
NOTEXT8:C8*T8,COLOR008000,LINETHICK1;
T9:=IF(BACKSET(BARSTATUS=2,W9)=1,1,DRAWNULL);
NOTEXT9:C9*T9,COLOR008000,LINETHICK1;
T10:=IF(BACKSET(BARSTATUS=2,W10)=1,1,DRAWNULL);
NOTEXT10:C10*T10,COLOR008000,LINETHICK1;
STR1:=STRCAT(CON2STR(M1,0),'D');
DRAWTEXT(ISLASTBAR,HH,STR1),COLOR008000,DRAWABOVE;
DRAWKLINE(HIGH,OPEN,LOW,CLOSE);
