{*****************************************************************************
Description	: This Indicator plots Stochastic replicating the "Bline"
				long term Stochastic (35-10-1)
Provided By	: Compute Abilities (c) 2002
*****************************************************************************} 

Input: Price(Close), Length1(35), Length2(10), Length3(1),  OverBought(80), OverSold(20), HiColor(Green), LoColor(Red);
Variables: KFast(0), KFull(0), DFull(0), LL(O), HH(0);

LL = Lowest((High+Low)/2, Length1);
HH = Highest((High+Low)/2, Length1);

KFast = 100 * IFF(HH-LL=0,0,(((High+Low)/2) - LL)/(HH- LL));

KFull = Average(KFast, Length2);

DFull = Average(KFull, Length3);

If KFull > 80 then Plot1(KFull, "Fast", HiColor, Default, Default);
If KFull < 20 then Plot1(KFull, "Fast", LoColor, Default, Default);