home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / BBS / RBBS_PC / AED243A.ZIP / RSB5UTOG.MRG < prev    next >
Encoding:
Text File  |  1990-06-10  |  6.6 KB  |  172 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBSSUB5.BAS to produce RSB5UTOG.BAS
  3. * RBBSSUB5.BAS:  Date 5-26-1990  Size 88881 bytes
  4. * ------------[ Created 06-10-1990 02:01:35 ]------------
  5. * REPLACING old line(s) by new
  6. 20205 MarkingTime = (ZAnsIndex = FirstDnld OR NOT ZConcatFIles)
  7.       ZFileName$ = ZUserIn$(ZAnsIndex)
  8. * ------[ first line different ]------
  9.       CALL AllCaps(ZFileName$)
  10.       CALL Remove (ZFileName$,", ")
  11.       ZViolation$ = "Download "
  12.       IF PersonalDnld THEN _
  13.          CALL BreakFileName (ZFileName$,DR$,ZWasY$,WasX$,ZTrue) : _
  14.          ZFileNameHold$ = ZWasY$ + _
  15.                            WasX$ : _
  16.          CALL AllCaps(ZFileNameHold$) : _
  17.          GOTO 20235
  18.       ZFileNameHold$ = ZFileName$
  19.       CALL BadFile (ZFileName$,BadFileNameIndex)
  20.       ON BadFileNameIndex GOTO 20220,20231,20233
  21. * REPLACING old line(s) by new
  22. 20244 IF ZUserSecLevel < VAL(ZWorkAra$(2)) THEN _
  23.          GOTO 20245
  24.       FilePswd$ = ZWorkAra$(3)
  25.       IF FilePswd$ = "" THEN _
  26.          GOTO 20247
  27.       CALL AllCaps (FilePswd$)
  28.       IF FilePswd$ = ZPswd$ THEN _
  29.          GOTO 20247
  30. * ------[ first line different ]------
  31.       ZOutTxt$ = "Enter password to download " + _
  32.            ZFileName$
  33.       GOSUB 21660
  34.       IF ZFileSysParm > 1 THEN _
  35.          RETURN
  36.       IF ZWasQ = 0 THEN _
  37.          RETURN
  38.       CALL AllCaps (ZUserIn$(1))
  39.       IF ZUserIn$(1) = FilePswd$ THEN _
  40.          GOTO 20247
  41. * REPLACING old line(s) by new
  42. 20340 IF ZWasDF THEN _
  43. * ------[ first line different ]------
  44.          ZOutTxt$ = "Switch to a Non-ASCII protocol" : _
  45.          GOSUB 21650 : _
  46.          GOTO 21700
  47.       GOSUB 20750
  48.       IF ZFileSysParm > 1 OR NOT ZOK THEN _
  49.          RETURN
  50.       CALL OpenWork (2,ZFileName$)
  51.       IF (ZAnsIndex = FirstDnld OR NOT ZConcatFIles) THEN _
  52.          ZOutTxt$ = "^X aborts.  ^S suspends ^Q resumes" : _
  53.          GOSUB 21640 : _
  54.          IF ZFileSysParm > 1 THEN _
  55.             RETURN _
  56.          ELSE ZOutTxt$ = ZProtoPrompt$ + " SEND of " + _
  57.               ZFileNameHold$ + _
  58.               " ready. Press Any Key to start" : _
  59.          ZTurboKey = 2 : _
  60.          ZForceKeyboard = ZTrue : _
  61.          ZSuspendAutologoff = ZTrue : _
  62.          GOSUB 21660 : _
  63.          ZSuspendAutologoff = ZFalse : _
  64.          GOSUB 20335 : _
  65.          IF ZFileSysParm > 1 THEN _
  66.             RETURN
  67. * REPLACING old line(s) by new
  68. * ------[ first line different ]------
  69. 21810 ZOutTxt$ = "Search for what String or Filename (Wildcards OK [ENTER] quits)"
  70.       ZMacroMin = 99
  71.       GOSUB 21668
  72.       IF ZWasQ = 0 THEN _
  73.          RETURN
  74. * REPLACING old line(s) by new
  75. 21862 WasA1$ = RIGHT$(ZWasLM$,4) +_
  76.             LEFT$(ZWasLM$,2)
  77. * ------[ first line different ]------
  78.       ZOutTxt$ = "Files on/after MMDDYY, [S]ince = " + WasA1$
  79.       GOSUB 21668
  80.       CALL AllCaps (ZUserIn$(ZAnsIndex))
  81.       IF ZWasQ = 0 OR ZUserIn$(ZAnsIndex) = "S" THEN _
  82.          WasRS$ = ZWasLM$ : _
  83.          GOTO 21866
  84. * REPLACING old line(s) by new
  85. 63470 ' $SUBTITLE: 'SetPrompt - sub to set prompts based on user security'
  86. ' $PAGE
  87. '
  88. '  NAME    -- SetPrompt
  89. '
  90. '  INPUTS  -- PARAMETER           MEANING
  91. '             ZBegMain          POSITION START OF MAIN CMDS
  92. '             ZBegFile          POSITION START OF FILE CMDS
  93. '             ZBegUtil          POSITION START OF UTIL CMDS
  94. '             ZBegLibrary       POSITION START OF Library CMDS
  95. '
  96. '  OUTPUTS -- PRESENT.OPTS$         DISPLAY WHAT USER CAN DO (1st)
  97. '             CALLERS.OPTS$         DISPLAY WHAT USER CAN DO (2nd)
  98. '             ZMainOpts$            MAIN OPTS USER CAN DO
  99. '             ZFileOpts$            FILE OPTS USER CAN DO
  100. '             ZUtilOpts$            UTIL OPTS USER CAN DO
  101. '             ZLibOpts$         Library OPTS USER CAN DO
  102. '
  103. '  PURPOSE -- Sets command line display of what user can do by
  104. '             section and display of what all user can do
  105. '
  106.       SUB SetPrompt STATIC
  107.       First = ZBegMain
  108.       Last = ZBegFile - 1
  109.       CALL SetOpts (ZMainOpts$,ZInvalidMainOpts$,First,Last)
  110.       First = ZBegFile
  111.       Last = ZBegUtil - 1
  112.       CALL SetOpts (ZFileOpts$,ZInvalidFileOpts$,First,Last)
  113.       First = ZBegUtil
  114.       Last = ZBegLibrary - 1
  115.       CALL SetOpts (ZUtilOpts$,ZInvalidUtilOpts$,First,Last)
  116.       First = ZBegLibrary
  117.       Last = ZBegLibrary + 6
  118.       CALL SetOpts (ZLibOpts$,ZInvalidLibraryOpts$,First,Last)
  119.       First = 50
  120.       Last = 56
  121.       CALL SetOpts (SysOpt$,ZInvalidSysOpts$,First,Last)
  122.       First = 46
  123.       Last = 49
  124.       CALL SetOpts (GlobalOpts$,InvalidGlobalOpts$,First,Last)
  125.       IF LEN(SysOpt$) > 0 THEN _
  126.          ZSystemOpts$ = "Sysop: " + _
  127.                         SysOpt$
  128.       ZMainOpts$ = GlobalOpts$ + _
  129.                    ZMainOpts$
  130.       ZFileOpts$ = GlobalOpts$ + _
  131.                    ZFileOpts$
  132.       ZUtilOpts$ = GlobalOpts$ + _
  133.                    ZUtilOpts$
  134.       ZLibOpts$ = GlobalOpts$ + _
  135.                       ZLibOpts$
  136.       CALL SortString (SysOpt$)
  137.       CALL SortString (ZMainOpts$)
  138.       ZMainOpts$ = ZMainOpts$ + _
  139.                    SysOpt$
  140.       CALL SortString (ZFileOpts$)
  141.       CALL SortString (ZUtilOpts$)
  142.       CALL SortString (ZLibOpts$)
  143.       CALL AddCommas (ZMainOpts$)
  144.       CALL AddCommas (ZFileOpts$)
  145.       CALL AddCommas (ZUtilOpts$)
  146.       CALL AddCommas (ZLibOpts$)
  147.       ZDirPrompt$ = "What directory(s) (" + _
  148.          MID$("U)pload,A)ll,L)ist,E)xtended +/-, [Q]uit)",8 * (ZUserSecLevel => ZMinSecToView) + 9)
  149. * ------[ first line different ]------
  150.       ZQuitPromptExpert$ = "Quit C,S, or to F,[M],U,@"
  151.       ZQuitPromptNovice$ = "Quit C)onference, S)ession or to section " + _
  152.                             "F)ile, [M]ain, U)til or @)Library"
  153.       ZQuitList$ = "FMUS@C"
  154.       IF ZUserSecLevel < ZOptSec(18) THEN _
  155.          ZQuitPromptExpert$ = LEFT$(ZQuitPromptExpert$,23) : _
  156.          ZQuitPromptNovice$ = LEFT$(ZQuitPromptNovice$,61) : _
  157.          MID$(ZQuitList$,5) = " "
  158.       IF ZUserSecLevel < ZOptSec(15) THEN _
  159.          ZQuitPromptExpert$ = LEFT$(ZQuitPromptExpert$,22) + _
  160.                                MID$(ZQuitPromptExpert$,25) : _
  161.          ZQuitPromptNovice$ = LEFT$(ZQuitPromptNovice$,56) + _
  162.                                MID$(ZQuitPromptNovice$,63) : _
  163.          MID$(ZQuitList$,3,1) = " "
  164.       IF ZUserSecLevel < ZOptSec(6) THEN _
  165.          ZQuitPromptExpert$ = LEFT$(ZQuitPromptExpert$,16) + _
  166.                                MID$(ZQuitPromptExpert$,19) : _
  167.          ZQuitPromptNovice$ = LEFT$(ZQuitPromptNovice$,41) + _
  168.                                MID$(ZQuitPromptNovice$,49) : _
  169.          MID$(ZQuitList$,1,1) = " "
  170.       CALL SetSection
  171.       END SUB
  172.