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}}== |