home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / BBS / RBBS_PC / AED243A.ZIP / R-PCUGLY.MRG < prev    next >
Encoding:
Text File  |  1990-06-10  |  19.4 KB  |  583 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBS-PC.BAS to produce R-PCUGLY.BAS
  3. * RBBS-PC.BAS:  Date 5-26-1990  Size 156425 bytes
  4. * ------------[ Created 06-10-1990 01:50:06 ]------------
  5. * REPLACING old line(s) by new
  6. 345 LOCATE 24,1
  7.     CALL AMorPM
  8.     ZUserLogonTime! = TIMER
  9.     ZTimeLoggedOn$ = TIME$
  10.     ZLinesPrinted = 0
  11.     ZExpertUserDef = ZExpertUser
  12.     ZExpertUser = ZFalse
  13.     CALL SetExpert
  14.     ZOutTxt$ = ""
  15.     IF NodesInSystem > 1 THEN _
  16. * ------[ first line different ]------
  17.        ZOutTxt$ = " - Node " + ZNodeID$
  18.     IF ZReliableMode THEN _
  19.        ZOutTxt$ = ZOutTxt$ + " (Reliable Connect)"
  20.     IF ZRBBSName$ <> "" THEN _
  21.        CALL QuickTPut1 ("Welcome to " + ZRBBSName$ + ZOutTxt$)
  22.     ZTestParity = ZTrue
  23.     ZStopInterrupts = ZTrue
  24.     ZFileName$ = ZPreLog$
  25.     CALL FlushCom (WasX$)
  26.     ZCommPortStack$ = ""
  27. * REPLACING old line(s) by new
  28. * ------[ first line different ]------
  29. 754 CALL QuickTPut1 ("Guest privileges granted.  Re-register on future calls")
  30.     ZUserSecSave = ZUserSecLevel
  31.     GOTO 832
  32. * REPLACING old line(s) by new
  33. 755 IF ZPrivateDoor THEN _
  34.        ZUserIn$ = ZPswd$ : _
  35.        ZWasZ$ = ZUserIn$ : _
  36.        RETURN
  37.     GOSUB 12800
  38. * ------[ first line different ]------
  39.     ZOutTxt$ = "Re-Enter password for Verification"
  40.     GOSUB 45010
  41.     SWAP ZWasZ$,ZUserIn$
  42.     CALL AllCaps (ZWasZ$)
  43.     IF ZUserIn$ <> ZWasZ$ THEN _
  44.        CALL QuickTPut1 ("Passwords Don't Match!") : _
  45.        GOTO 755
  46.     RETURN
  47. '
  48. ' ***  R - COMMAND FROM NEWUSER ROUTINE - REGISTER   **
  49. '
  50. * REPLACING old line(s) by new
  51. 760 GOSUB 755
  52.     CALL AllCaps (ZWasZ$)
  53.     LSET ZPswd$ = ZWasZ$
  54. * ------[ first line different ]------
  55. '   CALL QuickTPut1 ("Please REMEMBER your password")
  56.     ZUserTextColor = 37
  57.     ZTempSecLevel = ZUserSecLevel
  58.     CALL Protocol
  59.     ZUserXferDefault$ = "N"
  60.     ZProtoPrompt$ = "None"
  61.     IF ZNewUserSetsDefaults THEN _
  62.        ZBypassTimeCheck = ZTrue : _
  63.        GOSUB 43000 : _
  64.        ZBypassTimeCheck = ZFalse : _
  65.        CALL Graphic (ZUserGraphicDefault$,ZFileName$) : _
  66.        GOSUB 42805 : _
  67.        GOSUB 42700 _
  68.     ELSE ZUpperCase = ZFalse : _
  69.          ZHiLiteOff = ZTrue : _
  70.          CALL SetGraphic (0,ZUserGraphicDefault$) : _
  71.          ZNulls = ZFalse
  72.     ZPageLength = ZPageLengthDef
  73.     GOSUB 12900
  74.     GOSUB 5135
  75.     CALL DefaultU
  76. * REPLACING old line(s) by new
  77. 800 CALL DoorReturn
  78.     IF ZAdjustedSecurity THEN _
  79.        GOSUB 5135
  80.     IF ZOrigCnfg$ = ZCurDef$ THEN _
  81.        ZMainUserFileIndex = ZUserFileIndex : _
  82.        ZOrigSec = ZUserSecLevel : _
  83.        ZUserSecSave = ZUserSecLevel : _
  84.        ZOrigUserName$ = ZActiveUserName$
  85.     ZTimesLoggedOn = CVI(MID$(ZUserOption$,1,2)) - _
  86.        ((ZOrigCnfg$ <> ZCurDef$ OR NOT SubBoard) AND _
  87.         (NOT ZPrivateDoor) AND (NOT ZExitToDoors))
  88.     GOSUB 9500
  89.     IF (NOT ZExitToDoors) AND (NOT SubBoard) THEN _
  90.        CALL UpdtCalr (ZActiveUserName$ + " from " + ZWasCI$ + _
  91.                  " Lvl" + STR$(ZUserSecLevel) + " " + TIME$,2)
  92.     PrevLastOn$ = ZLastDateTimeOn$
  93.     IF ZLocalUser THEN _
  94.        ZTalkToModemAt$ = "9600" : _
  95.        ZBaudParity$ = "9600 BAUD,N,8,1" : _
  96.        ZModemInitBaud$ = "9600" : _
  97.        ZSnoop = ZTrue : _
  98.        ZLineFeeds = ZTrue
  99.     CALL SetCrLf
  100.     CALL SetPrompt
  101.     CALL XferType (2,ZTrue)
  102.     IF NOT SubBoard THEN _
  103.        BoardCheckDate$ = PrevLastOn$
  104.     IF ZPrivateDoor OR SubBoard THEN _
  105.        GOTO 815
  106.     GOSUB 465
  107.     IF (ZEightBit AND _
  108.        ZAutoDownDesired) OR _
  109.        ZAskID THEN _
  110.        CALL TestUser
  111.     CALL QuickTPut1 ("Logging " + ZActiveUserName$)
  112.     CALL Talk (1,ZOutTxt$)
  113. * ------[ first line different ]------
  114.     CALL QuickTPut1 ("RBBS-PC " + ZVersionID$ + " Node " + ZNodeID$ + _
  115.                 ", Operating at " + ZBaudParity$)
  116.     CALL SkipLine (1)
  117.     Attempts = 0
  118. '
  119. ' *****  NOTIFY CALLER IF ABLE TO "AUTODOWN"  ****
  120. '
  121. '   IF ZEightBit AND ZAutoDownYes THEN _
  122. '      ZOutTxt$ = CHR$(9) + _
  123. '           ZReturnLineFeed$ + _
  124. '           "You may use AUTODOWNLOADing!" : _
  125. '      CALL RingCaller : _
  126. '      CALL DelayTime(4)
  127. * REPLACING old line(s) by new
  128. 850 ZSubParm = 2
  129.     CALL Line25
  130.     CALL SkipLine (1)
  131.     IF TurboLogon THEN _
  132.        ZBulletinSave$ = ZBulletinMenu$ : _
  133.        GOSUB 9750 : _
  134.        GOTO 900
  135.     CALL CountNewFiles (BoardCheckDate$,ZMsgPtr(),LastNew,ZOutTxt$)
  136.     IF ZFMSDirectory$ <> "" THEN _
  137. * ------[ first line different ]------
  138.        CALL QuickTPut1 ("There are" + ZOutTxt$ + STR$(LastNew) + " new file(s) since last call") _
  139.     ELSE GOTO 852
  140.     IF ZNewUser OR LastNew < 1 OR NOT ZNewFilesCheck THEN _
  141.        GOTO 852
  142.     WasL = LEN(ZDnldDrives$)
  143.     SecNum = 19
  144.     IF (NOT ZSkipFilesLogon) AND _
  145.        ZUserSecLevel >= ZOptSec(SecNum) THEN _
  146.           ZOutTxt$ = "Review new files to download ([Y],N)" : _
  147.           GOSUB 12999 : _
  148.           IF NOT ZNo THEN _
  149.              ZLastIndex = 3 : _
  150.              ZAnsIndex = 1 : _
  151.              ZWasQ = 3 : _
  152.              ZUserIn$(2) = MID$(BoardCheckDate$,1,2) + _
  153.                      MID$(BoardCheckDate$,4,2) + _
  154.                      MID$(BoardCheckDate$,7,2) : _
  155.              ZWasY$ = ZUserIn$(3) : _
  156.              CALL BreakFileName (ZFMSDirectory$,DR$,ZWasY$,WasX$,ZFalse) : _
  157.              ZUserIn$(3) = ZWasY$ : _
  158.              TimeLockExempt = ZTrue : _
  159.              GOSUB 20185 : _
  160.              ZLastIndex = 0 : _
  161.              TimeLockExempt = ZFalse
  162. * REPLACING old line(s) by new
  163. 1500 IF ZAnsIndex < ZLastIndex THEN _
  164.         GOTO 1510
  165.      ZOutTxt$ = "A)utodwnld   B)ullet  C)ase     F)ile   H)ilite"
  166.      CALL ColorPrompt (ZOutTxt$)
  167.      CALL QuickTPut1 (ZOutTxt$)
  168.      ZOutTxt$ = "L)ine feeds  N)ulls   T)urboKey X)pert  !)bell"
  169.      CALL ColorPrompt (ZOutTxt$)
  170.      CALL QuickTPut1 (ZOutTxt$)
  171. * ------[ first line different ]------
  172.      ZOutTxt$ = "Toggle which options On/Off?" + ZPressEnter$
  173. * REPLACING old line(s) by new
  174. 1900 GOSUB 5344
  175.      IF ZPrivateDoor THEN _
  176.         ActionFlag = ZTrue
  177.      ZPrevBase$ = ZActiveMessageFile$
  178.      ShowActive = ZFalse
  179.      IF NOT ActionFlag THEN _
  180.         CALL QuickTPut ("Checking messages in " + ConfFileName$,0) : _
  181.         ShowActive = ZTrue _
  182. * ------[ first line different ]------
  183.      ELSE CALL QuickTPut ("Loading Messages",0)
  184.      ZUserIn$ = ""
  185.      WasI = 0
  186.      MsgsFromUser = ZFalse
  187.      ActiveMessages = 0
  188.      MailReported = ActionFlag
  189.      FirstOld = ZTrue
  190.      GOSUB 23000
  191.      MsgRec = FirstMsgRecord
  192.      MaxMsgs = VAL(MID$(ZMsgRec$,89,7))
  193.      IF MaxMsgs > WasMM THEN _
  194.         MaxMsgs = WasMM
  195.      REDIM ZMsgPtr(MaxMsgs,2)
  196.      NumDots = 0
  197. * REPLACING old line(s) by new
  198. 1950 IF NOT MailReported THEN _
  199.         ZOutTxt$ = "Sorry, " + _
  200.              ZFirstName$ + _
  201. * ------[ first line different ]------
  202.              ", No " + ZUserIn$(0) + "Mail for you" : _
  203.         GOSUB 12975
  204.      IF MsgsFromUser = 0 OR NOT ZMsgReminder THEN _
  205.         GOTO 1961
  206.      IF ActionFlag THEN _
  207.         GOTO 1961
  208.      ZOutTxt$ = "Mail you left"
  209.      GOSUB 12976
  210. * REPLACING old line(s) by new
  211. 2065 IF Subject$ <> "" THEN _
  212. * ------[ first line different ]------
  213.         ZOutTxt$ = "Change subject from " + _
  214.              Subject$ + _
  215.              " to" : _
  216.         GOSUB 12932 _
  217.      ELSE ZOutTxt$ = "Subject" + ZPressEnter$ : _
  218.           ZParseOff = ZTrue : _
  219.           GOSUB 12932
  220.      IF LEN(ZUserIn$) > 25 THEN _
  221.         ZOutTxt$ = "25 Char. Max" : _
  222.         GOSUB 12979 : _
  223.         GOTO 2065
  224.      IF ZWasQ = 0 THEN _
  225.         IF Subject$ <> "" THEN _
  226.            RETURN _
  227.         ELSE GOSUB 2435 : _
  228.              IF ZYes THEN _
  229.                 RETURN 5160 _
  230.              ELSE GOTO 2065
  231.      Subject$ = ZUserIn$
  232.      CALL AllCaps (Subject$)
  233.      OrigSubject$ = Subject$
  234.      RETURN
  235. '
  236. ' *****  ENTER MAIN BODY OF MESSAGE  ****
  237. '
  238. * REPLACING old line(s) by new
  239. * ------[ first line different ]------
  240. 2100 GOSUB 2101
  241.      IF NOT ZYes THEN _
  242.         GOTO 2120
  243.      GOTO 2110
  244. * INSERTING new line(s)
  245. 2101 ZYes = ZFalse
  246.      IF (ZUserGraphicDefault$ = "C" OR NOT ZHiLiteOff) AND NOT ZGetExtDesc THEN
  247.         ZOutTxt$ = "Use the ANSI Screen Editor (Y,[N])"
  248.         GOSUB 12930
  249.      END IF
  250.      RETURN
  251. 2110 CALL Ansied (MsgTo$, OrigSubject$, MsgLockLines)
  252.      I = ZSubParm
  253.      CALL SkipLine(1)
  254.      IF I = -2 THEN      ' Sleep Disconnect
  255.         GOTO 10590
  256.      ELSEIF I = -1 THEN  ' Lost Carrier
  257.         GOTO 10595
  258.      ELSEIF I = 1 THEN   ' Save Message
  259.         GOTO 3400
  260.      ELSEIF I = 2 THEN   ' Abort Message
  261.         GOTO 2430
  262.      END IF
  263. 2120 ZOutTxt$ = "Type " + _
  264.           ZMsgHeader$ + _
  265.           STR$(ZMaxMsgLines) + _
  266.           " lines max" + _
  267.           ZPressEnter$
  268.      GOSUB 12975
  269.      GOSUB 3200
  270. * REPLACING old line(s) by new
  271. * ------[ first line different ]------
  272. 2350 IF ZCurPUI$ = "" OR SubBoard THEN
  273.         ZCurPUI$ = ZMainPUI$
  274.      ELSE
  275.         CALL BreakFileName(ZCurPUI$,Path$,Name$,Ext$,ZTrue)
  276.         IF RIGHT$(Name$,1) = "C" OR RIGHT$(Name$,1) = "G" THEN
  277.            Name$ = LEFT$(Name$,LEN(Name$) - 1)
  278.         END IF
  279.         ZCurPUI$ = Path$ + Name$ + Ext$
  280.      END IF
  281.      CALL FindIt (ZCurPUI$)
  282.      ZCustomPUI = ZOK
  283.      IF NOT ZOK THEN _
  284.         ZCurPUI$ = ""
  285.      ZPrevPUI$ = ""
  286.      RETURN
  287. '
  288. ' ****  ABORT MESSAGE   ***
  289. '
  290. * REPLACING old line(s) by new
  291. * ------[ first line different ]------
  292. 2520 ZOutTxt$ = "Up to and including Line # ( ENTER =" + STR$(Mark1) + " )"
  293.      GOSUB 3302
  294.      IF ZWasQ = 0 THEN _
  295.         Mark2 = Mark1 _
  296.      ELSE Mark2 = ZTestedIntValue
  297.      CALL SkipLine(1)
  298.      IF Mark1 > Mark2 THEN _
  299.         ZOutTxt$ = "Beginning exceeds end.  Block NOT deleted!" : _
  300.         GOSUB 12979 : _
  301.         GOTO 2555
  302.      IF Mark1 <= MsgLockLines THEN _
  303.         ZOutTxt$ = "You can NOT delete lines 1 -" + STR$(MsgLockLines) + "!" : _
  304.         GOSUB 12979 : _
  305.         GOTO 2555
  306. * REPLACING old line(s) by new
  307. 3405 GOSUB 4910
  308.      MsgRecSave$ = ZMsgRec$
  309.      MsgCorrected = ZFalse
  310.      GOSUB 23100
  311. * ------[ first line different ]------
  312.      ZOutTxt$ = "Adding new message #" + _
  313.           STR$(HighMsgNumber + 1)
  314.      IF NOT ZLocalUser THEN _
  315.         CALL UpdtCalr (ZOutTxt$,1)
  316.      GOSUB 12978
  317.      ZWasSL = 0
  318.      ZWasN$ = ""
  319.      ZLastIndex = 0
  320.      IF LowMsgNumber = 0 THEN _
  321.         LowMsgNumber = 1 : _
  322.         HighMsgNumber = 1 _
  323.      ELSE HighMsgNumber = HighMsgNumber + 1
  324. * REPLACING old line(s) by new
  325. 4380 ZNonStop = (ZPageLength < 1)
  326.      WasA1$ = "Msg #" + _
  327.            STR$(LowMsgNumber) + _
  328.            "-" + _
  329.            MID$(STR$(ZMsgPtr(ActiveMessages,2)),2) + _
  330.            " (H)elp,S)ince,L)ast"
  331.      IF AddressedToUser OR ToRequested OR FromRequested THEN _
  332.         ZWasY$ = LEFT$("TO",-2*(ToRequested OR AddressedToUser)) + _
  333.              LEFT$("/",-AddressedToUser) + _
  334.              LEFT$("FROM",-4*(FromRequested OR AddressedToUser)) : _
  335. * ------[ first line different ]------
  336.         CALL QuickTPut1 ("Only msgs "+ZWasY$+" you.  Read from what message # (e.g. 1+,4010-)") _
  337.      ELSE WasA1$ = WasA1$ + _
  338.                ",T)o,F)rom,M)ine"
  339.      IF SearchString$ = "" THEN _
  340.         WasA1$ = WasA1$ + _
  341.              ",text" _
  342.      ELSE CALL QuickTPut1 ("Only msgs with text " + SearchString$ + ".  Read from what message # (e.g. 1+,4010-)")
  343. * REPLACING old line(s) by new
  344. * ------[ first line different ]------
  345. 4390 ZOutTxt$ = WasA1$ + ",[Q]uit)"
  346.      ZMacroMin = 99
  347.      ZTurboKey = 0
  348. * REPLACING old line(s) by new
  349. 4515 IF Forward THEN _
  350.         ZOutTxt$ = "No new messages" : _
  351.         ZLastMsgRead = HighMsgNUmber : _
  352.         ZMailWaiting = ZFalse _
  353. * ------[ first line different ]------
  354.      ELSE ZOutTxt$ = "No such message #" + _
  355.                STR$(CurMsg)
  356.      GOSUB 12979
  357.      GOTO 4370
  358. * REPLACING old line(s) by new
  359. 4624   QuotedReply = ZTrue
  360.        ZLinesInMsg = ZLinesInMsg - 1
  361.        IF HiLitedLine > 0 THEN _
  362.           ZOutTxt$(HiLitedLine) = ZOutTxt$(0) : _
  363.           HiLitedLine = 0
  364.        IF MsgFwd THEN _
  365.           TempRightMargin = ZRightMargin _
  366.        ELSE _
  367.           TempRightMargin = ZRightMargin - 2
  368.        CALL WordWrap (TempRightMargin,ZLinesInMsg,ZOutTxt$())
  369.        IF ZLinesInMsg > ZMsgDim THEN _
  370.           ZLinesInMsg = ZMsgDim : _
  371. * ------[ first line different ]------
  372.           CALL QuickTPut1 ("Original message truncated to " + _
  373.                       STR$(ZMsgDim) + " lines for editing!")
  374.        IF MsgFwd THEN GOTO 4625
  375.        FOR WasX = 1 TO ZLinesInMsg
  376.           IF LEFT$(ZOutTxt$(WasX),1) = ">" THEN _
  377.              ZOutTxt$(WasX) = ">" + ZOutTxt$(WasX) _
  378.           ELSE ZOutTxt$(WasX) = "> " + ZOutTxt$(WasX)
  379.        NEXT
  380. * REPLACING old line(s) by new
  381. 4626   ZWasZ$ = "L"
  382.        WasL = 1
  383. * ------[ first line different ]------
  384.        GOSUB 2101
  385.        IF ZYes THEN
  386.           GOSUB 2110
  387.        ELSE
  388.           IF ZLinesInMsg >= ZMaxMsgLines THEN _
  389.              CALL QuickTPut ("Msg cannot exceed" + _
  390.                          STR$(ZMaxMsgLines) + " lines! ",0)
  391.           IF NOT MsgFwd THEN _
  392.              CALL QuickTPut1 ("C continues reply.  Please 1st delete unneeded lines (eg. d 1 5)")
  393.           GOSUB 3200
  394.           GOSUB 3020
  395.           GOSUB 2300
  396.        END IF
  397.        GOTO 4628
  398. * REPLACING old line(s) by new
  399. * ------[ first line different ]------
  400. 4755 CALL QuickTPut1 ("Try a message or comment")
  401.      ZPageStatus$ = "Paged!"
  402.      CALL UpdtCalr ("Operator paged " + LEFT$(TIME$,5),2)
  403.      RETURN
  404. * REPLACING old line(s) by new
  405. 5328 WasX$ = ZConfName$ + _
  406.           "C.DEF"
  407.      CALL FindIt (WasX$)
  408.      SubBoard = ZOK
  409.      IF NOT SubBoard THEN _
  410.         CALL BreakFileName (ZMainMsgFile$,MsgDrvPath$,ZWasDF$,ZWasY$,ZTrue) : _
  411.         WasX$ = MsgDrvPath$ + WasX$ : _
  412.         CALL FindIt (WasX$) : _
  413.         SubBoard = ZOK
  414.      IF SubBoard THEN _
  415.         IF LEN(ZConfName$) = 6 THEN _
  416.            IF LEFT$(ZConfName$,4) = "RBBS" AND RIGHT$(ZConfName$,1) = "P" THEN _
  417.               SubBoard = ZFalse
  418.      IF NOT SubBoard THEN _
  419.         CALL BreakFileName (ZActiveUserFile$,UserDrvPath$,ZWasDF$,ZWasY$,ZTrue) : _
  420.         WasX$ = UserDrvPath$ + _
  421.              ZConfName$ + _
  422.              "U.DEF" : _
  423.         ZFileName$ = ZWelcomeFileDrvPath$ + _
  424.                      ZConfName$ + _
  425.                      "W.DEF" _
  426.         ELSE CALL ReadDef (WasX$) : _
  427.              IF ZErrCode > 0 THEN _
  428.                 CALL UpdtCalr ("Error"+STR$(ZErrCode)+" reading config file "+WasX$,2) : _
  429.                 ZErrCode = 0 : _
  430.                 ZInConfMenu = ZFalse : _
  431.                 ZOutTxt$ = "error reading subboard" : _
  432.                 GOTO 5341 _
  433.              ELSE WasX$ = ZMainUserFile$ : _
  434.                   ZFileName$ = "" : _
  435.                   CALL FindIt (ZMainMsgFile$) : _
  436.                   IF NOT ZOK THEN _
  437. * ------[ first line different ]------
  438.                      ZOutTxt$ = "message file missing for" : _
  439.                      ZInConfMenu = ZFalse : _
  440.                      GOTO 5341 _
  441.                   ELSE ZActiveMessageFile$ = ZMainMsgFile$ : _
  442.                        GOSUB 5343
  443.      UpdateDate = ZTrue
  444.      CALL FindIt (WasX$)
  445.      IF ZOK THEN _
  446.         GOTO 5330
  447. '
  448. ' *****  NO USER FILE - A PUBLIC CONFERENCE   ****
  449. '
  450.      ZMainUserFile$ = PrevMainUser$
  451.      IF (ZUserSecLevel < AutoAddSec) THEN _
  452.         GOTO 5340
  453.      GOTO 5345
  454.      'WasX$ = ZMainUserFile$
  455.      'ZSysopPswd1$ = ""
  456.      'ZSysopPswd2$ = ""
  457. '
  458. ' ****  CHECK CONFERENCE USER'S FILE  ***
  459. '
  460. * REPLACING old line(s) by new
  461. 5335 IF Found THEN _
  462.         GOSUB 9500 : _
  463.         ZMainUserFileIndex = -(SubBoard * ZUserFileIndex)_
  464.                                -((NOT SubBoard) * ZMainUserFileIndex) : _
  465.         Temp = -(SubBoard * ZMinLogonSec) _
  466.                -((NOT SubBoard) * AutoAddSec) : _
  467.         WasI = (ZUserSecLevel < OrigMainSec) : _
  468.         WasJ = (ZUserSecLevel < Temp) : _
  469.         WasK = (WasI AND WasJ) : _
  470.         IF WasK THEN _
  471.            ZOutTxt$ = "you have been locked out of" : _
  472.            GOTO 5341 _
  473.         ELSE GOSUB 5375 : _
  474.              GOTO 5345
  475. '
  476. ' **** USER NOT FOUND.  AUTO-ADD TO SUBBOARD IF SUFFICIENT SECURITY ***
  477. '
  478.      ZNewUser = SubBoard
  479.      IF SubBoard THEN _
  480.         AutoAddSec = ZMinLogonSec
  481.      IF (ZUserSecLevel >= AutoAddSec) AND _
  482.         (ZUserFileIndex > 0) AND (ZMainUserFileIndex > 0) THEN _
  483.         LSET ZUserRecord$ = UserRecordHold$ : _
  484. * ------[ first line different ]------
  485.         CALL QuickTPut1 ("Adding you to Conference " + ZConfName$) : _
  486.         MID$(ZUserOption$,3,2) = MKI$(0) : _
  487.         MID$(ZUserOption$,1,2) = MKI$(0) : _
  488.         ZActiveUserName$ = LEFT$(UserRecordHold$,30) : _
  489.         CALL Trim (ZActiveUserName$) : _
  490.         Temp = -(SubBoard * ZDefaultSecLevel) _
  491.                -((NOT SubBoard) * ZUserSecSave) : _
  492.         GOSUB 5370 : _
  493.         Temp = -(ZWasA * ZSysopSecLevel) - ((NOT ZWasA) * Temp) : _
  494.         LSET ZSecLevel$ = MKI$(Temp) : _
  495.         ZUserSecLevel = Temp : _
  496.         GOSUB 5375 : _
  497.         ZPageLength = ZPageLengthDef : _
  498.         GOSUB 12986 : _
  499.         GOSUB 12630 : _
  500.         UpdateDate = ZTrue : _
  501.         Found = ZTrue : _
  502.         GOTO 5335
  503.      IF ZUserSecLevel >= AutoAddSec THEN _
  504.         CALL QuickTPut1 ("Temporarily adding you to Conference " + ZConfName$) : _
  505.         ZActiveUserFile$ = PrevUser$ : _
  506.         UpdateDate = ZFalse : _
  507.         ZUserFileIndex = PrevIndex : _
  508.         GOSUB 5382 : _
  509.         ZUserFileIndex = 0 : _
  510.         GOTO 5345
  511.      ZNewUser = ZFalse
  512. * REPLACING old line(s) by new
  513. 9760 ' ****  [entry when want review plus chance to read] *********
  514.      GOSUB 9750
  515.      IF NumNewBullets > 0 THEN _
  516.         ZLastIndex = NumNewBullets + 1 : _
  517. * ------[ first line different ]------
  518.         ZOutTxt$ = "Read ALL new bulletins ([Y],N)" : _
  519.         GOSUB 12999 : _
  520.         IF NOT ZNo THEN _
  521.            ZAnsIndex = 1: _
  522.            GOTO 9700
  523.      ZLastIndex = 0
  524.      IF ZAnsIndex < 1 THEN _
  525.         RETURN
  526.      GOTO 9701
  527. '
  528. ' *  W - COMMAND FROM MAIN MENU (WHO'S ON THE OTHER NODES)
  529. '
  530. * REPLACING old line(s) by new
  531. 10570 IF MinsRemaining > 1 AND (ZTurboKeyUser OR NOT ZExpertUser) THEN _
  532. * ------[ first line different ]------
  533.          ZOutTxt$ = "Really Log Off (Y,[N])" : _
  534.          GOSUB 12930 : _
  535.          IF NOT ZYes THEN _
  536.             RETURN
  537.       GetOut = ZTrue
  538.       GOTO 10560
  539. * REPLACING old line(s) by new
  540. 10970 IF NOT ZDoorsAvail OR _
  541.          (ZRequiredRings = 0 AND NOT ZNoDoorProtect) THEN _
  542. * ------[ first line different ]------
  543.          CALL QuickTPut1 ("No DOORs are available.") : _
  544.          RETURN
  545.       IF ZTimeLock AND 1 AND NOT ZHasDoored THEN _
  546.          CALL TimeLock : _
  547.          IF NOT ZOK THEN _
  548.             RETURN
  549. * REPLACING old line(s) by new
  550. * ------[ first line different ]------
  551. 12800 CALL NewPassword ("Enter a password you'll use to logon again",ZFalse)
  552.       IF ZSubParm < 0 THEN _
  553.          GOTO 202
  554.       IF UserSecLevelSave < ZSysopSecLevel THEN _
  555.          IF ZUserIn$ = SPACE$(LEN(ZUserIn$)) THEN _
  556.             GOTO 12800
  557.       LSET ZPswd$ = ZWasZ$
  558.       RETURN
  559. '
  560. ' *  GET HASH VALUE FOR CURRENT USER TO LOOK UP IN THE USER'S FILE
  561. '
  562. * REPLACING old line(s) by new
  563. * ------[ first line different ]------
  564. 43000 ZPrevPUI$ = ""
  565.       GOSUB 43005
  566.       GOTO 43022
  567. * REPLACING old line(s) by new
  568. * ------[ first line different ]------
  569. 43020 ZOutTxt$ = "Text Graphics: " + _
  570.            MID$("None AsciiColor",ZWasGR * 5 + 1,5)
  571.       GOSUB 12979
  572.       RETURN
  573. * REPLACING old line(s) by new
  574. * ------[ first line different ]------
  575. 43022 ZPrevPUI$ = ""
  576.       IF ZEmphasizeOnDef$ = "" THEN _
  577.          RETURN
  578.       ZOutTxt$ = "Do you want colored prompts ([Y],N)"
  579.       GOSUB 12999
  580.       ZHiLiteOff = NOT ZNo
  581.       CALL Toggle(5)
  582.       RETURN
  583.