* ------------[ BLED merge (c) Ken Goosens ]-------------
* Merge this against RBBS-PC.BAS to produce RBBS-PC.NEW
* RBBS-PC.BAS:  Date 5-21-1990  Size 156425 bytes
* ------------[ Created 06-23-1990 23:57:35 ]------------
* REPLACING old line(s) by new
800 CALL DoorReturn
    IF ZAdjustedSecurity THEN _
       GOSUB 5135
    IF ZOrigCnfg$ = ZCurDef$ THEN _
       ZMainUserFileIndex = ZUserFileIndex : _
       ZOrigSec = ZUserSecLevel : _
       ZUserSecSave = ZUserSecLevel : _
       ZOrigUserName$ = ZActiveUserName$
    ZTimesLoggedOn = CVI(MID$(ZUserOption$,1,2)) - _
       ((ZOrigCnfg$ <> ZCurDef$ OR NOT SubBoard) AND _
        (NOT ZPrivateDoor) AND (NOT ZExitToDoors))
    GOSUB 9500
    IF (NOT ZExitToDoors) AND (NOT SubBoard) THEN _
       CALL UpdtCalr (ZActiveUserName$ + " from " + ZWasCI$ + _
                 " Lvl" + STR$(ZUserSecLevel) + " " + TIME$,2)
    PrevLastOn$ = ZLastDateTimeOn$
    IF ZLocalUser THEN _
       ZTalkToModemAt$ = "9600" : _
       ZBaudParity$ = "9600 BAUD,N,8,1" : _
       ZModemInitBaud$ = "9600" : _
       ZSnoop = ZTrue : _
       ZLineFeeds = ZTrue
    CALL SetCrLf
    CALL SetPrompt
    CALL XferType (2,ZTrue)
    IF NOT SubBoard THEN _
       BoardCheckDate$ = PrevLastOn$
* ------[ first line different ]------
    GOSUB 5370                                                       ' KG060101
    IF ZWasA THEN _                                                  ' KG060101
       ZActiveUserName$ = "SYSOP"                                    ' KG060101
    IF ZExitToDoors OR SubBoard THEN _                               ' KG052701
       GOTO 815
    GOSUB 465
    IF (ZEightBit AND _
       ZAutoDownDesired) OR _
       ZAskID THEN _
       CALL TestUser
    CALL QuickTPut1 ("Logging " + ZActiveUserName$)
    CALL Talk (1,ZOutTxt$)
    CALL QuickTPut1 ("RBBS-PC " + ZVersionID$ + " NODE " + ZNodeID$ + _
                ", OPERATING AT " + ZBaudParity$)
    CALL SkipLine (1)
    Attempts = 0
'
' *  ALWAYS RECORD THE HASH/INDIVIDUATING FIELD TO EACH RECORD LOGGED OUT
'
     WasX$ = "{" + _                                                 ' KG052701
          HashValue$ + _                                             ' KG052701
          "/" + _                                                    ' KG052701
          ZIndivValue$ + _                                           ' RC050901
          "}"                                                        ' KG052701
     IF LEN(ZWasZ$) < 65 THEN _                                      ' KG052701
        WasX = 65 _                                                  ' KG052701
     ELSE WasX = LEN(ZWasZ$) + 2                                     ' KG052701
     MID$(ZWasNG$,WasX) = WasX$                                      ' KG052701
     CALL Printit ("  " + ZWasZ$)                                    ' KG052701
     IF ZNewUser THEN _                                              ' KG052701
        CALL UpdtCalr ("NEWUSER",1) : _                              ' KG052701
        CALL Muzak (2)                                               ' KG052701
'
' *****  NOTIFY CALLER IF ABLE TO "AUTODOWN"  ****
'
    IF ZEightBit AND ZAutoDownYes THEN _
       ZOutTxt$ = CHR$(9) + _
            ZReturnLineFeed$ + _
            "You may use AUTODOWNLOADing!" : _
       CALL RingCaller : _
       CALL DelayTime(4)
* REPLACING old line(s) by new
818 CALL AskMore ("",ZTrue,ZTrue,WasX,ZTrue)
    IF ZRemindProfile THEN _
       GOSUB 5400 : _
       CALL AskMore ("",ZTrue,ZTrue,WasX,ZTrue)
* ------[ first line different ]------

    IF (ZNodeRecIndex < 2) THEN _
       GOTO 821
    GOSUB 4910
    GOSUB 24000
    GET 1,ZNodeRecIndex
    MID$(ZMsgRec$,1,31) = ZActiveUserName$ + _
                                 SPACE$(31 - LEN(ZActiveUserName$))
    MID$(ZMsgRec$,40,2) = " 0"
    MID$(ZMsgRec$,44,2) = STR$(ZBPS)
    MID$(ZMsgRec$,55,2) = " 0"
    MID$(ZMsgRec$,57,1) = "A"
    MID$(ZMsgRec$,60,5) = ZTalkToModemAt$ + _
                                 SPACE$(5 - LEN(ZTalkToModemAt$))
    MID$(ZMsgRec$,72,2) = " 0"
    MID$(ZMsgRec$,93,24) = ZWasCI$ + _
                                  SPACE$(24)
    PUT 1,ZNodeRecIndex
    GOSUB 12985
* REPLACING old line(s) by new
* ------[ first line different ]------
819 CALL Trim (ZWasCI$)                                              ' KG060101
    IF (ZNodeRecIndex < 2) THEN _
       GOTO 821
    GOSUB 4910
    GOSUB 24000
    GET 1,ZNodeRecIndex
    MID$(ZMsgRec$,1,31) = ZActiveUserName$ + _
                                 SPACE$(31 - LEN(ZActiveUserName$))
    MID$(ZMsgRec$,40,2) = " 0"
    MID$(ZMsgRec$,44,2) = STR$(ZBPS)
    MID$(ZMsgRec$,55,2) = " 0"
    MID$(ZMsgRec$,57,1) = "A"
    MID$(ZMsgRec$,60,5) = ZTalkToModemAt$ + _
                                 SPACE$(5 - LEN(ZTalkToModemAt$))
    MID$(ZMsgRec$,72,2) = " 0"
    MID$(ZMsgRec$,93,24) = ZWasCI$ + _
                                  SPACE$(24)
    PUT 1,ZNodeRecIndex
    GOSUB 12985
* REPLACING old line(s) by new
821 IF ZExitToDoors THEN _
       IF ZTransferFunction = 3 THEN _
          ZNewUser = ZTrue : _
* ------[ first line different ]------

          TurboLogon = ZFalse : _
          SameUser = ZFalse : _
          ZTransferFunction = 0 : _
	  GOTO 832
    GOSUB 1241
    IF (SubBoard AND (ZOrigMsgFile$ = ZActiveMessageFile$)) _
       OR ((ZUserSecLevel > ZMaxRegSec) AND (NOT ZNewUser)) THEN _
       GOTO 832
    ZWasZ$ = ZRegProgram$
    ZTransferFunction = 3
    CALL DoorExit (ZFalse)                                           ' KG032502
    ZTransferFunction = 0
    GOTO 832
'
' ****  ESC PRESSED ON LOCAL CONSOLE ENTERS HERE   ***
'
* REPLACING old line(s) by new
4660 IF RemoteSysop THEN _
        CALL MsgNameMatch ("SYSOP",SysopFullName$,6,MsgFromCaller) : _
        CALL MsgNameMatch ("SYSOP",SysopFullName$,37,MsgToCaller) _
* ------[ first line different ]------
     ELSE WasX$ = LEFT$("SYSOP",-5*ZSysop) : _                       ' KG060903
          CALL MsgNameMatch (MsgUserName$,WasX$,6,MsgFromCaller) : _ ' KG060903
          CALL MsgNameMatch (MsgUserName$,WasX$,37,MsgToCaller)      ' KG060903
     UserInHeader = (MsgFromCaller OR MsgToCaller)
     RETURN
'
' ****  S - CHANGE MESSAGE SECURITY   ***
'