home *** CD-ROM | disk | FTP | other *** search
/ Game Killer / Game_Killer.bin / 091.LISTBUST.INC < prev    next >
Text File  |  1992-07-12  |  537b  |  22 lines
  1. procedure ListBusts;
  2. var
  3.   p : portindex;
  4.   i : integer;
  5.   dummy : text;
  6. begin
  7.   i := 0;
  8.   SortPortRecs( space.ports, bust );
  9.   for p := 1 to space.ports.top do
  10.     with space.ports.data[p] do
  11.       begin
  12.         if bustdate > 0 then
  13.           begin
  14.             DisplaySector( where, ' busted ', dateword - bustdate, false, dummy );
  15.             i := i + 1;
  16.             if i mod 20 = 0 then
  17.               if not prompt('--more--') then
  18.                 exit;
  19.           end; {if}
  20.       end; {for with}
  21. end; {listbusts}
  22.