home *** CD-ROM | disk | FTP | other *** search
/ Point Programming 1 / PPROG1.ISO / pascal / swag / hardware.swg / 0040_Sending Data to the Parallel Ports.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-03-26  |  271 b   |  13 lines
  1. {
  2. > I would like to send one byte of data to the parallel port so I can test
  3. > an interface.  What is the easiest way to do this?
  4. }
  5.  
  6. Program Send_A_To_LPT1;
  7. Var
  8.   PrinterPort:Array[1..4] Of Byte Absolute $40:$8;
  9. Begin
  10.   Port[PrinterPort[1]]:=Ord('A');
  11. End.
  12.  
  13.