SET DEFAULT TO \\galileo\2009\ro2009\baze
OPEN DATABASE belcar SHARED

USE brojac ALIAS brojac SHARED IN 0
USE magacin ALIAS magacin SHARED IN 0

SELECT magacin
GOTO top
DO WHILE !EOF()
a1=magacin.magacin

SELECT brojac
APPEND BLANK
replace brojac.magacin WITH a1

SELECT magacin
SKIP
ENDDO
RETURN
