A-M baby

Task/Loops-Nested/Sather/loops-nested.sa

@@ -0,0 +1,24 @@
+class MAIN is
+  main is
+    a:ARRAY2{INT} := #(10,10);
+    i, j :INT;
+
+    RND::seed(1230);
+    loop i := 0.upto!(9);
+      loop j := 0.upto!(9);
+         a[i, j] := RND::int(1, 20);
+      end;
+    end;
+
+    loopthis ::= true;
+    loop i := 0.upto!(9); while!( loopthis );
+      loop j := 0.upto!(9);
+        #OUT  + " " + a[i, j];
+        if a[i, j] = 20 then
+	  loopthis := false;
+	  break!;
+	end;
+      end;
+    end;
+  end;
+end;