Merge branch 'master' of ssh://svjatoslav.eu:10006/home/n0/git/qbasicapps

[qbasicapps.git] / misc / key.bas

diff --git a/misc/key.bas b/misc/key.bas
new file mode 100644 (file)
index 0000000..e55f01b
--- /dev/null
+++ b/misc/key.bas
@@ -0,0 +1,10 @@
+1\r
+a$ = INKEY$\r
+IF a$ = "" THEN GOTO 1\r
+PRINT a$\r
+PRINT ASC(LEFT$(a$, 1))\r
+PRINT ASC(RIGHT$(a$, 1))\r
+\r
+\r
+GOTO 1\r
+\r