
Button 1 Text "TypeNew"
Button 2 Text "TypeOld"
Button 4 Text "b4"
Button 5 Text "b5"
Button 6 Text "b6"
Button 7 Text "b7"
Button 8 Text "b8"
Button 9 Text "b9"
Button 11 Text b11
Button 12 Text b12

Stop

Label TypeNew
	For v1 = 0 To 9e99
		Button b4 Text Format(Rnd * 10, "0.00000")
		Button b5 Text Format(Rnd * 10, "0.00000")
		Button b6 Text Format(Sin(Rnd) * 10, "0.00000")
		Button b7 Text Format(Cos(Rnd) * 10, "0.00000")
		Button b8 Text Format(Tan(Rnd) * 10, "0.00000")
		Button b9 Text Format(Log(Rnd) * 10, "0.00000")
		Button b11 Text "Test1" + CRLF + "two lines"
		Button b12 Text "Test2"
		Print v1
		'Wait Seconds 0.01
	Next
Return

Label TypeOld
	For v1 = 0 To 9e99
		Button 4 Text Format(Rnd * 10, "0.00000")
		Button 5 Text Format(Rnd * 10, "0.00000")
		Button 6 Text Format(Sin(Rnd) * 10, "0.00000")
		Button 7 Text Format(Cos(Rnd) * 10, "0.00000")
		Button 8 Text Format(Tan(Rnd) * 10, "0.00000")
		Button 9 Text Format(Log(Rnd) * 10, "0.00000")
		Button 11 Text "Test1" + CRLF + "two lines"
		Button 12 Text "Test2"
		Print v1
	Next
Return

Label b8
	Beep
	Wait Seconds 1
Return

Label b9
	Beep
	Wait Seconds 1
Return


Label b11
	Beep
	Wait Seconds 1
Return

Label b12
	Beep
	Wait Seconds 1
Return


'WATCH v1
'WATCH GetSeparatedString(SequenceCmd, 1)
