select atlase

local pag
scan
pag=aps
if kv<10
	pag=pag+"00"+alltrim(str(kv))
endif
if kv<100 and kv>9
	pag=pag+"0"+alltrim(str(kv))
endif
if kv>99
	pag=pag+alltrim(str(kv))
endif

if nog<10
	pag=pag+"0"+alltrim(str(nog))
endif
if nog>9
	pag=pag+alltrim(str(nog))
endif

pag=pag+alltrim(str(anog))

replace nkods with pag

endscan