@verb #8562:"_show_officers" this none this rxdo #3887
@program #8562:"_show_officers" this none this
player:tell("A display screen on a console nearby lights up with the following information:")
for l in [1..this.max_level]
  player:tell("* ", this.levels[l + 1], " (level ", $su:english_number(l), ")")
  line = ""
  for o in (this.officers)
    if (o[2] == l)
      line = tostr(line, $su:left(o[1]:nn(), 25))
      if (length(line) >= 75)
        player:tell($su:space(5), line)
        line = ""
      endif
    endif
  endfor
  line && player:Tell($su:space(5), line)
endfor
"Last modified by Daryl (#3887) on Thu Jul 29 15:06:37 1999 MDT."
.