
  TYPE
    oft$display_message_info = record
      display_message_lock: ost$signature_lock,
      display_message: oft$display_message,
    recend;

*copyc oft$display_message
*copyc ost$signature_lock
