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

Clear output after run.

This commit is contained in:
Quinn Evans 2015-09-30 08:00:02 -06:00
parent fbbc7068eb
commit 534733386c
2 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
BF-RUN.COB
View File

@ -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
View File

@ -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".