fname = getOpenFileName caption:"Locate data file" filename:".tri" 
theFile = openFile fname mode:"r" 
disableSceneRedraw()  

-- Read number of vertices and faces
aline = filterString (readLine theFile) " "
numVerts = aline[1] as integer
numFaces = aline[2] as integer

-- Create the mesh
m = mesh numverts:numVerts numfaces:numFaces name:"Mesh"
         
-- Read the vertices
for i=1 to numVerts do (
   aline = filterString (readLine theFile) " "
   px = aline[1] as float
   px *= 1000
   py = aline[2] as float
   py *= 1000
   pz = aline[3] as float
   pz *= 1000
   setVert m i px py pz
   if (mod i 100 as integer == 0) do (       
      displayTempPrompt ("V " + (counter as string)) 0    
   ) 
)
            
-- Read the faces
for i=1 to numFaces do (
   aline = filterString (readLine theFile) " "
   v1 = aline[1] as integer
   v2 = aline[2] as integer
   v3 = aline[3] as integer
   setFace m i (v1+1) (v3+1) (v2+1)
   if (mod i 100 as integer == 0) do (       
      displayTempPrompt ("F " + (counter as string)) 0    
   ) 
)

close theFile
max tool zoomextents all 
enableSceneRedraw()