MOAR DEBUG OUTPUT‼

2017-03-22 22:44:22 -06:00 · 2017-03-22 22:44:22 -06:00 · 2937b58db2
parent 6a086a95a3
commit 2937b58db2
1 changed files with 2 additions and 1 deletions
--- a/WOPO.COB
+++ b/WOPO.COB
@ -225,9 +225,10 @@
       RECEIVE-LINE.
           CALL "CHANNEL-RECV" USING ASCII-TABLE OF INPUT-BUFFER,
                                     STATE.
-      D    DISPLAY "RECEIVED LINE FROM CHANNEL".
           MOVE SPACES TO MSG-BODY OF INPUT-BUFFER.
           CALL "DECODE-STRING" USING INPUT-BUFFER.
+      D    DISPLAY "RECEIVED LINE FROM CHANNEL",
+                   MSG-BODY OF INPUT-BUFFER.
           IF NOT SUCCESS THEN DISPLAY MSG-BODY OF INPUT-BUFFER
                               GO TO DIE.
           PERFORM GET-IRC-STATE.