NEW
1 B=1
2 LOOP 4
3 A=B
4 CHECKSW A
5 IF A<>0 10
6 A=10
7 A=A*B
8 A=A+10
9 GOSUB A
10 A=B
11 A=A+1
12 B=A
13 ENDLOOP
14 A=KEY
15 IF A=0 1
16 END
20 PRINT "S"
21 PRINT "1"
22 PRINT "="
23 PRINT "0"
24 RETURN
30 PRINT "S"
31 PRINT "2"
32 PRINT "="
33 PRINT "0"
34 RETURN
40 PRINT "S"
41 PRINT "3"
42 PRINT "="
43 PRINT "0"
44 RETURN
50 PRINT "S"
51 PRINT "4"
52 PRINT "="
53 PRINT "0"
54 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
-------------------------------
swstring.tmb, for the SI51
Read switches S1-S4 and send
predefined character strings
for switches closed. Can be
expanded to check more
switches by making loop value
on line 2 greater and adding
character strings every 10
lines. Can allow for longer
strings by changing the value
to multiply on line 6. The
offset to where strings begin
is on line 8.