(form "00652" (size 45 6)
  (help "00652_TIP_0")
  (heading "FIRST END SEGMENT OR POINT?")
  (label (position  2 3) (text "Is the first end a Segment or a Point?"))
 (field "theopt1" (position 38  3) (display_length  1) (input allowed)
    (value_in "S" "P")
    (default "S") (translate upper) (null disallowed) (max_length 1)
    (help "00652_TIP_1")
 )

 (default_buttons)
)