#define T_MAN   0
#define T_BALL  1

U0 Models()
{
        I64  i;
        Bool old_form = LBts(&(DocPut)->flags, DOCf_FORM);

        DocClear;
        "Make a CSprite model.  Then, cut-and-Paste it.\n\n";
        "$LM,4$";
        "\n\n$BT,\"Man\",LE=T_MAN$\n\n";
        "\n\n$BT,\"Ball\",LE=T_BALL$\n\n";
        "$LM,0$";
        i = DocMenu(DocPut);
        LBEqual(&(DocPut)->flags, DOCf_FORM, old_form);
        DocBottom;
        switch (i)
        {
                case T_MAN:
                        ManGen;
                        break;

                case T_BALL:
                        BallGen;
                        break;
        }
}