September Morn Update

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

@@ -1,6 +1,12 @@
-t$={Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday"
+in$      ="Not,Hardly,Just,Adequately,Quite,Really,Very,Fantastically,xyzzy"
+element$ =""
+i =1    '   used to point to successive elements
 
-while word$(t$,i+1,",") <> ""
-  i = i + 1
-  print word$(t$,i,",")
-wend
+do
+    element$ =word$( in$, i, ",")
+    if element$ ="xyzzy" then exit do
+    print element$; " good!"
+    i =i +1
+loop until 1 =2
+
+end