William %R with OB 80 & OS 20 for Amibroker (AFL)

_SECTION_BEGIN("William's % R");
/*
We usually read William %R's Overbought -20 and Oversold -80. 
We can change some code to read William %R OB & OS as we read Stochastic's OB & OS.
*/

periods = 14 ;
R = 100 - 100 * ( HHV( H, periods ) - C )/( HHV( H, periods ) - LLV( L, periods ) );// 80 20

Plot( R,"",colorRed,styleLine|styleThick );
Plot(80,"",colorDarkGrey,styleDashed);
Plot(20,"",colorDarkGrey,styleDashed);

Title =EncodeColor(16)+ "{{DATE}} - "+Name()  +" - " + "{{INTERVAL}} " +"  W%R 14  "+WriteVal(r,1.2);

_SECTION_END();