//  This makes a new Bible file
//with line numbers.

U0 NumBible()
{
  CDoc *doc_in=DocRead("::/Misc/Bible.TXT.Z",DOCF_PLAIN_TEXT_TABS),
        *doc_out=DocNew("~/DemoNumBible.DD.Z");
  CDocEntry *doc_e=doc_in->head.next;
  while (doc_e!=doc_in)
  {
    if (doc_e->type_u8==DOCT_TEXT)
    {
      DocPrint(doc_out,"%05d %s",doc_e->y+1,doc_e->tag);
      doc_e=doc_e->next;
      if (doc_e->type_u8==DOCT_NEW_LINE)
      {
        DocPrint(doc_out,"\n");
        doc_e=doc_e->next;
      }
    }
    else if (doc_e->type_u8==DOCT_NEW_LINE)
    {
      DocPrint(doc_out,"%05d\n",doc_e->y+1);
      doc_e=doc_e->next;
    }
    else
      doc_e=doc_e->next;
  }
  doc_out->flags|=DOCF_NO_CURSOR;
  DocWrite(doc_out);
  DocDel(doc_out);
  DocDel(doc_in);
}

NumBible;