PROCEDURE gfa_speech__(memadr__%,txt__$,speed__%) ' **************************************************************************** ' *** *** ' ** ******** ** * ** Ein Produkt von ** ' ** ********* ********* Hans-Peter Burk und Helmut Micko ** ' ** ** ********* Software Entwicklungen ** ' ** ********* *** * *** ** ' ** ** *** * *** Library : GFA_SLIB.3_0 ** ' ** ********* *** * *** Name : SPEECH ** ' ** ******** *** * *** Version : 1.0 27.11.1989 19:32 ** ' ** Autor : Helmut Micko ** ' *** *** ' **************************************************************************** ' *** Funktion : Sprachliche Ausgabe eines Textes. *** ' ** ** ' ** Parameter : 1.Adresse der Phonemdaten ** ' ** 2.Textstring ** ' ** 3.Geschwindigkeit ** ' ** ** ' ** ** ' ** ** ' ** Lib_rv__% : Unbenutzt ** ' *** Lib_rv__$ : Unbenutzt *** ' **************************************************************************** LOCAL length__%,char1__$,char2__$,char3__$ length__%=0 txt__$=UPPER$(txt__$) WHILE length__%