IDENTIFICATION DIVISION.
       PROGRAM-ID. DEPT.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  DEPTCHAIR   PIC X(50) VALUE SPACES.
       01  DEPT        PIC X(30) VALUE SPACES.
       01  CHAIR       PIC X(20) VALUE SPACES.
       01  ROOM        PIC XXXX  VALUE SPACES.
       01  POINTERS.
           05  LEN-DEPT        PIC 99   VALUE 0.
           05  LEN-CHAIR       PIC 99   VALUE 0.
           05  START-CHAIR     PIC 99   VALUE 0.
           05  START-ROOM      PIC 99   VALUE 0.
       01  INDICATORS.
           05  IND-DONE            PIC X    VALUE SPACES.
       PROCEDURE DIVISION.
       MAINLINE.
           PERFORM B-100-SEPARATE.
	   STOP RUN.
       B-100-SEPARATE.
          DISPLAY "ENTER DEPT/CHAIR*ROOM: ".
           ACCEPT DEPTCHAIR.
           MOVE 0 TO LEN-DEPT LEN-CHAIR.
           INSPECT DEPTCHAIR
               TALLYING LEN-DEPT FOR CHARACTERS BEFORE INITIAL "/".
           ADD 2 LEN-DEPT
               GIVING START-CHAIR.
           INSPECT DEPTCHAIR
               TALLYING LEN-CHAIR FOR CHARACTERS BEFORE INITIAL "*".
           ADD 2 LEN-CHAIR
               GIVING START-ROOM.
           COMPUTE LEN-CHAIR=LEN-CHAIR - (LEN-DEPT + 1).
           MOVE DEPTCHAIR(1:LEN-DEPT) TO DEPT.
           MOVE DEPTCHAIR(START-CHAIR:LEN-CHAIR) TO CHAIR.
           MOVE DEPTCHAIR(START-ROOM:4) TO ROOM.
           DISPLAY "DEPARTMENT: " DEPT.
           DISPLAY "CHAIR PERSON: " CHAIR.
           DISPLAY "OFFICE: " ROOM.
           ACCEPT IND-DONE.