C FLY WRITE
	LOGICAL B1,B2,B3,B4,B5,B6,B7,B8,B9,B10
	LOGICAL T,F
	DIMENSION LIST(10)
	COMMON/LIMITS/XMIN,XMAX,YMIN,YMAX
	COMMON/OIL/IVECT(1000)
	COMMON/PAINT/I2STRT,I2END,PICT(4,200)
	COMMON/BULK/I3STRT,I3END,O(6,200)
	COMMON/EYCEP/EYE(3),CENTRE(3),UP(3)
	DATA VEL/5.0/,DISTAN/350.0/,HIGH,SID/0.0,0.0/
	DATA T/.TRUE./,F/.FALSE./,ITAG/1/
C
	CALL CLEAR (.FALSE.)
	READ (5,10) N
	WRITE (4,10) N
	READ (5,11) ((O(I,J),I=1,6),J=1,N)
10	FORMAT (I4)
11	FORMAT (6F10.2)
C
	I2STRT=1
	I3STRT=1
	I3END=N
C
	XMIN=(-80.0)
	XMAX=80.0
	YMIN=XMIN
	YMAX=XMAX
C
	EYE(1)=0.0
	EYE(2)=5.0
	EYE(3)=500.0
	CENTRE(2)=5.0
	UP(2)=15.0
	RADIAN=3.1415926/180.
C
100	CALL INPUT (3,36,LIST,F,T)
	XDEL=(LIST(1)-1040)/300
	ZDEL=(LIST(2)-1020)/300
	XCEN=(LIST(3)-1020)/300
C
1	EYE(1)=EYE(1)+XDEL
	EYE(3)=EYE(3)+ZDEL
C
	XD=CENTRE(1)-EYE(1)
	ZD=CENTRE(3)-EYE(3)
	ANG=-XCEN*RADIAN
	SINE=SIN(ANG)
	COSINE=COS(ANG)
	CENTRE(1)=(XD*COSINE+ZD*SINE)+EYE(1)
	CENTRE(3)=(ZD*COSINE-XD*SINE)+EYE(3)
C
	UP(1)=CENTRE(1)
	UP(3)=CENTRE(3)
C
	CALL ROTER
	CALL MAPPER (250.0)
	CALL VECTOR(1,PICT,1,I2END,IVECT,1,LAST,7,1,F)
	CALL DISPLY (6,ITAG+1,IVECT,1,LAST)
	CALL DISPLY (3,ITAG)
	ITAG=ITAG+1
C
	GO TO 100
2	CONTINUE
	STOP
	END
