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

Restore $SHOW-ESCAPES functionality. (Better than ever!)

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

5
WOPO.COB
View File

@ -404,8 +404,13 @@
WITH POINTER PTR(SRC). WITH POINTER PTR(SRC).
PERFORM SEND-LINE. PERFORM SEND-LINE.
MAYBE-SHOW-ESCAPES.
IF SHOULD-SHOW-ESCAPES THEN
CALL "RE-ESCAPE" USING R(SRC).
DO-OUTPUT. DO-OUTPUT.
IF STANDARD-OUTPUT THEN IF STANDARD-OUTPUT THEN
PERFORM MAYBE-SHOW-ESCAPES
STRING R(SRC) DELIMITED BY "$NUL$", STRING R(SRC) DELIMITED BY "$NUL$",
"$NUL$" "$NUL$"
INTO MSG-BODY OF OUTPUT-BUFFER INTO MSG-BODY OF OUTPUT-BUFFER