/*
Alex Raugust 10/08/2001
Chapin Shea McNitt & Carter
San Diego, CA  92101
619/232-4261

Reset formatting for Paragraph fields, to eliminate unsightly RTF font varieties.

*/

main()
{

int db,i;
text fname, plain;

   cycle(db)  {

      puts(10,10, "Now processing document " + str(docno(db),8,0,',') + " of " + str(count(db),8,0,','));

      for(i = 1; i <= db.fields; i = i + 1)
         if(db.type[i] == 'P')
               db->i = substr(db->i, 1);
  }

index(db);

}