Controls OpenTextBox
Print TTSvoices

TTS SetVolume 100

' ---------------------------- TTS commands
TTS SelectVoice 1 ' 1 to n
TTS SetVolume 1   ' 0 to 100
TTS SetSpeed 1    ' -10 to 10
TTS Speak ""      ' text string
TTS Stop
TTS Pause
TTS Resume

' ---------------------------- TTS functions
v1 = TTSvoices
v1 = TTSready
v1 = TTSpaused

' Delete all the following lines
' and then click here

Label Pippo
	TTS SelectVoice 1 ' 1 to n
	TTS SetVolume 1   ' 0 to 100
	TTS SetSpeed 1    ' -10 to 10
	TTS Speak ""      ' text string
	TTS Stop
	TTS Pause
	TTS Resume
	TTS SelectVoice 1 ' 1 to n
	TTS SetVolume 1   ' 0 to 100
	TTS SetSpeed 1    ' -10 to 10
	TTS Speak ""      ' text string
	TTS Stop
	TTS Pause
	TTS Resume
	TTS SelectVoice 1 ' 1 to n
	TTS SetVolume 1   ' 0 to 100
	TTS SetSpeed 1    ' -10 to 10
	TTS Speak ""      ' text string
Return


'WATCH v1
'EXEC DestX = 12
