projects / qbasicapps.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
Reorganized files. Modernized documentation.
[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
Unnamed repository; edit this file 'description' to name the repository.