(form "00600" (size 50 11)
  (heading "MOVE A SEGMENT BY BEARING AND DIP")
  (label (position  2  3) (text "String"))
  (label (position  2  4) (text "Segment"))
  (label (position  2  6) (text "Define parameters to move the segment by"))
  (label (position  2  7) (text "Bearing"))
  (label (position  2  8) (text "Dip"))
  (label (position  2  9) (text "Slope distance"))
  (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)"))
  (field "string_no" (position 20  3) (display_length 5) (input disallowed))
  (field "segment_no" (position 20  4) (display_length 5) (input disallowed))
  (field "bearing" (position 20  7) (display_length 16) (input allowed)
    (low_bound 0) (high_bound 6.283185307)
    (translate upper) (format decimal_angle) (null disallowed) (max_length 16)
    )
  (field "dip" (position 20  8) (display_length 16) (input allowed)
    (low_bound -1.570796327) (high_bound 1.570796327)
    (translate upper) (format decimal_angle) (null disallowed) (max_length 16)
    )
  (field "distance" (position 20  9) (display_length 16) (input allowed)
    (low_bound 0) (high_bound 9999999999)
    (translate upper) (format real_8) (null disallowed) (max_length 16)
    )
(default_buttons)
)
