
'Controls OpenTextBox

Label loop
	s1 = Format(Rnd * 100, "0")
	s1 = PadRight(s1, 5)
	s2 = Format(Rnd * 100, "0")
	s2 = PadRight(s1, 5)
	s1 = s1 + s2 + "END"
	Print s1 + CRLF
	Save StringToFile s1 "TestFile.txt"
	Wait Seconds 0.1
Goto loop


'WATCH v1
'WATCH s1
'WATCH Now
'WATCH Print Now
'WATCH Now
