alias cuptop {
  set %ticks $ticks
  var %x = 1
  while (%x <= $lines(stats\txt\all.txt)) {
    write cuptop2.txt $base($read($+(stats\txt\,$nocup($read(stats\txt\all.txt,%x)),.txt),2),10,10,9) $read(stats\txt\all.txt,%x) $read($+(stats\txt\,$nocup($read(stats\txt\all.txt,%x)),.txt),3) $read($+(stats\txt\,$nocup($read(stats\txt\all.txt,%x)),.txt),8)
    inc %x
  }
  var %w = @sort, %file = cuptop2.txt, %run = $iif($1 = -r,y)
  if (!$isfile(%file)) {
    goto end
  }
  else { goto start }
  :start
  if ($window(@sort)) window -c @sort
  window -sh %w
  loadbuf %w %file
  write -c %file
  savebuf %w %file
  if (%run) run %file
  :end
  var %y = $lines(cuptop2.txt)
  while (%y >= 1) {
    write cuptop.txt $read(cuptop2.txt,%y)
    dec %y
  }
  .remove cuptop2.txt
  cuptop2 $1-
}