Kase Peak Osc
Per1:=Input("max length",10,100,30); 
RWH:=(H-Ref(L,-Per1))/(ATR(Per1)*Sqrt(Per1)); 
RWL:=(Ref(H,-Per1)-L)/(ATR(Per1)*Sqrt(Per1)); 
Pk:=Mov((RWH-RWL),3,W); 
MN:=Mov(Pk,Per1,S); 
SD:=Stdev(Pk,Per1); 
Val1:=Max(MN+(1.33*SD),2.08); 
Val2:=Min(MN-(1.33*SD),-2.08); 
Val3:=Max(MN+(.33*SD),1.08); 
Val4:=Min(MN-(.33*SD),-1.08); 
LN1:=If(PK>=0,Val1,Val2); 
LN2:=If(PK>=0,Val3,Val4); 
Red:=If(Ref(Pk,-1)>Pk,Pk,0); 
Green:=If(Pk>Ref(Pk,-1),Pk,0); 
Red;Green;LN1;LN2;
*****Kase Peak Osc Binary*****
Per1:=30; 
RWH:=(H-Ref(L,-Per1))/(ATR(Per1)*Sqrt(Per1)); 
RWL:=(Ref(H,-Per1)-L)/(ATR(Per1)*Sqrt(Per1)); 
Pk:=Mov((RWH-RWL),3,W); 
MN:=Mov(Pk,Per1,S); 
SD:=Stdev(Pk,Per1); 
Val1:=If(MN+(1.33*SD)>2.08,MN+(1.33*SD),2.08); 
Val2:=If(MN-(1.33*SD)<-1.92,MN-(1.33*SD),-1.92); 
LN1:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); 
Buy:=Cross(LN1,0); 
Sell:=Cross(0,LN1); 
D:=If(BarsSince(Buy)<BarsSince(Sell),-1,If(BarsSince(Buy)>BarsSince(sell),1,0)); 
D;
************************************
The first indicator is the original, the binary is just a signal indicator

Good timing for me to be online as you are.. I am curious do you have an opinion on the Cythia case indicatores. I have not tried them per say, but became highly intrested with the fact these indicators are new and more complex in an indicative sense... Anything you have on this would be of high intrest, I have included my email for such reference,

I find them to show extreme over and undersold regions fairly acuratly, the KCD helps in showing divergencies, 
but as with all indicators, they are not infallible. 

Some work most of the time, some not at all,I have been using MA bands along with Multitime frames for my trades