Applet1

subroutine applet1

include wbp w3Include

call w3AppletInit

states=""

call w3getVal(states,']visited')

focus = ""

cnt = dcount(states<1>,@vm)

for i = 1 to cnt

    focus<1,i> = 0

next i

names = "visited"

names<2> = "focus"

values = states

values<2> = focus

call w3AppletInsert(names, values)

call w3AppletInput(err, 0, "")

return