September Morn Update

Task/Loops-Foreach/BASIC/loops-foreach-7.basic

@@ -1,17 +1,10 @@
-DEF AnArray[11]:INT
-
-AnArray=0,1,2,3,4,5,6,7,8,9,10
-
-OPENCONSOLE
-
-FOR X=0 TO 10
-	PRINT AnArray[X]
-NEXT X
-
-PRINT
-
-'a press any key message is automatic when compiled as console only.
-CLOSECONSOLE
-
-'Because this is a console only program.
-END
+100 STRING COLLECTION$(1 TO 9)*8
+110 LET I=1
+120 DO
+130   READ IF MISSING EXIT DO:COLLECTION$(I)
+140   LET I=I+1
+150 LOOP
+160 FOR J=1 TO I-1
+170   PRINT COLLECTION$(J);" ";
+180 NEXT
+190 DATA The,quick,brown,fox,jumps,over,the,lazy,dog.