projects
/
qbasicapps.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
e55f01b5cd1420dc285d14311d205f0f2f1379d2
[qbasicapps.git]
/
misc
/
key.bas
1
1
\r
2
a$ = INKEY$
\r
3
IF a$ = "" THEN GOTO 1
\r
4
PRINT a$
\r
5
PRINT ASC(LEFT$(a$, 1))
\r
6
PRINT ASC(RIGHT$(a$, 1))
\r
7
\r
8
\r
9
GOTO 1
\r
10
\r