Keyboard input/Keypress check: Difference between revisions
→{{header|FreeBASIC}}
(Added FreeBASIC) |
|||
Line 205:
=={{header|FreeBASIC}}==
<lang freebasic>' FB 1.05.0 Win64
Dim k As String
</lang>▼
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</lang>
Sample input/output
{{out}}
<pre>
The key pressed was A (ascii 65)
</pre>
| |||