X-Git-Url: http://www2.svjatoslav.eu/gitweb/?p=qbasicapps.git;a=blobdiff_plain;f=misc%2Fkey.bas;fp=misc%2Fkey.bas;h=e55f01b5cd1420dc285d14311d205f0f2f1379d2;hp=0000000000000000000000000000000000000000;hb=56bc2db75aaf0e1bd556677914988b3a02775ecd;hpb=7cc7a0518d1489b33de83466008cccba1725ce52

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