10 REM INKEY$ and GET: keys without RETURN
20 DIM K$(1)
30 PRINT "Press keys, Q ends"
40 DO
50   K$=INKEY$
60   IF K$<>""
70     PRINT K$;" has the code ";ASC(K$)
80     IF K$="Q" THEN EXIT
90   ENDIF
100 LOOP
110 PRINT "One more key to finish"
120 GET K
130 PRINT "It was ";CHR$(K)