home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1994 #1
/
monster.zip
/
monster
/
BBS_UTIL
/
BM0406_A.ZIP
/
RCHAT401.ZIP
/
R-PCANCH.MRG
< prev
next >
Wrap
Text File
|
1992-09-14
|
10KB
|
275 lines
* ------------[ BLED merge (c) Ken Goosens ]-------------
* Merge this against OLD\RBBS-PC.BAS to produce RBBS-PC.BAS
* OLD\RBBS-PC.BAS: Date 8-26-1990 Size 165474 bytes
* ------------[ Created 08-28-1990 14:07:47 ]------------
* REPLACING old line(s) by new
760 GOSUB 755
CALL AllCaps (ZWasZ$)
LSET ZPswd$ = ZWasZ$
CALL QuickTPut1 ("Please REMEMBER your password")
ZUserTextColor = 37
ZTempSecLevel = ZUserSecLevel
CALL Protocol
ZUserXferDefault$ = "N"
ZProtoPrompt$ = "None"
IF ZNewUserSetsDefaults THEN _
ZBypassTimeCheck = ZTrue : _
GOSUB 43000 : _
ZBypassTimeCheck = ZFalse : _
CALL Graphic (ZFileName$) : _ ' KG022003
GOSUB 42805 : _
GOSUB 42700 : _
GOSUB 42750 _ ' RCHAT
ELSE ZUpperCase = ZFalse : _ ' DA030101
ZNulls = ZFalse
ZPageLength = ZPageLengthDef
CALL SetNewUserDef ' KG022601
GOSUB 5135
CALL DefaultU
* REPLACING old line(s) by new
800 IF ZAdjustedSecurity THEN _ ' KG032501
GOSUB 5135
IF ZOrigCnfg$ = ZCurDef$ THEN _
ZMainUserFileIndex = ZUserFileIndex : _
ZOrigSec = ZUserSecLevel : _
ZUserSecSave = ZUserSecLevel : _
ZOrigUserName$ = ZActiveUserName$
ZTimesLoggedOn = CVI(MID$(ZUserOption$,1,2)) - _
((ZOrigCnfg$ <> ZCurDef$ OR NOT ZSubBoard) AND _ ' KG022601
(NOT ZPrivateDoor) AND (NOT ZExitToDoors))
GOSUB 9500
IF (NOT ZExitToDoors) AND (NOT ZSubBoard) THEN _ ' KG022601
CALL UpdtCalr (ZActiveUserName$ + " from " + ZWasCI$ + _
" Lvl" + STR$(ZUserSecLevel) + " " + TIME$,2)
PrevLastOn$ = ZLastDateTimeOn$
IF ZLocalUser THEN _
ZTalkToModemAt$ = "9600" : _
ZBaudParity$ = "9600 BPS,N,8,1" : _ ' DA062001
ZModemInitBaud$ = "9600" : _
ZSnoop = ZTrue : _
ZLineFeeds = ZTrue
CALL SetCrLf
CALL SetPrompt
CALL XferType (2,ZTrue)
IF NOT ZSubBoard THEN _ ' KG022601
BoardCheckDate$ = PrevLastOn$
CALL SetSysOp ' KG022601
IF ZWasA THEN _
ZActiveUserName$ = "SYSOP" : _
ZFirstName$ = "SysOp" ' KG011401
IF ZExitToDoors OR ZSubBoard THEN _ ' KG022601
GOTO 815
GOSUB 465
IF (ZEightBit AND _
ZAutoDownDesired) OR _
ZAskID THEN _
CALL TestUser
CALL QuickTPut1 ("Logging " + ZActiveUserName$)
CALL Talk (1,ZOutTxt$)
Temp$ = STR$(ZBaudTest!) + MID$(ZBaudParity$,INSTR(ZBaudParity$," B")) ' KG081902
CALL QuickTPut1 ("RBBS-PC " + ZVersionID$ + " Node " + ZNodeID$ + _
", operating at" + Temp$) ' KG081902
CALL SkipLine (1)
* ------[ first line different ]------
IF ZMaxNodes > 1 THEN ' RCHAT
CALL LogNewForChat (ZMaxNodes) ' RCHAT
END IF ' RCHAT
Attempts = 0
ZWasZ$ = ZActiveUserName$ + _
" on at " + _
ZCurDate$ + _
", " + _
ZTime$ + _
" from " + _
ZWasCI$ + _
"," + Temp$ ' KG081902
ZWasNG$ = ZWasZ$ + SPACE$(128 - LEN(ZWasZ$))
'
' * ALWAYS RECORD THE HASH/INDIVIDUATING FIELD TO EACH RECORD LOGGED OUT
'
WasX$ = "{" + _
HashValue$ + _
"/" + _
ZIndivValue$ + _
"}"
IF LEN(ZWasZ$) < 65 THEN _
WasX = 65 _
ELSE WasX = LEN(ZWasZ$) + 2
MID$(ZWasNG$,WasX) = WasX$
CALL Printit (" " + ZWasZ$)
IF ZNewUser THEN _
CALL UpdtCalr ("NEWUSER",1) : _
CALL Muzak (2)
'
' ***** 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
1230 CALL Line25
ZOutTxt$ = ZConfName$ + ":" ' TC070708
GOSUB 12978 ' TC070708
CALL Talk (65,ZConfName$) ' TC070708
CALL DispTimeRemain (MinsRemaining)
IF ZMenuIndex = 6 THEN _
ZSubParm = 1 : _
CALL Library
* ------[ first line different ]------
CALL CBCheck(WillChat) ' RCHAT
IF WillChat THEN GOTO 1600
CALL SaveUserActivity("I", ZNodeRecIndex, ZFalse) ' RCHAT
CALL Talk (ZMenuIndex, ZOutTxt$)
* REPLACING old line(s) by new
* ------[ first line different ]------
* INSERTING new line(s)
1600 CALL CBTrueChat (ZMaxNodes) ' RCHAT
GOSUB 5344 ' RCHAT
GOTO 1205 ' RCHAT
'
' **** I - COMMAND FROM MAIN MENU (DISPLAY INITIAL WELCOME) ***
'
* REPLACING old line(s) by new
* ------[ first line different ]------
2100 CALL SaveUserActivity("M", ZNodeRecIndex, ZFalse) ' RCHAT
IF NOT ZFullScreenEditor OR ZGetExtDesc THEN _
GOTO 2120
* INSERTING new line(s)
2110 CALL Ansied (MsgTo$, OrigSubject$, MsgLockLines)
I = ZSubParm
CALL SkipLine (1)
IF I = -2 THEN ' Sleep Disconnect
GOTO 10590
ELSEIF I = -1 THEN ' Lost Carrier
GOTO 10595
ELSEIF I = 1 THEN ' Save Message
GOTO 3400
ELSEIF I = 2 THEN ' Abort Message
GOTO 2430
END IF
2120 ZOutTxt$ = "Enter Your " + _
ZMsgHeader$ + _
STR$(ZMaxMsgLines) + _
" Lines Max" + _
ZPressEnterExpert$
GOSUB 12975
GOSUB 3200
* REPLACING old line(s) by new
3405 IF ZSysopMsg THEN _
MsgPswd$ = "^READ^" _
ELSE _
Temp$ = MsgPswd$ : _
CALL MsgProt (MsgTo$,Found,MsgPswd$) : _
IF MsgPswd$ = "" THEN _
MsgPswd$ = Temp$ : _
* ------[ first line different ]------
IF ZFullScreenEditor THEN _ ' RCHAT
GOTO 2110 _ ' RCHAT
ELSE _ ' RCHAT
GOTO 2300 ' RCHAT
SaveReplyStatus = ZReply
ZReply = ZTrue
ZSysopMsg = ZFalse
ZReply = SaveReplyStatus
GOSUB 4910
MsgRecSave$ = ZMsgRec$
MsgCorrected = ZFalse
GOSUB 23100
ZWasSL = 0
ZWasN$ = ""
ZLastIndex = 0
HighMsgNumber = HighMsgNumber + 1
* REPLACING old line(s) by new
4360 ZWasLG$(11) = ZWasZ$
NumMsgsSelected = ZLastIndex
MsgIndex = ZAnsIndex
ZLastIndex = 0
AddressedToUser = ZFalse ' KG020801
ToRequested = ZFalse ' KG020801
FromRequested = ZFalse ' KG010102
LinkNext = ZFalse ' KG020801
* ------[ first line different ]------
CALL SaveUserActivity("M", ZNodeRecIndex, ZFalse) ' RCHAT
* REPLACING old line(s) by new
4626 ZWasZ$ = "L"
WasL = 1
* ------[ first line different ]------
IF ZFullScreenEditor THEN
GOSUB 2110
ELSE
IF ZLinesInMsg >= ZMaxMsgLines THEN _
CALL QuickTPut ("Message cannot exceed" + _
STR$(ZMaxMsgLines) + " lines...",1)
IF NOT MsgFwd THEN _
ZOutTxt$ = "Use C to Continue Reply. Please Delete Unneeded Lines." : _
GOSUB 12975
GOSUB 3200
GOSUB 3020
GOSUB 2300
END IF
GOTO 4628
* REPLACING old line(s) by new
5410 CALL Toggle(-9)
GOSUB 43020
ZFF = INSTR(ZDefaultXfer$,ZUserXferDefault$)
CALL Toggle(-5)
GOSUB 42810
CALL Toggle(-3)
CALL Toggle(-6)
CALL Toggle(-7)
CALL Toggle(-10)
CALL Toggle(-2)
CALL Toggle(-4)
CALL Toggle(-8)
CALL Toggle(-1)
* ------[ first line different ]------
CALL Toggle(-11) ' RCHAT
CALL Toggle(-12)
IF ZRestrictByDate AND ZDaysInRegPeriod > 0 THEN _
IF ZUserSecLevel > ZTempExpiredSec THEN _ ' DA021501
CALL QuickTPut1 ("Registration expires " + ZExpirationDate$)
RETURN
'
' ***** B - COMMAND FROM UTILITY MENU (300 TO 450 BAUD CHANGE) ****
'
* REPLACING old line(s) by new
* ------[ first line different ]------
9800 CALL PageEm (ZNodeRecIndex - 1, ZMaxNodes)
REM ** 'ZNodeRecIndex - 1' is the users actual node number.. is there
REM ** already a variable for this?? I dunno..
REM **
REM ** PageEm will call WhosOn, then ask if they want to page someone
REM ** if so, it'll call CBTrueChat
REM ** etc..
CLOSE 10 ' RCHAT
GOSUB 5344
RETURN
'
' * 1 - COMMAND FROM SYSOP MENU (DISPLAY COMMENTS)
'
* REPLACING old line(s) by new
* ------[ first line different ]------
42700 CALL SkipLine (1)
CALL QuickTPut1 ("TurboKey: act on 1 char command without waiting for [ENTER]")
ZOutTxt$ = "Use TurboKey (Y,[N])" ' DA062001
GOSUB 12999
ZTurboKeyUser = NOT ZYes
CALL Toggle (8)
RETURN
'
' * EDITOR SET FOR NEW USERS
'
* INSERTING new line(s)
42750 ZOutTxt$ = "Use the Full Screen Editor for Messages (Y/[N])"
GOSUB 12999
ZFullScreenEditor = NOT ZYes
CALL Toggle (12)
RETURN
'
' * F - COMMAND FROM UTILITY MENU (FILE Transfer DEFALUT MODE)
' * FILE Transfer DEFAULT SET FOR NEW USERS
'