Category : BBS Programs+Doors
Archive   : RBBS-MRG.ZIP
Filename : R-PC1028.MRG

 
Output of file : R-PC1028.MRG contained in archive : RBBS-MRG.ZIP
* ------------[ BLED merge (c) Ken Goosens ]-------------
* Merge this against 17.3A\RBBS-PC.BAS to produce 17.3B\RBBS-PC.BAS
* 17.3A\RBBS-PC.BAS: Date 9-25-1990 Size 166652 bytes
* ------------[ Created 10-28-1990 12:00:05 ]------------
* REPLACING old line(s) by new
4 ' $title: 'RBBS-PC 17.3B, Copyright 1990 by D. Thomas Mack' ' DA102501
* REPLACING old line(s) by new
16 ' * companion program, CONFIG (version 17.3B), to make copies of this *
* REPLACING old line(s) by new
105 ZVersionID$ = "17.3B"
* REPLACING old line(s) by new
4402 IF LEN(ZUserIn$(ZAnsIndex)) = 1 THEN _ ' KG022701
* ------[ first line different ]------
WasY = INSTR("QqHh?",ZUserIn$(ZAnsIndex)) : _ ' KG101202
IF WasY > 2 THEN _ ' KG081302
ZFileName$ = ZHelpPath$ + "MR" + ZHelpExtension$ : _
GOSUB 1790 : _
GOTO 4390 _ ' KG101202
ELSE IF WasY > 0 THEN _ ' KG101202
RETURN ' KG101202
MsgIndex = 0 ' KG022701
NumMsgsSelected = ZWasQ
GOTO 4370
* REPLACING old line(s) by new
4515 IF Forward THEN _
ZOutTxt$ = "No new messages" : _
ZLastMsgRead = HighMsgNUmber : _
ZMailWaiting = ZFalse _
ELSE ZOutTxt$ = "No such msg #" + _
STR$(CurMsg)
* ------[ first line different ]------
IF SubInHeader$ = "" THEN _ ' KG102001
GOSUB 12979 ' KG102001
GOTO 4370
* REPLACING old line(s) by new
4710 ZOutTxt$ = "Page " + _
ZSysopFirstName$ + _
" (Y/[N])"
CALL SkipLine (1)
GOSUB 12999
IF NOT ZYes THEN _
RETURN
PageCount = 0
ZOutTxt$ = "Paging " + _
ZSysopFirstName$ ' KG071301
GOSUB 12978
PageTimeStart! = TIMER
* ------[ first line different ]------
TempSnoop = ZSnoop ' DA101801
ZSnoop = ZTrue ' DA101801
CALL Line25 ' DA102401
* REPLACING old line(s) by new
4745 GOSUB 12978
CALL CheckTime (PageTimeStart!, PageTimeNow!, 2)
IF PageTimeNow! < 30 THEN GOTO 4730
* ------[ first line different ]------
ZSnoop = TempSnoop ' DA101801


  3 Responses to “Category : BBS Programs+Doors
Archive   : RBBS-MRG.ZIP
Filename : R-PC1028.MRG

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/