NEW
1 A=KEY
2 IF A=0 1
3 B=27
4 IF A=B 200
30 IF DI1=0 33
31 GOSUB 100
32 GOTO 40
33 GOSUB 110
40 IF DI2=0 43
41 GOSUB 100
42 GOTO 50
43 GOSUB 110
50 IF DI3=0 53
51 GOSUB 100
52 GOTO 60
53 GOSUB 110
60 IF INT=0 63
61 GOSUB 100
62 GOTO 70
63 GOSUB 110
70 IF SW1=0 73
71 GOSUB 100
72 GOTO 80
73 GOSUB 110
80 PRINT 13
81 PRINT 10
82 GOTO 1
100 PRINT "1"
101 RETURN
110 PRINT "0"
111 RETURN
200 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
-------------------------------
readiorc.tmb
Wait for any character at serial
port, exit program if ESC,
read digital inputs, send their
formatted values back. Can be
used with a host computer to
make the RC51 a serial port
data acquisition board.