home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 08 / tricks / lpt_lw.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-05-24  |  1.0 KB  |  30 lines
  1. (* ------------------------------------------------------ *)
  2. (*                    LPT_LW.PAS                          *)
  3. (*          Hilfsprogramm zur Unit Per_Test               *)
  4. (* ------------------------------------------------------ *)
  5. PROGRAM lw_lpt_test;
  6.  
  7. USES Crt, Per_Test;
  8.  
  9. BEGIN
  10.   ClrScr;
  11.   WriteLn('Parallele Druckerports:');
  12.   WriteLn(LptStatus(1):5, '    ', status_message);
  13.   WriteLn(LptStatus(2):5, '    ', status_message);
  14.   WriteLn(LptStatus(3):5, '    ', status_message);
  15.  
  16.   WriteLn(#$0A);
  17.  
  18.   WriteLn('Default-Laufwerk:');
  19.   WriteLn(DrvStatus(0):5, '    ', status_message);
  20.   WriteLn;
  21.   WriteLn('Weitere Laufwerke:');
  22.   WriteLn(DrvStatus(1):5, '    ', status_message);
  23.   WriteLn(DrvStatus(2):5, '    ', status_message);
  24.   WriteLn(DrvStatus(3):5, '    ', status_message);
  25.   WriteLn(DrvStatus(4):5, '    ', status_message);
  26.   WriteLn(DrvStatus(5):5, '    ', status_message);
  27. END.
  28. (* ------------------------------------------------------ *)
  29. (*                 Ende von LPT_LW.PAS                    *)
  30.