home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL3.DMS / in.adf / DEMOS-OS1.3 / Sprachdemo.p < prev    next >
Encoding:
Text File  |  1994-07-23  |  1.4 KB  |  66 lines
  1. { MaxonPascal3-Anpassung / Test: Falk Zühlsdorff (PackMAN) 1994 }
  2.  
  3. Program Sprachdemo;
  4.  
  5. { Programm spricht buchstäblich für sich selbst. }
  6.  
  7. Uses ExecIO;
  8.  
  9. {$incl "devices/narrator.h" }
  10.  
  11. Var Port        : ^MsgPort;
  12.     NarrReq     : ^narrator_rb;
  13.     AllocMaske  : Array [1..4] Of Byte;
  14.  
  15.  
  16. Procedure OpenNarr;
  17.   Begin
  18.     port := CreatePort ('Singsang', 0);
  19.     NarrReq := CreateExtIO (port, sizeof(NarrReq^));
  20.     Open_Device ('narrator.device', 0, NarrReq, 0)
  21.   End;
  22.  
  23.  
  24. Procedure Laber(txt: Str);
  25.   Var err: integer;
  26.   Begin
  27.     With NarrReq^, message Do
  28.       Begin
  29.         io_Command := CMD_WRITE;
  30.         io_Data := Ptr(txt);
  31.         io_Length := Length(txt);
  32.       End;
  33.     err := DoIO(PTR(NarrReq));
  34.   End;
  35.  
  36. Begin
  37.   OpenNarr;
  38.  
  39.   AllocMaske[1] := 1;
  40.   AllocMaske[2] := 2;
  41.   AllocMaske[3] := 4;
  42.   AllocMaske[4] := 8;
  43.  
  44.   With NarrReq^ Do
  45.     Begin
  46.       rate := 150;
  47.       pitch := 110;
  48.       mode := NaturalF0;
  49.       sex := Male;
  50.       ch_masks := ^AllocMaske;
  51.       nm_masks := 4;
  52.       volume := 64;
  53.       sampfreq := DefFreq;
  54.       mouths := 0;
  55.     End;
  56.  
  57.   Laber ('CHPRAA5/CDEH2EH2MOH - AYN PROWGRAH3M FOHN YEH3NS GEH3L/HAAR,');
  58.   Laber ('FIY3RTEHR AWGUH3ST NOY3NSEHN/HUH3NDEHRTNOY3NZIXG.');
  59.   Delay (20);
  60.   Laber ('DIY3SEHS PROWGRAH3M DEH1MOHNSTRIY3RT DIY BEHNUH2TSUHNG DEHR'\&
  61.          'AHMIY5GAA SHPRAA4/CAWSGAA3BEH IHN KIH4KPAH1SKAA0LPROWGRAH3MEHN.');
  62.  
  63.   { Device schließen usw. geht automatisch. }
  64. End.
  65.  
  66.