{ MaxonPascal3-Anpassung / Test: Falk Zühlsdorff (PackMAN) 1994 }

Program Sprachdemo;

{ Programm spricht buchstäblich für sich selbst. }

Uses ExecIO;

{$incl "devices/narrator.h" }

Var Port        : ^MsgPort;
    NarrReq     : ^narrator_rb;
    AllocMaske  : Array [1..4] Of Byte;


Procedure OpenNarr;
  Begin
    port := CreatePort ('Singsang', 0);
    NarrReq := CreateExtIO (port, sizeof(NarrReq^));
    Open_Device ('narrator.device', 0, NarrReq, 0)
  End;


Procedure Laber(txt: Str);
  Var err: integer;
  Begin
    With NarrReq^, message Do
      Begin
        io_Command := CMD_WRITE;
        io_Data := Ptr(txt);
        io_Length := Length(txt);
      End;
    err := DoIO(PTR(NarrReq));
  End;

Begin
  OpenNarr;

  AllocMaske[1] := 1;
  AllocMaske[2] := 2;
  AllocMaske[3] := 4;
  AllocMaske[4] := 8;

  With NarrReq^ Do
    Begin
      rate := 150;
      pitch := 110;
      mode := NaturalF0;
      sex := Male;
      ch_masks := ^AllocMaske;
      nm_masks := 4;
      volume := 64;
      sampfreq := DefFreq;
      mouths := 0;
    End;

  Laber ('CHPRAA5/CDEH2EH2MOH - AYN PROWGRAH3M FOHN YEH3NS GEH3L/HAAR,');
  Laber ('FIY3RTEHR AWGUH3ST NOY3NSEHN/HUH3NDEHRTNOY3NZIXG.');
  Delay (20);
  Laber ('DIY3SEHS PROWGRAH3M DEH1MOHNSTRIY3RT DIY BEHNUH2TSUHNG DEHR'\&
         'AHMIY5GAA SHPRAA4/CAWSGAA3BEH IHN KIH4KPAH1SKAA0LPROWGRAH3MEHN.');

  { Device schließen usw. geht automatisch. }
End.