C               MAIN FOR DSPL BRTHX ONLY.USE BRTHX,
C		DSPLX,TRANSX AND PFTRNS ONLY
        COMMON IBUFF(255),DUMI(85),MANU,IBLK
        COMMON/BLK1/VOLN(250),VOLX(250),FLON(260),FLOX(260),PRSN(250)
        COMMON/BLK2/PRSX(250)
        COMMON/BLK3/INEG,IPOS,IDIM,ITMP,IDIM1,IPAS,ISTOP,IREC
        COMMON/BLK4/HOLD(30),K,X,Y,APOS,J,IBR
	IBR=0
        IBLK=0
        IPAS=0
  10    WRITE(4,20)
  20	FORMAT('  MANU,RATE,CP,CV,CF',$)
	READ(4,30)MANU,RATE,CP,CV,CF
  30    FORMAT(I2,4(1X,E13.4))
  40	CALL BRTHX
	CALL DSPLX
	IBR=IBR+1
	WRITE(4,50)IBR
  50	FORMAT(1X,' BREATH',I3,' OK?')
	PAUSE 1
  100	IF(IBLK.LT.16)GO TO 40
        STOP
        END