home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / sp15demo.zip / libsrc.zip / LIBSRC / PRINTER.PAS < prev    next >
Pascal/Delphi Source File  |  1995-09-26  |  309b  |  24 lines

  1. UNIT Printer;
  2.  
  3. INTERFACE
  4.  
  5. VAR Lst:TEXT;
  6.  
  7. IMPLEMENTATION
  8.  
  9. VAR PrinterExit:POINTER;
  10.  
  11. PROCEDURE NewExit;
  12. BEGIN
  13.      ExitProc:=PrinterExit;
  14.      {$i-}
  15.      Close(Lst);
  16.      {$i+}
  17. END;
  18.  
  19. BEGIN
  20.      PrinterExit:=ExitProc;
  21.      ExitProc:=@NewExit;
  22.      Assign(Lst,'LPT1');
  23.      reset(Lst);
  24. END.