From 29d907a1a0be7b51ddc16e7c5aff06d4e9d835cd Mon Sep 17 00:00:00 2001
From: Quinn Evans <Quinn Evans>
Date: Tue, 21 Mar 2017 00:32:37 -0600
Subject: [PATCH] Misc bugfixes related to immediately previous refactor.

---
 WOPO.COB | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/WOPO.COB b/WOPO.COB
index f823dbf..fc71e4f 100644
--- a/WOPO.COB
+++ b/WOPO.COB
@@ -469,7 +469,7 @@
                PERFORM HANDLE-COMMAND
            ELSE
                MOVE 1 TO PTR(2)
-               UNSTRING R(2) DELIMITED BY ": "
+               UNSTRING R(2) DELIMITED BY "$COLN$ "
                         INTO R(1)
                         WITH POINTER PTR(2)
                IF R(1) IS EQUAL TO NICK OF WOPO THEN
@@ -927,7 +927,7 @@
       D        DISPLAY "BF-CODE. ", BF-CODE
                MOVE 1 TO SRC
                PERFORM BEGIN-STANDARD-REPLY
-               PERFORM SEND-LINE
+               PERFORM DO-OUTPUT
            ELSE
                PERFORM REPLY-ACK
                PERFORM VALIDATE-USER
@@ -946,13 +946,13 @@
            PERFORM INDEX-PARAMS.
            IF NUM-PARAMS OF WOPO IS LESS THAN 1 THEN
                STRING "INPUT. ",
-                      BF-CODE,
+                      BF-INPUT,
                       "$NUL$"
                       INTO R(1)
       D        DISPLAY "BF-INPUT. ", BF-CODE
                MOVE 1 TO SRC
                PERFORM BEGIN-STANDARD-REPLY
-               PERFORM SEND-LINE
+               PERFORM DO-OUTPUT
            ELSE
                PERFORM REPLY-ACK
                PERFORM VALIDATE-USER