10 REM A DO EACH takes its condition on the LOOP, not on the DO line.
20 GEN ONE(N#)
30     EMIT N#
40 END GEN
50 DO EACH V# IN ONE(1) WHILE V# < 9
60     PRINT V#
70 LOOP
80 PRINT "UNREACHABLE"