17a
@verb #9699:"initialize" this none this rxdo #9019
@program #9699:"initialize" this none this
NUM = tostr(toint(this))
this.name = "Portal (" + NUM + ")"
this:set_aliases({this.name, "Portal", "port", NUM})
fork taskywasky (this.collapse_len)
  this:collapse()
endfork
this.task = taskywasky
"Last modified by Mr.Underhill (#9019) on Thu Dec 27 22:11:32 2001 MST."
.

0