Input:
Period(14);
vars:
greenarraycounter(0),redarraycounter(0);
Arrays:
greenArray[Period](0),
redArray[Period](0);

if C>O then begin
greenarraycounter=greenarraycounter+1;
if greenarraycounter=Period+1 then greenarraycounter=1;
greenArray[greenarraycounter]=C;
value1 = AverageArray(greenArray);
Plot1(value1,"GreenAvg",green);
end;
if C<O then begin
redarraycounter=redarraycounter+1;
if redarraycounter=Period+1 then redarraycounter=1;
redArray[redarraycounter]=C;
value2 = AverageArray(redArray);
Plot2(value2,"redAvg",red);
end;