NEW
1 A=KEY
2 IF A=0 1
3 B=27
4 IF A=B 70
5 B="1"
6 IF A=B 30
7 B="2"
8 IF A=B 35
9 B="3"
10 IF A=B 40
11 B="4"
12 IF A=B 45
13 B="5"
14 IF A=B 50
15 B="6"
16 IF A=B 55
17 B="7"
18 IF A=B 60
19 B="8"
20 IF A=B 65
21 GOTO 1
30 RELAY1=1
31 GOTO 1
35 RELAY2=1
36 GOTO 1
40 RELAY3=1
41 GOTO 1
45 RELAY4=1
46 GOTO 1
50 RELAY1=0
51 GOTO 1
55 RELAY2=0
56 GOTO 1
60 RELAY3=0
61 GOTO 1
65 RELAY4=0
66 GOTO 1
70 END
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
-------------------------------
setreltc.tmb  for the TC51
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 1 off  5
relay 2 off  6
relay 3 off  7
relay 4 off  8