' 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