From 534733386c71a2da372112d80cdfd85f56652e5f Mon Sep 17 00:00:00 2001
From: Quinn Evans <heddwch@lambdaos.org>
Date: Wed, 30 Sep 2015 08:00:02 -0600
Subject: [PATCH] Clear output after run.

---
 BF-RUN.COB | 2 +-
 WOPO.COB   | 4 +---
 2 files changed, 2 insertions(+), 4 deletions(-)

diff --git a/BF-RUN.COB b/BF-RUN.COB
index 6be6121..c3d5e4f 100644
--- a/BF-RUN.COB
+++ b/BF-RUN.COB
@@ -48,7 +48,7 @@
            MOVE 0 TO LOOP-DEPTH.
            MOVE 0 TO LOOP-WORK.
            MOVE 0 TO LOOP-STATE.
-           MOVE 0 TO BF-MEMORY.
+           MOVE SPACES TO BF-OUTPUT.
            SET CURRENT-CELL TO 1.
            PERFORM ZERO-CELL VARYING CURRENT-CELL
                              FROM 1 BY 1
diff --git a/WOPO.COB b/WOPO.COB
index d770966..c98bc8e 100644
--- a/WOPO.COB
+++ b/WOPO.COB
@@ -479,9 +479,7 @@
            PERFORM BEGIN-REPLY.
       D    DISPLAY "STRINGING BF OUTPUT".
            STRING "OUTPUT. " DELIMITED BY SIZE,
-                  BF-OUTPUT DELIMITED BY "$NUL$"
-                            DELIMITED BY "$LF$"
-                            DELIMITED BY "$SUB$"
+                  BF-OUTPUT DELIMITED BY "$LF$"
                   INTO MSG-BODY
                   WITH POINTER MSG-LENGTH.
       D    DISPLAY "SENDING LINE".