program test_dbf(input,output);

%include 'dbf.pas'

var
   i : integer;

begin
   dbf_open('TEST');
   dbf_put_header(2,10,4+20);
   dbf_add_field('F1','N',4);
   dbf_add_field('F2','C',20);
   dbf_nomore_fields;
   for i:=1 to 10 do begin
      dbf_start_record;
      dbf_add_numeric(i,4);
      dbf_add_character('Just a test',20);
   end;
   dbf_close;
end.
