Data update

Task/Binary-digits/COBOL/binary-digits-1.cobol

@@ -1,26 +0,0 @@
-       IDENTIFICATION DIVISION.
-       PROGRAM-ID. SAMPLE.
-
-       DATA DIVISION.
-       WORKING-STORAGE SECTION.
-
-         01 binary_number   pic X(21).
-         01 str             pic X(21).
-         01 binary_digit    pic X.
-         01 digit           pic 9.
-         01 n               pic 9(7).
-         01 nstr            pic X(7).
-
-       PROCEDURE DIVISION.
-         accept nstr
-         move nstr to n
-         perform until n equal 0
-           divide n by 2 giving n remainder digit
-           move digit to binary_digit
-           string binary_digit  DELIMITED BY SIZE
-                  binary_number DELIMITED BY SPACE
-                  into str
-           move str to binary_number
-         end-perform.
-         display binary_number
-         stop run.

Task/Binary-digits/COBOL/binary-digits-2.cobol

@@ -1,27 +0,0 @@
-IDENTIFICATION DIVISION.
-PROGRAM-ID. binary-conversion.
-
-DATA DIVISION.
-WORKING-STORAGE SECTION.
-01 binary-number   pic X(21).
-01 digit           pic 9.
-01 n               pic 9(7).
-01 nstr            pic X(7).
-01 ptr			   pic 99.
-
-PROCEDURE DIVISION.
-	display "Number: " with no advancing.
-	accept nstr.
-	move nstr to n.
-	move zeroes to binary-number.
-	move length binary-number to ptr.
-	perform until n equal 0
-		divide n by 2 giving n remainder digit
-		move digit to binary-number(ptr:1)
-		subtract 1 from ptr
-		if ptr < 1
-			exit perform
-		end-if
-	end-perform.
-	display binary-number.
-	stop run.