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