// ohlc

+ " - " +  Name() + " - " + EncodeColor(colorRed)+ Interval(2) +
EncodeColor(colorWhite) +
 "  - " + Date() +" - "+"\n" +EncodeColor(colorRed) +"Op-"+O+"  "+"Hi-"+H+" 
"+"Lo-"+L+"  "+
"Cl-"+C+"  "+ "Vol= "+ WriteVal(V)+"\n"+ 
EncodeColor(colorLime)+
//WriteIf (SRICOVER , " GO LONG / Reverse Signal at "+C+"  ","")+
//WriteIf (SRISHORT , " EXIT LONG / Reverse Signal at "+C+" 
//","")+"\n"+EncodeColor(colorYellow);

// ------------------------- code -----------------------------------

BarColor=IIf(C>Ref(C,-1),colorGreen,colorRed);
        PlotOHLC( Open,  High,  Low,  Close, "", BarColor, styleBar);
        ToolTip=StrFormat("Open: %g\nHigh: %g\nLow: %g\nClose: %g (%.1f%%)\nVolume: "+NumToStr( V, 1 ), O, H, L, C, SelectedValue( ROC( C, 1 )));


//--- Current bar ------------------------------------------

_SECTION_BEGIN("Price Line");

PriceLineColor=colorGrey40; //ParamColor("PriceLineColor",ColorRGB(82,82,82));
PriceLevel = ParamField("PriceField", field = 3 ); 

Daysback    = Param("Bars Back",500,10,900,1); 
FirstBar    = BarCount - DaysBack; 
YY          = IIf(BarIndex() >= Firstbar,EndValue(PriceLevel),Null); 

Plot(YY,"Current Price",PriceLineColor,ParamStyle("LineStyle",styleLine|styleDashed|styleNoTitle|styleNoLabel|styleThick,maskAll)); 
side = Param("side",1,0,1000,1);

dist = 0; 

for( i = 0; i < BarCount; i++ ) 
{ 
 if(i+side== BarCount) PlotText( "\n   >>>>   " + PriceLevel[ i ], i, YY[ i ]-dist[i], colorWhite ); 
}