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

U0 NumBible()
{
        CDoc            *doc_in  = DocRead("::/Misc/Bible.TXT", DOCF_PLAIN_TEXT_TABS),
                                *doc_out = DocNew("~/DemoNumBible.DD");
        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;