.key arg

if <arg> eq "init"
	echo "Initialising Active Database"
	copy uulib:news/active	NN:nndbase/active.0
	copy uulib:news/active	NN:nndbase/active.1
	copy uulib:news/active	NN:nndbase/active.2
	copy uulib:news/active	NN:nndbase/active.3
	copy uulib:news/active	NN:nndbase/active.4
	copy uulib:news/active	NN:nndbase/active.5
	copy uulib:news/active	NN:nndbase/active.6
	copy uulib:news/active	NN:nndbase/active.7
	copy uulib:news/active	NN:nndbase/active.8
else
	echo "Updating Active Database"
	delete NN:nndbase/active.8
	rename NN:nndbase/active.7 as NN:nndbase/active.8
	rename NN:nndbase/active.6 as NN:nndbase/active.7
	rename NN:nndbase/active.5 as NN:nndbase/active.6
	rename NN:nndbase/active.4 as NN:nndbase/active.5
	rename NN:nndbase/active.3 as NN:nndbase/active.4
	rename NN:nndbase/active.2 as NN:nndbase/active.3
	rename NN:nndbase/active.1 as NN:nndbase/active.2
	rename NN:nndbase/active.0 as NN:nndbase/active.1
	copy uulib:news/active	NN:nndbase/active.0
endif
