Const ps4=128
Const ps3=129
Const snes=130
Const mouse=2
MODE 2
FRAMEBUFFER layer
Sprite load "redmouse"
CLS
For i=1 To 4
 If MM.Info(usb i)=mouse Then
   mousechannel=i
   Print "Mouse found on channel ",mousechannel
 EndIf
 If MM.Info(usb i)=ps3 Then
   PS3channel=i
   Print "PS3 controller found on channel ",PS3channel
 EndIf
 If MM.Info(usb i)=ps4 Then
   PS4channel=i
   Print "PS4 controller found on channel ",PS4channel
 EndIf
 If MM.Info(usb i)=130 Then
   SNESchannel=i
   Print "SNES controler found on channel ",SNESchannel
 EndIf
Next
FRAMEBUFFER write l
Sprite show 1,MM.HRes\2,MM.VRes\2,1

If mousechannel Then Device mouse interrupt enable mousechannel,mouseint
If PS4channel Then Device gamepad interrupt enable PS4channel,ps4int
If PS3channel Then Device gamepad interrupt enable PS3channel,ps3int
If SNESchannel Then Device gamepad interrupt enable SNESchannel,genericint
Device mouse set mousechannel,MM.HRes\2,MM.VRes\2,0
Pause 1000
Do
 If mousechannel Then
 Sprite show 1,DEVICE(MOUSE mousechannel,x),DEVICE(mouse mousechannel,y),1
 Pause 20
 EndIf
Loop

Sub mouseint
 Static int L,R,M
 FRAMEBUFFER write n
 Print "Mouse Interrupt: ";
 If L<> DEVICE(mouse mousechannel,L) And L Then Print "L_UP"
 If R<> DEVICE(mouse mousechannel,R) And R Then Print "R_UP"
 If M<> DEVICE(mouse mousechannel,M) And M Then Print "M_UP"
 If L<> DEVICE(mouse mousechannel,L) And L=0 Then Print "L_DOWN"
 If R<> DEVICE(mouse mousechannel,R) And R=0 Then Print "R_DOWN"
 If M<> DEVICE(mouse mousechannel,M) And M=0 Then Print "M_DOWN"
 If DEVICE(MOUSE mousechannel,D) Then Print "double click"
 L=DEVICE(mouse mousechannel,L)
 R=DEVICE(mouse mousechannel,R)
 M=DEVICE(mouse mousechannel,M)
 FRAMEBUFFER write l
End Sub

Sub ps3int
 FRAMEBUFFER write n
 Print "PS3 interrupt: ";
 myint ps3channel
 FRAMEBUFFER write L
End Sub

Sub ps4int
 FRAMEBUFFER write n
 Print "PS4 interrupt: ";
 myint ps4channel
 FRAMEBUFFER write l
End Sub

Sub genericint
 FRAMEBUFFER write n
 Print "Generic interrupt: ";
 myint SNESchannel
 FRAMEBUFFER write l
End Sub

Sub myint(USBchan)
Print DEVICE(gamepad USBchan, lx);
Print DEVICE(gamepad USBchan, ly);
Print DEVICE(gamepad USBchan, rx);
Print DEVICE(gamepad USBchan, ry);
Print DEVICE(gamepad USBchan, l);
Print DEVICE(gamepad USBchan, r)
Static integer l%=0
m%=1
a%=DEVICE(gamepad USBchan, b)
t%=l% Xor a%
If t% And m% Then
 If a% And m% Then : Print "R_ON":Else : Print "R_OFF":EndIf
EndIf
Inc m%,m%
If t% And m% Then
 If a% And m% Then : Print "Start_ON":Else : Print "Start_OFF":EndIf
EndIf
Inc m%,m%
If t% And m% Then
 If a% And m% Then : Print "Home_ON":Else : Print "Home_OFF":EndIf
EndIf
Inc m%,m%
If t% And m% Then
 If a% And m% Then : Print "Select_ON":Else : Print "Select_OFF":EndIf
EndIf
Inc m%,m%
If t% And m% Then
 If a% And m% Then : Print "L_ON":Else : Print "L_OFF":EndIf
EndIf
Inc m%,m%
If t% And m% Then
 If a% And m% Then : Print "DOWN_ON":Else : Print "DOWN_OFF":EndIf
EndIf
Inc m%,m%
If t% And m% Then
 If a% And m% Then : Print "RIGHT_ON":Else : Print "RIGHT_OFF":EndIf
EndIf
Inc m%,m%
If t% And m% Then
 If a% And m% Then : Print "UP_ON":Else : Print "UP_OFF":EndIf
EndIf
Inc m%,m%
If t% And m% Then
 If a% And m% Then : Print "LEFT_ON":Else : Print "LEFT_OFF":EndIf
EndIf
Inc m%,m%
If t% And m% Then
 If a% And m% Then : Print "ZR_ON":Else : Print "ZR_OFF":EndIf
EndIf
Inc m%,m%
If t% And m% Then
 If a% And m% Then : Print "X_ON":Else : Print "X_OFF":EndIf
EndIf
Inc m%,m%
If t% And m% Then
 If a% And m% Then : Print "A_ON":Else : Print "A_OFF":EndIf
EndIf
Inc m%,m%
If t% And m% Then
 If a% And m% Then : Print "Y_ON":Else : Print "Y_OFF":EndIf
EndIf
Inc m%,m%
If t% And m% Then
 If a% And m% Then : Print "B_ON":Else : Print "B_OFF":EndIf
EndIf
Inc m%,m%
If t% And m% Then
 If a% And m% Then : Print "ZL_ON":Else : Print "ZL_OFF":EndIf
EndIf
Inc m%,m%
If t% And m% Then
 If a% And m% Then : Print "TPAD_ON":Else : Print "TPAD_OFF":EndIf
EndIf
l%=a%
End Sub