Data update

Task/Keyboard-input-Keypress-check/Ada/keyboard-input-keypress-check.adb

@@ -0,0 +1,4 @@
+Ch : Character;
+Available : Boolean;
+
+Ada.Text_IO.Get_Immediate (Ch, Available);

Task/Keyboard-input-Keypress-check/Batch-File/keyboard-input-keypress-check-1.bat

@@ -0,0 +1 @@
+for /f skip^=1^ eol^= %a in ('replace /W ? . 2^>nul ^| find /v "Replacing"') do @echo:%a

Task/Keyboard-input-Keypress-check/Batch-File/keyboard-input-keypress-check-2.bat

@@ -0,0 +1,2 @@
+@echo off
+for /f skip^=1^ eol^= %%a in ('replace /W ? . ^<con 2^>nul') do echo:%%a& goto :eof

Task/Keyboard-input-Keypress-check/Emacs-Lisp/keyboard-input-keypress-check.el

@@ -0,0 +1,21 @@
+(defun store-keypress ()
+  "If a key has been pressed, store it as a variable.
+Note that the variable created is a variable inside the scope of let and
+will not be available as a variable outside the scope of let. However,
+the function also returns the value of the variable, which can be used
+outside the scope of let."
+  (let ((keypress))
+    (if (input-pending-p)
+        (setq keypress (char-to-string (read-key))))))
+
+
+(defun store-keypress-multiple ()
+  "If one or more keys have been pressed, store it/them as a variable.
+Note that the variable created is a variable inside the scope of let and
+will not be available as a variable outside the scope of let. However,
+the function also returns the value of the variable, which can be used
+outside the scope of let."
+  (let ((keypress))
+    (while (input-pending-p)
+      (push (read-key)  keypress))
+    (setq keypress (concat (nreverse keypress)))))

Task/Keyboard-input-Keypress-check/Euphoria/keyboard-input-keypress-check.eu

@@ -0,0 +1,2 @@
+integer key
+key = get_key() -- if key was not pressed get_key() returns -1

Task/Keyboard-input-Keypress-check/PowerShell/keyboard-input-keypress-check.ps1

@@ -0,0 +1,3 @@
+if ($Host.UI.RawUI.KeyAvailable) {
+    $key = $Host.UI.RawUI.ReadKey()
+}