Replaced accidental tabs with spaces in WOPO.COB
This commit is contained in:
parent
ad88c521c1
commit
0c253dc34c
5
WOPO.COB
5
WOPO.COB
|
@ -263,6 +263,8 @@
|
||||||
PERFORM SEND-LINE.
|
PERFORM SEND-LINE.
|
||||||
|
|
||||||
PONG.
|
PONG.
|
||||||
|
MOVE SPACES TO MSG-BODY.
|
||||||
|
MOVE 1 TO MSG-LENGTH.
|
||||||
STRING "PONG"
|
STRING "PONG"
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY
|
||||||
WITH POINTER MSG-LENGTH.
|
WITH POINTER MSG-LENGTH.
|
||||||
|
@ -505,8 +507,7 @@
|
||||||
IF REG(1) IS EQUAL TO SPACES THEN
|
IF REG(1) IS EQUAL TO SPACES THEN
|
||||||
MOVE 999 TO MAYBE-CYCLE-LIMIT
|
MOVE 999 TO MAYBE-CYCLE-LIMIT
|
||||||
ELSE
|
ELSE
|
||||||
UNSTRING REG(1) INTO
|
UNSTRING REG(1) INTO MAYBE-CYCLE-LIMIT.
|
||||||
MAYBE-CYCLE-LIMIT.
|
|
||||||
D DISPLAY "CYCLE LIMIT. ", CYCLE-LIMIT.
|
D DISPLAY "CYCLE LIMIT. ", CYCLE-LIMIT.
|
||||||
* RESTORE NICK AND TARGET, THEN REPLY.
|
* RESTORE NICK AND TARGET, THEN REPLY.
|
||||||
MOVE REG(2) TO NICK
|
MOVE REG(2) TO NICK
|
||||||
|
|
Loading…
Reference in New Issue