(form "00650" (size 50 6)
  (help "00650_TIP_0")
  (heading "NEXT CHILD SEGMENT OR POINT?")

  (label (position  2 3) (text "Is the next child a Segment or a Point?"))
 (field "theopt" (position 40  3) (display_length  1) (input allowed)
    (value_in "S" "P")
    (default "S") (translate upper) (null disallowed) (max_length 1)
    (help "00650_TIP_1")

 )

 (default_buttons)
)