$regfile = "m8def.dat"                                      '
$crystal = 1000000

Config Portb = Input
       Portb = &B10000000
Config Portd = Output
       Portd = &B0100000
Config Portc = Output
       Portc = &B0000000


Do

   If Pinb.0 = 0 Then
   Toggle Portd.0
   Toggle Portd.1
   End If

 Loop



End


Do

   If Pind.0 = 1 Then
   Portc.0 = 1
   Portc.1 = 0
   Portc.2 = 1
   Waitms 500
   Portc.0 = 0
   Portc.1 = 1
   Portc.2 = 0
   Waitms 500
   End If

 Loop


End