uplime/WOPO
uplime
/
WOPO
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix another bug that never surfaced.

This commit is contained in:
Quinn Evans 2017-03-27 21:43:39 -06:00
parent 2770e4a5f2
commit 9faf870e6d
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
WOPO-CNF.COB
View File

@ -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.