NEW
10 REM DACONV.BAS
20 V=0:A=0:B=0:C=0:D=0:E=0:F=0
30 OUTBIT1=A:OUTBIT2=B
40 OUTBIT3=C:OUTBIT4=D
50 OUTBIT5=E:OUTBIT6=F
60 IOSCAN
70 PRINT F;E;D;C;B;A;" ";V
80 PAUSE 5
90 A=A+1
100 IF A=1 GOTO 200
110 A=0:B=B+1
120 IF B=1 GOTO 200
130 B=0:C=C+1
140 IF C=1 GOTO 200
150 C=0:D=D+1
160 IF D=1 GOTO 200
170 D=0:E=E+1
180 IF E=1 GOTO 200
190 E=0:F=F+1
200 V=V+1:IF V=64 GOTO 20
210 GOTO 40
RUN