code:

---

$c=1,2,3,4,5,6,7

$value = hello("$$c")
? "Value = " + $value
? "Ubound = " + ubound($c)
for each $x in $c
	? $x
next

function hello($x)
DIM $rc, $u

	$rc = execute ("$$u=ubound($x)")
	$rc = execute
	("
		$$hello=$x[$u]
		REDIM PRESERVE $x[$u-1]
	")
endfunction

  

---