September 2017 Update

Task/Sorting-algorithms-Sleep-sort/Simula/sorting-algorithms-sleep-sort.simula

@@ -0,0 +1,20 @@
+SIMULATION
+BEGIN
+
+    PROCESS CLASS SORTITEM(N); INTEGER N;
+    BEGIN
+        HOLD(N);
+        OUTINT(N, 3);
+    END;
+
+    INTEGER I;
+    FOR I := 3, 2, 4, 7, 3, 6, 9, 1 DO
+    BEGIN
+        REF(SORTITEM) SI;
+        SI :- NEW SORTITEM(I);
+        ACTIVATE SI;
+    END;
+    HOLD(100000);
+    OUTIMAGE;
+
+END;