
  TYPE
    fdt$screen_change_key = (fdc$add_form, fdc$add_object, fdc$close_form,
          fdc$create_mark, fdc$delete_form, fdc$delete_mark, fdc$delete_object,
          fdc$erase_form, fdc$no_screen_change, fdc$open_form, fdc$pop_forms,
          fdc$push_forms, fdc$replace_variable, fdc$set_attribute,
          fdc$set_cursor, fdc$change_table_size, fdc$reset_event_variable,
          fdc$format_text_box);

