Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/Keyboard-input-Flush-the-keyboard-buffer/Action-/keyboard-input-flush-the-keyboard-buffer.action
+++ b/Task/Keyboard-input-Flush-the-keyboard-buffer/Action-/keyboard-input-flush-the-keyboard-buffer.action
@ -0,0 +1,25 @@
+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