SUBROUTINE KREIS(IX,IY)
C SCHREIBT EINEN KREIS UM DEN MITTELPUNKT IX,IY
C MIT ETWA 3 MM DURCHMESSER
C FORTRAN II
C SR : FDIS.FT
	IX=IX-3
	CALL FDIS(0,IX,IY)
	IX=IX+1
	IY=IY+2
	CALL FDIS(1,IX,IY)
	IX=IX+2
	IY=IY+1
	CALL FDIS(1,IX,IY)
	IX=IX+2
	IY=IY-1
	CALL FDIS(1,IX,IY)
	IX=IX+1
	IY=IY-2
	CALL FDIS(1,IX,IY)
	IX=IX-1
	IY=IY-2
	CALL FDIS(1,IX,IY)
	IX=IX-2
	IY=IY-1
	CALL FDIS(1,IX,IY)
	IX=IX-2
	IY=IY+1
	CALL FDIS(1,IX,IY)
	IX=IX-1
	IY=IY+2
	CALL FDIS(1,IX,IY)
	IX=IX+3
	RETURN
	END