{
 $Id$
}

{spitfire 2.6b}

Procedure Bbs7;
Type
  sysrecord = record
     Msec,Fsec     : Integer;
     FDesc, MDesc,
     FilePAth,
     UploadPath    : String[60];
     MEqual,
     FEqual,
     PublicMsgArea : Boolean;
  end;
Var
  FFile : File of Sysrecord;
  F     : Sysrecord;
  Tel   : Word;
Begin
  Writeln('Converting Spitfire 2.6b file areas.',#10#13);

  Assign(Ffile, BbsPath + 'SFSYSINF.SYS');
  {$I-} Reset(Ffile); {$I+}
  If ioresult <> 0 then
    Begin
      Writeln('Cannot find '+bbspath+'SFSYSINF.SYS!');
      Halt;
    End;

  AddToFile(false);

  Tel := 0;
  While not eof(ffile) do
    Begin

      {$I-} Read(Ffile,F); {$I+}
      If ioresult <> 0 then
        Begin
          Writeln('Error reading '+bbspath+'SFSYSINF.SYS!');
          Halt;
        End;

      Inc(Tel);
      If F.Fdesc <> '' then
        Begin
          Inc(Number);
          Bbs.on   := False;
          Bbs.name := F.FDesc;
          Bbs.nr   := Tel;
          Bbs.path := F.FilePath;
          AddToFile(saveset);
        End;
    End;
  Close(Ffile);
End;

