Fix another bug that never surfaced.
This commit is contained in:
parent
2770e4a5f2
commit
9faf870e6d
1 changed files with 3 additions and 3 deletions
|
@ -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.
|
||||
|
|
Loading…
Reference in a new issue