
Beep 440 1e33

Wait Seconds 0.5

Beep

TTS SelectVoice 1

Label Loop
	s1 = SlotText(1)
	Print s1
	
	If Len(s1) < Len(s2)
		TTS Speak s2
		Wait Not TTSspeaking
	EndIf
	
	s2 = s1
	
Goto Loop


'WATCH v1
'EXEC DestX = 12
