code:

---

break on

$s="hello every one"
for each $char in EachChar($s)
	? "$char "+asc($char)
	next

quit

function EachChar($string)
	dim $arrTemp[len($string)-1]
	dim $pos
	for $pos=1 to len($string)
		$arrTemp[$pos-1]=substr($string,$pos,1)
		next
	$EachChar=$arrTemp
	endfunction

---