September 2017 Update

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

@@ -0,0 +1,10 @@
+ 0 N = 5: GOSUB 1:N = 50: GOSUB 1:N = 9000: GOSUB 1: END
+ 1  LET N2 =  ABS ( INT (N))
+ 2  LET B$ = ""
+ 3  FOR N1 = N2 TO 0 STEP 0
+ 4      LET N2 =  INT (N1 / 2)
+ 5      LET B$ =  STR$ (N1 - N2 * 2) + B$
+ 6      LET N1 = N2
+ 7  NEXT N1
+ 8  PRINT B$
+ 9  RETURN

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

@@ -0,0 +1,16 @@
+      FOR num% = 0 TO 16
+        PRINT FN_tobase(num%, 2, 0)
+      NEXT
+      END
+
+      REM Convert N% to string in base B% with minimum M% digits:
+      DEF FN_tobase(N%,B%,M%)
+      LOCAL D%,A$
+      REPEAT
+        D% = N%MODB%
+        N% DIV= B%
+        IF D%<0 D% += B%:N% -= 1
+        A$ = CHR$(48 + D% - 7*(D%>9)) + A$
+        M% -= 1
+      UNTIL (N%=FALSE OR N%=TRUE) AND M%<=0
+      =A$

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

@@ -0,0 +1,12 @@
+PRINT FNbinary(5)
+PRINT FNbinary(50)
+PRINT FNbinary(9000)
+END
+
+DEF FNbinary(N%)
+LOCAL A$
+REPEAT
+  A$ = STR$(N% AND 1) + A$
+  N% = N% >>> 1  : REM BBC Basic prior to V5 can use N% = N% DIV 2
+UNTIL N% = 0
+=A$

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

@@ -0,0 +1,14 @@
+10 N = 5 : GOSUB 100
+20 N = 50 : GOSUB 100
+30 N = 9000 : GOSUB 100
+40 END
+90 REM *** SUBROUTINE: CONVERT DECIMAL TO BINARY
+100 N2 =  ABS(INT(N))
+110 B$ = ""
+120 FOR N1 = N2 TO 0 STEP 0
+130 :  N2 =  INT(N1 / 2)
+140 :  B$ =  STR$(N1 - N2 * 2) + B$
+150 :  N1 = N2
+160 NEXT N1
+170 PRINT B$
+180 RETURN