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

7 lines
150 B
Plaintext

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