 TYPE
    fdt$screen_to_form_event = record
      shifted: boolean,
      case event_type: cst$key_type of
      = csc$standard_function =
        standard_function: cst$standard_functions,
      = csc$application_function =
        application_function: cst$application_functions,
      = csc$screen_function =
        screen_function: cst$screen_events,
      = csc$unused_entry =
        ,
      casend,
    recend;

*copyc cst$application_functions
*copyc cst$key_type
*copyc cst$screen_events
*copyc cst$standard_functions
