RosettaCodeData/Task/Keyboard-input-Flush-the-keyboard-buffer/FreeBASIC/keyboard-input-flush-the-keyboard-buffer.basic
2023-07-01 13:44:08 -04:00

6 lines
150 B
Text

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