program setenresetLPT1;
var
   b: byte;
begin
   b:=port[$3BC];
   b:=b or $01;   {set bit 0}
   b:=b and $fd;  {reset bit 1}
   port[$3BC]:=b
end.