home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 12 / tricks / druktest.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-09-11  |  858 b   |  31 lines
  1. (* ------------------------------------------------------ *)
  2. (*                    DRUKTEST.PAS                        *)
  3. (*         (c) 1990 Christian Büchel & TOOLBOX            *)
  4. (* ------------------------------------------------------ *)
  5. PROGRAM Drucktest;
  6.  
  7. {$I-}
  8. USES Drucker;
  9.  
  10. CONST
  11.   Nr : BYTE = 0; { LPT1 }
  12.  
  13. VAR
  14.   LPT   : Text;
  15.   Error : INTEGER;
  16.  
  17. BEGIN
  18.   AssignPrn(LPT, Nr);             { 0 = LPT1, 1 = LPT2 ... }
  19.   Rewrite(LPT);
  20.   Error := IOResult;
  21.   IF Error <> 0 THEN BEGIN
  22.     IF Error = 160 THEN
  23.       WriteLn('LPT', Nr+1,
  24.               ' nicht angeschaltet oder nicht vorhanden');
  25.   END ELSE
  26.     WriteLn(LPT, #27, 'K', #3, #0, #255, #255, #255,
  27.                       '<-- Grafik');
  28. END.
  29. (* ------------------------------------------------------ *)
  30. (*               Ende von DRUKTEST.PAS                    *)
  31.