Data commit

Task/Binary-digits/MAD/binary-digits.mad

@@ -0,0 +1,21 @@
+            NORMAL MODE IS INTEGER
+
+            INTERNAL FUNCTION(NUM)
+            ENTRY TO BINARY.
+            BTEMP = NUM
+            BRSLT = 0
+            BDIGIT = 1
+BIT         WHENEVER BTEMP.NE.0
+                BRSLT = BRSLT + BDIGIT * (BTEMP-BTEMP/2*2)
+                BTEMP = BTEMP/2
+                BDIGIT = BDIGIT * 10
+                TRANSFER TO BIT
+            END OF CONDITIONAL
+            FUNCTION RETURN BRSLT
+            END OF FUNCTION
+
+            THROUGH SHOW, FOR VALUES OF N = 5, 50, 9000
+SHOW        PRINT FORMAT FMT, N, BINARY.(N)
+
+            VECTOR VALUES FMT = $I4,2H: ,I16*$
+            END OF PROGRAM