a=0
play tts "hello world",,,,,myint
do
loop while a=0
play tts "By world"
end

sub myint
a=1
end sub

 MODE 1,8
 DIM letter$(100),a$(100),laenge(100)

 speedv=50
 pitchv=100
 mouthv=120
 throatv=100

CLS:
 ' COLOR RGB(r,g,b)
 
 
 SPEED=55 :' value for pause
 addtempo=0
 abst=13
 
 ' Declaration of fields are as follow:
 ' letter$(x2) will be each letter of the string
 ' a&(x2) will be the full text row
 ' laenge (x2) is the length of the string
 ' x2 will be how many strings you have - in this example its 12
 ' abs space between rows of writing
 
 a$(01)="Hallo! I implemented the speek synthesizer."
 a$(02)="Now your Colormaximite can speek."
 a$(03)="Sad that you have to pause, so you dont get any errors."
 a$(04)="If you speed up the text you wll get errors."
 a$(05)="Programm written by TweakerRay."
 a$(06)=" "
 a$(07)="Check out http://tweakerray.bandcamp.com"
 a$(08)=" "
 a$(09)="Toggle additional info with 0          "
 a$(10)="Speed up or slowdown Text with + and - "
 a$(11)="Press E for END. Press 1 for green 2 for orange 3 for blue"
 a$(12)="--------------------------------------------------------------------------------"
 
 
 voiceflag=1: ' voiceflag set to 1 to indicate that voice is not running
 x2 = 0
 DO
   DO : LOOP UNTIL voiceflag = 1 ' wait until voice is finished
   PAUSE 500 ' delay between sentences
   x2=x2+1
   IF a$(x2)<>"" AND a$(x2)<> " " THEN ' not a very safe test but works with the given strings
     voiceflag = 0 ' indicate that the voice is busy
     PLAY TTS a$(x2),speedv,pitchv,mouthv,throatv,myinterupt
   ENDIF
   
   PRINT x2
 LOOP UNTIL x2 = 12
END
 
SUB myinterupt
 voiceflag=1
END SUB

play tts "hello world",,,,,myint
do
loop while mm.info(sound)<>"OFF"
play tts "By world"
do
loop while mm.info(sound)<>"OFF"
end

CASE "Q":  Play Sound Ch+1,B,Q,SN,15-ChVol(Ch)
CASE "W":  Play Sound Ch+1,B,W,SN,25-ChVol(Ch)*1.5

if ChType$(Ch)<>"" then Play Sound Ch+1,B,O,1,1

SetTick 10,IntSND,4