home *** CD-ROM | disk | FTP | other *** search
/ Monster Disc 2: The Best of 1992 / MONSTER1.ISO / bbs / rbbs / ansc174.zip / R-PCANSI.MRG < prev    next >
Text File  |  1992-07-13  |  3KB  |  59 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBS-PC.BAS to produce RBBS-PC.NEW
  3. * RBBS-PC.BAS:  Date 6-20-1992  Size 147219 bytes
  4. * ------------[ Created 06-28-1992 22:17:42 ]------------
  5. * REPLACING old line(s) by new
  6. 100 CLEAR,,ZSizeOfStack
  7. * ------[ first line different ]------
  8.     ZCanANSIChat = ZFalse                                            ' DD071301/ANSICHAT
  9.     CALL VarInit
  10.     IF ZErrCode > 0 THEN _
  11.        GOTO 31
  12.     OrigUpgradeSec = ZAutoUpgradeSec
  13.     OrigMainSec = ZMinLogonSec
  14.     CALL BreakFileName (ZOrigMsgFile$,Drive$,OrigMsgName$,ZWasY$,ZFalse)
  15.     IF OrigMsgName$ = "MESSAGES" THEN _
  16.        OrigMsgName$ = "MAIN" _
  17.     ELSE IF RIGHT$(OrigMsgName$,1) = "M" THEN _
  18.             OrigMsgName$ = LEFT$(OrigMsgName$,LEN(OrigMsgName$)-1)
  19.     ConfFileName$ = OrigMsgName$
  20.     OrigNewsFileName$ = ZWelcomeFileDrvPath$ + _
  21.               OrigMsgName$ + ".NWS"
  22.     ZNewsFileName$ = OrigNewsFileName$
  23.     IF ZNetMail$ <> "NONE" AND VAL(ZNetTime$) > 0 THEN _
  24.        ZLimitMinsPerSession = VAL(ZNetTime$)
  25.     IF ZNetMail$ <> "NONE" AND VAL(ZNetBaud$) > 0 THEN _
  26.        ZExpectActiveModem = ZTrue : _
  27.        IF NOT ZKeepInitBaud THEN _
  28.           ZModemInitBaud$ = ZNetBaud$
  29.     IF ZFossil THEN _
  30.        ZComPort = VAL(RIGHT$(ZComPort$,1)) - 1 : _
  31.        IF ZComPort < 0 THEN _
  32.           GOTO 108 _
  33.        ELSE CALL FOSinit(ZComPort,Result) : _
  34.             IF Result = -1 THEN _
  35.                ZSnoop = ZTrue : _
  36.                CALL PScrn("ERROR INITIALIZING FOSSIL") : _
  37.                GOTO 204
  38. * REPLACING old line(s) by new
  39. 4765 CALL UpdtCalr ("Paged & chatted with Sysop",1)
  40. * ------[ first line different ]------
  41.      ZPageStatus$ = ""
  42.      ZSysopGreeting$ = "SysOp in!  " + ZFirstName$ + ", this is " + _ ' DD062801/ANSICHAT
  43.                        ZSysopFirstName$ + ", go ahead!"             ' DD062801/ANSICHAT
  44. * REPLACING old line(s) by new
  45. * ------[ first line different ]------
  46. 4770 IF ZCanANSIChat = ZTrue THEN                                   ' DD071301/ANSICHAT
  47.         CALL ANSIChat                                               ' DD062801/ANSICHAT
  48.      ELSE                                                           ' DD062801/ANSICHAT
  49.         CALL SkipLine (1)                                           ' DD062801/ANSICHAT
  50.         CALL QuickTPut1 (ZSysopGreeting$)                           ' DD062801/ANSICHAT
  51.         CALL SysopChat                                              ' DD062801/ANSICHAT
  52.      END IF                                                         ' DD062801/ANSICHAT
  53.      IF ZSubParm < 0 THEN _
  54.         GOTO 202
  55.      RETURN
  56. '
  57. ' ****  S - COMMAND FROM UTILITY MENU (STATISTICS)  ***
  58. '
  59.