September Morn Update

Task/Binary-digits/Simula/binary-digits.simula

@@ -0,0 +1,15 @@
+BEGIN
+
+    PROCEDURE OUTINTBIN(N); INTEGER N;
+    BEGIN
+        IF N > 1 THEN OUTINTBIN(N//2);
+        OUTINT(MOD(N,2),1);
+    END OUTINTBIN;
+
+    INTEGER SAMPLE;
+    FOR SAMPLE := 5, 50, 9000 DO BEGIN
+        OUTINTBIN(SAMPLE);
+        OUTIMAGE;
+    END;
+
+END