Реферат: Паралельний інтерфейс IEEE 1284 (інтерфейс Centronics)

begin

Lpt. WritePort (GetCurrentPort, 0, (32 xor Lpt. ReadPort((GetCurrentPort), 0)));

end;

procedure TForm1. ButtonPin8;

begin

Lpt. WritePort (GetCurrentPort, 0, (64 xor Lpt. ReadPort((GetCurrentPort), 0)));

end;

procedure TForm1. ButtonPin9;

begin

Lpt. WritePort (GetCurrentPort, 0, (128 xor Lpt. ReadPort((GetCurrentPort), 0)));

end;

procedure TForm1. ButtonPin1;

begin

Lpt. WritePort (GetCurrentPort, 2, (1 xor Lpt. ReadPort((GetCurrentPort), 2)));

end;

procedure TForm1. ButtonPin14;

begin

Lpt. WritePort (GetCurrentPort, 2, (2 xor Lpt. ReadPort((GetCurrentPort), 2)));

end;

procedure TForm1. ButtonPin16;

begin

Lpt. WritePort (GetCurrentPort, 2, (4 xor Lpt. ReadPort((GetCurrentPort), 2)));

end;

procedure TForm1. ButtonPin17;

begin

Lpt. WritePort (GetCurrentPort, 2, (8 xor Lpt. ReadPort((GetCurrentPort), 2)));

end;

function TForm1. Pin2: boolean;

var