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