

Determine if a key has been pressed and store this in a variable.

If no key has been pressed, the program should continue without waiting.




' FB 1.05.0 Win64
 
Dim k As String 
Do
  k = Inkey
Loop Until k <> ""
 
If Len(k) = 1 Then
  Print "The key pressed was "; k; " (ascii "; Asc(k); ")"
Else
  Print "An extended key was pressed"
End If
 
Sleep