Clear output after run.
This commit is contained in:
parent
fbbc7068eb
commit
534733386c
2 changed files with 2 additions and 4 deletions
|
@ -48,7 +48,7 @@
|
||||||
MOVE 0 TO LOOP-DEPTH.
|
MOVE 0 TO LOOP-DEPTH.
|
||||||
MOVE 0 TO LOOP-WORK.
|
MOVE 0 TO LOOP-WORK.
|
||||||
MOVE 0 TO LOOP-STATE.
|
MOVE 0 TO LOOP-STATE.
|
||||||
MOVE 0 TO BF-MEMORY.
|
MOVE SPACES TO BF-OUTPUT.
|
||||||
SET CURRENT-CELL TO 1.
|
SET CURRENT-CELL TO 1.
|
||||||
PERFORM ZERO-CELL VARYING CURRENT-CELL
|
PERFORM ZERO-CELL VARYING CURRENT-CELL
|
||||||
FROM 1 BY 1
|
FROM 1 BY 1
|
||||||
|
|
4
WOPO.COB
4
WOPO.COB
|
@ -479,9 +479,7 @@
|
||||||
PERFORM BEGIN-REPLY.
|
PERFORM BEGIN-REPLY.
|
||||||
D DISPLAY "STRINGING BF OUTPUT".
|
D DISPLAY "STRINGING BF OUTPUT".
|
||||||
STRING "OUTPUT. " DELIMITED BY SIZE,
|
STRING "OUTPUT. " DELIMITED BY SIZE,
|
||||||
BF-OUTPUT DELIMITED BY "$NUL$"
|
BF-OUTPUT DELIMITED BY "$LF$"
|
||||||
DELIMITED BY "$LF$"
|
|
||||||
DELIMITED BY "$SUB$"
|
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY
|
||||||
WITH POINTER MSG-LENGTH.
|
WITH POINTER MSG-LENGTH.
|
||||||
D DISPLAY "SENDING LINE".
|
D DISPLAY "SENDING LINE".
|
||||||
|
|
Loading…
Reference in a new issue