code:

---

function CDSorter($w, $)
   Dim $x, $b
      do
         if $b<$ $x = split($w,",") endif
         $b=0.49
         Dim $z,$q,$
         for each $q in $x
            $=1+$
            if $q
               $b = $b + $q
               $z=$z+","+$
            endif
         next
         $x[RND($-2)]=0
         $CDSorter=substr($z,2)
      until $=$b
endfunction

---