AT&T 6300 Programmer's Manual page 500

WHILE ... WEND
Statements
Example
7-344
90N IBUBBLE SORT ARRAY AS
100 FLIPS = 1 IFORCE ONE PASS
110 WHILE FLIPS
115 FLlPS=O
120 FORI=1TOJ-1
130 IF AS(I] >AS(I
+
1] THEN 150
133 FLlPS=1
135 SWAP AS(I], AS(I
+
1]
140 NEXT I
150 WEND