* ------------[ BLED merge (c) Ken Goosens ]-------------
* Merge this against RBBS-PC.BAS to produce D:\LITE\RBBS-PC.BAS
* RBBS-PC.BAS:  Date 10-12-1988  Size 138779 bytes
* ------------[ Created 10-26-1988 19:26:06 ]------------
* REPLACING old line(s) by new
* ------[ first line different ]------
11110 A$ = "D)elete,  F)ind,  M)enu,  N)ew pwd,  P)rint,  R)eset graphics,"+CRLF$ 'USRBYTE MOD
      A$ = A$ + "Q)uit,  S)ecurity, U)ploads/downloads,  #)user , T)ime used" 'USRBYTE MOD
        IF RESTRICT.BY.DATE THEN _
           A$ = A$ + _
                ",$)RegDate"
        GOSUB 12999
        IF NOT SCAN.USERS AND Q = 0 THEN _
           GOTO 11310
* REPLACING old line(s) by new
11115   Z$ = LEFT$(B$(1),1)
        CALL ALLCAPS (Z$)
* ------[ first line different ]------
        X = INSTR("DNPQFSMRU$T#",Z$)
        IF Z$ = "" AND SCAN.USERS THEN _
           GOTO 12965
ON X GOTO 11130,11160,11220,11320,11340,11390,11330,11400,11410,11450,11420,11127
* REPLACING old line(s) by new
11400 LSET USER.OPTIONS$ = LEFT$(USER.OPTIONS$,5) + _
                           "0" + _
                           MID$(USER.OPTIONS$,7)
      GOTO 11290
* ------[ first line different ]------
'*************************************************************
'* U - COMMAND FROM 5 CHANGE UPLOADS AND DOWNLOADS           *
'*************************************************************
'
* INSERTING new line(s)
11410 A$ = "Enter NEW value for uploads, press (ENTER) for no change"
      GOSUB 12995
      IF Q = 0 THEN _
      GOTO 11412
      LSET USER.UPLOADS$ = MKI$(VAL(B$(1)))
11412 A$ = "Enter NEW # of Upload bytes, press (ENTER) for no change"
      GOSUB 12995
      IF Q = 0 THEN _
      GOTO 11414
      LSET UL.BYTES$ = MKS$(VAL(B$(1)))
11414 A$ = "Enter NEW value for downloads, press (ENTER) for no change"
      GOSUB 12995
      IF Q = 0 THEN _
      GOTO 11415
      LSET USER.DOWNLOADS$ = MKI$(VAL(B$(1)))
11415 A$ = "Enter NEW # of Download bytes, press (ENTER) for no change"
      GOSUB 12995
      IF Q = 0 THEN _
      GOTO 11290
      LSET DL.BYTES$ = MKS$(VAL(B$(1)))
      GOTO 11290
'
'*****************************************************************
'* T - COMMAND FROM 5---CHANGE TIME LEFT                         *
'*****************************************************************
11420  A$ = CRLF$ + "Enter new value for Time used, press (ENTER) for no change"
      GOSUB 12995
      IF Q = 0 THEN _
      GOTO 11290
      LSET ELAPSED.TIME$ = MKI$(VAL(B$(1)))
      GOTO 11290
'
' *****************************************************************************
'
' *  $ - COMMAND FROM 5 - USER MAINTENANCE (CHANGE REGISTRATION DATE)         *
'