Untitled

#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