From 77bd5f9f6be298193f71c9fc900b9f6cc844c66b Mon Sep 17 00:00:00 2001
From: Quinn Evans <Quinn Evans>
Date: Tue, 21 Mar 2017 23:21:31 -0600
Subject: [PATCH] Restore $SHOW-ESCAPES functionality. (Better than ever!)

---
 WOPO.COB | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/WOPO.COB b/WOPO.COB
index 724506e..8094b53 100644
--- a/WOPO.COB
+++ b/WOPO.COB
@@ -404,8 +404,13 @@
                   WITH POINTER PTR(SRC).
            PERFORM SEND-LINE.
 
+       MAYBE-SHOW-ESCAPES.
+           IF SHOULD-SHOW-ESCAPES THEN
+               CALL "RE-ESCAPE" USING R(SRC).
+
        DO-OUTPUT.
            IF STANDARD-OUTPUT THEN
+               PERFORM MAYBE-SHOW-ESCAPES
                STRING R(SRC) DELIMITED BY "$NUL$",
                       "$NUL$"
                       INTO MSG-BODY OF OUTPUT-BUFFER