	LOGICAL B1,B2,B3,B4,B5,B6,B7,B8,B9
      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 DISPLY (0,4000,IGET)
	CALL BUTTON(1)
      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
	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
61    B1=.FALSE.
      B2=.FALSE.
      B3=.FALSE.
      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)
10    CALL BUTTON(3,B1,B2,B3,B4,B5,B6,B7,B8,B9)
60    CALL BUTTON(2,B1,B2,B3,B4,B5,B6,B7,B8,B9)
	IF(B1) GO TO 71
	IF(B2) GO TO 72
	IF(B3) GO TO 73
	GO TO 10
71    CALL ZOOM(IDS,IDL,DIST)
	GO TO 61
72    CALL CENA(IDS,IDL,DIST)
	GO TO 61
73    CALL OBJA(EX,EY,EZ,IDS,IDL,DIST)
	GO TO 61
74     B4=.FALSE.
	STOP
	END
