home *** CD-ROM | disk | FTP | other *** search
/ Game Killer / Game_Killer.bin / 101.SCTRLIST.INC < prev    next >
Text File  |  1992-06-07  |  438b  |  18 lines
  1. type
  2.   sectorlist = record
  3.                  size : sectorindex;
  4.                  data : array [ sector ] of sector;
  5.                end;
  6.  
  7. procedure AddToList( var L : sectorlist; s : sector );
  8. { add s to the list L, provided s isn't already on L }
  9. var
  10.   i : byte;
  11. begin
  12.   inc( L.size );
  13.   L.data[ L.size ] := s;
  14.   if L.size > 1 then
  15.     for i := 1 to L.size - 1 do
  16.       if L.data[ i ] = s then
  17.         dec( L.size );
  18. end;