home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TOOL_INC.ZIP / QUELIB.INT < prev    next >
Encoding:
Text File  |  1988-01-29  |  475 b   |  24 lines
  1.  
  2. const
  3.    queue_size = 3000;    {fixed size of all queues}
  4.  
  5. type
  6.    queue_rec = record
  7.       next_in:  integer;
  8.       next_out: integer;
  9.       count:    integer;
  10.       data:     array[1..queue_size] of char;
  11.    end;
  12.  
  13.  
  14. procedure init_que( var q: queue_rec);
  15.  
  16. function empty_que( var q: queue_rec ): boolean;
  17.  
  18. function que_free (var q: queue_rec): integer;
  19.  
  20. procedure enque (var q: queue_rec; c: char);
  21.  
  22. procedure deque (var q: queue_rec; var c: char);
  23.  
  24.