Help me to plot buy and sell signals

Hi everybody
Whenever i have some technical problem immediately the first name that comes to my mind is TRADERJI.COM. This is because i have to very good experience in getting my problem solved. I congratulate traderji.com for maintaining such a high standard . All experts on this forum are always quick and ready to help newbies. That is why i have come with a new problem to get solved. I give thanks in advance for any support.

Requirements :
In the afl given below i am getting wrong buy and sell signals. I want buy signals where green starts and sell signals where red line starts.

Here is the afl code :

_SECTION_BEGIN("ZeroLag RSI with Buy/Sell");
/*ZeroLag RSI V2*/
/*Code adapted from ZeroLag Williams %R Indicator */
/* Additional params added for change of RSI periods and EMA1&2 */

GraphXSpace = 3;

RSIPeriod=Param("RSI Period Length", 30, 3 , 500, 1);
R = RSI(RSIperiod);

MaxGraph=10;
Period1=Param("Period 1", 20, 1, 500, 1);
Period2=Param("Period 2", 10, 1, 500, 1);
ZLfactorUP = Param("ZeroLagBuy", 60,30,100,1);
ZLfactorDOWN = Param("ZeroLagShort", 40,20,100,1);
EMA1= EMA(R,Period1);
EMA2= EMA(EMA1,Period2);
Difference= EMA1 - EMA2;
ZeroLagEMA= EMA1 + Difference;
PR=abs(ZeroLagEMA);
B1 = PR > ZLfactorUP;
S1 = PR < ZLfactorUP;
Sh1 = PR < ZLfactorDOWN;
Cv1 = PR > ZLfactorDOWN;

Graph0=PR;

MoveAvg=MA(PR,5);

// Graph1=MoveAvg; Remove the // if you want a Crossover MA to plot
// Graph1Color=colorTan;

Graph0Style=4;
upbar= PR>= MoveAvg AND PR>= Ref(PR,-1) ;
downbar=(PR < MoveAvg) OR PR>= MoveAvg AND PR< Ref(PR,-1) ;
barcolor = IIf( downbar,colorRed, IIf( upbar, colorBrightGreen, 7));
Graph0BarColor = ValueWhen( barcolor != 0, barcolor );
Graph2=50;
Graph3=50;

Graph2Style=Graph3Style=Graph4Style=1;
Graph4Color=2;
Graph2Color=5;
Graph3Color=4;

Graph5=0;
Graph6=100;
Graph5Style=Graph6Style=1;
Graph5Color=Graph6Color=2;

_SECTION_END();






Buy = B1 >= 1;
Sell = S1 >= 1;
Short = Sh1 >=1;
Cover = Cv1 >=1;

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

PlotShapes(IIf(Buy, shapeUpArrow, shapeNone),colorGreen, 0);
PlotShapes(IIf(Short, shapeDownArrow, shapeNone),colorRed, 0);
/* PlotShapes(IIf(Sell, shapeDownArrow, shapeNone),colorBlue, 0); */