From c6f4372a049a836aff4d19b94845d4a9c5745dc4 Mon Sep 17 00:00:00 2001
From: Quinn Evans <Quinn Evans>
Date: Sun, 26 Mar 2017 16:46:30 -0600
Subject: [PATCH] Fix output bugs caused by new DO-OUTPUT clobber(s)

---
 WOPO.COB | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/WOPO.COB b/WOPO.COB
index 1aaf19b..62e98a3 100644
--- a/WOPO.COB
+++ b/WOPO.COB
@@ -682,6 +682,7 @@
            READ USERS NEXT RECORD, AT END MOVE 99 TO STATE.
            IF NOT DONE THEN
                STRING USER-RECORD, "$NUL$" INTO R(1)
+               MOVE 1 TO SRC
                PERFORM BEGIN-STANDARD-REPLY
                PERFORM DO-OUTPUT.
 
@@ -1102,6 +1103,7 @@
            STRING "R(", WOPO-COUNTER, "). ",
                    R(WOPO-COUNTER)
                    INTO R(1).
+           MOVE 1 TO SRC.
            PERFORM BEGIN-STANDARD-REPLY.
            PERFORM DO-OUTPUT.