program test1; uses wincrt;
var
   b: byte;
begin
   writeln('Begin test');
   repeat
      b:=port[$3bd] and $78;
      port[$3bc]:=b
   until b = $78;
   writeln('Einde test')
end.