home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / MAPL0206.ZIP / MCFG0206.MRG < prev    next >
Encoding:
Text File  |  1993-02-06  |  20.1 KB  |  483 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against E:\RBBS\STOCK\CONFIG.BAS to produce E:\RBBS\CHAT\CONFIG.BAS
  3. * E:\RBBS\STOCK\CONFIG.BAS:  Date 6-20-1992  Size 157813 bytes
  4. * ------------[ Created 02-06-1993 06:08:42 ]------------
  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.       WIDTH 80
  35.       CLS
  36.       NOT.YET.IN$ = "[Not Implemented]"  ' Msg used in config for parm not yet implemented
  37.       NONE.PICKED$ = "<none>"    ' Standardized message
  38.       NUM.FILES = 8
  39.       NUM.GLOBAL = 4
  40.       NUM.MAIN = 18
  41.       NUM.SYSOP = 7
  42.       NUM.UTILITY = 12
  43.       NUM.LIBRARY = 7
  44.       VERSION.NUMBER$ = "17.4"
  45.       I! = FRE(C$)
  46.       KEY OFF
  47.       CALL CNFGINIT
  48.       PRINT TAB(60)"tm"
  49.       PRINT TAB(16) STRING$(15,205)" U S E R W A R E "STRING$(15,205)
  50.       PRINT
  51.       PRINT TAB(17)"Capital PC User Group User-Supported Software"
  52.       PRINT
  53.       X$ = "    "
  54. * ------[ first line different ]------
  55.       PRINT "Copyright (c) 1983-1991 D. Thomas Mack, 39 Cranbury Dr., Trumbull, CT. 06611"
  56.       PRINT
  57.       PRINT X$;"    If you use Maple RBBS-PC " + CONFIG.VERSION$ + " and find"
  58.       PRINT X$;"    it valuable, consider contributing to"
  59.       PRINT ""
  60.       PRINT X$;"                 Capital PC Software Exchange"
  61.       PRINT X$;"                     Post Office Box 1785"
  62.       PRINT X$;"                West Bethesda, Maryland  20827"
  63.       PRINT
  64.       PRINT X$;"    You are free to copy and share RBBS-PC provided"
  65.       PRINT X$;"      1.  This program is not distributed in modified form."
  66.       PRINT X$;"      2.  No fee or consideration is charged for RBBS-PC itself."
  67. * REPLACING old line(s) by new
  68. 10230 PRINT X$;"      3.  This notice is not bypassed or removed."
  69.       PRINT
  70. '
  71. ' *  DEFINE THE FUNCTIONS USED BY CONFIG
  72. '
  73.       DEF FNTI! = CSNG(FIX((VAL(MID$(TIME$,1,2)) * 60 * 60) _
  74.                          + (VAL(MID$(TIME$,4,2)) * 60) _
  75.                          + (VAL(MID$(TIME$,7,2)) * 1)))
  76.       DEF FNHSH(X$) = ((ASC(X$) * 100  _
  77.                          + ASC(MID$(X$,(LEN(X$)/2) + .1,1)) * 10  _
  78.                          + ASC(RIGHT$(X$,1))) MOD MAX.USR.FILE.SIZE.FRM.DEF) + 1
  79.       DEF FNHSH2(X$) = (ASC(MID$(X$,2,1)) * 10 + 7) MOD MAX.USR.FILE.SIZE.FRM.DEF
  80. * ------[ first line different ]------
  81.       DELAY! = FNTI! + 1
  82. * REPLACING old line(s) by new
  83. 11600 INPUT #1,CONFIG.FILE.VER$, _
  84.                DOWNLOAD.DRIVES$, _
  85.                SYSOP.PASSWORD.1$, _
  86.                SYSOP.PASSWORD.2$, _
  87.                SYSOP.FIRST.NAME$, _
  88.                SYSOP.LAST.NAME$, _
  89.                REQUIRED.RINGS, _
  90.                START.OFFICE.HOURS, _
  91.                END.OFFICE.HOURS, _
  92.                MINUTES.PER.SESSION!, _
  93.                MAX.ALLOWED.MSGS.FRM.DEF, _
  94.                ACT.MNTHS.B4.DELETING, _
  95.                UPLOAD.DIRECTORY$, _
  96. * ------[ first line different ]------
  97.                ZSkipMailCheck, _                    'Pe 11/02/92
  98.                ACTIVE.BULLETINS, _
  99.                PROMPT.BELL, _
  100.                PCJR, _
  101.                MENUS.CAN.PAUSE, _
  102.                MENU$(1), _
  103.                MENU$(2), _
  104.                MENU$(3), _
  105.                MENU$(4), _
  106.                MENU$(5), _
  107.                MENU$(6), _
  108.                CONFERENCE.MENU$, _
  109.                TEST.ANSI.TIME, _
  110.                WELCOME.INTERRUPTABLE, _
  111.                REMIND.FILE.TRANSFERS, _
  112.                PAGE.LENGTH, _
  113.                MAX.MESSAGE.LINES, _
  114.                DOORS.AVAILABLE, _
  115.                MO$
  116.       IF CONFIG.FILE.VER$ > LEFT$(VERSION.NUMBER$,5) OR _
  117.          CONFIG.FILE.VER$ < "17.1A" THEN _
  118.          PRINT "Config DEF file, " + CONFIG.FILENAME$ + " not " + CONFIG.VERSION$ : _
  119.          END
  120.       GOSUB 22340
  121. * REPLACING old line(s) by new
  122. 12626 ON ILOOKUP GOSUB 18000, _  '  41 Field used to locate a users record
  123.                        18100, _  '  42 Field to distinguish users with same id
  124.                        17800, _  '  43 Where personal id begins in user rec
  125.                        17810, _  '  44 Length of personal id in user rec
  126.                        17830, _  '  45 First Name prompt
  127.                        17840, _  '  46 Last Name prompt
  128.                        17850, _  '  47 Enforce upload/download ratios
  129.                        17630, _  '  48 Restrict users by date
  130.                        18510, _  '  49 Security level when subscription expires
  131.                        18530, _  '  50 Days before expiration to warn user
  132.                        18520, _  '  51 Days a newuser gets when registers
  133.                        17610, _  '  52 Turn printer off on recycle
  134. * ------[ first line different ]------
  135.                        17620, _  '  53 Do Not write Uploadlg.def file? 'Pe 03/31/92
  136.                        21760, _  '  54 Buffer size for text files
  137.                        16032, _  '  55 Size of stack space to use
  138.                        22550, _  '  56 Notify users when SYSOP wants system?
  139.                        17845, _  '  57 Ask users their (city/state)
  140.                        12325, _  '  58
  141.                        21770, _  '  59 Internal Protocols stripped in Maple 'Pe 06/26/92
  142.                        21900     '  60 Voice synthesizer support
  143.       GOTO 12325
  144. * REPLACING old line(s) by new
  145. 12646 ON ILOOKUP GOSUB 17560, _  ' 281 Prompt new users for their preferences
  146. * ------[ first line different ]------
  147.                        17565, _  ' 282 Skip Mail check on log on
  148.                        22550, _  ' 283 New users default file-transfer mode
  149.                        22550, _  ' 284 Line feeds for new users default to
  150.                        22550, _  ' 285 Nulls for new users default to
  151.                        22550, _  ' 286 Prompt bell for new users defaults to
  152.                        22550, _  ' 287 New users 'graphics' ability is
  153.                        22550, _  ' 288 New users upper/lower case
  154.                        22550, _  ' 289 New users margins defaults are
  155.                        17570, _  ' 290 Remember new users
  156.                        17580, _  ' 291 Survive no user room
  157.                        17295, _  ' 292 Max # of mins can bank
  158.                        12325, _  ' 293
  159.                        12325, _  ' 294
  160.                        12325, _  ' 295
  161.                        12325, _  ' 296
  162.                        12325, _  ' 297
  163.                        12325, _  ' 298
  164.                        12325, _  ' 299
  165.                        12325     ' 300
  166.       GOTO 12325
  167. * REPLACING old line(s) by new
  168. * ------[ first line different ]------
  169. 12647 ON ILOOKUP GOSUB 20000, _  ' 301 Drive for Chat
  170.                        20010, _  ' 302 Drive/path for directory
  171.                        20020, _  ' 303 Extension for directory lists
  172.                        20030, _  ' 304 Drive/path for work disk
  173.                        20040, _  ' 305 # of disks in Library
  174.                        20050, _  ' 306 # of Master directories
  175.                        20060, _  ' 307 # of subdirectories in each master
  176.                        20070, _  ' 308 Prefix of subdirectory on Library
  177.                        20080, _  ' 309 Name of subsystem command menu
  178.                        20090, _  ' 310 Symbols to use for menu commands
  179.                        20090, _  ' 311 Security levels for menu functions
  180.                        20100, _  ' 312 Drive/path of ARCHIVE utility
  181.                        20110, _  ' 313 Name of ARCHIVE utility
  182.                        12325, _  ' 314
  183.                        12325, _  ' 315
  184.                        12325, _  ' 316
  185.                        12325, _  ' 317
  186.                        12325, _  ' 318
  187.                        12325, _  ' 319
  188.                        12325     ' 320
  189.       GOTO 12325
  190. * INSERTING new line(s)
  191. 17565 CALL GETNUMYN ("Skip Mail check on log on ",ZSkipMailCheck)   'Pe 11/02/92
  192.       RETURN                                                        'Pe 11/02/92
  193. * REPLACING old line(s) by new
  194. * ------[ first line different ]------
  195. 17620 CALL GETNUMYN ("OMIT Users/File Name from UPLOADLG.DEF File ",MUSIC)  'Pe 03/31/92
  196.       RETURN
  197. * REPLACING old line(s) by new
  198. * ------[ first line different ]------
  199. 17650 CALL GETNUMYN ("AUTODOWNLOAD removed in Maple version (answer NO)",ASK.IDENTITY) 'Pe 06/27/92
  200.       RETURN
  201. * REPLACING old line(s) by new
  202. 18800 CALL GETNUMYN ("Set the Parameters new in " + CONFIG.VERSION$,AB)
  203.       IF NOT AB THEN _
  204.          RETURN
  205.       HJ$ = CHR$(13)
  206. '
  207. ' * SET THE PARAMETERS NEW TO THIS RELEASE OF RBBS-PC
  208. ' *  20 = Seconds to wait for ansi detect
  209. * ------[ first line different ]------
  210. ' *  96 = Seconds to display copyright notice
  211. ' *  97 = Prevent callers from quoting a reply
  212. ' * 159 = Min security to do personal uploads
  213. ' * 160 = Let msgs have multiple recipients
  214. ' * 171 = name of distribution list menu
  215. ' * 172 = drive/path where distribution lists stored
  216. ' * 173 = types of msg protection allowed
  217. ' * 292 = max # of minutes can bank
  218. '
  219.       KSTACKED$ = "20" + HJ$ + "96" + HJ$ + _
  220.                   "97" + HJ$ + "159" + HJ$
  221.       KSTACKED$ = KSTACKED$ + _
  222.                   "160" + HJ$ + "171" + HJ$ + _
  223.                   "172" + HJ$ + "173" + HJ$
  224.       KSTACKED$ = KSTACKED$ + _
  225.                   "292" + HJ$
  226.       IPAGE = 1
  227.       RETURN
  228. '
  229. ' * LET THE SYSOP SPECIFY THE NUMBER OF RECORDS IN THE USER FILE
  230. '
  231. * REPLACING old line(s) by new
  232. 20000 LOCATE 18,1
  233. * ------[ first line different ]------
  234.       A$ = "Specify Drive for CHAT work files in the range A->" + M$ + "(or NONE) " 'Pe 03/31/92
  235.       MAX = 4
  236.       GOSUB 13599
  237.       LIBRARY.DRIVE$ = HJ$
  238.       IF LEN(HJ$) > 1 AND HJ$ <> "NONE" THEN _
  239.          GOTO 20000
  240.       IF LIBRARY.DRIVE$ = "NONE" THEN _
  241.          LIBRARY.DRIVE$ = "" _
  242.       ELSE LIBRARY.DRIVE$ = LIBRARY.DRIVE$ + ":"
  243.       RETURN
  244. '
  245. ' * LIBRARY DIRECTORY/PATH
  246. '
  247. * REPLACING old line(s) by new
  248. 23630 SK = 0
  249.       GOSUB 30040              ' <----Print message headers
  250.       FILNUM = 1
  251.       GOSUB 30050
  252.       FIELD 1,128 AS MESSAGE.RECORD$
  253. * ------[ first line different ]------
  254.       IS.HEADER$ = CHR$(225) + CHR$(226)
  255.       FOR I = FIRST.MESSAGE.RECORD TO NEXT.MESSAGE.RECORD - 1
  256.          GET 1,I
  257.          IF INSTR(IS.HEADER$,MID$(MESSAGE.RECORD$,116,1)) = 0 THEN _
  258.             GOTO 23725
  259.          IF VAL(MID$(MESSAGE.RECORD$,117,4)) > 0 AND _
  260.             SK < VAL(MID$(MESSAGE.RECORD$,2,4)) THEN _
  261.             SK = VAL(MID$(MESSAGE.RECORD$,2,4)) : _
  262.             I = LOC(1) + VAL(MID$(MESSAGE.RECORD$,117,4)) - 1 _
  263.          ELSE GOTO 23725
  264.          I$ = "K"
  265.          IF MID$(MESSAGE.RECORD$,116,1) = CHR$(225) THEN _
  266.             I$ = "A"
  267.          IF LOC(1) > NEXT.MESSAGE.RECORD - 1 THEN _
  268.             GOTO 23730
  269.          PRINT LEFT$(MESSAGE.RECORD$,5) + " " + _
  270.                MID$(MESSAGE.RECORD$,76,25) + " " + _
  271.                MID$(MESSAGE.RECORD$,101,15) + " " + _
  272.                I$ + " " + _
  273.                MID$(MESSAGE.RECORD$,117,4) + " " + _
  274.                STR$(LOC(1)) + " "  + _
  275.                STR$(I)
  276.          SK = VAL(MID$(MESSAGE.RECORD$,2,4))
  277.          IF RB AND VAL(MID$(MESSAGE.RECORD$,2,4)) = CALLS.TODATE! THEN _
  278.             GOTO 23730
  279.          IF RB THEN _
  280.             GOSUB 50580
  281. * REPLACING old line(s) by new
  282. 24800 CLS
  283.       I! = FRE(C$)
  284.       COLOR 0,7,0
  285. * ------[ first line different ]------
  286.       LOCATE 1,3
  287.       PRINT " Maple RBBS-PC Default Configuration " + CONFIG.VERSION$";
  288.       IF CONFERENCE.MODE THEN _
  289.          GOSUB 24970
  290.       COLOR FG,BG,BORDER
  291.       PRINT " Page" + STR$(DISPLAYED.PAGE.NUMBER) + " of" + STR$(MAXIMUM.DISPLAYABLE.PAGES)
  292.       RETURN
  293. '
  294. ' * ROUTINE TO DISPLAY CONFERENCE MAINTENANCE MODE IN CONFIG'S DISPLAYS
  295. '
  296. * REPLACING old line(s) by new
  297. 50580 OLD = LOC(1)
  298.       GET 1,I + 1
  299.       IF (MID$(MESSAGE.RECORD$,116,1) = CHR$(225) _
  300.          OR  MID$(MESSAGE.RECORD$,116,1) = CHR$(226)) _
  301.          AND (MID$(MESSAGE.RECORD$,61,1) = ":" _
  302. * ------[ first line different ]------
  303.          AND MID$(MESSAGE.RECORD$,70,1) = "-" _
  304.          AND MID$(MESSAGE.RECORD$,73,1) = "-") THEN _
  305.          RETURN
  306.       PRINT "Message chain broken at record number " + STR$(OLD)
  307.       PRINT "Message chain repair in progress!
  308.       FOR IQ = OLD + 1 TO NEXT.MESSAGE.RECORD - 1
  309.          GET 1,IQ
  310.          IF (MID$(MESSAGE.RECORD$,116,1) = CHR$(225) _
  311.             OR MID$(MESSAGE.RECORD$,116,1) = CHR$(226)) _
  312.             AND (MID$(MESSAGE.RECORD$,61,1)  = ":" _
  313.             AND  MID$(MESSAGE.RECORD$,64,1)  = ":" _
  314.             AND  MID$(MESSAGE.RECORD$,70,1) = "-" _
  315.             AND  MID$(MESSAGE.RECORD$,73,1) = "-") THEN _
  316.             GET 1,OLD : _
  317.             MID$(MESSAGE.RECORD$,117,4) = STR$(IQ - OLD) : _
  318.             PUT 1,OLD : _
  319.             PRINT "Message chain repaired." : _
  320.             I = IQ : _
  321.             RETURN
  322.       NEXT
  323.       RETURN 23730
  324. '
  325. ' * COMMON SUBROUTINE TO HASH A USER'S NAME TO FIND THE CORRECT USER RECORD #
  326. '
  327. * REPLACING old line(s) by new
  328. 59030 WRITE #1,VERSION.NUMBER$, _
  329.                DOWNLOAD.DRIVES$, _
  330.                SYSOP.PASSWORD.1$, _
  331.                SYSOP.PASSWORD.2$, _
  332.                SYSOP.FIRST.NAME$, _
  333.                SYSOP.LAST.NAME$, _
  334.                REQUIRED.RINGS, _
  335.                START.OFFICE.HOURS, _
  336.                END.OFFICE.HOURS, _
  337.                MINUTES.PER.SESSION!, _
  338.                MAX.ALLOWED.MSGS.FRM.DEF, _
  339.                ACT.MNTHS.B4.DELETING, _
  340.                UPLOAD.DIRECTORY$,_
  341. * ------[ first line different ]------
  342.                ZSkipMailCheck, _                 'Pe 11/02/92
  343.                ACTIVE.BULLETINS, _
  344.                PROMPT.BELL, _
  345.                PCJR, _
  346.                MENUS.CAN.PAUSE, _
  347.                MENU$(1), _
  348.                MENU$(2), _
  349.                MENU$(3), _
  350.                MENU$(4), _
  351.                MENU$(5), _
  352.                MENU$(6), _
  353.                CONFERENCE.MENU$, _
  354.                TEST.ANSI.TIME, _
  355.                WELCOME.INTERRUPTABLE, _
  356.                REMIND.FILE.TRANSFERS, _
  357.                PAGE.LENGTH, _
  358.                MAX.MESSAGE.LINES, _
  359.                DOORS.AVAILABLE, _
  360.                MO$
  361.       IF INSTR(BULLETIN.MENU$,":") < 1 THEN _
  362.          BULLETIN.MENU$ = DRIVE.FOR.BULLETINS$ + _
  363.                           BULLETIN.MENU$
  364.       IF INSTR(BULLETIN.PREFIX$,":") < 1 THEN _
  365.          BULLETIN.PREFIX$ = DRIVE.FOR.BULLETINS$ + _
  366.                             BULLETIN.PREFIX$
  367.       IF GLOBAL.FUNCTION(3) > MINIMUM.LOGON.SECURITY THEN _
  368.          GLOBAL.FUNCTION(3) = MINIMUM.LOGON.SECURITY
  369.       IF FILES.FUNCTION(2) > MINIMUM.LOGON.SECURITY THEN _
  370.          FILES.FUNCTION(2) = MINIMUM.LOGON.SECURITY
  371.       IF LIBRARY.FUNCTION(4) > MINIMUM.LOGON.SECURITY THEN _
  372.          LIBRARY.FUNCTION(4) = MINIMUM.LOGON.SECURITY
  373.       IF LIBRARY.DRIVE$ = "" THEN _
  374.          MAIN.FUNCTION(18) = 32767
  375.       WRITE #1,MAIN.MESSAGE.FILE$, _
  376.                MAIN.MESSAGE.BACKUP$, _
  377.                CALLERS.FILE$, _
  378.                COMMENTS.FILE$, _
  379.                MAIN.USER.FILE$, _
  380.                WELCOME.FILE$, _
  381.                NEWUSER.FILE$, _
  382.                DIRECTORY.EXTENTION$, _
  383.                COM.PORT$, _
  384.                BULLETINS.OPTIONAL, _
  385.                USER.INIT.COMMAND$, _
  386.                RTS$, _
  387.                ZCallersLst$, _
  388.                FG, _
  389.                BG, _
  390.                BORDER, _
  391.                RBBS.BAT$, _
  392.                RCTTY.BAT$
  393.       WRITE #1,OMIT.MAIN.DIRECTORY$, _
  394.                FIRST.NAME.PROMPT$, _
  395.                HELP$(3), _
  396.                HELP$(4), _
  397.                HELP$(7), _
  398.                HELP$(9), _
  399.                BULLETIN.MENU$, _
  400.                BULLETIN.PREFIX$, _
  401.                DRIVE.FOR.BULLETINS$, _
  402.                MESSAGE.REMINDER, _
  403.                REQUIRE.NON.ASCII, _
  404.                ASK.EXTENDED.DESC, _
  405.                MAXIMUM.NUMBER.OF.NODES, _
  406.                NETWORK.TYPE, _
  407.                RECYCLE.TO.DOS, _
  408.                MAX.USR.FILE.SIZE.FRM.DEF, _
  409.                MAX.MSG.FILE.SIZE.FRM.DEF!, _
  410.                TRASHCAN.FILE$
  411.       WRITE #1,MINIMUM.LOGON.SECURITY, _
  412.                DEFAULT.SECURITY.LEVEL, _
  413.                SYSOP.SECURITY.LEVEL, _
  414.                FILESEC.FILE$, _
  415.                SYSOP.MENU.SECURITY.LEVEL, _
  416.                CONFMAIL.LIST$, _
  417.                MAXIMUM.VIOLATIONS, _
  418.                SYSOP.FUNCTION(1), _
  419.                SYSOP.FUNCTION(2), _
  420.                SYSOP.FUNCTION(3), _
  421.                SYSOP.FUNCTION(4), _
  422.                SYSOP.FUNCTION(5), _
  423.                SYSOP.FUNCTION(6), _
  424.                SYSOP.FUNCTION(7), _
  425.                PASSWORD.FILE$, _
  426.                MAXIMUM.PASSWORD.CHANGES, _
  427.                MINIMUM.SECURITY.FOR.TEMP.PASSWORD, _
  428.                OVERWRITE.SECURITY.LEVEL, _
  429.                DOORS.TERMINAL.TYPE, _
  430.                MAX.PER.DAY
  431.       WRITE #1,MAIN.FUNCTION(1), _
  432.                MAIN.FUNCTION(2), _
  433.                MAIN.FUNCTION(3), _
  434.                MAIN.FUNCTION(4), _
  435.                MAIN.FUNCTION(5), _
  436.                MAIN.FUNCTION(6), _
  437.                MAIN.FUNCTION(7), _
  438.                MAIN.FUNCTION(8), _
  439.                MAIN.FUNCTION(9), _
  440.                MAIN.FUNCTION(10), _
  441.                MAIN.FUNCTION(11), _
  442.                MAIN.FUNCTION(12), _
  443.                MAIN.FUNCTION(13), _
  444.                MAIN.FUNCTION(14), _
  445.                MAIN.FUNCTION(15), _
  446.                MAIN.FUNCTION(16), _
  447.                MAIN.FUNCTION(17), _
  448.                MAIN.FUNCTION(18), _
  449.                MIN.NEWCALLER.BAUD, _
  450.                WAIT.BEFORE.DISCONNECT
  451.       WRITE #1,FILES.FUNCTION(1), _
  452.                FILES.FUNCTION(2), _
  453.                FILES.FUNCTION(3), _
  454.                FILES.FUNCTION(4), _
  455.                FILES.FUNCTION(5), _
  456.                FILES.FUNCTION(6), _
  457.                FILES.FUNCTION(7), _
  458.                FILES.FUNCTION(8), _
  459.                UTILITY.FUNCTION(1), _
  460.                UTILITY.FUNCTION(2), _
  461.                UTILITY.FUNCTION(3), _
  462.                UTILITY.FUNCTION(4), _
  463.                UTILITY.FUNCTION(5), _
  464.                UTILITY.FUNCTION(6), _
  465.                UTILITY.FUNCTION(7), _
  466.                UTILITY.FUNCTION(8), _
  467.                UTILITY.FUNCTION(9), _
  468.                UTILITY.FUNCTION(10), _
  469.                UTILITY.FUNCTION(11), _
  470.                UTILITY.FUNCTION(12), _
  471.                GLOBAL.FUNCTION(1), _
  472.                GLOBAL.FUNCTION(2), _
  473.                GLOBAL.FUNCTION(3), _
  474.                GLOBAL.FUNCTION(4), _
  475.                UPLOAD.TIME.FACTOR!, _
  476.                COMPUTER.TYPE, _
  477.                REMIND.PROFILE, _
  478.                RBBS.NAME$, _
  479.                COMMANDS.BETWEEN.RINGS, _
  480.                ZCopyrightSecs, _
  481.                PAGING.PRINTER.SUPPORT$, _
  482.                MODEM.INIT.BAUD$
  483.