Controls OpenTextBox
Controls ClearTextBox
Print TTSvoices

TTS SetVolume 100 ' Set the volume to zero to disable SpeakWait
TTS SetSpeed -1

TTS SelectVoice "ENG M"
TTS SpeakWait 19
'For v1 = 1 To 1000
'	s1 = s1 + "LONG STRINGS.         "
'Next

TTS SpeakWait s1

TTS SelectVoice "ENG F"
TTS SpeakWait "19"

TTS SelectVoice "ITA"
TTS SpeakWait "19"

TTS SelectVoice "FRA"
TTS SpeakWait "19"

TTS SelectVoice "CHI"
TTS SpeakWait "19"

Stop


' ---------------------------- 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 SpeakWait ""  ' text string
TTS Stop
TTS Pause
TTS Resume
' ---------------------------- TTS functions
v1 = TTSvoices
v1 = TTSready
v1 = TTSpaused
v1 = TTSspeaking


'WATCH v1
'EXEC DestX = 12
