home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 35.dms / 35.adf / speech.bas < prev    next >
BASIC Source File  |  1988-05-22  |  460b  |  19 lines
  1. 10    a%(0)=110 : a%(1)=0 : a%(2)=150
  2. 11    a%(3)=0 : a%(4)=22200 : a%(5)=64
  3. 12    a%(6)=10 : a%(7)=0 : a%(8)=0
  4. 20    input "Male or female (m/f)";a$
  5. 30    if a$="m" then 80
  6. 40    if a$<>"f" then 20
  7. 50    a%(0%)=200
  8. 60    a%(3%)=1%
  9. 70    a%(4%)=28000
  10. 80    a$ = translate$("hello")
  11. 90    ? narrate(a$,a%())
  12. 100   for i= 1 to 100
  13. 110   next i
  14. 120   input "Enter speech";a$
  15. 130   if a$="" then 10
  16. 140   b$=translate$(a$)
  17. 150   i%=narrate(b$,a%())
  18. 160   goto 120
  19.