procedure processPath( var space : TheVoid );
var
  ch : char;
  line : string;
  s  : sectorindex;
begin
  if eof( f ) then exit;      
  repeat
    readln( f, line );
    writeln('debug: skipping ', line );
  until pos('shortest path', line ) > 0;
  repeat 
    s := ReadNumber(f);
    if s <> 0 then
      space.sectors[s].etc :=  space.sectors[s].etc or SpaceLane;
    read( f, ch );
    writeln('debug: read sector ', s, ' char ', ch );
  until (ch <> '>') or (s=0);
end; {process Path}

procedure PartVI( var space : TheVoid );
{ read computer read out from Major Space Lanes data }
var
  pass : 1..8;
begin
  for pass := 1 to 8 do
    processPath( space );
  SaveData( g, space );
  close( g );
end; {Part6}