home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-385-Vol-1of3.iso
/
t
/
thrdmrg.zip
/
RBBS-PC.MRG
next >
Wrap
Text File
|
1988-10-28
|
2KB
|
56 lines
* ------------[ BLED merge (c) Ken Goosens ]-------------
* Merge this against RBBS-PC.BAS to produce D:\LITE\RBBS-PC.BAS
* RBBS-PC.BAS: Date 10-12-1988 Size 138779 bytes
* ------------[ Created 10-28-1988 18:46:11 ]------------
* REPLACING old line(s) by new
3640 CALL SKIPLINE (1)
LSET MESSAGE.RECORD$ = MESSAGE.RECORD.SAVE$
GOSUB 24000
GOSUB 12985
' ---[ notify receiver that has new mail waiting ]---
IF RECEIVER.RECORD.NUM > 0 THEN _
SUIX = USER.FILE.INDEX : _
USER.RECORD.HOLD$ = USER.RECORD$ : _
USER.FILE.INDEX = RECEIVER.RECORD.NUM : _
GOSUB 12989 : _
GET 5, RECEIVER.RECORD.NUM : _
X = CVI(MID$(USER.RECORD$,57,2)) : _
MID$(USER.RECORD$,57,2) = MKI$(X OR 512) : _
PUT 5, RECEIVER.RECORD.NUM : _
GOSUB 12991 : _
USER.FILE.INDEX = SUIX : _
LSET USER.RECORD$ = USER.RECORD.HOLD$ : _
CALL QTPUT ("Receiver will be notified of new mail",1) : _
RECEIVER.RECORD.NUM = 0
* ------[ first line different ]------
'************************ MESSAGE THREAD *****************
* REPLACING old line(s) by new
* ------[ first line different ]------
3650 IF REPLY AND Z.ABORT = 0 THEN _
CALL THREAD1(HIGH.MESSAGE.NUMBER,CURRENT.MESSAGE,GRN$) 'GRB
Z.ABORT = 0
IF REPLY THEN _
REPLY = FALSE : _
GOTO 5344
IF GET.EXT.DESC THEN _
LINES.IN.MESSAGE = 0 : _
RETURN
RETURN 1200
'
' **** K - COMMAND FROM MAIN MENU (KILL MESSAGE) ****
'
* REPLACING old line(s) by new
3950 GOSUB 5344
CALL KILLMSG (MESSAGE.TO.KILL,ACTIVE.MESSAGES)
* ------[ first line different ]------
CALL THREAD2 (MESSAGE.TO.KILL,ACTIVE.MESSAGES,GRN$) 'Thread Mod
* REPLACING old line(s) by new
* ------[ first line different ]------
4613 CALL THREAD3(CURRENT.MESSAGE,GRN$)
GOSUB 9000
IF JUST.SEARCHING THEN _
GOTO 4625
IF MESSAGES.SELECTED.INDEX > NUMBER.MESSAGES.SELECTED THEN _
GOTO 4650
CALL SKIPLINE (1)