ok, sorry guys, haven't been around to post my code.
here is my 173:
 Code:
function a($t, optional $k,$,$b) 
 $a=$k
 if $t
  $a=chr(iif($k,9+($k=" " ^ ($ & asc($t))>)*23,($=)*$b))+a(substr($t,2-(~$ & $k)),$k,$/2+64*($=),$*(right($t,1)<>left($t,1))+$/$*$b)
endfunction
_________________________
!

download KiXnet