(* @PATH := '\/Functions_Collection' *)
(* @SYMFILEFLAGS := '0' *)
FUNCTION OR_ArrayBool : 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>191 THEN
	i_UpBound := 191 ;
END_IF
OR_ArrayBool := FALSE ;
mArrayPointer := i_ArrayPtr ;
FOR i:=0 TO i_UpBound DO
	mArrayPointer := i_ArrayPtr + i ;
	OR_ArrayBool := OR_ArrayBool OR mArrayPointer^ ;
END_FOR;
END_FUNCTION