{$A+,B+,D+,E-,F-,I-,L+,N-,O-,R-,S-,V-}
{$M 16384,0,655360}
Program PackTest;

Uses Crt,TPDB;

Var
        H : Integer;
        Test : ^DBF;


begin
     NEW(Test,Init('packtest.dbf'));
     If Test^.TotalRecs>=500 then Test^.Zap;
     ClrScr;
     Writeln('Appending 1000 records.....');
     Test^.FillRecs(1000);
     Writeln('Deleting 500 records....');
     For H := 1 to 1000 do
     begin
     Test^.GetDBRec(H);
     If H mod 2 = 0 then
     begin
        Test^.Repl(1,'Deleted.');
        Test^.Mark;
     end
     else
        Test^.Repl(1,'Undeleted.');
        Test^.PutDBRec(H);
     end;
     Test^.DBReset;
     Writeln('Packing....');
     Test^.Pack;
     Writeln('500 undeleted records remain.');
     Writeln;
     Writeln('TPDB Version 3.14');
     Test^.Done;
end.