#macro dsz(Array, Dim)
	dimension_size(Array, Dim)
#end

#macro Resize_Array_1D(_Array, Array, NewSize)
	#local NewArray = array[NewSize];
	#local A = 0;
	#local Max = min(NewSize, dsz(Array, 1));
	#while (A < Max)
		#ifdef (Array[A])
			#declare NewArray[A]=Array[A];
		#end//ifdef
		#local A=A+1;
	#end //while (A)
	#declare Array = NewArray;
#end