RosettaCodeData/Task/Keyboard-input-Flush-the-keyboard-buffer/Seed7/keyboard-input-flush-the-keyboard-buffer.seed7

while keypressed(KEYBOARD) do
  ignore(getc(KEYBOARD));
end while;