home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / MAPL0206.ZIP / MCSB0206.MRG < prev    next >
Encoding:
Text File  |  1993-02-06  |  28.3 KB  |  601 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against E:\RBBS\STOCK\CNFG-SUB.BAS to produce E:\RBBS\CHAT\CNFG-SUB.BAS
  3. * E:\RBBS\STOCK\CNFG-SUB.BAS:  Date 6-20-1992  Size 103455 bytes
  4. * ------------[ Created 02-06-1993 06:09:08 ]------------
  5. * REPLACING old line(s) by new
  6. ' $linesize:132
  7. ' $title: 'CNFG-SUB.BAS 17.4, Copyright 1987-92 by D. Thomas Mack'
  8. * ------[ first line different ]------
  9. '  Copyright 1991 by D. Thomas Mack, all rights reserved.
  10. '  Name ...............: CNFG-SUB.BAS
  11. '  First Released .....: March 22, 1992
  12. '  Subsequent Releases.: 
  13. '  Copyright ..........: 1987-92
  14. '  Purpose.............: The Remote Bulletin Board System for the IBM PC,
  15. '                        RBBS-PC, configuration program -- CONFIG.BAS
  16. '                        utilizes a lot of menus and string space.
  17. '                        These are incorporated within CNFG-SUB.BAS as a
  18. '                        seperately callable subroutines in order to free
  19. '                        up as much code as possible within the 64K code
  20. '                        segment used by CONFIG.BAS.
  21. '  Parameters..........: Most parameters are passed via a COMMON statement.
  22. '
  23. ' Subroutine  Line      Function of Subroutine
  24. '    Name    Number
  25. ' ALLCAPS    61212+     Captialize a string
  26. ' ANSIDECODE 62040+     Convert ANSI strings into english text expressions
  27. ' ANYINTEGER 61450      Prompt for any integer
  28. ' ANYNUMBER  61400      Prompt for any number
  29. ' ASKRO      61100      Ask a question on a specific row
  30. ' ASKUPOS    61300      Ask for identifying field in USERS record
  31. ' BRKFNAME   61830      Break file name in drive/path, prefix, extension
  32. ' CHKFMSDIR  61700      Check FMS directory for valid structure
  33. ' CHKPERSDIR 61755      Check Personal directory format
  34. ' CHKRANDOM  61751      Checks FMS/Pers read Randomly
  35. ' CNFGINIT   60385      Initialize CONFIG's constants
  36. ' COLORCODE  62040+     Convert response into ANSI-meaningful strings
  37. ' DISPLAY    12190      Display the CONFIG menu pages
  38. ' FINDFILE   61600      Determine whether a file exists
  39. ' FINDLAST   61850      Find last occurence of a character in a string
  40. ' GETANSI    62000      Prompt for ANSI colors to be used
  41. ' GETASCII   61810      Get any character by character or ascii value
  42. ' GETCOLOR   61950      Process request for setting color
  43. ' GETINIT    61110      Get answers that are integers
  44. ' GETNUMYN   61150      Get TRUE/FALSE answer to a YES/NO question
  45. ' GETYESNO   61200      Ask a question with a "yes" or "no" response
  46. ' HANDERR    61775+     Handle error checking for FMS directories
  47. ' MMINTEGER  61500      Prompt for integer with min and a max
  48. ' NETTYPE    60382      Prompt for supported network types
  49. ' REMOVE     61800      Remove characters from a string
  50. ' SECURE     61860      Allow commands and their security level to be changed
  51. ' SELMODEM   62100      Select modem to set modem strings
  52. ' SETSCRSCHK 61754      Sets up screen for check of FMS directory
  53. ' TRIMTRAIL  61840      Remove trailing characters from a string
  54. '
  55. '  $INCLUDE: 'CNFG-VAR.BAS'
  56. '
  57. '  $SUBTITLE: 'DISPLAY - subroutine to display CONFIG's menus'
  58. '  $PAGE
  59. '
  60. '  SUBROUTINE NAME    --  DISPLAY
  61. '
  62. '  INPUT PARAMETERS   --  PARAMETER        DESCRIPTION
  63. '                         IX = 0           DISPLAY THE CHOICE OF MENUS
  64. '                         IX = -1          RE-READ THE INPUT (INVALID REQUEST)
  65. '                         IX > 0           DISPLAY THE APPROPRIATE PAGE
  66. '
  67. '  OUTPUT PARAMETERS  --  HJ$              OPTION SELECTED
  68. '                         IPAGE            MENU PAGE CONTAINING OPTION
  69. '                         ILOOKUP          INDEX (1 TO 20) OF OPTION SELECTED
  70. '
  71. '  SUBROUTINE PURPOSE --  TO DISPLAY CONFIG'S MENUS AND REQUEST OPTION
  72. '
  73.       SUB DISPLAY STATIC
  74. '
  75. ' *  DISPLAY CONFIG'S MAIN FUNCTION KEY MENU
  76. '
  77.       IF IX > 0 THEN _
  78.          GOTO 12320
  79.       IF IX = -1 THEN _
  80.          GOTO 12590
  81. * REPLACING old line(s) by new
  82. 12190 COLOR FG,BG,BORDER
  83.       CLS
  84.       DISPLAYED.PAGE.NUMBER = 0
  85.       I! = FRE(C$)
  86.       COLOR 0,7,0
  87. * ------[ first line different ]------
  88.       LOCATE 4,3
  89.       PRINT " Maple RBBS-PC "+ CONFIG.VERSION$ + " CONFIGURATION PROGRAM "
  90.       COLOR FG,BG,BORDER
  91.       LOCATE 1,1,0
  92.       PRINT "Copyright (c) 1983-1991 Tom Mack"
  93.       LOCATE 2,1,0
  94.       PRINT "39 Cranbury Dr, Trumbull, CT. 06611";
  95.       IF CONFERENCE.MODE THEN _
  96.          GOSUB 24970
  97.       LOCATE  5,1
  98.       PRINT "   F1            Global RBBS-PC Parameters (part 1)
  99.       PRINT "   F2            Global RBBS-PC Parameters (part 2)
  100.       PRINT "   F3            Global RBBS-PC Parameters (part 3)
  101.       PRINT "   F4            RBBS-PC System Files (part 1)
  102.       PRINT "   F5            RBBS-PC System Files (part 2)
  103.       PRINT "   F6            Parameters for RBBS-PC's 'Doors'
  104.       PRINT "   F7            Parameters for RBBS-PC's Security (part 1)
  105.       PRINT "   F8            Parameters for RBBS-PC's Security (part 2)
  106.       PRINT "   F9            Parameters for multiple RBBS-PC's
  107.       PRINT "  F10            RBBS-PC utilities
  108.       PRINT "  Shift-F1       RBBS-PC File Management Faciliites"
  109.       PRINT "  Shift-F2       RBBS-PC Communications Parameters (part 1)
  110.       PRINT "  Shift-F3       RBBS-PC Communications Parameters (part 2)
  111.       PRINT "  Shift-F4       Parameters for RBBS-PC NET-MAIL
  112.       PRINT "  Shift-F5       New users parameters"
  113.       PRINT "  Shift-F6       Library Sub-System"
  114.       PRINT "  Shift-F7       RBBS-PC Color parameters"
  115.       PRINT "  Shift-F8       Reserved for future use"
  116.       XX$ = "Press END to terminate or Function Key to select page "
  117.       GOSUB 50345
  118.       LOCATE ,,1
  119. * REPLACING old line(s) by new
  120. 12370 DISPLAYED.PAGE.NUMBER = 2
  121.       GOSUB 24800
  122.       LOCATE  3,1
  123.       PRINT "21. Remind users of messages that they left ------ " + FNYESNO$(MESSAGE.REMINDER)
  124.       PRINT "22. Remind users of # uploads and downloads? ----- " + FNYESNO$(REMIND.FILE.TRANSFERS)
  125.       PRINT "23. Remind users of their user preferences? ------ " + FNYESNO$(REMIND.PROFILE)
  126.       PRINT "24. Enable download of new files at logon -------- " + FNYESNO$(NEW.FILES.CHECK)
  127.       PRINT "25. Default user page length is ------------------" + STR$(PAGE.LENGTH)
  128.       PRINT "26. Maximum number of lines allowed per message --" + STR$(MAX.MESSAGE.LINES)
  129.       PRINT "27. Is system 'welcome' interruptable? ----------- " + FNYESNO$(WELCOME.INTERRUPTABLE)
  130.       PRINT "28. Are system bulletins to be 'optional'? ------- " + FNYESNO$(BULLETINS.OPTIONAL)
  131.       PRINT "29. Type of PC RBBS-PC will be running on? ------- " + COMPUTER.TYPE$
  132. * ------[ first line different ]------
  133.       PRINT "30.  Symbols to use for SYSOP commands ----------- " + SYSOP.COMMANDS$
  134.       PRINT "31.  Symbols to use for MAIN menu commands ------- " + MAIN.COMMANDS$
  135.       PRINT "32. Symbols to use for FILE menu commands -------- " + FILE.COMMANDS$
  136.       PRINT "33.  Symbols to use for UTILITIES menu commands -- " + UTIL.COMMANDS$
  137.       PRINT "34. Symbols to use for global commands ----------- " + GLOBAL.COMMANDS$
  138.       PRINT "35. Show section in command prompt --------------- " + FNYESNO$(SHOW.SECTION)
  139.       PRINT "36. Show commands in command prompt -------------- " + FNYESNO$(COMMANDS.IN.PROMPT)
  140.       PRINT "37. Restrict valid commands to current section --- " + FNYESNO$(RESTRICT.VALID.CMDS)
  141.       PRINT "38. Use machine language routines for speed ------ " + FNYESNO$(TURBO.RBBS)
  142.       PRINT "39. Use BASIC PRINT for screen writes ------------ " + FNYESNO$(USE.BASIC.WRITES)
  143.       PRINT "40. # of lines for extended file descriptions ----" + STR$(MAX.EXTENDED.LINES)
  144.       GOTO 12580
  145. * REPLACING old line(s) by new
  146. 12380 DISPLAYED.PAGE.NUMBER = 3
  147.       GOSUB 24800
  148.       LOCATE  3,1
  149.       PRINT "41. Field used to identify users ----------------- " + HASH.ID$
  150.       PRINT "42. Field used to distinguish users with same ID-- " + INDIV.ID$
  151.       PRINT "43. Start position identifying personal downloads-"  + STR$(PERSONAL.BEGIN)
  152.       PRINT "44. Field length to identify personal downloads --"  + STR$(PERSONAL.LEN)
  153.       PRINT "45. Prompt for first part of personal identifier - " + FIRST.NAME.PROMPT$
  154.       PRINT "46. Prompt for last part of personal identifier -- " + LAST.NAME.PROMPT$
  155.       PRINT "47. Enforce upload/download ratios --------------- " + FNYESNO$(ENFORCE.UPLOAD.DOWNLOAD.RATIOS)
  156.       PRINT "48. RESTRICT users by SUBSCRIPTION date ---------- " + FNYESNO$(RESTRICT.BY.DATE)
  157.       PRINT "49. Security level when SUBSCRIPTION expires -----"  + STR$(EXPIRED.SECURITY)
  158.       PRINT "50. Days before expiration to warn callers -------"  + STR$(DAYS.TO.WARN)
  159.       PRINT "51. Default # days in SUBSCRIPTION PERIOD --------"  + STR$(DAYS.IN.SUBSCRIPTION.PERIOD)
  160.       PRINT "52. Turn printer off after each recycle ---------- " + FNYESNO$(TURN.PRINTER.OFF)
  161. * ------[ first line different ]------
  162.       PRINT "53.  OMIT Users Name from UpLoadLg.def file  ----- " + FNYESNO$(MUSIC)
  163.       PRINT "54. BUFFER SIZE used when displaying text files --" + STR$(BUFFER.SIZE)
  164.       PRINT "55. Stack space to be made available -------------" + STR$(SIZE.OF.STACK)
  165.       PRINT "56. File shown users when SYSOP wants system next  " + NOT.YET.IN$ ' F7.MESSAGE$
  166.       PRINT "57. Ask users their (What is your ...) ----------- " + USER.LOCATION$
  167.       PRINT "58. ---------------------------------------------- "
  168.       PRINT "59.  No internal protocols with Maple (use 128)---" + STR$(WRITE.BUF.DEF)
  169.       PRINT "60. Add Users Name to Dir listing --------------- " + VOICE.TYPE$
  170.       GOTO 12580
  171. * REPLACING old line(s) by new
  172. 12500 DISPLAYED.PAGE.NUMBER = 12
  173.       GOSUB 24800
  174.       LOCATE 3,1
  175.       PRINT "221. Communications port to be used by RBBS-PC ---- " + COM.PORT$
  176.       PRINT "222. # of seconds to wait for modem to initialize -" + STR$(MODEM.INIT.WAIT.TIME)
  177.       PRINT "223. Seconds to wait before issuing modem commands-" + STR$(MODEM.COMMAND.DELAY.TIME)
  178.       PRINT "224. Number of rings to wait before answering -----" + STR$(REQUIRED.RINGS);
  179.       IF INSTR(USER.INIT.COMMAND$, "S0=255") > 0 THEN _
  180.          PRINT " RING BACK";
  181.       PRINT
  182.       PRINT "225. Set the modem commands"
  183.       PRINT "226. ---------------------------------------------- "
  184.       PRINT "227. Issue modem commands between rings ----------- " ; FNYESNO$(COMMANDS.BETWEEN.RINGS)
  185.       PRINT "228. BPS rate to initially open modem at ---------- " + MODEM.INIT.BAUD$
  186.       X$ = STR$(WAIT.BEFORE.DISCONNECT) + " seconds"
  187.       IF WAIT.BEFORE.DISCONNECT = 0 THEN _
  188.          X$ = "NO"
  189.       PRINT "229. Log off user who are idle for ----------------" + X$
  190.       PRINT "230. Are you using a 'DUMB' auto-answer modem? ---- " ; FNYESNO$(DUMB.MODEM)
  191.       PRINT "231. Initialize modem firmware for RBBS-PC."
  192.       PRINT "232. # seconds to wait after dropping DTR ---------"  + STR$(DTR.DROP.DELAY)
  193.       IF PROTO.DEF$ = "" THEN _
  194.          X$ = NONE.PICKED$ _
  195.       ELSE X$ = PROTO.DEF$
  196.       PRINT "233. File with PROTOCOL definitions --------------- " ; X$
  197. * ------[ first line different ]------
  198.       PRINT "234.  AUTODOWNLOAD stripped out with Maple Merges - " ; FNYESNO$(ASK.IDENTITY)
  199.       PRINT "235. Require non-ascii protocol for BASIC files --- " ; FNYESNO$(REQUIRE.NON.ASCII)
  200.       X$ = STR$(RECYCLE.WAIT) + " minutes"
  201.       IF RECYCLE.WAIT = 0 THEN _
  202.          X$ = "<Don't recycle>"
  203.       PRINT "236. Recycle if no calls are received within ------" + X$
  204.       PRINT "237. Leave modem at initial baud ------------------ " + FNYESNO$(KEEP.INIT.BAUD)
  205.       GOTO 12580
  206. * REPLACING old line(s) by new
  207. 12520 DISPLAYED.PAGE.NUMBER = 15
  208.       GOSUB 24800
  209.       LOCATE  3,1
  210.       PRINT "281. Let new users set their preferences --------- " ; FNYESNO$(NEWUSER.SETS.DEFAULTS)
  211. * ------[ first line different ]------
  212.       PRINT "282.  Skip Mail check on log on ------------------ " ; FNYESNO$(ZSkipMailCheck) 'Pe 11/02/92
  213.       PRINT "283. New users default file-transfer protocol ---- " + NOT.YET.IN$ ' NEW.USER.DEFAULT.PROTOCOL$
  214.       PRINT "284. Line feeds for new users default to --------- " + NOT.YET.IN$ ' NEW.USER.LINE.FEEDS$
  215.       PRINT "285. Nulls for new users default to -------------- " + NOT.YET.IN$ ' NEW.USER.NULLS$
  216.       PRINT "286. Prompt bell for new users defaults to ------- " + NOT.YET.IN$ ' NEW.USER.BELL$
  217.       PRINT "287. New users 'graphics' capability is assumed -- " + NOT.YET.IN$ ' NEW.USER.GRAPHICS$
  218.       PRINT "288. New users are assumed UPPERCASE only -------- " + NOT.YET.IN$ ' NEW.USER.CASE$
  219.       PRINT "289. New users message margins defaults to ------- " + NOT.YET.IN$ ' STR$(NEW.USER.MARGINS)
  220.       PRINT "290. Add new users to USERS file ----------------- " ; FNYESNO$(REMEMBER.NEW.USERS)
  221.       PRINT "291. Let new users on even when USERS file full -- " ; FNYESNO$(SURVIVE.NOUSER.ROOM)
  222.       PRINT "292. Default max number of minutes can Bank ------" ; STR$(ZMaxBank)
  223.       GOTO 12580
  224. * REPLACING old line(s) by new
  225. 12530 DISPLAYED.PAGE.NUMBER = 16
  226.       GOSUB 24800
  227.       LOCATE  3,1
  228.       X$ = LIBRARY.DRIVE$
  229.       IF LIBRARY.DRIVE$ = "" THEN _
  230.          X$ = NONE.PICKED$
  231. * ------[ first line different ]------
  232.       PRINT "301.  Work Drv for CHAT (Ram disk recommended)---- " + X$
  233.       PRINT "302. Drive/Path for Library directory ------------ " + LIBRARY.DIRECTORY.PATH$
  234.       PRINT "303. Extension for Library directory ------------- " + LIBRARY.DIRECTORY.EXTENTION$
  235.       PRINT "304. Drive/Path for V)iew feature ---------------- " + LIBRARY.WORK.DISK.PATH$
  236.       PRINT "305. # of disks in Library -----------------------" + STR$(LIBRARY.MAX.DISK)
  237.       PRINT "306. # of master Library subdirectories ----------" + STR$(LIBRARY.MAX.DIRECTORY)
  238.       PRINT "307. # of subdirectories in each master ----------" + STR$(LIBRARY.MAX.SUBDIR)
  239.       PRINT "308. Prefix of Library subdirectories ------------ " + LIBRARY.SUBDIR.PREFIX$
  240.       PRINT "309. Name of Library subsystem command menu ------ " + MENU$(6)
  241.       PRINT "310. Symbols to use for Library menu commands ---- " + LIBRARY.COMMANDS$
  242.       M27$ = STR$(PS)
  243.       IX = LIBRARY.FUNCTION(1)
  244.       FOR I = 1 TO NUM.LIBRARY
  245.          IF IX<>LIBRARY.FUNCTION(I) THEN _
  246.             M27$ = "(Variable)" : _
  247.             GOTO 12531
  248.       NEXT
  249. * REPLACING old line(s) by new
  250. 24800 CLS
  251.       I! = FRE(C$)
  252.       COLOR 0,7,0
  253. * ------[ first line different ]------
  254.       LOCATE 1,5
  255.       PRINT " Maple RBBS-PC " + CONFIG.VERSION$ + " Configuration ";
  256.       IF CONFERENCE.MODE THEN _
  257.          GOSUB 24970
  258.       COLOR FG,BG,BORDER
  259.       PRINT " Page" + STR$(DISPLAYED.PAGE.NUMBER) + " of" + STR$(MAXIMUM.DISPLAYABLE.PAGES)
  260.       RETURN
  261. * REPLACING old line(s) by new
  262. 60382 CLS
  263.       LOCATE 3,1
  264.       PRINT "     RBBS-PC is supported in the following:"
  265.       PRINT "                   Environment"
  266.       PRINT "          0. Single RBBS-PC in an IBM DOS environment"
  267. * ------[ first line different ]------
  268.       PRINT "          1. Not in Maple Code (previously Multilink option)"
  269.       PRINT "          2. Omninet (CORVUS)"
  270.       PRINT "          3. PC-NET (Orchid)"
  271.       PRINT "          4. DESQview (Quarterdeck)"
  272.       PRINT "          5. 10 NET (Fox Research)"
  273.       PRINT "          6. NETBIOS (DOS SHARE)"
  274.       PRINT "          7. DoubleDOS, but file sharing not supported."
  275. * REPLACING old line(s) by new
  276. 60390 MACRO.DRVPATH$             = D$
  277.       MACRO.EXTENSION$           = ""
  278.       MAIN.COMMANDS.DEFAULTS$    = "ABCDEFIJKOPRSTUVW@"
  279.       MAIN.COMMANDS$             = MAIN.COMMANDS.DEFAULTS$
  280.       MAIN.FUNCTION$(1,1)        = "A)nswer questionnaire  "
  281.       MAIN.FUNCTION$(2,1)        = "B)ulletins             "
  282.       MAIN.FUNCTION$(3,1)        = "C)omments              "
  283.       MAIN.FUNCTION$(4,1)        = "D)oor subsystem        "
  284.       MAIN.FUNCTION$(5,1)        = "E)nter message         "
  285.       MAIN.FUNCTION$(6,1)        = "F)iles subsystem       "
  286.       MAIN.FUNCTION$(7,1)        = "I)nitial welcome       "
  287.       MAIN.FUNCTION$(8,1)        = "J)oin a conference     "
  288.       MAIN.FUNCTION$(9,1)        = "K)ill messages         "
  289.       MAIN.FUNCTION$(10,1)       = "O)perator page         "
  290.       MAIN.FUNCTION$(11,1)       = "P)ersonal mail         "
  291.       MAIN.FUNCTION$(12,1)       = "R)ead messages         "
  292.       MAIN.FUNCTION$(13,1)       = "S)can messages header  "
  293. * ------[ first line different ]------
  294.       MAIN.FUNCTION$(14,1)       = " T)ype ASCII file      "
  295.       MAIN.FUNCTION$(15,1)       = "U)tilities subsystem   "
  296.       MAIN.FUNCTION$(16,1)       = "V)iew conference mail  "
  297.       MAIN.FUNCTION$(17,1)       = "W)ho's on other nodes  "
  298.       MAIN.FUNCTION$(18,1)       = "@)InterNode Chat       "
  299.       MAIN.FUNCTION$(1,2)        = "A"
  300.       MAIN.FUNCTION$(2,2)        = "B"
  301.       MAIN.FUNCTION$(3,2)        = "C"
  302.       MAIN.FUNCTION$(4,2)        = "D"
  303.       MAIN.FUNCTION$(5,2)        = "E"
  304.       MAIN.FUNCTION$(6,2)        = "F"
  305.       MAIN.FUNCTION$(7,2)        = "I"
  306.       MAIN.FUNCTION$(8,2)        = "J"
  307.       MAIN.FUNCTION$(9,2)        = "K"
  308.       MAIN.FUNCTION$(10,2)       = "O"
  309.       MAIN.FUNCTION$(11,2)       = "P"
  310.       MAIN.FUNCTION$(12,2)       = "R"
  311.       MAIN.FUNCTION$(13,2)       = "S"
  312.       MAIN.FUNCTION$(14,2)       = "T"
  313.       MAIN.FUNCTION$(15,2)       = "U"
  314.       MAIN.FUNCTION$(16,2)       = "V"
  315.       MAIN.FUNCTION$(17,2)       = "W"
  316.       MAIN.MESSAGE.BACKUP$       = D$ + "MESSAGES.BAK"
  317.       MAIN.MESSAGE.FILE$         = D$ + "MESSAGES"
  318.       MAIN.PUI$                  = D$ + "MAIN.PUI"
  319.       MAIN.USER.FILE$            = D$ + "USERS"
  320.       MASTER.DIRECTORY.NAME$     = ""
  321.       MAX.ALLOWED.MSGS.FRM.DEF   = 5
  322.       MAX.CARRIER.WAIT           = 30
  323.       MAX.DESC.LEN               = 40
  324.       MAX.EXTENDED.LINES         = 2
  325.       MAX.MESSAGE.LINES          = 19
  326.       MAX.PER.DAY                = 0
  327.       MAX.REG.SEC                = 0
  328.       MAX.USR.FILE.SIZE.FRM.DEF  = 16
  329.       MAX.WORK.VAR               = 30
  330.       MAXD                       = 15
  331.       MAXIMUM.DISPLAYABLE.PAGES  = 17
  332.       MAXIMUM.PASSWORD.CHANGES   = 3
  333.       MAXIMUM.VIOLATIONS         = 5
  334.       MAXIMUM.NUMBER.OF.NODES    = 1
  335.       MENU$(1)                   = D$ + "MENU1"
  336.       MENU$(2)                   = D$ + "MENU2"
  337.       MENU$(3)                   = D$ + "MENU3"
  338.       MENU$(4)                   = D$ + "MENU4"
  339.       MENU$(5)                   = D$ + "MENU5"
  340.       MENU$(6)                   = D$ + "MENU6"
  341.       MENUS.CAN.PAUSE            = TRUE
  342.       MESSAGE.REMINDER           = TRUE
  343.       MESSAGES.CAN.GROW          = FALSE
  344.       MIN.NEWCALLER.BAUD         = 0
  345.       MIN.OLDCALLER.BAUD         = 0
  346.       MIN.SEC.TO.VIEW            = DEFAULT.SECURITY.LEVEL
  347.       MINIMUM.LOGON.SECURITY     = 0
  348.       MINIMUM.SECURITY.FOR.TEMP.PASSWORD = 5
  349.       MINUTES.PER.SESSION!       = 72
  350.       MLCOM                      = FALSE
  351.       MM                         = 5
  352.       MO$                        = DD$
  353.       MUSIC                      = FALSE
  354.       NET.MAIL$                  = "<none>"
  355.       NETWORK.TYPE               = 0
  356.       NETWORK.TYPE$              = "IBM's DOS"
  357.       NEW.FILES.CHECK            = FALSE
  358.       NEW.USER.QUESTIONNAIRE$    = D$ + "RBBS-REG.DEF"
  359.       NEWUSER.FILE$              = D$ + "NEWUSER"
  360.       NEWUSER.SETS.DEFAULTS      = TRUE
  361.       OMIT.MAIN.DIRECTORY$       = "NO"
  362.       OMIT.UPLOAD.DIRECTORY$     = "NO"
  363.       OVERWRITE.SECURITY.LEVEL   = SYSOP.SECURITY.LEVEL
  364.       PAGE.LENGTH                = 23
  365.       PAGING.PRINTER.SUPPORT$    = ". "
  366.       PASSWORD.FILE$             = D$ + "PASSWRDS"
  367.       PCJR                       = FALSE
  368.       PERSONAL.BEGIN             = 1
  369.       PERSONAL.DIR$              = D$+"PRIV.DEF"
  370.       PERSONAL.DRVPATH$          = D$
  371.       PERSONAL.LEN               = 31
  372.       PERSONAL.CONCAT            = FALSE
  373.       PRELOG$                    = D$ + "PRELOG"
  374.       PRIVATE.READ.SEC           = DEFAULT.SECURITY.LEVEL
  375.       PROTO.DEF$                 = D$ + "PROTO.DEF"
  376.       PROMPT.BELL                = 0
  377.       PROMPT.HASH$               = "Name"
  378.       PROMPT.INDIV$              = ""
  379.       PS                         = 5
  380.       PUBLIC.READ.SEC            = DEFAULT.SECURITY.LEVEL
  381.       QUES.PATH$                 = D$
  382.       RBBS.BAT$                  = D$ + "RBBS" + NODE.ID$ + ".BAT"
  383.       RBBS.NAME$                 = "RBBS-PC"
  384.       RCTTY.BAT$                 = D$ + "RCTTY" + NODE.ID$ + ".BAT"
  385.       RECYCLE.TO.DOS             = 0
  386.       RECYCLE.TO.DOS$            = "INTERNAL"
  387.       RECYCLE.WAIT               = 0
  388.       REDIRECT.IO.METHOD         = TRUE
  389.       REGISTRATION.PROGRAM$      = "<none>"
  390.       REMEMBER.NEW.USERS         = TRUE
  391.       REMIND.FILE.TRANSFERS      = FALSE
  392.       REMIND.PROFILE             = FALSE
  393.       REQUIRE.NON.ASCII          = TRUE
  394.       REQUIRED.QUESTIONNAIRE$    = "<none>"
  395.       REQUIRED.RINGS             = 1
  396.       RESTRICT.BAUD              = FALSE
  397.       RESTRICT.BY.DATE           = FALSE
  398.       RESTRICT.VALID.CMDS        = FALSE
  399.       RTS$                       = "NO"
  400.       SCREEN.OUT.MSG$            = "SEEN-BY: "
  401.       SEC.CHANGE.MSG             = SYSOP.SECURITY.LEVEL
  402.       SEC.LVL.EXEMPT.FRM.PURGING = SYSOP.SECURITY.LEVEL
  403.       SECVIO.HLP$                = D$ + "SECVIO." + HELP.EXTENSION$
  404.       SECURITY.EXEMPT.FROM.EPILOG= DEFAULT.SECURITY.LEVEL + 1
  405.       SF                         = SYSOP.SECURITY.LEVEL
  406.       SHOOT.YOURSELF             = FALSE
  407.       SHOW.SECTION               = TRUE
  408.       SIZE.OF.STACK              = 1024
  409.       SL.CATEGORIZE.UPLOADS      = SYSOP.SECURITY.LEVEL
  410.       SMART.TEXT                 = 123
  411.       START.HASH                 = 1
  412.       START.INDIV                = 0
  413.       START.OFFICE.HOURS         = 800
  414.       SURVIVE.NOUSER.ROOM        = FALSE
  415.       SWITCH.BACK                = FALSE
  416.       SYSOP.COMMANDS.DEFAULTS$   = "1234567"
  417.       SYSOP.COMMANDS$            = SYSOP.COMMANDS.DEFAULTS$
  418.       SYSOP.FUNCTION$(1,1)       = " 1 List comments      "
  419.       SYSOP.FUNCTION$(2,1)       = " 2 List CALLERS log   "
  420.       SYSOP.FUNCTION$(3,1)       = " 3 Recover a message  "
  421.       SYSOP.FUNCTION$(4,1)       = " 4 Erase comments     "
  422.       SYSOP.FUNCTION$(5,1)       = " 5 User maintenance   "
  423.       SYSOP.FUNCTION$(6,1)       = " 6 Toggle Page bell   "
  424.       SYSOP.FUNCTION$(7,1)       = " 7 Exit to DOS        "
  425.       SYSOP.FUNCTION$(1,2)       = " 1"
  426.       SYSOP.FUNCTION$(2,2)       = " 2"
  427.       SYSOP.FUNCTION$(3,2)       = " 3"
  428.       SYSOP.FUNCTION$(4,2)       = " 4"
  429.       SYSOP.FUNCTION$(5,2)       = " 5"
  430.       SYSOP.FUNCTION$(6,2)       = " 6"
  431.       SYSOP.FUNCTION$(7,2)       = " 7"
  432.       SYSOP.FIRST.NAME$          = "TOM"
  433.       SYSOP.LAST.NAME$           = "MACK"
  434.       SYSOP.MENU.SECURITY.LEVEL  = SYSOP.SECURITY.LEVEL
  435.       SYSOP.PASSWORD.1$          = "SECRET"
  436.       SYSOP.PASSWORD.2$          = "NAME"
  437.       TEST.ANSI.TIME             = 0
  438.       TIME.TO.DROP.TO.DOS        = 0
  439.       TRASHCAN.FILE$             = D$ + "TRASHCAN"
  440.       TURN.PRINTER.OFF           = FALSE
  441.       TURBO.RBBS                 = TRUE
  442.       UE                         = 5
  443.       FMS.DIRECTORY$             = ""
  444.       UPCAT.HELP$                = "UPCAT"
  445.       UPLOAD.DIRECTORY$          = "99"
  446.       UPLOAD.PATH$               = D$
  447.       UPLOAD.SUBDIR$             = ""
  448.       UPLOAD.TIME.FACTOR!        = 0
  449.       UPLOAD.TO.SUBDIR           = FALSE
  450.       USE.BASIC.WRITES           = FALSE
  451.       USE.DEVICE.DRIVER$         = ""
  452.       USER.LOCATION$             = "CITY and STATE"
  453.       UTIL.COMMANDS.DEFAULTS$    = "BCEFGLMPRSTU"
  454.       UTIL.COMMANDS$             = UTIL.COMMANDS.DEFAULTS$
  455.       UTILITY.FUNCTION$(1,1)     = "B)ank time            "
  456.       UTILITY.FUNCTION$(2,1)     = "C)lock (time)         "
  457.       UTILITY.FUNCTION$(3,1)     = "E)cho                 "
  458.       UTILITY.FUNCTION$(4,1)     = "F)ile x-fer protocol  "
  459.       UTILITY.FUNCTION$(5,1)     = "G)raphics             "
  460.       UTILITY.FUNCTION$(6,1)     = "L)ines per page       "
  461.       UTILITY.FUNCTION$(7,1)     = "M)sg margin setting   "
  462.       UTILITY.FUNCTION$(8,1)     = "P)assword change      "
  463.       UTILITY.FUNCTION$(9,1)     = "R)eview defaults      "
  464.       UTILITY.FUNCTION$(10,1)    = "S)tatistics           "
  465.       UTILITY.FUNCTION$(11,1)    = "T)oggle               "
  466.       UTILITY.FUNCTION$(12,1)    = "U)ser log scan        "
  467.       VOICE.TYPE                 = 0
  468.       VOICE.TYPE$                = NONE.PICKED$
  469.       XON.XOFF                   = FALSE
  470.       ZCallersLst$               = D$ + "CALLLST.DEF"
  471.       ZCopyrightSecs             = 8
  472.       ZDistriHelp$               = "DISTRI"
  473.       ZDistriPath$               = D$
  474.       ZEnableCC                  = FALSE
  475.       ZMaxBank                   = 60
  476.       ZMinSecPersUpld            = SYSOP.SECURITY.LEVEL
  477.       ZMsgSecCats$               = "URP"
  478.       ZSkipMailCheck             = 0                       'Pe 11/02/92
  479.       FOR I = 1 TO LEN(UTIL.COMMANDS.DEFAULTS$)
  480.          UTILITY.FUNCTION$(I,2) = MID$(UTIL.COMMANDS.DEFAULTS$,I,1)
  481.       NEXT
  482.       WAIT.BEFORE.DISCONNECT     = 180
  483.       WELCOME.FILE$              = D$ + "WELCOME"
  484.       WELCOME.INTERRUPTABLE      = TRUE
  485.       WILL.SUBDIRS.B.USED        = FALSE
  486.       WRITE.BUF.DEF              = 1024
  487.       FOR I = 1 TO NUM.SYSOP
  488.          SYSOP.FUNCTION(I) = SF
  489.       NEXT
  490.       FOR I = 1 TO NUM.MAIN
  491.          MAIN.FUNCTION(I) = MM
  492.       NEXT
  493.       FOR I = 1 TO NUM.FILES
  494.          FILES.FUNCTION(I) = FC
  495.       NEXT
  496.       FOR I = 1 TO NUM.LIBRARY
  497.          LIBRARY.FUNCTION(I) = PS
  498.       NEXT
  499.       FOR I = 1 TO NUM.UTILITY
  500.          UTILITY.FUNCTION(I) = UE
  501.       NEXT
  502.       FOR I = 1 TO NUM.GLOBAL
  503.          GLOBAL.FUNCTION(I) = GB
  504.       NEXT
  505.       CALL MODEMINITCMD
  506.       END SUB
  507. '  $SUBTITLE: 'VOICETYPE - subroutine to select voice'
  508. '  $PAGE
  509. '
  510. '  SUBROUTINE NAME    --  VOICETYPE
  511. '
  512. '  INPUT PARAMETERS   --  VOICE.TYPE
  513. '                         VOICE.TYPE$
  514. '                         SUBROUTINE.PARAMETER
  515. '
  516. '  OUTPUT PARAMETERS  --  VOICE.TYPE
  517. '                         VOICE.TYPE$
  518. '
  519. '  SUBROUTINE PURPOSE --  TO SELECT THE RBBS-PC SUPPORTED VOICE
  520. '                         SYNTHESIZERS
  521. '
  522.       SUB VOICETYPE STATIC
  523.       ON SUBROUTINE.PARAMETER GOTO 60482,60484
  524. * REPLACING old line(s) by new
  525. 60482 CLS
  526.       LOCATE 3,1
  527. * ------[ first line different ]------
  528.       PRINT "     Add Users Name to Dir listing:"  'Pe 06/01/92
  529.       PRINT 
  530.       PRINT "          0. No"                      
  531.       PRINT "          1. Yes"
  532.       PRINT
  533. * REPLACING old line(s) by new
  534. * ------[ first line different ]------
  535. 60483 CALL ASKRO("Select Please (0 or 1, [ENTER] quits)",24,X$)
  536.       IF X$ = "" THEN _
  537.          EXIT SUB
  538.       VOICE.TYPE = VAL(X$)
  539.       IF VOICE.TYPE < 0 OR VOICE.TYPE > 2 THEN _
  540.          GOTO 60483
  541. * REPLACING old line(s) by new
  542. 60484 IF VOICE.TYPE = 0 THEN _
  543. * ------[ first line different ]------
  544.          VOICE.TYPE$ = "Don't add"
  545.       IF VOICE.TYPE = 1 THEN _
  546.          VOICE.TYPE$ = "Add Users Name"
  547.       IF VOICE.TYPE = 2 THEN _
  548.          VOICE.TYPE$ = "Add Users Name"
  549.       END SUB
  550. '  $SUBTITLE: 'ASKRO - ask a question at a specific row'
  551. '  $PAGE
  552. '
  553. '  SUBROUTINE NAME    --  ASKRO
  554. '
  555. '  INPUT PARAMETERS   --  PARAMETER         MENANING
  556. '                         ANS$           STRING TO PUT THE ANSWER IN
  557. '                         STRNG$         STRING CONTAINING THE QUESTION
  558. '                         RO             ROW TO ASK THE QUESTION ON
  559. '
  560. '  OUTPUT PARAMETERS  --  ANS$           RESPONSE FROM THE KEYBOARD
  561. '
  562. '  SUBROUTINE PURPOSE --  TO ASK A QUESTION ON THE PC'S DISPLAY AT A
  563. '                         SPECIFIC ROW
  564. '
  565.       SUB ASKRO (STRNG$,RO,ANS$) STATIC
  566. * REPLACING old line(s) by new
  567. 61900 CLS
  568.       I! = FRE(C$)
  569.       COLOR 0,7,0
  570. * ------[ first line different ]------
  571.       LOCATE 1,18
  572.       PRINT " Maple RBBS-PC "+ CONFIG.VERSION$ + " Default Configuration";
  573.       COLOR FG,BG,BORDER
  574.       LOCATE  2,5
  575.       PRINT "The RBBS-PC " + _
  576.              SECTION$ + _
  577.             " Commands are as follows:"
  578.       LOCATE   3,10
  579.       XX$ = "Command             Security"
  580.       IF IPAGE = 2 OR _
  581.          VAL(OPTION$) = 310 THEN _
  582.          XX$ = "Description         Command"
  583.       PRINT XX$
  584.       RETURN
  585.       END SUB
  586. '  $SUBTITLE: 'GETCOLOR - get colors using natural language'
  587. '  $PAGE
  588. '
  589. '  SUBROUTINE NAME    -- GETCOLOR
  590. '
  591. '  INPUT PARAMETERS   -- PARAMETER             MEANING
  592. '                        STRNG$             TITLE OF WHAT COLOR IS FOR
  593. '                        NUM.COLOR          CURRENT COLOR SETTING
  594. '
  595. '  OUTPUT PARAMETERS  -- NUM.COLOR          NEW COLOR SETTING
  596. '
  597. '  SUBROUTINE PURPOSE -- SET THE COLOR USING NATURAL LANGUAGE PHRASES
  598. '
  599.       SUB GETCOLOR (STRNG$,NUM.COLOR) STATIC
  600.       CLS
  601.