SET DEFAULT TO d:\zoovet\baze

USE roba ALIAS roba IN 0
SELECT roba
SET ORDER TO tag sifrob
GOTO top
a1=roba.sifrob
SKIP
DO WHILE !EOF()
a2=roba.sifrob
IF a1=a2
	?a1,a2
	delete
ENDIF
a1=a2
SKIP
ENDDO
	