9 lines
195 B
QBasic
9 lines
195 B
QBasic
|
|
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"
|