home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / BBS / RBBS_PC / RCHAT300.ZIP / R-PCCHAT.MRG < prev    next >
Encoding:
Text File  |  1990-08-28  |  10.3 KB  |  237 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against OLD\RBBS-PC.BAS to produce RBBS-PC.BAS
  3. * OLD\RBBS-PC.BAS:  Date 8-26-1990  Size 165474 bytes
  4. * ------------[ Created 08-28-1990 14:07:47 ]------------
  5. * REPLACING old line(s) by new
  6. 800 CALL DoorReturn
  7.     IF ZAdjustedSecurity THEN _
  8.        GOSUB 5135
  9.     IF ZOrigCnfg$ = ZCurDef$ THEN _
  10.        ZMainUserFileIndex = ZUserFileIndex : _
  11.        ZOrigSec = ZUserSecLevel : _
  12.        ZUserSecSave = ZUserSecLevel : _
  13.        ZOrigUserName$ = ZActiveUserName$
  14.     ZTimesLoggedOn = CVI(MID$(ZUserOption$,1,2)) - _
  15.        ((ZOrigCnfg$ <> ZCurDef$ OR NOT SubBoard) AND _
  16.         (NOT ZPrivateDoor) AND (NOT ZExitToDoors))
  17.     GOSUB 9500
  18.     IF (NOT ZExitToDoors) AND (NOT SubBoard) THEN _
  19.        CALL UpdtCalr (ZActiveUserName$ + " from " + ZWasCI$ + _
  20.                  " Lvl" + STR$(ZUserSecLevel) + " " + TIME$,2)
  21.     PrevLastOn$ = ZLastDateTimeOn$
  22.     IF ZLocalUser THEN _
  23.        ZTalkToModemAt$ = "9600" : _
  24.        ZBaudParity$ = "9600 BAUD,N,8,1" : _
  25.        ZModemInitBaud$ = "9600" : _
  26.        ZSnoop = ZTrue : _
  27.        ZLineFeeds = ZTrue
  28.     CALL SetCrLf
  29.     CALL SetPrompt
  30.     CALL XferType (2,ZTrue)
  31.     IF NOT SubBoard THEN _
  32.        BoardCheckDate$ = PrevLastOn$
  33.     GOSUB 5370                                                       ' KG060101
  34.     IF ZWasA THEN _                                                  ' KG060101
  35.        ZActiveUserName$ = "SYSOP"                                    ' KG060101
  36.     IF ZExitToDoors OR SubBoard THEN _                               ' KG052701
  37.        GOTO 815
  38.     GOSUB 465
  39.     IF (ZEightBit AND _
  40.        ZAutoDownDesired) OR _
  41.        ZAskID THEN _
  42.        CALL TestUser
  43.     CALL QuickTPut1 ("Logging " + ZActiveUserName$)
  44.     CALL Talk (1,ZOutTxt$)
  45.     CALL QuickTPut1 ("RBBS-PC " + ZVersionID$ + " Node " + ZNodeID$ + _  ' DA071701
  46.                 ", operating at " + ZBaudParity$)                    ' DA071701
  47.     CALL SkipLine (1)
  48. * ------[ first line different ]------
  49.     IF NodesInSystem > 1 THEN                                        ' CHAT0805
  50.        CALL LogNewForChat (NodesInSystem)                            ' CHAT0805
  51.     END IF                                                           ' CHAT0805
  52.     Attempts = 0
  53.     ZWasZ$ = ZActiveUserName$ + _                                    ' KG052701
  54.             " on at " + _                                            ' KG052701
  55.             ZCurDate$ + _                                            ' KG052701
  56.             ", " + _                                                 ' KG052701
  57.             ZTime$ + _                                               ' KG052701
  58.             " from " + _                                             ' KG052701
  59.             ZWasCI$ + _                                              ' KG052701
  60.             ", " + _                                                 ' KG052701
  61.             ZBaudParity$                                             ' KG052701
  62.      ZWasNG$ = ZWasZ$ + SPACE$(128 - LEN(ZWasZ$))                    ' KG052701
  63.      MsgUserName$ = LEFT$(ZActiveUserName$+"  ",22)                  ' KG052701
  64. '
  65. ' *  ALWAYS RECORD THE HASH/INDIVIDUATING FIELD TO EACH RECORD LOGGED OUT
  66. '
  67.      WasX$ = "{" + _                                                 ' KG052701
  68.           HashValue$ + _                                             ' KG052701
  69.           "/" + _                                                    ' KG052701
  70.           ZIndivValue$ + _                                           ' RC050901
  71.           "}"                                                        ' KG052701
  72.      IF LEN(ZWasZ$) < 65 THEN _                                      ' KG052701
  73.         WasX = 65 _                                                  ' KG052701
  74.      ELSE WasX = LEN(ZWasZ$) + 2                                     ' KG052701
  75.      MID$(ZWasNG$,WasX) = WasX$                                      ' KG052701
  76.      CALL Printit ("  " + ZWasZ$)                                    ' KG052701
  77.      IF ZNewUser THEN _                                              ' KG052701
  78.         CALL UpdtCalr ("NEWUSER",1) : _                              ' KG052701
  79.         CALL Muzak (2)                                               ' KG052701
  80. '
  81. ' *****  NOTIFY CALLER IF ABLE TO "AUTODOWN"  ****
  82. '
  83.     IF ZEightBit AND ZAutoDownYes THEN _
  84.        ZOutTxt$ = CHR$(9) + _
  85.             ZReturnLineFeed$ + _
  86.             "You may use AUTODOWNLOADing!" : _
  87.        CALL RingCaller : _
  88.        CALL DelayTime(4)
  89. * REPLACING old line(s) by new
  90. 1230 CALL Line25                                                     ' KG081404
  91.      IF ZConfMode THEN _
  92.         ZOutTxt$ = ZConfName$ + ":" : _                              ' KG081702
  93.         GOSUB 12978 : _                                              ' KG081702
  94.         CALL Talk (65,ZConfName$)
  95.      CALL DispTimeRemain (MinsRemaining)                             ' KG081702
  96.      IF ZMenuIndex = 6 THEN _
  97.         ZSubParm = 1 : _
  98.         CALL Library
  99. * ------[ first line different ]------
  100.      CALL CBCheck(WillChat)                                          ' CHAT0814
  101.      CALL SaveUserActivity("I", ZNodeRecIndex, ZFalse)               ' CHAT0813
  102.      CALL Talk (ZMenuIndex, ZOutTxt$)
  103. * REPLACING old line(s) by new
  104. 1235 ZWasZ$ = ZUserIn$(ZAnsIndex)
  105.      IF ZWasZ$ = SPACE$(LEN(ZWasZ$)) THEN _
  106.         GOTO 1230
  107. * ------[ first line different ]------
  108.      IF ZWasZ$ = "CHAT" OR ZWasZ$ = "@" THEN                         ' CHAT0805
  109. * INSERTING new line(s)
  110. 1236    CALL CBTrueChat (NodesInSystem)                              ' CHAT0814
  111.         GOSUB 5344                                                   ' CHAT0805
  112.         GOTO 1230                                                    ' CHAT0805
  113.       ELSE                                                           ' CHAT0805
  114.         CALL SearchCmd (ZSubSection,ZFF)                             ' CHAT0805
  115.      END IF                                                          ' CHAT0805
  116.      IF ZFF < 1 THEN _
  117.         CALL QuickTPut1 ("Unknown command <"+ZWasZ$+">") : _
  118.         CALL FlushKeys : _
  119.         GOTO 1230
  120.      CALL Talk (65,"OPTION "+ZWasZ$+" SELECTED")
  121. * REPLACING old line(s) by new
  122. 1500 IF ZAnsIndex < ZLastIndex THEN _
  123.         GOTO 1510
  124.      ZOutTxt$ = "A)utodwnld   B)ullet  C)ase     F)ile   H)ilite"
  125.      CALL ColorPrompt (ZOutTxt$)
  126.      CALL QuickTPut1 (ZOutTxt$)
  127.      ZOutTxt$ = "L)ine feeds  N)ulls   T)urboKey X)pert  !)bell"
  128.      CALL ColorPrompt (ZOutTxt$)
  129.      CALL QuickTPut1 (ZOutTxt$)
  130. * ------[ first line different ]------
  131.      ZOutTxt$ = "I)nternode chat page availability"                  ' CHAT0805
  132.      CALL ColorPrompt (ZOutTxt$)                                     ' CHAT0805
  133.      CALL QuickTPut1 (ZOutTxt$)                                      ' CHAT0805
  134.      ZOutTxt$ = "Toggle which options on/off?" + ZPressEnter$
  135. * REPLACING old line(s) by new
  136. 1510 ZStackC = ZTrue                                                 ' KG081301
  137.      GOSUB 12930
  138.      IF ZWasQ=0 THEN _
  139.         RETURN
  140.      ZWasZ$ = ZUserIn$(ZAnsIndex)
  141.      CALL AllCaps (ZWasZ$)
  142. * ------[ first line different ]------
  143.      ZFF = INSTR("ABCFHLNTX!I",ZWasZ$)                               ' CHAT0805
  144.      IF ZFF < 1 THEN _
  145.         GOTO 1500
  146.      CALL Toggle (ZFF)
  147.      GOSUB 12997
  148.      GOTO 1500
  149. '
  150. ' ****  I - COMMAND FROM MAIN MENU (DISPLAY INITIAL WELCOME)  ***
  151. '
  152. * REPLACING old line(s) by new
  153. 2100 ZOutTxt$ = "Type " + _
  154.           ZMsgHeader$ + _
  155.           STR$(ZMaxMsgLines) + _
  156.           " lines max" + _
  157.           ZPressEnter$
  158.      GOSUB 12975
  159.      GOSUB 3200
  160. * ------[ first line different ]------
  161.      CALL SaveUserActivity("M", ZNodeRecIndex, ZFalse)               ' CHAT0813
  162. * REPLACING old line(s) by new
  163. 4360 ZWasLG$(11) = ZWasZ$
  164.      NumMsgsSelected = ZLastIndex
  165.      MsgIndex = ZAnsIndex                                            ' KG022701
  166.      ZLastIndex = 0
  167.      ToRequested = ZFalse
  168.      FromRequested = ZFalse
  169.      IF ZPageLength < 1 THEN _
  170.         ZNonStop = ZTrue
  171. * ------[ first line different ]------
  172.      CALL SaveUserActivity("M", ZNodeRecIndex, ZFalse)               ' CHAT0813
  173. * REPLACING old line(s) by new
  174. 5410 CALL Toggle(-9)
  175.      GOSUB 43020
  176.      ZFF = INSTR(ZDefaultXfer$,ZUserXferDefault$)
  177.      CALL Toggle(-5)
  178.      GOSUB 42810
  179.      CALL Toggle(-3)
  180.      CALL Toggle(-6)
  181.      CALL Toggle(-7)
  182.      CALL Toggle(-10)
  183.      CALL Toggle(-2)
  184.      CALL Toggle(-4)
  185.      CALL Toggle(-8)
  186.      CALL Toggle(-1)
  187. * ------[ first line different ]------
  188.      CALL Toggle(-11)                                                ' CHAT0805
  189.      IF ZRestrictByDate AND ZDaysInRegPeriod > 0 THEN _
  190.         IF ZUserSecLevel > ZExpiredSec THEN _
  191.            CALL QuickTPut1 ("Registration expires " + ZExpirationDate$)
  192.      RETURN
  193. '
  194. ' *****  B - COMMAND FROM UTILITY MENU (300 TO 450 BAUD CHANGE)  ****
  195. '
  196. * REPLACING old line(s) by new
  197. 9510 UserOptions = CVI(MID$(ZUserOption$,9,2))
  198.      ZPromptBell = (UserOptions AND 1) > 0
  199.      ZExpertUser = (UserOptions AND 2) > 0
  200.      CALL SetExpert
  201.      ZNulls = (UserOptions AND 4) > 0
  202.      ZUpperCase = (UserOptions AND 8) > 0
  203.      ZLineFeeds = (UserOptions AND 16) > 0
  204.      ZCheckBulletLogon = (UserOptions AND 32) > 0
  205.      ZSkipFilesLogon = (UserOptions AND 64) > 0
  206.      ZAutoDownDesired = (UserOptions AND 128) > 0
  207.      ZReqQuesAnswered = (UserOptions AND 256) > 0
  208.      ZMailWaiting = (UserOptions AND 512) > 0
  209.      WasX = (UserOptions AND 1024 ) > 0
  210.      CALL SetHiLite (NOT WasX)
  211.      IF NOT ZHiLiteOff THEN _
  212.         CALL QuickTPut (ZEmphasizeOff$,0)
  213.      ZTurboKeyUser = (UserOptions AND 2048) > 0
  214.      ZTurboKey = ZFalse
  215. * ------[ first line different ]------
  216.      ZAvailableForChat = (UserOptions AND 4096) > 0                  ' CHAT0805
  217.      GOSUB 11480
  218.      ZPageLength = ASC(MID$(ZUserOption$,13,1))
  219.      IF SubBoard THEN _
  220.         GOTO 9520
  221.      WasX$ = ZEchoer$
  222.      ZEchoer$ = MID$(ZUserOption$,14,1)
  223.      IF INSTR("ICR",ZEchoer$) = 0 THEN _
  224.         ZEchoer$ = "R"
  225.      IF WasX$ <> ZEchoer$ THEN _
  226.         GOSUB 9525
  227.      CALL SetEcho (ZEchoer$)
  228. * REPLACING old line(s) by new
  229. 9800 CALL WhosOn (NodesInSystem)
  230. * ------[ first line different ]------
  231.      CLOSE 9                                                         ' CHAT0813
  232.      GOSUB 5344
  233.      RETURN
  234. '
  235. ' *  1 - COMMAND FROM SYSOP MENU (DISPLAY COMMENTS)
  236. '
  237.