setrelic.tmb for the IC51
wait for a character at serial
port 1 and set relays based on
it, or ESCAPE to exit
relay 1 on   1
relay 2 on   2
relay 3 on   3
relay 4 on   4
relay 5 on   5
relay 6 on   6
relay 7 on   7
relay 8 on   8
relay 1 off  a
relay 2 off  b
relay 3 off  c
relay 4 off  d
relay 5 off  e
relay 6 off  f
relay 7 off  g
relay 8 off  h
-------------------------------
NEW
--- wait for character
1 A=KEY
2 IF A=0 1
--- exit if escape
5 B=27
6 IF A<>B 10
7 END
--- skip if below 1
10 B="1"
11 IF A<B 1
--- skip if above 8
12 B="8"
13 IF A>B 20
--- offset to correct line
15 A=A-48
16 A=A*2
17 A=A+98
18 GOTO A
--- skip if below A
20 B="a"
21 IF A<B 1
--- skip if above H
22 B="h"
23 IF A>B 1
--- offset to correct line
25 A=A-96
26 A=A*2
27 A=A+118
28 GOTO A
--- relay on routines
100 RELAY1=1
101 GOTO 1
102 RELAY2=1
103 GOTO 1
104 RELAY3=1
105 GOTO 1
106 RELAY4=1
107 GOTO 1
108 RELAY5=1
109 GOTO 1
110 RELAY6=1
111 GOTO 1
112 RELAY7=1
113 GOTO 1
114 RELAY8=1
115 GOTO 1
--- relay off routines
120 RELAY1=0
121 GOTO 1
122 RELAY2=0
123 GOTO 1
124 RELAY3=0
125 GOTO 1
126 RELAY4=0
127 GOTO 1
128 RELAY5=0
129 GOTO 1
130 RELAY6=0
131 GOTO 1
132 RELAY7=0
133 GOTO 1
134 RELAY8=0
135 GOTO 1