NEW
1 A=KEY
2 IF A=0 1
3 A=A-27
4 IF A=0 200
10 READAI1
11 BAVOLTS
12 PRINT A
13 PRINT "."
14 PRINT B
15 PRINT C
16 PRINT D
17 PRINT " "
20 READAI2
21 BAVOLTS
22 PRINT A
23 PRINT "."
24 PRINT B
25 PRINT C
26 PRINT D
27 PRINT " "
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 DI4=0 63
61 GOSUB 100
62 GOTO 70
63 GOSUB 110
70 PRINT 13
71 PRINT 10
72 GOTO 1
100 PRINT "1"
101 RETURN
110 PRINT "0"
111 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
-------------------------------
readiotc.tmb for the TC51
wait for a character at serial
port 1, exit program if ESCAPE,
read analog inputs and digital
input, send their formatted
values back, can be used with a
host computer to make the TC51
a serial port data acquisition
board