DIM a

PRINT "Press keys to see their key codes .. Press q to quit"

WHILE a <> ASC("q")
  a = KEYPRESS
  PRINT a
WEND

Result:

Result not displayed for this example.