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

var

d: boolean;

begin

d:= true;

d:= d and (16 = (16 and Lpt. ReadPort (GetCurrentPort, 0)));

Pin6:= d;

end;

function TForm1. Pin7: boolean;

var

d: boolean;

begin

d:= true;

d:= d and (32 = (32 and Lpt. ReadPort (GetCurrentPort, 0)));

Pin7:= d;

end;

function TForm1. Pin8: boolean;

var

d: boolean;

begin

d:= true;

d:= d and (64 = (64 and Lpt. ReadPort (GetCurrentPort, 0)));

Pin8:= d;

end;

function TForm1. Pin9: boolean;

var

d: boolean;

begin

d:= true;

d:= d and (128 = (128 and Lpt. ReadPort (GetCurrentPort, 0)));