#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;
    }
}