&args cover
&do ext &list PAT AAT
  &if [exists %cover%.%ext% -INFO] &then
    &setvar filename = %cover%.%ext%
  &setvar coverpound = [upcase %cover%#]
  &setvar coverid = [upcase %cover%-ID]
  &do name &list [listitem %filename% -info]
    &if %name% ne 'AREA' and %name% ne 'PERIMETER' and %name% ne 'LENGTH' and %name% ne 'FNODE#' and %name% ne 'TNODE#' and %name% ne 'LPOLY#' and %name% ne 'RPOLY#' and %name% ne %coverpound% and %name% ne %coverid% &then
      &type %name% [listunique %filename% -info %name% %filename%.%name%.txt]
  &end
&end