'!!!!!!!!!! BACK UP your OLD version FIRST !!!!!!!
'        (just incase Murrpy Striks)   
'
'This mod will force the Bulletins on NEW users after they register
'the mods are for Maple Street version of RBBS 17D but can be used
'for other versions with little modification...
' ALL mods are in RBBS-PC.BAS and you must
' answer  NO to CONFIG if Bullits are Optional
'
' Pete Eibl <Maple Street BBS 414-771-2805 1200-9600 HST>
'
'ps just use the Cut and Paste feature in your Editor to replace this code
855 CALL ASKMORE ("",TRUE,TRUE,X,TRUE)
'*******************************************************************
    IF NOT BULLETINS.OPTIONAL THEN _
       GOTO 860                     'Pe 07/31/89 code from RBBS 15a
'********************************************************************
    IF BULLETINS.OPTIONAL AND NOT NEW.USER THEN _
       GOTO 856
    STOP.INTERRUPTS = TRUE
    NEW.USER = FALSE
    GOSUB 9700
    STOP.INTERRUPTS = FALSE
    GOTO 900
856  IF NOT CHECK.BULLETIN.LOGON THEN _
       ANS.INDEX = 0 : _
       GOSUB 9760 : _
       GOTO 900
    CALL SKIPLINE (1)
    A$ = "Skip the  bulletins (Y,[N])"
    GOSUB 12999
    IF YES THEN _
       GOTO 900
860 'NEW.USER = FALSE    'Pe 07/31/89
    GOSUB 9700
    NEW.USER = FALSE     'Pe 07/31/89
'
'
'       Skip to Next line # .........
'
'
9700 RETURN.ON$ = "N"
     A1$ = BULLETIN.MENU$
'*********************************** Pe 07/31/89
9701 IF NEW.USER THEN _
      CALL SUBMENU ("Read what bulletin(s), L)ist, N)ew ([ENTER] = NEW)",_
                   A1$, BULLETIN.PREFIX$,"",RETURN.ON$,_
                   USER.GRAPHIC.DEFAULT$,FALSE,FALSE,FALSE,"") _
ELSE _
    CALL SUBMENU ("Read what bulletin(s), L)ist, N)ew ([ENTER] = None)",_
                   A1$, BULLETIN.PREFIX$,"",RETURN.ON$,_
                   USER.GRAPHIC.DEFAULT$,FALSE,FALSE,FALSE,"")
IF NEW.USER and Q = 0 THEN _
   Z$ = "N" _
ELSE _
     IF NOT NEW.USER AND Q = 0 THEN _
        RETURN
     IF SUBROUTINE.PARAMETER = -1 THEN _
        RETURN 10595
     IF Z$ = "N" THEN _
        GOTO 9760
     STOP.INTERRUPTS = FALSE
     CALL BUFFILE (FILE.NAME$,ANS.INDEX)
     CALL UPDTCALR ("Read bulletin " + FILE.NAME$,1)
'****************************************************** Pe 07/31/89
9703 ANS.INDEX = ANS.INDEX + 1
     IF ANS.INDEX > LAST.INDEX THEN _
        ANS.INDEX = 0
     GOTO 9701
'
' *  CHECK AND REVIEW NEW BULLETINS SINCE LAST LOGON
'
9750 CALL QTPUT ("Checking for NEW bulletins...Stand by....",1)	'BK011301
     CALL CHKNEWBUL (BOARD.CHECK.DATE$,NUM.NEW.BULLETS,NEW.BULLETS$)
     CALL SKIPLINE (1)
     A$ = STR$(NUM.NEW.BULLETS) + _
          " NEW BULLETIN(S) since last call" + _
          NEW.BULLETS$
     GOSUB 12979
     RETURN
9760 ' ****  [entry when want review plus chance to read] *********
     GOSUB 9750
'*****************************************************
'
   IF NEW.USER  THEN _
      NEW.USER = FALSE : _
        LAST.INDEX = Q : _
           ANS.INDEX = 2: _
           GOTO 9700 _
ELSE _
     IF NUM.NEW.BULLETS > 0 THEN _
        LAST.INDEX = Q : _
        A$ = "READ ALL new bulletins ([Y],N)" : _
        GOSUB 12999 : _
        IF NOT NO THEN _
           ANS.INDEX = 2: _
           GOTO 9700
     IF ANS.INDEX < 1 THEN _
        RETURN _
     ELSE ANS.INDEX = 0 : _
          GOTO 9701
'*********************************************
' *  W - COMMAND FROM MAIN MENU (WHO'S ON THE OTHER NODES)
'
9800 CALL WHOSON (NODES.IN.SYSTEM)