(form "00871" (size 50 14)
  (heading "COPY A STRING 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  6) 
    (text "Define parameters to copy the string by"))

  (label (position  2  7) (text "To Layer"))
  (field "to_layer" (position 20  7) (display_length 21) 
    (input disallowed))
  (label (position  2  8) (text "New String"))
  (field "new_string_id" (position 20  8) (display_length 5) (input allowed)
    (low_bound 1) (high_bound 32000))

  (label (position  2  9) (text "Bearing"))
  (field "bearing" (position 20  9) (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  10) (text "Dip"))
  (field "dip" (position 20  10) (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  11) (text "Slope distance"))
  (field "distance" (position 20  11) (display_length 16) (input allowed)
    (low_bound 0) 
    (translate upper) (format real_8) (null disallowed) (max_length 16)
    )
(default_buttons)
)
