Data commit

Task/Flow-control-structures/ALGOL-68/flow-control-structures-1.alg

@@ -0,0 +1,12 @@
+(
+   FOR j TO 1000 DO
+     FOR i TO j-1 DO
+       IF random > 0.999 THEN
+         printf(($"Exited when: i="g(0)", j="g(0)l$,i,j));
+         done
+       FI
+       # etc. #
+     OD
+   OD;
+ done: EMPTY
+);

Task/Flow-control-structures/ALGOL-68/flow-control-structures-2.alg

@@ -0,0 +1,12 @@
+STRING medal = (
+  []PROC VOID award = (gold,silver,bronze);
+
+  award[ 1 + ENTIER (random*3)];
+
+  gold: "Gold" EXIT
+  silver: "Silver" EXIT
+  bronze: "Bronze"
+
+);
+
+print(("Medal awarded: ",medal, new line));

Task/Flow-control-structures/ALGOL-68/flow-control-structures-3.alg

@@ -0,0 +1,21 @@
+STRING final state = (
+  INT condition;
+  PROC do something = VOID: condition := 1 + ENTIER (3 * random);
+
+  state1:
+     do something;
+     CASE condition IN
+        state 1, state 2
+     OUT
+        state n
+     ESAC
+  EXIT
+
+  state 2:
+     "State Two"
+  EXIT
+
+  state n:
+     "State N"
+);
+print(("Final state: ",final state, new line));

Task/Flow-control-structures/ALGOL-68/flow-control-structures-4.alg

@@ -0,0 +1,22 @@
+# example from: http://www.xs4all.nl/~jmvdveer/algol.html - GPL #
+determine first generation;
+WHILE can represent next generation
+DO calculate next generation;
+   print next generation
+OD.
+
+determine first generation:
+   INT previous := 1, current := 3.
+
+can represent next generation:
+   current <= max int - previous.
+
+calculate next generation:
+   INT new = current + previous;
+   previous := current;
+   current := new.
+
+print next generation:
+   printf (($lz","3z","3z","2z-d$, current,
+            $xz","3z","3z","2z-d$, previous,
+            $xd.n(real width - 1)d$, current / previous)).