home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / das_buch / remote / lpttest.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-08-13  |  1.1 KB  |  40 lines
  1. (* ====================================================== *)
  2. (*                     LPTTEST.PAS                        *)
  3. (*          Überprüft serielle Schnittstelle(n)           *)
  4. (*         (c) 1993 Ralf Hensmann & DMV-Verlag            *)
  5. (* ====================================================== *)
  6.  
  7. {$A+,B-,D-,E-,F-,G-,I-,L-,N-,O-,P-,Q-,R-,S-,T-,V+,X+,Y+}
  8. {$M 16384,0,655360}
  9.  
  10. PROGRAM LPTTest;
  11.  
  12. USES ParData;
  13.  
  14.   FUNCTION HexW(W : WORD) : STRING;
  15.   CONST
  16.     HS : ARRAY [0..15] OF CHAR = '0123456789ABCDEF';
  17.   BEGIN
  18.     HexW[0] := #4;
  19.     HexW[1] := HS[Hi(W) SHR 4];
  20.     HexW[2] := HS[Hi(W) AND $F];
  21.     HexW[3] := HS[Lo(W) SHR 4];
  22.     HexW[4] := HS[Lo(W) AND $F];
  23.   END;
  24.  
  25. VAR
  26.   i : BYTE;
  27.  
  28. BEGIN
  29.   WriteLn('LPTTest testet ihre Kartenadresse... ');
  30.   WriteLn('Folgende parallele Schnittstellen sind in ',
  31.           'ihrem Rechner verfügbar:');
  32.   WriteLn;
  33.   FOR i := 1 TO 3 DO
  34.     IF GetLPTAdress(i) <> 0 THEN
  35.       WriteLn('LPT', i, ' mit der Adresse $',
  36.               HexW(GetLPTAdress(i)));
  37. END.
  38. (* ====================================================== *)
  39. (*                 Ende von LPTTEST.PAS                   *)
  40.