" Umwandlung von Bin„r in Dezimalzahlen
" Bitte vor der šbertragung die 2 ersten Zeilen l”schen
10:"B":INPUT BIN$
20:ER=0
30:L=LEN (BIN$)
40:FOR I=0 TO L-1
50:IF MID$ (BIN$,L-I,1)="1" THEN LET ER=ER+2^I
60:NEXT I
70:PRINT ER
80:END