program AvoidHangs1(keyboard, output);
import uio;
var
  keyboard:             text;
  Character:            char;
  I:                    integer;
begin
writeln(output,'Press any key.  Hurry!');
for I:=1 to 3000 do
  begin
  if not unitbusy(2) then                {"busy" means typeahead buffer empty}
    begin
    writeln(output,'You beat me!');
    read(keyboard,Character);              {eat character in typeahead buffer}
    halt;                               {stop here; don't print other message}
    end;
  end;
writeln(output,'Guess I was too fast for you.');
end.
