Bollinger Band / Flexible Parameter for Metastock

N:=Input("Lookback Period", 9, 220, 90);
M:=N; {Period used for Momentum Index}
SD:=1.5; {Number of Stdev's around FlexPivot}
MI:= CMO(C ,M ) / 100; { Momentum Index }
MA:= Mov(C, N, S); { Moving Average }
FlxP := If( MI > 0,
{ THEN }
MA + (MI * (HHV(C, M) - MA)),
{ ELSE }
MA + (MI * (MA - LLV(C, M))) );
{ ENDIF }

LBand := FlxP - SD * Stdev(INDICATOR, N);
UBand := FlxP + SD * Stdev(INDICATOR, N);
UBand;
FlxP;
LBand;