40 out 32881,00
50 DIN$="111101111111"
60 B=512
70 VOUT=0
80 REF=5
90 WERTA=32884:WERTB=32886
95 WERTC=253 : WERTD=254
100 FOR I=1 TO 12
110 OUT WERTA,(WERTD AND INP(WERTA))
120 IF MID$(DIN$,13-I,1)="0" THEN OUT WERTA,(WERTC AND INP(WERTA)) ELSE OUT WERTA,(2 OR INP(WERTA))
130 OUT WERTA,(1 OR INP(WERTA))
140 IF (INP(WERTB) AND 16)=16 THEN D=0 ELSE D=1
150 VOUT=VOUT+(D*B) : B=B/2
160 NEXT I
200 OUT WERTA,(WERTC AND INP(WERTA))
210 OUT WERTA,(2 OR INP(WERTA))
250 REM PRINT VOUT
260 VIN=(VOUT/1023)*REF
270 PRINT VIN "Volt"
275 If INKEY$="" THEN 50
290 END