(form "00870" (size 50 15)
  (heading "COPY A SEGMENT BY BEARING AND DIP")
  (field "bearing_angle_units"  (position  30  9) (display_length 17)
    (input allowed) (default "(decimal degrees)"))
  (field "dip_angle_units"  (position  30  9) (display_length 17)
    (input allowed) (default "(decimal degrees)"))

  (label (position  2  3) (text "From Layer"))
  (field "from_layer" (position 20  3) (display_length 21) (input disallowed))

  (label (position  2  4) (text "String"))
  (field "string_no" (position 20  4) (display_length 5) (input disallowed))

  (label (position  2  5) (text "Segment"))
  (field "segment_no" (position 20  5) (display_length 5) (input disallowed))

  (label (position  2  7) 
    (text "Define parameters to copy the segment by"))

  (label (position  2  8) (text "To Layer"))
  (field "to_layer" (position 20  8) (display_length 21) 
    (input disallowed))

  (label (position  2  9) (text "New String"))
  (field "new_string_id" (position 20  9) (display_length 5) (input allowed)
    (low_bound 1) (high_bound 32000))

  (label (position  2  10) (text "Bearing"))
  (field "bearing" (position 20  10) (display_length 16) (input allowed)
    (low_bound 0) (high_bound 6.283185307)
    (translate upper) (format decimal_angle) (null disallowed) (max_length 16)
    )

  (label (position  2  11) (text "Dip"))
  (field "dip" (position 20  11) (display_length 16) (input allowed)
    (low_bound -1.570796327) (high_bound 1.570796327)
    (translate upper) (format decimal_angle) (null disallowed) (max_length 16)
    )

  (label (position  2  12) (text "Slope distance"))
  (field "distance" (position 20  12) (display_length 16) (input allowed)
    (low_bound 0) 
    (translate upper) (format real_8) (null disallowed) (max_length 16)
    )
  (default_buttons)
)