Dim I% as SmallInt
Dim filename as String
Print chr$(12)
Close All Interactive
Set ProgressBars off

open file "/net/oets7/home/mdavis/mmbpop/popout/popfiles.txt" for input as #1

For I% = 1 to 1184
  Line Input #1, filename
  print filename

  Register Table "/home/mdavis/mmbpop/popout/txt/" + filename + ".txt"  TYPE ASCII Delimiter 44 Charset "ISO8859_1" Into "/home/mdavis/mmbpop/popout/txt/" + filename + ".tab"
  Open Table "/home/mdavis/mmbpop/popout/txt/" + filename + ".tab" as TempTable Interactive

  Commit Table TempTable As "/home/mdavis/mmbpop/popout/tab/" + filename + ".tab" TYPE NATIVE Charset "ISO8859_1"
  Close Table TempTable Interactive
  Open Table "/home/mdavis/mmbpop/popout/tab/" + filename + ".tab" as TempTable Interactive
  Alter Table "TempTable" ( rename _COL1 Lat,_COL2 Lon,_COL3 Pop90 )
  Create Map For TempTable CoordSys Earth Projection 1, 0
  Update TempTable Set obj=CreatePoint(-Lon,Lat)
  Commit table TempTable
  Close table TempTable
  
Next