Keyboard input/Flush the keyboard buffer

Flush the keyboard buffer. This reads characters from the keyboard input and discards them until there are no more currently buffered, and then allows the program to continue. The program must not wait for users to type anything.

Ada

<lang Ada>Ada.Text_IO.Flush;</lang>

BASIC

ZX Spectrum Basic

<lang basic>10 IF INKEY$ <> "" THEN GO TO 10</lang>

PicoLisp

<lang PicoLisp>(while (key 10))</lang>

PowerShell

The following uses the special $Host variable which points to an instance of the PowerShell host application. Since the host's capabilities may vary this may not wok in all PowerShell hosts. In particular, this works in the console host, but not in the PowerShell ISE. <lang powershell>while ($Host.UI.RawUI.KeyAvailable) {

   $Host.UI.RawUI.ReadKey() | Out-Null

}</lang>

PureBasic

<lang PureBasic>While Inkey(): Wend</lang>

Tcl

<lang tcl># No waiting for input fconfigure stdin -blocking 0

Drain the data by not saving it anywhere

read stdin

Flip back into blocking mode (if necessary)

fconfigure stdin -blocking 1</lang>