(ATCScript "Summary of the Day TD-3210"
  (LineEnd LF)
  (Set MVal -999)
  (Set MAcc -998)
  (ColumnFormat Fixed
                35-40:ValRead
                18-21:Year
                22-23:Month
                31-32:Day 
                4-11:Location
                12-15:Constituent
                31-42:Repeating)
  (Test (And (IsNumeric ValRead)
             (IsNumeric Year)
             (IsNumeric Month)
             (IsNumeric Day)
             (> Year 1700)
             (< Month 13)
             (< Day 32)))
  (While (Not EOF)
         (Dataset Scenario "OBSERVED"
                  Location Location
                  Constituent Constituent
                  Description "Summary of the Day")
         (For Repeat = 1 to "31"
              (If (<> ValRead "-99999")
                  (Set Con Constituent)
	            (Date Year
      	            Month
                        Repeat
                        24  
	                  "0")
                  (Value ValRead)
                  (If (In Con "AWND" "DPTP" "SNOW") 
                        (Value (/ ValRead 10)))
                  (If (In Con "PRCP")
                        (Value (/ ValRead 100)))
                  (If (In Con "PRES")
                        (Value (/ ValRead 1000)))
		  )
         )
         (NextLine)
  )
  (Fill D 1 MVal MVal MAcc)
)