main() {

int db;
text plain;

   cycle(db)  {

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

	plain = db->FIELDNAME;
	db->FIELDNAME = plain;

  }

}