timrelay.tmb for the RC5120
Waits for a character at the
serial port, turns on a relay
based on the character, waits
a specified amount of time,
and turns off the relay.
relay 1 is the character "A"
relay 2 is the character "B"
relay 3 is the character "C"
etc.
-------------------------------
NEW
1 A=KEY
2 B="A"
3 IF A<B 1
4 B="T"
5 IF A>B 1
6 B=64
7 A=A-B
8 A=A*2
9 A=A+98
10 GOSUB A
12 DELAY 10
13 RELAYS1=0
14 RELAYS2=0
15 RELAYS3=0
16 GOTO 1
100 RELAY1=1
101 RETURN
102 RELAY2=1
103 RETURN
104 RELAY3=1
105 RETURN
106 RELAY4=1
107 RETURN
108 RELAY5=1
109 RETURN
110 RELAY6=1
111 RETURN
112 RELAY7=1
113 RETURN
114 RELAY8=1
115 RETURN
116 RELAY9=1
117 RETURN
118 RELAY10=1
119 RETURN
120 RELAY11=1
121 RETURN
122 RELAY12=1
123 RETURN
124 RELAY13=1
125 RETURN
126 RELAY14=1
127 RETURN
128 RELAY15=1
129 RETURN
130 RELAY16=1
131 RETURN
132 RELAY17=1
133 RETURN
134 RELAY18=1
135 RETURN
136 RELAY19=1
137 RETURN
138 RELAY20=1
139 RETURN