Controls OpenTextBox
Controls ClearTextBox
Print TTSvoices

TTS SetVolume 100  ' Set the volume 0 to 100 (0 = Disable speak)
TTS SetSpeed 0

'TTS SelectVoice "ITA"
'TTS Speak "Nel mezzo del cammin di nostra vita mi ritrovai per una selva oscura."
'Wait TTSready

'TTS SelectVoice "ENG M"
'TTS Speak "The long and winding road."
'Wait TTSready

TTS SelectVoice "ENG F"
TTS Speak "The long and winding road."
Wait TTSready

TTS SelectVoice "FRA"
TTS Speak "19"
Wait TTSready

TTS SelectVoice "ZHO"
TTS Speak "19"
Wait TTSready

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


'WATCH v1
'EXEC DestX = 12
