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 / R-PCNTKE.MRG < prev    next >
Text File  |  1992-06-25  |  3KB  |  72 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBS-PC.BAS to produce R-PCNTKE.BAS
  3. * RBBS-PC.BAS:  Date 6-20-1992  Size 147219 bytes
  4. * ------------[ Created 06-25-1992 19:24:11 ]------------
  5. * REPLACING old line(s) by new
  6. * ------[ first line different ]------
  7. 760 ZLastIndex = 0                                                   
  8.     GOSUB 755
  9.     CALL AllCaps (ZWasZ$)
  10.     LSET ZPswd$ = ZWasZ$
  11.     CALL QuickTPut1 ("Please REMEMBER your password")
  12.     ZUserTextColor = 37
  13.     ZTempSecLevel = ZUserSecLevel
  14.     CALL Protocol
  15.     ZUserXferDefault$ = "N"
  16.     ZProtoPrompt$ = "None"
  17.     IF ZNewUserSetsDefaults THEN _
  18.        ZBypassTimeCheck = ZTrue : _
  19.        GOSUB 43000 : _
  20.        ZBypassTimeCheck = ZFalse : _
  21.        CALL Graphic (ZFileName$) : _                                 
  22.        GOSUB 42805 :  _
  23.        GOSUB 42700 _
  24.     ELSE ZUpperCase = ZFalse : _                                     
  25.          ZNulls = ZFalse
  26.     ZPageLength = ZPageLengthDef
  27.     CALL SetNewUserDef                                               
  28.     GOSUB 5135
  29.     CALL DefaultU
  30. * REPLACING old line(s) by new
  31. * ------[ first line different ]------
  32. 4240 CALL Toggle(8)                             ' BC-NTKE1
  33.      RETURN
  34. '
  35. ' ****  T)opic - QUICK SCAN MESSAGES  ***
  36. '
  37. * REPLACING old line(s) by new
  38. * ------[ first line different ]------
  39. 5410 CALL Toggle(-8)                             ' BC-NTKE1
  40.      GOSUB 43020
  41.      ZFF = INSTR(ZDefaultXfer$,ZUserXferDefault$)
  42.      CALL Toggle(-5)
  43.      GOSUB 42810
  44.      CALL Toggle(-3)
  45.      CALL Toggle(-6)
  46.      CALL Toggle(-7)
  47.      CALL Toggle(-9)                             ' BC-NTKE1
  48.      CALL Toggle(-2)
  49.      CALL Toggle(-4)
  50. '     CALL Toggle(-8)                             ' BC-NTKE1
  51.      CALL Toggle(-1)
  52.      IF ZRestrictByDate AND ZDaysInRegPeriod > 0 THEN _
  53.         IF ZUserSecLevel > ZTempExpiredSec THEN _                    
  54.            CALL QuickTPut1 ("Registration expires " + ZExpirationDate$)
  55.      RETURN
  56. '
  57. ' *****  B - COMMAND FROM UTILITY MENU (Bank Time)  ****
  58. '
  59. * REPLACING old line(s) by new
  60. * ------[ first line different ]------
  61. 42700 CALL SkipLine(1)
  62. '      CALL QuickTPut1 ("TurboKey: act on 1 char command without waiting for [ENTER]")   ' BC-NTKE1
  63. '      ZOutTxt$ = "Use TurboKey (Y,[N])"                             ' BC-NTKE1
  64. '      GOSUB 12999                             ' BC-NTKE1
  65. '      ZTurboKeyUser = NOT ZYes                         ' BC-NTKE1
  66. '      CALL Toggle (8)                             ' BC-NTKE1
  67.       RETURN
  68. '
  69. ' *  F - COMMAND FROM UTILITY MENU (FILE Transfer DEFALUT MODE)
  70. ' *  FILE Transfer DEFAULT SET FOR NEW USERS
  71. '
  72.