home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 12 / tricks / ptest.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-09-07  |  1.0 KB  |  31 lines
  1. (* ------------------------------------------------------ *)
  2. (*                     PTEST.PAS                          *)
  3. (*                 Demo für PrtUnit                       *)
  4. (* ------------------------------------------------------ *)
  5. PROGRAM PTest;
  6.  
  7. USES PrtUnit, Printer, Crt;
  8.  
  9. BEGIN
  10.   ChangePrt(preset);
  11.   WriteLn(LST, 'der verwendete drucker ist ',pname);
  12.   ChangePrt(gross);
  13.   WriteLn(LST, 'das soll expanded ');
  14.   ChangePrt(notgross);
  15.   ChangePrtplus(linehi, 150);
  16.   WriteLn(LST, 'das normal ');
  17.   ChangePrt(underl);
  18.   WriteLn(LST, 'das soll unterstrichen, ',
  19.                'mit großen Zeilenabstand geschrieben ');
  20.   ChangePrt(notunderl);
  21.   Write(LST, 'und das soll ');
  22.   ChangePrt(super);
  23.   Write(LST, 'hochgesetzt ');
  24.   ChangePrt(cancelsu);
  25.   WriteLn(LST, 'werden');
  26.   ChangePrtPlus(linehi, 30);
  27.   WriteLn(LST, 'nun ist der Zeilenabstand wieder normal');
  28.   WriteLn(LST, ' eingestellt.');
  29. END.
  30. (* ------------------------------------------------------ *)
  31. (*               Ende von PTEST.PAS                       *)