# This is an example of how to use Narrate and Translate
#
# SDB
#
# NOTE:  It is wise to use SET MAXMEM=XXXX, where XXXX allows enough memory
#	 for the translator and narrator to be loaded, or else this program
#	 will possibly fail.
#

procedure main()
	LeftSide(Translate("Hello, this is from the left speaker"))
	RightSide(Translate("Hello, this is from the right speaker"))
	BothSides(Translate("And this is from both sides"))
end

procedure LeftSide(s)
	Narrate(s, , , , "male", , , "left")
end

procedure RightSide(s)
	Narrate(s, , , , "female", , , "right")
end

procedure BothSides(s)
	Narrate(s, , ,"robotic" , "male", , , "both")
end