home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / BBS_UTIL / BM0406_A.ZIP / 0406.ZIP / R-PC0406.MRG next >
Text File  |  1994-04-06  |  89KB  |  2,175 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBS-PC.BAS to produce RBBS-PC.NEW
  3. * RBBS-PC.BAS:  Date 6-20-1992  Size 147219 bytes
  4. * BusiMod (tm) mods for RBBS v17.4 - (c) 1993,94 by respective authors
  5. * RBBS v17.4 (c) 1986,1992 by D Thomas Mack
  6. * ------------[ Created 04-06-1994 22:00:00 ]------------
  7. * REPLACING old line(s) by new
  8. 29 ' **************************************************************************
  9.    '
  10.    ' $INCLUDE: 'RBBS-VAR.BAS'
  11.    '
  12.    ' $SUBTITLE: 'Main-line RBBS-PC Program'
  13. * ------[ first line different ]------
  14.    '
  15.     ZCrLf$ = CHR$(13) + CHR$(10)
  16.     WasJ = 60
  17.     DIM ZOptSec(WasJ)
  18.     ZConfigFileName$ = "RBBS-PC.DEF"
  19.     CALL GetCommand (ZDebug,ZNetTime$,ZNetBaud$,ZNetReliable$)
  20.     ZSubParm = -62
  21.     ZBulletinMenu$ = ""
  22.     CALL ReadDef (ZConfigFileName$)
  23.     IF ZErrCode > 0 THEN _
  24.        GOTO 31
  25.     CALL MLInit (1)
  26.     GOTO 100
  27. * REPLACING old line(s) by new
  28. * ------[ first line different ]------
  29. 100 CLEAR,,                                                          ' RM11109301
  30.     ZMsgDim = 99                                                     ' RM020901/021801/RM08139301/RM10159302/RM11279301/RM03119401
  31.     WasMM = 9999                                                     ' RM020901/RM08139301/RM03119401
  32.     WasBX = 75                                                       ' RM08139301
  33.     WasJ = 60                                                        ' RM08139301
  34.     REDIM ZOptSec(WasJ)                                              ' RM08139301
  35.     DIM ZWorkAra$(WasJ)                                              ' RM08139301
  36.     DIM ZGSRAra$(WasJ)                                               ' RM08139301
  37.     DIM ZCategoryName$(WasBX),ZCategoryCode$(WasBX),ZCategoryDesc$(WasBX) ' RM08139301
  38.     DIM ZOutTxt$(ZMsgDim)                      ' Message line table  ' RM08139301/RM03119401
  39.     DIM ZUserIn$(ZMsgDim)                      ' Message line table  ' RM08139301
  40.     DIM ZMsgPtr(9999,2)                        ' Message pointers    ' RM08139301/RM03249401
  41.     CALL VarInit
  42.     ZMsgDim = ZMaxMsgLinesDef                                        ' RM03119401
  43.     REDIM ZWorkAra$(ZMaxWorkVar)                                     ' RM08139301
  44.     REDIM ZGSRAra$(ZMaxWorkVar)                                      ' RM08139301
  45.     STACK (ZSizeOfStack)                                             ' RM11109301
  46.     CALL SysInfo                                                     ' SIN174
  47.     IF ZErrCode > 0 THEN _
  48.        GOTO 31
  49.     ZOrigUpgradeSec = ZAutoUpgradeSec                                ' RM08199303
  50.     ZOrigMainSec = ZMinLogonSec                                      ' RM08199303
  51.     CALL BreakFileName (ZOrigMsgFile$,Drive$,ZOrigMsgName$,ZWasY$,ZFalse) ' RM08119301
  52.     IF ZOrigMsgName$ = "MESSAGES" THEN _                             ' RM08119301
  53.        ZOrigMsgName$ = "MAIN" _                                      ' RM08119301
  54.     ELSE IF RIGHT$(ZOrigMsgName$,1) = "M" THEN _                     ' RM08119301
  55.             ZOrigMsgName$ = LEFT$(ZOrigMsgName$,LEN(ZOrigMsgName$)-1) ' RM08119301/SG08169301
  56.     ZConfFileName$ = ZOrigMsgName$                                   ' RM08119301
  57.     ZOrigNewsFileName$ = ZWelcomeFileDrvPath$ + _                    ' RM08119301
  58.               ZOrigMsgName$ + ".NWS"                                 ' RM08119301
  59.     ZNewsFileName$ = ZOrigNewsFileName$                              ' RM08119301
  60.     IF ZNetMail$ <> "NONE" AND VAL(ZNetTime$) > 0 THEN _
  61.        ZLimitMinsPerSession = VAL(ZNetTime$)
  62.     IF ZNetMail$ <> "NONE" AND VAL(ZNetBaud$) > 0 THEN _
  63.        ZExpectActiveModem = ZTrue : _
  64.        IF NOT ZKeepInitBaud THEN _
  65.           ZModemInitBaud$ = ZNetBaud$
  66.     IF ZFossil THEN _
  67.        ZComPort = VAL(RIGHT$(ZComPort$,1)) - 1 : _
  68.        IF ZComPort < 0 THEN _
  69.           GOTO 108 _
  70.        ELSE CALL FOSinit(ZComPort,Result) : _
  71.             IF Result = -1 THEN _
  72.                ZSnoop = ZTrue : _
  73.                CALL PScrn("ERROR INITIALIZING FOSSIL") : _
  74.                GOTO 204
  75. * REPLACING old line(s) by new
  76. 108 CALL BreakFileName (ZCallersFile$,Drive$,WasX$,ZWasY$,ZTrue)
  77.     ZCallersFilePrefix$ = WasX$
  78.     ZNodeWorkDrvPath$ = Drive$
  79.     ZArcWork$ = ZNodeWorkDrvPath$ + _
  80.                 "ARCWORK" + _
  81.                 ZNodeFileID$ + _
  82.                 ".DEF"
  83.     IF ZUseBASICWrites THEN _
  84.        ZLocalBksp$ = ZBackArrow$ _
  85. * ------[ first line different ]------
  86.     ELSE ZLocalBksp$ = ZBackSpace$ : CALL ANSISET                    ' NB101890
  87.     ZSysopFullName$ = LEFT$(ZSysopFirstName$ + " " + ZSysopLastName$ + "  ",22)
  88.     CALL FindFile ("FILEZ.DEF",ZGetDescAfterTransfer)                ' RM02269401
  89.     CALL FindFile (LEFT$(ZFastFileList$, _
  90.                    INSTR(ZFastFileList$, ".") -1) + ".CFG",ZWildDownOK) ' WILD\RM03139401
  91.     CALL FindFile ("NOWUW.DEF",ZNoWUW)                               ' CM03129401
  92.     ZFastFileSearch = ZFalse
  93.     CALL GetFastFile                                                 ' RM03269404
  94. '
  95. ' *****  INITIALIZE NetBIOS INTERFACE   ****
  96. '
  97.    IF (ZNetworkType = 6 OR ZNetworkType = 7) AND NOT ZSubBoard THEN _ ' RM01109402
  98.       CALL InitIBM
  99. '
  100. ' *****  ESTABLISH NEXT CALLERS FILE RECORD AVAILABLE   ***
  101. '
  102.     CALL SetCall
  103. * REPLACING old line(s) by new
  104. 135 IF ZCurDef$ = ZOrigCnfg$ THEN _
  105.        ZActiveMessageFile$ = ZMainMsgFile$ : _
  106.        ZActiveUserFile$ = ZMainUserFile$
  107.     GOSUB 4910
  108.     IF ZConfMode THEN _
  109.        GOTO 150
  110.     ZLocalUserMode = (RIGHT$(ZComPort$,1) < "1")
  111.     GET 1,ZNodeRecIndex
  112.     ZWasY$ = MID$(ZMsgRec$,77,2)
  113.     CALL UnPackDate (ZWasY$,WasX,WasL,WasI,ZOldDate$)
  114.     ZOldDate$ = LEFT$(ZOldDate$,6) + MID$(STR$(WasX),2)
  115.     ZHourMinToDropToDos = - (ZHourMinToDropToDos > 0) * ZHourMinToDropToDos
  116. * ------[ first line different ]------
  117.     THour = INT(ZHourMinToDropToDos / 100)                           ' MSVB/RM041101
  118.     WasMN = ZHourMinToDropToDos - THour * 100                        ' MSVB/RM041101
  119.     ZTimeToDropToDos! = THour * 3600! + WasMN * 60!                  ' MSVB/RM041101
  120. '
  121. ' ******  TEST FOR TIMED EXIT ACTIVE   *****
  122. '
  123. * REPLACING old line(s) by new
  124. 150 IF ZSubBoard THEN _
  125.        GOSUB 12987 : _
  126.        GOSUB 5135 : _
  127.        GOTO 170
  128.     ZSysopAvail = VAL(MID$(ZMsgRec$,32,2))
  129.     ZSysopAnnoy = VAL(MID$(ZMsgRec$,34,2))
  130.     ZSysopNext = VAL(MID$(ZMsgRec$,36,2))
  131.     MID$(ZMsgRec$,36,2) = STR$(ZFalse)
  132.     ZPrinter = VAL(MID$(ZMsgRec$,38,2))
  133.     IF ZTurnPrinterOff THEN _
  134.        ZPrinter = ZFalse
  135.     ZExitToDoors = (MID$(ZMsgRec$,40,2) = "-1" AND ZNetBaud$ = "" _
  136.                     AND INSTR(COMMAND$," LOCAL") = 0)
  137.     ZEightBit = VAL(MID$(ZMsgRec$,42,2))
  138.     ZBPS = -VAL(MID$(ZMsgRec$,44,2))
  139.     ZSnoop = VAL(MID$(ZMsgRec$,58,2))
  140.     MID$(ZMsgRec$,57,1) = "I"
  141.     ZPrivateDoor = (MID$(ZMsgRec$,72,2) = "-1")
  142.     IF ZPrivateDoor THEN _
  143.        ZHasPrivDoor = ZTrue
  144.     MID$(ZMsgRec$,72,2) = STR$(ZFalse)
  145.     ZLocalUser = (MID$(ZMsgRec$,101,2) = ZCarriageReturn$+ZCarriageReturn$) OR _
  146.                  ZLocalUserMode
  147.     IF ZExitToDoors OR ZPrivateDoor THEN _
  148.        ZHasDoored = ZTrue : _
  149. * ------[ first line different ]------
  150.        ZTurboLogon = ZTrue                                           ' RM08139301
  151.     PUT 1,ZNodeRecIndex
  152.     GOSUB 12985
  153.     GET 1,1
  154.     ZCallsToDate! = VAL(MID$(ZMsgRec$,11,10))                        ' RM08119301
  155.     IF ZCallsToDate! < 11 THEN _                                     ' RM08119301
  156.        CALL CopyRight
  157. '
  158. ' *****  INITIALIZE VOICE SYNTHESIZER   ****
  159. '
  160.     CALL Talk (Init,ZOutTxt$)
  161. '
  162. ' *****  TEST FOR MULTI LINK PRESENT IF NOT COMPAQ COMPUTER   ****
  163. '
  164. * REPLACING old line(s) by new
  165. 170 FOR FunctionKeyIndex = 1 TO 10
  166.        KEY FunctionKeyIndex,""
  167.     NEXT
  168. * ------[ first line different ]------
  169. '
  170. ' ******  INITIALIZE FILE MANAGEMENT SYSTEM, CHECK FOR LOCAL BBS MODE
  171. '
  172. * REPLACING old line(s) by new
  173. 175 GOSUB 5344
  174. * ------[ first line different ]------
  175.     GOSUB 1298                                                       ' RM03279401
  176.     ZMaxMsgLines = ZMaxMsgLinesDef
  177.     IF (NOT ZLocalUser) AND (NOT ZSubBoard) THEN _
  178.        CALL OpenCom (ZModemInitBaud$,",N,8,1")
  179.     IF NOT ZSubBoard THEN _
  180.        CALL SetEcho (ZDefaultEchoer$)
  181.     ZNodeWorkFile$ = ZNodeWorkDrvPath$ + _
  182.                       "NODE" + _
  183.                       ZNodeFileID$ + _
  184.                       "WRK"
  185.     ZUploadWorkFile$ = ZNodeWorkDrvPath$ + "NODE" + ZNodeFileID$ + _ ' BTCH174
  186.                       "FUP"                                          ' BTCH174
  187.     ZDownloadWorkFile$ = ZNodeWorkDrvPath$ + "NODE" + ZNodeFileID$ + _ ' BTCH174
  188.                       "FDN"                                          ' BTCH174
  189.     ZSecsPerSession! = ZMinsPerSession * 60!
  190.     LogIndex = 1
  191.     IF NOT ZLocalUserMode THEN _
  192.        IF NOT ZExitToDoors THEN _
  193.           GOTO 180 _
  194.        ELSE IF NOT ZLocalUser THEN _
  195.                GOTO 180
  196.     ZLocalUser = ZTrue
  197.     ZBPS = -17                                                       ' BB08219301/BB09039301/RM11279301
  198.     ZBaudTest! = 57600                                               ' BB08219301
  199.     ZCBaud$ = "57600"                                                ' BB08219301
  200.     ZCBPS = -17                                                      ' BB08219301/BB09039301/RM11279301
  201.     ZEightBit = ZTrue
  202.     ZSnoop = ZTrue
  203.     IF ZExitToDoors THEN _
  204.        CALL AMorPM : _
  205.        CALL ReadProf : _
  206.        GOTO 410
  207.     GOSUB 178
  208.     GOTO 345
  209. * REPLACING old line(s) by new
  210. 178 IF NOT ZSubBoard THEN _
  211.        RETURN
  212.     IF ZNewUser THEN _
  213.        GOSUB 758
  214. * ------[ first line different ]------
  215.     IF OrigFirstName$ = ZSysopFirstName$ AND _                       ' DGSALIAS
  216.        ZLastName$ = ZSysopLastName$ THEN _
  217.           RETURN 832 _
  218.     ELSE RETURN 790
  219. * REPLACING old line(s) by new
  220. * ------[ first line different ]------
  221. 204 IF ZFossil THEN _
  222.        CALL FOSExit(ZComPort)
  223.     SYSTEM
  224. * REPLACING old line(s) by new
  225. * ------[ first line different ]------
  226. 400 'CALL SkipLine(1)                                                ' DGS092301-DS
  227.     CALL Line25                                                      ' DGS092301-DS
  228.     ZEscapeInsecure = ZFalse
  229.     ZUpperCase = ZFalse
  230.     CALL SetExpert
  231.     WasA1$ = "What is your "
  232.     CALL FlushCom (ZWasDF$)
  233.     GOSUB 12500
  234.     CALL CommInfo
  235.     IF ZFF THEN _
  236.        ZLogonErrorIndex = 1 : _
  237.        GOTO 10620
  238.     IF ZMinOldCallerBaud > ZBaudTest! THEN _
  239.        CALL QuickTPut1 ("Sorry," + STR$(ZBaudTest!) + " BPS not allowed") : _
  240.        ZWasLG$(7) = "OLD CALLER BAUD RESTRICTION" : _
  241.        ZLogonErrorIndex = 7 : _
  242.        GOTO 10620
  243.     LogIndex = 4 - (ZLenIndiv > 0 AND ZStartIndiv > 0)
  244.     ZTurboLogon = (LEFT$(ZUserIn$(LogIndex),1) = "!")                ' RM08139301
  245.     SkipWelcomeScreen = (LEFT$(ZUserIn$(LogIndex),1) = "$")
  246.     ZHomeConf$ = RIGHT$(ZUserIn$(LogIndex),LEN(ZUserIn$(LogIndex)) _
  247.                      + (ZTurboLogon OR SkipWelcomeScreen))           ' RM08139301
  248.     CALL AllCaps(ZHomeConf$)
  249. '
  250. ' *****  CHECK IF SAME USER ON ANOTHER NODE   ***
  251. '
  252. * REPLACING old line(s) by new
  253. 420 IF MID$(ZMsgRec$,57,1) = "A" THEN _
  254.        ZLogonErrorIndex = 6 : _
  255.        ZWasLG$(6) = ZWasLG$(6) + _
  256.                 LEFT$(ZMsgRec$,25) : _
  257.        ZOutTxt$ = "The name '" + ZActiveUserName$ + _
  258.                   "' is in use on another node" : _
  259.        CALL RingCaller : _
  260.        GOTO 10620
  261.     ZFirstName$ = LEFT$(ZMsgRec$,INSTR(ZMsgRec$, " ") - 1)
  262.     IF NOT ZPrivateDoor THEN _
  263.        CALL SkipLine (1) : _
  264. * ------[ first line different ]------
  265.        CALL QuickTPut1 (ZFG7$ + ZFirstName$ + ZFG6$ + ", welcome back to " + _
  266.                         ZFG7$ + ZRBBSName$ + ZFG6$ + "!" + ZColorReset$) : _ ' RM09269301
  267.        CALL Talk (11,ZOutTxt$)
  268.     IF ZExitToDoors THEN _
  269.        GOTO 457
  270. '
  271. ' *****  TEST FOR REMOTE SYSOP LOGGING ON   ***
  272. '
  273. * REPLACING old line(s) by new
  274. 457 CALL SkipLine (1)
  275.     GOSUB 12840
  276.     GOSUB 12850
  277. * ------[ first line different ]------
  278.     ZJParm = 8                                                       ' RM09259302
  279.     CALL JoinConference (Found)                                      ' RM09259302
  280.     CALL RegToCurrent
  281.     CALL CompDate (ZTodayRegYY,ZTodayRegMM,ZTodayRegDD,ZTodayComputeDate!) ' RM08209301
  282.     IF NOT Found THEN _
  283.        GOTO 700
  284.     GOSUB 12984
  285. '
  286. ' *****  ACTIVE USER FOUND  ****
  287. '
  288. * REPLACING old line(s) by new
  289. 459 GOSUB 9500
  290.     ZLastDateTimeOnSave$ = ZLastDateTimeOn$
  291.     ZMinsInDoors = 0
  292.     IF ZExitToDoors THEN _
  293.        TempHoldTime! = VAL(LEFT$(ZTime$,2))*3600! + _
  294.                          VAL(MID$(ZTime$,4,2))*60! : _
  295.        CALL CheckTime(TempHoldTime!, TempTime!, 2) : _
  296.        ZMinsInDoors = TempTime! / 60 : _
  297.        CALL TimeRemain (MinsRemaining)
  298.     ZUserFileIndex = LOC(5)
  299.     GOSUB 5135
  300. '
  301. ' ***  COMPUTE THE NUMBER OF DAYS REMAINING UNTIL REGISTRATION EXPIRES **
  302. '
  303. * ------[ first line different ]------
  304.     ZJParm = 7                                                       ' RM09029301
  305.     CALL JoinConference (Found)                                      ' RM09029301/RM09259302
  306. * REPLACING old line(s) by new
  307. 460 UserSecLevel$ = STR$(ZUserSecLevel)
  308.     IF ZUserSecLevel > -1 THEN _
  309.        UserSecLevel$ = MID$(UserSecLevel$,2)
  310.     IF ZUserSecLevel >= ZMinLogonSec THEN _
  311.        GOTO 470
  312.     IF NOT ZPrivateDoor THEN _
  313.        GOSUB 465 : _
  314.        CALL DelayTime (8 + ZBPS)
  315.     IF ZLogonErrorIndex < 9 AND _
  316.        ZErrCode = 0 THEN _
  317.        ZLogonErrorIndex = 8
  318.     GOTO 10620
  319. * ------[ first line different ]------
  320. '
  321. ' ***  DISPLAY LOG-ON MESSAGE FOR SPECIFIC SECURITY LEVEL  **
  322. '
  323. * DELETING old line(s)
  324. 462
  325. * REPLACING old line(s) by new
  326. * ------[ first line different ]------
  327. 465 ZTurboLogon = ZTurboLogon AND (ZExitToDoors OR _                 ' RM08139301
  328.                   (ZUserSecLevel >= ZAllowCallerTurbo))
  329.     IF ZTurboLogon THEN _                                            ' RM08139301
  330.        RETURN
  331.     ZFileName$ = ZWelcomeFileDrvPath$ + _
  332.                  "LG" + _
  333.                  UserSecLevel$ + _
  334.                  ".DEF"
  335. * REPLACING old line(s) by new
  336. 470 GOSUB 12989
  337.     ZWasCI$ = ZCityState$
  338.     CALL Trim (ZWasCI$)
  339.     ZAttemptsAllowed = 4
  340.     ZPswdSave$ = ZPswd$
  341.     TempSysop = (ZUserSecLevel >= ZSysopSecLevel)
  342.     ZMsgPswd = ZFalse
  343.     IF NOT ZSubBoard THEN _
  344.        ZElapsedTime = CVI(ZElapsedTime$)
  345.     IF (NOT ZExitToDoors) AND _
  346.        (ZCurDate$ <> LEFT$(ZLastDateTimeOn$,8)) AND _
  347.        (ZElapsedTime > 0 OR NOT ZKeepTimeCredits) THEN _
  348.        ZElapsedTime = 0
  349.     IF ZPrivateDoor AND _
  350.        ZTransferFunction = 3 THEN _
  351.        GOSUB 755 : _
  352.        GOTO 800
  353.     IF ZPswdSave$ = SPACE$(LEN(ZPswdSave$)) THEN _
  354. * ------[ first line different ]------
  355.        ZSubParm = 1 : _                                              ' DGS121801-DS
  356.        GOSUB 755 : _
  357.        GOTO 800
  358. * REPLACING old line(s) by new
  359. 643 IF NOT LogonPswdFailed THEN _
  360.        GOSUB 41070 : _
  361.        GOTO 644 _
  362.     ELSE IF ZExitToDoors THEN _
  363.             GOTO 644
  364.     GOSUB 12991
  365. * ------[ first line different ]------
  366.     CALL BufFile(ZHelpPath$ + "BADPASSW" + ZHelpExtension$,WasX)     ' DA081201
  367.     ZOutTxt$ = "Forget password?  Leave comment to SysOp (Y,[N])"
  368.     GOSUB 12999
  369.     IF ZYes THEN _
  370.        MParm = 10 : _                                                ' MS174/RM08139301
  371.        GOSUB 2001                                                    ' MS174/RM08139301
  372.     ZFirstName$ = ""
  373.     GOTO 902
  374. * REPLACING old line(s) by new
  375. 700 ZExpertUser = ZFalse
  376.     CALL SetExpert
  377.     IF ZMinNewCallerBaud > ZBaudTest! THEN _
  378.        CALL QuickTPut ("Sorry," + STR$(ZBaudTest!) + _
  379.                        " BPS only for registered users",1) : _
  380.        ZWasLG$(7) = "NEW CALLER BAUD RESTRICTION" : _
  381.        ZLogonErrorIndex = 7 : _
  382.        GOTO 10620
  383.     CALL QuickTPut1 ("User not found")
  384.     ZLastIndex = 0
  385.     GOSUB 12558
  386.     IF ZNo THEN _
  387.        GOSUB 13700 : _
  388.        GOTO 400
  389.     CALL Line25
  390.     ZWasZ$ = ZFirstName$
  391.     GOSUB 670
  392.     ZWasZ$ = ZLastName$
  393.     GOSUB 670
  394.     ZWasZ$ = ZActiveUserName$
  395.     GOSUB 670
  396. * ------[ first line different ]------
  397.     ZTurboLogon = ZFalse                                             ' RM08139301
  398. * REPLACING old line(s) by new
  399. 725 IF ZUserSecLevel < ZMinLogonSec THEN _
  400.        ZLogonErrorIndex = 1 : _
  401.        GOTO 460
  402.     IF ZFirstName$ = ZLastName$ THEN _
  403.        CALL QuickTPut1 (ZFirstNamePrompt$+"/"+ZLastNamePrompt$+" cannot be same") : _
  404.        ZLogonErrorIndex = 3 : _
  405.        GOTO 10620
  406.     IF NOT ZRememberNewUsers THEN _
  407.        GOSUB 13700 : _
  408.        ZUserFileIndex = 0 : _
  409.        GOSUB 12960: _
  410. * ------[ first line different ]------
  411.        PrevLastOn$ = "00-00-00" : _
  412.        ZNewUser = ZTrue : _                                          ' RM04019402
  413.        GOTO 735
  414.     ZNewUser = ZTrue
  415.     CALL OpenUser (ZHighestUserRecord)
  416.     GOSUB 9450
  417.     GOSUB 12630
  418.     MID$(ZUserRecord$,ZStartHash,ZLenHash) = LEFT$("NEWUSER",ZLenHash)
  419.     IF ZStartIndiv > 0 THEN _
  420.        MID$(ZUserRecord$,ZStartIndiv,ZLenIndiv) = ZIndivValue$
  421.     GOSUB 9440
  422. * REPLACING old line(s) by new
  423. 754 CALL QuickTPut1 ("GUEST privileges granted.  Re-register on future calls")
  424.     ZUserSecSave = ZUserSecLevel
  425. * ------[ first line different ]------
  426.     CALL SetPrivileges                                               ' DD
  427.     CALL SetPrompt                                                   ' DD
  428.     GOTO 832
  429. * REPLACING old line(s) by new
  430. 755 IF ZPrivateDoor THEN _
  431.        ZUserIn$ = ZPswd$ : _
  432.        ZWasZ$ = ZUserIn$ : _
  433.        RETURN
  434.     GOSUB 12800
  435.     ZOutTxt$ = "Re-Enter password for Verification"
  436.     GOSUB 45010
  437.     SWAP ZWasZ$,ZUserIn$
  438.     CALL AllCaps (ZWasZ$)
  439.     IF ZUserIn$ <> ZWasZ$ THEN _
  440. * ------[ first line different ]------
  441.        CALL QuickTPut1 (ZFG5$ + "Passwords Don't Match!" + ZEmphasizeOff$) : _ ' RM051801
  442.        GOTO 755
  443.     RETURN
  444. * REPLACING old line(s) by new
  445. 758 CALL AskMore ("",ZTrue,ZTrue,WasX,ZTrue)
  446.     CALL Line25
  447.     ZFileName$ = ZNewUserFile$
  448.     ZStopInterrupts = ZTrue
  449. * ------[ first line different ]------
  450.     CALL InitWelc (2)                                                ' IW174/RM08059306
  451.     CALL SkipLine(1)
  452.     RETURN
  453. '
  454. ' ***  R - COMMAND FROM NEWUSER ROUTINE - REGISTER   **
  455. '
  456. * REPLACING old line(s) by new
  457. 760 ZLastIndex = 0
  458.     GOSUB 755
  459.     CALL AllCaps (ZWasZ$)
  460.     LSET ZPswd$ = ZWasZ$
  461.     CALL QuickTPut1 ("Please REMEMBER your password")
  462. * ------[ first line different ]------
  463.     ZMenuNewUsers = ZMenuNewUsers + 1                                ' MENU174
  464.     ZUserTextColor = 37
  465.     ZTempSecLevel = ZUserSecLevel
  466.     CALL Protocol
  467.     ZUserXferDefault$ = "N"
  468.     ZProtoPrompt$ = "None"
  469.     IF ZNewUserSetsDefaults THEN _
  470.        ZBypassTimeCheck = ZTrue : _
  471.        GOSUB 43001 : _                                               ' GR174/RM08039303
  472.        ZBypassTimeCheck = ZFalse : _
  473.        CALL Graphic (ZFileName$) : _
  474.        GOSUB 42805 : _
  475.        GOSUB 42700 _
  476.     ELSE ZUpperCase = ZFalse : _
  477.          ZNulls = ZFalse
  478.     ZPageLength = ZPageLengthDef
  479.     CALL SetNewUserDef
  480.     GOSUB 5135
  481.     CALL DefaultU
  482. * REPLACING old line(s) by new
  483. 790 IF NOT ZNewUser THEN _
  484.        GOTO 800
  485.     ZFileName$ = ZNewUserQuestionnaire$
  486. * ------[ first line different ]------
  487.     CALL QuestAns (2, WasX)                                          ' QA174/RM08059308
  488.     IF ZSubParm = -1 THEN _                                          ' RM12149301
  489.        GOTO 10595                                                    ' RM12149301
  490.     LSET ZSecLevel$ = MKI$(ZUserSecLevel)
  491.     UserSecLevel$ = STR$(ZUserSecLevel)
  492.     CALL Remove (UserSecLevel$," ")
  493. '
  494. ' ****  LOGIN ALL USERS  ***
  495. '
  496. * REPLACING old line(s) by new
  497. 800 IF ZAdjustedSecurity THEN _
  498.        GOSUB 5135
  499.     IF ZOrigCnfg$ = ZCurDef$ THEN _
  500.        ZMainUserFileIndex = ZUserFileIndex : _
  501.        ZOrigSec = ZUserSecLevel : _
  502.        ZUserSecSave = ZUserSecLevel : _
  503. * ------[ first line different ]------
  504.        OrigFirstName$ = ZFirstName$ : _                              ' DGSALIAS
  505.        ZOrigUserNameDGS$ = ZActiveUserName$ : _                      ' DGSALIAS
  506.        ZOrigUserName$ = ZActiveUserName$
  507.     ZTimesLoggedOn = CVI(MID$(ZUserOption$,1,2)) - _
  508.        ((ZOrigCnfg$ <> ZCurDef$ OR NOT ZSubBoard) AND _
  509.         (NOT ZPrivateDoor) AND (NOT ZExitToDoors))
  510.     GOSUB 9500
  511.     IF (NOT ZExitToDoors) AND (NOT ZSubBoard) THEN _
  512.        CALL UpdtCalr (ZActiveUserName$ + " from " + ZWasCI$ + _
  513.                  " Lvl" + STR$(ZUserSecLevel) + " " + TIME$,2) : _   ' PSWD174
  514.        CALL UpdtCalr ("Line Speed " + ZCBaud$,2) : _                 ' KG092201
  515.        CALL ExpiredPswd : _                                          ' PSWD174/MENU174
  516.        ZMenuNewCalls = ZMenuNewCalls + 1                             ' MENU174
  517.     PrevLastOn$ = ZLastDateTimeOn$
  518.     IF ZOnlyOneTimeLockPerDay THEN _                                 ' RM02089401
  519.        IF NOT ZPrivateDoor AND NOT ZExitToDoors AND ZTimeLock <> 0 AND _
  520.          ZTempTimeLock > 0 AND LEFT$(ZLastDateTimeOn$,8) = ZCurDate$ THEN _ ' RM02089401
  521.             IF (CVI(ZElapsedTime$) * 60 >= ZTempTimeLock) THEN _     ' RM02039401/RM02069401
  522.                ZTimeLock = 0 : _                                     ' RM02039401/RM02069401
  523.                CALL SkipLine (1) : _                                 ' RM02059401
  524.                CALL QuickTPut1 (ZFG6$ + "Time Lock " + ZFG7$ + "EXEMPT" + ZFG6$ + " this call!" + ZEmphasizeOff$) : _ ' RM02039401/RM02069401
  525.                CALL SkipLine (1) _                                   ' RM02069401/RM02089401
  526.             ELSE _                                                   ' RM02089401
  527.                ZTimeLockSet = ZTimeLockSet - (CVI(ZElapsedTime$) * 60) ' RM02089401
  528.     IF ZLocalUser THEN _
  529.        ZTalkToModemAt$ = "57600" : _                                 ' BB08219301
  530.        ZBaudParity$ = "57600 BPS,N,8,1" : _                          ' BB08219301
  531.        ZModemInitBaud$ = "57600" : _                                 ' BB08219301
  532.        ZSnoop = ZTrue : _
  533.        ZLineFeeds = ZTrue
  534.     CALL SetCrLf
  535.     CALL SetPrompt
  536.     CALL XferType (2,ZTrue)
  537.     IF NOT ZSubBoard THEN _
  538.        ZBoardCheckDate$ = PrevLastOn$                                ' RM08119301
  539.     CALL SetSysOp
  540.     IF ZWasA THEN _
  541.        ZActiveUserName$ = "SYSOP" : _
  542.        ZFirstName$ = "SysOp"
  543.     IF ZExitToDoors OR ZSubBoard THEN _
  544.        GOTO 815
  545.     GOSUB 465
  546.     IF (ZEightBit AND _
  547.        ZAutoDownDesired) OR _
  548.        ZAskID THEN _
  549.        CALL TestUser
  550.     CALL QuickTPut1 (ZFG1$ + "Logging " + ZFG7$ + ZActiveUserName$ + ZEmphasizeOff$) ' RM051801
  551.     CALL Talk (1,ZOutTxt$)
  552.     Temp$ = STR$(ZBaudTest!) + MID$(ZBaudParity$,INSTR(ZBaudParity$," B"))
  553.     IF ZKeepInitBaud THEN _                                          ' RM030201
  554.        CALL QuickTPut1 (ZFG1$ + "RBBS-PC " + ZFG7$ + ZVersionID$ + ZFG1$ + " Node " + _
  555.                      ZFG7$ + ZNodeID$ + ZEmphasizeOff$) : _          ' RM051801
  556.        CALL QuickTPut1 (ZFG1$ + "Host operating at " + ZFG7$ + ZModemInitBaud$ + ZFG1$ + _
  557.                  " BPS, Line Speed" + ZFG7$ + Temp$ + ZEmphasizeOff$) _ ' KG081902/RM030201
  558.     ELSE _
  559.        CALL QuickTPut1 (ZFG1$ + "RBBS-PC " + ZFG7$ + ZVersionID$ + ZFG1$ + " Node " + _
  560.            ZFG7$ + ZNodeID$ + ZFG1$ + ", operating at" + ZFG7$ + Temp$ + ZEmphasizeOff$) ' RM051801' KG081902
  561.     CALL QuickTPut1 (ZFG1$ + ZRBBSName$ + ZFG7$ + " - BusiMods by Many" + _ ' RM10059301/RM11229303
  562.                      ZEmphasizeOff$)                                 ' RM051801/RM10059301
  563.     CALL SkipLine (1)
  564.     IF ZMaxNodes > 1 AND ZAllowInternodeChat THEN _                  ' RCHAT401/RM11199301
  565.        GOSUB 42750 : _                                               ' RCHAT401/RM091701
  566.        CALL LogNewForChat (ZMaxNodes)                                ' RCHAT401
  567.     Attempts = 0
  568.     ZWasZ$ = ZActiveUserName$ + _
  569.             " on at " + _
  570.             ZCurDate$ + _
  571.             ", " + _
  572.             ZTime$ + _
  573.             " from " + _
  574.             ZWasCI$ + _
  575.             "," + Temp$
  576.      ZWasNG$ = ZWasZ$ + SPACE$(128 - LEN(ZWasZ$))
  577. '
  578. ' *  ALWAYS RECORD THE HASH/INDIVIDUATING FIELD TO EACH RECORD LOGGED OUT
  579. '
  580.      WasX$ = "{" + _
  581.           ZHashValue$ + _                                            ' RM08139301
  582.           "/" + _
  583.           ZIndivValue$ + _
  584.           "}"
  585.      IF LEN(ZWasZ$) < 65 THEN _
  586.         WasX = 65 _
  587.      ELSE WasX = LEN(ZWasZ$) + 2
  588.      MID$(ZWasNG$,WasX) = WasX$
  589.      CALL Printit ("  " + ZWasZ$)
  590.      IF ZNewUser THEN _
  591.         CALL UpdtCalr ("NEWUSER",1) : _
  592.         CALL FindFile ("WELCOME.DEF",ZWelcomeAboard) : _             ' NEWU174
  593.         CALL Muzak (2)
  594. '
  595. ' *****  NOTIFY CALLER IF ABLE TO "AUTODOWN"  ****
  596. '
  597.     IF ZEightBit AND ZAutoDownYes THEN _
  598.        ZOutTxt$ = CHR$(9) + _
  599.             ZReturnLineFeed$ + _
  600.             "You may use AUTODOWNLOADing!" : _
  601.        CALL RingCaller : _
  602.        CALL DelayTime(4)
  603. * REPLACING old line(s) by new
  604. 815 CALL SetUserUpDn
  605.     IF ZCurDate$ <> LEFT$(ZLastDateTimeOnSave$,8) THEN  _
  606.        ZDLToday! = 0 : _
  607.        ZBytesToday! = 0
  608.     CALL SetGlobalUpDn
  609.     GOSUB 827
  610.     LSET ZUserOption$ = MKI$(ZTimesLoggedOn) + _
  611.                         MID$(ZUserOption$,3)
  612.     LSET ZLastDateTimeOn$ = ZCurDate$ + _
  613.                               " " + _
  614.                               ZTimeLoggedOn$
  615. * ------[ first line different ]------
  616.     MID$(ZUserRecord$,ZStartHash,ZLenHash) = ZHashValue$             ' RM08139301
  617.     IF ZStartIndiv > 0 THEN _
  618.        MID$(ZUserRecord$,ZStartIndiv,ZLenIndiv) = ZIndivValue$
  619.     LSET ZUserName$ = ZOrigUserName$
  620.     IF (NOT ZExitToDoors) AND NOT (ZOrigMsgFile$ = ZActiveMessageFile$ AND ZSubBoard) THEN _
  621.        CALL AutoPage
  622.     IF NOT ZSubBoard THEN _
  623.        ZOrigUserFileIndex = ZUserFileIndex
  624.     IF NOT ZConfMode THEN _
  625.        IF ZOrigDateTimeOn$ = "" THEN _
  626.           ZOrigDateTimeOn$ = ZLastDateTimeOn$ : _
  627.           ZOrigTimeLoggedOn$ = ZTimeLoggedOn$ _
  628.        ELSE ZLastDateTimeOn$ = ZOrigDateTimeOn$ : _
  629.             ZTimeLoggedOn$ = ZOrigTimeLoggedOn$
  630.     GOSUB 9440
  631.     GOSUB 12991
  632.     GOSUB 41000
  633.     CALL AskMore ("",ZTrue,ZTrue,WasX,ZTrue)
  634.     IF ZTurboLogon THEN _                                            ' RM08139301
  635.        GOTO 819
  636.     IF SkipWelcomeScreen AND _
  637.        (ZUserSecLevel >= ZAllowCallerTurbo) THEN _
  638.        GOTO 816
  639.     IF NOT SameUser THEN _
  640.        ZStopInterrupts = NOT ZWelcomeInterruptable : _
  641.        ZBypassTimeCheck = ZTrue : _
  642.        ZFileName$ = ZWelcomeFile$ : _
  643.        ZDisplayAsUnit = ZTrue : _
  644.        CALL InitWelc (2) : _                                         ' IW174/RM08059306
  645.        IF ZRIPTest THEN _
  646.           CALL QuickTPut1 (ZRIPReset$)                               ' RM11069301
  647.        ZDisplayAsUnit = ZFalse
  648.     ZBypassTimeCheck = ZFalse
  649.     ZStopInterrupts = ZTrue
  650. * REPLACING old line(s) by new
  651. 816 IF NOT ZNewUser THEN _
  652. * ------[ first line different ]------
  653.        CALL SkipLine (1)                                             ' RM10069301
  654.        CALL QuickTPut1 (ZFG5$ + "Times on:" + ZFG7$ + STR$(ZTimesLoggedOn) + _
  655.             ZFG5$ + "  Last on: " + ZFG7$ + PrevLastOn$ + ZEmphasizeOff$) ' RM051801
  656. * REPLACING old line(s) by new
  657. 817 IF NOT ZRemindFileXfers OR ZNewUser THEN _
  658.        GOTO 818
  659. * ------[ first line different ]------
  660.     ZOutTxt$ = ZFG3$ + "Files Downloaded:" + ZFG7$ + _
  661.          STR$(ZDnlds) + ZFG3$ + _
  662.          "  Uploaded:" + ZFG7$ + _
  663.          STR$(ZUplds) + ZEmphasizeOff$                               ' RM051901
  664.     GOSUB 12977
  665.     CALL CheckRatio (ZFalse)
  666. * REPLACING old line(s) by new
  667. 819 CALL Trim (ZWasCI$)
  668.     IF (ZNodeRecIndex < 2) THEN _
  669.        GOTO 821
  670.     GOSUB 4910
  671. * ------[ first line different ]------
  672.     CALL UpdtMessageHdr                                              ' UM174/RM08059305           ' UM174/RM08059305
  673.     GET 1,ZNodeRecIndex
  674.     MID$(ZMsgRec$,1,31) = ZActiveUserName$ + _
  675.                                  SPACE$(31 - LEN(ZActiveUserName$))
  676.     MID$(ZMsgRec$,40,2) = " 0"
  677.     MID$(ZMsgRec$,44,2) = RIGHT$(STR$(-ZBPS),2)
  678.     MID$(ZMsgRec$,55,2) = " 0"
  679.     MID$(ZMsgRec$,57,1) = "A"
  680.     MID$(ZMsgRec$,60,5) = ZTalkToModemAt$ + _
  681.                                  SPACE$(5 - LEN(ZTalkToModemAt$))
  682.     MID$(ZMsgRec$,72,2) = " 0"
  683.     MID$(ZMsgRec$,79,5) = ZCBaud$ + SPACE$(5 - LEN(ZCBaud$))         ' KG012001
  684.     MID$(ZMsgRec$,93,24) = ZWasCI$ + _
  685.                                   SPACE$(24)
  686.     PUT 1,ZNodeRecIndex
  687.     GOSUB 12985
  688. * REPLACING old line(s) by new
  689. 821 IF ZExitToDoors THEN _
  690.        IF ZTransferFunction = 3 THEN _
  691.           ZNewUser = ZTrue : _
  692. * ------[ first line different ]------
  693.           ZTurboLogon = ZFalse : _                                   ' RM08139301
  694.           SameUser = ZFalse : _
  695.           ZTransferFunction = 0 : _
  696.           GOTO 832 _
  697.        ELSE GOTO 832
  698.     ZJParm = 5                                                       ' JC174/RM08119301
  699.     GOSUB 5300                                                       ' JC174/RM08119301
  700.     IF (ZSubBoard AND (ZOrigMsgFile$ = ZActiveMessageFile$)) _
  701.        OR ((ZUserSecLevel > ZMaxRegSec) AND (NOT ZNewUser)) THEN _
  702.        GOTO 832
  703.     ZWasZ$ = ZRegProgram$
  704.     ZTransferFunction = 3
  705.     CALL DoorExit (ZFalse)
  706.     ZTransferFunction = 0
  707.     GOTO 832
  708. '
  709. ' ****  ESC PRESSED ON LOCAL CONSOLE ENTERS HERE   ***
  710. '
  711. * REPLACING old line(s) by new
  712. 822 LOCATE 24,1
  713.     CALL TakeOffHook
  714.     ZLocalUser = ZTrue
  715.     ZSnoop = ZTrue
  716. * ------[ first line different ]------
  717.     ZBPS = -17                                                       ' BB08219301/BB09039301/RM11279301
  718.     CALL CommInfo
  719.     CALL Muzak (2)
  720.     IF NOT ZEscapeInsecure THEN _
  721.        GOTO 345
  722.     ZActiveUserName$ = ZSecretName$
  723.     ZFirstName$ = ZSysopPswd1$
  724.     ZLastName$ = ZSysopPswd2$
  725.     ZUserLogonTime! = TIMER
  726.     ZTimeLoggedOn$ = TIME$
  727.     ZLinesPrinted = 0
  728.     ZSysop = ZTrue
  729.     GOTO 457
  730. * REPLACING old line(s) by new
  731. * ------[ first line different ]------
  732. 827 IF ZLastMsgRead > ZHighMsgNumber THEN _                          ' RM08119301
  733.        ZLastMsgRead = 0 : _
  734.        MID$(ZUserOption$,3,2) = MKI$(0)
  735.     RETURN
  736. * REPLACING old line(s) by new
  737. * ------[ first line different ]------
  738. 832 IF ZNewUser AND NOT ZRememberNewUsers THEN                       ' DD/RM04019402
  739.        ZNewUser = ZFalse                                             ' RM04019402
  740.        ZFileName$ = ZWelcomeFile$                                    ' DD
  741.        ZDisplayAsUnit = ZTrue                                        ' DD
  742.        CALL InitWelc (2)                                             ' RM03309401
  743.        IF ZRIPTest THEN _                                            ' RM03309401
  744.           CALL QuickTPut1 (ZRIPReset$)                               ' RM03309401
  745.        ZDisplayAsUnit = ZFalse                                       ' RM03309401
  746.     END IF                                                           ' RM03309401
  747.     IF ZRestrictByDate AND ZDaysInRegPeriod > 0 THEN _               ' RM03309401
  748.        IF ZRegDaysRemaining <= ZDaysToWarn AND _
  749.           ZRegDaysRemaining > 0 AND ZUserSecLevel > ZTempExpiredSec THEN _
  750.              CALL QuickTPut1 ("Registration EXPIRES in" + _
  751.                        STR$(ZRegDaysRemaining) + " days!") : _
  752.              ZFileName$ = ZHelpPath$ + "RGXPIRE" + ZHelpExtension$ : _ ' RM08059307
  753.              GOSUB 43025 : _                                         ' RM08059307
  754.              CALL DelayTime (5)                                      ' RM08059307
  755.     IF (NOT ZReqQuesAnswered) AND _
  756.        ZReqQues$ <> "" THEN _
  757.          ZFileName$ = ZReqQues$ : _
  758.          CALL QuestAns (2, WasX) : _                                 ' QA174/RM08059308
  759.          IF ZSubParm = -1 THEN _                                     ' RM12149301
  760.             GOTO 10595                                               ' RM12149301
  761.          IF ZOK THEN _
  762.             ZReqQuesAnswered = ZTrue
  763. * REPLACING old line(s) by new
  764. 842 CALL SetSessionTime
  765.     ZSysop = (ZUserSecLevel >= ZSysopSecLevel)
  766.     GOSUB 12987
  767.     IF ZSubBoard THEN _
  768.        GOTO 850
  769.     GOSUB 12986
  770. * ------[ first line different ]------
  771.     CALL GetMessageHdr                                               ' GM174/RM08059303
  772.     ZCallsToDate! = ZCallsToDate! + 1 + (ZSysop OR ZHasDoored)       ' RM08119301
  773.     CALL UpdtMessageHdr                                              ' UM174/RM08059305           ' UM174/RM08059305
  774.     GOSUB 12985
  775. * REPLACING old line(s) by new
  776. 850 ZSubParm = 2
  777.     CALL Line25
  778.     CALL SkipLine (1)
  779. * ------[ first line different ]------
  780.     IF ZTurboLogon THEN _                                            ' RM08139301
  781.        ZBulletinSave$ = ZBulletinMenu$ : _
  782.        GOSUB 9750 : _
  783.        GOTO 900
  784.     IF ZNewUser OR NOT ZNewFilesCheck THEN _                         ' RM10159301
  785.        GOTO 852                                                      ' RM10159301
  786.     CALL LoadNew (ZMsgPtr())                                         ' DGS050501-DS/LOADNEW
  787.     CALL CountNewFiles (ZBoardCheckDate$,ZMsgPtr(),LastNew,ZOutTxt$) ' RM08119301
  788.     IF ZFMSDirectory$ <> "" THEN
  789.        CALL SkipLine(1)                                              ' DGS050501-DS/LOADNEW
  790.        IF LastNew > 0 THEN                                           ' RM030701
  791.           CALL QuickTPut1 (ZFG5$ + "There are" + ZOutTxt$ + _
  792.                ZFG7$ + STR$(LastNew) + ZFG5$ + " NEW file(s) since last on" + ZEmphasizeOff$) ' RM051801/RM030701
  793.        ELSE
  794.           CALL QuickTPut1 (ZFG5$ + "There are " + ZFG7$ + "NO" + ZFG5$ + " New Files since last on" _
  795.                           + ZEmphasizeOff$)                          ' DGS092401-DS/LOADNEW/RM10059301
  796.           CALL SkipLine(1)                                           ' RM10159301
  797.           GOTO 852                                                   ' RM10159301
  798.        ENDIF
  799.        CALL SkipLine(1)                                              ' DGS050501-DS/LOADNEW
  800.     ELSE GOTO 852
  801.     ENDIF                                                            ' RM030701
  802.     WasL = LEN(ZDnldDrives$)
  803.     SecNum = 19
  804.     IF (NOT ZSkipFilesLogon) AND _
  805.        ZUserSecLevel >= ZOptSec(SecNum) THEN _
  806.           ZOutTxt$ = ZFG1$ + "Review new files for possible download ([Y]" + _
  807.                      ZFG1$ + ",N)" + ZEmphasizeOff$ : _              ' RM051801/JL030701
  808.           GOSUB 12999 : _
  809.           IF NOT ZNo THEN _
  810.              ZLastIndex = 3 : _
  811.              ZAnsIndex = 1 : _
  812.              ZWasQ = 3 : _
  813.              ZUserIn$(2) = MID$(ZBoardCheckDate$,1,2) + _            ' RM08119301
  814.                      MID$(ZBoardCheckDate$,4,2) + _                  ' RM08119301
  815.                      MID$(ZBoardCheckDate$,7,2) : _                  ' RM08119301
  816.              ZWasY$ = ZUserIn$(3) : _
  817.              CALL BreakFileName (ZFMSDirectory$,DR$,ZWasY$,WasX$,ZFalse) : _
  818.              ZUserIn$(3) = ZWasY$ : _
  819.              TimeLockExempt = ZTrue : _
  820.              GOSUB 20185 : _
  821.              ZLastIndex = 0 : _
  822.              TimeLockExempt = ZFalse
  823. * REPLACING old line(s) by new
  824. 856 IF NOT ZCheckBulletLogon THEN _
  825.        ZAnsIndex = 0 : _
  826.        GOSUB 9760 : _
  827.        GOTO 900
  828.     CALL SkipLine (1)
  829. * ------[ first line different ]------
  830.     ZOutTxt$ = ZFG5$ + "Skip the bulletins (Y,[N]" + ZFG5$ + ")" + ZEmphasizeOff$ ' RM051801
  831.     GOSUB 12999
  832.     IF ZYes THEN _
  833.        GOTO 900
  834. * REPLACING old line(s) by new
  835. * ------[ first line different ]------
  836. 900 IF ZWelcomeAboard THEN _                                         ' NEWU174
  837.        GOSUB 1799 : _                                                ' NEWU174
  838.        CALL UpdtCalr ("New User Welcome message sent!",1) : _        ' NEWU174
  839.        WelcomeAboard = ZWelcomeAboard : _                            ' NEWU174
  840.        ZWelcomeAboard = ZFalse                                       ' NEWU174
  841.     ZNewUser = ZFalse                                                ' NEWU174
  842.     ActionFlag = (ZLogonMailLevel$ = "S")
  843.     LogonMailNew = (ZLogonMailLevel$ = "N")
  844.     ZActiveMessages = 0                                              ' RM08159301
  845.     MParm = 11                                                       ' MS174/RM08139301
  846.     GOSUB 2001                                                       ' MS174/RM08139301
  847.     IF ZActiveUserName$ = "SYSOP" AND NOT ZSysop THEN _
  848.        ZActiveUserName$ = ZOrigUserName$
  849.     LogonMailNew = ZFalse
  850.     ZSubParm = 2
  851.     CALL Line25
  852.     ZSection$ = "    "
  853.     ZOutTxt$ = ""
  854.     IF (NOT ZConfMode) AND (NOT ZSubBoard) AND NOT ZTurboLogon AND NOT WelcomeAboard THEN _ ' RM08049307/RM08139301
  855.        ZMailCheckConfirm = (ZDoMailCheck = 0) : _                    ' SG082103
  856.        ZLinkNew = ZTrue : _                                          ' RM02079401/RM02079401
  857.        GOSUB 5800
  858.     ZMailCheckConfirm = ZFalse                                       ' RM02079401
  859.     ZWasQ! = ZMinsInDoors * 60
  860.     ZMinsInDoors = 0
  861. * REPLACING old line(s) by new
  862. 902 IF LogonPswdFailed THEN _
  863.        ZExitToDoors = ZFalse : _
  864.        CALL UpdateU (ZTrue) : _
  865.        ZLogonErrorIndex = 4 : _
  866.        GOTO 10620
  867. * ------[ first line different ]------
  868.     IF ZExitToDoors and ZDooredTo$ <> "" AND NOT ZPrivateDoor THEN _ ' RM01299401
  869.        ZFileName$ = ZOutTxt$(7) : _                                  ' RM09019301
  870.        IF ZFileName$ <> "" THEN _                                    ' RM01309401
  871.           GOSUB 43025                                                ' RM09019301
  872.     ZExitToDoors = ZFalse
  873.     IF ZHomeConf$ = "" THEN _
  874.        MParm = 9 : _                                                 ' MS174/RM08139301
  875.        GOSUB 2001                                                    ' MS174/RM08129301
  876.     IF NOT ZPrivateDoor THEN _
  877.        GOTO 955
  878.     GOSUB 20165
  879.     CALL SetSection
  880.     ZPrivateDoor = ZFalse
  881.     GOTO 1205
  882. * REPLACING old line(s) by new
  883. * ------[ first line different ]------
  884. 955 IF NOT ZTurboLogon THEN                                          ' RM08139301/RM08229301
  885.        IF NOT ZSubBoard AND NOT ZConfMode THEN _                     ' RM08229301/RM02089401
  886.           GOSUB 4850                                                 ' MESS174
  887.        IF STR$(ZLastMsgRead) < STR$(ZHighMsgNumber) AND ZUserSecLevel => MsgSec THEN _ ' MESS174/RM08119301
  888.           GOSUB 4275                                                 ' MESS174
  889.     END IF                                                           ' RM08229301
  890.     SkipMain = ZFalse
  891.     ZTurboLogon = ZFalse                                             ' RM08139301
  892. '
  893. ' *                           COMMAND PROCESSING
  894. '
  895. * REPLACING old line(s) by new
  896. 1205 IF ZSubParm < 0 THEN _
  897.         GOTO 202
  898.      ZSubParm = 1
  899.      ZStopInterrupts = ZFalse
  900.      ZWasQ = 0
  901. * ------[ first line different ]------
  902.      IF (NOT ZConfMailJoin) AND (ZHomeConf$ = "" OR ZHomeConf$ = "MAIN") THEN _ ' RM02079401
  903.         GOTO 1209
  904.      ZTurboLogon = ZLinkNext OR (NOT ZConfMailJoin)                   ' RM08139301/RM08219302/RM02079401
  905.      ZConfMailJoin = ZFalse                                           ' RM02079401
  906.      ZFF = 8
  907.      IF ZHomeConf$ = "MAIN" THEN _
  908.         ZHomeConf$ = "M"
  909.      ZUserIn$(ZAnsIndex) = ZHomeConf$
  910.      IF ZLinkNext THEN _                                             ' RM08219302
  911.         ZUserIn$(ZAnsIndex + 1) = "R" : _
  912.         ZLastIndex = ZAnsIndex + 1
  913.      ZLastIndex = -ZLastIndex*(ZLastIndex > ZAnsIndex)-ZAnsIndex*(ZLastIndex <= ZAnsIndex)
  914.      ZAnsIndex = ZAnsIndex - 1
  915.      ZHomeConf$ = ""
  916.      ZWasQ = ZLastIndex
  917.      ZStoreParseAt = 1
  918.      ZLastCommand$ = "MJ"
  919.      GOTO 1240
  920. * REPLACING old line(s) by new
  921. 1212 ZLinesPrinted = -ZMenusCanPause * ZLinesPrinted
  922.      IF ZCustomPUI THEN _
  923.         GOTO 1230
  924.      IF ZSubSection < ZBegFile THEN _
  925.         IF ZUserSecLevel >= ZSysopMenuSecLevel THEN _
  926.            ZFileName$ = ZMenu$(1) : _
  927.            GOSUB 43025
  928.      ZFileName$ = ZMenu$(ZMenuIndex)
  929.      ZDeleteInvalid = ZTrue
  930. * ------[ first line different ]------
  931.      CALL InitWelc (2)                                               ' IW174/RM08059306
  932.      ZDeleteInvalid = ZFalse
  933. * REPLACING old line(s) by new
  934. 1230 CALL Line25
  935.      ZOutTxt$ = ZConfName$ + ":"
  936.      GOSUB 12978
  937.      CALL Talk (65,ZConfName$)
  938.      CALL DispTimeRemain (MinsRemaining)
  939. * ------[ first line different ]------
  940.      IF ZMenuIndex = 6 AND NOT ZCDRom THEN _                         ' RM03259401
  941.         ZSubParm = 1 : _
  942.         CALL Library
  943.      CALL CBCheck(WillChat)                                          ' RCHAT401
  944.      IF WillChat THEN GOTO 1600                                      ' RCHAT401
  945.      CALL SaveUserActivity("I", ZNodeRecIndex, ZFalse)               ' RCHAT401
  946.      CALL Talk (ZMenuIndex, ZOutTxt$)
  947. * REPLACING old line(s) by new
  948. 1235 ZWasZ$ = ZUserIn$(ZAnsIndex)
  949.      IF ZWasZ$ = SPACE$(LEN(ZWasZ$)) THEN _
  950.         GOTO 1230
  951.      CALL SearchCmd (ZSubSection,ZFF)
  952.      IF ZFF > 0 THEN _
  953.         GOTO 1239
  954.      IF ZWasQ > 0 THEN _
  955. * ------[ first line different ]------
  956.         CALL QuickTPut1 (ZFG5$ + "Sorry, Unknown command <" + ZFG7$ + _
  957.               ZWasZ$ + ZFG5$ + ">" + ZEmphasizeOff$)                 ' RM052901
  958.      CALL FlushKeys
  959.      GOTO 1230
  960. * REPLACING old line(s) by new
  961. 1240 IF ZUserSecLevel < ZOptSec(ZFF) THEN _
  962.        ZViolation$ = ZSection$ + _
  963.                      " " + _
  964.                      ZWasZ$ : _
  965.         GOSUB 1380 : _
  966.         GOTO 1205
  967.      IF ZFF > 39 THEN _
  968.         ZDirExtension$ = ZLibDirExtension$ _
  969.      ELSE ZDirExtension$ = ZMainDirExtension$
  970. * ------[ first line different ]------
  971.      IF ZRIPTest THEN _
  972.         Call QuickTPut1 (ZRIPReset$)                                 ' RM09089301
  973.         ON ZFF GOSUB _
  974.                  1400, _      ' 1  A)nswer questionnaire 1
  975.                  9700, _      ' 2  B)ulletins
  976.                  1800, _      ' 3  C)omments
  977.                  10970, _     ' 4  D)oor (exit to)
  978.                  2000, _      ' 5  E)nter a message
  979.                  1275, _      ' 6  F)ile system (exit to)
  980.                  1760, _      ' 7  I)nitial welcome redisplayed
  981.                  5299, _      ' 8  J)oin a conference                ' JC174/RM08119301
  982.                  3900, _      ' 9  K)ill a message
  983.                  4700, _      '10  O)perator page
  984.                  1900, _      '11  P)ersonal mail (look for)
  985.                  4330, _      '12  R)ead messages
  986.                  4340, _      '13  S)can message headers
  987.                  4320, _      '14  T)opic msg scan
  988.                  1285, _      '15  U)tilities (exit to)
  989.                  5800, _      '16  V)iew a conference
  990.                  9800, _      '17  W)ho's on other nodes displayed
  991.                  1283, _      '18  @)Library (exit to) 18
  992.                 20160, _      '19  D)ownload
  993.                 10570, _      '20  G)oodbye
  994.                 20155, _      '21  L)ist
  995.                 20185, _      '22  N)ew
  996.                 20180, _      '23  P)ersonal files
  997.                 20175, _      '24  S)can
  998.                 20170, _      '25  U)pload
  999.                 20140, _      '26  V)iew ARC Contents
  1000.                  5500, _      '27  B)ank Time
  1001.                  9100, _      '28  C)lock (time & time on)
  1002.                  42850, _     '29  E)cho selection
  1003.                  42800, _     '30  F)ile transfer protocol
  1004.                  43001, _     '31  G)raphics                         ' GR174/RM08039303
  1005.                  5200, _      '32  L)ines per page
  1006.                  10925, _     '33  M)essage margin
  1007.                  5110, _      '34  P)ersonal Info. Change
  1008.                  5400, _      '35  R)eview preferences
  1009.                  4850, _      '36  S)tatistics displayed
  1010.                  1500, _      '37  T)oggle
  1011.                  10090, _     '38  U)serlog displayed 12
  1012.                  30000, _     '39  A)rchive a Library disk 1
  1013.                  30100, _     '40  C)hange a Library disk
  1014.                  30200, _     '41  D)ownload Library files
  1015.                  10570, _     '42  G)oodbye
  1016.                  20155, _     '43  L)ist a Library directory
  1017.                  20175, _     '44  S)can a Library disk directory
  1018.                  20140, _     '45  V)iew arc contents 7
  1019.                  1325, _      '46  H)elp 1
  1020.                  1330, _      '47  ?)help
  1021.                  1250, _      '48  Q)uit
  1022.                  4240, _      '49  X)expert toggle on/off 4
  1023.                  10070, _     '50  1) List comments file 1
  1024.                  10090, _     '51  2) List callers file
  1025.                  10390, _     '52  3) Recover a message
  1026.                  10530, _     '53  4) Erase comments
  1027.                  11000, _     '54  5) User file maintenance
  1028.                   4130, _     '55  6) Toggle page bell on/off
  1029.                  10930        '56  7) Exit to DOS 2.x or above 7
  1030.      GOTO 1205
  1031. '
  1032. ' ****           QUIT COMMAND (GLOBAL)              ***
  1033. '
  1034. * DELETING old line(s)
  1035. 1241
  1036. 1242
  1037. 1243
  1038. * REPLACING old line(s) by new
  1039. 1250 IF ZExpertUser THEN _
  1040.         ZOutTxt$ = ZQuitPromptExpert$ _
  1041.      ELSE ZOutTxt$ = ZQuitPromptNovice$
  1042.      ZStackC = ZTrue
  1043.      GOSUB 12930
  1044.      IF ZWasQ = 0 THEN _
  1045.         ZUserIn$(ZAnsIndex) = "M"
  1046.      ZWasZ$ = ZUserIn$(ZAnsIndex)
  1047.      CALL AllCaps (ZWasZ$)
  1048. * ------[ first line different ]------
  1049.      IF ZWasZ$ = "C" THEN
  1050.         IF ZMarkedFiles$ <> "" AND ZSubBoard THEN                    ' RM01169401
  1051.            GOSUB 4000                                                ' RM01179401
  1052.         END IF                                                       ' RM01169401
  1053.         IF ZSubBoard THEN _                                          ' RM01169401
  1054.            ZMarkedFiles$ = ""                                        ' RM01169401
  1055.         ZWasZ$ = "M"
  1056.         ZJParm = 2                                                   ' JC174/RM08119301
  1057.         GOSUB 5300                                                   ' JC174/RM08119301
  1058.      END IF                                                          ' RM01169401
  1059.      ZCDRom = ZFalse                                                 ' RM03259401
  1060.      IF ZWasZ$ <> SPACE$(LEN(ZWasZ$)) THEN _
  1061.         ON INSTR(ZQuitList$,ZWasZ$) GOTO 1275,1280,1285,10570,1283
  1062.      GOTO 1250
  1063. * REPLACING old line(s) by new
  1064. 1283 ZMenuIndex = 6
  1065.      ZActiveFMSDir$ = ""
  1066. * ------[ first line different ]------
  1067.      CALL FindFile (ZNodeWorkDrvPath$ + "CDR" + ZNodeID$ + ".CFG",ZCDRom) ' RM03259401/RM03269401/RM03279401
  1068.      IF ZCDRom THEN                                                  ' RM03269401
  1069.         CALL SelectCD (1)                                            ' RM03269401
  1070.         GOSUB 1298                                                   ' RM03279401
  1071.      END IF                                                          ' RM03279401
  1072.      GOTO 1295
  1073. * REPLACING old line(s) by new
  1074. * ------[ first line different ]------
  1075. 1295 IF ZMenuIndex <> 6 THEN                                         ' RM03269401
  1076.         CALL SelectCD (3)                                            ' RM03269401
  1077.         GOSUB 1298                                                   ' RM03279401
  1078.      END IF                                                          ' RM03279401
  1079.      CALL SetSection
  1080.      RETURN
  1081. * INSERTING new line(s)
  1082. 1298 CALL CountLines (MaxEntries)                                    ' RM03279401
  1083.      REDIM ZCategoryName$(MaxEntries),ZCategoryCode$(MaxEntries), _
  1084.            ZCategoryDesc$(MaxEntries)                                ' RM03279401
  1085.      CALL InitFMS (ZNumCategories)                                   ' RM03279401
  1086.      RETURN                                                          ' RM03279401
  1087. * REPLACING old line(s) by new
  1088. * ------[ first line different ]------
  1089. 1300 CALL QuickTPut1 (ZFG7$ + ZConfName$ + ZFG5$ + " Message base" + ZEmphasizeOff$) ' RM052901
  1090.      RETURN
  1091. '
  1092. ' **** COMMON LOCAL DISPLAY PRINT  ***
  1093. '
  1094. * REPLACING old line(s) by new
  1095. * ------[ first line different ]------
  1096. 1400 CALL QuestAns (1, WasX)                                         ' QA174/RM08059308
  1097.      IF ZSubParm < 0 THEN _                                          ' QA174/RM08059308
  1098.         RETURN 10595                                                 ' QA174/RM08059308
  1099.      RETURN                                                          ' QA174/RM08059308
  1100. '
  1101. ' *****    Toggle COMMAND (UTILITIES)     ****
  1102. '
  1103. * DELETING old line(s)
  1104. 1401
  1105. * REPLACING old line(s) by new
  1106. 1500 CALL CmndToggle
  1107.      RETURN
  1108. * ------[ first line different ]------
  1109. * INSERTING new line(s)
  1110. 1600 CALL CBTrueChat (ZMaxNodes)                                     ' RCHAT401
  1111.      GOSUB 5344                                                      ' RCHAT401
  1112.      GOTO 1205                                                       ' RCHAT401
  1113. '
  1114. ' ****  I - COMMAND FROM MAIN MENU (DISPLAY INITIAL WELCOME)  ***
  1115. '
  1116. * REPLACING old line(s) by new
  1117. * ------[ first line different ]------
  1118. 1760 CALL InitWelc (1)                                               ' IW174/RM08059306
  1119.      IF ZSubParm < 0 THEN RETURN 10595                               ' IW174/RM08059306
  1120.      RETURN                                                          ' IW174/RM08059306
  1121. '
  1122. ' ***  C - COMMAND FROM MAIN MENU (LEAVE COMMENT FOR SYSOP)   **
  1123. '
  1124. * DELETING old line(s)
  1125. 1790
  1126. * INSERTING new line(s)
  1127. 1799 MParm = 1                                                       ' MS174/RM08139301
  1128.      GOTO 2001                                                       ' MS174/RM08139301
  1129. * REPLACING old line(s) by new
  1130. * ------[ first line different ]------
  1131. 1800 MParm = 2                                                       ' MS174/RM08139301
  1132.      GOTO 2001                                                       ' MS174/RM08139301
  1133. * DELETING old line(s)
  1134. 1801
  1135. 1850
  1136. 1893
  1137. 1895
  1138. 1897
  1139. * REPLACING old line(s) by new
  1140. * ------[ first line different ]------
  1141. 1900 MParm = 5                                                       ' MS174/RM08139301
  1142.      GOTO 2001
  1143. * DELETING old line(s)
  1144. 1905
  1145. 1906
  1146. 1910
  1147. 1915
  1148. 1920
  1149. 1925
  1150. 1930
  1151. 1935
  1152. 1940
  1153. 1945
  1154. 1946
  1155. 1950
  1156. 1960
  1157. 1961
  1158. * REPLACING old line(s) by new
  1159. 2000 MParm = 3
  1160. * REPLACING old line(s) by new
  1161. * ------[ first line different ]------
  1162. 2001 CALL MsgSys (MParm,ActionFlag,GetOut,LogonMailNew,UtilMarginChange) ' MS174/RM08129301/RM08179301/RM08309301/RM03319401
  1163.      Temp = MParm                                                    ' RM12129302
  1164.      MParm = 0                                                       ' RM12129302
  1165.      IF Temp = 10 THEN GOTO 10595                                    ' RM12129302
  1166.      IF Temp = 9 THEN GOTO 10590                                     ' RM12129302
  1167.      IF Temp = 2 THEN RETURN 10595                                   ' RM12129302
  1168.      IF ZJParm = 3 THEN _                                            ' MS174/RM08139301
  1169.         ZJParm = 0 : _                                               ' MS174/RM08139301
  1170.         RETURN 108                                                   ' MS174/RM08139301
  1171.      IF Temp = 1 THEN GOTO 10570                                     ' RM12129302/RM03319401
  1172.      IF Temp = 3 THEN GOTO 5160                                      ' MS174/RM08159301/RM12129302
  1173.      IF Temp = 4 THEN RETURN 13600                                   ' MS174/RM08189301/RM12129302
  1174.      IF Temp = 5 THEN RETURN 1235                                    ' RM12129302
  1175.      IF Temp = 6 THEN RETURN 1205                                    ' RM12129302
  1176.      IF Temp = 7 THEN GOTO 202                                       ' RM12129302
  1177.      IF Temp = 8 THEN GOTO 1300                                      ' RM12129302
  1178.      IF Temp = 11 THEN GOTO 10620                                    ' RM12129302
  1179.      IF Temp = 12 THEN RETURN 10553                                  ' RM12129302
  1180.      RETURN                                                          ' MS174/RM08139301
  1181. * DELETING old line(s)
  1182. 2006
  1183. 2007
  1184. 2008
  1185. 2009
  1186. 2010
  1187. 2020
  1188. 2035
  1189. 2065
  1190. 2100
  1191. 2125
  1192. 2127
  1193. 2140
  1194. 2200
  1195. 2210
  1196. 2300
  1197. 2302
  1198. 2315
  1199. 2330
  1200. 2332
  1201. 2335
  1202. 2345
  1203. 2350
  1204. 2400
  1205. 2430
  1206. 2435
  1207. 2440
  1208. 2500
  1209. 2520
  1210. 2522
  1211. 2530
  1212. 2550
  1213. 2555
  1214. 2600
  1215. 2800
  1216. 2820
  1217. 2830
  1218. 2840
  1219. 2870
  1220. 2920
  1221. 3000
  1222. 3010
  1223. 3020
  1224. 3100
  1225. 3150
  1226. 3200
  1227. 3300
  1228. 3400
  1229. 3405
  1230. 3410
  1231. 3460
  1232. 3530
  1233. 3630
  1234. 3640
  1235. 3650
  1236. * REPLACING old line(s) by new
  1237. * ------[ first line different ]------
  1238. 3900 MParm = 4                                                       ' MS174/RM08139301
  1239.      GOTO 2001                                                       ' MS174/RM08139301
  1240.  
  1241. '
  1242. ' *** Download Marked files when exiting sub board or joining conf/subboard
  1243. '
  1244. * DELETING old line(s)
  1245. 3930
  1246. 3935
  1247. 3950
  1248. * INSERTING new line(s)
  1249. 4000  CALL SkipLine (1)                                              ' RM01169401
  1250.       ZOutTxt$ = "You have Files MARKED for Download."               ' RM01279401/RM03069401
  1251.       Call RingCaller                                                ' DGS022202-DS
  1252.       ZOutTxt$ = ZFG6$ + "Download before exiting [Y]" + ZFG6$ + ",N " + ZEmphasizeOff$ ' RM01169401/RM01279401
  1253.       GOSUB 12995                                                    ' RM01169401
  1254.       IF ZWasQ = 0 OR NOT ZNo THEN _                                 ' RM01169401
  1255.          CALL CmdStackPushPop (1)  : _                               ' RM01169401
  1256.          ZLastIndex = ZAnsIndex : _                                  ' RM01169401
  1257.          ZUserIn$(ZAnsIndex) = "M" : _                               ' RM01169401
  1258.          ZFileSysParm = 10 : _                                       ' RM01179401
  1259.          GOSUB 20200 : _                                             ' RM01169401
  1260.          CALL CmdStackPushPop (2)                                    ' RM01169401
  1261.       RETURN                                                         ' RM01169401
  1262. '
  1263. ' ****  Sysop Available toggle
  1264. '
  1265. * DELETING old line(s)
  1266. 4040
  1267. * INSERTING new line(s)
  1268. 4275 CALL SkipLine(1)                                                ' MESS174
  1269.      IF WelcomeAboard THEN _                                         ' MESS174
  1270.         ZOutTxt$ = ZFG5$ + "You have " + ZFG7$ + "New Mail" + ZFG5$ + _ ' RM051901
  1271.                   " waiting, Read now? ([Y]" + ZFG5$ + ",N)" + ZEmphasizeOff$ _ ' MESS174
  1272.      ELSE _                                                          ' MESS174
  1273.         ZOutTxt$ = ZFG5$ + "There are " + ZFG7$ + "New Messages" + _
  1274.             ZFG5$ + " since your last call, Read them now? ([Y]" + _
  1275.             ZFG5$ + ",N)" + ZEmphasizeOff$                           ' MESS174
  1276.      GOSUB 12999                                                     ' MESS174
  1277.      CALL SkipLine(1)                                                ' MESS174
  1278. 4279 IF ZNO THEN _                                                   ' MESS174
  1279.         WelcomeAboard = ZFalse : _                                   ' MESS174
  1280.         RETURN _                                                     ' MESS174
  1281.      ELSE _                                                          ' MESS174
  1282.         ZLastIndex = 2 : _                                           ' MESS174
  1283.         ZAnsIndex = 1 : _                                            ' MESS174
  1284.         ZWasQ = 2                                                    ' MESS174
  1285.         IF WelcomeAboard THEN _                                      ' MESS174
  1286.            WelcomeAboard = ZFalse : _                                ' MESS174
  1287.            ZUserIn$(2) = "L" _                                       ' MESS174
  1288.         ELSE _                                                       ' MESS174
  1289.            ZUserIn$(2) = "*"                                         ' MESS174
  1290.         GOTO 4330                                                    ' MESS174
  1291. * REPLACING old line(s) by new
  1292. * ------[ first line different ]------
  1293. 4320 MParm = 8                                                       ' MS174/RM08139301
  1294.      GOTO 2001                                                       ' MS174/RM08139301
  1295. * REPLACING old line(s) by new
  1296. * ------[ first line different ]------
  1297. 4330 MParm = 6                                                       ' MS174/RM08139301
  1298.      GOTO 2001                                                       ' MS174/RM08139301
  1299. * REPLACING old line(s) by new
  1300. * ------[ first line different ]------
  1301. 4340 MParm = 7                                                       ' MS174/RM08139301
  1302.      GOTO 2001
  1303. '
  1304. ' ****  O - COMMAND FROM MAIN MENU (OPERATOR PAGE)   ***
  1305. '
  1306. * DELETING old line(s)
  1307. 4345
  1308. 4350
  1309. 4352
  1310. 4360
  1311. 4370
  1312. 4371
  1313. 4380
  1314. 4390
  1315. 4400
  1316. 4402
  1317. 4415
  1318. 4416
  1319. 4418
  1320. 4430
  1321. 4450
  1322. 4452
  1323. 4470
  1324. 4480
  1325. 4490
  1326. 4492
  1327. 4510
  1328. 4515
  1329. 4520
  1330. 4530
  1331. 4540
  1332. 4550
  1333. 4552
  1334. 4560
  1335. 4561
  1336. 4562
  1337. 4563
  1338. 4580
  1339. 4581
  1340. 4582
  1341. 4584
  1342. 4585
  1343. 4590
  1344. 4600
  1345. 4601
  1346. 4602
  1347. 4603
  1348. 4604
  1349. 4605
  1350. 4606
  1351. 4607
  1352. 4608
  1353. 4609
  1354. 4610
  1355. 4611
  1356. 4612
  1357. 4614
  1358. 4615
  1359. 4617
  1360. 4620
  1361. 4621
  1362. 4622
  1363. 4623
  1364. 4624
  1365. 4625
  1366. 4626
  1367. 4627
  1368. 4628
  1369. 4629
  1370. 4630
  1371. 4631
  1372. 4635
  1373. 4637
  1374. 4650
  1375. 4652
  1376. 4655
  1377. 4656
  1378. 4660
  1379. 4661
  1380. 4662
  1381. 4665
  1382. 4666
  1383. 4667
  1384. 4668
  1385. 4669
  1386. 4670
  1387. * REPLACING old line(s) by new
  1388. 4700 IF NOT ZSysopAvail THEN _
  1389. * ------[ first line different ]------
  1390.         ZOutTxt$ = ZFG5$ + "Sorry, " + ZFG7$ + _
  1391.              ZSysopFirstName$ + ZFG5$ + _
  1392.              " is not available now" + ZEmphasizeOff$ : _            ' RM051801
  1393.         GOSUB 12979 : _
  1394.         GOTO 4755
  1395. * REPLACING old line(s) by new
  1396. * ------[ first line different ]------
  1397. 4705 CALL QuickTPut1 (ZFG6$ + "Chat with SysOp" + ZEmphasizeOff$)    ' RM051801
  1398.      WasJJ = VAL(MID$(TIME$,1,2))*100 + VAL(MID$(TIME$,4,2))
  1399.      IF (WasJJ > ZStartOfficeHours AND WasJJ < ZEndOfficeHours) OR ZSysopAnnoy THEN _
  1400.         GOTO 4710
  1401. * REPLACING old line(s) by new
  1402. * ------[ first line different ]------
  1403. 4708 ZOutTxt$ = ZFG6$ + "SysOp is in from" + ZFG7$ + _
  1404.           STR$(ZStartOfficeHours) + _
  1405.           + ZFG6$ + " to" + ZFG7$ + _
  1406.           STR$(ZEndOfficeHours) + ZEmphasizeOff$                     ' RM051801
  1407.      GOSUB 12979
  1408.      GOTO 4755
  1409. * REPLACING old line(s) by new
  1410. * ------[ first line different ]------
  1411. 4710 ZOutTxt$ = ZFG5$ + "Purpose of Chat" + ZEmphasizeOff$           ' PAGE174/RM071101
  1412.      CALL SkipLine (1)                                               ' PAGE174/RM071101
  1413.      GOSUB 12995                                                     ' PAGE174/RM071101
  1414.      ZOutTxt$ = ZFG5$ + "Really Page " + ZFG7$ + _                   ' PAGE174/RM071101
  1415.           ZSysopFirstName$ + ZFG5$ + _
  1416.           " (Y,[N]" + ZFG5$ + ")" + ZEmphasizeOff$                   ' RM051801
  1417.      GOSUB 12999
  1418.      IF NOT ZYes THEN _
  1419.         RETURN
  1420.      CALL SkipLine (1)                                               ' PAGE174/RM071101
  1421.      PageCount = 0
  1422.      ZOutTxt$ = "Paging SysOp"
  1423.      GOSUB 12978
  1424.      PageTimeStart! = TIMER
  1425.      TempSnoop = ZSnoop
  1426.      ZSnoop = ZTrue
  1427.      CALL Line25
  1428. * REPLACING old line(s) by new
  1429. 4750 CALL QuickTPut1 (ZFG7$ + ZSysopFirstName$ + ZFG1$ + " not responding" + ZEmphasizeOff$) ' RM051801
  1430. * REPLACING old line(s) by new
  1431. * ------[ first line different ]------
  1432. 4755 ZPageStatus$ = "PG!"
  1433.      CALL UpdtCalr ("Operator paged " + LEFT$(TIME$,5),2)
  1434.      ZOutTxt$ = ZFG6$ + "Would you like to leave a comment to " + _  ' PAGE174
  1435.         ZFG7$ + ZSysopFirstName$ + ZFG6$ + " (Y,[N]" + ZFG6$ + ")" + ZEmphasizeOff$ ' PAGE174
  1436.      CALL SkipLine (1)                                               ' PAGE174
  1437.      GOSUB 12999                                                     ' PAGE174
  1438.      IF NOT ZYes THEN _                                              ' PAGE174
  1439.         RETURN                                                       ' PAGE174
  1440.      GOSUB 1800                                                      ' PAGE174
  1441.      RETURN
  1442. * REPLACING old line(s) by new
  1443. 4765 CALL UpdtCalr ("Paged & chatted with Sysop",1)
  1444. * ------[ first line different ]------
  1445.      ZPageStatus$ = ""
  1446. * REPLACING old line(s) by new
  1447. * ------[ first line different ]------
  1448. 4770 IF ZRIPTest THEN _                                              ' RM11039301
  1449.         CALL QuickTPut1 (ZRIPReset$)                                 ' RM11079301
  1450.      IF (ZANSITest = ZTrue OR ZWasGR > 1) AND ZDosANSI THEN _        ' CHAT174/RM101701
  1451.         CALL SysopChat (2) _                                         ' CHAT174/RM101701
  1452.      ELSE _                                                          ' CHAT174
  1453.         CALL QuickTPut1 ("SysOp in!  " + _                           ' CHAT174
  1454.              ZFirstName$ + ", this is " + _                          ' CHAT174
  1455.              ZSysopFullName$ + ", go ahead!") : _                    ' CHAT174
  1456.              CALL SysopChat (1)                                      ' CHAT174/RM101701
  1457.      IF ZSubParm < 0 THEN _
  1458.         GOTO 202
  1459.      RETURN
  1460. '
  1461. ' ****  S - COMMAND FROM UTILITY MENU (STATISTICS)  ***
  1462. '
  1463. * REPLACING old line(s) by new
  1464. * ------[ first line different ]------
  1465. 4850 CALL Statistics                                                 ' STAT174/RM08119301
  1466.      RETURN                                                          ' STAT174
  1467. * DELETING old line(s)
  1468. 4855
  1469. 4857
  1470. * REPLACING old line(s) by new
  1471. * ------[ first line different ]------
  1472. 4905 IF NOT ZTurboLogon THEN _                                       ' RM08139301
  1473.         CALL InitWelc (2)                                            ' IW174/RM08059306
  1474. * REPLACING old line(s) by new
  1475. 4910 GOSUB 12986
  1476.      GOSUB 5344
  1477.      IF LOF(1) = 0 THEN _
  1478.         ZWasDF$ = ZActiveMessageFile$ : _
  1479.         CLOSE 1 : _
  1480.         KILL ZActiveMessageFile$ : _
  1481.         GOSUB 12987 : _
  1482.         RETURN 13600
  1483. * ------[ first line different ]------
  1484.      CALL GetMessageHdr                                              ' GM174/RM08059303
  1485.      RETURN
  1486. '
  1487. ' P - COMMAND FROM UTILITY MENU (CITY/STATE / PASSWORD CHANGE)  ***
  1488. '
  1489. * REPLACING old line(s) by new
  1490. * ------[ first line different ]------
  1491. 5110 CALL PersInfo                                                   ' PI174/RM08059301
  1492.      IF ZSubParm < 0 THEN GOTO 10595                                 ' PI174/RM08059301
  1493.      RETURN                                                          ' PI174/RM08059301
  1494. '
  1495. ' ****  SEARCH "PASSWORDS" FILE FOR TEMPORARY PASSWORDS  ***
  1496. '
  1497. * DELETING old line(s)
  1498. 5120
  1499. 5125
  1500. 5126
  1501. 5129
  1502. 5130
  1503. 5131
  1504. * REPLACING old line(s) by new
  1505. 5280 CALL BreakFileName (ZActiveMsgFile$,UserDrvPath$,ZWasDF$,ZWasY$,ZTrue)
  1506.      WasX$ = UserDrvPath$ + _
  1507.              ZConfName$ + _
  1508.              "U.DEF"
  1509.      CALL FindIt (WasX$)
  1510.      IF NOT ZOK THEN _
  1511. * ------[ first line different ]------
  1512.         CALL BreakFileName (ZActiveUserFile$,UserDrvPath$,ZWasDF$,ZWasY$,ZTrue) : _ ' KG040602
  1513.         WasX$ = UserDrvPath$ + _
  1514.                 ZConfName$ + _
  1515.                 "U.DEF"
  1516.      RETURN
  1517. '
  1518. ' ****  J - COMMAND FROM MAIN MENU (JOIN CONFERENCE)  ***
  1519. '
  1520. * DELETING old line(s)
  1521. 5290
  1522. 5292
  1523. 5293
  1524. 5294
  1525. 5296
  1526. * INSERTING new line(s)
  1527. 5299 IF ZMarkedFiles$ <> "" THEN _                                   ' RM01179401
  1528.         GOSUB 4000                                                   ' RM01179401
  1529.      ZJParm = 1                                                      ' JC174/RM08119301
  1530. * REPLACING old line(s) by new
  1531. * ------[ first line different ]------
  1532. 5300 CALL JoinConference (Found)                                     ' JC174/RM08109301/RM09259302
  1533.      IF ZSubBoard AND ZMarkedFiles$ <> "" THEN _                     ' RM01179401
  1534.         ZMarkedFiles$ = ""                                           ' RM01179401
  1535. * REPLACING old line(s) by new
  1536. * ------[ first line different ]------
  1537. 5301 IF ZJParm = 6 THEN _                                            ' JC174/RM08119301
  1538.         ZJParm = 0 : _                                               ' JC174/RM08119301
  1539.         RETURN 10595                                                 ' JC174/RM08119301
  1540. * INSERTING new line(s)
  1541. 5302 IF ZJParm = 1 THEN _                                            ' JC174/RM08119301
  1542.         ZJParm = 0 : _                                               ' JC174/RM08119301
  1543.         GOTO 202                                                     ' JC174/RM08119301
  1544. 5303 IF ZJParm = 2 THEN _                                            ' JC174/RM08119301
  1545.         ZJParm = 0 : _                                               ' JC174/RM08119301
  1546.         RETURN 13600                                                 ' JC174/RM08119301
  1547. 5304 IF ZJParm = 3 THEN _                                            ' JC174/RM08119301
  1548.         ZJParm = 0 : _                                               ' JC174/RM08119301
  1549.         RETURN 108                                                   ' JC174/RM08119301
  1550. 5305 IF ZJParm = 4 THEN _                                            ' JC174/RM08119301
  1551.         ZJParm = 0 : _                                               ' JC174/RM08119301
  1552.         RETURN 852                                                   ' JC174/RM08119301
  1553. 5306 IF ZJParm = 5 THEN _                                            ' JC174/RM08119301
  1554.         ZJParm = 0 : _                                               ' JC174/RM08119301
  1555.         RETURN 1205                                                  ' JC174/RM08119301
  1556.      ZJParm = 0                                                      ' JC174/RM09019301
  1557.      RETURN                                                          ' JC174/RM08119301
  1558. '
  1559. ' *****  OPEN AND SETUP MESSAGE BASE  *****
  1560. '
  1561. * DELETING old line(s)
  1562. 5323
  1563. 5324
  1564. 5325
  1565. 5327
  1566. 5328
  1567. 5330
  1568. 5335
  1569. 5340
  1570. 5341
  1571. 5343
  1572. * REPLACING old line(s) by new
  1573. 5344 CALL OpenMsg
  1574.      IF ZErrCode = 64 THEN _
  1575.         ZErrCode = 0 : _
  1576. * ------[ first line different ]------
  1577.         ZJParm = 4 : _                                               ' RM08119301
  1578.         GOSUB 5300                                                   ' JC174/RM08119301
  1579.      FIELD 1, 128 AS ZMsgRec$
  1580.      RETURN
  1581. '
  1582. ' *****  UPDATE CURRENT USERS RECORD  ****
  1583. '
  1584. * DELETING old line(s)
  1585. 5345
  1586. 5347
  1587. 5348
  1588. 5350
  1589. 5360
  1590. 5375
  1591. * REPLACING old line(s) by new
  1592. 5380 IF ZUserFileIndex < 1 THEN _
  1593.         RETURN
  1594.      IF ZAdjustedSecurity AND NOT ZSysop THEN _
  1595.         LSET ZSecLevel$ = MKI$(ZUserSecLevel) : _
  1596.         ZUserSecSave = ZUserSecLevel
  1597. * ------[ first line different ]------
  1598.      IF SubBoard THEN _                                              ' DGSALIAS
  1599.         ZActiveUserName$ = ZOrigUserNameDGS$ : _                     ' DGSALIAS
  1600.         ZFirstName$ = OrigFirstName$                                 ' DGSALIAS
  1601.      CALL UpdateU (ZFalse)
  1602.      RETURN
  1603. '
  1604. ' *****  R - COMMAND FROM UTILITY MENU (REVIEW PROFILE)  ****
  1605. '
  1606. * DELETING old line(s)
  1607. 5382
  1608. * REPLACING old line(s) by new
  1609. * ------[ first line different ]------
  1610. 5400 CALL ShowUsrProfile                                             ' STAT174
  1611.      RETURN                                                          ' STAT174
  1612. '
  1613. ' *****  B - COMMAND FROM UTILITY MENU (Bank Time)  ****
  1614. '
  1615. * DELETING old line(s)
  1616. 5410
  1617. * REPLACING old line(s) by new
  1618. * ------[ first line different ]------
  1619. 5800 CALL ConfMail (ZMailCheckConfirm,ZLinkNew,ZLinkPers)            ' RM02079401
  1620.      ZConfMailJoin = (ZHomeConf$ <> "")                              ' RM02079401
  1621.      RETURN
  1622. '
  1623. ' *  C - COMMAND FROM UTILITY MENU (CLOCK - TIME ON SYSTEM)
  1624. '
  1625. * DELETING old line(s)
  1626. 8000
  1627. 8020
  1628. 8030
  1629. 8040
  1630. 8050
  1631. 8076
  1632. 8077
  1633. 8080
  1634. 9000
  1635. 9050
  1636. 9060
  1637. 9070
  1638. 9085
  1639. 9090
  1640. * REPLACING old line(s) by new
  1641. 9450 IF LOF(5) < 1 THEN _
  1642.         ZWasDF$ = ZActiveUserFile$ : _
  1643.         RETURN 13600
  1644.      FIELD 5,31 AS ZUserName$, _
  1645.              15 AS ZPswd$, _
  1646.               2 AS ZSecLevel$, _
  1647.              14 AS ZUserOption$,  _
  1648.              24 AS ZCityState$, _
  1649. * ------[ first line different ]------
  1650.               1 AS MachineType$, _                                   ' DROP174
  1651.               1 AS ZDropTimes$, _                                    ' DROP174
  1652.               1 AS ZBankTime$,_
  1653.               4 AS ZTodayDl$, _
  1654.               4 AS ZTodayBytes$, _
  1655.               4 AS ZDlBytes$, _
  1656.               4 AS ZULBytes$, _
  1657.              14 AS ZLastDateTimeOn$, _
  1658.               3 AS ZListNewDate$, _
  1659.               2 AS ZUserDnlds$, _
  1660.               2 AS ZUserUplds$, _
  1661.               2 AS ZElapsedTime$
  1662.      FIELD 5,128 AS ZUserRecord$
  1663.      RETURN
  1664. '
  1665. ' * GET USER DEFAULTS
  1666. '
  1667. * REPLACING old line(s) by new
  1668. * ------[ first line different ]------
  1669. 9701 CALL SubMenu ("Read what bulletin(s), L)ist, S)ince, N)ews ([ENTER] = Quit)", _ ' FM/RM03179401
  1670.                    WasA1$, ZBulletinPrefix$,"",ReturnOn$,_
  1671.                    ZFalse,ZFalse,ZFalse,"",WasX,ZTrue)
  1672.      IF ZWasQ = 0 THEN _
  1673.         RETURN
  1674.      CALL CheckCarrier
  1675.      IF ZSubParm = -1 THEN _
  1676.         RETURN 10595
  1677.      IF (ZWasZ$ = "*" OR ZWasZ$ = "S") THEN _
  1678.         ZPrevPrefix$ = "" : _
  1679.         GOTO 9760
  1680.      ZStopInterrupts = ZFalse
  1681.      IF ZWasZ$ = "N" THEN _
  1682.         ZJParm = 6 : _                                               ' JC174/RM08119301
  1683.         GOSUB 5300 : _                                               ' JC174/RM08119301
  1684.         IF WasZ <> 0 THEN _
  1685.            CALL QuickTPut1 ("No NEWS available") : _
  1686.            GOTO 9701 _
  1687.         ELSE GOTO 9703
  1688.      CALL BufFile (ZFileName$,ZAnsIndex)
  1689. * REPLACING old line(s) by new
  1690. * ------[ first line different ]------
  1691. 9750 CALL CheckNewBul (ZBoardCheckDate$,NumNewBullets,NewBullets$)   ' RM08119301
  1692.      RETURN
  1693. * REPLACING old line(s) by new
  1694. 9760 ' ****  [entry when want review plus chance to read] *********
  1695.      GOSUB 9750
  1696.      IF NumNewBullets > 0 THEN _
  1697.         ZLastIndex = NumNewBullets + 1 : _
  1698. * ------[ first line different ]------
  1699.         ZOutTxt$ = ZFG6$ + "Read what new bulletins (" + ZFG7$ + "A" + _
  1700.              ZFG6$ + ")ll,[Q]" + ZFG6$ + "uit)" + ZEmphasizeOff$ : _ ' RM051901/KG012401
  1701.         GOSUB 12999 : _
  1702.         CALL AllCaps (ZUserIn$) : _                                  ' KG013002
  1703.         IF ZWasQ > 0 AND ZUserIn$ <> "Q" THEN _                      ' KG012401
  1704.            GOSUB 9761 : _                                            ' KG012401
  1705.            ZAnsIndex = 0 : _
  1706.            ZLastIndex = NumNewBullets : _
  1707.            GOTO 9700
  1708.      ZLastIndex = 0
  1709.      IF ZAnsIndex < 1 THEN _
  1710.         RETURN
  1711.      GOTO 9701
  1712. * INSERTING new line(s)
  1713. 9761 IF ZUserIn$ <> "A" THEN _                                       ' KG012401
  1714.         NumNewBullets = ZWasQ _                                      ' KG012401
  1715.      ELSE _                                                          ' KG012401
  1716.         FOR Temp = 1 TO NumNewBullets : _                            ' KG012401
  1717.            ZUserIn$(Temp) = ZOutTxt$(Temp+1) : _                     ' KG012401
  1718.         NEXT                                                         ' KG012401
  1719.      RETURN                                                          ' KG012401
  1720. '
  1721. ' *  W - COMMAND FROM MAIN MENU (WHO'S ON THE OTHER NODES)
  1722. '
  1723. * REPLACING old line(s) by new
  1724. * ------[ first line different ]------
  1725. 9800 IF ZMaxNodes > 1 AND ZAllowInternodeChat THEN _                 ' RCHAT401/RM09119302/RM11199301
  1726.         CALL PageEm (ZNodeRecIndex - 1, ZMaxNodes) : _               ' RCHAT401
  1727.         CLOSE 10 _                                                   ' RCHAT401
  1728.      ELSE _                                                          ' RCHAT401/RM09119302
  1729.         CALL WhosOn (ZMaxNodes)                                      ' RCHAT401/RM09119302
  1730.      GOSUB 5344
  1731.      RETURN
  1732. '
  1733. ' *  1 - COMMAND FROM SYSOP MENU (DISPLAY COMMENTS)
  1734. '
  1735. * REPLACING old line(s) by new
  1736. * ------[ first line different ]------
  1737. 10090 CALL DisplayUser                                               ' DU174/RM08049301
  1738.       IF ZSubParm < 0 THEN _                                         ' DU174/RM08049301
  1739.          RETURN 10595                                                ' DU174/RM08049301
  1740.       RETURN                                                         ' DU174/RM08049301
  1741. '
  1742. ' *  3 - COMMAND FROM SYSOP MENU (RECOVER MESSAGES)
  1743. '
  1744. * DELETING old line(s)
  1745. 10093
  1746. 10096
  1747. 10097
  1748. 10098
  1749. 10099
  1750. * REPLACING old line(s) by new
  1751. 10391 CALL ChangeInt (ZFalse,"Recover Msg #",0,1,9999)
  1752.       IF ZWasQ = 0 THEN _
  1753.          RETURN
  1754.       MsgToRecover = ZTestedIntValue
  1755.       GOSUB 5344
  1756.       ActionFlag = ZFalse
  1757. * ------[ first line different ]------
  1758.       CALL RecoverMsg (MsgToRecover,ActionFlag)                      ' RM08119301
  1759.       MsgRecovered = MsgRecovered OR ActionFlag
  1760.       GOTO 10391
  1761. * REPLACING old line(s) by new
  1762. 10553 CALL UpdtCalr ("Time limit exceeded",1)
  1763.       CALL QuickTPut1 ("You have no time left")
  1764. * ------[ first line different ]------
  1765.       GOTO 10562                                                     ' LOFF174
  1766. '
  1767. ' *  Q - COMMAND FROM GLOBAL FUNCTIONS
  1768. '
  1769. * REPLACING old line(s) by new
  1770. 10560 GOSUB 41000                                                    ' LOFF174
  1771. * INSERTING new line(s)
  1772. 10562 GOSUB 9100                                                     ' LOFF174
  1773. 10563 IF NOT ZSysOp THEN _                                           ' XMSG
  1774.          ZFileName$ = ZHelpPath$ + "XMSG" + _                        ' XMSG
  1775.              UserSecLevel$ + ".HLP" : _                              ' XMSG
  1776.          GOSUB 43025 : _                                             ' XMSG/RM08059307
  1777.          IF ZOK THEN _                                               ' XMSG/RM041101
  1778.             CALL Delaytime (4)                                       ' XMSG/RM08059307
  1779.       IF ZUserSecLevel < ZSecExemptFromEpilog THEN _                 ' LOFF174/XMSG
  1780.            ZFileName$ = ZEpilog$ : _
  1781.            CALL QuestAns (2, WasX)                                   ' QA174/RM08059308
  1782.       IF ZLocalUserMode OR NOT ZLocalUser THEN _
  1783.          CALL UpdtCalr ("Logged off",1)
  1784.       CALL Muzak (4)
  1785.       GOTO 10595
  1786. * REPLACING old line(s) by new
  1787. * ------[ first line different ]------
  1788. 10570 GOSUB 41000                                                    ' LOFF174
  1789.       IF ZMarkedFiles$ <> "" THEN _                                  ' RM01279401
  1790.          GOSUB 4000                                                  ' RM01279401
  1791.       GetOut = ZFalse                                                ' RM03309401
  1792.       CALL GetLogoff (Wherego)                                       ' LOFF174/RM07249301
  1793.       ON Wherego GOTO 10571,10574,10572,10573                        ' LOFF174/RM07249301
  1794. * INSERTING new line(s)
  1795. 10571 RETURN                                                         ' LOFF174
  1796. 10572 GetOut = ZTrue                                                 ' LOFF174
  1797.       GOTO 1800                                                      ' LOFF174/RM03319401
  1798. 10573 GetOut = ZTrue                                                 ' LOFF174
  1799.       GOTO 10560                                                     ' LOFF174
  1800. 10574 GOSUB 5500                                                     ' LOFF174
  1801.       GOTO 10570                                                     ' LOFF174/RM111501
  1802. * REPLACING old line(s) by new
  1803. 10595 CALL GetTime
  1804.       GOSUB 13700
  1805. * ------[ first line different ]------
  1806.       IF NOT GetOut AND NOT ZFileSysParm = 6 AND NOT Temp = 12 THEN  ' RM03309401
  1807.          ZSubParm = 0
  1808.          CALL Carrier
  1809.          IF ZSubParm = -1 THEN _
  1810.             GOTO 10597
  1811.       END IF                                                         ' RM03309401
  1812.       IF ZConfName$ = ZOrigMsgName$ THEN _                           ' RM08119301
  1813.          GetOut = ZTrue
  1814.       IF (ZSubBoard AND (NOT GetOut) AND (NOT ZSleepDisconnect) AND (NOT ZAutoLogoffReq)) THEN _ ' RM09209301
  1815.          GOSUB 5380 : _
  1816.          ZHomeConf$ = "M" : _
  1817.          CALL QuickTPut1 ("Time limit exceeded in " + ZConfName$) : _
  1818.          ZSubBoard = ZFalse : _
  1819.          GOTO 1205
  1820. * REPLACING old line(s) by new
  1821. 10698 CALL Muzak (5)
  1822. * ------[ first line different ]------
  1823.       IF ZFunctionKey > 21 THEN _                                    ' RM12159301
  1824.          GOTO 13545
  1825.       ZOutTxt$ = "Access denied!"
  1826.       GOSUB 12976
  1827.       CALL DelayTime (8 + ZBPS)
  1828.       GOTO 13545
  1829. '
  1830. ' *  M - COMMAND FROM UTILITY MENU (CHANGE MARGINS)
  1831. '
  1832. * REPLACING old line(s) by new
  1833. 10925 UtilMarginChange = ZTrue
  1834. * ------[ first line different ]------
  1835.       MParm = 13                                                     ' MS174/RM08139301
  1836.       GOSUB 2001                                                     ' MS174/RM08139301
  1837.       UtilMarginChange = ZFalse
  1838.       RETURN
  1839. '
  1840. ' *  7 - COMMAND FROM SYSOP MENU (EXIT TO DOS)
  1841. '
  1842. * REPLACING old line(s) by new
  1843. 10974 WasA1$ = ZMenu$(5)
  1844.       CALL Talk (5,ZOutTxt$)
  1845.       ZStackC = ZTrue
  1846.       CALL SubMenu ("Open which door, L)ist" + ZPressEnterExpert$, _
  1847. * ------[ first line different ]------
  1848.                     WasA1$,"",".BAT","", _
  1849.                     ZTrue,ZFalse,ZFalse,"",InMenu,ZFalse)
  1850.       IF ZWasQ = 0 THEN _
  1851.          RETURN
  1852.       IF ZSubParm = -1 THEN _
  1853.          RETURN 10595
  1854. * REPLACING old line(s) by new
  1855. 10986 ZWasZ$ = ZFileName$
  1856.       CALL DoorExit (NOT InMenu)
  1857.       GOTO 10974
  1858. * ------[ first line different ]------
  1859. * REPLACING old line(s) by new
  1860. * ------[ first line different ]------
  1861. 11000 CALL UserMaint (EditFromRead, TempHashValue$, ReturnRead)      ' SU174/RM08079303/RM08199302
  1862.       IF ZSubParm < 0 THEN _                                         ' SU174/RM08079303
  1863.          RETURN 10595                                                ' SU174/RM08079303
  1864.       IF ReturnRead THEN _                                           ' SU174/RM08079303
  1865.          ReturnRead = ZFalse : _                                     ' SU174/RM08079303
  1866.          MParm = 14 : _                                              ' MS174/RM08139301
  1867.          GOTO 2001                                                   ' MS174/4M08139301
  1868.       RETURN                                                         ' SU174/RM08079303
  1869. '
  1870. ' *  GET USER First AND Last NAMES
  1871. '
  1872. * DELETING old line(s)
  1873. 11001
  1874. 11003
  1875. 11005
  1876. 11010
  1877. 11015
  1878. 11107
  1879. 11110
  1880. 11115
  1881. 11125
  1882. 11127
  1883. 11130
  1884. 11160
  1885. 11185
  1886. 11190
  1887. 11220
  1888. 11290
  1889. 11310
  1890. 11311
  1891. 11320
  1892. 11325
  1893. 11330
  1894. 11340
  1895. 11341
  1896. 11342
  1897. 11345
  1898. 11380
  1899. 11390
  1900. 11395
  1901. 11400
  1902. 11420
  1903. 11423
  1904. 11450
  1905. 11455
  1906. 11490
  1907. 11520
  1908. 12300
  1909. 12310
  1910. 12311
  1911. 12320
  1912. 12330
  1913. * REPLACING old line(s) by new
  1914. 12595 CALL QuickTPut1 ("Name not valid here. Call recorded")
  1915.       CALL UpdtCalr ("Name violation: "+ZActiveUserName$,1)
  1916.       GOTO 10621
  1917. '
  1918. * ------[ first line different ]------
  1919. ' *  AUGMENT USER COUNT, LOCK 4 REC BLOCK IN USER, UNLOCK FILES
  1920. '
  1921. * DELETING old line(s)
  1922. 12598
  1923. 12600
  1924. 12605
  1925. * REPLACING old line(s) by new
  1926. * ------[ first line different ]------
  1927. 12630 CALL GetMessageHdr                                             ' GM174/RM08059303
  1928.       ZCurUserCount = ZCurUserCount + (ZWasSL = 0) * ZRememberNewUsers ' RM08119301
  1929. * REPLACING old line(s) by new
  1930. * ------[ first line different ]------
  1931. 12632 CALL UpdtMessageHdr                                            ' UM174/RM08059305           ' UM174/RM08059305
  1932.       GOSUB 12985
  1933.       IF ZRememberNewUsers THEN _
  1934.          GOSUB 12989
  1935.       GOSUB 12990
  1936.       RETURN
  1937. '
  1938. ' *  INFORM USER OF WHAT CONFERENCE USER FILE HE IS VIEWING
  1939. '
  1940. * REPLACING old line(s) by new
  1941. 12840 IF ZStartHash = 1 THEN _
  1942. * ------[ first line different ]------
  1943.          ZHashValue$ = ZActiveUserName$ : _                          ' RM08139301
  1944.          RETURN
  1945.       WasX$ = WasA1$ + _
  1946.            ZPromptHash$
  1947.       CALL UntilRight (WasX$,ZHashValue$,2,ZLenHash)                 ' RM08139301
  1948.       RETURN
  1949. '
  1950. ' *  GET FIELD TO INDIVIDUATE ONE USER FROM ANOTHER (NAME FIELD IS DEFAULT)
  1951. '
  1952. * REPLACING old line(s) by new
  1953. * ------[ first line different ]------
  1954. 12930 IF ZRIPTest THEN _                                             ' RM09089301
  1955.          ZTurboKey = ZFalse _                                        ' RM09089301
  1956.       ELSE _                                                         ' RM09089301
  1957.          ZTurboKey = -ZTurboKeyUser                                  ' RM09089301
  1958. * REPLACING old line(s) by new
  1959. 12960 ZOutTxt$ = WasA1$ + _
  1960.                  ZUserLocation$
  1961.       IF NOT ZNewUser THEN _
  1962.          ZOutTxt$ = ZOutTxt$ + ZPressEnter$
  1963.       ZParseOff = ZTrue
  1964.       GOSUB 12932
  1965.       IF ZWasQ = 0 OR ZUserIn$ = SPACE$(LEN(ZUserIn$)) THEN _
  1966.          IF ZNewUser THEN _
  1967.             GOTO 12960 _
  1968.          ELSE RETURN
  1969.       CALL AllCaps (ZUserIn$)
  1970.       CALL QuickTPut1 ("Set to "+ZUserIn$)
  1971.       LSET ZCityState$ = ZUserIn$
  1972.       ZWasCI$ = ZUserIn$
  1973.       RETURN
  1974. '
  1975. * ------[ first line different ]------
  1976. ' * CALLS INTO SEPARATELY COMPILED SUBROUTINES (RBBS-SUB)
  1977. '
  1978. '
  1979. ' * STANDARD ENTRY FOR RBBS-PC'S COMMON TERMINAL OUTPUT ROUTINE
  1980. '
  1981. * DELETING old line(s)
  1982. 12962
  1983. 12963
  1984. 12965
  1985. 12966
  1986. 12967
  1987. 12968
  1988. 12969
  1989. 12970
  1990. 12971
  1991. 12972
  1992. * DELETING old line(s)
  1993. 12992
  1994. 12993
  1995. * REPLACING old line(s) by new
  1996. 13000 IF ZDebug THEN _
  1997.          ZOutTxt$ = "DEBUG Trap ERL=" + _
  1998.               STR$(ZWasEL) + _
  1999.               " ERR=" + _
  2000.               STR$(ZErrCode) : _
  2001.               CALL Printit(ZOutTxt$) : _
  2002.               WasD$ = ZOutTxt$ : _
  2003.               GOSUB 1315
  2004.       IF ZWasEL = 1905 AND ZErrCode = 63 THEN _
  2005.          CLOSE 1 : _
  2006.          KILL ZActiveMessageFile$ : _
  2007. * ------[ first line different ]------
  2008.          ZJParm = 4 : _                                              ' JC174/RM08119301
  2009.          GOSUB 5300                                                  ' JC174/RM08119301
  2010.       IF ZWasEL = 4371 AND ZErrCode = 6 THEN _
  2011.          GOTO 1200
  2012.       IF ZWasEL =  4740 THEN _
  2013.          GOTO 4745
  2014. * REPLACING old line(s) by new
  2015. 13549 GOSUB 13700
  2016. * ------[ first line different ]------
  2017.       CALL LPrnt (ZColorReset$,1)                                    ' RM03119401/RM03179401/RM03269401
  2018.       IF ZLocalUser OR _
  2019.          ZModemOffHook THEN _
  2020.          GOTO 13555
  2021.       IF NOT ZFossil THEN _
  2022.          OUT ZModemCntlReg,INP(ZModemCntlReg) AND 254 : _
  2023.          CALL DelayTime (ZDTRDropDelay) : _
  2024.          OUT ZModemCntlReg,INP(ZModemCntlReg) OR 1 : _
  2025.          GOTO 13553
  2026. * REPLACING old line(s) by new
  2027. 13555 ZActiveMessageFile$ = ZOrigMsgFile$
  2028.       GOSUB 12986
  2029.       GOSUB 5344
  2030.       GET 1,ZNodeRecIndex
  2031.       MID$(ZMsgRec$,57,1) = "I"
  2032.       MID$(ZMsgRec$,40,2) = " 0"
  2033.       MID$(ZMsgRec$,72,2) = " 0"
  2034.       IF MID$(ZMsgRec$,101,2) = ZCarriageReturn$+ZCarriageReturn$ THEN _
  2035.          MID$(ZMsgRec$,101,2) = " 0"
  2036.       PUT 1,ZNodeRecIndex
  2037.       GOSUB 12985
  2038. * ------[ first line different ]------
  2039.       CLOSE
  2040. '     CLOSE 1,2,4,5                                                  ' RM03179401
  2041.       IF NOT ZFossil THEN _
  2042.          CLOSE 3
  2043.       IF ZRecycleToDos THEN _
  2044.          GOTO 203
  2045.       GOSUB 45020                                                    ' RM112201
  2046.       RUN 100                                                        ' RM092301/GS02129401
  2047. * REPLACING old line(s) by new
  2048. * ------[ first line different ]------
  2049. 20205 ZFileSysParm = 0                                               ' RM030201
  2050.       RETURN
  2051. * REPLACING old line(s) by new
  2052. 20225 ZSysopComment = ZTrue
  2053.       ZMaxMsgLines = ZMaxExtendedLines
  2054. * ------[ first line different ]------
  2055.       MParm = 12                                                     ' MS174/RM08139301
  2056.       GOSUB 2001                                                     ' MS174/RM08139301
  2057.       GOTO 20190
  2058. * REPLACING old line(s) by new
  2059. 20235 RETURN 10595
  2060. '
  2061. * ------[ first line different ]------
  2062. ' * A - COMMAND FROM Library MENU (ARCHIVE A SELECTED Library DISK)
  2063. '
  2064. * DELETING old line(s)
  2065. 23000
  2066. 23100
  2067. 24000
  2068. * REPLACING old line(s) by new
  2069. * ------[ first line different ]------
  2070. 30000 IF NOT ZCDRom THEN _                                           ' RM03259401
  2071.          ZSubParm = 4 : _                                            ' RM03259401
  2072.          CALL Library
  2073.       IF ZSubParm = -1 THEN _
  2074.          RETURN 10595
  2075.       RETURN
  2076. '
  2077. ' * C - COMMAND FROM Library MENU (CHANGE TO A Library DISK)
  2078. '
  2079. * REPLACING old line(s) by new
  2080. * ------[ first line different ]------
  2081. 30100 IF ZCDRom THEN                                                 ' RM03259401
  2082.          CALL SelectCD (2)                                           ' RM03269401
  2083.          IF ZAbort THEN _                                            ' RM03269401
  2084.             ZAbort = ZFalse : _                                      ' RM03269401
  2085.             RETURN                                                   ' RM03269401
  2086.          GOSUB 1298                                                  ' RM03279401
  2087.       ELSE                                                           ' RM03259401
  2088.          ZSubParm = 2                                                ' RM03259401
  2089.          CALL Library
  2090.       END IF                                                         ' RM03259401
  2091.       IF ZSubParm = -1 THEN _                                        ' RM03269401
  2092.          RETURN 10595                                                ' RM03269401
  2093.       RETURN
  2094. '
  2095. ' * D - COMMAND FROM Library MENU (DOWNLOAD A DISK/FILE FROM Library)
  2096. '
  2097. * REPLACING old line(s) by new
  2098. 30200 IF ZTimeLock AND 2 AND NOT ZHasPrivDoor THEN _
  2099.          CALL TimeLock : _
  2100.          IF NOT ZOK THEN _
  2101.             RETURN
  2102. * ------[ first line different ]------
  2103.       IF ZLibDiskChar$ = "0000" AND NOT ZCDRom THEN _                ' RM03259401
  2104.          CALL QuickTPut1 ("You must select a Library disk first!") : _
  2105.          RETURN
  2106.       IF NOT ZCDRom THEN _                                           ' RM03259401
  2107.          ZSubParm = 3 : _                                            ' RM03259401
  2108.          CALL Library
  2109.       GOTO 20160
  2110. '
  2111. ' * CALCULATE TIME REMAINING FOR USER
  2112. '
  2113. * REPLACING old line(s) by new
  2114. 42700 CALL SkipLine (1)
  2115.       CALL QuickTPut1 ("TurboKey: act on 1 char command without waiting for [ENTER]")
  2116.       ZOutTxt$ = "Use TurboKey (Y,[N])"
  2117.       GOSUB 12999
  2118.       ZTurboKeyUser = NOT ZYes
  2119.       CALL Toggle (8)
  2120.       RETURN
  2121. * ------[ first line different ]------
  2122. '                                                                    ' RCHAT401/RM091701
  2123. ' * CHAT SET AT LOGON                                                ' RCHAT401/RM091701
  2124. '                                                                    ' RCHAT401/RM091701
  2125. * INSERTING new line(s)
  2126. 42750 IF ZTurboLogon THEN _                                          ' DLB101393
  2127.          RETURN                                                      ' DLB101393
  2128.       ZOutTxt$ = "Are you available for Internode Chatting (Y/[N])"  ' RCHAT401/RM091701
  2129.       GOSUB 12930                                                    ' RCHAT401/RM110301
  2130.       ZAvailableForChat = NOT ZYes                                   ' RCHAT401/RM091701
  2131.       CALL Toggle (11)                                               ' RCHAT401/RM091701
  2132.       RETURN                                                         ' RCHAT401/RM091701
  2133. '
  2134. ' *  F - COMMAND FROM UTILITY MENU (FILE Transfer DEFALUT MODE)
  2135. ' *  FILE Transfer DEFAULT SET FOR NEW USERS
  2136. '
  2137. * REPLACING old line(s) by new
  2138. * ------[ first line different ]------
  2139. 42850 CALL EchoSet                                                   ' ES174/RM08069301
  2140.       IF ZSubParm < 0 THEN RETURN 10595                              ' ES174/RM08069301
  2141.       RETURN                                                         ' ES174/RM08069301
  2142. '
  2143. ' *  G - COMMAND FROM UTILITY MENU (GRAPHICS WANTED)
  2144. ' *  Graphic MENUS SELECTION SET FOR NEW USERS
  2145. '
  2146. * DELETING old line(s)
  2147. 42851
  2148. 42852
  2149. 43000
  2150. * INSERTING new line(s)
  2151. 43001 CALL GraphicsSet                                               ' GR174/RM08039303
  2152.       IF ZSubParm < 0 THEN _                                         ' GR174/RM08039303
  2153.          RETURN 10595                                                ' GR174/RM08039303
  2154.       RETURN                                                         ' GR174/RM08039303
  2155. * DELETING old line(s)
  2156. 43005
  2157. 43020
  2158. 43022
  2159. * REPLACING old line(s) by new
  2160. 45010 ZHidden = ZTrue
  2161.       GOSUB 12995
  2162.       ZHidden = ZFalse
  2163.       RETURN
  2164. * ------[ first line different ]------
  2165. '                                                                    ' RM122201
  2166. ' * REDIM ARRAYS FOR INTERNAL RECYCLE DUE TO ANSI EDITOR             ' RM122201
  2167. '                                                                    ' RM122201
  2168. * INSERTING new line(s)
  2169. 45020 WasJ = 60                                                      ' RM112201
  2170.       ZMsgDim = ZMaxMsgLinesDef                                      ' RM112201/RM020901/RM10159302/RM11279301/RM03119401
  2171.       REDIM ZWorkAra$(WasJ)                                          ' RM112201
  2172.       REDIM ZOutTxt$(WasJ)                                           ' RM112201/RM03119401
  2173.       REDIM ZUserIn$(ZMsgDim)                                        ' RM112201
  2174.       RETURN                                                         ' RM112201
  2175.