CLS
PRINT "Press any key..."

1
a$ = INPUT$(1)

PRINT "pressed key was: ";

IF ASC(a$) > 32 THEN PRINT a$

IF a$ = CHR$(27) THEN PRINT "Escape"
IF a$ = CHR$(13) THEN PRINT "Enter"
IF a$ = CHR$(8) THEN PRINT "Backspace"
IF a$ = CHR$(9) THEN PRINT "Tabulator"
IF a$ = " " THEN PRINT "Space"

PRINT "ASCII code is: "; ASC(a$)
GOTO 1