	subroutine zpunkt(ready)
#
#	Bestimmung des naechsten Zentralpunkts
#
# Die Routine liefert den naechsten Zentralpunkt im Common-Block zpunkt.
# Falls das Suchschema abgearbeitet ist, ist ready=true, sonst ready=false.
#
# Externe Routinen:
# Name		File,Bibliothek
# getpix	SUBS		holt Pixel aus Originalbild
# getflg	SUBS		holt Pixel aus Flag-Feld
#
# Version 0.1	15.05.85
#
logical	ready,show
#
byte	g		# Grauwert
byte	char		# Einzelzeichen
byte	getpix,getflg
#
integer	zx,zy		# Zentralpunkt-Koord.
integer kx,ky		# Koord. des naechsten Kandidaten
integer	dx,dy		# Inkremente des Suchschemas
integer	xanz,yanz	# tatsaechl.Bildgrenzen
#
common	/zpunkt/zx,zy,kx,ky,dx,dy
common	/bild/xanz,yanz
common	/flags/show
#
#	Dummy-Routine
#
write(1,10) 
10 format(' ZPUNKT - zx,zy ')
read(1,11) zx,zy
11 format(2i4)
if (zx==0 && zy==0) ready=.true.
else ready=.false.
#
if (show) write(1,90) zx,zy
90 format(' Zentralpunkt',2i4,/)
return
end
