FUNCTION FindNumberOfCalPoints
tempMax := 0;

FOR calIndex := 1 TO 10 DO
	IF calibrationLevel[calIndex] <> 0.0 THEN
		tempMax := calIndex;
	END_IF;
END_FOR;
FindNumberOfCalPoints := tempMax;

END_FUNCTION