home *** CD-ROM | disk | FTP | other *** search
/ Monster Disc 2: The Best of 1992 / MONSTER1.ISO / bbs / rbbs / edit174.zip / RSB5ETOG.MRG < prev   
Text File  |  1992-07-05  |  3KB  |  70 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBSSUB5.BAS to produce RSB5ETOG.BAS
  3. * RBBSSUB5.BAS:  Date 4-4-1992  Size 134014 bytes
  4. * ------------[ Created 04-04-1992 19:26:19 ]------------
  5. * REPLACING old line(s) by new
  6. 63630 ' * Sets the user preferences based on user record.
  7.       ' * Formerly in RBBS-PC.BAS
  8.       SUB SetUserPref STATIC
  9.       IF ZWasA THEN _
  10.          ZUserSecLevel = ZSysopSecLevel _
  11.       ELSE ZUserSecLevel = CVI(ZSecLevel$)
  12.       ZBankTime = ASC(ZBankTime$)
  13.       ZLastMsgRead = CVI(MID$(ZUserOption$,3,2))
  14.       ZUserXferDefault$ = MID$(ZUserOption$,5,1)
  15.       IF ZUserXferDefault$ = " " THEN _
  16.          ZUserXferDefault$ = "N"
  17.       CALL XferType (2,ZTrue)
  18.       WasX = ASC(MID$(ZUserOption$,6,1))
  19.       ZWasGR = (WasX MOD 3)
  20.       ZBoldText$ = CHR$(48 - (WasX > 50))
  21.       ZUserTextColor = (WasX - ZWasGR)/3 + 21
  22.       IF ZUserTextColor > 37 THEN _
  23.          ZUserTextColor = ZUserTextColor - 7
  24.       IF ZEmphasizeOff$ <> "" THEN _
  25.          CALL QuickTPut (ZColorReset$,0)
  26.       IF ZEmphasizeOnDef$ <> "" THEN _
  27.          ZEmphasizeOff$ = ZEscape$ + "[" + ZBoldText$ + ";40;" + MID$(STR$(ZUserTextColor),2) + "m" _
  28.       ELSE ZEmphasizeOff$ = ""
  29.       IF ZWasGR = 1 AND NOT ZEightBit THEN _
  30.          ZWasGR = 0
  31.       CALL SetGraphic (ZWasGR)
  32.       ZRightMargin = CVI(MID$(ZUserOption$,7,2))
  33.       IF ZRightMargin > 72 THEN _
  34.          ZRightMargin = 72
  35.       IF NOT ZConfMode THEN _
  36.          ZWasCI$ = ZCityState$ : _
  37.          CALL Trim (ZWasCI$)
  38.       UserOptions = CVI(MID$(ZUserOption$,9,2))
  39.       ZPromptBell = (UserOptions AND 1) > 0
  40.       ZExpertUser = (UserOptions AND 2) > 0
  41.       CALL SetExpert
  42.       ZNulls = (UserOptions AND 4) > 0
  43.       ZUpperCase = (UserOptions AND 8) > 0
  44.       ZLineFeeds = (UserOptions AND 16) > 0
  45.       ZCheckBulletLogon = (UserOptions AND 32) > 0
  46.       ZSkipFilesLogon = (UserOptions AND 64) > 0
  47.       ZAutoDownDesired = (UserOptions AND 128) > 0
  48.       ZReqQuesAnswered = (UserOptions AND 256) > 0
  49.       ZMailWaiting = (UserOptions AND 512) > 0
  50.       WasX = (UserOptions AND 1024 ) > 0
  51.       CALL SetHiLite (NOT WasX)
  52.       IF NOT ZHiLiteOff THEN _
  53.          CALL QuickTPut (ZEmphasizeOff$,0)
  54.       ZTurboKeyUser = (UserOptions AND 2048) > 0
  55.       ZTurboKey = ZFalse
  56.       ZFileWaiting = (UserOptions AND 4096) > 0
  57. * ------[ first line different ]------
  58.       ZFullScreenEditor = (UserOptions AND 8192) > 0                 ' ET070501
  59.       CALL SetRegDisplay
  60.       ZPageLength = ASC(MID$(ZUserOption$,13,1))
  61.       IF ZSubBoard THEN _
  62.          GOTO 63632
  63.       WasX$ = ZEchoer$
  64.       ZEchoer$ = MID$(ZUserOption$,14,1)
  65.       IF INSTR("ICR",ZEchoer$) = 0 THEN _
  66.          ZEchoer$ = "R"
  67.       IF WasX$ <> ZEchoer$ THEN _
  68.          CALL ReportEcho
  69.       CALL SetEcho (ZEchoer$)
  70.