SUBROUTINE PUNKT(IX,IY)
C DARSTELLUNG EINES PUNKTES (MITTELPUNKT IX,IY)
C FORTRAN II
C SR : FDIS.FT
	CALL FDIS(-1,IX,IY)
	IX=IX-1
	CALL FDIS(-1,IX,IY)
	IX=IX+2
	CALL FDIS(-1,IX,IY)
	IX=IX-1
	IY=IY+1
	CALL FDIS(-1,IX,IY)
	IY=IY-2
	CALL FDIS(-1,IX,IY)
	IY=IY+1
	RETURN
	END