(ATCScript "Comprehensive Driver"
  (LoadLibrary "ATCScriptData" "ATCScriptFile" "ATCScriptGrid" "ATCScriptHspf" "ATCScriptIPC" "ATCScriptGraph")

  (Set StandardsDir "C:\ScriptTest\Standards\")
  (Set ProjectDir   "E:\CH2M\AtlantaMetroNorth\HydroCalib\")
  (Set InputDir     (+ ProjectDir "big\"))
     (ChDir InputDir)
  (Set OutputDir    (+ InputDir "OutFiles\"))

  (Set Locations (Array "02335700" ))

  (Set SDate (JDate "1990/10/1"))
  (Set EDate (JDate "1995/10/1"))

  (Set CurScenario "BIG")
  (Set Scenarios (Array "Observed" 
                        CurScenario)
  )

  (Set PerConstituent  "PERO") 
  (Set ImpConstituent  "SURO") (Set PerImpConv  "8687.6") (Set PerImpUnits "inches")
  (Set RchConstituent "ROVOL") (Set RchConv     "723.97") (Set RchUnits     "ac-ft")
  (Set PtConstituent   "FLOW") (Set PtConv         "1.0") (Set PtUnits        "cfs") (Set PtScenario    "PT-ADJ")
                                                          (Set AreaUnits    "acres")
                                                          (Set TotalUnits     "cfs")

  (Set HspfAggregation "Mean")
  (Set HspfTimeUnits   "yr")
  (Set HspfTimeStep    1)
  (Set HspfnVals       1)  
  ('HspfUciOpen (+ CurScenario ".uci"))
  ('RunScript (+ StandardsDir "WatershedSummaryReport.spt") "Annual")

  (ChDir InputDir)
  (Set HspfnVals       5) 
  ('RunScript (+ StandardsDir "WatershedSummaryReport.spt") "Total")

  (DataFile TSerFileBin     Open "HSPFBinary" (+ CurScenario ".hbn"))
  (DataFile TSerFileWDM     Open "WDM"        (+ ProjectDir  "amnout.wdm"))

  (RunScript (+ StandardsDir "WaterBalance.spt") 
      TSerFileBin
      (+ OutputDir CurScenario ".WaterBalance.txt")
  )

  (Set GraphTitle "XYEntire")
  (RunScript (+ StandardsDir "XYGraphTimeseries.spt") TSerFileWDM)

  (Set GraphTitle "FloDurEntire")
  (RunScript (+ StandardsDir "FlowDurationGraphTimeseries.spt") TSerFileWDM)

  (Set PrecDataSets (Array (DataFile TSerFileWDM Data DSN 3001)))

  (Set ScriptTimeseriesGraph (FileAsString (+ StandardsDir "FlowGraphTimeseries.spt")))

  (Set GraphTitle "Entire")
  (RunScript ScriptTimeseriesGraph TSerFileWDM PrecDataSets Arith)
  (RunScript ScriptTimeseriesGraph TSerFileWDM PrecDataSets Log)

  (Set wholeSdate SDate)
  (Set wholeEDate EDate)
  (While (< SDate wholeEDate)
    (Set EDate (JDateAdd SDate "yr" 1 1))
    (Set GraphTitle (Format SDate "yyyy"))
    (RunScript ScriptTimeseriesGraph TSerFileWDM PrecDataSets Arith)
    (RunScript ScriptTimeseriesGraph TSerFileWDM PrecDataSets Log)
    (Set SDate EDate)
  )
)