KEYDOWN.ON % The opposite is KEYDOWN.OFF
DO
UNTIL 0

ONKEYDOWN: %A Key Is Down interrupt
! The second string, raw key event parameter
INKEY$ mKey$, mKeyEvent$, mUniKeyEvent$
PRINT "Got "; mKey$, "  "; mKeyEvent$, mUniKeyEvent$
KEYDOWN.RESUME %Resumes execution at the point BASIC! program where
! the OnKeyDown: interrupt occured.

ONKEYPRESS: %Imo ONKEYUP points the fact better
INKEY$ mKey$, mKeyEvent$, mUniKeyEvent$
PRINT "Got "; mKey$, "  "; mKeyEvent$, mUniKeyEvent$
KEY.RESUME

DEVICE.USB bp
BUNDLE.KEYS bp, lp
LIST.SIZE lp, n
FOR i = 1 TO n
  BUNDLE.GB bp, int$(i), pUSB
  BUNDLE.GET pUSB, "_AllAsString", aAS$
  PRINT aAS$
NEXT

USB channel: 3
VID        : 0x0583
PID        : 0x2060
None       : (8  bytes) 81 81 00 00 00 00 00 00
Up         : (8  bytes) 81 00 00 00 00 00 00 00
Down       : (8  bytes) 81 FF 00 00 00 00 00 00
Left       : (8  bytes) 00 81 00 00 00 00 00 00
Right      : (8  bytes) FF 81 00 00 00 00 00 00
A          : (8  bytes) 81 81 01 00 00 00 00 00
B          : (8  bytes) 81 81 02 00 00 00 00 00
X          : (8  bytes) 80 81 04 00 00 00 00 00
Y          : (8  bytes) 81 81 08 00 00 00 00 00
L1         : (8  bytes) 81 81 10 00 00 00 00 00
R1         : (8  bytes) 81 81 20 00 00 00 00 00

USB channel: 3
VID        : 0x0079
PID        : 0x0011
None       : (8  bytes) 01 7F 7F 7F 7F 0F 00 00
Up         : (8  bytes) 01 7F 7F 7F 00 0F 00 00
Down       : (8  bytes) 01 7F 7F 7F FF 0F 00 00
Left       : (8  bytes) 01 7F 7F 00 7F 0F 00 00
Right      : (8  bytes) 01 7F 7F FF 00 0F 00 00
A          : (8  bytes) 01 7F 7F 7F 7F 2F 00 00
B          : (8  bytes) 01 7F 7F 7F 7F 4F 00 00
X          : (8  bytes) 01 7F 7F 7F 7F 1F 00 00
Y          : (8  bytes) 01 7F 7F 7F 7F 8F 00 00
L1         : (8  bytes) 01 7F 7F 7F 7F 0F 01 00
R1         : (8  bytes) 01 7F 7F 7F 7F 0F 02 00

' Copyright (c) 2025 Thomas Hugo Williams
' License MIT <https://opensource.org/licenses/MIT>
' For PicoMiteUSB variants

Option Base 0
Option Default None
Option Explicit On

Const BUTTONS = "None Up Down Left Right A B X Y L1 R1"
Dim channel% = 0, filename$ = "", test% = 0

process_args()

Open filename$ For Output As #1

If test% Then write("** TEST DATA **", 1)
write("USB channel: " + Str$(channel%), 1)
write("Out file   : " + filename$, 0)
write("VID        : " + read_usb_vid$(), 1)
write("PID        : " + read_usb_pid$(), 1)
write("", 0)

Dim b$, i% = 1
Do
 b$ = Field$(BUTTONS, i%, " ")
 If b$ = "" Then Exit Do
 Do While Inkey$ <> "" : Loop
 If b$ = "None" Then
   write("Hold down NO BUTTONS then press a key", 0)
 Else
   write("Hold down [" + b$ + "] then press a key", 0)
 EndIf
 Do While Inkey$ = "" : Loop
 write(str.rpad$(b$, 11) + ": " + read_usb_raw_data$(), 1)
 Inc i%
Loop

Close #1
End

Sub process_args()
 Local arg$, i% = 1
 Do
   arg$ = Field$(Mm.CmdLine$, i%, " ")
   If arg$ = "" Then
     Exit Do
   ElseIf InStr(arg$, "-f=") = 1 Then
     filename$ = Mid$(arg$, Len("-f=") + 1)
   ElseIf InStr(arg$, "--file=") = 1 Then
     filename$ = Mid$(arg$, Len("--file=") + 1)
   ElseIf InStr(arg$, "-c=") = 1 Then
     channel% = Val(Mid$(arg$, Len("-c=") + 1))
     If Not channel% Then Error "Invalid channel: " + arg$
   ElseIf InStr(arg$, "--channel=") = 1 Then
     channel% = Val(Mid$(arg$, Len("--channel=") + 1))
     If Not channel% Then Error "Invalid channel: " + arg$
   ElseIf arg$ = "-t" Or arg$ = "--test" Then
     test% = 1
   Else
     Error "Unknown command line argument: " + arg$
   EndIf
   Inc i%
 Loop

 If channel% = 0 Then
   Do
     Line Input "Channel (1-4) ? ", arg$
     channel% = Val(arg$)
     If channel% > 0 And channel% < 5 Then  Exit Do
   Loop
 EndIf

 If filename$ = "" Then
   Line Input "Filename 'usb-query.out' ? ", filename$
   If filename$ = "" Then filename$ = "usb-query.out"
 EndIf
End Sub

Function read_usb_vid$()
 Const vid% = Choice(test%, Int(Rnd() * &hFFFF), Mm.Info(Usb Vid channel%))
 read_usb_vid$ = "0x" + Hex$(vid%, 4)
End Function

Function read_usb_pid$()
 Const pid% = Choice(test%, Int(Rnd() * &hFFFF), Mm.Info(Usb Pid channel%))
 read_usb_pid$ = "0x" + Hex$(pid%, 4)
End Function

Function read_usb_raw_data$()
 Local raw$, i%
 If test% Then
   For i% = 1 To Int(Rnd() * 16)
     Cat raw$, Chr$(Int(Rnd() * 256))
   Next
 Else
   raw$ = Device(Gamepad channel%, Raw)
 EndIf
 read_usb_raw_data$ = "(" + str.rpad$(Str$(Len(raw$)), 2) + " bytes)"
 For i% = 1 To Len(raw$)
   Cat read_usb_raw_data$, " " + Hex$(Asc(Mid$(raw$, i%, 1)), 2)
 Next
End Function

Sub write(s$, to_file%)
 Print s$
 If to_file% Then Print #1, s$
End Sub

Function str.rpad$(s$, x%)
 str.rpad$ = s$
 If Len(s$) < x% Then str.rpad$ = s$ + Space$(x% - Len(s$))
End Function

struct s_Buttons {
int8_t index; // which report element relates to this bit set to -1 if bit not used
// code can be a bit number 0-7 for positive if pressed
// 128-135 for negative if pressed
// 64 for value less than 64 if pressed
// 192 for value greater than 192 if pressed
uint8_t code ;
};
struct s_Gamepad {
uint8_t vid;
uint8_t pid;
struct s_Buttons b_R;
struct s_Buttons b_START;
struct s_Buttons b_HOME;
struct s_Buttons b_SELECT;
struct s_Buttons b_L;
struct s_Buttons b_DOWN;
struct s_Buttons b_RIGHT;
struct s_Buttons b_UP;
struct s_Buttons b_LEFT;
struct s_Buttons b_R2;
struct s_Buttons b_X;
struct s_Buttons b_A;
struct s_Buttons b_Y;
struct s_Buttons b_B;
struct s_Buttons b_L2;
struct s_Buttons b_TOUCH;
};