add Cobol/ercusz.cob (#114)

narze · Oct 1, 2022 · 12501bc · 12501bc
1 parent d5a6c36
commit 12501bc
Showing 1 changed file with 15 additions and 0 deletions.
diff --git a/Cobol/ercusz.cob b/Cobol/ercusz.cob
@@ -0,0 +1,15 @@
+	IDENTIFICATION DIVISION.
+	PROGRAM-ID. COFFEE-TO-CODE.
+	AUTHOR ERCUSZ.
+
+	ENVIRONMENT DIVISION.
+
+	DATA DIVISION.
+		WORKING-STORAGE SECTION.
+		01 WS-DATA  PIC X(6) VALUE "Coffee".
+
+	PROCEDURE DIVISION.
+		INSPECT WS-DATA REPLACING ALL "ff" BY "de"
+        	"ee" BY SPACES.
+    	DISPLAY WS-DATA.
+	STOP RUN.