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

DO WHILE INKEY$ <> ""
LOOP
PRINT "Keyboard buffer flushed"
END