(ATCScript "HSPFUci UpdateParms and Run test script"
  (Arg "aUci")
  (Arg "aChanges")
  (Arg "aInfo" "RunX")

  (Set CRLF (+ (Chr 13) (Chr 10)))

  ('Set Debug On)

  (LoadLibrary "ATCScriptHspf" "ATCScriptFile")

  (Set Msg (+ (HspfRunInfo (+ (HspfRunInfo) " " aInfo)) CRLF))

  (For lChange aChanges
    (For lParmValue (HspfParameter lChange)
      (Set Msg (+ Msg CRLF lParmValue))
    )
    (Set Msg (+ Msg CRLF))
  )

  (Set Msg (+ Msg CRLF (HspfUciSave)))
  (Set Msg (+ Msg CRLF (HspfRun aUci)))

  (Return Msg)

  (Unset lParmSpec)
  (Unset lParmValue)
)