$regfile = "ATtiny45.DAT"
$crystal = 8000000
$hwstack = 32
$swstack = 10
$framesize = 40
$lib "mcsbyte.lbx"

Config Rc5 = Pinb.3

Enable Interrupts

Config Pinb.1 = Output
Out_1 Alias Portb.1

Config Pinb.2 = Output
Out_2 Alias Portb.2

Dim Address As Byte
Dim Command As Byte

Do

Getrc5(address , Command)
If Address = 0 Then
Command = Command And &B01111111
End If

If Command = 6 Then
Waitms 200
Toggle Out_1
End If

If Command = 7 Then
Waitms 200
Toggle Out_2
End If

Loop

End