
'Controls OpenTextBox
Gosub Loop
Stop

Label EventTimer
	Print "----------------------------------" + CRLF
	v1 = v1 + 1
Return

Beep

Label Loop
	Print Rnd + CRLF
	v2 = v2 + 1
	Wait Seconds 0.001
Goto Loop


'WATCH v1
'WATCH v2
'EXEC Gosub 3
