(form "00718" (position 14 3) (size 53  22)
  (help "00641_TIP_0")
  (heading "CREATE A NEW 3DM FROM THE UPPER TRIANGLES OF 2 DTMs")

  (label (position  2  3) (text "Define the first DTM"))

  (label (position  2  4) (text "Location"))
  (field "location1" (position 15  4) (display_length 26) (input allowed)
    (null allowed) (max_length 26)
    (file (link "id1") (extension "*.dtm"))
    (help "00718_TIP_1"))

  (label (position  2  5) (text "Id number"))
  (field "id1" (position 15  5) (display_length 16) (input allowed)
    (format real_8) (null disallowed) (max_length 16)
    (help (field "location1")))

  (label (position  2  6) (text "Object number"))
  (field "object1" (position 15  6) (display_length 5) (input allowed)
    (null disallowed) (max_length 5) (low_bound 1) (format integer_4)
    (help (field "location1")))

  (label (position  2  7) (text "Trisolation number"))
  (field "trisol1" (position 15  7) (display_length 5) (input allowed)
    (null disallowed) (max_length 5) (low_bound 1) (format integer_4)
    (help (field "location1")))
  
  (label (position 2 8) (text "Retain other trisolations"))
  (field "retain_other_trisolations" (position 19  8) (display_length 1) 
    (input allowed) (translate upper) (null disallowed) 
    (value_in "Y" "N")
    (help "00711_TIP_2"))


  (label (position  2  10) (text "Define the second DTM"))

  (label (position  2  11) (text "Location"))
  (field "location2" (position 15  11) (display_length 26) (input allowed)
    (null allowed) (max_length 26)
    (file (link "id2") (extension "*.dtm"))
    (help "00714_TIP_3"))

  (label (position  2  12) (text "Id number"))
  (field "id2" (position 15  12) (display_length 16) (input allowed)
    (format real_8) (null disallowed) (max_length 16)
    (help (field "location2")))

  (label (position  2  13) (text "Object number"))
  (field "object2" (position 15  13) (display_length 5) (input allowed)
    (null disallowed) (max_length 5) (low_bound 1) (format integer_4)
    (help (field "location2")))

  (label (position  2  14) (text "Trisolation number"))
  (field "trisol2" (position 15  14) (display_length 5) (input allowed)
    (null disallowed) (max_length 5) (low_bound 1) (format integer_4)
    (help (field "location2")))


  (label (position  2  16) (text "Define result file to be created"))

  (label (position  2  17) (text "Location"))
  (field "result_location" (position 15  17) (display_length 26) 
    (null allowed) (max_length 26) (input allowed)
    (file (link "result_id") (extension "*.dtm"))
    (help "00718_TIP_4"))

  (label (position  2  18) (text "Id number"))
  (field "result_id" (position 15  18) (display_length 16) (input allowed)
    (format real_8) (null disallowed) (max_length 16)
    (help (field "result_location")))

  (label (position  2  19) (text "Object number"))
  (field "result_object" (position 15  19) (display_length 5) (input allowed)
    (null disallowed) (max_length 5) (low_bound 1) (format integer_4)
    (help (field "result_location")))

  (label (position  2  20) (text "Contact string"))
  (field "contact_string" (position 15  20) (display_length 5) (input allowed)
    (null disallowed) (max_length 5) (low_bound 0) (format integer_4)
    (help "00710_TIP_5"))

  (default_buttons)
)