Data update

2026-04-30 12:34:36 -04:00 · 2026-04-30 12:34:36 -04:00 · cbaf4c4b64
commit cbaf4c4b64
parent 4bb20c9b71
12390 changed files with 318560 additions and 27248 deletions
--- a/Task/Show-ASCII-table/COBOL/show-ascii-table.cob
+++ b/Task/Show-ASCII-table/COBOL/show-ascii-table.cob
@ -0,0 +1,22 @@
+IDENTIFICATION DIVISION.
+PROGRAM-ID. CHARSET.
+DATA DIVISION.
+WORKING-STORAGE SECTION.
+01 CHARCODE PIC 9(3) VALUE 32.
+PROCEDURE DIVISION.
+MAIN-PROCEDURE.
+PERFORM UNTIL CHARCODE=128
+DISPLAY FUNCTION CONCATENATE(
+    FUNCTION CONCATENATE(
+        CHARCODE,
+        " : "
+    ),
+    FUNCTION CONCATENATE(
+        FUNCTION CHAR(CHARCODE),
+        "   "
+    )
+)
+WITH NO ADVANCING
+ADD 1 TO CHARCODE
+END-PERFORM.
+END PROGRAM CHARSET.