@verb #2945:"_constructor" this none this rxdo #789
@program #2945:"_constructor" this none this
"Copied from PT2 (#3067):_constructor by Dax (#789)Jul 12 10:58:39 2002"
"Begin generic security check (_constructor)"
if (verb == "_constructor" && caller_perms() != #-1)
  raise(E_PERM)
  return E_PERM
endif
"End generic security check (_constructor)"
if (caller_perms() != #-1)
  return
endif
args[1].state = tostr(random(10))
"Last modified by MadHatter (#8371) on Mon Jul 15 11:13:16 2002 MDT."
.