disable done
textmode 0
cls

set console title to "Keymap bit scanner - Command Q to quit"
text 20, 30, "Keymap bit for last key pressed:"

MainLoop:
for n = 0 to 127
keymap scan
if keymap bit (n) then
   text 20, 50, str$(n) + "   "
end if
next n
if keymap bit (55) and keymap key ("q") then end
goto MainLoop