NCR GW-BASIC Betriebsanleitung Seite 372

GW-BASIC-BEFEHLE UND FUNKTIONEN
WHILE und WEND
WHILE- und W END-Befehle
Syntax:
Verwendung:
Bemerkungen:
Beispiel:
4-298
WHILE <Ausdruck>
[<Schleifen-Befehle>]
WEND
Führt eine Reihe von Befehlen in einer Schleife aus,
solange eine bestimmte Bedingung wahr ist.
Ist <Ausdruck> wahr (d.h. ergibt sich ein von Null
abweichender Wert), so werden "Schleifen-
Befehle" ausgeführt, bis WEND angetroffen wird.
GW-BASIC geht dann zu dem WHILE-Befehl
zurück und prüft <Ausdruck>. Ist der Ausdruck
noch immer wahr, so wird der Vorgang wiederholt.
Ist er nicht wahr, so wird die Ausführung mit dem
auf WEND folgenden Befehl wieder aufgenommen.
WHILE/WEND-Schleifen können auf beliebiger
Ebene verschachtelt sein. Jeder WEND-Befehl
gehört zu dem jüngsten WHILE-Befehl. Ein
WHILE-Befehl ohne entsprechendes Äquivalent
führt zu einer Fehlermeldung "WHILE without
WEND" (WHILE ohne WEND). Ein WEND ohne
entsprechendes Äquivalent führt zu einer Fehler­
meldung "WEND without WHILE" (WEND ohne
WHILE).
90 'Matrix a$ mit J Elementen sortieren
100 FLIPS=1 'einen Durchlauf setzen
LOOP
110 WHILE FLIPS
115 FLIPS=0
120 FOR 1=1 TO J-l
130 IF A$(I)>A$(I+1) THEN
140 NEXT I
150 WEND
In diesem Beispiel werden die Elemente der Matrix
A$ in alphabetischer oder genauer gesagt in aufstei-
SWAP A$(I),AS(I+1) :FL1PS= 1
GW-BASIC