'**************************************
'                                     *
'     IntuiExtend.Lib 2.0/@1995-98    *
'                                     *
'          by CIERP Philippe.         *
'                                     *
'          from AMIGAzette 83         *
'                                     *
'**************************************
'
' Commande 
' Hard Mouse Key 
'
' Dessin des sourie
Box 10,10 To 48,70
Box 10,10 To 20,30
Box 24,10 To 34,30
Box 38,10 To 48,30
'
Box 70,10 To 108,70
Box 70,10 To 80,30
Box 84,10 To 94,30
Box 98,10 To 108,30
'
' Initialisation des flags 
LM0=0 : MM0=0 : RM0=0
LM1=0 : MM1=0 : RM1=0
Do 
   '
   Text 0,8,Str$(Hard Mouse Key)+" "
   ' Port 0 Bouton de gauche    
   If(Hard Mouse Key and 1)=1 and LM0=0
      Ink 2
      Bar 11,11 To 19,29
      LM0=1
   Else If(Hard Mouse Key and 1)=0 and LM0=1
      Ink 1
      Bar 11,11 To 19,29
      LM0=0
   End If 
   '
   ' Port 0 Bouton de droite  
   If(Hard Mouse Key and 2)=2 and RM0=0
      Ink 2
      Bar 39,11 To 47,29
      RM0=1
   Else If(Hard Mouse Key and 2)=0 and RM0=1
      Ink 1
      Bar 39,11 To 47,29
      RM0=0
   End If 
   '
   ' Port 0 Bouton du milieu  
   If(Hard Mouse Key and 4)=4 and MM0=0
      Ink 2
      Bar 25,11 To 33,29
      MM0=1
   Else If(Hard Mouse Key and 4)=0 and MM0=1
      Ink 1
      Bar 25,11 To 33,29
      MM0=0
   End If 
   '
   ' Port 1 Bouton de gauche  
   If(Hard Mouse Key and 8)=8 and LM1=0
      Ink 2
      Bar 71,11 To 79,29
      LM1=1
   Else If(Hard Mouse Key and 8)=0 and LM1=1
      Ink 1
      Bar 71,11 To 79,29
      LM1=0
   End If 
   '
   ' Port 1 Bouton de droite
   If(Hard Mouse Key and 16)=16 and RM1=0
      Ink 2
      Bar 99,11 To 107,29
      RM1=1
   Else If(Hard Mouse Key and 16)=0 and RM1=1
      Ink 1
      Bar 99,11 To 107,29
      RM1=0
   End If 
   '
   ' Port 1 Bouton du milieu  
   If(Hard Mouse Key and 32)=32 and MM1=0
      Ink 2
      Bar 85,11 To 93,29
      MM1=1
   Else If(Hard Mouse Key and 32)=0 and MM1=1
      Ink 1
      Bar 85,11 To 93,29
      MM1=0
   End If 
   '
Loop