Keyboard input/Keypress check: Difference between revisions

Line 272:
<lang Oforth>func: checkKey
{
| key |
System sleep(2000)
System.Console receiveTimeout(2000000) ->key // Wait a key pressed for 2 seconds
System.Console select(Resource.RECEIVE) ifTrue: [
key ifNotNull: [ System.Out "Key pressed : " print<< key << cr ]
System.Console receive println
]
"Done" println
}</lang>
1,015

edits