subroutine w3TandemTest
include wbp w3include
call w3Tandem("test", "Start")
call w3HtmlInit("", "")
call w3HtmlHeader("","")
for i = 1 to 10
CRT i
call w3Printn("<BR>":i)
sleep(1)
next i
call w3HtmlFooter("","")
call w3Tandem("test", "Stop")
return