@verb #53:"grid" this none this rxdo #60
@program #53:"grid" this none this
maxlength = length(tostr(max_object())) - 1
text = {$su:space(maxlength) + "          111111111122222222223333333333444444444455555555556666666666777777777788888888889999999999", $su:space(maxlength) + "0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789"}
line = $su:right(0, maxlength)
for object in [#0..max_object()]
  line = line + (this:valid(object) ? "." | "*")
  if (toint(object) % 100 == 99)
    text = {@text, line}
    line = $su:right(toint(object) + 1, maxlength)
    $command_utils:suspend_if_needed()
  endif
endfor
if (line == $su:right(toint(object) + 1, maxlength))
  "The remaining line is empty."
  return text
else
  "Add the remaining line."
  return {@text, line}
endif
"Last modified by Dax (#789) on Tue May  3 14:11:54 2005 MDT."
.