COMMODORE 16
TEIL
6
NEW
10 COLOR 0,1
20 GRAPHIC 3,1
30 COLOR 3,1
40 TRAP 200
eingeben und Taste <Return>.
Mit der <STOP>-Taste kann das Programm
beendet werden. Durch Zeile 40 wird in
diesem Fall nach Zeile 200 gesprungen.
50 DRAW3,10,10 TO 10,100: DRAW 3,10,55
TO 30, 55
60 DRAW 3,30,10 TO 30,100: DRAW 3,50,10
TO 80, 10
70 DRAW 3,65,10 TO 65,100: DRAW 3,50,100 TO 80,100
80 FOR L=O TO 7
90 COLOR 3,2,L
100 FOR M=l TO 100: NEXT M
110 NEXT L
120 COLOR 3,1
130 FOR M=l TO 100: NEXT M
140 GOTO 80
200 GRAPHIC 0: COLOR 1,1,7
Den Mehrfarben-Bereich 3 (Befehl
COLOR 3)
verfügt
über
eine
weitere Fähigkeit, die keiner der anderen Bereiche besitzt.
Haben
Sie
einmal Bildschirmbereiche mit dem Befehl COLOR 3 gezeichnet, dann
kann
diese Farbe an jeder BildschirmsteIle, auf der sie auftaucht,
mit
der
COLOR-Anweisung verändert werden.
Legen Sie z.B. die Farbe mit
dem
Befehl
COLOR 3,5
f~st
und
zeichnen in der Folge mit dieser Farbe,
so
erscheint
die
Grat"ik
in
Purpur. Wechseln Sie nun per Befehl COLOR 3,6 die
Farbe,
so
wechseln
schlagartig alle Purpur eingefärbten Flächen in die
neue
Farbe
Grün.
Mit keinem der anderen Bereiche ist dies möglich.
105