10 REM REPEAT ... UNTIL and WHILE ... WEND
20 N=1
30 REPEAT
40   PRINT N;" ";
50   N=N*2
60 UNTIL N>1000
70 PRINT
80 REM The greatest common divisor of two numbers
90 A=84:B=36
100 WHILE A<>B
110   IF A>B
120     A=A-B
130   ELSE
140     B=B-A
150   ENDIF
160 WEND
170 PRINT "The divisor is ";A
180 REM WHILE may not run at all, REPEAT runs at least once
190 K=10
200 WHILE K<5:PRINT "WHILE ran":WEND
210 REPEAT:PRINT "REPEAT ran":UNTIL K>5