Unnamed

alias topdm {
  var %x 1,%y 0:0
  while $ini(dm.ini,wins,%x) {
    var %a $v1,%b $readini(dm.ini,wins,$v1),%c $token($token(%y,-1,32),1,58)
    if (%b > %c) {
      var %y %y %b $+ : $+ %a
      var %y $sorttok(%y,32,nr)
      var %y $token(%y,1- $+ $1,32)
    }
    inc %x
  }
  var %z 1
  while $token(%y,%z,32) {
    tokenize 58 $v1
    var %d %d $iif(%d,$chr(124)) $+([,%z,]) $2 ( $+ $bytes($1,bd) $+ )
    inc %z
  }
  return %d
}