(form "77009" (size 45 7)
  (help "This function creates a report of the anisotropy ellipse orientation and ratios for use in kriging.")
  (heading "ANISOTROPY ELLIPSOID REPORT")

  (label
    (position 2 4)
    (text "Report name")
  )
  (field "report_name" (position 3 4) (display_length 20) (input allowed)
    (translate lower) (null disallowed) (max_length 26)
    (file output (extension trim "*.not,*.csv,*.htm,*.html,*.rtf,*.pdf,*.ps"))
    (help "The file nominated here will contain the output report data."))
  (label
    (position 2 5)
    (text "Report format")
  )
  (field "report_format" (position 3 5) (display_length 20) (input allowed)
    (null disallowed) (max_length 50)
    (value_in ".not - Surpac Note File" 
              ".csv - Comma Separated (Spreadsheet)"
              ".htm - Hypertext Markup Language (Web)"
              ".html - Hypertext Markup Language (Web)"
              ".rtf - Rich Text Format (Microsoft Word)"
              ".pdf - Adobe Acrobat" 
              ".ps - Postscript"
              ".txt - Text File")
    (help "The file format nominated here will be the output report format."))
  (default_buttons)
)