SUB vwatch (linenumber AS LONG)
    linenumber = 0
END SUB