Function b($)
dim $a

	If $+0=$
		Do
			$b = iif($ mod 2,'1','0') + $b
			$ = $ / 2
		Until $ = 0
	Else
		$a = 1
		While $
	 		$b = iif(val(right($,1)), $a, 0) + $b
  			$a = $a * 2
 			$ = Left($,~)
EndFunction