home *** CD-ROM | disk | FTP | other *** search
/ Game Killer / Game_Killer.bin / 251.FIXPORTS.PAS < prev    next >
Pascal/Delphi Source File  |  1991-07-08  |  1KB  |  51 lines
  1. program FixPorts;
  2. uses
  3.   memtypes, quickdraw;
  4.  
  5. {$I headers.inc}
  6.  
  7. const
  8.   Version  = ' mac 0.85a';
  9.  
  10. var
  11.   ext,
  12.   mss       : string;
  13.   othername,
  14.   BBSName   : string;
  15.   n         : integer;
  16.   f, g      : text;
  17.   space     : TheVoid;
  18.  
  19. {$I QUEUE.INC }
  20. {$I status.inc }
  21. {$I misc.inc }
  22. {$I gsdata.inc }
  23. var
  24.   s : integer;
  25.   detected : boolean;
  26. begin {main}
  27.   writeln('Tradewars Data Base generator: version', Version);
  28.   writeln( author );
  29.   writeln( source );
  30.   writeln;
  31.   InitSpace( Space );
  32.   BBSName := '';
  33.   GetData( space, BBSName );
  34.   detected := false;
  35.   for s := 1 to MaxSector do
  36.     if (space.sectors[s].porttype = NotAPort) and (portNumber( s ) <> 0) then
  37.       begin
  38.         detected := true;
  39.         writeln( 'Record but no status for ', s );
  40.       end
  41.     else if (space.sectors[s].porttype <> NotAPort)
  42.         and (space.sectors[s].porttype <> Class0)
  43.         and (portNumber(s)=0) then
  44.       begin
  45.         writeln( 'sector ', s, ' declared a port, with no port information');
  46.         detected := true;
  47.       end;
  48.   if not detected then
  49.     writeln('No errors detected.');
  50.   readln;
  51. end.