Fix the thing instead of lying about it.
(See previous commit.)
This commit is contained in:
parent
d57d0c768d
commit
19a3a94686
1 changed files with 1 additions and 1 deletions
2
WOPO.COB
2
WOPO.COB
|
@ -978,7 +978,7 @@
|
||||||
BF-INPUT,
|
BF-INPUT,
|
||||||
"$NUL$"
|
"$NUL$"
|
||||||
INTO R(1)
|
INTO R(1)
|
||||||
D DISPLAY "BF-INPUT. ", BF-CODE
|
D DISPLAY "BF-INPUT. ", BF-INPUT
|
||||||
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 a new issue