12 lines
241 B
QBasic
12 lines
241 B
QBasic
|
|
10 REM FOR EACH/DO EACH accept any emitted type, not just numeric.
|
||
|
|
20 GEN WORDS(N#)
|
||
|
|
30 EMIT "HELLO"
|
||
|
|
40 EMIT "WORLD"
|
||
|
|
50 END GEN
|
||
|
|
60 FOR EACH W$ IN WORDS(0)
|
||
|
|
70 PRINT W$
|
||
|
|
80 NEXT W$
|
||
|
|
90 DO EACH V$ IN WORDS(0)
|
||
|
|
100 PRINT V$
|
||
|
|
110 LOOP
|