15 lines
205 B
Text
15 lines
205 B
Text
|
' 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
|