' Voir version QL SINCLAIR
' Voir version Turbo Pascal
' revue pour TurBo Basic v 1.1 sur IBM XT
' Auteur P.F.   07/88 rev 27/01/89
screen 0
cls
input "choix com<1> ou com<2> : "choix
select case choix
case 1
OPEN "COM1:4800,N,8,1,RS,DS" AS  #3
UART=&H3F8
case 2
OPEN "COM2:4800,N,8,1,RS,DS" AS  #3
UART=&H2F8
end select
delay 1
cls

$dynamic
shell "usecran synte.bin"
$static
delay 3
Cls
%Fin.Phoneme=65
Dim Cp$(65)
Liste.Phoneme:
Data PA1,PA2,PA3,PA4,PA5
Data OY,AY,EH,KK3,PP,JH,NN1,IH,TT2,RR1,AX,MM,TT1,DH1
Data IY,EY,DD1,UW1,AO,AA,YY2,AE,HH1,BB1,TH,UH,UW2,AW
Data DD2,GG3,VV,GG1,SH,ZH,RR2,FF,KK2,KK1,ZZ,NG,LL,WW
Data XR,WH,YY1,CH,ER1,ER2,OW,DH2,SS,NN2,HH2,OR,AR,YR
Data GG2,EL,BB2

Color 2
Restore Liste.Phoneme
?"Liste des Phonemes disponibles:"
For I=0 to 63 :read Cp$(I):?using "\  \";cp$(I);:next I
?
?

Color 11
RESTORE Presentation
FOR I=1 TO 5:GOSUB Dis.quelque.chose:NEXT I:PRINT
RESTORE Nombres
FOR I=1 TO 4:GOSUB Dis.quelque.chose:NEXT I:PRINT
RESTORE Mois
FOR I=1 TO 2:GOSUB Dis.quelque.chose:NEXT I:PRINT

color 6
While Phoneme < %Fin.Phoneme
 LOCATE 12,1
 INPUT "valeur Phoneme <0...64> ): ";phoneme
 A=Phoneme
 ?using "\    \";cp$(Phoneme)
 GOSUB Transmission
 delay 0.1
 A=64
 GOSUB Transmission
Wend
?:?"Fin normale de programme."
delay 2
Stop



    ' Format des datas:
    ' - Restore pour indiquer la ligne du mot ou phrase a prononcer
    ' - code superieur a 80 pour indiquer le nombre de datas par ligne
    '    ex 89-80  => 9 datas suivent...sous le format des phonemes
    '          qui vont de 0.. a ... 64.  voir notice SPO256 AL2


Presentation:
DATA 85,27,7,45,15,53,"HELLO"
DATA 82,24,6,"I"
DATA 83,42,26,11,"CAN"
DATA 86,55,55,2,19,2,41,"SPEAK"
DATA 89,7,7,0,11,36,45,19,2,50,"ENGLISH"

nombres:
DATA 83,43,60,53,"Zero"
DATA 83,46,15,11,"One"
DATA 82,13,31,"Two"
DATA 83,29,14,19,"Three"

Mois:
DATA 87,10,26,11,30,26,39,19,"January"
DATA 87,40,7,34,39,31,39,19,"February"

Divers:
DATA 87,16,0,7,7,14,2,21,"MERDE"


Dis.quelque.chose :
 Read K
 Gosub Ennonce
 Read NOUN$
 Print NOUN$;" ";
 Return

Ennonce:
 FOR J=1 TO K-80
 READ A
 GOSUB Transmission
 Delay 0.1
 Next J
 delay 0.1
 A=4:GOSUB Transmission
 A=64:GOSUB Transmission
 delay 0.1
 Return

Transmission:
 WAIT UART+5,96
 WAIT UART+6,2,2
 OUT UART,128+A
 WAIT UART+5,96
 WAIT UART+6,2,2
 OUT UART,A
 WAIT UART+5,96
 WAIT UART+6,2,2
 RETURN

OUestle.Curseur :
 Lig = CSRLIN
 Col = POS(0)
 Return