RUNMODE:0;
VARIABLE:FLAG=0,HH=0,HL=0;
IF BARPOS=1 THEN BEGIN
HH:=H;
HL:=L;
END
FHIF:H[BARPOS-2]<=H[BARPOS-1] AND H[BARPOS-1]>H AND L[BARPOS-2]<=L,COLORYELLOW,NODRAW;
IF FHIF=1 THEN BEGIN
FLAG:=1;
HH:=H[BARPOS-1];
HL:=L[BARPOS-2];
END
IF FLAG=1 AND H<=HH AND L>=HL THEN BEGIN
HH:=HH;
HL:=HL;
END
IF H>HH THEN FLAG:=0;
IF L<HL THEN BEGIN
ISH:=HH;
FLAG:=O;
END
FLAG1:FLAG,NODRAW;