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.