10 REM **************************
20 REM *       AD-WANDLER       *
30 REM *  NACH DEM PRINZIP DES  *
40 REM *     WAEGECODIERERS     *
50 REM **************************
55 :
60 POKE56579,15
65 A=0
70 FORI=3TO0STEP-1
80 A=A+2^I
85 POKE56577,A
90 IF(PEEK(56577)AND16)=16THENA=A-2^I
100 NEXT
120 :
130 REM ANZEIGE
140 :
150 A=A/3
160 FORI=0TO2
170 Z=INT(A):A=(A-INT(A))*10
180 Z$(I)=RIGHT$(STR$(Z),1)
190 NEXT
200 A$=Z$(0)+"."+Z$(1)+Z$(2)+" VOLT"
210 PRINT"[147]"A$
220 GOTO65