on 1:TEXT:!top10*:#: {
  if ($exists(ttbc.txt)) {
    filter -ffcteu 2 32 tbg.txt tbg.txt *
    var %g = 1, %h = $iif(!$2,10,$2)
    while (%g <= %h) {
      if ($read(tbg.txt,%g)) { .timer 1 %g msg # $+($chr(35),$iif($len(%g) == 1,0 $+ %g,%g),:) $gettok($read(tbg.txt,%g),1,32) - $bytes($gettok($read(tbg.txt,%g),2,32),b) TBG  }
      inc %g
    }
  }
}