40 out 32881,00
50 DIN$="111101110001"
60 B=2048
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
155 rem print,I,VOUT,B,D: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/4095)*REF
261 rmess=2050*VIN/(10-VIN)
270 PRINT VIN " Volt"
271 print rmess " Ohm"
275 If INKEY$="" THEN 50
290 END