Keyboard input/Keypress check: Difference between revisions

Content added Content deleted
(Add solution in Common Lisp)
(Add Plain English)
Line 1,060: Line 1,060:
=={{header|PicoLisp}}==
=={{header|PicoLisp}}==
<lang PicoLisp>(setq *LastKey (key))</lang>
<lang PicoLisp>(setq *LastKey (key))</lang>

=={{header|Plain English}}==
Print the numeric value of any key pressed without waiting.
<lang plainenglish>To run:
Start up.
Handle any events.
Shut down.

To handle any events:
Deque an event.
If the event is nil, exit.
Handle the event.
Repeat.

To handle an event:
If the event's kind is "key down", handle the event (key down).

To handle an event (key down):
Put the event's key into a key.
Write "" then the key to the console.
If the key is the escape key, relinquish control.</lang>


=={{header|PowerShell}}==
=={{header|PowerShell}}==