Program TextSpielereien(output);

 Procedure SetStyle(Stil:integer);
  Begin
   write(chr($9b),Stil,'m')
  End;

 Procedure SetCol(Vfarb,Hfarb:integer);
  Begin
   write(chr($9b),'3',Vfarb,';4',Hfarb,'m')
  End;

Begin
 Page;
 SetStyle(1);
 SetCol(3,2);
 writeln('Fett und Rot auf schwarz');
 SetStyle(4);
 writeln('zusätzlich noch unterstrichen');
 SetCol(2,1);
 SetStyle(3);
 writeln('Schwarz auf weiß - und kursiv');
 SetStyle(0);
 writeln('Wieder normal.')
End.