Data commit

Task/Keyboard-input-Flush-the-keyboard-buffer/M2000-Interpreter/keyboard-input-flush-the-keyboard-buffer-1.m2000

@@ -0,0 +1,16 @@
+Module Checkit {
+      \\ feed keyboard
+      Keyboard "abcd"
+      \\ Work in Windows not in Linux (no Osk.exe exist)
+      \\ no error return in linux
+      Keyboard !  'open virtual keyboard
+      Wait 3000
+      \\ flush keyboard
+      \\ we can use Do or Repeat (is the same)
+      Repeat {
+            a$=inkey$
+            if a$="" then Print :exit
+            Print a$;
+      } Always
+}
+Checkit

Task/Keyboard-input-Flush-the-keyboard-buffer/M2000-Interpreter/keyboard-input-flush-the-keyboard-buffer-2.m2000

@@ -0,0 +1,10 @@
+Module checkit {
+      Print "You have 3 seconds to write your name (press enter)"
+      After 3000 {
+            Input End
+      }
+      Input "Your name:", A$
+      If A$="" Then Print "Not Ready" : Exit
+      Print "Ok:";A$
+}
+Checkit