(* @PATH := '\/Functions_Collection' *)
(* @SYMFILEFLAGS := '0' *)
FUNCTION CleanBoolArray : BOOL
VAR_INPUT
	i_ArrayPtr				: DWORD ;
	i_UpBound				: INT ;
END_VAR
VAR
	i						: INT ;
	mArrayPointer			: POINTER TO BOOL ;
END_VAR

(* @END_DECLARATION := '0' *)
IF i_UpBound>0 AND i_UpBound<=191 THEN
	FOR i:=0 TO i_UpBound DO
		mArrayPointer := i_ArrayPtr + i ;
		mArrayPointer^ :=FALSE ;
	END_FOR;
	CleanBoolArray := TRUE ;
ELSE
	CleanBoolArray := FALSE ;
END_IF
END_FUNCTION