home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TOOL-INC.ZIP / QUELIB.DCL < prev    next >
Encoding:
Text File  |  1989-06-02  |  360 b   |  13 lines
  1. const
  2.    queue_size       = 3000;   {fixed size of all queues}
  3.    queue_high_water = 2700;   {maximum queue.count before blocking}
  4.    queue_low_water  = 2400;   {unblock queue at this point}
  5.  
  6. type
  7.    queue_rec = record
  8.       next_in:  integer;
  9.       next_out: integer;
  10.       count:    integer;
  11.       data:     array[1..queue_size] of char;
  12.    end;
  13.