(* q.h -- заголовок для примера очереди сообщений *)

const 
  QKEY:tkey=(1 shl 6) + 5{0105};	(* ключ очереди *)
  QPERM=(6 shl 6) + (6 shl 3){0660};	(* права доступа *)
  MAXOBN=50;		                (* макс. длина имени объекта *)
  MAXPRIOR=10;		                (* максимальный приоритет *)

type
  q_entry=record
    mtype:longint;
    mtext:array [0..MAXOBN] of char;
  end;
  pq_entry=^q_entry;

