(form "00647" (size 50 6)
  (help "00647_TIP_0")  
  (heading "SECOND CHILD SEGMENT OR POINT?")

 (label (position  2 3) (text "Is the second 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 "00647_TIP_1")
 )

 (default_buttons)
)