SET DEFAULT TO d:\robno\baze
OPEN DATABASE belcar SHARED

USE kupdob IN 0	
SET ORDER TO tag kupdob

USE zagfak IN 0

SELECT zagfak
GOTO top
DO WHILE !EOF()
mkup=zagfak.kupdob
SELECT kupdob
GOTO top
SEEK mkup
IF FOUND()
	replace zagfak.nakom WITH kupdob.naziv
ENDIF
SELECT zagfak
SKIP
ENDDO
	