home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 08 / tricks / drucker.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-07-05  |  1.1 KB  |  38 lines
  1.  (* ------------------------------------------------------ *)
  2.  (*                     DRUCKER.PAS                        *)
  3.  (*    erweitert und ersetzt die Standard-Unit PRINTER     *)
  4.  (*          (c) 1990 Jürgen Plehn & TOOLBOX               *)
  5.  (* ------------------------------------------------------ *)
  6.  UNIT Drucker;
  7.  
  8.  INTERFACE  (* ------------------------------------------- *)
  9.  
  10.  USES Dos, Printer;
  11.  
  12.  VAR
  13.    lst : TEXT ABSOLUTE printer.lst;
  14.  
  15.    FUNCTION Prn_Ready : BOOLEAN;
  16.  
  17.  IMPLEMENTATION (* --------------------------------------- *)
  18.  
  19.    FUNCTION Prn_Ready : BOOLEAN;
  20.    { gibt TRUE zurück, falls der Drucker bereit ist         }
  21.    VAR
  22.      Regs : Registers;
  23.    BEGIN
  24.      WITH Regs DO BEGIN
  25.        ah := 2;
  26.        dx := 0; { LPT1 }
  27.        Intr($17, Regs);
  28.        ah := ah AND $39;
  29.        IF ah <> $10 THEN Prn_Ready := FALSE
  30.                     ELSE Prn_Ready := TRUE;
  31.      END;
  32.    END {Prn_Ready};
  33.  
  34.  BEGIN
  35.  END {Drucker}.
  36.  (* ------------------------------------------------------ *)
  37.  (*                 Ende von DRUCKER.PAS                   *)
  38.