!Workspace
!Version 400
!Charset WindowsLatin1
Print "Importing TVDB..."
Register Table "tvdb.csv" TYPE ASCII Delimiter 44 Titles Charset "WindowsLatin1" Into "tvdb.tab"
Open Table "tvdb.tab" as Tvdb Interactive
Print "Saving TVDB..."
Commit Table Tvdb As "tvdb1.tab" TYPE NATIVE Charset "WindowsLatin1"
Close Table Tvdb Interactive
Open Table "tvdb1.tab" as tvdb1 Interactive
Create Map For Tvdb1 CoordSys Earth Projection 1, 62
Print "Geocoding TVDB..."
update tvdb1 set obj = createpoint(-Sgn(Val(LonDeg)) * (Abs(Val(LonDeg)) + (Val(LonMin) + Val(LonSec)/60)/60), Sgn(Val(LatDeg)) *  (Abs(Val(LatDeg)) + (Val(LatMin) + Val(LatSec)/60)/60))
Commit Table tvdb1 Interactive

Browse * From Tvdb1
Map From Tvdb1