'
' Simply write all entity positions to a text file

Local fname:string = FileRequest("Save file","","",True)

If fname<>""
	Local f:TFile = FileWrite(fname)

	For Local e:TEntity = EachIn Entities()
		local pos:TVec3 = e.GetPosition(True)
		f.WriteLine( e.GetName()+","+pos.ToString() )
	Next

	f.Close()
EndIf