program Port_Demo;

{$IPORTVIEW.INC}

var Dummy : char;

begin
  clrscr;
  Display_Init;
  writeln; writeln;
  writeln ('Was Sie gleich rechts oben sehen werden ist');
  writeln ('der Bin{rzustand des Druckerstatusport auf');
  writeln ('der I/O-Adresse $FD.');
  writeln ('Ziehen Sie ein Blatt Papier ein, machen Sie');
  writeln ('eventuell eine Hardcopy mit (EXTRA+PTR) und');
  writeln ('beobachten Sie die Anzeige...');
  Display_On;
  writeln ('Wenn Sie jetzt (RETURN) dr}cken, k|nnen Sie');
  writeln ('als n{chstes dem Z{hler f}r die Baudrate bei');
  writeln ('der Arbeit zuschauen. (Falls Sie ein Schnitt-');
  writeln ('stellenmodul besitzen...)');
  readln (Dummy);
  writeln; writeln;
  writeln ('Das n{chste (RETURN) beschleunigt die Anzeige,');
  writeln ('das }bern{chste beendet die Demo...');
  Set_Parameters(0,0,$E4);
  readln(Dummy);
  Quick_Display;
  readln(Dummy);
  Display_Off
end.