	LOGICAL LP
      COMMON/EYCEP/EYE(3),CEN(3),UP(3)
      COMMON/BULK/I3STRT,I3END,OBJ(6,30)
      COMMON/PAINT/I2STRT,I2END,PIC(4,30)
      COMMON/OIL/IVECT(200)
      COMMON/LIMITS/XMIN,XMAX,YMIN,YMAX
	DATA IDS,IDL/2,1/
      DATA FORM, F2/5H(1X,4,5HF5.1)/
      DATA EYEFOR,D1,D2/5H(1X,1,5H9HEYE,5H1 EYE/
      DATA D3,D4,D5/5H2 EYE,5H3 DIS,2HT)/
      DATA CENFOR,C1,C2/5H(1X,1,5H9HCEN,5H1 CEN/
      DATA C3,C4,C5/5H2 CEN,5H3 DIS,2HT)/
      DATA OBJFOR,O1,O2/5H(1X,1,5H9H EX,5H   EY/
      DATA O3,O4,O5/5H   EZ,5H  DIS,2HT)/
      CALL CLEAR(.TRUE.)
	CALL SETPEN(ITAG,LP,IX,IY)
      I3STRT=1
      I3END=18
      XMIN=-5.0
      XMAX=5.0
      YMIN=-5.0
      YMAX=5.0
      READ(7,501)((OBJ(I,J),I=1,6),J=1,6)
 501  FORMAT (6F5.1)
	EYE(1)=0.0
      EYE(2)=0.0
      EYE(3)=10.0
      CEN(1)=0.0
      CEN(2)=0.0
      CEN(3)=0.0
      UP(1)=0.0
      UP(2)=10.0
      UP(3)=0.0
      DIST=8.0
      I2STRT=1
      I2END=18
	ITAG=1
	EX=0.0
	EY=0.0
	EZ=0.0 
	CALL ROTER
      CALL MAPPER(DIST)
      CALL VECTOR(1,PIC,I2STRT,I2END,IVECT,1,LAST,7,0,0)
      CALL DISPLY(6,IDL,IVECT,1,LAST)
      CALL DISPLY(6,IDS,IVECT,1,LAST)
      CALL DISPLY(3,IDL)
      IH=IDS
      IDS=IDL
      IDL=IH
6     CALL TEXT(0,0,0,0,0)
      CALL TEXT(100,100,7,1,EYEFOR)
      CALL TEXT(100,50,7,1,FORM,EYE(1),EYE(2),EYE(3),DIST)
      CALL TEXT(100,200,7,1,CENFOR)
      CALL TEXT(100,150,7,1,FORM,CEN(1),CEN(2),CEN(3),DIST)
      CALL TEXT(100,300,7,1,OBJFOR)
      CALL TEXT(100,250,7,1,FORM,EX,EY,EZ,DIST)
	LP=.FALSE.
1     IF(.NOT.LP) GO TO 1
	IF(IY.GT.240) GO TO 4
	IF(IY.GT.140) GO TO 3
	IF(IY.GT.40) GO TO 2
2     CALL ZOOM(IDS,IDL,DIST)
	GO TO 6
3     CALL CENA(IDS,IDL,DIST)
	GO TO 6
4     CALL OBJA(EX,EY,EZ,IDS,IDL,DIST)
	GO TO 6
	STOP
	END
