10 REM The GEN/FOR EACH example from issue #57, with real arrays standing in
20 REM for OBJCOUNT%/VISIBLE/OBJ%.
30 DIM OBJ#(3)
40 OBJ#(0) = 100
50 OBJ#(1) = 200
60 OBJ#(2) = 300
70 GEN ROOMOBJECTS(R#)
80     FOR I# = 0 TO 2
90         IF I# <> 1 THEN EMIT OBJ#(I#)
100     NEXT I#
110 END GEN
120 FOR EACH O# IN ROOMOBJECTS(0)
130     PRINT O#
140 NEXT O#
150 PRINT "DONE"
