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