[LegacyColorValue = true]; 

{ TSMProj2MACross: Projected 2 Moving Average Crossover
  Copyright 1999, P.J.Kaufman. All rights reserved.
}
  inputs: price(numericseries), length1(numericsimple), length2(numericsimple);
  vars:   sum1(0), sum2(0);

  sum1 = summation(price,length1 - 1);
  sum2 = summation(price,length2 - 1);
  TSMproj2MAcross = (length1 * sum1[1] - length2 * sum2[1]) / (length2 - length1);