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.
LINKAGE SECTION.
01 UNESCAPED PIC X(999).
01 COUNTER PIC 9.
01 BUFFER PIC X(999).
PROCEDURE DIVISION USING UNESCAPED, COUNTER.
MOVE 0 TO LOOP-STATE, COUNTER.
PROCEDURE DIVISION USING BUFFER.
MOVE 0 TO LOOP-STATE.
MOVE 1 TO IN-PTR, OUT-PTR.
MOVE SPACES TO ESCAPED.
PERFORM MAYBE-ESCAPE-CHAR UNTIL DONE.
MOVE ESCAPED TO UNESCAPED.
MOVE ESCAPED TO BUFFER.
EXIT PROGRAM.
MAYBE-ESCAPE-CHAR.
IF IN-PTR IS LESS THAN 999 AND
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 OUT-PTR IS LESS THAN 998 THEN
ADD 1 TO COUNTER
STRING "$$" INTO ESCAPED WITH POINTER OUT-PTR
ELSE MOVE 99 TO LOOP-STATE
ELSE