home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / BBS / RBBS_PC / 173_LIT.ZIP / RBBSLIT.MRG < prev    next >
Encoding:
Text File  |  1990-01-13  |  4.0 KB  |  100 lines
  1. *[RBBSLIT.MRG]****************************************************************
  2. * Description: RBBS-PC.BAS Mite Size Driver                                  *
  3. * RBBS-PC Level: CPC17.3                                                     *
  4. * Module Affected: RBBS-PC.BAS                                               *
  5. * Selection Option: None                                                     *
  6. * Additional files: None                                                     *
  7. ******************************************************************************
  8. *$ INCLUDE SETLIT.INC
  9. *$ INCLUDE MITEVER.LIT
  10. *$ IF FOSSIL = OFF THEN INCLUDE FOSSIL01.LIT
  11. *$ INCLUDE MITEVER2.LIT
  12. *$ IF FOSSIL = OFF THEN INCLUDE FOSSIL02.LIT
  13. *$ IF AUTODOWN = OFF THEN BLOCK
  14. 800 CALL DoorReturn
  15.     IF ZAdjustedSecurity THEN _
  16.        GOSUB 5135
  17.     IF ZOrigCnfg$ = ZCurDef$ THEN _
  18.        ZMainUserFileIndex = ZUserFileIndex : _
  19.        ZOrigSec = ZUserSecLevel : _
  20.        ZUserSecSave = ZUserSecLevel : _
  21.        ZOrigUserName$ = ZActiveUserName$
  22.     ZTimesLoggedOn = CVI(MID$(ZUserOption$,1,2)) - _
  23.        ((ZOrigCnfg$ <> ZCurDef$ OR NOT SubBoard) AND _
  24.         (NOT ZPrivateDoor) AND (NOT ZExitToDoors))
  25.     GOSUB 9500
  26.     IF (NOT ZExitToDoors) AND (NOT SubBoard) THEN _
  27.        CALL UpdtCalr (ZActiveUserName$ + " from " + ZWasCI$ + _
  28.                  " Lvl" + STR$(ZUserSecLevel) + " " + TIME$,2)
  29.     PrevLastOn$ = ZLastDateTimeOn$
  30.     IF ZLocalUser THEN _
  31.        ZTalkToModemAt$ = "9600" : _
  32.        ZBaudParity$ = "9600 BAUD,N,8,1" : _
  33.        ZModemInitBaud$ = "9600" : _
  34.        ZSnoop = ZTrue : _
  35.        ZLineFeeds = ZTrue
  36.     CALL SetCrLf
  37.     CALL SetPrompt
  38.     CALL XferType (2,ZTrue)
  39.     IF NOT SubBoard THEN _
  40.        BoardCheckDate$ = PrevLastOn$
  41.     IF ZPrivateDoor OR SubBoard THEN _
  42.        GOTO 815
  43.     GOSUB 465
  44.     CALL QuickTPut1 ("Logging " + ZActiveUserName$)
  45.     CALL Talk (1,ZOutTxt$)
  46.     CALL QuickTPut1 ("RBBS-PC " + ZVersionID$ + " NODE " + ZNodeID$ + _
  47.                 ", OPERATING AT " + ZBaudParity$)
  48.     CALL SkipLine (1)
  49.     Attempts = 0
  50. *$ END IF
  51. *$ IF UPDWNRATIO = OFF THEN BLOCK
  52. 815 ZDnlds = CVI(ZUserDnlds$)
  53.     ZUplds = CVI(ZUserUplds$)
  54.     IF NOT GlobalsSet THEN _
  55.        GlobalsSet = ZTrue : _
  56.        ZGlobalDnlds = ZDnlds : _
  57.        ZGlobalUplds = ZUplds : _
  58.        ZGlobalDLToday! = ZDLToday! : _
  59.        ZGlobalBytesToday! = ZBytesToday! : _
  60.        ZGlobalDLBytes! = ZDLBytes! : _
  61.        ZGlobalULBytes! = ZULBytes!
  62.     GOSUB 827                                                        ' KG052101
  63.     LSET ZUserOption$ = MKI$(ZTimesLoggedOn) + _
  64.                          MID$(ZUserOption$,3)
  65.     LSET ZLastDateTimeOn$ = ZCurDate$ + _
  66.                               " " + _
  67.                               ZTimeLoggedOn$
  68.     MID$(ZUserRecord$,ZStartHash,ZLenHash) = HashValue$
  69.     IF ZStartIndiv > 0 THEN _
  70.        MID$(ZUserRecord$,ZStartIndiv,ZLenIndiv) = IndivValue$
  71.     LSET ZUserName$ = ZOrigUserName$
  72.     IF (NOT ZExitToDoors) AND NOT (ZOrigMsgFile$ = ZActiveMessageFile$ AND SubBoard) THEN _
  73.        CALL AutoPage
  74.     IF NOT SubBoard THEN _
  75.        ZOrigUserFileIndex = ZUserFileIndex
  76.     GOSUB 9440
  77.     GOSUB 12991
  78.     CALL AskMore ("",ZTrue,ZTrue,WasX,ZTrue)
  79.     IF TurboLogon THEN _
  80.        GOTO 819
  81.     IF SkipWelcomeScreen AND _                                       ' DA090901
  82.        (ZUserSecLevel >= ZAllowCallerTurbo) THEN _                   ' DA090901
  83.        GOTO 816                                                      ' DA090901
  84.     IF NOT SameUser THEN _
  85.        ZStopInterrupts = NOT ZWelcomeInterruptable : _
  86.        ZBypassTimeCheck = ZTrue : _
  87.        ZFileName$ = ZWelcomeFile$ : _
  88.        ZDisplayAsUnit = ZTrue : _
  89.        GOSUB 1790 : _
  90.        ZDisplayAsUnit = ZFalse
  91.     ZBypassTimeCheck = ZFalse
  92.     ZStopInterrupts = ZTrue
  93. *$ END IF
  94. *$ IF CONFERENCE = OFF THEN INCLUDE CONFENCE.LIT
  95. *$ IF DOORS = OFF THEN INCLUDE DOORS.LIT
  96. *$ IF SYSMAINT = OFF THEN INCLUDE SYSMAINT.LIT
  97. *$ IF SURVEY = OFF THEN INCLUDE SURVEY1.LIT
  98. *$ IF SYSMAINT = OFF THEN INCLUDE SYSMNT2.LIT
  99. *$ IF FOSSIL   = OFF THEN INCLUDE FOSSIL03.LIT
  100.