TimeFrameSet(inWeekly);
wh=H;
wl=L;
TimeFrameRestore();
whh=TimeFrameExpand(wh,inWeekly);
wll=TimeFrameExpand(wl,inWeekly);
Buy=Cover=C>Ref(whh,-1);
Sell=Short=C<Ref(wll,-1);
Buy=ExRem(Buy,Sell);
Sell=ExRem(Sell,Buy);
Short=ExRem(Short,Cover);
Cover=ExRem(Cover,Buy);
Plot(whh,"Weekly High",5,1);
Plot(wll,"Weekly Low",4,1);
PlotShapes(IIf(Buy, shapeUpArrow, shapeNone),colorGreen, 0,L, Offset=-15);
PlotShapes(IIf(Sell, shapeDownArrow, shapeNone),colorRed, 0,H, Offset=-15);
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, High %g, Low %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
Plot( C, "Close", IIf( C>wh, colorGreen, IIf( C<wl, colorRed, colorBlack )), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
_SECTION_END();