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.