DIMENSION IBUF(40)
 10   READ (5, 100, END=20)  IBUF
 100  FORMAT (40A2)
      IPS = 1
 36   CONTINUE
      CALL CLSA2 (IBUF, ITYPE, IPS, IPE)
      WRITE (6, 200) IBUF, ITYPE, IPS, IPE
      IF (ITYPE.NE.9) GO TO 37
      IPS = IPE
      GO TO 36
 37   CONTINUE
 200  FORMAT (' '40A2/' TYPE='I3,5X,'IPS-IPE=',I2,'-',I2)
      GO TO 10
 20   CALL EXIT
      END