home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL3.DMS / in.adf / DEMOS-OS1.3 / SysProg / Textspielereien.p < prev    next >
Encoding:
Text File  |  1994-07-23  |  533 b   |  28 lines
  1. { MaxonPASCAL3-Anpassung / Test: Falk Zühlsdorff (PackMAN) 1994 }
  2.  
  3. Program TextSpielereien(output);
  4.  
  5.  Procedure SetStyle(Stil:integer);
  6.   Begin
  7.    write(chr($9b),Stil,'m')
  8.   End;
  9.  
  10.  Procedure SetCol(Vfarb,Hfarb:integer);
  11.   Begin
  12.    write(chr($9b),'3',Vfarb,';4',Hfarb,'m')
  13.   End;
  14.  
  15. Begin
  16.  Page;
  17.  SetStyle(1);
  18.  SetCol(3,2);
  19.  writeln('Fett und Rot auf schwarz');
  20.  SetStyle(4);
  21.  writeln('zusätzlich noch unterstrichen');
  22.  SetCol(2,1);
  23.  SetStyle(3);
  24.  writeln('Schwarz auf weiß - und kursiv');
  25.  SetStyle(0);
  26.  writeln('Wieder normal.')
  27. End.
  28.