*DECK S$NEWGR 
          FUNC  S$NEWGR  I; 
  
#**       S$NEWGR -  VALUE FOR NEW GROUP                               #
#                                                                      #
#     CALLING SEQUENCE-                                                #
#         ... = S$NEWGR                                                #
#                                                                      #
#     DOES-                                                            #
#         RETURNS WITH S$NEWGR SET WITH THE VALUE OF A UNIQUE GROUP    #
#           NUMBER.                                                    #
  
  
          BEGIN 
  
          ITEM  GROUP        I = 0; 
  
CONTROL DISJOINT; 
  
CONTROL INERT;
  
CONTROL EJECT;
  
          GROUP = GROUP + 1;           # GET NEW GROUP NUMBER          #
          S$NEWGR = GROUP;             # RETURN WITH NEW GROUP NUMBER  #
  
          END  # S$NEWGR #
          TERM
