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