NEW
1 READIR
2 IF A=0 1
3 DELAY 3
4 READIR
5 IF A<>0 4
6 A=F
7 GOSUB 100
8 RELAYS=A
9 DELAY 10
10 RELAYS=0
11 GOTO 1
100 IF A<>0 103
101 A=1
102 RETURN
103 B=A
104 A=1
105 LOOP B
106 A=A*2
107 ENDLOOP
108 RETURN
this line and the lines below
are comments and can be
removed with a text editor or
the errors caused by trying to
upload them can be ignored
-------------------------------
irrelayp.tmb for the RC51-IR
Waits for IR transmission from
handheld remote control unit,
pulses relay on for one second
based only on Function code.
relay 1 = button 1, code 0
relay 2 = button 2, code 1
relay 3 = button 3, code 2
relay 4 = button 4, code 3
relay 5 = button 5, code 4
relay 6 = button 6, code 5
relay 7 = button 7, code 6
relay 8 = button 8, code 7