Commodore 128 Bedienungshandbuch Seite 190

4-150
Es folgt noch einmal das komplette Programm:
1COLOR 0, 1
10 GRAPHIC 1, 1
I S BOX 1,2,2,45,45
28DHAW 1, 17, 10TO 28, 10 TO 26, 30 TO 19, 30TO 17, 10
22DRAW 1, 11, 18 T" 15, 10TO 15, 1 8 1 0 I I , 18TO 11, 10
24 1>FHW t i 30, 10 TO 34, 10 TO 34, 18 10 30, 18 TO 38, 18
26 DRHW 1, 11, 20 TO 15, 20 TO 15, 28 TO 11, 281 0 11, 20
28DRAW 1, 3B,20TO34,20 TO 34, 28 TO 30. 2 8 1 0 38,28
38 DROW 1, 26, 28TO 19, 28
32BOX 1, 28, 14,26, 18, 98, 1
35 BOX 1, 150, 35» 195, 40, 90, 1
37 BOX 1,150,135,195,140,90,1
48 BOX 1, 158,215,195,228,98,1
42DRAW 1 , 50, 180 TO 300, 180 DRfiW 1, 50, 188 TO 50, 190
43BRAW 1, 300, 1801O 300, 190 DRAU 1, 50, 190 TO 300, 190
44 CHOR 1, 18,23, " Z I E L "
45 SSHAPE 0$, 10, 10, 33, 31
58 SPRSA0A$,1
5SSPRSA0 A$,2
6 0 S P R I T r 1, 1,7, 0,0, 8,8
6 5 S P R I T F 2 , 1.3,0,8,0,0
78MOOSPR 1, 248, 0
80MOO JPR 2, 120, 0
85MOUCPR 1, 183*5 b
87MOMSPR2, 180 » 7
Zeile 5 - Der Hintergrund des Bildschirm wird schwarz.
Zeile 1 0 - Schaltet die hochauflösenden Grafik ein und löscht den
Bildschirm.
Zeichnet ein Rechteck oben links.
Zeile 15 -
Zeilen 20-32 - Zeichnen ein Rennauto.
Zeilen 35-44 - Zeichnen die Rennbahn und die Ziellinie.
Zeilen 50-55 - Übertragen den Teil der Zeichenketten-Variablen in die
Sprites 1 und 2.
Bewegen die Sprites zum oberen Bildschirmrand.
Zeilen 70-80
Zeilen 85-87 Bewegen die Sprites von oben nach unten.
C128-Modus Farben und grafische Effekte