
  TYPE
    ost$get_message_part = ^procedure (VAR code: ost$status_condition_code;
                                       VAR message_parameters:
                                       ^ost$message_parameters;
                                       VAR end_of_message: boolean;
                                       VAR status: ost$status);

*copyc ost$message_parameters
*copyc ost$status
