(ATCScript "USGS Daily Web Values yyyy-mm-dd"
  (LineEnd CR)
  (ColumnFormat FIXED
                1:Comment
                3-15:Label
                50-129:AttVal
                31-129:Description)
  (NextLine)

  (Set AGENCY "")
  (Set Description "")
  (Set STFIPS "")
  (Set CNTYFIPS "")
  (Set HUCODE "")
  (Set LATDEG "")
  (Set LNGDEG "")
  (Set ELEV "")
  (Set DAREA "")

  (While (And (Not EOF) (= Comment "#"))
    (Set AttName (Trim Label))
    (if (= AttName "agency_cd")     (Set AGENCY AttVal))
    (if (= AttName "station_nm")    (Set Description AttVal))
    (if (= AttName "state_cd")      (Set STFIPS AttVal))
    (if (= AttName "county_cd")     (Set CNTYFIPS AttVal))
    (if (= AttName "huc_cd")        (Set HUCODE AttVal))
    (if (= AttName "dec_lat_va")    (Set LATDEG AttVal))
    (if (= AttName "dec_long_va")   (Set LNGDEG (- 0 (Abs AttVal))))
    (if (= AttName "alt_va")        (Set ELEV AttVal))
    (if (= AttName "drain_area_va") (Set DAREA AttVal))
    (NextLine)
  )
  (ColumnFormat TAB
                1:agency_cd
                2:site_no
                3:datetime
                4:Value1
                5:Code1
                6:Value2
                7:Code2
                8:Value3
                9:Code3)

  (Set MEANVALUE 0)
  (If (= (Mid Value1 3) _00060_00003) (Set MEANVALUE 1))
  (If (= (Mid Value2 3) _00060_00003) (Set MEANVALUE 2))
  (If (= (Mid Value3 3) _00060_00003) (Set MEANVALUE 3))

  (NextLine)
  (NextLine)
  (Test (And (IsNumeric (Mid datetime 1 4))
             (IsNumeric (Mid datetime 6 2))
             (IsNumeric (Mid datetime 9 2))
             (> (Mid datetime 1 4) 1700)
             (< (Mid datetime 6 2) 13)
             (< (Mid datetime 9 2) 32)))

  (Attribute Scenario "OBSERVED")
  (Attribute Location site_no)
  (Attribute Constituent "FLOW")
  (Attribute NDN 1)
  (Attribute NUP 1)
  (Attribute NSA 40)
  (Attribute NSASP 75)
  (Attribute NDP 300)
  (Attribute TSFILL -99999)

  (If (> (Len AGENCY) 0)      (Attribute AGENCY AGENCY))
  (If (> (Len Description) 0) (Attribute Description Description))
  (If (> (Len STFIPS) 0)      (Attribute STFIPS STFIPS))
  (If (> (Len CNTYFIPS) 0)    (Attribute CNTYFIPS CNTYFIPS))
  (If (> (Len HUCODE) 0)      (Attribute HUCODE HUCODE))
  (If (> (Len LATDEG) 0)      (Attribute LATDEG LATDEG))
  (If (> (Len LNGDEG) 0)      (Attribute LNGDEG LNGDEG))
  (If (> (Len ELEV) 0)        (Attribute ELEV ELEV))
  (If (> (Len DAREA) 0)       (Attribute DAREA DAREA))

  (While (Not EOF)
     (Set Year (Mid datetime 1 4))
     (Set Month (Mid datetime 6 2))
     (Set Day (+ 1 (Mid datetime 9 2)))
     (If (And (= MEANVALUE 1) (IsNumeric Value1) (= (Mid Code1 1 1) "A"))
         (Date Year Month Day 0 0)
         (Value Value1)
     )

     (If (And (= MEANVALUE 2) (IsNumeric Value2) (= (Mid Code2 1 1) "A"))
         (Date Year Month Day 0 0)
         (Value Value2)
     )

     (If (And (= MEANVALUE 3) (IsNumeric Value3) (= (Mid Code3 1 1) "A"))
         (Date Year Month Day 0 0)
         (Value Value3)
     )
     (NextLine)
  )

  (Fill D 1 -99999)
)