Category : BBS Programs+Doors
Archive   : TWVIEW93.ZIP
Filename : PART6.INC

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}