SUBROUTINE MapGroup(List, Level)
LastUpdated... = "Rev: 16:01 10NOV89 ANDREW <COMDE2>EMAIL 160 Z <COMDE2>EMAIL>BP>MAPGROUP"
     UserFile = ""
     Error = ""
     CALL OPEN('','EMAIL.USERS', UserFile, Error)
     IF Error THEN
        CRT "Unable to open EMAIL.USERS file.  (RESOLVEUSERLIST)"
        RETURN
     END
     More = LEN(List) GT 0
     LOOP WHILE More
        REMOVE Id FROM List SETTING More
        READ UserRec FROM UserFile, Id THEN
           Sep = SPACE(3*(Level-1))
           PL = Sep:ID:CHAR(9):Sep:UserRec<1>
           IF LEN(UserRec<11>) NE 0 THEN
              PL := ", ":UserRec<11>
           END
           PRINT PL
           IF UserRec<6> THEN
              Dummy = ""
              CALL MAPGROUP(UserRec<6>, Level+1)
           END
        END
     REPEAT
     RETURN
  END