Data update

Task/Loops-N-plus-one-half/COBOL/loops-n-plus-one-half-1.cobol

@@ -1,27 +0,0 @@
-       IDENTIFICATION DIVISION.
-       PROGRAM-ID. Loop-N-And-Half.
-
-       DATA DIVISION.
-       WORKING-STORAGE SECTION.
-       01  I    PIC 99.
-       01  List PIC X(45).
-
-       PROCEDURE DIVISION.
-           PERFORM FOREVER
-               *> The list to display must be built up because using
-               *> DISPLAY adds an endline at the end automatically.
-               STRING FUNCTION TRIM(List) " "  I  INTO List
-
-               IF I = 10
-                   EXIT PERFORM
-               END-IF
-
-               STRING FUNCTION TRIM(List) "," INTO List
-
-               ADD 1 TO I
-           END-PERFORM
-
-           DISPLAY List
-
-           GOBACK
-           .

Task/Loops-N-plus-one-half/COBOL/loops-n-plus-one-half-2.cobol

@@ -1,18 +0,0 @@
-IDENTIFICATION DIVISION.
-PROGRAM-ID. LOOP-1p5-NOADV.
-DATA DIVISION.
-WORKING-STORAGE SECTION.
-01  I    PIC 99 VALUE 1.
-01	IDISP	PIC Z9.
-PROCEDURE DIVISION.
-	PERFORM FOREVER
-		MOVE I TO IDISP
-		DISPLAY FUNCTION TRIM(IDISP) WITH NO ADVANCING
-		IF I = 10
-			EXIT PERFORM
-		END-IF
-		DISPLAY ", " WITH NO ADVANCING
-		ADD 1 TO I
-	END-PERFORM.
-	STOP RUN.
-	END-PROGRAM.

Task/Loops-N-plus-one-half/COBOL/loops-n-plus-one-half-3.cobol

@@ -1,18 +0,0 @@
-IDENTIFICATION DIVISION.
-PROGRAM-ID. LOOP-1p5-NOADV-GOTO.
-DATA DIVISION.
-WORKING-STORAGE SECTION.
-01  I	PIC 99	VALUE 1.
-	88	END-LIST	VALUE 10.
-01	I-OUT	PIC Z9.
-PROCEDURE DIVISION.
-01-LOOP.
-	MOVE I TO I-OUT.
-	DISPLAY FUNCTION TRIM(I-OUT) WITH NO ADVANCING.
-	IF END-LIST GO TO 02-DONE.
-	DISPLAY ", " WITH NO ADVANCING.
-	ADD 1 TO I.
-	GO TO 01-LOOP.
-02-DONE.
-	STOP RUN.
-	END-PROGRAM.

Task/Loops-N-plus-one-half/COBOL/loops-n-plus-one-half-4.cobol

@@ -1,17 +0,0 @@
-IDENTIFICATION DIVISION.
-PROGRAM-ID. LOOP-1p5-NOADV-VARY.
-DATA DIVISION.
-WORKING-STORAGE SECTION.
-01  I    	PIC 99  VALUE 1.
-	88	END-LIST	VALUE 10.
-01	I-OUT	PIC Z9.
-PROCEDURE DIVISION.
-	PERFORM WITH TEST AFTER VARYING I FROM 1 BY 1 UNTIL END-LIST
-		MOVE I TO I-OUT
-		DISPLAY FUNCTION TRIM(I-OUT) WITH NO ADVANCING
-		IF NOT END-LIST
-			DISPLAY ", " WITH NO ADVANCING
-		END-IF
-	END-PERFORM.
-	STOP RUN.
-	END-PROGRAM.