!----------------------------------------------------------------------!
!							               !
!    This script is used to model a set of tiff files, all of which    !
!    are listed in a text file.                                        !
!                                                                      ! 
!----------------------------------------------------------------------!


local mstring files
local int i

files = TEXTImport("c:\Geomatica_V100\user\list.txt")

for i = 1 to f$len(files)

MODEL on files[i]
if %1 = 1 then
%1 = 0
endif
endmodel

endfor