program test2; uses wincrt;
var
   b: byte;
begin
   writeln('Begin test');
   b:=port[$3bd] and $78;
   while b <> $78 do
   begin
      port[$3bc]:=b;
      b:=port[$3bd] and $78
   end;
   writeln('Einde test')
end.