@verb #4980:"song1" none none none rxd #9223
@program #4980:"song1" none none none
url = "http://www.winternet.com/~wingnut/mid/borrowed/topliner.mid"
mimetype = "audio/midi"
ObjectStyleID = 4
ContainerStyleID = 5
stylenum = this.stylesystem:get_style_by_id(ObjectStyleID)[1]
height = 12
width = 90
if (this.stylesystem.rulebucket[stylenum]->height != tostr(height) + "pt" || this.stylesystem.rulebucket[stylenum]->width != tostr(width) + "pt")
  this.stylesystem:setparam(stylenum, "height", tostr(height) + "pt")
  this.stylesystem:setparam(stylenum, "width", tostr(width) + "pt")
  stylenum = this.stylesystem:get_style_by_id(ContainerStyleID)[1]
  this.stylesystem:setparam(stylenum, "border", "10pt blue groove")
endif
objnode = this:makeobjectnode(url, mimetype, ObjectStyleID, {{"autoplay", "true"}})
contained = this:makecontainernode("td", objnode, ContainerStyleID)
player:tell(contained)
"Last modified by Wingy (#9223) on Tue Jan 28 19:40:40 2003 MST."
.