For some reason the compare failed.

This was captured after the "until" before the "IF".

Until: 45=44.5 0
code:
function CDSorter($w, $)
   Dim $x, $b
      do
         ? "Until: "+ $+"="+$b + " " + ($=$b)
         ? "" + $b + "<"+$
         if $b<$ ? "in if"  ? "w="+$w $x = split($w,",") endif
         $b=0.5
         Dim $z,$q,$
         for each $q in $x
            $=1+$
            if $q
               $b = $b + $q
               $z=$z+","+$
            endif
         next
         ;? "" + ubound($x) + " " + ($-2)
         $x[RND($-1)]=0
         $CDSorter=substr($z,2)

      until $=$b
      ? "$="+$
      ? "$b="+$b
endfunction
_________________________
Home page: http://www.kixhelp.com/hb/