Minimal replacement for Speak XOP

#pragma rtGlobals=1     // Use modern global access method.
 
//  Speak(text, voice) is a minimal replacement for the old Speak XOP
//  text is the text to be spoken, embed \r\r to create a pause
//  voice is a system voice such as Alex, Bruce, Fred, Kathy, Vicki, Victoria, etc.
//  If voice is empty (""), the default system voice is used;
//  the default voice can be set in the Speech system preference.
//  
//  an example:
//  Speak("position the cursors on the trace\r\rpress ok when ready", "Vicki")
Function Speak(text, voice)
    String text, voice
    
    String phrase = " say \""+ text +"\" using \"" + voice+ "\" "
 
    ExecuteScriptText/Z phrase
 
End