(ATCScript "HSPF Uci test script"
  (Arg "UCIFileName" "*.UCI")

  (LoadLibrary "ATCScriptHspf")

  (HspfUciOpen UCIFileName)
  (Set MetSegs (HspfMetSegs))
  (Set HSPFMetSeg (ArrayItem MetSegs 1))
  (Warn HSPFMetSeg "Met Segment 1")
  (Set LandUses (HspfLandUses))
  (Set Msg "")
  (For i 1 (Len LandUses)
    (Set LandUse (ArrayItem LandUses i))
    (Set Msg (+ Msg i " " LandUse "  " (HspfArea LandUse 0) (chr 13)))
  )
  (Warn Msg "Land Uses and Areas")
)