print "<table border=1>"
write "<tr><th>"
for c$ in strchars "XYZ"
   write "<th>" & c$
.
print ""
for r to 3
   write "<tr align=right><td>" & r
   for c to 3
      write "<td>" & randint 200
   .
   print ""
.
print "</table>"