home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / multtsk / cpm25d / lsttest.pas < prev    next >
Pascal/Delphi Source File  |  1994-04-28  |  1KB  |  44 lines
  1. {$I cpmswitc.inc}
  2.  
  3. {--------------------------------------------------------------------------
  4.  
  5. LSTTEST.PAS  (Demonstration: Print spooler)
  6.  
  7. This program requires the CPMULTI Multitasking Toolkit and Turbo Pascal
  8. 5.0 or later.
  9.  
  10. January 1994
  11.  
  12. Copyright (C) 1994 (USA)        Copyright (C) 1989-1994
  13. Hypermetrics                    Christian Philipps Software-Technik
  14. PO Box 9700 Suite 363           Duesseldorfer Str. 316
  15. Austin, TX  78758-9700          D-47447 Moers
  16.                                 Germany
  17.  
  18. This demo uses the MTPrint unit to demonstrate a simple print
  19. spooler.
  20.  
  21. ---------------------------------------------------------------------------}
  22.  
  23. program LstTest;
  24.  
  25. uses CRT, CPMulti, MTPrint;
  26.  
  27. var  N : Byte;
  28.  
  29. {----------------------------------------------------------------}
  30.  
  31. begin
  32.   RestartSpooler(10000);
  33.   Writeln('Printer buffer = ',PrintBufferAvail,' characters');
  34.   Writeln('PrinterReady = ',PrinterReady);
  35.   for N := 1 to 20 do
  36.     Writeln(Lst,'This is a printer test.');
  37.   Write(Lst,#12);
  38.   Writeln('Buffer filled = ',PrintBufferFilled);
  39.   Sleep(1);
  40.   repeat
  41.     Write('+');
  42.   until not SpoolerBusy;
  43. end.
  44.