&args inshape iditem namitem outname 

&if [exists xxx -cover] &then &do
	kill xxx all
&end
&if [exists xxx1 -cover] &then &do
	kill xxx1 all
&end
&if [exists xxx2 -cover] &then &do
	kill xxx2 all
&end

&if [exists xxx11 -cover] &then &do
	kill xxx11 all
&end

&if [null %outname%] &then &do
	&set outname = %inshape%
&end

&if [exists xxx.out -info] &then &do
	tables
	kill xxx.out
	q
&end

shapearc %inshape% xxx1 %iditem%
shapearc %inshape% xxx11 
regionclass xxx11 xxx2 poly %iditem% %iditem%
/* kill xxx11
clean xxx1 xxx1 1 1 
/* build xxx1
regionpoly xxx1 xxx %iditem% xxx.out
/* kill xxx1

tables
sel xxx.aat
it
unload %outname%aat.txt lpoly# rpoly# length INIT

sel xxx.pat
alter area,area,25,,,,,
it
unload %outname%pat.txt xxx# %iditem% INIT

sel xxx2.patpoly
alter area,area,25,,,,,
it
unload %outname%reg.txt %iditem% INIT

sel xxx1.pat%iditem%
alter area,area,25,,,,,
alter perimeter,perimeter,25,,,,,
it
unload %outname%nam.txt %iditem% %namitem% area perimeter INIT

quit

&if [exists xxx -cover] &then &do
	kill xxx all
&end
&if [exists xxx1 -cover] &then &do
	kill xxx1 all
&end
&if [exists xxx2 -cover] &then &do
	kill xxx2 all
&end

&if [exists xxx11 -cover] &then &do
	kill xxx11 all
&end

&return


shapearc %inshape% xxx1
build xxx1 arc
regionclass xxx1 xxx2 poly %iditem% %iditem%
kill xxx1
clean xxx2 xxx 1 1 poly
kill xxx2