(ATCScript "Listing Script"
  (LoadLibrary "ATCScriptData" "ATCScriptFile")

  (Set CR (+ (Chr 13) (Chr 10)))

  (Set InputDir "C:\ScriptTest\")
  (Set OutputDir "C:\ScriptTest\OutFiles\")
  (Set ListTS (FileAsString "C:\ScriptLib\Standards\ListTSbyDate.txt"))

  (Set SDate (JDate "1975/1/1"))
  (Set EDate (JDate "1975/1/31"))

  (DataFile TSerFile1 "Open" "WDM" (+ InputDir "GA_hp.wdm"))
  (Set DataCount (DataFile TserFile1 DataCount))
  (Set DataSet1 (DataFile TSerFile1 Data Index 1))
  (RunScript ListTS DataSet1 "DY")
)