home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh1x
/
sh13a.d64
/
digitalvoltmetr.
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
688b
|
37 lines
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