Mine

alias sortit {
  var %a = 0
  while (%a < $ini(hangman.ini,scores,0)) {
    inc %a
    var %l = $readini(hangman.ini,scores,$ini(hangman.ini,scores,%a))
    if (%a <= 5) var %line = %line %l $+ : $+ %a
    else {
      var %c = 1
      while ($gettok(%line,%c,32)) {
        var %currentToken = $v1
        if (%l >= $gettok(%currentToken,1,$asc(:))) { var %line = $instok(%line,$+(%l,:,%a),%c,32) | break }
        inc %c
      }
      var %line = $gettok(%line,1-5,32)
    }
    if (%a == 5) var %line = $sorttok(%line,32,nr)
  }
  msg RussellReal %line
}