home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 10 / tricks / drucker.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-07-19  |  911 b   |  34 lines
  1. (* ------------------------------------------------------ *)
  2. (*                Druckerstatus abfragen                  *)
  3. (* ------------------------------------------------------ *)
  4. FUNCTION Printer_Ready : BOOLEAN:
  5. VAR
  6.   Regs : Registers;
  7.  
  8. BEGIN
  9.   WITH Regs DO BEGIN
  10.     ah := 2;
  11.     dx := 0;
  12.   END;
  13.   Intr($17, Regs);
  14.   IF Regs.ah in [144,16,80,208] THEN
  15.     Printer_Ready := TRUE
  16.   ELSE BEGIN
  17.     TextColor(White);
  18.     TextBackGround(Red);
  19.     GotoXY(17,23);
  20.     Write('Drucker nicht bereit oder nicht angeschlossen');
  21.     GotoXY(17,24);
  22.     Write('Bitte beheben und noch einmal versuchen...');
  23.     REPEAT UNTIL KeyPressed;
  24.     TextBackGround(Black);
  25.     GotoXY(1,23);
  26.     ClrEOL;
  27.     GotoXY(1,24);
  28.     ClrEOL;
  29.     Printer_Ready := FALSE;
  30.   END;
  31. END;
  32. (* ------------------------------------------------------ *)
  33. (*                 Ende von DRUCKER.PAS                   *)
  34.