Modified from original. Can't remember who came up with this originally.
{CMO Scaled Smoothed}
prd:=Input("CMO Periods",1,1000,10);
prd2:=Input("Smoothing Periods",1,1000,3);
Int(0.5*Abs(Mov(CMO(C,prd),prd2,S)))
{I use a bit of smoothing, else the # of days changes too abruptly.}
