(ATCScript "Time Series Attribute List Script"
  (Arg "DataFileObject")
  (C OutputDir must already be set)

  (LoadLibrary "ATCScriptData")

  (Set DataCount (DataFile DataFileObject DataCount))

  (Set Attributes (DataFile DataFileObject AttributesPresent))

  (Set oStr "Index")
  (For CurAttrib In Attributes
    (Set oStr (+ oStr ", " CurAttrib))
  )
  (Set oStr (+ oStr CR))

  (For DataIndex = 1 to DataCount
    (Set DataSet1 (DataFile TSerFile1 Data Index DataIndex))
    (Set oStr (+ oStr DataIndex))
    (For CurAttrib In Attributes
      (Set oStr (+ oStr ", " (DataTSer DataSet1 "Attrib" CurAttrib)))
    )
    (Set oStr (+ oStr CR))
  )
  (SaveFile (+ OutputDir "Attributes-" (DataTSer DataSet1 "Attrib" "File") ".txt") oStr)
)