home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / voice / speech.bas < prev    next >
BASIC Source File  |  1983-09-09  |  3KB  |  89 lines
  1. 10 REM - PROGRAM TO GENERATE SPEECH USING VOTRAX SC-01
  2. 20 REM - CHIP CONNECTED TO PARALLEL PORT #110
  3. 30 REM - CONTROL PORT = 108
  4. 40 REM - CHECK BIT = 5 (I.E. 32 DECIMAL)
  5. 50 REM - ELLIOT L. GOLDYN  -  9/11/81
  6. 60 REM - 9530 CREEMORE DRIVE
  7. 70 REM - TUJUNGA, CALIFORNIA 91042
  8. 80 REM - (213) 353-8359
  9. 90 REM - VERSION 2.1
  10. 100 CLEAR(1000)
  11. 110 DIM P$(500):DIM E$(255):DIM P(500)
  12. 120 I=0
  13. 130 PRINT CHR$(5)
  14. 140 PRINT"1. TYPE PHONEME CHARACTERS WHEN PROMPTED.":PRINT
  15. 150 PRINT"2. INFLECTIONS ARE ADDED TO VOICE BY APPENDING A":PRINT
  16. 160 PRINT "`-1' ,`-2' OR `-3' TO BASIC PHONEME SYMBOL.":PRINT
  17. 170 PRINT"3. INCORRECT INPUTS MAY BE CORRECTED BY":PRINT
  18. 180 PRINT"TYPING AN `*' INSTEAD OF A NEW PHONEME.":PRINT
  19. 190 DATA 42,21,0,41,37,3,29,38,13,2,12,3,25,47,0,43,47,0,25,42
  20. 200 DATA 42,58,31,62,45,1,1,13,3,37,43,21,35,12,37,42,2,30,62,62
  21. 210 DATA 62,62,11,9,13,37,22,22,42,3,39,31,3,42,58,12,39,13,32,42
  22. 220 DATA 2,30,3,45,39,57,3,37,60,43,60,39,30,63
  23. 230 REM - SPEAKS SIGN ON INSTRUCTIONS
  24. 240 FOR L=1 TO 74:READ P(L):NEXT L
  25. 250 FOR L=1 TO 74:OUT 110,P(L)
  26. 260 IF (INP(108)AND32)<>32 GOTO 260
  27. 270 NEXT L
  28. 280 PRINT"4. INPUT IS TERMINATED BY A '.'":PRINT
  29. 290 PRINT "PHONEME # ";I;" = ";
  30. 300 INPUT A$
  31. 310 IF A$<>"*"GOTO 340
  32. 320 PRINT:INPUT"PHONEME # AND NEW PHONEME";A,N$
  33. 330 P$(A+1)=N$:PRINT:GOTO 290
  34. 340 IF A$ = "." THEN GOTO 380
  35. 350 I=I+1
  36. 360 P$(I)=A$
  37. 370 GOTO 290
  38. 380 FOR K=0 TO 255:READ E$(K):NEXT K
  39. 390 FOR J=1 TO I
  40. 400 REM - PRINT OUT PHONEMES AND DECIMAL CODES
  41. 410 FOR K=0 TO 255
  42. 420 IF E$(K)=P$(J) THEN GOTO 440 ELSE GOTO 450
  43. 430 REM - SPEAK INPUT ON SC-01
  44. 440 P(J)=K:GOTO 460
  45. 450 NEXT K
  46. 460 NEXT J
  47. 470 PRINT:PRINT:PRINT"PHONEMES AND CODES"
  48. 480 FOR J=1 TO I:PRINT P$(J),P(J):NEXT J
  49. 490 PRINT:PRINT
  50. 500 FOR J=1 TO I
  51. 510 OUT 110,P(J)
  52. 520 IF (INP(108) AND 32)<>32 GOTO 520
  53. 530 NEXT J
  54. 540 OUT 110,63
  55. 550 IF(INP(108)AND32)<>32 THEN 560
  56. 560 INPUT"REPEAT PHRASE (Y/N)";R$
  57. 570 IF R$="Y" GOTO 500
  58. 580 INPUT"DO YOU WISH TO MAKE MORE SPEECHES";R$
  59. 590 IF R$="Y" GOTO 100
  60. 600 END
  61. 610 REM - THERE ARE 256 PHONEMES IN DATA TABLE, THE POSITION
  62. 620 REM - OF THE PHONEME IN THE DATA TABLE REPRESENTS THE
  63. 630 REM - DECIMAL CODE FOR THE PHONEME.
  64. 640 DATA EH3,EH2,EH1,PA0,DT,A2,A1,ZH,AH2,I3,I2,I1,M,N,B,V
  65. 650 DATA CH,SH,Z,AW1,NG,AH1,OO1,OO,L,K,J,H,G,F,D,S,A,AY,Y1
  66. 660 DATA UH3,AH,P,O,I,U,Y,T,R,E,W,AE,AE1,AW2,UH2,UH1,UH,O2
  67. 670 DATA O1,IU,U1,THV,TH,ER,EH,E1,AW,PA1,STOP
  68. 680 DATA EH3-1,EH2-1,EH1-1,PA0-1,DT-1,A2-1,A1-1,ZH-1,AH2-1,I3-1
  69. 690 DATA I2-1,I1-1,M-1,N-1,B-1,V-1
  70. 700 DATA CH-1,SH-1,Z-1,AW1-1,NG-1,AH1-1,OO1-1,OO-1,L-1,K-1,J-1
  71. 710 DATA H-1,G-1,F-1,D-1,S-1,A-1,AY-1,Y1-1
  72. 720 DATA UH3-1,AH-1,P-1,O-1,I-1,U-1,Y-1,T-1,R-1,E-1,W-1,AE-1
  73. 730 DATA AE1-1,AW2-1,UH2-1,UH1-1,UH-1,O2-1
  74. 740 DATA O1-1,IU-1,U1-1,THV-1,TH-1,ER-1,EH-1,E1-1,AW-1,PA1,STOP
  75. 750 DATA EH3-2,EH2-2,EH1-2,PA0-2,DT-2,A2-2,A1-2,ZH-2,AH2-2,I3-2
  76. 760 DATA I2-2,I1-2,M-2,N-2,B-2,V-2
  77. 770 DATA CH-2,SH-2,Z-2,AW1-2,NG-2,AH1-2,OO1-2,OO-2,L-2,K-2,J-2
  78. 780 DATA H-2,G-2,F-2,D-2,S-2,A-2,AY-2,Y1-2
  79. 790 DATA UH3-2,AH-2,P-2,O-2,I-2,U-2,Y-2,T-2,R-2,E-2,W-2,AE-2
  80. 800 DATA AE1-2,AW2-2,UH2-2,UH1-2,UH-2,O2-2
  81. 810 DATA O1-2,IU-2,U1-2,THV-2,TH-2,ER-2,EH-2,E1-2,AW-2,PA1,STOP
  82. 820 DATA EH3-3,EH2-3,EH1-3,PA0-3,DT-3,A2-3,A1-3,ZH-3,AH2-3,I3-3
  83. 830 DATA I2-3,I1-3,M-3,N-3,B-3,V-3
  84. 840 DATA CH-3,SH-3,Z-3,AW1-3,NG-3,AH1-3,OO1-3,OO-3,L-3,K-3,J-3
  85. 850 DATA H-3,G-3,F-3,D-3,S-3,A-3,AY-3,Y1-3
  86. 860 DATA UH3-3,AH-3,P-3,O-3,I-3,U-3,Y-3,T-3,R-3,E-3,W-3,AE-3
  87. 870 DATA AE1-3,AW2-3,UH2-3,UH1-3,UH-3,O2-3
  88. 880 DATA O1-3,IU-3,U1-3,THV-3,TH-3,ER-3,EH-3,E1-3,AW-3,PA1,STOP
  89.