Anonymous

alias sortini {
  var %a = $ini($1,$2,0)
  while ($ini($1,$2,%a)) {
    var %s = %s $v1
    set -l $+(%,$v1) $readini($1,$2,$v1)
    remini $1 $2 $v1
    dec %a
  }
  %a = 1
  while (* iswm $token($sorttok(%s,32,$3),%a,32)) {
    .writeini $1 $2 $v2 $($+(%,$v2),2) 
    inc %a
  }
}