home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / listings / v_02_01 / 2n01056b < prev    next >
Text File  |  1990-11-26  |  606b  |  23 lines
  1.  
  2. FOR EACH MachinePart
  3. DO BEGIN 
  4.    FOR i := 1 TO n
  5.    DO IF (MachinePart.part# = Array[i].part#)
  6.       THEN SET Array[i].count = Array[i].count + 1;
  7.    IF (PriorMachine# <> MachinePart.machine#)
  8.    THEN BEGIN
  9.         SET GotOne := TRUE;
  10.         FOR i := 1 TO n
  11.         DO IF (Array[i].count = 0)
  12.            THEN BEGIN
  13.                 SET GotOne := FALSE;
  14.                 SET i := n;
  15.                 END;
  16.         FOR i := 1 TO n
  17.         DO SET Array[i].count = 0;
  18.         IF (GotOne) THEN DISPLAY(MachinePart.part#);
  19.         END;
  20.    SET PriorMachine# := MachinePart.machine#;
  21.    END;
  22.  
  23.