RosettaCodeData/Task/Keyboard-input-Flush-the-keyboard-buffer/FreeBASIC/keyboard-input-flush-the-keyboard-buffer.basic

' FB 1.05.0 Win64

' Get characters from the keyboard buffer until there are none left
While Inkey <> "" : Wend
Print "Keyboard buffer flushed"
Sleep