home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / multtsk / cpmult / demo / lsttest.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-04-07  |  703 b   |  34 lines
  1. Program LstTest;
  2.  
  3. {$R-,I-,S-,D-,F-,V-,B-,N-,L-}
  4.  
  5. { Demonstration zur Anwendung des Print-Spoolers
  6.  
  7.   Christian Philipps Software-Technik
  8.   Düsseldorfer Str. 316
  9.  
  10.   4130 Moers 1
  11.  
  12.   März 1989
  13. }
  14.  
  15. USES Crt, CpMulti, MtPrint;
  16.  
  17. VAR  N : Byte;
  18.  
  19. {-----------------------------------------------------------------------------}
  20.  
  21. BEGIN {Main}
  22.   RestartSpooler(10000);
  23.   writeln('Printer-Buffer = ',PrintBufferAvail,' Zeichen');
  24.   Writeln('PrinterReady = ',PrinterReady);
  25.   FOR N := 1 TO 20 DO
  26.     Writeln(Lst,'Dies ist ein Druckertest!');
  27.   Write(Lst,#12);
  28.   Writeln('Buffer filled= ',PrintBufferFilled);
  29.   Sleep(1);
  30.   repeat
  31.     Write('+');
  32.   until NOT SpoolerBusy;
  33. END.  {Main}
  34.