Data commit

Task/Count-in-octal/Simula/count-in-octal.simula

@@ -0,0 +1,25 @@
+BEGIN
+
+    PROCEDURE OUTOCT(N); INTEGER N;
+    BEGIN
+        PROCEDURE OCT(N); INTEGER N;
+        BEGIN
+            IF N > 0 THEN BEGIN
+                OCT(N//8);
+                OUTCHAR(CHAR(RANK('0')+MOD(N,8)));
+            END;
+        END OCT;
+        IF N < 0 THEN BEGIN OUTCHAR('-'); OUTOCT(-N); END
+        ELSE IF N = 0 THEN OUTCHAR('0')
+        ELSE OCT(N);
+    END OUTOCT;
+
+    INTEGER I;
+    WHILE I < MAXINT DO BEGIN
+        OUTINT(I,0);
+        OUTTEXT(" => ");
+        OUTOCT(I);
+        OUTIMAGE;
+        I := I+1;
+    END;
+END.