(ATCScript "PrintFiles"
  (Arg "Directory" "")
  (Arg "Pattern" "*.png")

  (LoadLibrary "ATCScriptFile")

  (ChDir ProjectDir)
  (Set lFiles (Dir Pattern))
  (For lFile In lFiles
    (OpenFile (+ Directory lFile) Print)
  )

  (Unset lFile)
  (Unset lFiles)
)