Shut the $BF- family up a bit.
This commit is contained in:
parent
02864c7c77
commit
ef8b996b8d
15
WOPO.COB
15
WOPO.COB
|
@ -962,10 +962,7 @@
|
||||||
MOVE 1 TO DEST.
|
MOVE 1 TO DEST.
|
||||||
PERFORM INDEX-PARAMS.
|
PERFORM INDEX-PARAMS.
|
||||||
IF NUM-PARAMS OF WOPO IS LESS THAN 1 THEN
|
IF NUM-PARAMS OF WOPO IS LESS THAN 1 THEN
|
||||||
STRING "CODE. ",
|
MOVE BF-CODE TO R(1)
|
||||||
BF-CODE DELIMITED BY "$NUL$",
|
|
||||||
"$NUL$"
|
|
||||||
INTO R(1)
|
|
||||||
D DISPLAY "BF-CODE. ", BF-CODE
|
D DISPLAY "BF-CODE. ", BF-CODE
|
||||||
MOVE 1 TO SRC
|
MOVE 1 TO SRC
|
||||||
PERFORM BEGIN-STANDARD-REPLY
|
PERFORM BEGIN-STANDARD-REPLY
|
||||||
|
@ -987,10 +984,7 @@
|
||||||
MOVE 1 TO DEST.
|
MOVE 1 TO DEST.
|
||||||
PERFORM INDEX-PARAMS.
|
PERFORM INDEX-PARAMS.
|
||||||
IF NUM-PARAMS OF WOPO IS LESS THAN 1 THEN
|
IF NUM-PARAMS OF WOPO IS LESS THAN 1 THEN
|
||||||
STRING "INPUT. ",
|
MOVE BF-INPUT TO R(1)
|
||||||
BF-INPUT DELIMITED BY "$NUL$",
|
|
||||||
"$NUL$"
|
|
||||||
INTO R(1)
|
|
||||||
D DISPLAY "BF-INPUT. ", BF-INPUT
|
D DISPLAY "BF-INPUT. ", BF-INPUT
|
||||||
MOVE 1 TO SRC
|
MOVE 1 TO SRC
|
||||||
PERFORM BEGIN-STANDARD-REPLY
|
PERFORM BEGIN-STANDARD-REPLY
|
||||||
|
@ -1010,10 +1004,7 @@
|
||||||
|
|
||||||
HANDLE-BF-OUTPUT.
|
HANDLE-BF-OUTPUT.
|
||||||
D DISPLAY "BF OUTPUT. ", BF-OUTPUT.
|
D DISPLAY "BF OUTPUT. ", BF-OUTPUT.
|
||||||
STRING "OUTPUT. " DELIMITED BY SIZE,
|
MOVE BF-OUTPUT TO R(1).
|
||||||
BF-OUTPUT DELIMITED BY "$NUL$",
|
|
||||||
"$NUL$"
|
|
||||||
INTO R(1).
|
|
||||||
MOVE 1 TO SRC.
|
MOVE 1 TO SRC.
|
||||||
PERFORM BEGIN-STANDARD-REPLY.
|
PERFORM BEGIN-STANDARD-REPLY.
|
||||||
PERFORM DO-OUTPUT.
|
PERFORM DO-OUTPUT.
|
||||||
|
|
Loading…
Reference in New Issue