

Task

Obtain a valid   Y   or   N   response from the keyboard.

The keyboard should be flushed, so that any outstanding key-presses are removed, preventing any existing   Y   or   N   key-press from being evaluated.

The response should be obtained as soon as   Y   or   N   are pressed, and there should be no need to press an   enter   key.




' FB 1.05.0 Win64
 
While InKey <> "" : Wend '' flush keyboard buffer
Print "Do you want to continue y/n : ";
Dim answer As String
 
Do
  answer = LCase(Inkey)
Loop Until answer = "y" OrElse answer = "n"
 
Print answer '' echo response to console
If answer = "y" Then
  Print "OK, continuing"
Else
  Print "OK, finishing"
End If
 
Sleep