From 9faf870e6daf7ff51321e089b6021181940e5882 Mon Sep 17 00:00:00 2001
From: Quinn Evans <Quinn Evans>
Date: Mon, 27 Mar 2017 21:43:39 -0600
Subject: [PATCH] Fix another bug that never surfaced.

---
 WOPO-CNF.COB | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/WOPO-CNF.COB b/WOPO-CNF.COB
index 1810c02..4dda7f4 100644
--- a/WOPO-CNF.COB
+++ b/WOPO-CNF.COB
@@ -41,18 +41,18 @@
            DISPLAY "BLANK ENTRY TO EXIT SECTION".
            DISPLAY "WRITING CONFIGURATION ENTRIES:".
            OPEN OUTPUT CONFIG.
-           PERFORM WRITE-CONFIG-ENTRY UNTIL DONE.
            MOVE 0 TO STATE.
+           PERFORM WRITE-CONFIG-ENTRY UNTIL DONE.
            CLOSE CONFIG.
            DISPLAY "WRITING USER ENTRIES:"
            OPEN OUTPUT USERS.
-           PERFORM WRITE-USER-ENTRY UNTIL DONE.
            MOVE 0 TO STATE.
+           PERFORM WRITE-USER-ENTRY UNTIL DONE.
            CLOSE USERS.
            OPEN OUTPUT CHANNELS.
            DISPLAY "WRITING CHANNEL AUTOJOINS:"
-           PERFORM WRITE-CHANNEL-ENTRY UNTIL DONE.
            MOVE 0 TO STATE.
+           PERFORM WRITE-CHANNEL-ENTRY UNTIL DONE.
            CLOSE CHANNELS.
            CALL "PRINT-CONFIG".
            STOP RUN.