NEW
1 A=KEY
2 IF A<>0 20
3 READSW
4 IF A=0 1
5 HEX
6 PRINT C
7 PRINT " "
8 DECIMAL
9 PRINT C
10 PRINT " "
11 HEX
12 PRINT B
13 PRINT " "
14 DECIMAL
15 PRINT B
16 PRINT 13
17 PRINT 10
18 GOTO 1
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
-------------------------------
readsw.tmb, for the SI51
Wait for a change in any of the
switches and display the status
as two bytes, both in hex and
decimal. READSW sets A to 1 if
a change has occured in any of
the switches since READSW was
last used.