X-Git-Url: http://www2.svjatoslav.eu/gitweb/?p=qbasicapps.git;a=blobdiff_plain;f=unsorted%2Fkey.bas;fp=unsorted%2Fkey.bas;h=0000000000000000000000000000000000000000;hp=e55f01b5cd1420dc285d14311d205f0f2f1379d2;hb=56bc2db75aaf0e1bd556677914988b3a02775ecd;hpb=7cc7a0518d1489b33de83466008cccba1725ce52 diff --git a/unsorted/key.bas b/unsorted/key.bas deleted file mode 100644 index e55f01b..0000000 --- a/unsorted/key.bas +++ /dev/null @@ -1,10 +0,0 @@ -1 -a$ = INKEY$ -IF a$ = "" THEN GOTO 1 -PRINT a$ -PRINT ASC(LEFT$(a$, 1)) -PRINT ASC(RIGHT$(a$, 1)) - - -GOTO 1 -