Data commit

Task/Binary-digits/True-BASIC/binary-digits.basic

@@ -0,0 +1,19 @@
+FUNCTION BIN$ (N)
+    LET N = ABS(INT(N))
+    LET B$ = ""
+    DO
+       LET I = MOD(N, 2)
+       LET B$ = STR$(I) & B$
+       LET N = INT(N / 2)
+    LOOP WHILE N > 0
+    LET BIN$ = B$
+END FUNCTION
+
+
+PRINT USING "####": 5;
+PRINT " -> "; BIN$(5)
+PRINT USING "####": 50;
+PRINT " -> "; BIN$(50)
+PRINT USING "####": 9000;
+PRINT " -> "; BIN$(9000)
+END