Keyboard input/Keypress check: Difference between revisions
Content added Content deleted
No edit summary |
No edit summary |
||
Line 443: | Line 443: | ||
<lang logo>if key? [make "keyhit readchar]</lang> |
<lang logo>if key? [make "keyhit readchar]</lang> |
||
=={{header|M2000 Interpreter}}== |
|||
===without delay=== |
|||
<lang M2000 Interpreter> |
|||
k$=inkey$ |
|||
</lang> |
|||
===Using delay=== |
|||
<lang M2000 Interpreter> |
|||
K$="" |
|||
If Inkey(2000)<>-1 then k$=Key$ |
|||
Print k$ |
|||
</lang> |
|||
===Check specific key=== |
|||
<lang M2000 Interpreter> |
|||
k$="" |
|||
If keypress(32) then k$=" " |
|||
</lang> |
|||
=={{header|Oforth}}== |
=={{header|Oforth}}== |
||
<lang Oforth>import: console |
<lang Oforth>import: console |