(form "00246" (size 33 12)
  (help "00246_TIP_0")
  (heading "IDENTIFY A SEGMENT")
  (label (position  2  3) (text "String"))
  (label (position  2  4) (text "Segment"))
  (label (position  2  5) (text "From point"))
  (label (position  2  6) (text "To point"))
  (label (position  2  7) (text "Status"))
  (label (position  2  8) (text "Area"))
  (label (position  2  9) (text "Length"))
  (label (position  2 10) (text "Slope length"))
  (field "istr" (position 12  3) (display_length  5) (input disallowed))
  (field "iseg" (position 12  4) (display_length  5) (input disallowed))
  (field "ifrom" (position 12  5) (display_length 10) (input disallowed))
  (field "ito" (position 12  6) (display_length 10) (input disallowed))
  (field "status" (position 12  7) (display_length  6) (input disallowed))
  (field "area" (position 12  8) (display_length 16) (input disallowed))
  (field "strlen" (position 12  9) (display_length 16) (input disallowed))
  (field "slopelen" (position 14 10) (display_length 16) (input disallowed))
  (default_buttons)
)