nomainwin
quote$ =chr$( 34)
html$ =""
html$ =html$ +" | | X | Y | Z | "
for i =1 to 4
d1$ =str$( i)
d2$ =str$( int( 10000 *rnd( 1)))
d3$ =str$( int( 10000 *rnd( 1)))
d4$ =str$( int( 10000 *rnd( 1)))
html$ =html$ +" | "; d1$; " | " +d2$ +" | " +d3$ +" | " +d4$ +" |
"
next i
html$ =html$ +"
"
html$ =html$ +""
open "table.html" for output as #o
#o html$;
close #o
address$ ="table.html"
run "explorer.exe "; address$
timer 5000, [on]
wait
[on]
timer 0
kill "table.html"
wait
sub quit w$
close #w$
end
end sub