projects
/
qbasicapps.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Updated documentation theme. Fixed broken link.
[qbasicapps.git]
/
unsorted
/
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