MOAR DEBUG OUTPUT‼
This commit is contained in:
parent
6a086a95a3
commit
2937b58db2
3
WOPO.COB
3
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.
|
||||
|
|
Loading…
Reference in New Issue