(* $Id: test.pas,v 1.3 2001/06/05 05:08:53 olly98 Exp $ *)

{ $DEFINE TEST_SQUISH}
{$DEFINE TEST_FIDO}

uses
  {$IFDEF TEST_SQUISH}
  mkmsgsqu,
  {$ENDIF}
  {$IFDEF TEST_FIDO}
  mkmsgfid,
  {$ENDIF}
  ftnAddr;


var
  {$IFDEF TEST_SQUISH}
  s:PMKSquish;
  {$ENDIF}
  {$IFDEF TEST_FIDO}
  s:PMKFido;
  {$ENDIF}
  st:String;

begin
  new(s,init);
  {$IFDEF TEST_SQUISH}
  s^.SetMsgBasePath('C:\modem\jan\msgbase\DE_TEX2.sqd');
  {$ENDIF}
  {$IFDEF TEST_FIDO}
  s^.SetMsgBasePath('e:\temp\');
  {$ENDIF}
  s^.openmsgbase;
  if not s^.SeekFirst(0,true) then begin
    Writeln('No Msg found')
  end else begin
    repeat
      s^.MsgStartUp;
      write(s^.GetFromName,'@',AddrStr(s^.GetFromAddr));
      Write(' -> ',s^.GetToName,'@',AddrStr(s^.GetToAddr));
      WriteLn(' : ',s^.GetSubj);
      s^.MsgTxtStartUp;
      While not s^.EOM do begin
        st:= s^.GetString(255);
        Writeln(st);
      end;
    until not s^.SeekNext;
  end;
  dispose(s,done);
end.