BCX Console Demonstration Program S75.bas

 DIM a
 
 PRINT "Press keys to see their key codes .. Press q to quit"
 
 WHILE a <> ASC("q")
   a = KEYPRESS
   PRINT a
 WEND