CLS
I2C2 write &H20,0,2,6,&HFF 'set pullups on all inputs
I2C2 write &H20,0,2,1,&HFF 'Invert all outputs for positive logic
I2C2 write &H20,0,2,2,&HFF 'Set interrupt on change for all inputs
I2C2 write &H20,0,2,5,0    'Set control register to defaults
I2C2 write &H28,0,2,16,&HD0 'Set left channel to max usable volume
I2C2 write &H28,0,2,0,&HD0 'Set right channel to max usable volume
Play modfile "B:/gslinger"
SetPin gp22,intl,myint 'set up an interrupt  for the port expander
FRAMEBUFFER create
FRAMEBUFFER write f
Do
 r=Rnd *255
 g=Rnd *255
 b=Rnd*255
 Circle Rnd*MM.HRes,Rnd*MM.VRes,Rnd*60,,,0,RGB(r,g,b)
 FRAMEBUFFER blit f,n,0,MM.Info(FONTHEIGHT),0,MM.Info(FONTHEIGHT),MM.HRes,MM.VRes-MM.Info(FONTHEIGHT)
Loop
'
Sub myint
 Do While Pin(gp22)=0 'clear any H/W interrupts that may happen while still processing
   I2C2 write &H20,1,1,9
   I2C2 read &H20,0,1,a%
   process a%
 Loop
End Sub

Sub process(a%)
 Local b%=MM.Info(FONTWIDTH)
 I2C2 write &H20,1,1,9
 I2C2 read &H20,0,1,a%
 FRAMEBUFFER write n
 If a% And 1 Then
   Text 0,0,"Up    "
 Else
   Text 0,0,"      "
 EndIf
 If a% And 2 Then
   Text 6*b%,0,"Down  "
 Else
   Text 6*b%,0,"      "
 EndIf
 If a% And 4 Then
   Text 18*b%,0,"Right "
 Else
   Text 18*b%,0,"      "
 EndIf
 If a% And 8 Then
   Text 12*b%,0,"Left  "
 Else
   Text 12*b%,0,"      "
 EndIf
 If a% And 16 Then
   Text 24*b%,0,"Select"
 Else
   Text 24*b%,0,"      "
 EndIf
 If a% And 32 Then
   Text 30*b%,0,"Start "
 Else
   Text 30*b%,0,"      "
 EndIf
 If a% And 64 Then
   Text 39*b%,0,"B  "
 Else
   Text 39*b%,0,"      "
 EndIf
 If a% And 128 Then
   Text 36*b%,0,"A  "
 Else
   Text 36*b%,0,"   "
 EndIf
 FRAMEBUFFER write f
End Sub