SUBROUTINE DSPL
        COMMON IBUFF(255),DUMI(85),MANU,IBLK,CP,CV,CF
        COMMON/BLK1/VOLN(100),VOLX(100),FLON(110),FLOX(110),PRSN(100)
        COMMON/BLK2/ACCN(100),ACCX(100),PRSX(100)
        COMMON/BLK3/INEG,IPOS,IDIM,ITMP,IDIM1,IPAS,ISTOP,IREC
        COMMON/BLK4/HOLD(30),K,BUFF(1400),X,Y,APOS,J
	COMMON/BLK5/AMAT(5,5),COEF(4),COV(5,5),COR(5,5),A21(4)
	COMMON/BLK6/SD(5),A12(4),CEPT,DET,EPS,SX(5),SXY(5),SY
	CALL CLRPLT(900,BUFF)
	APOS=FLOAT(ITMP+IDIM)
  5	DO 10 I=1,ITMP
	X=I
	Y=VOLN(I)
	CALL SCALE(1.,-1024.,APOS,2048.)
	CALL PLOT(1,X,Y)
	Y=FLON(I)
	CALL SCALE(1.,-2560.,APOS,512.)
	CALL PLOT(1,X,0.0)
	CALL PLOT(1,X,Y)
	Y=PRSN(I)
	CALL SCALE(1.,-512.,APOS,2560.)
	CALL PLOT(1,X,0.0)
  10	CALL PLOT(1,X,Y)
	DO 20 I=1,IDIM
	X=ITMP+I
	Y=VOLX(I)
	CALL SCALE(1.,-1024.,APOS,2048.)
	CALL PLOT(1,X,Y)
	Y=FLOX(I)
	CALL SCALE(1.,-2560.,APOS,512.)
	CALL PLOT(1,X,0.0)
	CALL PLOT(1,X,Y)
	Y=PRSX(I)
	CALL SCALE(1.,-512.,APOS,2560.)
	CALL PLOT(1,X,0.0)
  20	CALL PLOT(1,X,Y)
	IPOS=0
	CALL SSW(5,IPOS)
	IF(IPOS.GT.0)GO TO 30
	GO TO 5
  30	IPOS=0
	CALL SSW(0,IPOS)
	IF(IPOS.GT.0)GO TO 50
  40	IPOS=0
	CALL CLRPLT(900,BUFF)
	RETURN
  50	IPOS=1
	CALL CLRPLT(900,BUFF)
	RETURN
	END