{
  Joachim Deckers
  Anlage zur 2. Staatsexamensarbeit / 28.5.96

  Lösungsvorschlag zur Aufgabe 4 im Abschnitt
  "7.3.5.2 Fehlererkennung"

  ---> Sender <---
}

program sender;

uses protokoll, protp2, wincrt;

var ich, empf: kennung;
    zaehl    : Integer;
    zeile    : string;

begin
  Writeln('Mit diesem Programm werden 100 Botschaften ',
          'an eine andere Instanz verschickt.');
  Write('Welche Kennung möchten Sie haben?');
  Readln(ich);
  Write('An wen werden die Botschaften verschickt?');
  Readln(empf);

  SetzeZurueck;
  Uebertragungsfehler(true);
  SetzeFehlerrate(0.005);

  for zaehl:=1 to 100 do begin
    Str(zaehl:3,zeile);
    zeile:=Concat('Dieses ist meine ',zeile,'. Nachricht.');
    sendeP(ich,empf,zeile);
  end
end.