ChandeTrend Score

["Husky" <husky@xxxxxxxxxxxxxxxx>]

As written for 2000i,


inputs:x(10),n(10);
vars:counter(0),score(0);

score=0;
for counter=x to x+n begin
 if c-c[i]>0 then score=score+1
  else score=score-1;
end;
plot1(score);
End;

Anyone have it for TS4?