Anonymous user
Keyboard input/Flush the keyboard buffer: Difference between revisions
Keyboard input/Flush the keyboard buffer (view source)
Revision as of 20:07, 25 November 2021
, 2 years agoAdded solution for Action!
Puppydrum64 (talk | contribs) No edit summary |
(Added solution for Action!) |
||
Line 397:
kk
End program OK.
</pre>
=={{header|Action!}}==
<lang Action!>PROC Wait(BYTE frames)
BYTE RTCLOK=$14
frames==+RTCLOK
WHILE frames#RTCLOK DO OD
RETURN
PROC Main()
BYTE CH=$02FC ;Internal hardware value for last key pressed
PrintE("Program is halted for 200 frames.")
PrintE("Type character to fill the buffer.")
Wait(200)
PutE()
DO
IF CH=$FF THEN
PrintE("The buffer is empty.")
EXIT
ELSE
PrintF("The buffer stores internal key: %B.%E",CH)
PrintE("Flush the buffer.")
CH=$FF
FI
OD
RETURN</lang>
{{out}}
[https://gitlab.com/amarok8bit/action-rosetta-code/-/raw/master/images/Flush_the_keyboard_buffer.png Screenshot from Atari 8-bit computer]
<pre>
Program is halted for 200 frames.
Type character to fill the buffer.
The buffer stores internal key: 63.
Flush the buffer.
The buffer is empty.
</pre>
Line 421 ⟶ 458:
Put_Line (Get_Line);
end Flushtest;</lang>
=={{header|ARM Assembly}}==
{{works with|as|Raspberry Pi}}
| |||