A keystate tool. Useful...

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    sync off
disable escapekey

set window on
set window title "DB KeyScan"
set window layout 1,1,1
set window size 80,90
set window position 640,120
set text size 144

do
if scancode()<>0
   cls
   set cursor 245,200
   print scancode()
endif
loop