Commodore 64 Bedienungshandbuch Seite 70

NEW
10 FOR BA = 0 TO 15
20 FOR BO = 0 TO 15
30 POKE 53280,BA
40 POKE 53281,BO
50 FOR X = 1 TO 500 : NEXT X
60 NEXT BO: NEXT BA
RUN
Zwei Schleifen werden ineinander geschachtelt, um alle Kombinationen
zu erfassen. Die zusätzliche Schleife in Zeile 50 verzögert den ganzen
Vorgang nur ein bißchen.
Wenn das Programm abgelaufen ist, tippen Sie ein:
? PEEK (53280) AND 15
Als Antwort sollte eine "15" auf dem Bildschirm stehen. Dies ist sinnvoll,
da als letzter Wert eine "15" in das RAHMEN-Farbregister geschrieben
wurde.
Durch die logische Verknüpfung "AND" blenden Sie die Zahlen, die
größer als 15 sind, aus. Was das genau bedeutet, läßt sich nur im
Rahmen der Arithmetik der binären Zahlen beschreiben. Darauf wird im
Kapitel über die "SPRITES" näher eingegangen.
Wenn wir nun die Werte, die in den entsprechenden Registern stehen,
während des "Farbwechselprogramms" auf dem Bildschirm ausdrucken
lassen wollen, müssen wir die folgende Programmzeile hinzufügen:
25 PRINT CHR$(147); "RAHMEN = ";PEEK(53288) AND 15,
"HINTERGRUND = "; PEEK (53281) AND 15
BILDSCHIRMGRAFIK
Bis jetzt haben wir die Zeichen "sequentiell" auf dem Bildschirm gedruckt,
d. h. eins nach dem anderen, es sei denn wir hätten eine neue Zeile
eingeschaltet, oder mit "," den Ausdruck formatiert.
Den Cursor haben wir bisher durch PRINT-Befehle gesteuert. Damit läßt
sich jeder Punkt des Bildschirms erreichen; die Methode ist jedoch im
allgemeinen langsam und verbraucht wertvollen Programmspeicherplatz.
62