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

[qbasicapps.git] / unsorted / key.bas

diff --git a/unsorted/key.bas b/unsorted/key.bas
deleted file mode 100644 (file)
index e55f01b..0000000
--- a/unsorted/key.bas
+++ /dev/null
@@ -1,10 +0,0 @@
-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