
CLEAR
SET DELETED ON
USE kupdob ALIAS kupdob IN 0
SET ORDER TO KUPDOB   && KUPDOB
GOTO TOP
A1=kupdob.kupdob
SKIP
DO WHILE !EOF()
A2=kupdob.kupdob
IF A1=A2
	delete
	?a1,kupdob.naziv
ENDIF
A1=A2	
SKIP
ENDDO

