(* @PATH := '\/Functions_Collection' *)
(* @SYMFILEFLAGS := '0' *)
FUNCTION MoveArray : BOOL
VAR_INPUT
	i_InArrayPtr			: DWORD ;
	i_OutArrayPtr		: DWORD ;
	i_UpBound			: INT ;
END_VAR
VAR
	i					: INT ;
	mInArrayPointer		: POINTER TO BOOL ;
	mOutArrayPointer	: POINTER TO BOOL ;
END_VAR

(* @END_DECLARATION := '0' *)
IF i_UpBound>0 AND i_UpBound<=191 THEN
	FOR i:=0 TO i_UpBound DO
		mInArrayPointer := i_InArrayPtr + i ;
		mOutArrayPointer := i_OutArrayPtr + i ;
		mOutArrayPointer^ := mInArrayPointer^ ;
	END_FOR;
	MoveArray := TRUE ;
ELSE
	MoveArray := FALSE ;
END_IF
END_FUNCTION