From ef8b996b8d9c5f5cc2b1d5d72b458b260152b984 Mon Sep 17 00:00:00 2001
From: Quinn Evans <Quinn Evans>
Date: Wed, 22 Mar 2017 23:33:15 -0600
Subject: [PATCH] Shut the $BF- family up a bit.

---
 WOPO.COB | 15 +++------------
 1 file changed, 3 insertions(+), 12 deletions(-)

diff --git a/WOPO.COB b/WOPO.COB
index 750bfd8..cf7642f 100644
--- a/WOPO.COB
+++ b/WOPO.COB
@@ -962,10 +962,7 @@
            MOVE 1 TO DEST.
            PERFORM INDEX-PARAMS.
            IF NUM-PARAMS OF WOPO IS LESS THAN 1 THEN
-               STRING "CODE. ",
-                      BF-CODE DELIMITED BY "$NUL$",
-                      "$NUL$"
-                      INTO R(1)
+               MOVE BF-CODE TO R(1)
       D        DISPLAY "BF-CODE. ", BF-CODE
                MOVE 1 TO SRC
                PERFORM BEGIN-STANDARD-REPLY
@@ -987,10 +984,7 @@
            MOVE 1 TO DEST.
            PERFORM INDEX-PARAMS.
            IF NUM-PARAMS OF WOPO IS LESS THAN 1 THEN
-               STRING "INPUT. ",
-                      BF-INPUT DELIMITED BY "$NUL$",
-                      "$NUL$"
-                      INTO R(1)
+               MOVE BF-INPUT TO R(1)
       D        DISPLAY "BF-INPUT. ", BF-INPUT
                MOVE 1 TO SRC
                PERFORM BEGIN-STANDARD-REPLY
@@ -1010,10 +1004,7 @@
 
        HANDLE-BF-OUTPUT.
       D    DISPLAY "BF OUTPUT. ", BF-OUTPUT.
-           STRING "OUTPUT. " DELIMITED BY SIZE,
-                  BF-OUTPUT DELIMITED BY "$NUL$",
-                  "$NUL$"
-                  INTO R(1).
+           MOVE BF-OUTPUT TO R(1).
            MOVE 1 TO SRC.
            PERFORM BEGIN-STANDARD-REPLY.
            PERFORM DO-OUTPUT.