Replaced accidental tabs with spaces in WOPO.COB

2015-10-01 00:26:19 -06:00 · 2015-10-01 00:26:19 -06:00 · 0c253dc34c
parent ad88c521c1
commit 0c253dc34c
1 changed files with 25 additions and 24 deletions
--- a/WOPO.COB
+++ b/WOPO.COB
@ -263,6 +263,8 @@
           PERFORM SEND-LINE.

       PONG.
+           MOVE SPACES TO MSG-BODY.
+           MOVE 1 TO MSG-LENGTH.
           STRING "PONG"
                  INTO MSG-BODY
                  WITH POINTER MSG-LENGTH.
@ -505,8 +507,7 @@
           IF REG(1) IS EQUAL TO SPACES THEN
               MOVE 999 TO MAYBE-CYCLE-LIMIT
           ELSE
-               UNSTRING REG(1) INTO
-                        MAYBE-CYCLE-LIMIT.
+               UNSTRING REG(1) INTO MAYBE-CYCLE-LIMIT.
      D    DISPLAY "CYCLE LIMIT. ", CYCLE-LIMIT.
      *    RESTORE NICK AND TARGET, THEN REPLY.
           MOVE REG(2) TO NICK