A-M baby

Task/Flow-control-structures/Icon/flow-control-structures-1.icon

@@ -0,0 +1,9 @@
+    if x := every i := 1 to *container do {     # * is the 'length' operator
+        if container[i] ~== y then
+            write("item ", i, " is not interesting")
+        else
+            break a
+    } then
+        write("found item ", x)
+    else
+        write("did not find an item")

Task/Flow-control-structures/Icon/flow-control-structures-2.icon

@@ -0,0 +1 @@
+    break break next

Task/Flow-control-structures/Icon/flow-control-structures-3.icon

@@ -0,0 +1 @@
+    x := ftn()

Task/Flow-control-structures/Icon/flow-control-structures-4.icon

@@ -0,0 +1,8 @@
+    &error := 1
+    mayErrorOut()
+    if &error == 1 then
+        &error := 0     # clear the trap
+    else {
+        # deal with the fault
+        handleError(&errornumber, &errortext, &errorvalue)   # keyword values containing facts about the failure
+    }

Task/Flow-control-structures/Icon/flow-control-structures-5.icon

@@ -0,0 +1 @@
+    runerr(errnumber, errorvalue)    # choose an error number and supply the offending value