uplime/WOPO
uplime
/
WOPO
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Remove "COUNTER" non sequitur from RE-ESCAPE.

This commit is contained in:
Quinn Evans 2017-03-21 23:20:35 -06:00
parent ec11042340
commit 129bc881d6
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
REESCAPE.COB
View File

@ -13,24 +13,22 @@
88 DONE VALUE 99. 88 DONE VALUE 99.
LINKAGE SECTION. LINKAGE SECTION.
01 UNESCAPED PIC X(999). 01 BUFFER PIC X(999).
01 COUNTER PIC 9.
PROCEDURE DIVISION USING UNESCAPED, COUNTER. PROCEDURE DIVISION USING BUFFER.
MOVE 0 TO LOOP-STATE, COUNTER. MOVE 0 TO LOOP-STATE.
MOVE 1 TO IN-PTR, OUT-PTR. MOVE 1 TO IN-PTR, OUT-PTR.
MOVE SPACES TO ESCAPED. MOVE SPACES TO ESCAPED.
PERFORM MAYBE-ESCAPE-CHAR UNTIL DONE. PERFORM MAYBE-ESCAPE-CHAR UNTIL DONE.
MOVE ESCAPED TO UNESCAPED. MOVE ESCAPED TO BUFFER.
EXIT PROGRAM. EXIT PROGRAM.
MAYBE-ESCAPE-CHAR. MAYBE-ESCAPE-CHAR.
IF IN-PTR IS LESS THAN 999 AND IF IN-PTR IS LESS THAN 999 AND
OUT-PTR IS LESS THAN 999 THEN OUT-PTR IS LESS THAN 999 THEN
UNSTRING UNESCAPED INTO CURRENT-CHAR WITH POINTER IN-PTR UNSTRING BUFFER INTO CURRENT-CHAR WITH POINTER IN-PTR
IF ESCAPE-CHAR THEN IF ESCAPE-CHAR THEN
IF OUT-PTR IS LESS THAN 998 THEN IF OUT-PTR IS LESS THAN 998 THEN
ADD 1 TO COUNTER
STRING "$$" INTO ESCAPED WITH POINTER OUT-PTR STRING "$$" INTO ESCAPED WITH POINTER OUT-PTR
ELSE MOVE 99 TO LOOP-STATE ELSE MOVE 99 TO LOOP-STATE
ELSE ELSE