Clear output after run.

2015-09-30 08:00:02 -06:00 · 2015-09-30 08:00:02 -06:00 · 534733386c
parent fbbc7068eb
commit 534733386c
2 changed files with 2 additions and 4 deletions
--- 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
--- 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".