home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / CDOR0811.ZIP / CDORMRGS.ZIP / CNFGCDOR.MRG < prev    next >
Encoding:
Text File  |  1993-08-11  |  65.5 KB  |  1,421 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against CONFIG.BAS to produce CONFIG.NEW
  3. * CONFIG.BAS:  Date 6-20-92  Size 157813 bytes
  4. * ------------[ Created 08-11-1993 19:32:22 ]------------
  5. * REPLACING old line(s) by new
  6. 10000 ' CONFIG.BAS (RBBS-PC VERSION 17.4)
  7.       'by D. Thomas Mack, 39 Cranbury Drive, Trumbull, CT 06611 (up to 16)
  8.       '  Jon Martin, 4396 N Prairie Willow Ct, Concord, CA 94521 (up to 17.2B)
  9.       '  Ken Goosens, 5020 Portsmouth Road, Fairfax, VA 22032
  10.       '  Doug Azzarito, 5480 Eagle Lake Drive, Palm Beach Gardens, FL 33418
  11.       '
  12.       ' *******************************NOTICE**********************************
  13.       ' *  A limited license is granted to all users of this program and it's *
  14.       ' *  companion program, RBBS-PC (ver. 17.4), to make copies of this     *
  15.       ' *  program and distribute the copies to other users, on the following *
  16.       ' *  conditions                                                         *
  17.       ' *   1.   The copyright notices contained within this program are not  *
  18.       ' *        altered, bypassed, or removed.                               *
  19.       ' *   2.   The program is not to be disrtibuted to others in modified   *
  20.       ' *        form (i.e. the line numbers must remain the same).           *
  21.       ' *   3.   No fee is charged (or any other consideration received)      *
  22.       ' *        for coping or distributing these programs without an express *
  23.       ' *        written agreement with the authors.                          *
  24.       ' *                                                                     *
  25.       ' *      Copyright (c) 1983-1992 D. Thomas Mack, The Second Ring        *
  26.       ' ***********************************************************************
  27. '     $INCLUDE: 'CNFG-VAR.BAS'
  28.       CLEAR
  29. '
  30. ' ****************************************************************************
  31. ' *  DISPLAY THE CONFIG TITLE PAGE
  32. ' ****************************************************************************
  33. '
  34. * ------[ first line different ]------
  35.       WIDTH 80,25                                                    ' DD071903
  36.       CLS
  37.       NOT.YET.IN$ = "[Not Implemented]"  ' Msg used in config for parm not yet implemented
  38.       NONE.PICKED$ = "<none>"    ' Standardized message
  39.       NUM.FILES = 8
  40.       NUM.GLOBAL = 4
  41.       NUM.MAIN = 18
  42.       NUM.SYSOP = 8                                                  ' DD020602/SFILE
  43.       NUM.UTILITY = 12
  44.       NUM.LIBRARY = 7
  45.       VERSION.NUMBER$ = "17.4CDor"                                   ' DD091002
  46.       I! = FRE(C$)
  47.       KEY OFF
  48.       CALL CNFGINIT
  49.       PRINT TAB(60)"tm"
  50.       PRINT TAB(16) STRING$(15,205)" U S E R W A R E "STRING$(15,205)
  51.       PRINT
  52.       PRINT TAB(17)"Capital PC User Group User-Supported Software"
  53.       PRINT
  54.       X$ = "    "
  55.       PRINT "Copyright (c) 1983-1992 D. Thomas Mack, 39 Cranbury Dr., Trumbull, CT. 06611"
  56.       PRINT
  57.       PRINT X$;"    If you use RBBS-PC " + CONFIG.VERSION$ + " and find"
  58.       PRINT X$;"    it valuable, consider contributing to"
  59.       PRINT ""
  60.       PRINT X$;"                 Capital PC User Group"
  61.       PRINT X$;"                 51 Monroe Street"
  62.       PRINT X$;"                 Plaza East Two"
  63.       PRINT X$;"                 Rockville, Maryland  20850"
  64.       PRINT
  65.       PRINT X$;"    You are free to copy and share RBBS-PC provided"
  66.       PRINT X$;"      1.  This program is not distributed in modified form."
  67.       PRINT X$;"      2.  No fee or consideration is charged for RBBS-PC itself."
  68. * REPLACING old line(s) by new
  69. 10230 PRINT X$;"      3.  This notice is not bypassed or removed."
  70.       PRINT
  71. '
  72. ' *  DEFINE THE FUNCTIONS USED BY CONFIG
  73. '
  74.       DEF FNTI! = CSNG(FIX((VAL(MID$(TIME$,1,2)) * 60 * 60) _
  75.                          + (VAL(MID$(TIME$,4,2)) * 60) _
  76.                          + (VAL(MID$(TIME$,7,2)) * 1)))
  77.       DEF FNHSH(X$) = ((ASC(X$) * 100  _
  78.                          + ASC(MID$(X$,(LEN(X$)/2) + .1,1)) * 10  _
  79.                          + ASC(RIGHT$(X$,1))) MOD MAX.USR.FILE.SIZE.FRM.DEF) + 1
  80.       DEF FNHSH2(X$) = (ASC(MID$(X$,2,1)) * 10 + 7) MOD MAX.USR.FILE.SIZE.FRM.DEF
  81. * ------[ first line different ]------
  82.       DELAY! = FNTI! + 1                                             ' Mpl090501
  83. * REPLACING old line(s) by new
  84. 11600 INPUT #1,CONFIG.FILE.VER$, _
  85.                DOWNLOAD.DRIVES$, _
  86.                SYSOP.PASSWORD.1$, _
  87.                SYSOP.PASSWORD.2$, _
  88.                SYSOP.FIRST.NAME$, _
  89.                SYSOP.LAST.NAME$, _
  90.                REQUIRED.RINGS, _
  91.                START.OFFICE.HOURS, _
  92.                END.OFFICE.HOURS, _
  93.                MINUTES.PER.SESSION!, _
  94.                MAX.ALLOWED.MSGS.FRM.DEF, _
  95.                ACT.MNTHS.B4.DELETING, _
  96.                UPLOAD.DIRECTORY$, _
  97. * ------[ first line different ]------
  98.                SKIPMAILCHECK, _                                      ' DD122602
  99.                ACTIVE.BULLETINS, _
  100.                PROMPT.BELL, _
  101.                LOCAL.PAGE.LENGTH, _                        'was PCJR ' DD021903/VGA
  102.                MENUS.CAN.PAUSE, _
  103.                MENU$(1), _
  104.                MENU$(2), _
  105.                MENU$(3), _
  106.                MENU$(4), _
  107.                MENU$(5), _
  108.                MENU$(6), _
  109.                CONFERENCE.MENU$, _
  110.                TEST.ANSI.TIME, _
  111.                WELCOME.INTERRUPTABLE, _
  112.                SHOW.ALL.WHOS.ON, _   ' was REMIND.FILE.TRANSFERS     ' DD052001
  113.                PAGE.LENGTH, _
  114.                MAX.MESSAGE.LINES, _
  115.                DOORS.AVAILABLE, _
  116.                MO$
  117.       IF LOCAL.PAGE.LENGTH = 0 THEN LOCAL.PAGE.LENGTH = 25           ' DD021903/VGA
  118.       IF RIGHT$(SYSOP.LAST.NAME$,1) <> CHR$(255) THEN _              ' DD121201
  119.          SYSOP.LAST.NAME$ = SYSOP.LAST.NAME$ + CHR$(255)             ' DD121201
  120.       IF LEFT$(CONFIG.FILE.VER$,5) > LEFT$(VERSION.NUMBER$,5) OR _   ' DD091002
  121.          CONFIG.FILE.VER$ < "17.1A" THEN _
  122.          PRINT "Config DEF file, " + CONFIG.FILENAME$ + " not " + CONFIG.VERSION$ : _
  123.          END
  124.       GOSUB 22340
  125. * REPLACING old line(s) by new
  126. 11640 INPUT #1,OMIT.MAIN.DIRECTORY$, _
  127.                FIRST.NAME.PROMPT$, _
  128.                HELP$(3), _
  129.                HELP$(4), _
  130.                HELP$(7), _
  131.                HELP$(9), _
  132.                BULLETIN.MENU$, _
  133.                BULLETIN.PREFIX$, _
  134.                DRIVE.FOR.BULLETINS$, _
  135.                MESSAGE.REMINDER, _
  136.                REQUIRE.NON.ASCII, _
  137.                ASK.EXTENDED.DESC, _
  138.                MAXIMUM.NUMBER.OF.NODES, _
  139.                NETWORK.TYPE, _
  140. * ------[ first line different ]------
  141.                UPDATE.ONLINE, _              'was RECYCLE.TO.DOS     ' DD052301
  142.                MAX.USR.FILE.SIZE.FRM.DEF, _
  143.                MAX.MSG.FILE.SIZE.FRM.DEF!, _
  144.                TRASHCAN.FILE$
  145.       DONT.ASK = TRUE
  146.       GOSUB 21895
  147.       DONT.ASK = FALSE
  148.       GOSUB 22340
  149. * REPLACING old line(s) by new
  150. 11660 INPUT #1,MINIMUM.LOGON.SECURITY, _
  151.                DEFAULT.SECURITY.LEVEL, _
  152.                SYSOP.SECURITY.LEVEL, _
  153.                FILESEC.FILE$, _
  154.                SYSOP.MENU.SECURITY.LEVEL, _
  155.                CONFMAIL.LIST$, _
  156.                MAXIMUM.VIOLATIONS, _
  157.                SYSOP.FUNCTION(1), _
  158.                SYSOP.FUNCTION(2), _
  159.                SYSOP.FUNCTION(3), _
  160.                SYSOP.FUNCTION(4), _
  161.                SYSOP.FUNCTION(5), _
  162.                SYSOP.FUNCTION(6), _
  163. * ------[ first line different ]------
  164.                SYSOP.FUNCTION(7)                                     ' DD020602/SFILE
  165.       IF RIGHT$(CONFIG.FILE.VER$,4) = "CDor" THEN _                  ' DD020602/SFILE
  166.       INPUT #1,SYSOP.FUNCTION(8)                                     ' DD020602/SFILE
  167.       INPUT #1,PASSWORD.FILE$, _                                     ' DD020602/SFILE
  168.                MAXIMUM.PASSWORD.CHANGES, _
  169.                MINIMUM.SECURITY.FOR.TEMP.PASSWORD, _
  170.                OVERWRITE.SECURITY.LEVEL, _
  171.                DOORS.TERMINAL.TYPE, _
  172.                MAX.PER.DAY
  173.       GOSUB 22340
  174. * REPLACING old line(s) by new
  175. 11700 INPUT #1,FILES.FUNCTION(1), _
  176.                FILES.FUNCTION(2), _
  177.                FILES.FUNCTION(3), _
  178.                FILES.FUNCTION(4), _
  179.                FILES.FUNCTION(5), _
  180.                FILES.FUNCTION(6), _
  181.                FILES.FUNCTION(7), _
  182.                FILES.FUNCTION(8), _
  183.                UTILITY.FUNCTION(1), _
  184.                UTILITY.FUNCTION(2), _
  185.                UTILITY.FUNCTION(3), _
  186.                UTILITY.FUNCTION(4), _
  187.                UTILITY.FUNCTION(5), _
  188.                UTILITY.FUNCTION(6), _
  189.                UTILITY.FUNCTION(7), _
  190.                UTILITY.FUNCTION(8), _
  191.                UTILITY.FUNCTION(9), _
  192.                UTILITY.FUNCTION(10), _
  193.                UTILITY.FUNCTION(11), _
  194.                UTILITY.FUNCTION(12), _
  195.                GLOBAL.FUNCTION(1), _
  196.                GLOBAL.FUNCTION(2), _
  197.                GLOBAL.FUNCTION(3), _
  198.                GLOBAL.FUNCTION(4), _
  199.                UPLOAD.TIME.FACTOR!, _
  200. * ------[ first line different ]------
  201.                SHOW.TIMES.DOWNLOADED, _  'was COMPUTER.TYPE          ' DD052301
  202.                REMIND.PROFILE, _
  203.                RBBS.NAME$, _
  204.                COMMANDS.BETWEEN.RINGS, _
  205.                ZCopyrightSecs, _
  206.                PAGING.PRINTER.SUPPORT$, _
  207.                MODEM.INIT.BAUD$
  208.       GOSUB 22340
  209. * REPLACING old line(s) by new
  210. 11705 INPUT #1,TURN.PRINTER.OFF, _
  211.                DIRECTORY.PATH$, _
  212.                MIN.SEC.TO.VIEW, _
  213.                LIMIT.SEARCH.TO.FMS, _
  214.                DEFAULT.CATEGORY.CODE$, _
  215.                DIR.CATEGORY.FILE$, _
  216.                NEW.FILES.CHECK, _
  217.                MAX.DESC.LEN, _
  218.                SHOW.SECTION, _
  219.                COMMANDS.IN.PROMPT, _
  220.                NEWUSER.SETS.DEFAULTS, _
  221.                HELP.PATH$, _
  222.                HELP.EXTENSION$, _
  223.                MAIN.COMMANDS$, _
  224.                FILE.COMMANDS$, _
  225.                UTIL.COMMANDS$, _
  226.                GLOBAL.COMMANDS$, _
  227.                SYSOP.COMMANDS$
  228. * ------[ first line different ]------
  229.       IF RIGHT$(CONFIG.FILE.VER$,4) = "CDor" THEN _                  ' DD020602/SFILE
  230.          IF LEN(SYSOP.COMMANDS$) = 7 THEN _                          ' DD020602/SFILE
  231.             SYSOP.COMMANDS$ = SYSOP.COMMANDS$ + "8"                  ' DD020602/SFILE
  232.       GOSUB 22340
  233. * REPLACING old line(s) by new
  234. 11706 INPUT #1,RECYCLE.WAIT, _
  235.                LIBRARY.FUNCTION(1), _
  236.                LIBRARY.FUNCTION(2), _
  237.                LIBRARY.FUNCTION(3), _
  238.                LIBRARY.FUNCTION(4), _
  239.                LIBRARY.FUNCTION(5), _
  240.                LIBRARY.FUNCTION(6), _
  241.                LIBRARY.FUNCTION(7), _
  242.                LIBRARY.DRIVE$, _
  243.                LIBRARY.DIRECTORY.PATH$, _
  244.                LIBRARY.DIRECTORY.EXTENTION$, _
  245.                LIBRARY.WORK.DISK.PATH$, _
  246.                LIBRARY.MAX.DISK, _
  247.                LIBRARY.MAX.DIRECTORY, _
  248.                LIBRARY.MAX.SUBDIR, _
  249.                LIBRARY.SUBDIR.PREFIX$, _
  250.                LIBRARY.ARCHIVE.PATH$, _
  251. * ------[ first line different ]------
  252.                FG.5.DEF$, _            'was LIBRARY.ARCHIVE.PROGRAM$ ' DD070203
  253.                LIBRARY.COMMANDS$
  254.       GOSUB 22340
  255.       INPUT #1,UPLOAD.PATH$, _
  256.                FMS.DIRECTORY$, _
  257.                ANS.MENU$,_
  258.                REQUIRED.QUESTIONNAIRE$,_
  259.                REMEMBER.NEW.USERS, _
  260.                SURVIVE.NOUSER.ROOM, _
  261.                PROMPT.HASH$, _
  262.                START.HASH, _
  263.                LEN.HASH, _
  264.                PROMPT.INDIV$, _
  265.                START.INDIV, _
  266.                LEN.INDIV
  267.       GOSUB 22340
  268.       INPUT #1,BYPASS.MSGS, _
  269.                DONT.SHOW.LOGOFF, _       'was MUSIC                  ' DD062806
  270.                RESTRICT.BY.DATE, _
  271.                DAYS.TO.WARN, _
  272.                DAYS.IN.SUBSCRIPTION.PERIOD, _
  273.                VOICE.TYPE, _
  274.                RESTRICT.VALID.CMDS, _
  275.                ZMinSecPersUpld, _
  276.                ZDistriHelp$, _
  277.                ZDistriPath$, _
  278.                FAST.FILE.LIST$, _
  279.                FAST.FILE.LOCATOR$, _
  280.                MESSAGES.CAN.GROW, _
  281.                WRAP.CALLERS.FILE$, _
  282.                REDIRECT.IO.METHOD, _
  283.                AUTO.UPGRADE.SEC, _
  284.                HALT.ON.ERROR, _
  285.                NEW.PUBLIC.MSGS.SECURITY, _
  286.                NEW.PRIVATE.MSGS.SECURITY, _
  287.                SECURITY.NEEDED.TO.CHANGE.MSGS, _
  288.                SL.CATEGORIZE.UPLOADS, _
  289.                ZNoQuoting, _
  290.                TIME.TO.DROP.TO.DOS, _
  291.                EXPIRED.SECURITY, _
  292.                DTR.DROP.DELAY, _
  293.                SHOW.XFER.TIME, _          'was ASK.IDENTITY          ' DD052301
  294.                MAX.REG.SEC, _
  295.                BUFFER.SIZE, _
  296.                MLCOM, _
  297.                SHOOT.YOURSELF, _
  298.                EXTENSION.LIST$, _
  299.                ZEnableCC, _
  300.                ZMaxBank, _
  301.                NET.MAIL$, _
  302.                MASTER.DIRECTORY.NAME$, _
  303.                PROTO.DEF$, _
  304.                UPCAT.HELP$, _
  305.                ALWAYS.STREW.TO$, _
  306.                LAST.NAME.PROMPT$
  307.       GOSUB 22340
  308.       INPUT #1,PERSONAL.DRVPATH$, _
  309.                PERSONAL.DIR$, _
  310.                PERSONAL.BEGIN, _
  311.                PERSONAL.LEN, _
  312.                PERSONAL.PROTOCOL$, _
  313.                PERSONAL.CONCAT , _
  314.                PRIVATE.READ.SEC, _
  315.                PUBLIC.READ.SEC, _
  316.                SEC.CHANGE.MSG, _
  317.                KEEP.INIT.BAUD, _
  318.                MAIN.PUI$, _
  319.                DEFAULT.ECHOER$, _
  320.                HOST.ECHO.ON$, _
  321.                HOST.ECHO.OFF$, _
  322.                SWITCH.BACK, _
  323.                DEFAULT.LINE.ACK$, _
  324.                ALTDIR.EXTENSION$, _
  325.                DIRECTORY.PREFIX$
  326.       GOSUB 22340
  327.       INPUT #1,SEC.LVL.EXEMPT.FRM.PURGING, _
  328.                MODEM.INIT.WAIT.TIME, _
  329.                MODEM.COMMAND.DELAY.TIME, _
  330.                NEWS.INTERRUPTABLE              'was TURBO.RBBS       ' DD051001
  331.       GOSUB 22340
  332. * REPLACING old line(s) by new
  333. 11707 INPUT #1,DNLD.SUB, _
  334.                WILL.SUBDIRS.B.USED, _
  335.                UPLOAD.TO.SUBDIR, _
  336.                DOWNLOAD.TO.SUBDIR, _
  337.                UPLOAD.SUBDIR$, _
  338.                MIN.OLDCALLER.BAUD, _
  339.                MAX.WORK.VAR, _
  340.                DISKFULL.GO.OFFLINE, _
  341.                EXTENDED.LOGGING, _
  342.                USER.RESET.COMMAND$, _
  343.                USER.COUNT.RINGS.COMMAND$, _
  344.                USER.ANSWER.COMMAND$, _
  345.                USER.GO.OFFHOOK.COMMAND$, _
  346.                DISK.FOR.DOS$, _
  347.                DUMB.MODEM, _
  348.                COMMENTS.AS.MESSAGES, _
  349.                LSB, _
  350.                MSB, _
  351.                LINE.CONTROL.REGISTER, _
  352.                MODEM.CONTROL.REGISTER, _
  353.                LINE.STATUS.REGISTER, _
  354.                MODEM.STATUS.REGISTER
  355.       GOSUB 22340
  356.       INPUT #1,KEEP.TIME.CREDITS, _
  357.                XON.XOFF, _
  358.                ALLOW.CALLER.TURBO, _
  359.                USE.DEVICE.DRIVER$, _
  360.                PRELOG$, _
  361.                NEW.USER.QUESTIONNAIRE$, _
  362.                EPILOG$, _
  363.                REGISTRATION.PROGRAM$, _
  364.                QUES.PATH$, _
  365.                USER.LOCATION$, _
  366.                USER.INITIALIZE.COMMAND$, _
  367.                USER.FIRMWARE.CLEAR.CMND$, _
  368.                USER.FIRMWARE.WRITE.CMND$, _
  369.                ENFORCE.UPLOAD.DOWNLOAD.RATIOS, _
  370.                SIZE.OF.STACK, _
  371.                SECURITY.EXEMPT.FROM.EPILOG, _
  372. * ------[ first line different ]------
  373.                USE.CALLERS.TXT, _                                    ' DD050701
  374.                DOSANSI, _
  375.                ESCAPE.INSECURE, _
  376.                DF, _
  377.                ADD.DIR.SECURITY, _
  378.                MAX.EXTENDED.LINES, _
  379.                DF$
  380.       GOSUB 22340
  381.       INPUT #1,LOGON.MAIL.LEVEL$, _
  382.                MACRO.DRVPATH$, _
  383.                MACRO.EXTENSION$, _
  384.                EMPHASIZE.ON.DEF$, _
  385.                EMPHASIZE.OFF.DEF$, _
  386.                FG.1.DEF$, _
  387.                FG.2.DEF$, _
  388.                FG.3.DEF$, _
  389.                FG.4.DEF$, _
  390.                SECVIO.HLP$, _
  391.                FOSSIL, _
  392.                MAX.CARRIER.WAIT, _
  393.                CALLER.BKGRD, _
  394.                SMART.TEXT, _
  395.                TIME.LOCK, _
  396.                WRITE.BUF.DEF, _
  397.                SEC.KILL.ANY, _
  398.                DOORS.DEF$, _
  399.                SCREEN.OUT.MSG$, _
  400.                AUTOPAGE.DEF$
  401.       OMIT.FROM.LOG = 0                                              ' DD091501
  402.       ADD.NAME.TO.DIR = 0                                            ' DD091501
  403.       IF RIGHT$(CONFIG.FILE.VER$,4) = "CDor" THEN _                  ' DD091501
  404.       INPUT #1,OMIT.FROM.LOG, _                                      ' DD091002
  405.                ADD.NAME.TO.DIR                                       ' DD090502
  406.       GOSUB 21905
  407.       GOSUB 22340
  408.       IF MAX.CARRIER.WAIT < 1 THEN _
  409.          MAX.CARRIER.WAIT = 30
  410.       CALL ANSIDECODE (FG.1.DEF$)
  411.       CALL ANSIDECODE (FG.2.DEF$)
  412.       CALL ANSIDECODE (FG.3.DEF$)
  413.       CALL ANSIDECODE (FG.4.DEF$)
  414.       IF LEFT$(FG.5.DEF$,1) <> CHR$(27) THEN                         ' DD070203
  415.          FG.5.DEF$ = FG.4.DEF$                                       ' DD070203
  416.       END IF                                                         ' DD070203
  417.       CALL ANSIDECODE (FG.5.DEF$)                                    ' DD070203
  418.       IF LEFT$(MACRO.EXTENSION$,1) = "." THEN _
  419.          MACRO.EXTENSION$ = RIGHT$(MACRO.EXTENSION$,LEN(MACRO.EXTENSION$)-1)
  420.       IF DNLD.SUB < 1 OR DNLD.SUB > 99 THEN _
  421.          GOTO 11710
  422.       FOR I = 1 TO DNLD.SUB
  423.          INPUT #1,DNLD$(I)
  424.       NEXT
  425.       GOSUB 22340
  426. '
  427. ' * CONVERT "RBBS-PC.DEF" PARAMETERS TO DISPLAYABLE VALUES, AS REQUIRED
  428. '
  429. * REPLACING old line(s) by new
  430. 11710 IF CALLERS.FILE$ = "" THEN _
  431.          CALLERS.FILE$ = NONE.PICKED$
  432.       IF ALTDIR.EXTENSION$ = "" THEN _
  433.          ALTDIR.EXTENSION$ = NONE.PICKED$
  434.       IF ALWAYS.STREW.TO$ = "" THEN _
  435.          ALWAYS.STREW.TO$ = NONE.PICKED$
  436.       IF QUES.PATH$ = "" THEN _
  437.          QUES.PATH$ = NONE.PICKED$
  438.       IF NEW.USER.QUESTIONNAIRE$ = "" THEN _
  439.          NEW.USER.QUESTIONNAIRE$ = NONE.PICKED$
  440.       IF REQUIRED.QUESTIONNAIRE$ = "" THEN _
  441.          REQUIRED.QUESTIONNAIRE$ = NONE.PICKED$
  442.       IF NET.MAIL$ = "NONE" THEN _
  443.          NET.MAIL$ = NONE.PICKED$
  444.       IF CONFMAIL.LIST$ = "" THEN _
  445.          CONFMAIL.LIST$ = NONE.PICKED$
  446.       X$ = BULLETIN.MENU$
  447.       CALL BRKFNAME (X$,Z$,BULLETIN.MENU$,Y$,-1)
  448.       IF Y$ <> "" THEN _
  449.          BULLETIN.MENU$ = BULLETIN.MENU$ + Y$
  450.       X$ = BULLETIN.PREFIX$
  451.       CALL BRKFNAME (X$,Z$,BULLETIN.PREFIX$,Y$,-1)
  452. * ------[ first line different ]------
  453.       IF SHOW.XFER.TIME > 0 THEN SHOW.XFER.TIME = 0                  ' DD062305
  454.       IF SHOW.TIMES.DOWNLOADED > 0 THEN SHOW.TIMES.DOWNLOADED = 0    ' DD062305
  455. '     IF RECYCLE.TO.DOS = 0 THEN _                                   ' DD052301
  456. '        RECYCLE.TO.DOS$ = "INTERNAL" _                              ' DD052301
  457. '     ELSE RECYCLE.TO.DOS$ = "SYSTEM                                 ' DD052301
  458.       HELP.FILE.PREFIX$ = LEFT$(HELP$(3),LEN(HELP$(3)) - 1)
  459.       SF = SYSOP.FUNCTION(1)
  460. '     GOSUB 16062                                                    ' DD052301
  461.       FOR I = 2 TO NUM.SYSOP
  462.          IF SYSOP.FUNCTION(I) > SF THEN _
  463.             GOTO 11790
  464.          SF = SYSOP.FUNCTION(I)
  465. * REPLACING old line(s) by new
  466. 12624 ON ILOOKUP GOSUB 15800, _  '  21 Remind users of messages they left
  467.                        16690, _  '  22 Remind users of uploads and downloads
  468.                        16722, _  '  23 Remind users of their profile
  469.                        17600, _  '  24 Enable download of new files at logon
  470.                        16730, _  '  25 Specify default page length
  471.                        16790, _  '  26 Set maximum number of lines/message
  472.                        16000, _  '  27 Is system "welcome" interruptable?
  473.                        15840, _  '  28 Are the system bulletins optional?
  474. * ------[ first line different ]------
  475.                        12325, _  '  29                               ' DD052301
  476.                        17230, _  '  30 Symbols for SYSOP's commands
  477.                        17240, _  '  31 Symbols for main menu's commands
  478.                        17250, _  '  32 Symbols for file menu's commands
  479.                        17260, _  '  33 Symbols for utilities menu's commands
  480.                        17264, _  '  34 Symbols for "global" commands
  481.                        17500, _  '  35 Show section at command prompt?
  482.                        17550, _  '  36 Show commands at command prompt?
  483.                        15830, _  '  37 Restrict valid cmnds to current section
  484.                        15820, _  '  38 Use machine language subroutines?
  485.                        15825, _  '  39 Log to CALLERS.TXT            ' DD050701
  486.                        16795     '  40 Set max # of lines for extended desc
  487.       GOTO 12325
  488. * REPLACING old line(s) by new
  489. 12626 ON ILOOKUP GOSUB 18000, _  '  41 Field used to locate a users record
  490.                        18100, _  '  42 Field to distinguish users with same id
  491.                        17800, _  '  43 Where personal id begins in user rec
  492.                        17810, _  '  44 Length of personal id in user rec
  493.                        17830, _  '  45 First Name prompt
  494.                        17840, _  '  46 Last Name prompt
  495.                        17850, _  '  47 Enforce upload/download ratios
  496.                        17630, _  '  48 Restrict users by date
  497.                        18510, _  '  49 Security level when subscription expires
  498.                        18530, _  '  50 Days before expiration to warn user
  499.                        18520, _  '  51 Days a newuser gets when registers
  500.                        17610, _  '  52 Turn printer off on recycle
  501. * ------[ first line different ]------
  502.                        17620, _  '  53 Inhibit 'Thanks For Calling' Message ' DD062806
  503.                        21760, _  '  54 Buffer size for text files
  504.                        16032, _  '  55 Size of stack space to use
  505.                        22550, _  '  56 Notify users when SYSOP wants system?
  506.                        17845, _  '  57 Ask users their (city/state)
  507.                        12325, _  '  58
  508.                        21770, _  '  59 Buffer size on writes
  509.                        21900     '  60 Voice synthesizer support
  510.       GOTO 12325
  511. * REPLACING old line(s) by new
  512. 12630 ON ILOOKUP GOSUB 14910, _  '  81 File of unacceptable user names
  513.                        17700, _  '  82 Name of required questionnaire
  514.                        17710, _  '  83 Name of "prelog" file
  515.                        17720, _  '  84 Name of New User questionnaire
  516.                        17730, _  '  85 Name of "epilog" questionnaire
  517.                        15460, _  '  86 Name of 'message' file
  518.                        15500, _  '  87 Name of 'user' file
  519.                        15464, _  '  88 Name of 'comments' file
  520.                        15993, _  '  89 Record comments as private messages?
  521.                        15461, _  '  90 Name of 'callers' file
  522.                        15991, _  '  91 Extened logging to 'callers' file?
  523.                        22550, _  '  92 Wrap-around the 'callers' file?
  524.                        12670, _  '  93 Conferences to search for new mail
  525.                        21780, _  '  94 Max # of work variables
  526.                        17715, _  '  95 List of callers files for nodes
  527.                        21785, _  '  96 Seconds to display copyright
  528.                        13297, _  '  97 Disallow msg quoting
  529. * ------[ first line different ]------
  530.                        60500, _  '  98 Omit User's Name from UPLOADLG.DEF ' DD090501
  531.                        60600, _  '  99 Add User's Name to DIR        ' DD090501
  532.                        60700     ' 100 Show Xfer Time when listing files ' DD052301
  533.       GOTO 12325
  534. * REPLACING old line(s) by new
  535. 12640 ON ILOOKUP GOSUB 21750, _  ' 161 Maximum number of concurrent RBBS-PC's
  536.                        21810, _  ' 162 Environment running RBBS-PC
  537. * ------[ first line different ]------
  538.                        12325, _  ' 163 Method that RBBS-PC re-cycles with ' DD052301
  539.                        21910, _  ' 164 Number of records in 'user' file
  540.                        22040, _  ' 165 Number of records in 'message' file
  541.                        13890, _  ' 166 Maximum number of messages allowed
  542.                        25040, _  ' 167 Conference file maintenance
  543.                        14845, _  ' 168 Default extension compressed files
  544.                        14930, _  ' 169 Additional compressed extensions
  545.                        22030, _  ' 170 Can messages grow
  546.                        14917, _  ' 171 Distribution list help file name
  547.                        14817, _  ' 172 Drive/path for distribution lists
  548.                        14940, _  ' 173 Message securities allowed
  549.                        60800, _  ' 174 Show Times Downloaded when listing files ' DD052301
  550.                        60900, _  ' 175 Update Download Times While OnLine ' DD052301
  551.                        12325, _  ' 176
  552.                        12325, _  ' 177
  553.                        12325, _  ' 178
  554.                        12325, _  ' 179
  555.                        12325     ' 180
  556.       IF REFRESH = 1 THEN _
  557.          REFRESH = 0 : _
  558.          GOTO 12151
  559.       IF REFRESH = 2 THEN _
  560.          REFRESH = 0 : _
  561.          GOTO 12160
  562.       GOTO 12325
  563. * REPLACING old line(s) by new
  564. 12641 ON ILOOKUP GOSUB 23160, _  ' 181 Pack the 'messages' file
  565.                        22570, _  ' 182 Rebuild the 'user' file
  566.                        23630, _  ' 183 Print the message headers
  567.                        23740, _  ' 184 Renumber messages
  568.                        23620, _  ' 185 Repair the 'message' file
  569.                        24050, _  ' 186 Require users to answer questionnaire
  570.                        24790, _  ' 187 Check FMS directory
  571.                        13180, _  ' 188 Check Personal Download directory
  572.                        18700, _  ' 189 Check critical parameters
  573.                        18800, _  ' 190 Set New parameters
  574.                        24795, _  ' 191 Reset active printers for all nodes
  575.                        24040, _  ' 192 Set Highlight to match graphics
  576. * ------[ first line different ]------
  577.                        24060, _  ' 193 Make all users reselect all preferences ' DD070103
  578.                        24070, _  ' 194 Make all users reselect graphics ' DD070105
  579.                        24080, _  ' 195 Make all users reselect protocol ' DD070905
  580.                        12325, _  ' 196
  581.                        12325, _  ' 197
  582.                        12325, _  ' 198
  583.                        12325, _  ' 199
  584.                        12325     ' 200
  585.       GOTO 12325
  586. * REPLACING old line(s) by new
  587. 12646 ON ILOOKUP GOSUB 17560, _  ' 281 Prompt new users for their preferences
  588. * ------[ first line different ]------
  589.                        17565, _  ' 282 Skip Mail check on log on     ' Mpl122301
  590.                        22550, _  ' 283 New users default file-transfer mode
  591.                        22550, _  ' 284 Line feeds for new users default to
  592.                        22550, _  ' 285 Nulls for new users default to
  593.                        22550, _  ' 286 Prompt bell for new users defaults to
  594.                        22550, _  ' 287 New users 'graphics' ability is
  595.                        22550, _  ' 288 New users upper/lower case
  596.                        22550, _  ' 289 New users margins defaults are
  597.                        17570, _  ' 290 Remember new users
  598.                        17580, _  ' 291 Survive no user room
  599.                        17295, _  ' 292 Max # of mins can bank
  600.                        12325, _  ' 293
  601.                        12325, _  ' 294
  602.                        12325, _  ' 295
  603.                        12325, _  ' 296
  604.                        12325, _  ' 297
  605.                        12325, _  ' 298
  606.                        12325, _  ' 299
  607.                        12325     ' 300
  608.       GOTO 12325
  609. * REPLACING old line(s) by new
  610. * ------[ first line different ]------
  611. 12647 ON ILOOKUP GOSUB 20000, _  ' 301 Drive for Chat                ' Mpl090501
  612.                        20010, _  ' 302 Drive/path for directory
  613.                        20020, _  ' 303 Extension for directory lists
  614.                        20030, _  ' 304 Drive/path for work disk
  615.                        20040, _  ' 305 # of disks in Library
  616.                        20050, _  ' 306 # of Master directories
  617.                        20060, _  ' 307 # of subdirectories in each master
  618.                        20070, _  ' 308 Prefix of subdirectory on Library
  619.                        20080, _  ' 309 Name of subsystem command menu
  620.                        20090, _  ' 310 Symbols to use for menu commands
  621.                        20090, _  ' 311 Security levels for menu functions
  622.                        20100, _  ' 312 Drive/path of ARCHIVE utility
  623.                        12325, _  ' 313 was name of library program   ' DD070203
  624.                        12325, _  ' 314
  625.                        12325, _  ' 315
  626.                        12325, _  ' 316
  627.                        12325, _  ' 317
  628.                        12325, _  ' 318
  629.                        12325, _  ' 319
  630.                        12325     ' 320
  631.       GOTO 12325
  632. * REPLACING old line(s) by new
  633. 12648 ON ILOOKUP GOSUB 26115, _  ' 321 Turn on Emphasis
  634.                        26120, _  ' 322 Restore text to normal
  635.                        12850, _
  636.                        12860, _
  637.                        12870, _
  638.                        12880, _
  639.                        12890, _  ' 327 Caller Background Color
  640. * ------[ first line different ]------
  641.                        16740, _  ' 328 Default Local Display Page Length ' DD021903/VGA
  642.                        12885, _  ' 329 Color of extended description ' DD070203
  643.                        12325, _  ' 330
  644.                        12325, _  ' 331
  645.                        12325, _  ' 332
  646.                        12325, _  ' 333
  647.                        12325, _  ' 334
  648.                        12325, _  ' 335
  649.                        12325, _  ' 336
  650.                        12325, _  ' 337
  651.                        12325, _  ' 338
  652.                        12325, _  ' 339
  653.                        12325     ' 340
  654.       GOTO 12325
  655. '
  656. ' * LIST OF CONFERENCES TO SEARCH FOR NEW MAIL
  657. '
  658. * REPLACING old line(s) by new
  659. * ------[ first line different ]------
  660. 12850 CALL GETANSI (FG.1.DEF$," FileName")                           ' DD070203
  661.       RETURN
  662. * REPLACING old line(s) by new
  663. * ------[ first line different ]------
  664. 12860 CALL GETANSI (FG.2.DEF$," FileSize")                           ' DD070203
  665.       RETURN
  666. * REPLACING old line(s) by new
  667. * ------[ first line different ]------
  668. 12870 CALL GETANSI (FG.3.DEF$," FileDate")                           ' DD070203
  669.       RETURN
  670. * REPLACING old line(s) by new
  671. * ------[ first line different ]------
  672. 12880 CALL GETANSI (FG.4.DEF$," FileDescription")                    ' DD070203
  673.       RETURN
  674. * INSERTING new line(s)
  675. 12885 CALL GETANSI (FG.5.DEF$," Extended Description")               ' DD070203
  676.       RETURN                                                         ' DD070203
  677. * REPLACING old line(s) by new
  678. * ------[ first line different ]------
  679. 12890 CALL GETCOLOR("Caller's BACKGROUND colors",CALLER.BKGRD)
  680.       RETURN
  681. '
  682. ' * PROCESS THE SYSOP'S LAST NAME
  683. '
  684. * REPLACING old line(s) by new
  685. 12910 CALL ASKRO("What is the SYSOP's LAST Name?",24,HJ$)
  686.       IF LEN(HJ$) < 3 THEN _
  687.          GOTO 12840
  688.       CALL ALLCAPS (HJ$)
  689. * ------[ first line different ]------
  690.       SYSOP.LAST.NAME$ = HJ$ + CHR$(255)                             ' DD121201/ALIAS
  691.       RETURN
  692. '
  693. ' * PROCESS THE "PSEUDONYM" (FIRST NAME) USED BY THE SYSOP TO LOGON REMOTELY
  694. '
  695. * REPLACING old line(s) by new
  696. 12980 CALL ASKRO("Secret first name that lets remote caller on as SYSOP is?",24,SYSOP.PASSWORD.1$)
  697. * ------[ first line different ]------
  698. '     CALL ALLCAPS (SYSOP.PASSWORD.1$)                               ' DD121201/ALIAS
  699.       IF SYSOP.PASSWORD.1$ = "" THEN _
  700.          GOTO 12985
  701.       MN1$ = SYSOP.PASSWORD.1$
  702.       CALL ASKRO("Secret last name for remote SYSOP ([ENTER] disables)?",24,SYSOP.PASSWORD.2$)
  703. '     CALL ALLCAPS (SYSOP.PASSWORD.2$)                               ' DD121201/ALIAS
  704.       IF SYSOP.PASSWORD.2$ = "" THEN _
  705.          GOTO 12985
  706.       MN2$ = SYSOP.PASSWORD.2$
  707.       RETURN
  708. * REPLACING old line(s) by new
  709. 14123 IF X = 1 THEN _
  710.          LSB = 1016 _
  711.       ELSE IF X = 2 THEN _
  712.               LSB = 760
  713. * ------[ first line different ]------
  714. '     IF PCJR THEN _                                                 ' DD021903/VGA
  715. '        LSB = 760                                                   ' DD021903/VGA
  716.       RETURN
  717. * REPLACING old line(s) by new
  718. * ------[ first line different ]------
  719. 15820 CALL GETNUMYN ("Is the NEWS file Interruptable",NEWS.INTERRUPTABLE) ' DD051001
  720.       RETURN
  721. * REPLACING old line(s) by new
  722. * ------[ first line different ]------
  723. 15825 CALL BRKFNAME (CALLERS.FILE$,DRIVE$,BODY$,EXT$,TRUE)            ' DD050701
  724.       CALL GETNUMYN ("Log Callers Log to " + CALLERS.FILE$ + _       ' DD050701
  725.                      " and " + DRIVE$ + BODY$ + ".TXT",USE.CALLERS.TXT)' DD050701
  726.       RETURN
  727. * REPLACING old line(s) by new
  728. * ------[ first line different ]------
  729. 16031 CALL MMINTEGER ("Seconds users can be idle before being logged off (31 - 32400)",31,32400,WAIT.BEFORE.DISCONNECT)' DD010206
  730.       RETURN
  731. * REPLACING old line(s) by new
  732. * ------[ first line different ]------
  733. 16040 'CLS                                                           ' DD052301
  734. '      LOCATE 5,5                                                    ' DD052301
  735. '      PRINT "Please select the type of PC which RBBS-PC will be running on  :" ' DD052301
  736. '      LOCATE 7,10                                                   ' DD052301
  737. '      PRINT "0.   IBM PC/XT/AT/PS2..."                              ' DD052301
  738. '      LOCATE 9,10                                                   ' DD052301
  739. '      PRINT "1.   Compaq/Plus or compatable that uses interrupt 7F" ' DD052301
  740. '      LOCATE 11,10                                                  ' DD052301
  741. '     PRINT "2.   IBM PCjr                                           ' DD021903/VGA
  742. '     LOCATE 13,10                                                   ' DD021903/VGA
  743. '      PRINT "2.   Other compatable under IBM's DOS (i.e. PC-DOS)    ' DD052301
  744. '16050 CALL GETINIT ("Select environment (0 to 2, CR to end)",24,0,2,COMPUTER.TYPE,CR) ' DD052301
  745. '      IF CR THEN _                                                  ' DD052301
  746. '         RETURN                                                     ' DD052301
  747. '16062 ON COMPUTER.TYPE+1 GOTO 16063,16064,16066                     ' DD021903/VGA
  748. '16063 COMPUTER.TYPE$ = "IBM PC/XT/AT/PS2..."                        ' DD052301
  749. '      RETURN                                                        ' DD052301
  750. '16064 COMPUTER.TYPE$ = "Compaq/Plus"                                ' DD052301
  751. '      RETURN                                                        ' DD052301
  752. '16065 COMPUTER.TYPE$ = "PCjr"                                       ' DD021903/VGA
  753. '     GOTO 16071                                                     ' DD021903/VGA
  754. '16066 COMPUTER.TYPE$ = "Other under PC-DOS"                         ' DD052301
  755. '      RETURN                                                        ' DD052301
  756. '16071 CALL GETNUMYN ("Is an IBM PCjr Internal Modem installed? (YES or NO)",PCJR) ' DD021903/VGA
  757. '     IF PCJR THEN _                                                 ' DD021903/VGA
  758. '        LSB = 760                                                   ' DD021903/VGA
  759. * DELETING old line(s)
  760. 16050
  761. 16062
  762. 16063
  763. 16064
  764. 16065
  765. 16066
  766. 16071
  767. * REPLACING old line(s) by new
  768. * ------[ first line different ]------
  769. 16690 CALL GETNUMYN ("'Who's On' command shows Offline Callers on other nodes?",SHOW.ALL.WHOS.ON) ' DD052001
  770.       RETURN
  771. * INSERTING new line(s)
  772. 16740 CLS                                                            ' DD021903/VGA
  773.       PRINT "                LOCAL DISPLAY MODES"                    ' DD021903/VGA
  774.       PRINT " 50 Lines - VGA"                                        ' DD021903/VGA
  775.       PRINT " 43 Lines - EGA"                                        ' DD021903/VGA
  776.       PRINT " 25 Lines - CGA"                                        ' DD021903/VGA
  777.       PRINT ""                                                       ' DD021903/VGA
  778. 16741 CALL MMINTEGER ("Default Local Display Page Length (25, 43, or 50)",25,50,LOCAL.PAGE.LENGTH) ' DD021903/VGA
  779.      IF LOCAL.PAGE.LENGTH = 25 OR LOCAL.PAGE.LENGTH = 43 OR _        ' DD021903/VGA
  780.         LOCAL.PAGE.LENGTH = 50 THEN RETURN                           ' DD021903/VGA
  781.       GOTO 16741                                                     ' DD021903/VGA
  782. * REPLACING old line(s) by new
  783. * ------[ first line different ]------
  784. 16790 CALL MMINTEGER ("Maximum number of lines allowed per message (1-199)",1,199,MAX.MESSAGE.LINES) ' DD021701
  785.       RETURN
  786. * INSERTING new line(s)
  787. 17565 CALL GETNUMYN ("Skip Mail check on log on ",SKIPMAILCHECK)     ' DD122602
  788.       RETURN                                                         'Pe 11/02/92
  789. * REPLACING old line(s) by new
  790. * ------[ first line different ]------
  791. 17620 CALL GETNUMYN ("Inhibit 'Thanks For Calling' Message",DONT.SHOW.LOGOFF) ' DD062806
  792.       RETURN
  793. * REPLACING old line(s) by new
  794. * ------[ first line different ]------
  795. 17650 'CALL GETNUMYN ("AUTODOWNLOAD removed in Maple version (answer NO)",ASK.IDENTITY) ' DD052301
  796.       RETURN
  797. * REPLACING old line(s) by new
  798. 18800 CALL GETNUMYN ("Set the Parameters new in " + CONFIG.VERSION$,AB)
  799.       IF NOT AB THEN _
  800.          RETURN
  801.       HJ$ = CHR$(13)
  802. '
  803. ' * SET THE PARAMETERS NEW TO THIS RELEASE OF RBBS-PC
  804. ' *  20 = Seconds to wait for ansi detect
  805. * ------[ first line different ]------
  806. ' *  96 = Seconds to display copyright notice                        ' Mpl122301
  807. ' *  97 = Prevent callers from quoting a reply                       ' Mpl122301
  808. ' * 159 = Min security to do personal uploads
  809. ' * 160 = Let msgs have multiple recipients
  810. ' * 171 = name of distribution list menu
  811. ' * 172 = drive/path where distribution lists stored
  812. ' * 173 = types of msg protection allowed
  813. ' * 292 = max # of minutes can bank
  814. '
  815.       KSTACKED$ = "20" + HJ$ + "96" + HJ$ + _
  816.                   "97" + HJ$ + "159" + HJ$
  817.       KSTACKED$ = KSTACKED$ + _
  818.                   "160" + HJ$ + "171" + HJ$ + _
  819.                   "172" + HJ$ + "173" + HJ$
  820.       KSTACKED$ = KSTACKED$ + _
  821.                   "292" + HJ$
  822.       IPAGE = 1
  823.       RETURN
  824. '
  825. ' * LET THE SYSOP SPECIFY THE NUMBER OF RECORDS IN THE USER FILE
  826. '
  827. * REPLACING old line(s) by new
  828. 20000 LOCATE 18,1
  829. * ------[ first line different ]------
  830. '     PRINT "NOTE:  PC-SIG believes that it is illegal to charge users for"' Mpl090501
  831. '     PRINT "       downloading from the PC-SIG Library on a per download"' Mpl090501
  832. '     PRINT "       basis.  Subscription fees of a reasonable nature are"' Mpl090501
  833. '     PRINT "       acceptable."                                     ' Mpl090501
  834.       A$ = "Specify Drive for CHAT work files in the range A->" + M$ + "(or NONE) " 'Pe 03/31/92
  835.       MAX = 4
  836.       GOSUB 13599
  837.       LIBRARY.DRIVE$ = HJ$
  838.       IF LEN(HJ$) > 1 AND HJ$ <> "NONE" THEN _
  839.          GOTO 20000
  840.       IF LIBRARY.DRIVE$ = "NONE" THEN _
  841.          LIBRARY.DRIVE$ = "" _
  842.       ELSE LIBRARY.DRIVE$ = LIBRARY.DRIVE$ + ":"
  843.       RETURN
  844. '
  845. ' * LIBRARY DIRECTORY/PATH
  846. '
  847. * REPLACING old line(s) by new
  848. 20100 GOSUB 15200
  849.       LIBRARY.ARCHIVE.PATH$ = HJ$
  850.       RETURN
  851. '
  852. ' * PROCESS NAME OF ARCHIVE UTILITY
  853. '
  854. * ------[ first line different ]------
  855. '20110 CALL ASKRO ("Name of Archive utility ",24,HJ$)                ' DD070203
  856. '     CALL ALLCAPS (HJ$)                                             ' DD070203
  857. '     IF LEN(HJ$) < 1 OR LEN(HJ$) > 8 THEN _                         ' DD070203
  858. '        GOTO 20110                                                  ' DD070203
  859. '     LIBRARY.ARCHIVE.PROGRAM$ = HJ$                                 ' DD070203
  860. '     CALL ASKRO ("Archive command ",24,HJ$)                         ' DD070203
  861. '     CALL ALLCAPS (HJ$)                                             ' DD070203
  862. '     IF LEN(HJ$) > 8 THEN _                                         ' DD070203
  863. '        GOTO 20110                                                  ' DD070203
  864. '     LIBRARY.ARCHIVE.PROGRAM$ = LIBRARY.ARCHIVE.PROGRAM$ + _        ' DD070203
  865. '                                " " + _                             ' DD070203
  866. '                                HJ$                                 ' DD070203
  867. '     RETURN                                                         ' DD070203
  868. * DELETING old line(s)
  869. 20110
  870. * REPLACING old line(s) by new
  871. 21910 IF CONFERENCE.MODE = 2 THEN _
  872.          GOSUB 22560 : _
  873.          RETURN
  874.       GOSUB 22100
  875.       RETURN
  876. '
  877. ' * ALLOW THE SYSOP TO SELECT HOW RBBS-PC IS TO RECYCLE WHEN A USER LOGS OFF
  878. '
  879. * ------[ first line different ]------
  880. '21950 CALL ASKRO ("How to recycle when users log off (<S>YSTEM or <I>NTERNAL)? ",24,HJ$) ' DD052301
  881. '     IF LEN(HJ$) < 1 OR LEN(HJ$) > 8 THEN _                         ' DD052301
  882. '        GOTO 21950                                                  ' DD052301
  883. '     CALL ALLCAPS (HJ$)                                             ' DD052301
  884. '     IF LEFT$(HJ$,1) = "S" THEN _                                   ' DD052301
  885. '        HJ$ = "SYSTEM" : _                                          ' DD052301
  886. '        RECYCLE.TO.DOS = 1 : _                                      ' DD052301
  887. '        GOTO 22020                                                  ' DD052301
  888. '     IF LEFT$(HJ$,1) = "I" THEN _                                   ' DD052301
  889. '        HJ$ = "INTERNAL" : _                                        ' DD052301
  890. '        RECYCLE.TO.DOS = 0 : _                                      ' DD052301
  891. '        GOTO 22020                                                  ' DD052301
  892. '     GOTO 21950                                                     ' DD052301
  893. '22020 RECYCLE.TO.DOS$ = HJ$                                         ' DD052301
  894. '     RETURN                                                         ' DD052301
  895. * DELETING old line(s)
  896. 21950
  897. 22020
  898. * REPLACING old line(s) by new
  899. 24052 GOSUB 24020
  900.       GOSUB 24025
  901.       A! = HIGHEST.USER.RECORD
  902.       XX$ = "Processing Record #"
  903.       GOSUB 50345
  904.       FOR J = 1 TO A!
  905.          GET 1,J
  906.          LOCATE 24,X
  907.          PRINT J;
  908.          HASH.VALUE$ = MID$(USER.RECORD$,START.HASH,LEN.HASH)
  909.          LSET COMP.USER$ = HASH.VALUE$
  910.          IF ASC(HASH.VALUE$) = 0 OR _
  911.             COMP.USER$ = NEW.USER$ OR _
  912.             COMP.USER$ = EMPTY.USER$ THEN _
  913.               GOTO 24055
  914.          USER.OPTIONS = CVI(MID$(USER.OPTIONS$,9,2))
  915.          IF ILOOKUP = 12 THEN _
  916. * ------[ first line different ]------
  917.             K = ((ASC(MID$(USER.OPTIONS$,6,1)) MOD 5) > 1) : _       ' DD061301
  918.             IF K THEN _
  919.                USER.OPTIONS = USER.OPTIONS OR 1024 _ ' hilite
  920.             ELSE USER.OPTIONS = USER.OPTIONS AND 1023 _ ' don't hilite
  921.          ELSE USER.OPTIONS = USER.OPTIONS AND 1791 'Zero out Req Ques flag
  922.          MID$(USER.OPTIONS$,9,2) = MKI$(USER.OPTIONS)
  923.          PUT 1,J
  924. * REPLACING old line(s) by new
  925. 24055 NEXT
  926.       CLOSE 1
  927.       RETURN
  928. * ------[ first line different ]------
  929. '                                                                    ' DD070103
  930. ' * Make all users reselect all preferences                          ' DD070103
  931. '                                                                    ' DD070103
  932. * INSERTING new line(s)
  933. 24060 A$ = "Make all users reselect all their preferences once"      ' DD070103
  934.       GOSUB 22580                                                    ' DD070103
  935.       GOSUB 24020                                                    ' DD070103
  936.       GOSUB 24025                                                    ' DD070103
  937.       A! = HIGHEST.USER.RECORD                                       ' DD070103
  938.       XX$ = "Processing Record #"                                    ' DD070103
  939.       GOSUB 50345                                                    ' DD070103
  940.       FOR J = 1 TO A!                                                ' DD070103
  941.          GET 1,J                                                     ' DD070103
  942.          LOCATE 24,X                                                 ' DD070103
  943.          PRINT J;                                                    ' DD070103
  944.          HASH.VALUE$ = MID$(USER.RECORD$,START.HASH,LEN.HASH)        ' DD070103
  945.          LSET COMP.USER$ = HASH.VALUE$                               ' DD070103
  946.          IF ASC(HASH.VALUE$) = 0 OR _                                ' DD070103
  947.             COMP.USER$ = NEW.USER$ OR _                              ' DD070103
  948.             COMP.USER$ = EMPTY.USER$ THEN _                          ' DD070103
  949.               GOTO 24065                                             ' DD070103
  950.          USER.OPTIONS = ASC(MID$(USER.OPTIONS$,8,1))                 ' DD070103
  951.          USER.OPTIONS = USER.OPTIONS OR 2                            ' DD070103
  952.          MID$(USER.OPTIONS$,8,1) = CHR$(USER.OPTIONS)                ' DD070103
  953.          PUT 1,J                                                     ' DD070103
  954. 24065 NEXT                                                           ' DD070103
  955.       CLOSE 1                                                        ' DD070103
  956.       RETURN                                                         ' DD070103
  957. '                                                                    ' DD070105
  958. ' * Make all users reselect graphics                                 ' DD070105
  959. '                                                                    ' DD070105
  960. 24070 A$ = "Make all users reselect their graphics"                  ' DD070105
  961.       GOSUB 22580                                                    ' DD070105
  962.       GOSUB 24020                                                    ' DD070105
  963.       GOSUB 24025                                                    ' DD070105
  964.       A! = HIGHEST.USER.RECORD                                       ' DD070105
  965.       XX$ = "Processing Record #"                                    ' DD070105
  966.       GOSUB 50345                                                    ' DD070105
  967.       FOR J = 1 TO A!                                                ' DD070105
  968.          GET 1,J                                                     ' DD070105
  969.          LOCATE 24,X                                                 ' DD070105
  970.          PRINT J;                                                    ' DD070105
  971.          HASH.VALUE$ = MID$(USER.RECORD$,START.HASH,LEN.HASH)        ' DD070105
  972.          LSET COMP.USER$ = HASH.VALUE$                               ' DD070105
  973.          IF ASC(HASH.VALUE$) = 0 OR _                                ' DD070105
  974.             COMP.USER$ = NEW.USER$ OR _                              ' DD070105
  975.             COMP.USER$ = EMPTY.USER$ THEN _                          ' DD070105
  976.               GOTO 24075                                             ' DD070105
  977.          USER.OPTIONS = ASC(MID$(USER.OPTIONS$,8,1))                 ' DD070105
  978.          USER.OPTIONS = USER.OPTIONS OR 8                            ' DD070105
  979.          MID$(USER.OPTIONS$,8,1) = CHR$(USER.OPTIONS)                ' DD070105
  980.          PUT 1,J                                                     ' DD070105
  981. 24075 NEXT                                                           ' DD070105
  982.       CLOSE 1                                                        ' DD070105
  983.       RETURN                                                         ' DD070105
  984. '                                                                    ' DD070905
  985. ' * Make all users reselect protocol                                 ' DD070905
  986. '                                                                    ' DD070905
  987. 24080 A$ = "Make all users reselect their protocol"                  ' DD070905
  988.       GOSUB 22580                                                    ' DD070905
  989.       GOSUB 24020                                                    ' DD070905
  990.       GOSUB 24025                                                    ' DD070905
  991.       A! = HIGHEST.USER.RECORD                                       ' DD070905
  992.       XX$ = "Processing Record #"                                    ' DD070905
  993.       GOSUB 50345                                                    ' DD070905
  994.       FOR J = 1 TO A!                                                ' DD070905
  995.          GET 1,J                                                     ' DD070905
  996.          LOCATE 24,X                                                 ' DD070905
  997.          PRINT J;                                                    ' DD070905
  998.          HASH.VALUE$ = MID$(USER.RECORD$,START.HASH,LEN.HASH)        ' DD070905
  999.          LSET COMP.USER$ = HASH.VALUE$                               ' DD070905
  1000.          IF ASC(HASH.VALUE$) = 0 OR _                                ' DD070905
  1001.             COMP.USER$ = NEW.USER$ OR _                              ' DD070905
  1002.             COMP.USER$ = EMPTY.USER$ THEN _                          ' DD070905
  1003.               GOTO 24085                                             ' DD070905
  1004.          USER.OPTIONS = ASC(MID$(USER.OPTIONS$,8,1))                 ' DD070905
  1005.          USER.OPTIONS = USER.OPTIONS OR 64                           ' DD070905
  1006.          MID$(USER.OPTIONS$,8,1) = CHR$(USER.OPTIONS)                ' DD070905
  1007.          PUT 1,J                                                     ' DD070905
  1008. 24085 NEXT                                                           ' DD070905
  1009.       CLOSE 1                                                        ' DD070905
  1010.       RETURN                                                         ' DD070905
  1011. '
  1012. '
  1013. ' COMMON ROUTINE TO EXPAND OR CONTRACT THE USER FILE
  1014. '
  1015. * REPLACING old line(s) by new
  1016. 24800 CLS
  1017.       I! = FRE(C$)
  1018.       COLOR 0,7,0
  1019.       LOCATE 1,10
  1020. * ------[ first line different ]------
  1021.       PRINT "CDor RBBS-PC Default Configuration " + CONFIG.VERSION$";' DD090501
  1022.       IF CONFERENCE.MODE THEN _
  1023.          GOSUB 24970
  1024.       COLOR FG,BG,BORDER
  1025.       PRINT " Page" + STR$(DISPLAYED.PAGE.NUMBER) + " of" + STR$(MAXIMUM.DISPLAYABLE.PAGES)
  1026.       RETURN
  1027. '
  1028. ' * ROUTINE TO DISPLAY CONFERENCE MAINTENANCE MODE IN CONFIG'S DISPLAYS
  1029. '
  1030. * REPLACING old line(s) by new
  1031. 25380 CALL GETNUMYN ("Will you be using DOS sub-directories?",WILL.SUBDIRS.B.USED)
  1032.       IF WILL.SUBDIRS.B.USED THEN _
  1033.          RETURN
  1034. * ------[ first line different ]------
  1035.       UPLOAD.TO.SUBDIR = FALSE     'was FALES                        ' DD031201
  1036.       DOWNLOAD.TO.SUBDIR = FALSE
  1037.       RETURN
  1038. * REPLACING old line(s) by new
  1039. 59030 WRITE #1,VERSION.NUMBER$, _
  1040.                DOWNLOAD.DRIVES$, _
  1041.                SYSOP.PASSWORD.1$, _
  1042.                SYSOP.PASSWORD.2$, _
  1043.                SYSOP.FIRST.NAME$, _
  1044.                SYSOP.LAST.NAME$, _
  1045.                REQUIRED.RINGS, _
  1046.                START.OFFICE.HOURS, _
  1047.                END.OFFICE.HOURS, _
  1048.                MINUTES.PER.SESSION!, _
  1049.                MAX.ALLOWED.MSGS.FRM.DEF, _
  1050.                ACT.MNTHS.B4.DELETING, _
  1051.                UPLOAD.DIRECTORY$,_
  1052. * ------[ first line different ]------
  1053.                SKIPMAILCHECK, _                                      ' DD122602
  1054.                ACTIVE.BULLETINS, _
  1055.                PROMPT.BELL, _
  1056.                LOCAL.PAGE.LENGTH, _                        'was PCJR ' DD021903/VGA
  1057.                MENUS.CAN.PAUSE, _
  1058.                MENU$(1), _
  1059.                MENU$(2), _
  1060.                MENU$(3), _
  1061.                MENU$(4), _
  1062.                MENU$(5), _
  1063.                MENU$(6), _
  1064.                CONFERENCE.MENU$, _
  1065.                TEST.ANSI.TIME, _
  1066.                WELCOME.INTERRUPTABLE, _
  1067.                SHOW.ALL.WHOS.ON, _                                   ' DD052001
  1068.                PAGE.LENGTH, _
  1069.                MAX.MESSAGE.LINES, _
  1070.                DOORS.AVAILABLE, _
  1071.                MO$
  1072.       IF INSTR(BULLETIN.MENU$,":") < 1 THEN _
  1073.          BULLETIN.MENU$ = DRIVE.FOR.BULLETINS$ + _
  1074.                           BULLETIN.MENU$
  1075.       IF INSTR(BULLETIN.PREFIX$,":") < 1 THEN _
  1076.          BULLETIN.PREFIX$ = DRIVE.FOR.BULLETINS$ + _
  1077.                             BULLETIN.PREFIX$
  1078.       IF GLOBAL.FUNCTION(3) > MINIMUM.LOGON.SECURITY THEN _
  1079.          GLOBAL.FUNCTION(3) = MINIMUM.LOGON.SECURITY
  1080.       IF FILES.FUNCTION(2) > MINIMUM.LOGON.SECURITY THEN _
  1081.          FILES.FUNCTION(2) = MINIMUM.LOGON.SECURITY
  1082.       IF LIBRARY.FUNCTION(4) > MINIMUM.LOGON.SECURITY THEN _
  1083.          LIBRARY.FUNCTION(4) = MINIMUM.LOGON.SECURITY
  1084. '     IF LIBRARY.DRIVE$ = "" THEN _                                  ' DD092402/GOODBYE
  1085. '        MAIN.FUNCTION(18) = 32767                                   ' DD092402/GOODBYE
  1086.       WRITE #1,MAIN.MESSAGE.FILE$, _
  1087.                MAIN.MESSAGE.BACKUP$, _
  1088.                CALLERS.FILE$, _
  1089.                COMMENTS.FILE$, _
  1090.                MAIN.USER.FILE$, _
  1091.                WELCOME.FILE$, _
  1092.                NEWUSER.FILE$, _
  1093.                DIRECTORY.EXTENTION$, _
  1094.                COM.PORT$, _
  1095.                BULLETINS.OPTIONAL, _
  1096.                USER.INIT.COMMAND$, _
  1097.                RTS$, _
  1098.                ZCallersLst$, _
  1099.                FG, _
  1100.                BG, _
  1101.                BORDER, _
  1102.                RBBS.BAT$, _
  1103.                RCTTY.BAT$
  1104.       WRITE #1,OMIT.MAIN.DIRECTORY$, _
  1105.                FIRST.NAME.PROMPT$, _
  1106.                HELP$(3), _
  1107.                HELP$(4), _
  1108.                HELP$(7), _
  1109.                HELP$(9), _
  1110.                BULLETIN.MENU$, _
  1111.                BULLETIN.PREFIX$, _
  1112.                DRIVE.FOR.BULLETINS$, _
  1113.                MESSAGE.REMINDER, _
  1114.                REQUIRE.NON.ASCII, _
  1115.                ASK.EXTENDED.DESC, _
  1116.                MAXIMUM.NUMBER.OF.NODES, _
  1117.                NETWORK.TYPE, _
  1118.                UPDATE.ONLINE, _              'was RECYCLE.TO.DOS     ' DD052301
  1119.                MAX.USR.FILE.SIZE.FRM.DEF, _
  1120.                MAX.MSG.FILE.SIZE.FRM.DEF!, _
  1121.                TRASHCAN.FILE$
  1122.       WRITE #1,MINIMUM.LOGON.SECURITY, _
  1123.                DEFAULT.SECURITY.LEVEL, _
  1124.                SYSOP.SECURITY.LEVEL, _
  1125.                FILESEC.FILE$, _
  1126.                SYSOP.MENU.SECURITY.LEVEL, _
  1127.                CONFMAIL.LIST$, _
  1128.                MAXIMUM.VIOLATIONS, _
  1129.                SYSOP.FUNCTION(1), _
  1130.                SYSOP.FUNCTION(2), _
  1131.                SYSOP.FUNCTION(3), _
  1132.                SYSOP.FUNCTION(4), _
  1133.                SYSOP.FUNCTION(5), _
  1134.                SYSOP.FUNCTION(6), _
  1135.                SYSOP.FUNCTION(7), _
  1136.                SYSOP.FUNCTION(8), _                                  ' DD020602/SFILE
  1137.                PASSWORD.FILE$, _
  1138.                MAXIMUM.PASSWORD.CHANGES, _
  1139.                MINIMUM.SECURITY.FOR.TEMP.PASSWORD, _
  1140.                OVERWRITE.SECURITY.LEVEL, _
  1141.                DOORS.TERMINAL.TYPE, _
  1142.                MAX.PER.DAY
  1143.       WRITE #1,MAIN.FUNCTION(1), _
  1144.                MAIN.FUNCTION(2), _
  1145.                MAIN.FUNCTION(3), _
  1146.                MAIN.FUNCTION(4), _
  1147.                MAIN.FUNCTION(5), _
  1148.                MAIN.FUNCTION(6), _
  1149.                MAIN.FUNCTION(7), _
  1150.                MAIN.FUNCTION(8), _
  1151.                MAIN.FUNCTION(9), _
  1152.                MAIN.FUNCTION(10), _
  1153.                MAIN.FUNCTION(11), _
  1154.                MAIN.FUNCTION(12), _
  1155.                MAIN.FUNCTION(13), _
  1156.                MAIN.FUNCTION(14), _
  1157.                MAIN.FUNCTION(15), _
  1158.                MAIN.FUNCTION(16), _
  1159.                MAIN.FUNCTION(17), _
  1160.                MAIN.FUNCTION(18), _
  1161.                MIN.NEWCALLER.BAUD, _
  1162.                WAIT.BEFORE.DISCONNECT
  1163.       WRITE #1,FILES.FUNCTION(1), _
  1164.                FILES.FUNCTION(2), _
  1165.                FILES.FUNCTION(3), _
  1166.                FILES.FUNCTION(4), _
  1167.                FILES.FUNCTION(5), _
  1168.                FILES.FUNCTION(6), _
  1169.                FILES.FUNCTION(7), _
  1170.                FILES.FUNCTION(8), _
  1171.                UTILITY.FUNCTION(1), _
  1172.                UTILITY.FUNCTION(2), _
  1173.                UTILITY.FUNCTION(3), _
  1174.                UTILITY.FUNCTION(4), _
  1175.                UTILITY.FUNCTION(5), _
  1176.                UTILITY.FUNCTION(6), _
  1177.                UTILITY.FUNCTION(7), _
  1178.                UTILITY.FUNCTION(8), _
  1179.                UTILITY.FUNCTION(9), _
  1180.                UTILITY.FUNCTION(10), _
  1181.                UTILITY.FUNCTION(11), _
  1182.                UTILITY.FUNCTION(12), _
  1183.                GLOBAL.FUNCTION(1), _
  1184.                GLOBAL.FUNCTION(2), _
  1185.                GLOBAL.FUNCTION(3), _
  1186.                GLOBAL.FUNCTION(4), _
  1187.                UPLOAD.TIME.FACTOR!, _
  1188.                SHOW.TIMES.DOWNLOADED, _  'was COMPUTER.TYPE          ' DD052301
  1189.                REMIND.PROFILE, _
  1190.                RBBS.NAME$, _
  1191.                COMMANDS.BETWEEN.RINGS, _
  1192.                ZCopyrightSecs, _
  1193.                PAGING.PRINTER.SUPPORT$, _
  1194.                MODEM.INIT.BAUD$
  1195. * REPLACING old line(s) by new
  1196. 59035 WRITE #1,TURN.PRINTER.OFF,_
  1197.                DIRECTORY.PATH$,_
  1198.                MIN.SEC.TO.VIEW, _
  1199.                LIMIT.SEARCH.TO.FMS, _
  1200.                DEFAULT.CATEGORY.CODE$, _
  1201.                DIR.CATEGORY.FILE$, _
  1202.                NEW.FILES.CHECK, _
  1203.                MAX.DESC.LEN, _
  1204.                SHOW.SECTION, _
  1205.                COMMANDS.IN.PROMPT, _
  1206.                NEWUSER.SETS.DEFAULTS, _
  1207.                HELP.PATH$, _
  1208.                HELP.EXTENSION$, _
  1209.                MAIN.COMMANDS$, _
  1210.                FILE.COMMANDS$, _
  1211.                UTIL.COMMANDS$, _
  1212.                GLOBAL.COMMANDS$, _
  1213.                SYSOP.COMMANDS$
  1214. * ------[ first line different ]------
  1215.       CALL COLORCODE (FG.5.DEF$,FG.5.DEF$,X)                         ' DD070203
  1216.       WRITE #1,RECYCLE.WAIT, _
  1217.                LIBRARY.FUNCTION(1), _
  1218.                LIBRARY.FUNCTION(2), _
  1219.                LIBRARY.FUNCTION(3), _
  1220.                LIBRARY.FUNCTION(4), _
  1221.                LIBRARY.FUNCTION(5), _
  1222.                LIBRARY.FUNCTION(6), _
  1223.                LIBRARY.FUNCTION(7), _
  1224.                LIBRARY.DRIVE$, _
  1225.                LIBRARY.DIRECTORY.PATH$, _
  1226.                LIBRARY.DIRECTORY.EXTENTION$, _
  1227.                LIBRARY.WORK.DISK.PATH$, _
  1228.                LIBRARY.MAX.DISK, _
  1229.                LIBRARY.MAX.DIRECTORY, _
  1230.                LIBRARY.MAX.SUBDIR, _
  1231.                LIBRARY.SUBDIR.PREFIX$, _
  1232.                LIBRARY.ARCHIVE.PATH$, _
  1233.                FG.5.DEF$, _            'was LIBRARY.ARCHIVE.PROGRAM$ ' DD070203
  1234.                LIBRARY.COMMANDS$
  1235.       WRITE #1,UPLOAD.PATH$, _
  1236.                FMS.DIRECTORY$, _
  1237.                ANS.MENU$, _
  1238.                REQUIRED.QUESTIONNAIRE$, _
  1239.                REMEMBER.NEW.USERS, _
  1240.                SURVIVE.NOUSER.ROOM, _
  1241.                PROMPT.HASH$, _
  1242.                START.HASH, _
  1243.                LEN.HASH, _
  1244.                PROMPT.INDIV$, _
  1245.                START.INDIV, _
  1246.                LEN.INDIV
  1247.       WRITE #1,BYPASS.MSGS, _
  1248.                DONT.SHOW.LOGOFF, _       'was MUSIC                  ' DD062806
  1249.                RESTRICT.BY.DATE, _
  1250.                DAYS.TO.WARN, _
  1251.                DAYS.IN.SUBSCRIPTION.PERIOD, _
  1252.                VOICE.TYPE, _
  1253.                RESTRICT.VALID.CMDS, _
  1254.                ZMinSecPersUpld, _
  1255.                ZDistriHelp$, _
  1256.                ZDistriPath$, _
  1257.                FAST.FILE.LIST$, _
  1258.                FAST.FILE.LOCATOR$, _
  1259.                MESSAGES.CAN.GROW, _
  1260.                WRAP.CALLERS.FILE$, _
  1261.                REDIRECT.IO.METHOD, _
  1262.                AUTO.UPGRADE.SEC, _
  1263.                HALT.ON.ERROR, _
  1264.                NEW.PUBLIC.MSGS.SECURITY, _
  1265.                NEW.PRIVATE.MSGS.SECURITY, _
  1266.                SECURITY.NEEDED.TO.CHANGE.MSGS, _
  1267.                SL.CATEGORIZE.UPLOADS, _
  1268.                ZNoQuoting, _
  1269.                TIME.TO.DROP.TO.DOS, _
  1270.                EXPIRED.SECURITY, _
  1271.                DTR.DROP.DELAY, _
  1272.                SHOW.XFER.TIME, _          'was ASK.IDENTITY          ' DD052301
  1273.                MAX.REG.SEC, _
  1274.                BUFFER.SIZE, _
  1275.                MLCOM, _
  1276.                SHOOT.YOURSELF, _
  1277.                EXTENSION.LIST$, _
  1278.                ZEnableCC, _
  1279.                ZMaxBank, _
  1280.                NET.MAIL$, _
  1281.                MASTER.DIRECTORY.NAME$, _
  1282.                PROTO.DEF$, _
  1283.                UPCAT.HELP$, _
  1284.                ALWAYS.STREW.TO$, _
  1285.                LAST.NAME.PROMPT$
  1286.       MSB = LSB + 1
  1287.       LINE.CONTROL.REGISTER = LSB + 3
  1288.       MODEM.CONTROL.REGISTER = LSB + 4
  1289.       LINE.STATUS.REGISTER = LSB + 5
  1290.       MODEM.STATUS.REGISTER = LSB + 6
  1291.       WRITE #1,PERSONAL.DRVPATH$, _
  1292.                PERSONAL.DIR$, _
  1293.                PERSONAL.BEGIN, _
  1294.                PERSONAL.LEN, _
  1295.                PERSONAL.PROTOCOL$, _
  1296.                PERSONAL.CONCAT, _
  1297.                PRIVATE.READ.SEC, _
  1298.                PUBLIC.READ.SEC, _
  1299.                SEC.CHANGE.MSG, _
  1300.                KEEP.INIT.BAUD, _
  1301.                MAIN.PUI$, _
  1302.                DEFAULT.ECHOER$, _
  1303.                HOST.ECHO.ON$, _
  1304.                HOST.ECHO.OFF$, _
  1305.                SWITCH.BACK, _
  1306.                DEFAULT.LINE.ACK$, _
  1307.                ALTDIR.EXTENSION$, _
  1308.                DIRECTORY.PREFIX$
  1309.       WRITE #1,SEC.LVL.EXEMPT.FRM.PURGING, _
  1310.                MODEM.INIT.WAIT.TIME, _
  1311.                MODEM.COMMAND.DELAY.TIME, _
  1312.                NEWS.INTERRUPTABLE, _           'was TURBO.RBBS       ' DD051001
  1313.                DNLD.SUB, _
  1314.                WILL.SUBDIRS.B.USED, _
  1315.                UPLOAD.TO.SUBDIR, _
  1316.                DOWNLOAD.TO.SUBDIR, _
  1317.                UPLOAD.SUBDIR$, _
  1318.                MIN.OLDCALLER.BAUD, _
  1319.                MAX.WORK.VAR, _
  1320.                DISKFULL.GO.OFFLINE, _
  1321.                EXTENDED.LOGGING, _
  1322.                USER.RESET.COMMAND$, _
  1323.                USER.COUNT.RINGS.COMMAND$, _
  1324.                USER.ANSWER.COMMAND$, _
  1325.                USER.GO.OFFHOOK.COMMAND$, _
  1326.                DISK.FOR.DOS$, _
  1327.                DUMB.MODEM, _
  1328.                COMMENTS.AS.MESSAGES, _
  1329.                LSB, _
  1330.                MSB, _
  1331.                LINE.CONTROL.REGISTER, _
  1332.                MODEM.CONTROL.REGISTER, _
  1333.                LINE.STATUS.REGISTER, _
  1334.                MODEM.STATUS.REGISTER
  1335.       ORIG.COMMANDS$ = MAIN.COMMANDS.DEFAULTS$ + _
  1336.                        FILE.COMMANDS.DEFAULTS$ + _
  1337.                        UTIL.COMMANDS.DEFAULTS$ + _
  1338.                        LIBRARY.COMMANDS.DEFAULTS$ + _
  1339.                        GLOBAL.COMMANDS.DEFAULTS$ + _
  1340.                        SYSOP.COMMANDS.DEFAULTS$
  1341.       WRITE #1,KEEP.TIME.CREDITS, _
  1342.                XON.XOFF, _
  1343.                ALLOW.CALLER.TURBO, _
  1344.                USE.DEVICE.DRIVER$, _
  1345.                PRELOG$, _
  1346.                NEW.USER.QUESTIONNAIRE$, _
  1347.                EPILOG$, _
  1348.                REGISTRATION.PROGRAM$, _
  1349.                QUES.PATH$, _
  1350.                USER.LOCATION$, _
  1351.                USER.INITIALIZE.COMMAND$, _
  1352.                USER.FIRMWARE.CLEAR.CMND$, _
  1353.                USER.FIRMWARE.WRITE.CMND$, _
  1354.                ENFORCE.UPLOAD.DOWNLOAD.RATIOS, _
  1355.                SIZE.OF.STACK, _
  1356.                SECURITY.EXEMPT.FROM.EPILOG, _
  1357.                USE.CALLERS.TXT, _                                    ' DD050701
  1358.                DOSANSI, _
  1359.                ESCAPE.INSECURE, _
  1360.                USE.DIR.ORDER, _
  1361.                ADD.DIR.SECURITY, _
  1362.                MAX.EXTENDED.LINES, _
  1363.                ORIG.COMMANDS$
  1364.       IF MACRO.EXTENSION$ <> "" THEN _
  1365.          MACRO.EXTENSION$ = "." + MACRO.EXTENSION$
  1366.       CALL COLORCODE (FG.1.DEF$,FG.1.DEF$,X)
  1367.       CALL COLORCODE (FG.2.DEF$,FG.2.DEF$,X)
  1368.       CALL COLORCODE (FG.3.DEF$,FG.3.DEF$,X)
  1369.       CALL COLORCODE (FG.4.DEF$,FG.4.DEF$,X)
  1370.       WRITE #1,LOGON.MAIL.LEVEL$, _
  1371.                MACRO.DRVPATH$, _
  1372.                MACRO.EXTENSION$, _
  1373.                EMPHASIZE.ON.DEF$, _
  1374.                EMPHASIZE.OFF.DEF$, _
  1375.                FG.1.DEF$, _
  1376.                FG.2.DEF$, _
  1377.                FG.3.DEF$, _
  1378.                FG.4.DEF$, _
  1379.                SECVIO.HLP$, _
  1380.                FOSSIL, _
  1381.                MAX.CARRIER.WAIT, _
  1382.                CALLER.BKGRD, _
  1383.                SMART.TEXT, _
  1384.                TIME.LOCK, _
  1385.                WRITE.BUF.DEF, _
  1386.                SEC.KILL.ANY, _
  1387.                DOORS.DEF$, _
  1388.                SCREEN.OUT.MSG$, _
  1389.                AUTOPAGE.DEF$, _                                      ' DD090501
  1390.                OMIT.FROM.LOG, _                                      ' DD090501
  1391.                ADD.NAME.TO.DIR                                       ' DD090501
  1392.       IF DNLD.SUB <1 OR DNLD.SUB > 99 THEN _
  1393.          GOTO 59080
  1394.       FOR I = 1 TO DNLD.SUB
  1395.          WRITE #1,DNLD$(I)
  1396.       NEXT
  1397. * REPLACING old line(s) by new
  1398. 60480 MKDIR LEFT$(STRNG$,LEN(STRNG$)-1)
  1399.       RETURN
  1400. * ------[ first line different ]------
  1401. '                                                                    ' DD090501
  1402. ' * OMIT USER'S NAME FROM UPLOADLG.DEF                               ' DD090501
  1403. '                                                                    ' DD090501
  1404. * INSERTING new line(s)
  1405. 60500 CALL GETNUMYN ("Omit User's Name from UPLOADLG.DEF",OMIT.FROM.LOG) ' DD090501
  1406.       RETURN                                                         ' DD090501
  1407. '                                                                    ' DD090501
  1408. ' * ADD NAME TO DIR                                                  ' DD090501
  1409. '                                                                    ' DD090501
  1410. 60600 CALL GETNUMYN ("Add User's Name to Upload Dir",ADD.NAME.TO.DIR)' DD090501
  1411.       RETURN                                                         ' DD090501
  1412. '                                                                    ' DD052301
  1413. ' * SHOW XFER TIME WHEN LISTING FILES                                ' DD052301
  1414. '                                                                    ' DD052301
  1415. 60700 CALL GETNUMYN ("Show Transfer Time when Listing Files",SHOW.XFER.TIME) ' DD052301
  1416.       RETURN                                                         ' DD052301
  1417. 60800 CALL GETNUMYN ("Show Times Downloaded when Listing Files",SHOW.TIMES.DOWNLOADED) ' DD052301
  1418.       RETURN                                                         ' DD052301
  1419. 60900 CALL GETNUMYN ("Update Times Downloaded While Caller OnLine",UPDATE.ONLINE) ' DD052301
  1420.       RETURN                                                         ' DD052301
  1421.