home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / rbbs_pc / rfix0312.zip / RSB10312.MRG < prev    next >
Text File  |  1993-03-12  |  7KB  |  211 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against C:\174\RBBSSUB1.BAS to produce D:\SOURCE\RBBSSUB1.BAS
  3. * C:\174\RBBSSUB1.BAS:  Date 6-20-1992  Size 55569 bytes
  4. * ------------[ Created 03-12-1993 21:23:13 ]------------
  5. * REPLACING old line(s) by new
  6. 117 IF ZSubParm <> -62 THEN _
  7.        IF PrevRead$ = ConfigFile$ THEN _
  8.           EXIT SUB _
  9.        ELSE PrevRead$ = ConfigFile$
  10.     CLOSE 2
  11.     ZBulletinSave$ = ZBulletinMenu$
  12.     CALL OpenWork (2,ConfigFile$)
  13.     ZCurDef$ = ConfigFile$
  14.     INPUT #2,ZWasDF$, _
  15.              ZDnldDrives$, _
  16.              ZSysopPswd1$, _
  17.              ZSysopPswd2$, _
  18.              ZSysopFirstName$, _
  19.              ZSysopLastName$, _
  20.              ZRequiredRings, _
  21.              ZStartOfficeHours, _
  22.              ZEndOfficeHours, _
  23.              ZMinsPerSession, _
  24.              ZWasDF, _
  25.              ZWasDF, _
  26.              ZUpldDir$, _
  27.              ZExpertUserDef, _
  28.              ZActiveBulletins, _
  29.              ZPromptBellDef, _
  30.              ZWasDF, _
  31.              ZMenusCanPause, _
  32.              ZMenu$(1), _
  33.              ZMenu$(2), _
  34.              ZMenu$(3), _
  35.              ZMenu$(4), _
  36.              ZMenu$(5), _
  37.              ZMenu$(6), _
  38.              ZConfMenu$, _
  39.              ZTestANSITime, _
  40.              ZWelcomeInterruptable, _
  41.              ZRemindFileXfers, _
  42.              ZPageLengthDef, _
  43.              ZMaxMsgLinesDef, _
  44.              ZDoorsAvail, _
  45.              ZWasDF$, _
  46.              ZMainMsgFile$, _
  47.              ZMainMsgBackup$
  48.     INPUT #2, WasX$, _
  49.               ZCmntsFile$, _
  50.               ZMainUserFile$, _
  51.               ZWelcomeFile$, _
  52.               ZNewUserFile$, _
  53.               ZMainDirExtension$
  54.     CALL BreakFileName (WasX$,ZWasY$,ZWasDF$,ZWasZ$,ZFalse)
  55.     IF ZWasDF$ <> "" THEN _
  56.        ZCallersFile$ = WasX$
  57.     INPUT #2, ZWasDF$
  58.     IF ZComPort$ <> "COM0" THEN _
  59.        IF NOT ZConfMode THEN _
  60.           ZComPort$ = ZWasDF$
  61.     INPUT #2, ZBulletinsOptional, _
  62.               ZModemInitCmd$, _
  63.               ZRTS$, _
  64.               ZCallersLst$, _
  65.               ZFG, _
  66.               ZBG, _
  67.               ZBorder
  68.     IF ZConfMode THEN _
  69.        INPUT #2, ZWasDF$, _
  70.                  ZWasDF$ _
  71.     ELSE INPUT #2, ZRBBSBat$ , _
  72.                    ZRCTTYBat$
  73.     INPUT #2,ZOmitMainDir$, _
  74.              ZFirstNamePrompt$, _
  75.              ZHelp$(3), _
  76.              ZHelp$(4), _
  77.              ZHelp$(7), _
  78.              ZHelp$(9), _
  79.              ZBulletinMenu$, _
  80.              ZBulletinPrefix$, _
  81.              ZWasDF$, _
  82.              ZMsgReminder, _
  83.              ZRequireNonASCII, _
  84.              ZAskExtendedDesc, _
  85. * ------[ first line different ]------
  86.              ZMaxNodes                                               ' KG100701
  87.     IF ZConfMode THEN _                                              ' KG100701
  88.        INPUT #2, ZwasDF, ZwasDF _                                    ' KG100701
  89.     ELSE INPUT #2, ZNetworkType, _                                   ' KG100701
  90.                    ZRecycleToDos
  91.     INPUT #2,ZWasDF, _
  92.              ZWasDF, _
  93.              ZTrashcanFile$
  94.     INPUT #2,ZMinLogonSec, _
  95.              ZDefaultSecLevel, _
  96.              ZSysopSecLevel, _
  97.              ZFileSecFile$, _
  98.              ZSysopMenuSecLevel, _
  99.              ZConfMailList$, _
  100.              ZMaxViolations, _
  101.              ZOptSec(50), _   ' SECURITY FOR SYSOP COMMANDS 1
  102.              ZOptSec(51), _
  103.              ZOptSec(52), _
  104.              ZOptSec(53), _
  105.              ZOptSec(54), _
  106.              ZOptSec(55), _
  107.              ZOptSec(56), _   ' SYSOP 7
  108.              ZPswdFile$, _
  109.              ZMaxPswdChanges, _
  110.              ZMinSecForTempPswd, _
  111.              ZOverWriteSecLevel, _
  112.              ZDoorsTermType, _
  113.              ZMaxPerDay
  114.     INPUT #2,ZOptSec(1), _   ' SECURITY FOR MAIN MENU COMMANDS 1
  115.              ZOptSec(2), _
  116.              ZOptSec(3), _
  117.              ZOptSec(4), _
  118.              ZOptSec(5), _
  119.              ZOptSec(6), _
  120.              ZOptSec(7), _
  121.              ZOptSec(8), _
  122.              ZOptSec(9), _
  123.              ZOptSec(10), _
  124.              ZOptSec(11), _
  125.              ZOptSec(12), _
  126.              ZOptSec(13), _
  127.              ZOptSec(14), _
  128.              ZOptSec(15), _
  129.              ZOptSec(16), _
  130.              ZOptSec(17), _
  131.              ZOptSec(18), _   ' MAIN COMMAND 18
  132.              ZMinNewCallerBaud, _
  133.              ZWaitBeforeDisconnect
  134.     INPUT #2,ZOptSec(19), _      ' Security for FILE COMMANDS 1
  135.              ZOptSec(20), _
  136.              ZOptSec(21), _
  137.              ZOptSec(22), _
  138.              ZOptSec(23), _
  139.              ZOptSec(24), _
  140.              ZOptSec(25), _
  141.              ZOptSec(26), _      ' FILE COMMAND 8
  142.              ZOptSec(27), _      ' SECURITY FOR UTILITY COMMANDS 1
  143.              ZOptSec(28), _
  144.              ZOptSec(29), _
  145.              ZOptSec(30), _
  146.              ZOptSec(31), _
  147.              ZOptSec(32), _
  148.              ZOptSec(33), _
  149.              ZOptSec(34), _
  150.              ZOptSec(35), _
  151.              ZOptSec(36), _
  152.              ZOptSec(37), _
  153.              ZOptSec(38), _   ' UTIL COMMAND 12
  154.              ZOptSec(46), _   ' SECURITY FOR GLOBAL COMMANDS 1
  155.              ZOptSec(47), _
  156.              ZOptSec(48), _
  157.              ZOptSec(49), _
  158.              ZUpldTimeFactor!, _
  159.              ZComputerType, _
  160.              ZRemindProfile, _
  161.              ZRBBSName$, _
  162.              ZCmdsBetweenRings, _
  163.              ZCopyrightSecs, _
  164.              ZPagingPtrSupport$
  165.     IF ZConfMode THEN _
  166.          INPUT #2, ZwasDF _
  167.     ELSE INPUT #2, ZModemInitBaud$
  168.              IF ZErrCode > 0 THEN _
  169.                 EXIT SUB
  170. * REPLACING old line(s) by new
  171. 58190 ' $SUBTITLE: 'OpenFMS - subroutine to open the FMS directory'
  172. ' $PAGE
  173. '
  174. '  NAME    -- OpenFMS
  175. '
  176. '  INPUTS  -- PARAMETER                      MEANING
  177. '             ZShareIt                DOS SHARING FLAG
  178. '             ZFMSDirectory$          NAME OF FMS DIRECTORY
  179. '
  180. '  OUTPUTS -- LastRec                NUMBER OF THE Last
  181. '                                    RECORD IN THE FILE
  182. '             CatLen                 Length of the category code
  183. '
  184. '  PURPOSE -- To open the upload directory as a random file and find
  185. '             the number of the last record in the file.
  186. '
  187.       SUB OpenFMS (LastRec,CatLen) STATIC
  188.       ON ERROR GOTO 65000
  189.       CLOSE 2
  190.       IF ZActiveFMSDir$ = "" THEN _
  191.          IF ZMenuIndex = 6 THEN _
  192.             ZActiveFMSDir$ = ZLibDir$ _
  193.          ELSE ZActiveFMSDir$ = ZFMSDirectory$
  194.       OldFile = (ZActiveFMSDir$ = PrevFMS$)
  195.       IF OldFile THEN _
  196.          GOTO 58192
  197.       CALL OpenWork (2,ZActiveFMSDir$)
  198.       CALL ReadDir (2,1)
  199. * ------[ first line different ]------
  200.       IF ZErrCode > 0 OR LEN(ZOutTxt$) < 37 THEN _                   ' KG091002
  201.          IF ZActiveFMSDir$ = ZPersonalDir$ THEN _
  202.             ZFMSFileLength = 36 + ZMaxDescLen + ZPersonalLen _
  203.          ELSE ZFMSFileLength = 38 + ZMaxDescLen _
  204.       ELSE ZFMSFileLength = LEN(ZOutTxt$) + 2
  205.       IF ZFMSFileLength < 86 THEN _                                  ' KG091002
  206.          CalcCatLen = 3 : _                                          ' KG091002
  207.          ZMaxDescLen = ZFMSFileLength - 38 _                         ' KG091002
  208.       ELSE CalcCatLen = ZPersonalLen : _                             ' KG091002
  209.            ZMaxDescLen = ZFMSFileLength - 36 - ZPersonalLen          ' KG091002
  210.       CLOSE 2
  211.