Oooooooooooops
This commit is contained in:
parent
c73e9af127
commit
02864c7c77
1 changed files with 1 additions and 1 deletions
2
WOPO.COB
2
WOPO.COB
|
@ -228,7 +228,7 @@
|
|||
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.
|
||||
D 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 a new issue