CCI Cross SAR for Amibroker (AFL)

_SECTION_BEGIN("Price");
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
Plot( C, "Close", ParamColor("Color", colorDefault ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() ); 
_SECTION_END();

_SECTION_BEGIN("CCI Cross Zero - Simple and Exact");
acc = Param("Acceleration", 0.02, 0, 1, 0.001 );
accm = Param("Max. acceleration", 0.2, 0, 1, 0.001 );
sarstop = SAR( acc, accm );
Plot( sarstop, _DEFAULT_NAME(), ParamColor( "Color", colorCycle ), ParamStyle("Style", styleDots | styleNoLine, maskDefault | styleDots | styleNoLine ) );
ccip = Param("CCI", 20, 5, 100, 1 );

Buy=CCI(ccip)>0;
Sell=C<sarstop;

Buy=ExRem(Buy, Sell);
Sell=ExRem(Sell, Buy);

PlotShapes(Buy*shapeUpArrow+Sell*shapeDownArrow ,IIf(Buy,colorBrightGreen,colorRed));
_SECTION_END();