so, this does!
damned, wasted 1 hour playing with this when could have done that at work!

Code:

Function unbitwise($x)
   dim $c,$n
   $c=1
   while $c<$x
	if $x&$c
	 $n=""+$c+","+$n
	endif
	$c = $c*2
   loop
   $unbitwise = left($n,-1)
endfunction
_________________________
!

download KiXnet