
  CONST
    ofk$screen_input_fap = ofk$base + 1,
      {E 8.128 'ofp$screen_input_fap open operation'}
      {E 8.122 'ofp$screen_input_fap get_next_funtion'}
      {E 8.124 'ofp$screen_input_fap get_partial_funtion'}
      {E 8.119 'ofp$screen_input_fap get_direct_funtion'}
      {E 8.112 'ofp$screen_input_fap close_funtion'}
      {E 8.161 'ofp$screen_input_fap store_terminal'}
      {E 8.117 'ofp$screen_input_fap fetch_request'}
      {E 8.152 'ofp$screen_input_fap store_function'}
      {E 8.101 'ofp$screen_input_fap fetch_access_info'}
      {X 8.128 'ofp$screen_input_fap open_operation'}
      {X 8.122 'ofp$screen_input_fap get_next_function'}
      {X 8.124 'ofp$screen_input_fap get_partial_function'}
      {X 8.119 'ofp$screen_input_fap get_direct_fuction'}
      {X 8.112 'ofp$screen_input_fap close_function'}
      {X 8.161 'ofp$screen_input_fap store_terminal'}
      {X 8.117 'ofp$screen_input_fap fetch_function'}
      {X 8.152 'ofp$screen_input_fap store_function'}
      {X 8.101 'ofp$screen_input_fap fetch_access_info'}

    ofk$screen_output_fap = ofk$base + 2,
      {E 8.128 'ofp$screen_output_fap open_function'}
      {E 8.112 'ofp$screen_output_fap close_function'}
      {E 8.117 'ofp$screen_output_fap fetch_function'}
      {E 8.152 'ofp$screen_output_fap store function'}
      {E 8.135 'ofp$screen_output_fap put_partial_function'}
      {E 8.134 'ofp$screen_output_fap put_next_function'}
      {E 8.131 'ofp$screen_output_fap put_direct_function'}
      {X 8.128 'ofp$screen_output_fap open_function'}
      {X 8.112 'ofp$screen_output_fap close_function'}
      {X 8.117 'ofp$screen_output_fap fetch_function'}
      {X 8.152 'ofp$screen_output_fap store_function'}
      {X 8.135 'ofp$screen_output_fap put_partial_function'}
      {X 8.134 'ofp$screen_output_fap put_next_function'}
      {X 8.131 'ofp$screen_output_fap put_direct_function'}

    ofk$operator_facility_files = ofk$base + 3,
      {E 'ofp$operator_facility_files'}
      {X 'ofp$operator_facility_files'}

    ofk$send_to_operator = ofk$base + 4,
      {E 'ofp$send_to_operator'}
      {X 'ofp$send_to_operator'}

    ofk$display_status_message = ofk$base + 5,
      {E 'ofp$display_status_message'}
      {X 'ofp$display_status_message'}

    ofk$get_display_status_message = ofk$base + 6,
      {E 'ofp$get_display_status_message'}
      {X 'ofp$get_display_status_message'}

    ofk$reply_to_action = ofk$base + 7,
      {E 'ofp$reply_to_action'}
      {X 'ofp$reply_to_action'}

    ofk$handle_signal_processor = ofk$base + 8,
      {E 'ofp$handle_signal_processor'}
      {X 'ofp$handle_signal_processor'}

    ofk$receive_from_operator = ofk$base + 9,
      {E 'ofp$receive_from_operator'}
      {X 'ofp$receive_from_operator'}

    ofk$send_display_image = ofk$base + 10,
      {E 'ofp$send_display_image'}
      {X 'ofp$send_display_image'}

    ofk$scroll = ofk$base + 11,
      {E 'ofp$scroll'}
      {X 'ofp$scroll'}

    ofk$execute_display_task = ofk$base + 12,
      {E 'ofp$execute_display_task'}
      {X 'ofp$execute_display_task'}

    ofk$get_display_status = ofk$base + 13,
      {E 'ofp$get_display_status'}
      {X 'ofp$get_display_status'}

    ofk$alter_display = ofk$base + 14;
      {E 'ofp$alter_display'}
      {X 'ofp$alter_display'}

?? PUSH (LISTEXT := ON) ??
*copyc amk$base_keypoint_values
?? POP ??
