SUBROUTINE VEKTOR(JX1,JY1,JX2,JY2)
C SCHREIBT EINEN VEKTOR VON JX1,JY1 NACH JX2,JY2
C FORTRAN II
C SR : FDIS.FT
	CALL FDIS(0,JX1,JY1)
	CALL FDIS(1,JX2,JY2)
	RETURN
	END