463
@verb #1112:"table" this none this rxdo #7788
@program #1112:"table" this none this
player:tell("<TABLE BORDER=\"1\">")
player:Tell("<TR>")
player:Tell("<TH>Quantity</TH>")
player:tell("<TH>Unit</TH>")
player:TELL("<TH></TH>")
player:tell("<TH>Quantity</TH>")
player:Tell("<TH>Unit</TH>")
player:tell("</TR>")
for a in (this.units)
  for y in (a[2])
    for x in (a[2])
      try
        player:tell("<TR>")
        info = this:convert(1.0, y, x)
        player:tell("<TD>1</TD>")
        player:Tell("<TD>", y, "</TD>")
        player:tell("<TD>Is Equal To</TD>")
        player:Tell("<TD>", info, "</TD>")
        player:tell("<TD>", x, "</TD>")
        player:tell("</TR>")
      except (ANY)
        player:tell("<TR>")
        player:tell("<TD>Error, ", y, " to ", x, ".</TD>")
        player:Tell("</TR>")
      endtry
      $cmd_utils:suspend_if_needed()
      random(100) > 95 ? suspend(2) | 0
    endfor
    $cmd_utils:suspend_if_needed()
  endfor
  $cmd_utils:suspend_if_needed()
endfor
player:Tell("</TABLE>")
"Last modified by Dax (#789) on Sat May 16 14:19:39 1998 EDT."
.

0