Commodore 64 Bedienungshandbuch Seite 87

HILFSPROGRAMM: Umwandlung von Binärzahlen in Dezimalzahlen
Das folgende Programm wandelt von Ihnen eingegebene Binärzahlen in
Dezimalzahlen um:
5 REM BINAER NACH DEZIMAL WANDLUNG
10 INPUT "EINGABE 8-BIT BINAERZAHL :";A$
12 IF LEN(A$) <> 8 THEN PRINT "8 BITS BITTE ..." : GOTO 10
15 TL = 0 : C = 0
20 FOR X = 8 TO 1 STEP -1 : C = C + 1
30 TL = TL + VAL(MID$(A$,C,1))*2↑(X-1)
40 NEXT X
50 PRINT A$; " BINAER = "; TL ;" DEZIMAL"
55 PRINT
60 GOTO 10
Die eingegebene Binärzahl wird als String A$ abgespeichert; dieser
String wird von rechts nach links mit Hilfe der MID$-Funktion gelesen. Mit
der VAL-Funktion wird ermittelt, wie groß der Wert des gelesenen
Stringbestandteils ist (0 oder 1) und dieser Wert wird dann mit der
entsprechenden Zweierpotenz multipliziert. Die Werte werden aufaddiert
und Zeile 50 bewirkt, daß Binär- und Dezimalzahl am Ende des
Programms zusammen ausgegeben werden.
79