(form "50108" (size 35  8)
  (heading "QUIT DEFINE BLOCKS")
  (label (position  5  3) (text "(Q)uit define blocks"))
  (label (position  5  4) (text "(D)on't quit define blocks"))
  (label (position  5  5) (text "(S)ave and quit define blocks"))
  (label (position  5  6) (text "Select exit option"))
  (field "exit_mode" (position 25  6) (display_length  1) (input allowed)
    (value_in "Q" "D" "S")
    (translate upper) (null disallowed) (max_length 1)
    )
  (default_buttons)
)
