alias numconv {
  var %i 288,%v
  while %i < $file($script).size {
    bread warrior_numbertext.mrc %i 8 &b
    bset &x 1 $base($replace($bvar(&b,1,8).text,$cr,1,$lf,0),2,10)
    bwrite s -1 &x
    inc %i 8
  }
  load -rs s
  %v = $t($1)
  unload -rs s
  remove s
  %r %v
}