
Button 1 Label PrintText

SlotText(1) = "xxxxxxxxxxx"
ReadStringSlot
Stop

Label ReadStringSlot
	For v1 = 1 To Infinity
		s1 = SlotText(1)
		s1 = SlotText(1)
		s1 = SlotText(1)
		s1 = SlotText(1)
		s1 = SlotText(1)
		s1 = SlotText(1)
		s1 = SlotText(1)
		s1 = SlotText(1)
		s1 = SlotText(1)
		s1 = SlotText(1)
		Print s1
	Next
Return

Label PrintText
	Print "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"
	Wait Seconds 0.3
Return


'WATCH v1
'EXEC DestX = 12
