MOAR DEBUG OUTPUT‼
This commit is contained in:
parent
6a086a95a3
commit
2937b58db2
3
WOPO.COB
3
WOPO.COB
|
@ -225,9 +225,10 @@
|
||||||
RECEIVE-LINE.
|
RECEIVE-LINE.
|
||||||
CALL "CHANNEL-RECV" USING ASCII-TABLE OF INPUT-BUFFER,
|
CALL "CHANNEL-RECV" USING ASCII-TABLE OF INPUT-BUFFER,
|
||||||
STATE.
|
STATE.
|
||||||
D DISPLAY "RECEIVED LINE FROM CHANNEL".
|
|
||||||
MOVE SPACES TO MSG-BODY OF INPUT-BUFFER.
|
MOVE SPACES TO MSG-BODY OF INPUT-BUFFER.
|
||||||
CALL "DECODE-STRING" USING 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
|
IF NOT SUCCESS THEN DISPLAY MSG-BODY OF INPUT-BUFFER
|
||||||
GO TO DIE.
|
GO TO DIE.
|
||||||
PERFORM GET-IRC-STATE.
|
PERFORM GET-IRC-STATE.
|
||||||
|
|
Loading…
Reference in New Issue