' Extended Keyboard Press Scancodes
'
' Esc F1 F2 F3 F4 F5 F6 F7 F8 F9 F10 F11 F12 SysReq ScrL Pause
' 1 59 60 61 62 63 64 65 66 67 68 87 88 0 70 29
' `~ 1! 2@ 3# 4$ 5% 6^ 7& 8* 9( 0) -_ =+ BkSpc Insert Home PgUp NumL / * -
' 41 2 3 4 5 6 7 8 9 10 11 12 13 14 82 71 73 69 53 55 74
' Tab Q W E R T Y U I O P [{ ]} \| Delete End PgDn 7/Home 8/▲ 9/PU +
' 15 16 17 18 19 20 21 22 23 24 25 26 27 43 83 79 81 71 72 73 78
' CapL A S D F G H J K L ;: '" Enter 4/◄- 5 6/-► E
' 58 30 31 32 33 34 35 36 37 38 39 40 28 75 76 77 n
' Shift Z X C V B N M ,< .> /? Shift ▲ 1/End 2/▼ 3/PD t
' 42 44 45 46 47 48 49 50 51 52 53 54 72 79 80 81 e
' Ctrl Win Alt Spacebar Alt Win Menu Ctrl ◄- ▼ -► 0/Insert ./Del r
' 29 91 56 57 56 92 93 29 75 80 77 82 83 28
'
' QB64 codes only! Release codes = Press code + 128. Pause/Break may lock code returns.
' Extended Keyboard Press Scancodes - _BUTTON and _BUTTONCHANGE
'
' Esc F1 F2 F3 F4 F5 F6 F7 F8 F9 F10 F11 F12 SysReq ScrL Pause
' 2 60 61 62 63 64 65 66 67 68 -- 88 89 0 71 70
' `~ 1! 2@ 3# 4$ 5% 6^ 7& 8* 9( 0) -_ =+ BkSpc Insert Home PgUp NumL / * -
' 42 3 4 5 6 7 8 9 10 11 12 13 14 15 339 328 330 326 310 56 75
' Tab Q W E R T Y U I O P [{ ]} \| Delete End PgDn 7/Home 8/▲ 9/PU +
' 16 17 18 19 20 21 22 23 24 25 26 27 28 44 340 336 338 72 73 74 79
' CapL A S D F G H J K L ;: '" Enter 4/◄- 5 6/-► E
' 59 31 32 33 34 35 36 37 38 39 40 41 29 76 77 78 n
' Shift Z X C V B N M ,< .> /? Shift ▲ 1/End 2/▼ 3/PD t
' 43 45 46 47 48 49 50 51 52 53 54 55 329 80 81 82 e
' Ctrl Win Alt Spacebar Alt Win Menu Ctrl ◄- ▼ -► 0/Insert ./Del r
' 30 348 -- 58 -- ?? 350 286 332 337 334 83 84 285
FOR i = 1 TO _DEVICES
PRINT STR$(i) + ") " + _DEVICE$(i) + " Buttons:"; _LASTBUTTON(i); ",Axis:"; _LASTAXIS(i); ",Wheel:"; _LASTWHEEL(i)
NEXT
DO
d& = _DEVICEINPUT
IF d& = 1 THEN ' the device number cannot be zero!
FOR b = 1 TO _LASTBUTTON(d&)
IF _BUTTON(b) = -1 THEN PRINT b
NEXT
END IF
LOOP UNTIL INKEY$ = CHR$(27) 'escape key exit
END