* ------------[ BLED merge (c) Ken Goosens ]-------------
* Merge this against D:\172B\CONFIG.BAS to produce CONFIG.BAS
* D:\172B\CONFIG.BAS:  Date 2-10-1990  Size 153303 bytes
* ------------[ Created 08-26-1990 11:34:19 ]------------
* REPLACING old line(s) by new
      ' $linesize: 132
* ------[ first line different ]------
      ' $title:  'CONFIG 17.3A, Copyright 1983-90 by D. Thomas Mack' ' DA081003
      ' WARNING !!! DO NOT CHANGE, BYPASS OR REMOVE LINE 10000-10230
* REPLACING old line(s) by new
* ------[ first line different ]------
10000 ' CONFIG.BAS (RBBS-PC VERSION 17.3A)                           ' DA081003
      ' by D.Thomas Mack
      '   The Second Ring
      '   39 Cranbury Dr.
      '   Trumbull, CT. 06611
      '
      ' *******************************NOTICE**********************************
      ' *  A limited license is granted to all users of this program and it's *
      ' *  companion program, RBBS-PC (ver. 17.3A), to make copies of this    *
      ' *  program and distribute the copies to other users, on the following *
      ' *  conditions                                                         *
      ' *   1.   The copyright notices contained within this program are not  *
      ' *        altered, bypassed, or removed.                               *
      ' *   2.   The program is not to be disrtibuted to others in modified   *
      ' *        form (i.e. the line numbers must remain the same).           *
      ' *   3.   No fee is charged (or any other consideration received)      *
      ' *        for coping or distributing these programs without an express *
      ' *        written agreement with D. Thomas Mack, The Second Ring,      *
      ' *        39 Cranbury Dr., Trumbul, CT. 06611                          *
      ' *                                                                     *
      ' *      Copyright (c) 1983-1990 D. Thomas Mack, The Second Ring        *
      ' ***********************************************************************
'     $INCLUDE: 'CNFG-VAR.BAS'
      CLEAR
'
' ****************************************************************************
' *  DISPLAY THE CONFIG TITLE PAGE
' ****************************************************************************
'
      WIDTH 80
      CLS
      NOT.YET.IN$ = "[Not Implemented]"  ' Msg used in config for parm not yet implemented
      NONE.PICKED$ = "<none>"    ' Standardized message
      NUM.FILES = 8
      NUM.GLOBAL = 4
      NUM.MAIN = 18
      NUM.SYSOP = 7
      NUM.UTILITY = 12
      NUM.LIBRARY = 7
      VERSION.NUMBER$ = "17.3A"
      I! = FRE(C$)
      KEY OFF
      CALL CNFGINIT
      PRINT TAB(60)"tm"
      PRINT TAB(16) STRING$(15,205)" U S E R W A R E "STRING$(15,205)
      PRINT
      PRINT TAB(17)"Capital PC User Group User-Supported Software"
      PRINT
      X$ = "    "
      PRINT "Copyright (c) 1983-1990 D. Thomas Mack, 39 Cranbury Dr., Trumbull, CT. 06611"
      PRINT
      PRINT X$;"    If you use RBBS-PC " + CONFIG.VERSION$ + " and find"
      PRINT X$;"    it valuable, consider contributing to"
      PRINT ""
      PRINT X$;"                 Capital PC Software Exchange"
      PRINT X$;"                     Post Office Box 6128"
      PRINT X$;"                Silver Spring, Maryland  20906"
      PRINT
      PRINT X$;"    You are free to copy and share RBBS-PC provided"
      PRINT X$;"      1.  This program is not distributed in modified form."
      PRINT X$;"      2.  No fee or consideration is charged for RBBS-PC itself."
* REPLACING old line(s) by new
12160 KEY OFF
'
' * IF A MESSAGE FILE EXISTS, READ IN THE PARAMETERS IN IT.
'
      FILE$ = MAIN.MESSAGE.FILE$
      GOSUB 30000
      NO.OLD.FILE = FALSE
      IF OKAY THEN _           ' IF MESSAGE FILE EXISTS, READ CHECKPOINT RECORD
         GOTO 12170
      NO.OLD.FILE = TRUE
      A$ = "Message file " + MAIN.MESSAGE.FILE$ + " not found.  Create new one"
      CALL GETNUMYN (A$,AB)
      IF NOT AB THEN _
* ------[ first line different ]------
         IF CONFERENCE.MODE > 0 THEN _                               ' DA082501
            MAIN.MESSAGE.FILE$ = MAINMSG$ : _                        ' DA082501
            MAIN.USER.FILE$ = MAINUSR$ : _                           ' DA082501
            GOTO 12151 _                                             ' DA082501
         ELSE _                                                      ' DA082501
            SYSTEM                                                   ' DA082501
      CALLS.TODATE! = 0                                 ' FIRST MSG#    -- 0
      FIRST.USER.RECORD = 1                             ' USERS file    -- first record number
      CURRENT.USER.COUNT = FIRST.USER.RECORD            ' USERS file    -- next available record number
      HIGHEST.USER.RECORD = MAX.USR.FILE.SIZE.FRM.DEF   ' USERS file    -- last record number
      FIRST.MESSAGE.RECORD = 2+MAXIMUM.NUMBER.OF.NODES  ' MESSAGES file -- first record of messages
      NEXT.MESSAGE.RECORD = FIRST.MESSAGE.RECORD        ' MESSAGES file -- next available record number
      HIGHEST.MESSAGE.RECORD = 5 * MAX.ALLOWED.MSGS.FRM.DEF _
                               + 1 _
                               + MAXIMUM.NUMBER.OF.NODES ' MESSAGES file -- last record number
      MAXIMUM.NUMBER.OF.MSGS = MAX.ALLOWED.MSGS.FRM.DEF  ' MESSAGES file -- maximum number of messages
      B1 = MAXIMUM.NUMBER.OF.NODES
      B3! = HIGHEST.MESSAGE.RECORD
      GOSUB 22080
      GOSUB 30450                        ' UPDATE CHECKPOINT RECORD
* REPLACING old line(s) by new
13228 A$ = ""
* ------[ first line different ]------
      IF INSTR(USER.INIT.COMMAND$,"S0=") = 0 THEN _                  ' DA080503
         USER.INIT.COMMAND$ = USER.INIT.COMMAND$ + "S0=001"          ' DA080503
* REPLACING old line(s) by new
13229 CALL GETINIT ("How many rings should RBBS-PC wait before answering? ",24,0,255,REQUIRED.RINGS,CR)
      IF CR THEN _
         GOTO 13229
      IF REQUIRED.RINGS = 0 THEN _
* ------[ first line different ]------
         MID$(USER.INIT.COMMAND$,INSTR(USER.INIT.COMMAND$,"S0=") + 3,3) = "001" ' DA080503
         RETURN
* REPLACING old line(s) by new
13235 IF REQUIRED.RINGS > 5 THEN _
         A$ = "(<6 for ringback)" : _
         GOTO 13229
* ------[ first line different ]------
      MID$(USER.INIT.COMMAND$,INSTR(USER.INIT.COMMAND$,"S0=") + 3,3) = "255" ' DA080503
      RETURN
* REPLACING old line(s) by new
* ------[ first line different ]------
13237 MID$(USER.INIT.COMMAND$,INSTR(USER.INIT.COMMAND$,"S0=") + 3,3) = "254" ' DA080503
      RETURN
* REPLACING old line(s) by new
14815 GOSUB 15200
      QUES.PATH$ = HJ$
      RETURN
'
* ------[ first line different ]------
' *  PREFIX FOR FOR FOUR MAJOR 'HELP' FILES                          ' KG081402
'
* REPLACING old line(s) by new
14820 GOSUB 14970
      IF LEN(HJ$) > 7 THEN _
         RETURN
      HELP.FILE.PREFIX$ = HJ$
* ------[ first line different ]------
      HELP$(3) = HELP.FILE.PREFIX$ + "3"                             ' KG081402
      HELP$(4) = HELP.FILE.PREFIX$ + "4"                             ' KG081402
      HELP$(7) = HELP.FILE.PREFIX$ + "7"                             ' KG081402
      HELP$(9) = HELP.FILE.PREFIX$ + "9"                             ' KG081402
      RETURN
'
' *  NAME OF 'NEWUSER' FILE
'
* REPLACING old line(s) by new
14845 CALL ASKRO ("Extension for compressed files",24,HJ$)
* ------[ first line different ]------
      IF LEN(HJ$) > 3 THEN _                                         ' KG080101
         GOTO 14845
      CALL ALLCAPS (HJ$)
      DEFAULT.EXTENSION$ = HJ$
      RETURN
'
' *  NAME OF 'FILE DIRECTORY' FILE'S EXTENSION
'
* REPLACING old line(s) by new
14980 CALL ASKRO ("Specify name of the file for parameter " + X$ + ".",24,HJ$)
      CALL ALLCAPS (HJ$)
      IF LEN(HJ$) < 1 OR LEN(HJ$) > 12 THEN _
         GOTO 14980
      L1 = INSTR(HJ$,".")
      IF L1 = 0 THEN _
* ------[ first line different ]------
         IF LEN(HJ$) < 9 THEN _                                      ' KG081403
            GOTO 15045 _                                             ' KG081403
         ELSE GOTO 14980                                             ' KG081403
      IF L1 > 9 THEN _
         GOTO 14980
      IF L1 < 2 THEN _
         GOTO 14980
      IF LEN(HJ$) - L1 > 3 THEN _
         GOTO 14980
* REPLACING old line(s) by new
* ------[ first line different ]------
15250 CALL MMINTEGER ("# seconds to delay prior to issuing modem commands (1 to 99)?",1,99,MODEM.COMMAND.DELAY.TIME) ' KG072902
      RETURN
* REPLACING old line(s) by new
15460 GOSUB 17340
      MAIN.MESSAGE.FILE$ = HJ$
* ------[ first line different ]------
      CALL BRKFNAME (HJ$,X1$,X2$,X3$,TRUE)                           ' DA082104
      MAIN.MESSAGE.BACKUP$ = X1$ + X2$ + ".BAK"                      ' DA082104
      MAINMSG$ = MAIN.MESSAGE.FILE$
      RETURN
'
' * DETERMINE THE NAME OF THE "CALLERS" FILE
'
* REPLACING old line(s) by new
15710 CLS
      GOSUB 15780
      PRINT "         Currently Specified Modem Commands are:"
      PRINT
      PRINT "  Note:  '{' means embed carriage return  '~' means delay 1 sec"
      PRINT
      PRINT "1. Reset the modem                : " + USER.RESET.COMMAND$
      PRINT ""
      PRINT "2. Initialize the modem           : " + USER.INIT.COMMAND$
* ------[ first line different ]------
      PRINT "   Note: Item 2 MUST contain one of the following:"          ' DA080503
      PRINT "            S0=001  (to answer on 0 rings)"                  ' DA080503
      PRINT "            S0=254  (to answer on >0 rings, no ring-back)"   ' DA080503
      PRINT "            S0=255  (to answer on >0 rings, with ring-back"
      PRINT ""
      PRINT "3. Count the number of rings      : " + USER.COUNT.RINGS.COMMAND$
      PRINT ""
      PRINT "4. Answer the phone               : " + USER.ANSWER.COMMAND$
      PRINT ""
      PRINT "5. Take the phone off the hook    : " + USER.GO.OFFHOOK.COMMAND$
      PRINT ""
      PRINT "6. Clear the modem's firmware     : " + USER.FIRMWARE.CLEAR.CMND$
      PRINT ""
      PRINT "7. Initialize modem's firmware    : " + USER.INITIALIZE.COMMAND$ ' DA080503
      PRINT ""
      PRINT "8. Write to modem's firmware      : " + USER.FIRMWARE.WRITE.CMND$
      CALL GETINIT ("Command to change (1 to 8), CR to end, or 0 to reset to defaults",24,0,8,I,CR)
      IF CR THEN _
         RETURN
      IF I <> 0 THEN _
         GOTO 15711
      GOSUB 15790
      GOTO 15710
* REPLACING old line(s) by new
* ------[ first line different ]------
15790 CALL SELMODEM                                                  ' DA080503
      RETURN
* REPLACING old line(s) by new
15862 A$ = "File extension for macro files (3 chars required)"
      CALL ASKRO (A$,24,MACRO.EXTENSION$)
      IF LEN(MACRO.EXTENSION$) <> 3 THEN _
         GOTO 15862
* ------[ first line different ]------
      CALL ALLCAPS(MACRO.EXTENSION$)                                 ' DA082105
      RETURN
* REPLACING old line(s) by new
16128 IF FOSSIL OR B1! < 38400 THEN _
         GOTO 16129
      CLS
      LOCATE 5,13
      PRINT "38400 available only with FOSSIL driver"
      LOCATE 6,10
      PRINT "First set communications port and fossil driver"
      CALL ASKRO ("  INITIAL BAUD RATE not changed.  Press [ENTER] to continue",10,ANS$)
* ------[ first line different ]------
      RETURN
* REPLACING old line(s) by new
* ------[ first line different ]------
17280 CALL ASKRO("Name of file shown for security breaches (prefix ONLY)",24,HJ$) ' KG030301
      IF LEN(HJ$) > 8 OR INSTR(HJ$,".") > 0 THEN _
         GOTO 17280
      IF LEN(HJ$) < 1 THEN _
         SECVIO.HLP$ = NONE.PICKED$ : _
         RETURN
      CALL ALLCAPS (HJ$)
      SECVIO.HLP$ = HELP.PATH$ + HJ$ + "." + HELP.EXTENSION$
      RETURN
* REPLACING old line(s) by new
18102 IF START.INDIV = 0 OR LEN.INDIV = 0 THEN_
        INDIV.ID$ = NONE.PICKED$ _
      ELSE INDIV.ID$ = "(nonstandard)"
      START.WRITE = START.INDIV
* ------[ first line different ]------
      LEN.WRITE = LEN.INDIV                                          ' KG060103
      GOSUB 17805
      IF NOT OK THEN _
         START.INDIV = 0 : _
         LEN.INDIV = 31 : _
         GOTO 18102
      START.WRITE = START.INDIV
      RETURN
* REPLACING old line(s) by new
22340 LOCATE 22,1
      PRINT SPACE$(15) + _
            TIME$ + _
            " " + _
            SPACE$(64);
      LOCATE 22,35
      COLOR 0,7
      PRINT " Reading Data, Wait a sec !!! ";
* ------[ first line different ]------
      COLOR FG,BG,BORDER                                             ' KG073103
* INSERTING new line(s)
22342 RETURN                                                         ' KG073103
'
' * BEFORE EXITING, ASK USER IF HE WANTS TO WRITE OUT THE CHANGES OR QUIT
'
* REPLACING old line(s) by new
* ------[ first line different ]------
22350 CALL ASKRO ("Save changes?  Y)es & exit, N)o - reedit, Q)uit don't save (Y,N,Q)",24,HJ$) ' KG080902
      IF LEN(HJ$) < 1 OR LEN(HJ$) > 4 THEN _
         GOTO 22350                                                  ' KG081001
      CALL ALLCAPS (HJ$)
      AB = INSTR("NYQ",LEFT$(HJ$,1))                                 ' KG080903
      ON AB GOTO 12190,59000,60360                                   ' KG081001
      GOTO 22350                                                     ' KG081001
'
' * ASK THE USER WHICH RBBS-PC.DEF FILE CONFIG IS TO WORK WITH
'
* DELETING old line(s)
22380
22470
* REPLACING old line(s) by new
* ------[ first line different ]------
23610 I = LOC(1) + VAL(MID$(MESSAGE.RECORD$,117,4)) - 1              ' KG072802
      RETURN
'
' * REPAIR THE MESSAGES FILE
'
* REPLACING old line(s) by new
23731 LOCATE 25,5
      COMPORT% = VAL(RIGHT$(COM.PORT$,1)) -1
      IF COMPORT% < 0 THEN _
         PRINT "COM port cannot be set while using COM0" : _
         DELAY! = FNTI! + 3 : _
         GOSUB 60440 : _
* ------[ first line different ]------
         RETURN
      FOS.BUF$ = SPACE$(80)                                          ' DA080502
      CLS                                                            ' DA080502
      PRINT "Setting modem firmware for RBBS-PC on " + COM.PORT$     ' DA080502
      IF NOT FOSSIL THEN _                                           ' DA080502
         GOTO 23732                                                  ' DA080502
      CALL FOSINIT(COMPORT%,RESULT%)                                 ' DA080502
      IF RESULT% = -1 THEN _                                         ' DA080502
         PRINT "ERROR initializing FOSSIL.  Firmware reset aborted." : _  ' DA080502
         GOTO 23736                                                  ' DA080502
      CALL FOSSPEED(COMPORT%,2400, 2, 3, 1)                          ' DA080502
      STATE% = 1                                                     ' DA080502
      CALL FOSDTR(COMPORT%,STATE%)                                   ' DA080502
      GOTO 23733                                                     ' DA081002
* REPLACING old line(s) by new
* ------[ first line different ]------
23732 OUT MODEM.CONTROL.REGISTER,&H0                                 ' DA080501
      OUT LINE.CONTROL.REGISTER - 1,&H6                              ' DA080501
      OPEN COM.PORT$ + ":2400,N,8,1,CD,DS" AS #3                     ' DA080502
* INSERTING new line(s)
23733 A$ = USER.FIRMWARE.CLEAR.CMND$ ' Clear to factory defaults     ' DA080502
      GOSUB 23736                                                    ' DA080502
      A$ = USER.INITIALIZE.COMMAND$  ' set up RBBS-PC config         ' DA080502
      GOSUB 23736                                                    ' DA080502
      A$ = USER.FIRMWARE.WRITE.CMND$ ' Write changes to NVRam        ' DA080502
      GOSUB 23736                                                    ' DA080502
      IF FOSSIL THEN _                                               ' DA080502
         STATE% = 0 : _                                              ' DA080502
         CALL FOSDTR(COMPORT%,STATE%) : _                            ' DA080502
         CALL FOSEXIT(COMPORT%) : _                                  ' DA080502
      ELSE CLOSE #3                                                  ' DA080502
      PRINT "Press a key to continue"                                ' DA080502
      WHILE INKEY$ = "" : WEND                                       ' DA080502
      RETURN                                                         ' DA080502
'                                                                    ' DA080502
' * ROUTINE TO SEND/RECEIVE DATA FROM MODEM                          ' DA080502
'                                                                    ' DA080502
* DELETING old line(s)
23734
* REPLACING old line(s) by new
* ------[ first line different ]------
23736 PRINT "Send:"                                                  ' DA080502
      WHILE INSTR(A$, "{")                                           ' DA080502
         MID$(A$, INSTR(A$,"{"), 1) = CHR$(13)                       ' DA081005
      WEND                                                           ' DA080502
      WHILE INSTR(A$, "~")                                           ' DA080502
         WAIT.FOUND = INSTR(A$,"~")                                  ' DA080502
         TEMP.A$ = MID$(A$, WAIT.FOUND + 1)                          ' DA080502
         A$ = LEFT$(A$, WAIT.FOUND - 1)                              ' DA080502
         GOSUB 23739                                                 ' DA080502
         DELAY! = FNTI! + 1                                          ' DA080502
         GOSUB 60440                                                 ' DA080502
         A$ = TEMP.A$                                                ' DA080502
      WEND                                                           ' DA080502
      A$ = A$ + CHR$(13)                                             ' DA081005
      GOSUB 23739                                                    ' DA080502
      DELAY! = FNTI! + 3                                             ' DA080502
      GOSUB 60440                                                    ' DA080502
      PRINT "Receive:"                                               ' DA080502
      IF NOT FOSSIL THEN _                                           ' DA080502
         GOTO 23738                                                  ' DA080503
      FOS.LEN% = 80                                                  ' DA080503
      CALL FOSREAD(COMPORT%, FOS.LEN%, FOS.BUF$)                     ' DA080502
      PRINT LEFT$(FOS.BUF$,FOS.LEN%)                                 ' DA080503
      RETURN                                                         ' DA080502
* INSERTING new line(s)
23738 WHILE LOC(3) > 1                                               ' DA080502
         INPUT #3, A$                                                ' DA080502
         PRINT A$                                                    ' DA080502
      WEND                                                           ' DA080502
      RETURN                                                         ' DA080502
* REPLACING old line(s) by new
* ------[ first line different ]------
23739 PRINT A$;                                                      ' DA080502
      IF NOT FOSSIL THEN_                                            ' DA080502
         PRINT #3, A$; _                                             ' DA080502
      ELSE _                                                         ' DA080502
         CALL FOSWRITE(COMPORT%,LEN(A$),A$)                          ' DA080502
      RETURN                                                         ' DA080502
'
' * ROUTINE TO RENUMBER THE MESSAGE FILE
'
* REPLACING old line(s) by new
* ------[ first line different ]------
23750 REDIM MSG.XREF(MAXIMUM.NUMBER.OF.MSGS,2)                       ' KG072801
      MSG.XREF.INDX = 0                                              ' dd062790
      B1 = CALLS.TODATE!                                             ' dd062790
      CALL GETINIT ("Renumber starting with OLD message # (<" + _
                     STR$(CALLS.TODATE! + 1) + _
                    ")",24,1,B1,RE,CR)
      IF CR THEN _
         RETURN
* REPLACING old line(s) by new
* ------[ first line different ]------
23900 A$ = "Reset last message read for all users"                   ' dd062790
      GOSUB 22580
* REPLACING old line(s) by new
23905 GOSUB 24020
      GOSUB 24025
      A! = HIGHEST.USER.RECORD
* ------[ first line different ]------
      XX$ = "Resetting Last Msg Read by User.  Processing Record #"  ' dd062790
      GOSUB 50345
      FOR J = 1 TO A!
         GET 1,J
         LOCATE 24,X
         PRINT J;
         HASH.VALUE$ = MID$(USER.RECORD$,START.HASH,LEN.HASH)
         LSET COMP.USER$ = HASH.VALUE$
         IF ASC(HASH.VALUE$) = 0 OR _
            COMP.USER$ = NEW.USER$ OR _
            COMP.USER$ = EMPTY.USER$ THEN _
              GOTO 23955
         FORMER.LAST.MSG = CVI(MID$(USER.OPTIONS$,3,2))              ' dd062790
         MSG.XREF.INDX = 1                                           ' KG072801
* INSERTING new line(s)
23906    IF MSG.XREF.INDX > MAXIMUM.NUMBER.OF.MSGS THEN _            ' KG072801
            GOTO 23907                                               ' KG072801
            IF FORMER.LAST.MSG = MSG.XREF(MSG.XREF.INDX,1) THEN _    ' dd062790
               NEW.LAST.MSG = MSG.XREF(MSG.XREF.INDX,2) : _          ' dd062790
               GOTO 23907                                            ' KG072801
            IF FORMER.LAST.MSG < MSG.XREF(MSG.XREF.INDX,1) THEN _    ' dd062790
               NEW.LAST.MSG = MSG.XREF(MSG.XREF.INDX - 1,2) : _      ' dd062790
               GOTO 23907                                            ' KG072801
            MSG.XREF.INDX = MSG.XREF.INDX + 1                        ' KG072801
         GOTO 23906                                                  ' KG072801
23907    IF FORMER.LAST.MSG = 0 THEN NEW.LAST.MSG = 0                ' KG072801
         MID$(USER.OPTIONS$,3,2) = MKI$(NEW.LAST.MSG)                ' dd062790
         PUT 1,J
* REPLACING old line(s) by new
24010 LOCATE 24,15
      PRINT "Msg #" ; MID$(MESSAGE.RECORD$,1,5);
* ------[ first line different ]------
      CURRENT.MSG.NUMBER = VAL(MID$(MESSAGE.RECORD$,2,4))            ' dd062790
      IF CURRENT.MSG.NUMBER < RE THEN _                              ' dd062790
         PRINT " read"; : _
         MSG.XREF.INDX = MSG.XREF.INDX + 1 : _                       ' dd062790
         MSG.XREF(MSG.XREF.INDX, 1) = CURRENT.MSG.NUMBER : _         ' dd062790
         MSG.XREF(MSG.XREF.INDX, 2) = CURRENT.MSG.NUMBER : _         ' dd062790
         RETURN
      Y$ = MID$(MESSAGE.RECORD$,1,1)
      MID$(MESSAGE.RECORD$,1,5) = SPACE$(5)
      NE = NE + 1
      MID$(MESSAGE.RECORD$,1,5) = STR$(NE)
      MID$(MESSAGE.RECORD$,1,1) = Y$
      PRINT " renumbered as Msg #" + MID$(MESSAGE.RECORD$,1,5)
      PUT 1,I
      MSG.XREF.INDX = MSG.XREF.INDX + 1                              ' dd062790
      MSG.XREF(MSG.XREF.INDX, 1) = CURRENT.MSG.NUMBER                ' dd062790
      MSG.XREF(MSG.XREF.INDX, 2) = NE                                ' dd062790
      RETURN
'
' * ROUTINE TO PACK THE USERS FILE
'
* REPLACING old line(s) by new
24800 CLS
      I! = FRE(C$)
      COLOR 0,7,0
      LOCATE 1,10
* ------[ first line different ]------
      PRINT "RBBS-PC Default Configuration " + CONFIG.VERSION$;      ' DA081003
      IF CONFERENCE.MODE THEN _
         GOSUB 24970
      COLOR FG,BG,BORDER
      PRINT " Page" + STR$(DISPLAYED.PAGE.NUMBER) + " of" + STR$(MAXIMUM.DISPLAYABLE.PAGES)
      RETURN
'
' * ROUTINE TO DISPLAY CONFERENCE MAINTENANCE MODE IN CONFIG'S DISPLAYS
'
* REPLACING old line(s) by new
24970 LOCATE 2,1
      PRINT SPACE$(10)
* ------[ first line different ]------
      LOCATE 2,10                                                    ' KG062303
      COLOR 31,0,0
      PRINT "(Conference Maintenance Mode for " + _                  ' KG062303
            ZConfName$ + _                                           ' KG062303
            ")";                                                     ' KG062303
      RETURN
'
' * COMMON SUBROUTINE TO DISPLAY ACTIVITY WHEN PACKING/PURGING FILES
'
* REPLACING old line(s) by new
25050 CALL ASKRO ("Enter the name of the conference (7 characters or less) ",24,HJ$)
      IF LEN(HJ$) < 1 OR LEN(HJ$) > 7 THEN _
         GOTO 25040
      CALL ALLCAPS (HJ$)
* ------[ first line different ]------
      ZConfName$ = HJ$                                               ' KG062302
      CP$ = HJ$
* REPLACING old line(s) by new
* ------[ first line different ]------
25090 CALL BRKFNAME (MAINMSG$,X1$,X2$,X3$,TRUE)                      ' DA082102
      FILE$ = X1$ + CP$ + "M.DEF"                                    ' DA082102
      MAIN.MESSAGE.FILE$ = FILE$                                     ' DA082501
      GOSUB 30000                                                    ' DA082501
      IF OKAY THEN _                                                 ' DA082501
         GOTO 25100                                                  ' DA082501
      CALL BRKFNAME (CONFERENCE.MENU$,X1$,X2$,X3$,TRUE)              ' DA082501
      FILE$ = X1$ + CP$ + "M.DEF"                                    ' DA082501
      GOSUB 30000                                                    ' DA082501
      IF OKAY THEN _                                                 ' DA082501
         MAIN.MESSAGE.FILE$ = FILE$                                  ' DA082501
* INSERTING new line(s)
25100 CALL BRKFNAME (MAINUSR$,X1$,X2$,X3$,TRUE)                      ' DA082501
      FILE$ = X1$ + CP$ + "U.DEF"                                    ' DA082501
      MAIN.USER.FILE$ = FILE$                                        ' DA082501
      GOSUB 30000                                                    ' DA082501
      IF OKAY THEN _                                                 ' DA082501
         GOTO 25160                                                  ' DA082501
      FILE$ = CP$ + "U.DEF"                                          ' KG082501
      GOSUB 30000                                                    ' DA082501
      IF OKAY THEN _                                                 ' DA082501
         MAIN.USER.FILE$ = FILE$ : _                                 ' DA082501
         GOTO 25160                                                  ' DA082501
* REPLACING old line(s) by new
* ------[ first line different ]------
25142 CALL GETNUMYN ("Make a user's file for this conference?",AB)   ' KG082501
      IF AB THEN _
         GOTO 25160
* REPLACING old line(s) by new
25144 CONFERENCE.MODE = 2
* ------[ first line different ]------
      MAIN.USER.FILE$ = MAINUSR$                                     ' DA082501
      GOTO 25170
* REPLACING old line(s) by new
* ------[ first line different ]------
25160 CONFERENCE.MODE = 1                                            ' DA082501
      UG = 0
* REPLACING old line(s) by new
26080 CALL GETINIT ("Select network mail type (0 to 5, CR to end)",24,0,5,AB,CR)
* ------[ first line different ]------
      NET.MAIL$ = NONE.PICKED$                                       ' KG080301
      IF AB = 1 THEN _
         NET.MAIL$ = "SeaDog"
      IF AB = 2 THEN _
         NET.MAIL$ = "BINKLEY TERM"
      RETURN
* REPLACING old line(s) by new
* ------[ first line different ]------
31040 LSET RR$ = " 0      " + _               ' NUMBER OF LAST MESSAGE  ' DA061001
                 MKI$(0) + _                  ' SECURITY LEVEL TO AUTO-ADD USER
                 SPACE$(116) + _              ' BLANKS IN ALL OTHER FIELDS
                 RIGHT$("0"+MID$(STR$(MAXIMUM.NUMBER.OF.NODES),2),2)
      RETURN
'
' * COMMON SUBROUTINE TO CREATE A BLANK "NODE" RECORD IN THE MESSAGE FILE
'
* REPLACING old line(s) by new
59080 CLOSE #1
'
' * NOTIFY THE SYSOP THAT THE CONFIGURATION DESCRIPTION FILE HAS BEEN WRITTEN
'
      CLS
      LOCATE 12,1,1
* ------[ first line different ]------
      PRINT "Saved RBBS-PC configuration description file " ; CONFIG.FILENAME$ ' KG080904
      GOTO 60340                                                     ' DA081006
'
' *  CONFIG.BAS'S ERROR ROUTINES
'
* REPLACING old line(s) by new
60010 '* HANDLE ERROR CONDITIONS *
      IF ERR = 62 AND _
        (ERL = 11600 OR _
         ERL = 11620 OR _
         ERL = 11640 OR _
         ERL = 11660 OR _
         ERL = 11680 OR _
         ERL = 11700 OR _
         ERL = 11705 OR _
         ERL = 11706) THEN _
         PRINT CONFIG.FILENAME$ + _
               " from a version earlier than " + CONFIG.VERSION$ + " on default drive." : _
         PRINT "Please delete and rerun CONFIG." : _
         RESUME 60340
      IF ERL = 15780 AND ERR = 5 AND _
         INSTR(USER.INIT.COMMAND$,"S0=") = 0 THEN _
         RESUME 16073
* ------[ first line different ]------
      IF ERL = 22340 THEN _                                          ' KG073103
         RESUME 22342                                                ' KG073103
      IF ERL = 31000 AND ERR = 58 THEN _
         KILL A$ : _
         RESUME 31000
      IF ERL = 31030 AND ERR = 58 THEN _
         KILL A$ : _
         RESUME 31030
      IF ERL = 22120 AND ERR = 6 THEN _
         RESUME 22100
      IF ERL = 24750 AND ERR = 58 THEN _
         KILL A$ : _
         RESUME 24750
      IF ERL = 31020 THEN _
         PRINT "Unable to kill ";MAIN.MESSAGE.FILE$;".  Error";STR$(ERR):_
         RESUME 31035
      IF ERL = 50490 AND ERR = 58 THEN  _
         RESUME 50500
      IF ERL = 50540 AND ERR = 58 THEN  _
         RESUME 50550
      IF ERL = 50490 OR ERL = 50540 THEN _
         RESUME 15230
      IF ERL = 60471 THEN _
         IF ERR <> 76 THEN _
            RESUME 60478 _
         ELSE RESUME 60474
      IF ERL = 60480 THEN _
         PRINT "ERROR -";ERR;" UNABLE TO CREATE SUBDIRECTORY" : _
         RESUME 60478
      IF ERR = 61 THEN _
         PRINT "ERROR - IBM DOS DISKETTE FULL " : _
         RESUME 60340
      IF ERR = 67 THEN _
         PRINT "ERROR - IBM DOS DIRECTORY FULL" : _
         RESUME 60340
      IF ERR = 70 THEN _
         PRINT "DISKETTE IN DRIVE IS WRITE PROTECTED" : _
         RESUME 60340
      IF ERR = 71 THEN _
         PRINT "DRIVE DOOR OPEN OR MISSING DISKETTE"  : _
         RESUME 60340
      IF ERR = 72 THEN _
         PRINT "ERROR - UNFORMATTED IBM DOS DISKETTE IN DRIVE" : _
         RESUME 60340
      PRINT "+++ Error";ERR;" in line ";ERL "occurred at " TIME$ " on " DATE$