OPEN DATABASE d:\2019\baze\str 
USE zagkalk alias zagkalk in 0
USE kalkstav alias kalkstav in 0
SELECT zagkalk
GOTO top
DO while !EOF()
	a1=zagkalk.brdok
	a2=zagkalk.proba
	SELECT kalkstav
	GOTO top
	REPLACE all brdok with a2 for brdok==a1
	SELECT zagkalk
SKIP
ENDDO
RETURN
		
