NEW
1 IF DI1=0 4
2 GOSUB 50
3 GOTO 5
4 GOSUB 60
5 IF DI2=0 8
6 GOSUB 50
7 GOTO 9
8 GOSUB 60
9 IF DI3=0 12
10 GOSUB 50
11 GOTO 13
12 GOSUB 60
13 IF DI4=0 16
14 GOSUB 50
15 GOTO 17
16 GOSUB 60
17 GOSUB 70
18 GOTO 1
50 PRINT "1"
51 RETURN
60 PRINT "0"
61 RETURN
70 PRINT 13
71 PRINT 10
72 DELAY 5
73 A=KEY
74 A=A-27
75 IF A=0 80
76 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
-------------------------------
dispdi.tmb
display the status of the
digits input bits in binary