set outfile [open Coordinates.Idc w]

set Frame [atomselect top all frame 100]
puts $outfile [$Frame get {index x y z}]

close $outfile