10 REM **************************
20 REM *  A/D-WANDLER NACH DEM  *
30 REM *     ZAEHLVERFAHREN     *
40 REM **************************
50 :
60 POKE56579,15
64 :
65 REM AB HIER WIRD GEMESSEN
66 :
70 FORI=0TO15
80 POKE56577,I
90 IF(PEEK(56577)AND16)=16THENGOTO150
100 NEXT
101 :
102 REM DIESER PROGRAMMTEIL WIRD BEI
103 REM UEBERLAUF DES ZAEHLERS
104 REM DURCHLAUFEN
105 :
110 A$="-.--":GOTO210
114 :
115 REM HIER GESCHIEHT DIE AUFBEREITUNG
116 REM DES GEMESSENEN WERTES
117 :
150 A=I/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"
201 :
202 REM HIER WIRD DER WERT ANGEZEIGT
203 REM UND ZUM MESSEN EINES NEUEN
204 REM WERTES ZUUECKGESPRUNGEN
205 :
210 PRINT"[147]"A$
220 GOTO70