Commodore 64 Bedienungshandbuch Seite 74

70 POKE 1024+X+40*Y,32
80 X = X+DX
90 IF X = 0 OR X = 39 THEN DX = -DX
100 Y = Y+DY
110 IF Y = 0 OR Y = 24 THEN DY = -DY
120 GOTO 50
In Zeile 10 wird der Bildschirm gelöscht; in Zeile 20 wird als
Hintergrundfarbe schwarz und als Rahmenfarbe gelb gewählt.
Die Variablen X und Y in Zeile 30 stehen für die Zeile und die Spalte, in
der sich der Ball momentan befindet. Die Variablen DX und DY in Zeile
40 geben die horizontale und vertikale Bewegungsrichtung des Balls an.
DX = + 1 entspricht einer Bewegung nach rechts, DX = - 1 einer
Bewegung nach links, analog entsprechen DY = + 1 bzw. DY = - 1
Bewegungen nach unten bzw. oben. In den Zeilen 50 und 55 wird der Ball
in der durch Zeilen- und Spaltennummer bestimmten Position
ausgedruckt und in Zeile 60 taucht wieder die bekannte
Verzögerungsschleife auf; schließlich wollen wir den Ball auf dem
Bildschirm ja auch sehen.
In Zeile 70 wird der Ball durch Überschreiben mit einem Leerzeichen
("Space") gelöscht.
In Zeile 80 wird durch Addition von DX der Ball in der richtigen Richtung
bewegt; das Vorzeichen von DX wird umgedreht, wenn in Zeile 90
festgestellt wird, daß der Ball den linken oder rechten Rand berührt. In
den Zeilen 100 und 110 geschieht dasselbe für den oberen und unteren
Rand. Die Zeile 120 bewirkt einen Sprung in die Zeile 50, wo der Ball in
der neu berechneten Position auf dem Bildschirm ausgegeben wird.
Wenn Sie in Zeile 55 die 81 gegen eine andere Zahl austauschen, so
können Sie den Ball durch ein beliebiges Zeichen ersetzen.
Durch folgende Ergänzung können wir das Programm noch ein bißchen
intelligenter machen:
21 FOR L = 1 TO 10
25 POKE 1024+INT(RND(1)*1000),166
27 NEXT L
85 IF PEEK(1024+X+40*Y)=166 THEN DX= -DX:GOTO 80
105 IF PEEK(1024+X+40*Y)=166 THEN DY= -DY:GOTO 100
Die Zeilen 21 bis 27 besetzen zufällig gewählte Bildschirmpositionen mit
Hindernissen. In den Zeilen 85 und 105 wird mit Hilfe der PEEK-Funktion
geprüft, ob der Ball gegen ein Hindernis stößt; ist dies der Fall, so wird
die Bewegungsrichtung geändert.
66