2dc
@verb #770:"_constructor" this none this rxd #55
@program #770:"_constructor" this none this
"Begin generic security check (_constructor)"
if (verb == "_constructor" && caller_perms() != #-1)
  raise(E_PERM)
  return E_PERM
endif
"End generic security check (_constructor)"
if (valid(caller_perms()) && !caller_perms().wizard)
  raise(E_PERM)
endif
args[1].name = tostr(#777:next_free_exit())
args[1].aliases = {args[1].name, @`{args[1].dest.name} ! ANY => {}'}
"Last modified by Lao-Tzu (#8084) on Mon Dec 17 14:29:16 2001 MST."
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:06 2002 MDT)."
"Last modified by Dax (#789) on Sat Aug 17 14:50:06 2002 MDT."
.

0