Sinclair QL Benutzerhandbuch Seite 105

PROGRAMMSTRUKTUR
Ausgabe
MEHRFACH-
ENTSCHEIDUNGEN
- SELect
BEISPIEL
Methode
Entwurf
Programm
84
230 IF zeich$
240 END IF
250 END FOR zahL
260 PRINT "Die AnzahL der VokaLe
270 PRINT "Die AnzahL der Konsonanten
280 PRINT "Die AnzahL der anderen
290 DATA "COMPUTER-GESCHICHTE WURDE1984 GEMACHT"
Die AnzahL der VokaLe
Die AnzahL der Konsonanten
Die Anzahl der anderen
In den Fällen, in denen es drei oder mehr mögliche Aktionen gibt und keine von einer
vorherigen Auswahl abhängt, wird SELect benutzt. Mit diesem Befehl kann eine
Auswahl aus einer beliebigen Anzahl von Möglichkeiten getroffen werden.
Eine Zauberschlange wächst endlos, indem an ihrem Kopf immer wieder ein
Abschnitt hinzugefügt wird. Jeder Abschnitt kann eine Länge von bis zu 20 Einheiten
und eine neue Farbe oder die alte Farbe aufweisen. Jeder neue Abschnitt muß in
eine der Richtungen Norden, Süden, Osten oder Westen wachsen. Die Schlange
beginnt in der Mitte des Fensters.
Während die Schlange noch auf dem Bildschirm angezeigt wird, wählen Sie eine
zufällige Länge und Schriftfarbe. Die Richtung kann mit einer Zahl 1,2,3 oder 4 wie
dargestellt ausgewählt werden.
Hinterqrundtarbe wählen.
Setzen Sie die Schlange in die Mitte des Fensters.
REPeat
Wählen Sie Richtung, Farbe und Wachstumslänge.
FOR Abschnitt 1 TO Wachsen
=
Die Schlange in Richtung Norden, Süden, Osten
oder Westen wachsen lassen.
IF Schlange nicht im Fenster THEN EXIT
END FOR
END REPeat
PRINT Abschließende Meldung
100 REMark Zauberschlange
110 PAPER 0 : CLS
120 LET waag = 50 : senk = 50
130 REPeat schlange
140 LET ri chtung
150 LET wachsen = RND(2 TO 20)
160 INK farbe
170 FOR abschnitt
180 SELect ON richtung
190 ON ri chtung
200 LET senk = senk
210 ON richtung=2
220 LET waag = waag
230 ON ri chtung
<>"
"THEN andere = andere
beträgt"
Zeichen
beträgt 10
beträgt 20
Zeichen beträgt
Norden 1
Süden 3
= RND(1 TO 4) : farbe
= 1 TO wachsen
= 1
+
1
+
1
= 3
+
1
!
vokaLe
!
beträgt" kons
!
beträgt" andere
5
= RND(2 TO
7)
3/85
(
(