home *** CD-ROM | disk | FTP | other *** search
/ Game Killer / Game_Killer.bin / 263.BUSY.INC < prev    next >
Text File  |  1991-07-08  |  1KB  |  41 lines
  1. procedure BusyPorts;
  2. var
  3.   Number : integer;
  4.   i,
  5.   s, n : SectorIndex;
  6.   log  : boolean;
  7.   f    : text;
  8. begin
  9.   for i := 1 to MaxSector do
  10.     distances[i].s := i;
  11.   EliminateUnwanted( distances, PortOnly, Number );
  12.   for i := 1 to Number do
  13.     with space.ports.data[portNumber(distances[i].s)] do
  14.       distances[i].d := round((usage[fuel] / 100) * 
  15.                         (usage[organics] / 100) * usage[equipment]);
  16.   log := prompt( 'Log to disk? ');
  17.   if log then
  18.     begin
  19.       assign( f, GetNewFileName('File name for report?  ', 'busiest.txt') );
  20.       rewrite( f );
  21.     end; {if log}
  22.   if Number <> 0 then
  23.     begin
  24.       for n := 1 to Number do
  25.         begin
  26.           FindSmallest( distances, n, Number );
  27.           DisplaySector( distances[ n ].s, ' Left:',distances[n].d,
  28.                         log, f );
  29.           if n mod 20 = 0 then
  30.             if not prompt( 'more? ') then
  31.               begin
  32.                 if log then
  33.                   close( f );
  34.                   exit;
  35.               end;
  36.         end; {for}
  37.     end; {if}
  38.   if log then
  39.     close( f );
  40. end; {busiest ports}
  41.