/* maketable.aml
&s stdcat1 'Bare Ground/Clearcut' 
&s stdcat2  'Grass/Shrubs/Crops/Early Regrowth' 
&s stdcat3  'Marsh/Wetland/Shoreline/Shallow Water'
&s stdcat4  'Deciduous/Mixed Forest' 
&s stdcat5  'Water' 
&s stdcat6  'Mature Coniferous Forest' 
&s stdcat7  'Young Coniferous Forest' 
&s stdcat8  'Snow/Ice' 
&s stdcat9  'Cloud' 
&s stdcat10  'Open Forest/Regrowth' 
&s stdcat11  'Sub-Alpine Forest' 
&s stdcat12  'Low Density Urban' 
&s stdcat13  'High Density Urban' 
&s stdcat14  'Cloud Shadow*' 
&s stdcat15  'Agriculture' 
&s stdcat16  'Wetlands' 
&s cat07_1 'Heavy Urban'
&s cat07_2 'Medium Urban'
&s cat07_3 'Light Urban'
&s cat07_4 'Cleared for Development'
&s cat07_5 'Grass/Grasslands'
&s cat07_6 'Deciduous and Mixed Forest'
&s cat07_7 'Coniferous Forest'
&s cat07_8 'Clearcut Forest'
&s cat07_9 'Regenerating Forest'
&s cat07_10 'Agriculture'
&s cat07_11 'Non_Forest Wetland'
&s cat07_12 'Open Water'
&s cat07_13 'Snow/Bare rock'
&s cat07_14 'Shorelines'

&ty [close -all]
&ty [delete tablelist.txt -file]
&s lun [open tablelist.txt stat -write]
&s null [write %lun% X]
&do std = 1 &to 16
  &s null [write %lun% [value stdcat%std%]]
&end
&do cat007 = 1 &to 14
  &s null [write %lun% [value cat07_%cat007%]]
  &do std = 1 &to 16
    clearsel;resel combo.vat INFO LC07_14CL_U eq %cat007%
    resel combo.vat INFO OLD_COVER83 eq %std%
    &if [before [show select combo.vat info] ','] ne 0 &then
      &s null [write %lun% [show select combo.vat info 1 item count]]
    &else
      &s null [write %lun% ' ']
  &end
&end
&s null [close %lun%]