@verb #1:"basedir" this none this rxd #55
@program #1:"basedir" this none this
dir = ""
n = tostr(this)
for x in [2..length(n)]
  dir = dir + "/" + n[x]
endfor
return dir
"Last modified by Dax (#789) on Sat Sep 18 03:50:55 1999 MDT."
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:04 2002 MDT)."
"Last modified by Dax (#789) on Sat Aug 17 14:50:04 2002 MDT."
.