Program Plink86ErrorFilter;

Var
  Source : Text;
  Line   : String;

Begin
  Assign(Source,ParamStr(1));
  {$I-}
  Reset(Source);
  {$I+}
  If IOResult = 0 Then
  Begin
    While Not Eof(Source) Do
    Begin
      ReadLn(Source,Line);
      If Pos('Symbol ',Line) = 1 Then WriteLn(', 0, 0, ',Line);
    End;
    Close(Source);
  End;
End.
