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

 (default_buttons)
)