home *** CD-ROM | disk | FTP | other *** search
/ Sound Sensations! / sound_sensations.iso / soundb / qb_sbkit / demosbts.bas < prev    next >
BASIC Source File  |  1990-07-01  |  998b  |  56 lines
  1. ' $INCLUDE: 'SBCTS.BI'
  2.  
  3. DECLARE SUB WAITKEY()
  4.  
  5. ' Reserve 512 bytes stack space for SUB STSAY
  6. CLEAR,,512
  7.  
  8. CLS
  9.  
  10. PRINT "QuickBaisc Text-to-Speech Example"
  11. PRINT
  12.  
  13. ' Check the existence of SBTALKER driver
  14. IF (STINIT% <> 0) THEN
  15.  
  16.      PRINT "SBTALKER installed."
  17.      STSAY "SB-talker installed."
  18.  
  19.      CALL WAITKEY
  20.  
  21.      ' Change the volume
  22.      CALL STSETTING(0,0,9,5,5)
  23.      PRINT "I can speek louder."
  24.      STSAY "I can speak louder."
  25.  
  26.      CALL WAITKEY
  27.  
  28.      ' Change the pitch
  29.      CALL STSETTING(0,0,9,9,5)
  30.      PRINT "I can change my pitch."
  31.      STSAY "I can change my pitch."
  32.  
  33.      CALL WAITKEY
  34.  
  35.      ' Change the speed
  36.      CALL STSETTING(0,0,9,9,9)
  37.      PRINT "I can speak very fast"
  38.      STSAY "I can speak very fast"
  39.  
  40. ELSE
  41.      PRINT "SBTALKER not installed."
  42. ENDIF
  43.  
  44.  
  45. ' ---------------------------------------------------------------- '
  46.  
  47.  
  48. SUB WAITKEY
  49.  
  50.      PRINT "Press a key to continue..."
  51.  
  52.      WHILE INKEY$ = ""
  53.      WEND
  54.  
  55. END SUB
  56.