while inkey$ <> "" : wend
print "Keyboard buffer flushed"