//  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;