NEW
1 B=1
2 LOOP 16
3 A=B
4 GOSUB 20
5 A=B
6 A=A+1
7 B=A
8 ENDLOOP
9 A=KEY
10 IF A=0 1
11 END
20 C=A
21 CHECKSW A
22 IF A<>0 26
23 A=C
24 A=A+64
25 PRINT (A)
26 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
-------------------------------
checksw.tmb, for the SI51
Read all 16 switches S1 through
S16 and send the characters A-P
for any switches closed