180
@verb #8562:"parse_level" this none this rxdo #3887
@program #8562:"parse_level" this none this
levelstr = $su:trim(args[1])
length(levelstr) > 5 && levelstr[1..5] == "level" && (levelstr = $su:trim(levelstr[6..$]))
return (levelstr in this.levels || min(index($su.digits, levelstr), this.max_level + 1)) - 1
"Last modified by Daryl (#3887) on Thu Jul 29 18:27:13 1999 MDT."
.

0