break on



$string = "blueboy martian"



$string = split($string)



for $i = 0 to ubound($string)

    $string[$i] = ucase(left($string[$i],1)) + substr($string[$i],2)

next



$string = join($string)



? $string



get $



exit 1