home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: The Developer …nd Blaster Series Disk 2 / Lowe_TheDeveloperKitForSoundBlasterSeriesDisk2.img / TPASCAL / SPEECH / DEMOSBTS.PAS
Encoding:
Pascal/Delphi Source File  |  1991-09-12  |  2.3 KB  |  64 lines
  1. { ------------------------------------------------------------------------ }
  2. {  @@ Source Documentation                           *** TP6 Version ***   }
  3. {                                                                          }
  4. {  Copyright (c) Creative Technology Pte Ltd, 1991. All rights reserved.   }
  5. {                                                                          }
  6. {   TITLE       : DEMOSBTS.PAS                                             }
  7. {                                                                          }
  8. {   DESCRIPTION :                                                          }
  9. {       This program demostrates how to use the Text-to-Speech functions.  }
  10. {                                                                          }
  11. {       Note that the BLASTER environment has to be set before executing   }
  12. {       this program.                                                      }
  13. {                                                                          }
  14. { ------------------------------------------------------------------------ }
  15.  
  16. program demosbts;
  17.  
  18. { Include the SBC Unit, and any other units needed }
  19. uses sbc_tp6,crt;
  20.  
  21.  
  22. { ------------------------------------------------------------------------ }
  23.  
  24. { main function }
  25. var
  26.     key : char;
  27.  
  28. begin
  29.  
  30.     { check the existence of SBTALKER driver }
  31.     if Boolean(sbts_init)  then begin
  32.  
  33.         writeln('SBTALKER installed.');
  34.         sbts_say('SB-talker installed.');
  35.         writeln('Press any key to continue ...');
  36.         writeln;
  37.         key := ReadKey;
  38.  
  39.         { change the volumn }
  40.         sbts_settings(0,0,9,5,5);
  41.         writeln('I can speak louder.');
  42.         sbts_say('I can speak louder.');
  43.         writeln('Press any key to continue ...');
  44.         writeln;
  45.         key := ReadKey;
  46.  
  47.         { change the pitch }
  48.         sbts_settings(0,0,9,9,5);
  49.         writeln('I can change my pitch.');
  50.         sbts_say('I can change my pitch.');
  51.         writeln('Press any key to continue ...');
  52.         writeln;
  53.         key := ReadKey;
  54.  
  55.         { change the speed }
  56.         sbts_settings(0,0,9,9,9);
  57.         writeln('I can speak very fast.');
  58.         sbts_say('I can speak very fast.');
  59.     end
  60.     else
  61.        writeln('SBTALKER is not installed.');
  62.  
  63. end.
  64.