$$ MODE TUSCRIPT
tablefile="table.html"
ERROR/STOP CREATE (tablefile,FDF-o,-std-)
ACCESS d: WRITE/ERASE/RECORDS/utf8 $tablefile s,tablecontent
tablecontent=*
WRITE d ""
WRITE d "create html table"
WRITE d ""
WRITE d "| | x | y | z |
|---|
"
WRITE d ""
WRITE d ""
LOOP n=1,5
x=RANDOM_NUMBERS (1,9999,1)
y=RANDOM_NUMBERS (1,9999,1)
z=RANDOM_NUMBERS (1,9999,1)
WRITE d "| {n} | {x} | {y} | {z} |
"
ENDLOOP
WRITE d "
"
ENDACCESS d
BROWSE $tablefile