(form "00846" (size 45  7)
  (help "00846_TIP_0")
  (heading "COMPRESS MACRO FILE")
  (label (position  2  3) (text "Macro file to compress"))
  (field "filename" (position  20  3) (display_length 20) (input allowed)
    (translate lower) (null disallowed) (max_length 40)
    (file (extension trim "*.cmd")))
  (default_buttons)
)
