w3mvDProgressTest

subroutine w3mvDProgressTest

include wbp w3Include

Selected = ""

call w3mvDInit("", "")

for i = 1 to 5

    call w3mvDInsert("list.col1", i, "")

next i

for i = 0 to 5

    CRT "Bar ":i

    call w3mvDProgress("Progress", 5, 105, (i*20) + 5)

    sleep(3)

next i

for i = 1 to 5

    call w3mvDInsert("list.col2", i, "")

next i

call w3mvDInput(err, 0, "")

return