home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / BBS / RBBS_PC / 173_LIT.ZIP / FOSSIL01.LIT < prev    next >
Encoding:
Text File  |  1990-01-13  |  2.0 KB  |  41 lines
  1. *[FOSSIL01.LIT]***************************************************************
  2. * Description: Removes FOSSIL support.                                       *
  3. * RBBS-PC Level: CPC17.3                                                     *
  4. * Module Affected: RBBS-PC.BAS                                               *
  5. * Selection Option: FOSSIL = OFF                                             *
  6. * Additional files:                                                          *
  7. ******************************************************************************
  8. 106 CALL GetCommand (ZDebug,NetTime$,ZNetBaud$,ZNetReliable$)
  9.     ZSubParm = 1
  10.     CALL ReadDef (ZConfigFileName$)
  11.     IF ZErrCode > 0 THEN _
  12.        GOTO 31
  13.     REDIM ZWorkAra$(ZMaxWorkVar)                                     ' KG081005
  14.     REDIM ZGSRAra$(ZMaxWorkVar)                                      ' KG081005
  15.     ZUseTPut = (ZUpperCase OR ZXOnXOff)
  16.     OrigUpgradeSec = ZAutoUpgradeSec
  17.     ZOrigCallers$ = ZCallersFile$
  18.     ZOrigMsgFile$ = ZMainMsgFile$
  19.     ZOrigUserFile$ = ZMainUserFile$
  20.     OrigMainSec = ZMinLogonSec
  21.     ZOrigSysopFN$ = ZSysopFirstName$
  22.     ZOrigSysopLN$ = ZSysopLastName$
  23.     ZExpertUser = ZExpertUserDef
  24.     ZPromptBell = ZPromptBellDef
  25.     CALL BreakFileName (ZOrigMsgFile$,Drive$,OrigMsgName$,ZWasY$,ZFalse)
  26.     IF OrigMsgName$ = "MESSAGES" THEN _
  27.        OrigMsgName$ = "MAIN" _
  28.     ELSE IF RIGHT$(OrigMsgName$,1) = "M" THEN _
  29.             OrigMsgName$ = LEFT$(OrigMsgName$,LEN(OrigMsgName$)-1)
  30.     ConfFileName$ = OrigMsgName$
  31.     OrigNewsFileName$ = ZWelcomeFileDrvPath$ + _                     ' LP032601
  32.               OrigMsgName$ + ".NWS"                                  ' LP032601
  33.     ZNewsFileName$ = OrigNewsFileName$                               ' LP101401
  34.     IF ZNetMail$ <> "NONE" AND VAL(NetTime$) > 0 THEN _
  35.        ZLimitMinsPerSession = VAL(NetTime$)                          ' DA110303
  36.     IF ZNetMail$ <> "NONE" AND VAL(ZNetBaud$) > 0 THEN _
  37.        ZExpectActiveModem = ZTrue : _
  38.        IF NOT ZKeepInitBaud THEN _
  39.           ZModemInitBaud$ = ZNetBaud$
  40.  
  41.