From 6c6f7c853128e60838bf705780af390c3d0381fe Mon Sep 17 00:00:00 2001
From: Quinn Evans <heddwch@lambdaos.org>
Date: Sat, 5 Dec 2015 23:53:34 -0700
Subject: [PATCH] Change $BF-CODE to mirror $BF-INPUT, fix display bug

---
 WOPO.COB | 18 ++++++++++++------
 1 file changed, 12 insertions(+), 6 deletions(-)

diff --git a/WOPO.COB b/WOPO.COB
index 402c5dc..0815360 100644
--- a/WOPO.COB
+++ b/WOPO.COB
@@ -732,20 +732,26 @@
        HANDLE-BF-CODE.
            IF WOPO-PARAMS IS LESS THAN 2 THEN
                PERFORM BEGIN-REPLY
-               STRING "CODE. " DELIMITED BY SIZE,
-                      BF-CODE DELIMITED BY "$$",
-                      "$NUL$" DELIMITED BY SIZE
+               STRING "CODE. ",
+                      BF-CODE,
+                      "$NUL$"
                       INTO MSG-BODY
                       WITH POINTER WORK-PTR
       D        DISPLAY "BF-CODE. ", BF-CODE
                PERFORM SEND-LINE
            ELSE
                PERFORM VALIDATE-USER
+               MOVE PARAM-PTR(NUM-PARAMS) TO WORK-PTR
+               UNSTRING MSG-BODY DELIMITED BY SPACE
+                                 INTO WORK,
+                                 WITH POINTER WORK-PTR
+               UNSTRING MSG-BODY
+                        INTO WORK
+                        WITH POINTER WORK-PTR
                IF USER-LEVEL IS NOT LESS THAN 60 THEN
-                   MOVE SPACES TO BF-CODE
-                   MOVE PARAM(2) TO BF-CODE
+                   MOVE WORK TO BF-CODE
                    PERFORM REPLY-ACK.
-               
+
        HANDLE-BF-INPUT.
            IF WOPO-PARAMS IS LESS THAN 2 THEN
                PERFORM BEGIN-REPLY